printf ' ' | fink --no-use-binary-dist --yes --build-as-nobody rebuild sbcl 2>&1 The package 'sbcl' will be built without being installed. Reading build dependency for sbcl-1.2.1-1... Reading dependency for sbcl-1.2.1-1... Reading build conflict for sbcl-1.2.1-1... The following package will be rebuilt: sbcl curl --connect-timeout 30 -f -L -A 'fink/0.37.0' -O http://distfiles.master.finkmirrors.net/distfiles/sbcl-1.2.1-source.tar.bz2 % Total % Received % Xferd Average Speed Time Time Time Current Dload Upload Total Spent Left Speed 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 curl: (22) The requested URL returned error: 404 Not Found ### execution of curl failed, exit code 22 Downloading the file "sbcl-1.2.1-source.tar.bz2" failed. (1) Give up (2) Retry the same mirror (3) Retry another mirror from your country (4) Retry another mirror from your continent (5) Retry another mirror (6) Retry using next mirror set "sourceforge" How do you want to proceed? [3] (assuming default) curl --connect-timeout 30 -f -L -A 'fink/0.37.0' -O http://distfiles.sjc.ca.us.finkmirrors.net/sbcl-1.2.1-source.tar.bz2 % Total % Received % Xferd Average Speed Time Time Time Current Dload Upload Total Spent Left Speed 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 0 0 0 0 0 0 0 0 --:--:-- 0:00:01 --:--:-- 0 curl: (22) The requested URL returned error: 404 Not Found ### execution of curl failed, exit code 22 Downloading the file "sbcl-1.2.1-source.tar.bz2" failed. (1) Give up (2) Retry the same mirror (3) Retry another mirror from your continent (4) Retry another mirror (5) Retry using next mirror set "sourceforge" How do you want to proceed? [5] (assuming default) curl --connect-timeout 30 -f -L -A 'fink/0.37.0' -O http://downloads.sourceforge.net/sbcl/sbcl-1.2.1-source.tar.bz2 % Total % Received % Xferd Average Speed Time Time Time Current Dload Upload Total Spent Left Speed 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 0 4321k 0 1218 0 0 2019 0 0:36:31 --:--:-- 0:36:31 2019 23 4321k 23 1022k 0 0 655k 0 0:00:06 0:00:01 0:00:05 1067k 60 4321k 60 2601k 0 0 1001k 0 0:00:04 0:00:02 0:00:02 1303k 76 4321k 76 3307k 0 0 930k 0 0:00:04 0:00:03 0:00:01 1120k 100 4321k 100 4321k 0 0 1007k 0 0:00:04 0:00:04 --:--:-- 1171k curl --connect-timeout 30 -f -L -A 'fink/0.37.0' -O http://distfiles.sjc.ca.us.finkmirrors.net/sbcl-1.1.0-x86-64-darwin-binary.tar.bz2 % Total % Received % Xferd Average Speed Time Time Time Current Dload Upload Total Spent Left Speed 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 0 8714k 0 1108 0 0 6352 0 0:23:24 --:--:-- 0:23:24 6331 12 8714k 12 1089k 0 0 954k 0 0:00:09 0:00:01 0:00:08 953k 26 8714k 26 2344k 0 0 1093k 0 0:00:07 0:00:02 0:00:05 1092k 47 8714k 47 4121k 0 0 1311k 0 0:00:06 0:00:03 0:00:03 1311k 67 8714k 67 5912k 0 0 1427k 0 0:00:06 0:00:04 0:00:02 1427k 87 8714k 87 7631k 0 0 1483k 0 0:00:05 0:00:05 --:--:-- 1535k 100 8714k 100 8714k 0 0 1515k 0 0:00:05 0:00:05 --:--:-- 1654k Setting runtime build-lock... dpkg-deb -b /sw/build.build/root-fink-buildlock-sbcl-1.2.1-1 /sw/build.build dpkg-deb: building package `fink-buildlock-sbcl-1.2.1-1' in `/sw/build.build/fink-buildlock-sbcl-1.2.1-1_2014.07.28-05.02.02_darwin-x86_64.deb'. Installing build-lock package... /sw/bin/dpkg-lockwait -i /sw/build.build/fink-buildlock-sbcl-1.2.1-1_2014.07.28-05.02.02_darwin-x86_64.deb Selecting previously deselected package fink-buildlock-sbcl-1.2.1-1. (Reading database ... 4296 files and directories currently installed.) Unpacking fink-buildlock-sbcl-1.2.1-1 (from .../fink-buildlock-sbcl-1.2.1-1_2014.07.28-05.02.02_darwin-x86_64.deb) ... Setting up fink-buildlock-sbcl-1.2.1-1 (2014.07.28-05.02.02) ... sudo -u fink-bld [ENV] sh -c /tmp/fink.VRHnn env LANG=C LC_ALL=C /sw/bin/tar --no-same-owner --no-same-permissions -xvf /sw/src/sbcl-1.2.1-source.tar.bz2 sbcl-1.2.1/ sbcl-1.2.1/install.sh sbcl-1.2.1/make-target-2.lisp sbcl-1.2.1/INSTALL sbcl-1.2.1/doc/ sbcl-1.2.1/doc/entities.inc sbcl-1.2.1/doc/FOR-CMUCL-DEVELOPERS sbcl-1.2.1/doc/README sbcl-1.2.1/doc/PACKAGING-SBCL.txt sbcl-1.2.1/doc/clean.sh sbcl-1.2.1/doc/.cvsignore sbcl-1.2.1/doc/GIT-WORKFLOW.md sbcl-1.2.1/doc/internals/ sbcl-1.2.1/doc/internals/discriminating-functions.texinfo sbcl-1.2.1/doc/internals/.gitignore sbcl-1.2.1/doc/internals/sbcl-internals.texinfo sbcl-1.2.1/doc/internals/make-top.sh sbcl-1.2.1/doc/internals/signals.texinfo sbcl-1.2.1/doc/internals/slot-value.texinfo sbcl-1.2.1/doc/internals/specials.texinfo sbcl-1.2.1/doc/internals/build.texinfo sbcl-1.2.1/doc/internals/string-types.texinfo sbcl-1.2.1/doc/internals/objects-in-memory.texinfo sbcl-1.2.1/doc/internals/threads.texinfo sbcl-1.2.1/doc/internals/clean.sh sbcl-1.2.1/doc/internals/discriminating-functions.dot sbcl-1.2.1/doc/internals/.cvsignore sbcl-1.2.1/doc/internals/calling-convention.texinfo sbcl-1.2.1/doc/internals/funcallable-instances.texinfo sbcl-1.2.1/doc/internals/Makefile sbcl-1.2.1/doc/internals/foreign-linkage.texinfo sbcl-1.2.1/doc/make-doc.sh sbcl-1.2.1/doc/manual/ sbcl-1.2.1/doc/manual/efficiency.texinfo sbcl-1.2.1/doc/manual/ffi.texinfo sbcl-1.2.1/doc/manual/.gitignore sbcl-1.2.1/doc/manual/backmatter.texinfo sbcl-1.2.1/doc/manual/sbcl.texinfo sbcl-1.2.1/doc/manual/debugger.texinfo sbcl-1.2.1/doc/manual/streams.texinfo sbcl-1.2.1/doc/manual/TEXINFO-HINTS sbcl-1.2.1/doc/manual/support-and-bugs.texinfo sbcl-1.2.1/doc/manual/pathnames.texinfo sbcl-1.2.1/doc/manual/contrib-modules.texinfo sbcl-1.2.1/doc/manual/profiling.texinfo sbcl-1.2.1/doc/manual/threading.texinfo sbcl-1.2.1/doc/manual/style-single.css sbcl-1.2.1/doc/manual/texinfo-macros.texinfo sbcl-1.2.1/doc/manual/intro.texinfo sbcl-1.2.1/doc/manual/clean.sh sbcl-1.2.1/doc/manual/.cvsignore sbcl-1.2.1/doc/manual/style-multi.css sbcl-1.2.1/doc/manual/start-stop.texinfo sbcl-1.2.1/doc/manual/variables.template sbcl-1.2.1/doc/manual/gray-streams-examples.texinfo sbcl-1.2.1/doc/manual/make-tempfiles.sh sbcl-1.2.1/doc/manual/create-contrib-doc-list.lisp sbcl-1.2.1/doc/manual/Makefile sbcl-1.2.1/doc/manual/package-locks-basic.texinfo sbcl-1.2.1/doc/manual/package-locks-extended.texinfo sbcl-1.2.1/doc/manual/beyond-ansi.texinfo sbcl-1.2.1/doc/manual/deprecated.texinfo sbcl-1.2.1/doc/manual/compiler.texinfo sbcl-1.2.1/doc/manual/timers.texinfo sbcl-1.2.1/doc/manual/docstrings.lisp sbcl-1.2.1/doc/sbcl.1 sbcl-1.2.1/doc/GIT-FOR-SBCL-HACKERS.txt sbcl-1.2.1/doc/internals-notes/ sbcl-1.2.1/doc/internals-notes/GENCGC-PORTING-NOTES sbcl-1.2.1/doc/internals-notes/release-checklist.txt sbcl-1.2.1/doc/internals-notes/mach-exception-handler-notes sbcl-1.2.1/doc/internals-notes/threading-specials sbcl-1.2.1/.gitignore sbcl-1.2.1/tools-for-build/ sbcl-1.2.1/tools-for-build/sparc-funcdef.sh sbcl-1.2.1/tools-for-build/grep-noncanonical-whitespace sbcl-1.2.1/tools-for-build/arm-softfp-test.c sbcl-1.2.1/tools-for-build/whitespacely-canonical-filenames sbcl-1.2.1/tools-for-build/determine-endianness.c sbcl-1.2.1/tools-for-build/ldso-stubs.lisp sbcl-1.2.1/tools-for-build/os-provides-dlopen-test.c sbcl-1.2.1/tools-for-build/ucd.lisp sbcl-1.2.1/tools-for-build/openbsd-sigcontext.sh sbcl-1.2.1/tools-for-build/Jamo.txt sbcl-1.2.1/tools-for-build/os-provides-poll-test.c sbcl-1.2.1/tools-for-build/where-is-mcontext.c sbcl-1.2.1/tools-for-build/os-provides-suseconds-t-test.c sbcl-1.2.1/tools-for-build/os-provides-dladdr-test.c sbcl-1.2.1/tools-for-build/rtf.lisp sbcl-1.2.1/tools-for-build/wxs.lisp sbcl-1.2.1/tools-for-build/grovel-features.sh sbcl-1.2.1/tools-for-build/check-canonical-whitespace sbcl-1.2.1/tools-for-build/.cvsignore sbcl-1.2.1/tools-for-build/os-provides-getprotoby-r-test.c sbcl-1.2.1/tools-for-build/grovel-headers.c sbcl-1.2.1/tools-for-build/CompositionExclusions.txt sbcl-1.2.1/tools-for-build/UnicodeData.txt sbcl-1.2.1/tools-for-build/canonicalize-whitespace sbcl-1.2.1/tools-for-build/Makefile sbcl-1.2.1/tools-for-build/canonicalize-whitespace-1 sbcl-1.2.1/tools-for-build/os-provides-putwc-test.c sbcl-1.2.1/tools-for-build/os-provides-blksize-t-test.c sbcl-1.2.1/tests/ sbcl-1.2.1/tests/condition-wait-sigcont.lisp sbcl-1.2.1/tests/mop-26.impure.lisp sbcl-1.2.1/tests/bit-vector.impure-cload.lisp sbcl-1.2.1/tests/signals.impure.lisp sbcl-1.2.1/tests/mop-22.impure-cload.lisp sbcl-1.2.1/tests/info.before-xc.lisp sbcl-1.2.1/tests/run-compiler.sh sbcl-1.2.1/tests/seq.pure.lisp sbcl-1.2.1/tests/mop-23.impure.lisp sbcl-1.2.1/tests/packages.impure.lisp sbcl-1.2.1/tests/test-util.lisp sbcl-1.2.1/tests/compiler-1.impure-cload.lisp sbcl-1.2.1/tests/destructure.impure.lisp sbcl-1.2.1/tests/undefined-classoid-bug.test.sh sbcl-1.2.1/tests/mop-28.impure.lisp sbcl-1.2.1/tests/.gitignore sbcl-1.2.1/tests/compiler.pure.lisp sbcl-1.2.1/tests/clos-ignore.interactive.lisp sbcl-1.2.1/tests/colorize.lisp sbcl-1.2.1/tests/mop-11.impure-cload.lisp sbcl-1.2.1/tests/data/ sbcl-1.2.1/tests/data/NormalizationTest.txt sbcl-1.2.1/tests/defmacro-test.lisp sbcl-1.2.1/tests/callback.impure.lisp sbcl-1.2.1/tests/threads.impure.lisp sbcl-1.2.1/tests/clos-typechecking.impure.lisp sbcl-1.2.1/tests/threads.test.sh sbcl-1.2.1/tests/condition.pure.lisp sbcl-1.2.1/tests/init.test.sh sbcl-1.2.1/tests/backq.impure.lisp sbcl-1.2.1/tests/bug-414.lisp sbcl-1.2.1/tests/call-into-lisp.impure.lisp sbcl-1.2.1/tests/bug-doug-mcnaught-20030914.lisp sbcl-1.2.1/tests/seq.impure.lisp sbcl-1.2.1/tests/clos.impure.lisp sbcl-1.2.1/tests/pathnames.impure.lisp sbcl-1.2.1/tests/interface.impure.lisp sbcl-1.2.1/tests/stack-alignment-offset.c sbcl-1.2.1/tests/mop-1.impure-cload.lisp sbcl-1.2.1/tests/mop-3.impure-cload.lisp sbcl-1.2.1/tests/clos-add-remove-method.impure.lisp sbcl-1.2.1/tests/reader.pure.lisp sbcl-1.2.1/tests/bug-943953.lisp sbcl-1.2.1/tests/lambda-list.pure.lisp sbcl-1.2.1/tests/float.impure.lisp sbcl-1.2.1/tests/symbol-macrolet-test.lisp sbcl-1.2.1/tests/ctor.impure.lisp sbcl-1.2.1/tests/colorize-control-codes.lisp sbcl-1.2.1/tests/type.pure.lisp sbcl-1.2.1/tests/clos.test.sh sbcl-1.2.1/tests/win32-stack-unwind.c sbcl-1.2.1/tests/assertoid.lisp sbcl-1.2.1/tests/parallel-fasl-load-test.lisp sbcl-1.2.1/tests/system.impure.lisp sbcl-1.2.1/tests/mop-10.impure-cload.lisp sbcl-1.2.1/tests/mop.impure-cload.lisp sbcl-1.2.1/tests/bug204-test.lisp sbcl-1.2.1/tests/undefined-classoid-bug-1.lisp sbcl-1.2.1/tests/mop-20.impure-cload.lisp sbcl-1.2.1/tests/dynamic-extent.impure.lisp sbcl-1.2.1/tests/reader.impure.lisp sbcl-1.2.1/tests/subr.sh sbcl-1.2.1/tests/mop-14.impure-cload.lisp sbcl-1.2.1/tests/run-tests.lisp sbcl-1.2.1/tests/define-compiler-macro.impure.lisp sbcl-1.2.1/tests/bug-417.lisp sbcl-1.2.1/tests/package-ctor-bug.lisp sbcl-1.2.1/tests/compiler-2.impure-cload.lisp sbcl-1.2.1/tests/clocc-ansi-test-known-bugs.lisp sbcl-1.2.1/tests/mop-9.impure-cload.lisp sbcl-1.2.1/tests/finalize.test.sh sbcl-1.2.1/tests/toplevel.test.sh sbcl-1.2.1/tests/compiler.pure-cload.lisp sbcl-1.2.1/tests/extended-sequences.impure.lisp sbcl-1.2.1/tests/bug-503095.lisp sbcl-1.2.1/tests/pure.lisp sbcl-1.2.1/tests/fopcompiler.impure.lisp sbcl-1.2.1/tests/mop-29.impure.lisp sbcl-1.2.1/tests/side-effectful-pathnames.test.sh sbcl-1.2.1/tests/break-on-signals.impure.lisp sbcl-1.2.1/tests/random.pure.lisp sbcl-1.2.1/tests/case.pure.lisp sbcl-1.2.1/tests/expect.sh sbcl-1.2.1/tests/deadline.impure.lisp sbcl-1.2.1/tests/mop.pure.lisp sbcl-1.2.1/tests/info.impure.lisp sbcl-1.2.1/tests/colorize-windows-console.lisp sbcl-1.2.1/tests/alien.impure.lisp sbcl-1.2.1/tests/mop-24.impure.lisp sbcl-1.2.1/tests/clos.pure.lisp sbcl-1.2.1/tests/win32-foreign-stack-unwind.impure.lisp sbcl-1.2.1/tests/list.pure.lisp sbcl-1.2.1/tests/mop.impure.lisp sbcl-1.2.1/tests/swap-lispobjs.c sbcl-1.2.1/tests/character.pure.lisp sbcl-1.2.1/tests/defstruct.impure.lisp sbcl-1.2.1/tests/smoke.impure.lisp sbcl-1.2.1/tests/package-locks.impure.lisp sbcl-1.2.1/tests/hash.pure.lisp sbcl-1.2.1/tests/loop.impure.lisp sbcl-1.2.1/tests/foreign-stack-alignment.impure.lisp sbcl-1.2.1/tests/kill-non-lisp-thread.impure.lisp sbcl-1.2.1/tests/fopcompiler.impure-cload.lisp sbcl-1.2.1/tests/vector.impure.lisp sbcl-1.2.1/tests/compiler-output-test.lisp sbcl-1.2.1/tests/stress-gc.lisp sbcl-1.2.1/tests/interface.pure.lisp sbcl-1.2.1/tests/run-tests.sh sbcl-1.2.1/tests/mop-16.impure-cload.lisp sbcl-1.2.1/tests/dump.impure-cload.lisp sbcl-1.2.1/tests/profile.impure.lisp sbcl-1.2.1/tests/mop-19.impure-cload.lisp sbcl-1.2.1/tests/vm.before-xc.lisp sbcl-1.2.1/tests/run-program.impure.lisp sbcl-1.2.1/tests/mop-12.impure-cload.lisp sbcl-1.2.1/tests/clos-interrupts.impure.lisp sbcl-1.2.1/tests/simd-pack.impure.lisp sbcl-1.2.1/tests/interface.test.sh sbcl-1.2.1/tests/debug.impure.lisp sbcl-1.2.1/tests/filesys.pure.lisp sbcl-1.2.1/tests/timer.impure.lisp sbcl-1.2.1/tests/type.before-xc.lisp sbcl-1.2.1/tests/mop-27.impure.lisp sbcl-1.2.1/tests/unwind-to-frame-and-call.impure.lisp sbcl-1.2.1/tests/enc-jpn.impure.lisp sbcl-1.2.1/tests/unicode-normalization.impure.lisp sbcl-1.2.1/tests/coerce.pure.lisp sbcl-1.2.1/tests/mop-25.impure.lisp sbcl-1.2.1/tests/threads.pure.lisp sbcl-1.2.1/tests/clos.impure-cload.lisp sbcl-1.2.1/tests/gray-streams.impure.lisp sbcl-1.2.1/tests/stream.pure.lisp sbcl-1.2.1/tests/mop-6.impure-cload.lisp sbcl-1.2.1/tests/load.pure.lisp sbcl-1.2.1/tests/stream.test.sh sbcl-1.2.1/tests/with-compilation-unit.impure.lisp sbcl-1.2.1/tests/deftype.impure.lisp sbcl-1.2.1/tests/float.pure.lisp sbcl-1.2.1/tests/full-eval.impure.lisp sbcl-1.2.1/tests/custom-userinit.lisp sbcl-1.2.1/tests/map-tests.impure.lisp sbcl-1.2.1/tests/setf.impure.lisp sbcl-1.2.1/tests/vector.pure.lisp sbcl-1.2.1/tests/stream.impure.lisp sbcl-1.2.1/tests/pprint.impure.lisp sbcl-1.2.1/tests/foreign.test.sh sbcl-1.2.1/tests/mop-30.impure.lisp sbcl-1.2.1/tests/script.test.sh sbcl-1.2.1/tests/type.after-xc.lisp sbcl-1.2.1/tests/swap-lispobjs.impure.lisp sbcl-1.2.1/tests/mop-18.impure-cload.lisp sbcl-1.2.1/tests/octets.pure.lisp sbcl-1.2.1/tests/filesys.test.sh sbcl-1.2.1/tests/clocc-ansi.test.sh sbcl-1.2.1/tests/loop.pure.lisp sbcl-1.2.1/tests/core.test.sh sbcl-1.2.1/tests/.cvsignore sbcl-1.2.1/tests/type.impure.lisp sbcl-1.2.1/tests/time.pure.lisp sbcl-1.2.1/tests/arith.impure.lisp sbcl-1.2.1/tests/mop-21.impure-cload.lisp sbcl-1.2.1/tests/gc.impure.lisp sbcl-1.2.1/tests/mop-15.impure-cload.lisp sbcl-1.2.1/tests/circ-tree-test.lisp sbcl-1.2.1/tests/enc-cn.impure.lisp sbcl-1.2.1/tests/exhaust.impure.lisp sbcl-1.2.1/tests/bivalent-stream.impure.lisp sbcl-1.2.1/tests/mop-7.impure-cload.lisp sbcl-1.2.1/tests/load.impure.lisp sbcl-1.2.1/tests/mop-2.impure-cload.lisp sbcl-1.2.1/tests/mop-4.impure-cload.lisp sbcl-1.2.1/tests/hash.impure.lisp sbcl-1.2.1/tests/static-alloc.impure.lisp sbcl-1.2.1/tests/undefined-classoid-bug-2.lisp sbcl-1.2.1/tests/defglobal.impure-cload.lisp sbcl-1.2.1/tests/walk.impure.lisp sbcl-1.2.1/tests/stress-gc.sh sbcl-1.2.1/tests/custom-sysinit.lisp sbcl-1.2.1/tests/condition.impure.lisp sbcl-1.2.1/tests/clos-1.impure.lisp sbcl-1.2.1/tests/bug-503095-2.lisp sbcl-1.2.1/tests/compiler.impure-cload.lisp sbcl-1.2.1/tests/eval.impure.lisp sbcl-1.2.1/tests/step.impure.lisp sbcl-1.2.1/tests/run-program.test.sh sbcl-1.2.1/tests/alloca.c sbcl-1.2.1/tests/compiler.impure.lisp sbcl-1.2.1/tests/compound-cons.impure.lisp sbcl-1.2.1/tests/array.pure.lisp sbcl-1.2.1/tests/mop-17.impure-cload.lisp sbcl-1.2.1/tests/symbol.pure.lisp sbcl-1.2.1/tests/stream.impure-cload.lisp sbcl-1.2.1/tests/properties.impure.lisp sbcl-1.2.1/tests/print.impure.lisp sbcl-1.2.1/tests/compiler-test-util.lisp sbcl-1.2.1/tests/mop-5.impure-cload.lisp sbcl-1.2.1/tests/room.test.sh sbcl-1.2.1/tests/macroexpand.impure.lisp sbcl-1.2.1/tests/defglobal.impure.lisp sbcl-1.2.1/tests/kill-non-lisp-thread.c sbcl-1.2.1/tests/mop-13.impure-cload.lisp sbcl-1.2.1/tests/compare-and-swap.impure.lisp sbcl-1.2.1/tests/compiler.test.sh sbcl-1.2.1/tests/string.pure.lisp sbcl-1.2.1/tests/clos-cache.impure.lisp sbcl-1.2.1/tests/mop-8.impure-cload.lisp sbcl-1.2.1/tests/symbol.impure.lisp sbcl-1.2.1/tests/arith.pure.lisp sbcl-1.2.1/tests/gcd.pure.lisp sbcl-1.2.1/tests/external-format.impure.lisp sbcl-1.2.1/make-target-1.sh sbcl-1.2.1/make-host-1.sh sbcl-1.2.1/release.sh sbcl-1.2.1/make.sh sbcl-1.2.1/binary-distribution.sh sbcl-1.2.1/distclean.sh sbcl-1.2.1/common-lisp-exports.lisp-expr sbcl-1.2.1/make-genesis-2.lisp sbcl-1.2.1/make-host-1.lisp sbcl-1.2.1/HACKING sbcl-1.2.1/pubring.pgp sbcl-1.2.1/build-order.lisp-expr sbcl-1.2.1/CREDITS sbcl-1.2.1/source-distribution.sh sbcl-1.2.1/wc.sh sbcl-1.2.1/TLA sbcl-1.2.1/make-host-2.lisp sbcl-1.2.1/contrib/ sbcl-1.2.1/contrib/sb-rotate-byte/ sbcl-1.2.1/contrib/sb-rotate-byte/rotate-byte-tests.lisp sbcl-1.2.1/contrib/sb-rotate-byte/ppc-vm.lisp sbcl-1.2.1/contrib/sb-rotate-byte/x86-vm.lisp sbcl-1.2.1/contrib/sb-rotate-byte/arm-vm.lisp sbcl-1.2.1/contrib/sb-rotate-byte/rotate-byte.lisp sbcl-1.2.1/contrib/sb-rotate-byte/sb-rotate-byte.texinfo sbcl-1.2.1/contrib/sb-rotate-byte/compiler.lisp sbcl-1.2.1/contrib/sb-rotate-byte/sb-rotate-byte.asd sbcl-1.2.1/contrib/sb-rotate-byte/package.lisp sbcl-1.2.1/contrib/sb-rotate-byte/README sbcl-1.2.1/contrib/sb-rotate-byte/x86-64-vm.lisp sbcl-1.2.1/contrib/sb-rotate-byte/.cvsignore sbcl-1.2.1/contrib/sb-rotate-byte/Makefile sbcl-1.2.1/contrib/sb-aclrepl/ sbcl-1.2.1/contrib/sb-aclrepl/sb-aclrepl.asd sbcl-1.2.1/contrib/sb-aclrepl/sb-aclrepl.texinfo sbcl-1.2.1/contrib/sb-aclrepl/toplevel.lisp sbcl-1.2.1/contrib/sb-aclrepl/tests.lisp sbcl-1.2.1/contrib/sb-aclrepl/README sbcl-1.2.1/contrib/sb-aclrepl/repl.lisp sbcl-1.2.1/contrib/sb-aclrepl/.cvsignore sbcl-1.2.1/contrib/sb-aclrepl/debug.lisp sbcl-1.2.1/contrib/sb-aclrepl/Makefile sbcl-1.2.1/contrib/sb-aclrepl/inspect.lisp sbcl-1.2.1/contrib/vanilla-module.mk sbcl-1.2.1/contrib/sb-bsd-sockets/ sbcl-1.2.1/contrib/sb-bsd-sockets/inet.lisp sbcl-1.2.1/contrib/sb-bsd-sockets/win32-sockets.lisp sbcl-1.2.1/contrib/sb-bsd-sockets/constants.lisp sbcl-1.2.1/contrib/sb-bsd-sockets/sb-bsd-sockets.texinfo sbcl-1.2.1/contrib/sb-bsd-sockets/name-service.lisp sbcl-1.2.1/contrib/sb-bsd-sockets/local.lisp sbcl-1.2.1/contrib/sb-bsd-sockets/defpackage.lisp sbcl-1.2.1/contrib/sb-bsd-sockets/FAQ sbcl-1.2.1/contrib/sb-bsd-sockets/tests.lisp sbcl-1.2.1/contrib/sb-bsd-sockets/sockopt.lisp sbcl-1.2.1/contrib/sb-bsd-sockets/win32-lib.lisp sbcl-1.2.1/contrib/sb-bsd-sockets/sb-bsd-sockets.asd sbcl-1.2.1/contrib/sb-bsd-sockets/misc.lisp sbcl-1.2.1/contrib/sb-bsd-sockets/NEWS sbcl-1.2.1/contrib/sb-bsd-sockets/win32-constants.lisp sbcl-1.2.1/contrib/sb-bsd-sockets/.cvsignore sbcl-1.2.1/contrib/sb-bsd-sockets/sockets.lisp sbcl-1.2.1/contrib/sb-bsd-sockets/split.lisp sbcl-1.2.1/contrib/sb-bsd-sockets/Makefile sbcl-1.2.1/contrib/sb-bsd-sockets/TODO sbcl-1.2.1/contrib/code-extras.lisp sbcl-1.2.1/contrib/asdf-module.mk sbcl-1.2.1/contrib/sb-cltl2/ sbcl-1.2.1/contrib/sb-cltl2/macroexpand.lisp sbcl-1.2.1/contrib/sb-cltl2/defpackage.lisp sbcl-1.2.1/contrib/sb-cltl2/env.lisp sbcl-1.2.1/contrib/sb-cltl2/tests.lisp sbcl-1.2.1/contrib/sb-cltl2/compiler-let.lisp sbcl-1.2.1/contrib/sb-cltl2/.cvsignore sbcl-1.2.1/contrib/sb-cltl2/sb-cltl2.asd sbcl-1.2.1/contrib/sb-cltl2/Makefile sbcl-1.2.1/contrib/sb-cover/ sbcl-1.2.1/contrib/sb-cover/cover.lisp sbcl-1.2.1/contrib/sb-cover/tests.lisp sbcl-1.2.1/contrib/sb-cover/test-data-1.lisp sbcl-1.2.1/contrib/sb-cover/test-data-2.lisp sbcl-1.2.1/contrib/sb-cover/.cvsignore sbcl-1.2.1/contrib/sb-cover/sb-cover.asd sbcl-1.2.1/contrib/sb-cover/Makefile sbcl-1.2.1/contrib/sb-cover/test-data-3.lisp sbcl-1.2.1/contrib/sb-cover/sb-cover.texinfo sbcl-1.2.1/contrib/compiler-extras.lisp sbcl-1.2.1/contrib/sb-md5/ sbcl-1.2.1/contrib/sb-md5/sb-md5.asd sbcl-1.2.1/contrib/sb-md5/README sbcl-1.2.1/contrib/sb-md5/md5.lisp sbcl-1.2.1/contrib/sb-md5/.cvsignore sbcl-1.2.1/contrib/sb-md5/Makefile sbcl-1.2.1/contrib/sb-md5/sb-md5.texinfo sbcl-1.2.1/contrib/sb-md5/md5-tests.lisp sbcl-1.2.1/contrib/sb-executable/ sbcl-1.2.1/contrib/sb-executable/sb-executable.lisp sbcl-1.2.1/contrib/sb-executable/.cvsignore sbcl-1.2.1/contrib/sb-executable/Makefile sbcl-1.2.1/contrib/sb-posix/ sbcl-1.2.1/contrib/sb-posix/sb-posix.asd sbcl-1.2.1/contrib/sb-posix/macros.lisp sbcl-1.2.1/contrib/sb-posix/constants.lisp sbcl-1.2.1/contrib/sb-posix/defpackage.lisp sbcl-1.2.1/contrib/sb-posix/README sbcl-1.2.1/contrib/sb-posix/interface.lisp sbcl-1.2.1/contrib/sb-posix/designator.lisp sbcl-1.2.1/contrib/sb-posix/posix-tests.lisp sbcl-1.2.1/contrib/sb-posix/.cvsignore sbcl-1.2.1/contrib/sb-posix/sb-posix.texinfo sbcl-1.2.1/contrib/sb-posix/Makefile sbcl-1.2.1/contrib/sb-posix/TODO sbcl-1.2.1/contrib/sb-rt/ sbcl-1.2.1/contrib/sb-rt/sb-rt.asd sbcl-1.2.1/contrib/sb-rt/.cvsignore sbcl-1.2.1/contrib/sb-rt/rt.lisp sbcl-1.2.1/contrib/sb-rt/Makefile sbcl-1.2.1/contrib/README sbcl-1.2.1/contrib/STANDARDS sbcl-1.2.1/contrib/sb-grovel/ sbcl-1.2.1/contrib/sb-grovel/def-to-lisp.lisp sbcl-1.2.1/contrib/sb-grovel/defpackage.lisp sbcl-1.2.1/contrib/sb-grovel/sb-grovel.asd sbcl-1.2.1/contrib/sb-grovel/foreign-glue.lisp sbcl-1.2.1/contrib/sb-grovel/.cvsignore sbcl-1.2.1/contrib/sb-grovel/sb-grovel.texinfo sbcl-1.2.1/contrib/sb-grovel/example-constants.lisp sbcl-1.2.1/contrib/sb-grovel/Makefile sbcl-1.2.1/contrib/sb-gmp/ sbcl-1.2.1/contrib/sb-gmp/gmp.lisp sbcl-1.2.1/contrib/sb-gmp/README.md sbcl-1.2.1/contrib/sb-gmp/sb-gmp.asd sbcl-1.2.1/contrib/sb-gmp/bench.lisp sbcl-1.2.1/contrib/sb-gmp/tests.lisp sbcl-1.2.1/contrib/sb-gmp/LICENSE sbcl-1.2.1/contrib/sb-gmp/tests-stress.lisp sbcl-1.2.1/contrib/sb-gmp/Makefile sbcl-1.2.1/contrib/.cvsignore sbcl-1.2.1/contrib/sb-mpfr/ sbcl-1.2.1/contrib/sb-mpfr/README.md sbcl-1.2.1/contrib/sb-mpfr/sb-mpfr.asd sbcl-1.2.1/contrib/sb-mpfr/tests.lisp sbcl-1.2.1/contrib/sb-mpfr/mpfr.lisp sbcl-1.2.1/contrib/sb-mpfr/LICENSE sbcl-1.2.1/contrib/sb-mpfr/Makefile sbcl-1.2.1/contrib/sb-introspect/ sbcl-1.2.1/contrib/sb-introspect/introspect.lisp sbcl-1.2.1/contrib/sb-introspect/load-test.lisp sbcl-1.2.1/contrib/sb-introspect/sb-introspect.asd sbcl-1.2.1/contrib/sb-introspect/xref-test-data.lisp sbcl-1.2.1/contrib/sb-introspect/.cvsignore sbcl-1.2.1/contrib/sb-introspect/test-driver.lisp sbcl-1.2.1/contrib/sb-introspect/test.lisp sbcl-1.2.1/contrib/sb-introspect/Makefile sbcl-1.2.1/contrib/sb-introspect/xref-test.lisp sbcl-1.2.1/contrib/sb-queue/ sbcl-1.2.1/contrib/sb-queue/package.lisp sbcl-1.2.1/contrib/sb-queue/.cvsignore sbcl-1.2.1/contrib/sb-queue/sb-queue.asd sbcl-1.2.1/contrib/sb-queue/sb-queue.texinfo sbcl-1.2.1/contrib/sb-queue/Makefile sbcl-1.2.1/contrib/stale-symbols.lisp sbcl-1.2.1/contrib/sb-simple-streams/ sbcl-1.2.1/contrib/sb-simple-streams/simple-stream-tests.lisp sbcl-1.2.1/contrib/sb-simple-streams/socket.lisp sbcl-1.2.1/contrib/sb-simple-streams/strategy.lisp sbcl-1.2.1/contrib/sb-simple-streams/null.lisp sbcl-1.2.1/contrib/sb-simple-streams/classes.lisp sbcl-1.2.1/contrib/sb-simple-streams/internal.lisp sbcl-1.2.1/contrib/sb-simple-streams/file.lisp sbcl-1.2.1/contrib/sb-simple-streams/direct.lisp sbcl-1.2.1/contrib/sb-simple-streams/iodefs.lisp sbcl-1.2.1/contrib/sb-simple-streams/impl.lisp sbcl-1.2.1/contrib/sb-simple-streams/sb-simple-streams.asd sbcl-1.2.1/contrib/sb-simple-streams/string.lisp sbcl-1.2.1/contrib/sb-simple-streams/package.lisp sbcl-1.2.1/contrib/sb-simple-streams/sb-simple-streams.texinfo sbcl-1.2.1/contrib/sb-simple-streams/README sbcl-1.2.1/contrib/sb-simple-streams/.cvsignore sbcl-1.2.1/contrib/sb-simple-streams/lp491087.txt sbcl-1.2.1/contrib/sb-simple-streams/fndb.lisp sbcl-1.2.1/contrib/sb-simple-streams/terminal.lisp sbcl-1.2.1/contrib/sb-simple-streams/Makefile sbcl-1.2.1/contrib/sb-simple-streams/TODO sbcl-1.2.1/contrib/asdf/ sbcl-1.2.1/contrib/asdf/README.SBCL sbcl-1.2.1/contrib/asdf/asdf.texinfo sbcl-1.2.1/contrib/asdf/asdf.lisp sbcl-1.2.1/contrib/asdf/README sbcl-1.2.1/contrib/asdf/pull-asdf.sh sbcl-1.2.1/contrib/asdf/.cvsignore sbcl-1.2.1/contrib/asdf/Makefile sbcl-1.2.1/contrib/asdf-stub.lisp sbcl-1.2.1/contrib/sb-sprof/ sbcl-1.2.1/contrib/sb-sprof/sb-sprof.lisp sbcl-1.2.1/contrib/sb-sprof/sb-sprof.texinfo sbcl-1.2.1/contrib/sb-sprof/.cvsignore sbcl-1.2.1/contrib/sb-sprof/test.lisp sbcl-1.2.1/contrib/sb-sprof/Makefile sbcl-1.2.1/contrib/sb-concurrency/ sbcl-1.2.1/contrib/sb-concurrency/mailbox.lisp sbcl-1.2.1/contrib/sb-concurrency/tests/ sbcl-1.2.1/contrib/sb-concurrency/tests/test-gate.lisp sbcl-1.2.1/contrib/sb-concurrency/tests/test-mailbox.lisp sbcl-1.2.1/contrib/sb-concurrency/tests/package.lisp sbcl-1.2.1/contrib/sb-concurrency/tests/test-queue.lisp sbcl-1.2.1/contrib/sb-concurrency/tests/test-frlock.lisp sbcl-1.2.1/contrib/sb-concurrency/tests/test-utils.lisp sbcl-1.2.1/contrib/sb-concurrency/frlock.lisp sbcl-1.2.1/contrib/sb-concurrency/gate.lisp sbcl-1.2.1/contrib/sb-concurrency/sb-concurrency.texinfo sbcl-1.2.1/contrib/sb-concurrency/queue.lisp sbcl-1.2.1/contrib/sb-concurrency/sb-concurrency.asd sbcl-1.2.1/contrib/sb-concurrency/package.lisp sbcl-1.2.1/contrib/sb-concurrency/.cvsignore sbcl-1.2.1/contrib/sb-concurrency/Makefile sbcl-1.2.1/html-distribution.sh sbcl-1.2.1/README sbcl-1.2.1/make-target-contrib.sh sbcl-1.2.1/version.lisp-expr sbcl-1.2.1/make-target-2-load.lisp sbcl-1.2.1/NEWS sbcl-1.2.1/find-gnumake.sh sbcl-1.2.1/tagify.sh sbcl-1.2.1/clean.sh sbcl-1.2.1/make-target-2.sh sbcl-1.2.1/.cvsignore sbcl-1.2.1/src/ sbcl-1.2.1/src/assembly/ sbcl-1.2.1/src/assembly/sparc/ sbcl-1.2.1/src/assembly/sparc/assem-rtns.lisp sbcl-1.2.1/src/assembly/sparc/alloc.lisp sbcl-1.2.1/src/assembly/sparc/arith.lisp sbcl-1.2.1/src/assembly/sparc/support.lisp sbcl-1.2.1/src/assembly/sparc/array.lisp sbcl-1.2.1/src/assembly/x86/ sbcl-1.2.1/src/assembly/x86/assem-rtns.lisp sbcl-1.2.1/src/assembly/x86/alloc.lisp sbcl-1.2.1/src/assembly/x86/bit-bash.lisp sbcl-1.2.1/src/assembly/x86/arith.lisp sbcl-1.2.1/src/assembly/x86/support.lisp sbcl-1.2.1/src/assembly/x86/array.lisp sbcl-1.2.1/src/assembly/alpha/ sbcl-1.2.1/src/assembly/alpha/assem-rtns.lisp sbcl-1.2.1/src/assembly/alpha/alloc.lisp sbcl-1.2.1/src/assembly/alpha/arith.lisp sbcl-1.2.1/src/assembly/alpha/support.lisp sbcl-1.2.1/src/assembly/alpha/array.lisp sbcl-1.2.1/src/assembly/mips/ sbcl-1.2.1/src/assembly/mips/assem-rtns.lisp sbcl-1.2.1/src/assembly/mips/alloc.lisp sbcl-1.2.1/src/assembly/mips/arith.lisp sbcl-1.2.1/src/assembly/mips/support.lisp sbcl-1.2.1/src/assembly/mips/array.lisp sbcl-1.2.1/src/assembly/assemfile.lisp sbcl-1.2.1/src/assembly/arm/ sbcl-1.2.1/src/assembly/arm/assem-rtns.lisp sbcl-1.2.1/src/assembly/arm/alloc.lisp sbcl-1.2.1/src/assembly/arm/arith.lisp sbcl-1.2.1/src/assembly/arm/support.lisp sbcl-1.2.1/src/assembly/arm/array.lisp sbcl-1.2.1/src/assembly/ppc/ sbcl-1.2.1/src/assembly/ppc/assem-rtns.lisp sbcl-1.2.1/src/assembly/ppc/alloc.lisp sbcl-1.2.1/src/assembly/ppc/arith.lisp sbcl-1.2.1/src/assembly/ppc/support.lisp sbcl-1.2.1/src/assembly/ppc/array.lisp sbcl-1.2.1/src/assembly/hppa/ sbcl-1.2.1/src/assembly/hppa/assem-rtns.lisp sbcl-1.2.1/src/assembly/hppa/alloc.lisp sbcl-1.2.1/src/assembly/hppa/arith.lisp sbcl-1.2.1/src/assembly/hppa/support.lisp sbcl-1.2.1/src/assembly/hppa/array.lisp sbcl-1.2.1/src/assembly/x86-64/ sbcl-1.2.1/src/assembly/x86-64/assem-rtns.lisp sbcl-1.2.1/src/assembly/x86-64/alloc.lisp sbcl-1.2.1/src/assembly/x86-64/bit-bash.lisp sbcl-1.2.1/src/assembly/x86-64/arith.lisp sbcl-1.2.1/src/assembly/x86-64/support.lisp sbcl-1.2.1/src/assembly/x86-64/array.lisp sbcl-1.2.1/src/compiler/ sbcl-1.2.1/src/compiler/fopcompile.lisp sbcl-1.2.1/src/compiler/ir1opt.lisp sbcl-1.2.1/src/compiler/compiler-deftype.lisp sbcl-1.2.1/src/compiler/early-assem.lisp sbcl-1.2.1/src/compiler/xref.lisp sbcl-1.2.1/src/compiler/sparc/ sbcl-1.2.1/src/compiler/sparc/values.lisp sbcl-1.2.1/src/compiler/sparc/c-call.lisp sbcl-1.2.1/src/compiler/sparc/target-insts.lisp sbcl-1.2.1/src/compiler/sparc/float.lisp sbcl-1.2.1/src/compiler/sparc/macros.lisp sbcl-1.2.1/src/compiler/sparc/alloc.lisp sbcl-1.2.1/src/compiler/sparc/sap.lisp sbcl-1.2.1/src/compiler/sparc/backend-parms.lisp sbcl-1.2.1/src/compiler/sparc/pred.lisp sbcl-1.2.1/src/compiler/sparc/system.lisp sbcl-1.2.1/src/compiler/sparc/subprim.lisp sbcl-1.2.1/src/compiler/sparc/show.lisp sbcl-1.2.1/src/compiler/sparc/sanctify.lisp sbcl-1.2.1/src/compiler/sparc/nlx.lisp sbcl-1.2.1/src/compiler/sparc/type-vops.lisp sbcl-1.2.1/src/compiler/sparc/move.lisp sbcl-1.2.1/src/compiler/sparc/cell.lisp sbcl-1.2.1/src/compiler/sparc/parms.lisp sbcl-1.2.1/src/compiler/sparc/debug.lisp sbcl-1.2.1/src/compiler/sparc/call.lisp sbcl-1.2.1/src/compiler/sparc/char.lisp sbcl-1.2.1/src/compiler/sparc/arith.lisp sbcl-1.2.1/src/compiler/sparc/static-fn.lisp sbcl-1.2.1/src/compiler/sparc/memory.lisp sbcl-1.2.1/src/compiler/sparc/array.lisp sbcl-1.2.1/src/compiler/sparc/insts.lisp sbcl-1.2.1/src/compiler/sparc/vm.lisp sbcl-1.2.1/src/compiler/disassem.lisp sbcl-1.2.1/src/compiler/x86/ sbcl-1.2.1/src/compiler/x86/values.lisp sbcl-1.2.1/src/compiler/x86/c-call.lisp sbcl-1.2.1/src/compiler/x86/target-insts.lisp sbcl-1.2.1/src/compiler/x86/float.lisp sbcl-1.2.1/src/compiler/x86/macros.lisp sbcl-1.2.1/src/compiler/x86/alloc.lisp sbcl-1.2.1/src/compiler/x86/sap.lisp sbcl-1.2.1/src/compiler/x86/backend-parms.lisp sbcl-1.2.1/src/compiler/x86/pred.lisp sbcl-1.2.1/src/compiler/x86/system.lisp sbcl-1.2.1/src/compiler/x86/subprim.lisp sbcl-1.2.1/src/compiler/x86/show.lisp sbcl-1.2.1/src/compiler/x86/nlx.lisp sbcl-1.2.1/src/compiler/x86/type-vops.lisp sbcl-1.2.1/src/compiler/x86/move.lisp sbcl-1.2.1/src/compiler/x86/cell.lisp sbcl-1.2.1/src/compiler/x86/parms.lisp sbcl-1.2.1/src/compiler/x86/debug.lisp sbcl-1.2.1/src/compiler/x86/call.lisp sbcl-1.2.1/src/compiler/x86/char.lisp sbcl-1.2.1/src/compiler/x86/arith.lisp sbcl-1.2.1/src/compiler/x86/static-fn.lisp sbcl-1.2.1/src/compiler/x86/memory.lisp sbcl-1.2.1/src/compiler/x86/array.lisp sbcl-1.2.1/src/compiler/x86/insts.lisp sbcl-1.2.1/src/compiler/x86/vm.lisp sbcl-1.2.1/src/compiler/info-functions.lisp sbcl-1.2.1/src/compiler/constraint.lisp sbcl-1.2.1/src/compiler/macros.lisp sbcl-1.2.1/src/compiler/compiler-error.lisp sbcl-1.2.1/src/compiler/parse-lambda-list.lisp sbcl-1.2.1/src/compiler/meta-vmdef.lisp sbcl-1.2.1/src/compiler/dyncount.lisp sbcl-1.2.1/src/compiler/loop.lisp sbcl-1.2.1/src/compiler/lexenv.lisp sbcl-1.2.1/src/compiler/copyprop.lisp sbcl-1.2.1/src/compiler/assem.lisp sbcl-1.2.1/src/compiler/typetran.lisp sbcl-1.2.1/src/compiler/fixup-type.lisp sbcl-1.2.1/src/compiler/fixup.lisp sbcl-1.2.1/src/compiler/ltv.lisp sbcl-1.2.1/src/compiler/debug-dump.lisp sbcl-1.2.1/src/compiler/defconstant.lisp sbcl-1.2.1/src/compiler/stack.lisp sbcl-1.2.1/src/compiler/late-proclaim.lisp sbcl-1.2.1/src/compiler/target-disassem.lisp sbcl-1.2.1/src/compiler/target-main.lisp sbcl-1.2.1/src/compiler/entry.lisp sbcl-1.2.1/src/compiler/gtn.lisp sbcl-1.2.1/src/compiler/dfo.lisp sbcl-1.2.1/src/compiler/target-dump.lisp sbcl-1.2.1/src/compiler/ctype.lisp sbcl-1.2.1/src/compiler/ir1util.lisp sbcl-1.2.1/src/compiler/info-vector.lisp sbcl-1.2.1/src/compiler/represent.lisp sbcl-1.2.1/src/compiler/main.lisp sbcl-1.2.1/src/compiler/bit-util.lisp sbcl-1.2.1/src/compiler/ir2opt.lisp sbcl-1.2.1/src/compiler/ir1-translators.lisp sbcl-1.2.1/src/compiler/alpha/ sbcl-1.2.1/src/compiler/alpha/values.lisp sbcl-1.2.1/src/compiler/alpha/c-call.lisp sbcl-1.2.1/src/compiler/alpha/target-insts.lisp sbcl-1.2.1/src/compiler/alpha/float.lisp sbcl-1.2.1/src/compiler/alpha/macros.lisp sbcl-1.2.1/src/compiler/alpha/alloc.lisp sbcl-1.2.1/src/compiler/alpha/sap.lisp sbcl-1.2.1/src/compiler/alpha/backend-parms.lisp sbcl-1.2.1/src/compiler/alpha/pred.lisp sbcl-1.2.1/src/compiler/alpha/system.lisp sbcl-1.2.1/src/compiler/alpha/subprim.lisp sbcl-1.2.1/src/compiler/alpha/show.lisp sbcl-1.2.1/src/compiler/alpha/sanctify.lisp sbcl-1.2.1/src/compiler/alpha/nlx.lisp sbcl-1.2.1/src/compiler/alpha/type-vops.lisp sbcl-1.2.1/src/compiler/alpha/move.lisp sbcl-1.2.1/src/compiler/alpha/cell.lisp sbcl-1.2.1/src/compiler/alpha/parms.lisp sbcl-1.2.1/src/compiler/alpha/debug.lisp sbcl-1.2.1/src/compiler/alpha/call.lisp sbcl-1.2.1/src/compiler/alpha/char.lisp sbcl-1.2.1/src/compiler/alpha/arith.lisp sbcl-1.2.1/src/compiler/alpha/static-fn.lisp sbcl-1.2.1/src/compiler/alpha/memory.lisp sbcl-1.2.1/src/compiler/alpha/array.lisp sbcl-1.2.1/src/compiler/alpha/insts.lisp sbcl-1.2.1/src/compiler/alpha/vm.lisp sbcl-1.2.1/src/compiler/early-c.lisp sbcl-1.2.1/src/compiler/mips/ sbcl-1.2.1/src/compiler/mips/values.lisp sbcl-1.2.1/src/compiler/mips/c-call.lisp sbcl-1.2.1/src/compiler/mips/target-insts.lisp sbcl-1.2.1/src/compiler/mips/float.lisp sbcl-1.2.1/src/compiler/mips/macros.lisp sbcl-1.2.1/src/compiler/mips/alloc.lisp sbcl-1.2.1/src/compiler/mips/sap.lisp sbcl-1.2.1/src/compiler/mips/backend-parms.lisp sbcl-1.2.1/src/compiler/mips/pred.lisp sbcl-1.2.1/src/compiler/mips/system.lisp sbcl-1.2.1/src/compiler/mips/subprim.lisp sbcl-1.2.1/src/compiler/mips/show.lisp sbcl-1.2.1/src/compiler/mips/sanctify.lisp sbcl-1.2.1/src/compiler/mips/nlx.lisp sbcl-1.2.1/src/compiler/mips/type-vops.lisp sbcl-1.2.1/src/compiler/mips/move.lisp sbcl-1.2.1/src/compiler/mips/cell.lisp sbcl-1.2.1/src/compiler/mips/parms.lisp sbcl-1.2.1/src/compiler/mips/debug.lisp sbcl-1.2.1/src/compiler/mips/call.lisp sbcl-1.2.1/src/compiler/mips/char.lisp sbcl-1.2.1/src/compiler/mips/arith.lisp sbcl-1.2.1/src/compiler/mips/static-fn.lisp sbcl-1.2.1/src/compiler/mips/memory.lisp sbcl-1.2.1/src/compiler/mips/array.lisp sbcl-1.2.1/src/compiler/mips/insts.lisp sbcl-1.2.1/src/compiler/mips/vm.lisp sbcl-1.2.1/src/compiler/srctran.lisp sbcl-1.2.1/src/compiler/vop.lisp sbcl-1.2.1/src/compiler/proclaim.lisp sbcl-1.2.1/src/compiler/policies.lisp sbcl-1.2.1/src/compiler/life.lisp sbcl-1.2.1/src/compiler/pack.lisp sbcl-1.2.1/src/compiler/fun-info-funs.lisp sbcl-1.2.1/src/compiler/early-backend.lisp sbcl-1.2.1/src/compiler/ltn.lisp sbcl-1.2.1/src/compiler/ir2tran.lisp sbcl-1.2.1/src/compiler/checkgen.lisp sbcl-1.2.1/src/compiler/arm/ sbcl-1.2.1/src/compiler/arm/values.lisp sbcl-1.2.1/src/compiler/arm/c-call.lisp sbcl-1.2.1/src/compiler/arm/target-insts.lisp sbcl-1.2.1/src/compiler/arm/float.lisp sbcl-1.2.1/src/compiler/arm/macros.lisp sbcl-1.2.1/src/compiler/arm/alloc.lisp sbcl-1.2.1/src/compiler/arm/sap.lisp sbcl-1.2.1/src/compiler/arm/backend-parms.lisp sbcl-1.2.1/src/compiler/arm/pred.lisp sbcl-1.2.1/src/compiler/arm/system.lisp sbcl-1.2.1/src/compiler/arm/subprim.lisp sbcl-1.2.1/src/compiler/arm/show.lisp sbcl-1.2.1/src/compiler/arm/sanctify.lisp sbcl-1.2.1/src/compiler/arm/nlx.lisp sbcl-1.2.1/src/compiler/arm/type-vops.lisp sbcl-1.2.1/src/compiler/arm/move.lisp sbcl-1.2.1/src/compiler/arm/cell.lisp sbcl-1.2.1/src/compiler/arm/parms.lisp sbcl-1.2.1/src/compiler/arm/debug.lisp sbcl-1.2.1/src/compiler/arm/call.lisp sbcl-1.2.1/src/compiler/arm/char.lisp sbcl-1.2.1/src/compiler/arm/arith.lisp sbcl-1.2.1/src/compiler/arm/static-fn.lisp sbcl-1.2.1/src/compiler/arm/memory.lisp sbcl-1.2.1/src/compiler/arm/array.lisp sbcl-1.2.1/src/compiler/arm/insts.lisp sbcl-1.2.1/src/compiler/arm/vm.lisp sbcl-1.2.1/src/compiler/saptran.lisp sbcl-1.2.1/src/compiler/bitops-derive-type.lisp sbcl-1.2.1/src/compiler/ppc/ sbcl-1.2.1/src/compiler/ppc/values.lisp sbcl-1.2.1/src/compiler/ppc/c-call.lisp sbcl-1.2.1/src/compiler/ppc/target-insts.lisp sbcl-1.2.1/src/compiler/ppc/float.lisp sbcl-1.2.1/src/compiler/ppc/macros.lisp sbcl-1.2.1/src/compiler/ppc/alloc.lisp sbcl-1.2.1/src/compiler/ppc/sap.lisp sbcl-1.2.1/src/compiler/ppc/backend-parms.lisp sbcl-1.2.1/src/compiler/ppc/pred.lisp sbcl-1.2.1/src/compiler/ppc/system.lisp sbcl-1.2.1/src/compiler/ppc/subprim.lisp sbcl-1.2.1/src/compiler/ppc/show.lisp sbcl-1.2.1/src/compiler/ppc/sanctify.lisp sbcl-1.2.1/src/compiler/ppc/nlx.lisp sbcl-1.2.1/src/compiler/ppc/type-vops.lisp sbcl-1.2.1/src/compiler/ppc/move.lisp sbcl-1.2.1/src/compiler/ppc/cell.lisp sbcl-1.2.1/src/compiler/ppc/parms.lisp sbcl-1.2.1/src/compiler/ppc/debug.lisp sbcl-1.2.1/src/compiler/ppc/call.lisp sbcl-1.2.1/src/compiler/ppc/char.lisp sbcl-1.2.1/src/compiler/ppc/arith.lisp sbcl-1.2.1/src/compiler/ppc/static-fn.lisp sbcl-1.2.1/src/compiler/ppc/memory.lisp sbcl-1.2.1/src/compiler/ppc/array.lisp sbcl-1.2.1/src/compiler/ppc/insts.lisp sbcl-1.2.1/src/compiler/ppc/vm.lisp sbcl-1.2.1/src/compiler/backend.lisp sbcl-1.2.1/src/compiler/debug.lisp sbcl-1.2.1/src/compiler/policy.lisp sbcl-1.2.1/src/compiler/locall.lisp sbcl-1.2.1/src/compiler/hppa/ sbcl-1.2.1/src/compiler/hppa/values.lisp sbcl-1.2.1/src/compiler/hppa/c-call.lisp sbcl-1.2.1/src/compiler/hppa/target-insts.lisp sbcl-1.2.1/src/compiler/hppa/float.lisp sbcl-1.2.1/src/compiler/hppa/macros.lisp sbcl-1.2.1/src/compiler/hppa/alloc.lisp sbcl-1.2.1/src/compiler/hppa/sap.lisp sbcl-1.2.1/src/compiler/hppa/backend-parms.lisp sbcl-1.2.1/src/compiler/hppa/pred.lisp sbcl-1.2.1/src/compiler/hppa/system.lisp sbcl-1.2.1/src/compiler/hppa/subprim.lisp sbcl-1.2.1/src/compiler/hppa/show.lisp sbcl-1.2.1/src/compiler/hppa/sanctify.lisp sbcl-1.2.1/src/compiler/hppa/nlx.lisp sbcl-1.2.1/src/compiler/hppa/type-vops.lisp sbcl-1.2.1/src/compiler/hppa/move.lisp sbcl-1.2.1/src/compiler/hppa/cell.lisp sbcl-1.2.1/src/compiler/hppa/parms.lisp sbcl-1.2.1/src/compiler/hppa/debug.lisp sbcl-1.2.1/src/compiler/hppa/call.lisp sbcl-1.2.1/src/compiler/hppa/char.lisp sbcl-1.2.1/src/compiler/hppa/arith.lisp sbcl-1.2.1/src/compiler/hppa/static-fn.lisp sbcl-1.2.1/src/compiler/hppa/memory.lisp sbcl-1.2.1/src/compiler/hppa/array.lisp sbcl-1.2.1/src/compiler/hppa/insts.lisp sbcl-1.2.1/src/compiler/hppa/vm.lisp sbcl-1.2.1/src/compiler/pack-iterative.lisp sbcl-1.2.1/src/compiler/ir1tran.lisp sbcl-1.2.1/src/compiler/node.lisp sbcl-1.2.1/src/compiler/late-vmdef.lisp sbcl-1.2.1/src/compiler/pseudo-vops.lisp sbcl-1.2.1/src/compiler/globaldb.lisp sbcl-1.2.1/src/compiler/generic/ sbcl-1.2.1/src/compiler/generic/vm-type.lisp sbcl-1.2.1/src/compiler/generic/early-vm.lisp sbcl-1.2.1/src/compiler/generic/vm-tran.lisp sbcl-1.2.1/src/compiler/generic/interr.lisp sbcl-1.2.1/src/compiler/generic/early-type-vops.lisp sbcl-1.2.1/src/compiler/generic/primtype.lisp sbcl-1.2.1/src/compiler/generic/vm-fndb.lisp sbcl-1.2.1/src/compiler/generic/early-objdef.lisp sbcl-1.2.1/src/compiler/generic/objdef.lisp sbcl-1.2.1/src/compiler/generic/vm-ir2tran.lisp sbcl-1.2.1/src/compiler/generic/genesis.lisp sbcl-1.2.1/src/compiler/generic/vm-macs.lisp sbcl-1.2.1/src/compiler/generic/vm-typetran.lisp sbcl-1.2.1/src/compiler/generic/parms.lisp sbcl-1.2.1/src/compiler/generic/late-objdef.lisp sbcl-1.2.1/src/compiler/generic/core.lisp sbcl-1.2.1/src/compiler/generic/type-error.lisp sbcl-1.2.1/src/compiler/generic/target-core.lisp sbcl-1.2.1/src/compiler/generic/vm-array.lisp sbcl-1.2.1/src/compiler/generic/late-nlx.lisp sbcl-1.2.1/src/compiler/generic/late-type-vops.lisp sbcl-1.2.1/src/compiler/generic/utils.lisp sbcl-1.2.1/src/compiler/array-tran.lisp sbcl-1.2.1/src/compiler/float-tran.lisp sbcl-1.2.1/src/compiler/deftype.lisp sbcl-1.2.1/src/compiler/control.lisp sbcl-1.2.1/src/compiler/aliencomp.lisp sbcl-1.2.1/src/compiler/x86-64/ sbcl-1.2.1/src/compiler/x86-64/values.lisp sbcl-1.2.1/src/compiler/x86-64/c-call.lisp sbcl-1.2.1/src/compiler/x86-64/target-insts.lisp sbcl-1.2.1/src/compiler/x86-64/float.lisp sbcl-1.2.1/src/compiler/x86-64/simd-pack.lisp sbcl-1.2.1/src/compiler/x86-64/macros.lisp sbcl-1.2.1/src/compiler/x86-64/alloc.lisp sbcl-1.2.1/src/compiler/x86-64/sap.lisp sbcl-1.2.1/src/compiler/x86-64/backend-parms.lisp sbcl-1.2.1/src/compiler/x86-64/pred.lisp sbcl-1.2.1/src/compiler/x86-64/system.lisp sbcl-1.2.1/src/compiler/x86-64/subprim.lisp sbcl-1.2.1/src/compiler/x86-64/show.lisp sbcl-1.2.1/src/compiler/x86-64/nlx.lisp sbcl-1.2.1/src/compiler/x86-64/type-vops.lisp sbcl-1.2.1/src/compiler/x86-64/move.lisp sbcl-1.2.1/src/compiler/x86-64/cell.lisp sbcl-1.2.1/src/compiler/x86-64/parms.lisp sbcl-1.2.1/src/compiler/x86-64/debug.lisp sbcl-1.2.1/src/compiler/x86-64/call.lisp sbcl-1.2.1/src/compiler/x86-64/char.lisp sbcl-1.2.1/src/compiler/x86-64/arith.lisp sbcl-1.2.1/src/compiler/x86-64/static-fn.lisp sbcl-1.2.1/src/compiler/x86-64/memory.lisp sbcl-1.2.1/src/compiler/x86-64/array.lisp sbcl-1.2.1/src/compiler/x86-64/insts.lisp sbcl-1.2.1/src/compiler/x86-64/vm.lisp sbcl-1.2.1/src/compiler/fndb.lisp sbcl-1.2.1/src/compiler/seqtran.lisp sbcl-1.2.1/src/compiler/integer-tran.lisp sbcl-1.2.1/src/compiler/early-aliencomp.lisp sbcl-1.2.1/src/compiler/constantp.lisp sbcl-1.2.1/src/compiler/vmdef.lisp sbcl-1.2.1/src/compiler/knownfun.lisp sbcl-1.2.1/src/compiler/tn.lisp sbcl-1.2.1/src/compiler/sset.lisp sbcl-1.2.1/src/compiler/ir1tran-lambda.lisp sbcl-1.2.1/src/compiler/ir1final.lisp sbcl-1.2.1/src/compiler/late-macros.lisp sbcl-1.2.1/src/compiler/dump.lisp sbcl-1.2.1/src/compiler/ir1report.lisp sbcl-1.2.1/src/compiler/physenvanal.lisp sbcl-1.2.1/src/compiler/codegen.lisp sbcl-1.2.1/src/cold/ sbcl-1.2.1/src/cold/shebang.lisp sbcl-1.2.1/src/cold/compile-cold-sbcl.lisp sbcl-1.2.1/src/cold/snapshot.lisp sbcl-1.2.1/src/cold/warm.lisp sbcl-1.2.1/src/cold/slam.lisp sbcl-1.2.1/src/cold/defun-load-or-cload-xcompiler.lisp sbcl-1.2.1/src/cold/with-stuff.lisp sbcl-1.2.1/src/cold/chill.lisp sbcl-1.2.1/src/cold/rename-package-carefully.lisp sbcl-1.2.1/src/cold/ansify.lisp sbcl-1.2.1/src/cold/read-from-file.lisp sbcl-1.2.1/src/cold/shared.lisp sbcl-1.2.1/src/cold/set-up-cold-packages.lisp sbcl-1.2.1/src/pcl/ sbcl-1.2.1/src/pcl/low.lisp sbcl-1.2.1/src/pcl/combin.lisp sbcl-1.2.1/src/pcl/vector.lisp sbcl-1.2.1/src/pcl/fsc.lisp sbcl-1.2.1/src/pcl/documentation.lisp sbcl-1.2.1/src/pcl/macros.lisp sbcl-1.2.1/src/pcl/fixup.lisp sbcl-1.2.1/src/pcl/precom1.lisp sbcl-1.2.1/src/pcl/wrapper.lisp sbcl-1.2.1/src/pcl/slots-boot.lisp sbcl-1.2.1/src/pcl/defs.lisp sbcl-1.2.1/src/pcl/time.lisp sbcl-1.2.1/src/pcl/dlisp.lisp sbcl-1.2.1/src/pcl/boot.lisp sbcl-1.2.1/src/pcl/ctor.lisp sbcl-1.2.1/src/pcl/ctypes.lisp sbcl-1.2.1/src/pcl/slots.lisp sbcl-1.2.1/src/pcl/env.lisp sbcl-1.2.1/src/pcl/dfun.lisp sbcl-1.2.1/src/pcl/methods.lisp sbcl-1.2.1/src/pcl/defcombin.lisp sbcl-1.2.1/src/pcl/std-class.lisp sbcl-1.2.1/src/pcl/gray-streams-class.lisp sbcl-1.2.1/src/pcl/cpl.lisp sbcl-1.2.1/src/pcl/compiler-support.lisp sbcl-1.2.1/src/pcl/slot-name.lisp sbcl-1.2.1/src/pcl/sequence.lisp sbcl-1.2.1/src/pcl/braid.lisp sbcl-1.2.1/src/pcl/generic-functions.lisp sbcl-1.2.1/src/pcl/precom2.lisp sbcl-1.2.1/src/pcl/print-object.lisp sbcl-1.2.1/src/pcl/fngen.lisp sbcl-1.2.1/src/pcl/walk.lisp sbcl-1.2.1/src/pcl/cache.lisp sbcl-1.2.1/src/pcl/gray-streams.lisp sbcl-1.2.1/src/pcl/defclass.lisp sbcl-1.2.1/src/pcl/early-low.lisp sbcl-1.2.1/src/pcl/dlisp3.lisp sbcl-1.2.1/src/pcl/init.lisp sbcl-1.2.1/src/code/ sbcl-1.2.1/src/code/describe-policy.lisp sbcl-1.2.1/src/code/sort.lisp sbcl-1.2.1/src/code/defmacro.lisp sbcl-1.2.1/src/code/sc-offset.lisp sbcl-1.2.1/src/code/target-load.lisp sbcl-1.2.1/src/code/mips-vm.lisp sbcl-1.2.1/src/code/parse-defmacro-errors.lisp sbcl-1.2.1/src/code/ppc-vm.lisp sbcl-1.2.1/src/code/alien-type.lisp sbcl-1.2.1/src/code/x86-vm.lisp sbcl-1.2.1/src/code/final.lisp sbcl-1.2.1/src/code/cold-error.lisp sbcl-1.2.1/src/code/float.lisp sbcl-1.2.1/src/code/kernel.lisp sbcl-1.2.1/src/code/target-stream.lisp sbcl-1.2.1/src/code/early-alieneval.lisp sbcl-1.2.1/src/code/purify.lisp sbcl-1.2.1/src/code/cl-specials.lisp sbcl-1.2.1/src/code/arm-vm.lisp sbcl-1.2.1/src/code/alpha-vm.lisp sbcl-1.2.1/src/code/sharpm.lisp sbcl-1.2.1/src/code/linkage-table.lisp sbcl-1.2.1/src/code/macros.lisp sbcl-1.2.1/src/code/type-init.lisp sbcl-1.2.1/src/code/cross-early.lisp sbcl-1.2.1/src/code/thread.lisp sbcl-1.2.1/src/code/filesys.lisp sbcl-1.2.1/src/code/alloc.lisp sbcl-1.2.1/src/code/late-setf.lisp sbcl-1.2.1/src/code/numbers.lisp sbcl-1.2.1/src/code/bit-bash.lisp sbcl-1.2.1/src/code/early-raw-slots.lisp sbcl-1.2.1/src/code/defsetfs.lisp sbcl-1.2.1/src/code/cross-thread.lisp sbcl-1.2.1/src/code/dyncount.lisp sbcl-1.2.1/src/code/loop.lisp sbcl-1.2.1/src/code/target-sap.lisp sbcl-1.2.1/src/code/uncross.lisp sbcl-1.2.1/src/code/pathname.lisp sbcl-1.2.1/src/code/eval.lisp sbcl-1.2.1/src/code/host-c-call.lisp sbcl-1.2.1/src/code/target-type.lisp sbcl-1.2.1/src/code/bsd-os.lisp sbcl-1.2.1/src/code/early-defstruct-args.lisp-expr sbcl-1.2.1/src/code/hpux-os.lisp sbcl-1.2.1/src/code/typedefs.lisp sbcl-1.2.1/src/code/target-error.lisp sbcl-1.2.1/src/code/late-defbangmethod.lisp sbcl-1.2.1/src/code/android-os.lisp sbcl-1.2.1/src/code/fdefinition.lisp sbcl-1.2.1/src/code/deadline.lisp sbcl-1.2.1/src/code/hash-table.lisp sbcl-1.2.1/src/code/cross-condition.lisp sbcl-1.2.1/src/code/early-defstructs.lisp sbcl-1.2.1/src/code/unportable-float.lisp sbcl-1.2.1/src/code/primordial-extensions.lisp sbcl-1.2.1/src/code/win32-pathname.lisp sbcl-1.2.1/src/code/interr.lisp sbcl-1.2.1/src/code/target-format.lisp sbcl-1.2.1/src/code/error.lisp sbcl-1.2.1/src/code/octets.lisp sbcl-1.2.1/src/code/force-delayed-defbangconstants.lisp sbcl-1.2.1/src/code/unix.lisp sbcl-1.2.1/src/code/barrier.lisp sbcl-1.2.1/src/code/pred.lisp sbcl-1.2.1/src/code/class.lisp sbcl-1.2.1/src/code/fd-stream.lisp sbcl-1.2.1/src/code/specializable-array.lisp sbcl-1.2.1/src/code/sxhash.lisp sbcl-1.2.1/src/code/gc.lisp sbcl-1.2.1/src/code/target-defstruct.lisp sbcl-1.2.1/src/code/time.lisp sbcl-1.2.1/src/code/misc-aliens.lisp sbcl-1.2.1/src/code/defbangtype.lisp sbcl-1.2.1/src/code/late-deftypes-for-target.lisp sbcl-1.2.1/src/code/unix-pathname.lisp sbcl-1.2.1/src/code/stream.lisp sbcl-1.2.1/src/code/force-delayed-defbangmethods.lisp sbcl-1.2.1/src/code/early-setf.lisp sbcl-1.2.1/src/code/force-delayed-defbangmacros.lisp sbcl-1.2.1/src/code/toplevel.lisp sbcl-1.2.1/src/code/funutils.lisp sbcl-1.2.1/src/code/save.lisp sbcl-1.2.1/src/code/target-exception.lisp sbcl-1.2.1/src/code/bignum-random.lisp sbcl-1.2.1/src/code/macroexpand.lisp sbcl-1.2.1/src/code/describe.lisp sbcl-1.2.1/src/code/unix-foreign-load.lisp sbcl-1.2.1/src/code/defbangconstant.lisp sbcl-1.2.1/src/code/defpackage.lisp sbcl-1.2.1/src/code/host-alieneval.lisp sbcl-1.2.1/src/code/cross-io.lisp sbcl-1.2.1/src/code/pprint.lisp sbcl-1.2.1/src/code/mipsstrops.lisp sbcl-1.2.1/src/code/hppa-vm.lisp sbcl-1.2.1/src/code/cross-boole.lisp sbcl-1.2.1/src/code/signal.lisp sbcl-1.2.1/src/code/debug-int.lisp sbcl-1.2.1/src/code/setf-funs.lisp sbcl-1.2.1/src/code/string.lisp sbcl-1.2.1/src/code/early-type.lisp sbcl-1.2.1/src/code/warm-lib.lisp sbcl-1.2.1/src/code/linux-os.lisp sbcl-1.2.1/src/code/error-error.lisp sbcl-1.2.1/src/code/debug-var-io.lisp sbcl-1.2.1/src/code/early-fasl.lisp sbcl-1.2.1/src/code/host-pprint.lisp sbcl-1.2.1/src/code/target-sxhash.lisp sbcl-1.2.1/src/code/package.lisp sbcl-1.2.1/src/code/exhaust.lisp sbcl-1.2.1/src/code/defbangstruct.lisp sbcl-1.2.1/src/code/target-package.lisp sbcl-1.2.1/src/code/target-thread.lisp sbcl-1.2.1/src/code/irrat.lisp sbcl-1.2.1/src/code/defstruct.lisp sbcl-1.2.1/src/code/cross-float.lisp sbcl-1.2.1/src/code/late-condition.lisp sbcl-1.2.1/src/code/early-thread.lisp sbcl-1.2.1/src/code/early-format.lisp sbcl-1.2.1/src/code/late-extensions.lisp sbcl-1.2.1/src/code/misc.lisp sbcl-1.2.1/src/code/show.lisp sbcl-1.2.1/src/code/sparc-vm.lisp sbcl-1.2.1/src/code/load.lisp sbcl-1.2.1/src/code/cas.lisp sbcl-1.2.1/src/code/defboot.lisp sbcl-1.2.1/src/code/early-step.lisp sbcl-1.2.1/src/code/late-type.lisp sbcl-1.2.1/src/code/fop.lisp sbcl-1.2.1/src/code/sysmacs.lisp sbcl-1.2.1/src/code/class-init.lisp sbcl-1.2.1/src/code/serve-event.lisp sbcl-1.2.1/src/code/early-array.lisp sbcl-1.2.1/src/code/x86-64-vm.lisp sbcl-1.2.1/src/code/globals.lisp sbcl-1.2.1/src/code/timer.lisp sbcl-1.2.1/src/code/parse-defmacro.lisp sbcl-1.2.1/src/code/common-os.lisp sbcl-1.2.1/src/code/cross-sap.lisp sbcl-1.2.1/src/code/debug-info.lisp sbcl-1.2.1/src/code/readtable.lisp sbcl-1.2.1/src/code/cross-modular.lisp sbcl-1.2.1/src/code/module.lisp sbcl-1.2.1/src/code/cross-type.lisp sbcl-1.2.1/src/code/target-alieneval.lisp sbcl-1.2.1/src/code/win32.lisp sbcl-1.2.1/src/code/seq.lisp sbcl-1.2.1/src/code/debug.lisp sbcl-1.2.1/src/code/huffman.lisp sbcl-1.2.1/src/code/cross-byte.lisp sbcl-1.2.1/src/code/foreign.lisp sbcl-1.2.1/src/code/bignum.lisp sbcl-1.2.1/src/code/reader.lisp sbcl-1.2.1/src/code/cold-init-helper-macros.lisp sbcl-1.2.1/src/code/early-constants.lisp sbcl-1.2.1/src/code/cross-char.lisp sbcl-1.2.1/src/code/early-cl.lisp sbcl-1.2.1/src/code/xset.lisp sbcl-1.2.1/src/code/step.lisp sbcl-1.2.1/src/code/full-eval.lisp sbcl-1.2.1/src/code/target-char.lisp sbcl-1.2.1/src/code/run-program.lisp sbcl-1.2.1/src/code/function-names.lisp sbcl-1.2.1/src/code/early-source-location.lisp sbcl-1.2.1/src/code/cross-make-load-form.lisp sbcl-1.2.1/src/code/foreign-load.lisp sbcl-1.2.1/src/code/early-defbangmethod.lisp sbcl-1.2.1/src/code/early-time.lisp sbcl-1.2.1/src/code/stubs.lisp sbcl-1.2.1/src/code/target-random.lisp sbcl-1.2.1/src/code/external-formats/ sbcl-1.2.1/src/code/external-formats/enc-cn.lisp sbcl-1.2.1/src/code/external-formats/enc-basic.lisp sbcl-1.2.1/src/code/external-formats/enc-cyr.lisp sbcl-1.2.1/src/code/external-formats/enc-utf.lisp sbcl-1.2.1/src/code/external-formats/enc-mac.lisp sbcl-1.2.1/src/code/external-formats/enc-ucs.lisp sbcl-1.2.1/src/code/external-formats/enc-cn-tbl.lisp sbcl-1.2.1/src/code/external-formats/enc-iso.lisp sbcl-1.2.1/src/code/external-formats/enc-ebcdic.lisp sbcl-1.2.1/src/code/external-formats/enc-dos.lisp sbcl-1.2.1/src/code/external-formats/enc-jpn-tbl.lisp sbcl-1.2.1/src/code/external-formats/mb-util.lisp sbcl-1.2.1/src/code/external-formats/enc-jpn.lisp sbcl-1.2.1/src/code/external-formats/enc-win.lisp sbcl-1.2.1/src/code/sunos-os.lisp sbcl-1.2.1/src/code/condition.lisp sbcl-1.2.1/src/code/target-misc.lisp sbcl-1.2.1/src/code/parse-body.lisp sbcl-1.2.1/src/code/source-location.lisp sbcl-1.2.1/src/code/room.lisp sbcl-1.2.1/src/code/early-package.lisp sbcl-1.2.1/src/code/char.lisp sbcl-1.2.1/src/code/format-time.lisp sbcl-1.2.1/src/code/print.lisp sbcl-1.2.1/src/code/early-pprint.lisp sbcl-1.2.1/src/code/ansi-stream.lisp sbcl-1.2.1/src/code/target-allocate.lisp sbcl-1.2.1/src/code/symbol.lisp sbcl-1.2.1/src/code/profile.lisp sbcl-1.2.1/src/code/coerce.lisp sbcl-1.2.1/src/code/target-signal.lisp sbcl-1.2.1/src/code/primordial-type.lisp sbcl-1.2.1/src/code/query.lisp sbcl-1.2.1/src/code/defbangmacro.lisp sbcl-1.2.1/src/code/target-c-call.lisp sbcl-1.2.1/src/code/float-trap.lisp sbcl-1.2.1/src/code/target-defbangmethod.lisp sbcl-1.2.1/src/code/early-print.lisp sbcl-1.2.1/src/code/backq.lisp sbcl-1.2.1/src/code/early-float.lisp sbcl-1.2.1/src/code/target-pathname.lisp sbcl-1.2.1/src/code/ntrace.lisp sbcl-1.2.1/src/code/osf1-os.lisp sbcl-1.2.1/src/code/destructuring-bind.lisp sbcl-1.2.1/src/code/win32-os.lisp sbcl-1.2.1/src/code/early-full-eval.lisp sbcl-1.2.1/src/code/win32-foreign-load.lisp sbcl-1.2.1/src/code/pp-backq.lisp sbcl-1.2.1/src/code/inspect.lisp sbcl-1.2.1/src/code/late-format.lisp sbcl-1.2.1/src/code/type-class.lisp sbcl-1.2.1/src/code/array.lisp sbcl-1.2.1/src/code/list.lisp sbcl-1.2.1/src/code/target-hash-table.lisp sbcl-1.2.1/src/code/cross-misc.lisp sbcl-1.2.1/src/code/typep.lisp sbcl-1.2.1/src/code/deftypes-for-target.lisp sbcl-1.2.1/src/code/random.lisp sbcl-1.2.1/src/code/warm-mswin.lisp sbcl-1.2.1/src/code/late-cas.lisp sbcl-1.2.1/src/code/cold-init.lisp sbcl-1.2.1/src/code/force-delayed-defbangstructs.lisp sbcl-1.2.1/src/code/early-extensions.lisp sbcl-1.2.1/src/code/weak.lisp sbcl-1.2.1/src/code/early-impl.lisp sbcl-1.2.1/src/code/target-extensions.lisp sbcl-1.2.1/src/runtime/ sbcl-1.2.1/src/runtime/thread.c sbcl-1.2.1/src/runtime/Config.x86-netbsd sbcl-1.2.1/src/runtime/Config.x86-win32 sbcl-1.2.1/src/runtime/gencgc.c sbcl-1.2.1/src/runtime/regnames.c sbcl-1.2.1/src/runtime/sparc-arch.c sbcl-1.2.1/src/runtime/pthread-futex.c sbcl-1.2.1/src/runtime/darwin-os.h sbcl-1.2.1/src/runtime/pthreads_win32.c sbcl-1.2.1/src/runtime/run-program.c sbcl-1.2.1/src/runtime/interrupt.h sbcl-1.2.1/src/runtime/parse.h sbcl-1.2.1/src/runtime/arm-android-os.h sbcl-1.2.1/src/runtime/ppc-bsd-os.c sbcl-1.2.1/src/runtime/x86-64-sunos-os.c sbcl-1.2.1/src/runtime/ppc-linux-os.c sbcl-1.2.1/src/runtime/alpha-arch.c sbcl-1.2.1/src/runtime/Config.ppc-openbsd sbcl-1.2.1/src/runtime/gc.h sbcl-1.2.1/src/runtime/ppc-darwin-os.h sbcl-1.2.1/src/runtime/ppc-arch.c sbcl-1.2.1/src/runtime/arm-lispregs.h sbcl-1.2.1/src/runtime/hppa-linux-os.h sbcl-1.2.1/src/runtime/gencgc.h sbcl-1.2.1/src/runtime/arm-linux-os.c sbcl-1.2.1/src/runtime/x86-64-bsd-os.c sbcl-1.2.1/src/runtime/alpha-arch.h sbcl-1.2.1/src/runtime/interr.c sbcl-1.2.1/src/runtime/util.c sbcl-1.2.1/src/runtime/alpha-osf1-os.h sbcl-1.2.1/src/runtime/breakpoint.h sbcl-1.2.1/src/runtime/mips-lispregs.h sbcl-1.2.1/src/runtime/Config.x86-64-netbsd sbcl-1.2.1/src/runtime/alpha-osf1-os.c sbcl-1.2.1/src/runtime/hppa-linux-os.c sbcl-1.2.1/src/runtime/Config.ppc-darwin sbcl-1.2.1/src/runtime/print.h sbcl-1.2.1/src/runtime/android-os.h sbcl-1.2.1/src/runtime/ld-script.alpha-linux sbcl-1.2.1/src/runtime/print.c sbcl-1.2.1/src/runtime/sparc-arch.h sbcl-1.2.1/src/runtime/cheneygc-internal.h sbcl-1.2.1/src/runtime/Config.x86-64-darwin sbcl-1.2.1/src/runtime/x86-64-darwin-os.c sbcl-1.2.1/src/runtime/wrap.c sbcl-1.2.1/src/runtime/undefineds.h sbcl-1.2.1/src/runtime/time.c sbcl-1.2.1/src/runtime/bsd-os.c sbcl-1.2.1/src/runtime/android-os.c sbcl-1.2.1/src/runtime/x86-64-arch.h sbcl-1.2.1/src/runtime/x86-arch.c sbcl-1.2.1/src/runtime/osf1-os.c sbcl-1.2.1/src/runtime/hppa-arch.c sbcl-1.2.1/src/runtime/alpha-lispregs.h sbcl-1.2.1/src/runtime/Config.x86-64-freebsd sbcl-1.2.1/src/runtime/hpux-os.h sbcl-1.2.1/src/runtime/Config.alpha-osf1 sbcl-1.2.1/src/runtime/x86-darwin-os.c sbcl-1.2.1/src/runtime/cheneygc.c sbcl-1.2.1/src/runtime/arm-linux-os.h sbcl-1.2.1/src/runtime/sunos-os.h sbcl-1.2.1/src/runtime/Config.sparc-netbsd sbcl-1.2.1/src/runtime/gc-internal.h sbcl-1.2.1/src/runtime/Config.mips-linux sbcl-1.2.1/src/runtime/x86-64-assem.S sbcl-1.2.1/src/runtime/Config.hppa-hpux sbcl-1.2.1/src/runtime/globals.h sbcl-1.2.1/src/runtime/vars.c sbcl-1.2.1/src/runtime/safepoint.c sbcl-1.2.1/src/runtime/win32-thread-private-events.h sbcl-1.2.1/src/runtime/Config.x86-64-dragonfly sbcl-1.2.1/src/runtime/ppc-bsd-os.h sbcl-1.2.1/src/runtime/x86-64-linux-os.c sbcl-1.2.1/src/runtime/search.c sbcl-1.2.1/src/runtime/sparc-sunos-os.c sbcl-1.2.1/src/runtime/validate.h sbcl-1.2.1/src/runtime/os-common.c sbcl-1.2.1/src/runtime/x86-64-darwin-os.h sbcl-1.2.1/src/runtime/trymap.c sbcl-1.2.1/src/runtime/x86-sunos-os.c sbcl-1.2.1/src/runtime/cpputil.h sbcl-1.2.1/src/runtime/interrupt.c sbcl-1.2.1/src/runtime/sparc-sunos-os.h sbcl-1.2.1/src/runtime/breakpoint.c sbcl-1.2.1/src/runtime/x86-bsd-os.c sbcl-1.2.1/src/runtime/Config.x86-darwin sbcl-1.2.1/src/runtime/linux-os.h sbcl-1.2.1/src/runtime/mips-arch.c sbcl-1.2.1/src/runtime/hppa-hpux-os.c sbcl-1.2.1/src/runtime/osf1-os.h sbcl-1.2.1/src/runtime/linux-os.c sbcl-1.2.1/src/runtime/sparc-assem.S sbcl-1.2.1/src/runtime/alloc.h sbcl-1.2.1/src/runtime/parse.c sbcl-1.2.1/src/runtime/os.h sbcl-1.2.1/src/runtime/interr.h sbcl-1.2.1/src/runtime/sparc-linux-os.h sbcl-1.2.1/src/runtime/mips-linux-os.h sbcl-1.2.1/src/runtime/Config.x86-64-linux sbcl-1.2.1/src/runtime/search.h sbcl-1.2.1/src/runtime/ppc-arch.h sbcl-1.2.1/src/runtime/linux-nm sbcl-1.2.1/src/runtime/coreparse.c sbcl-1.2.1/src/runtime/Config.generic-openbsd sbcl-1.2.1/src/runtime/x86-64-win32-os.h sbcl-1.2.1/src/runtime/purify.h sbcl-1.2.1/src/runtime/dynbind.h sbcl-1.2.1/src/runtime/alpha-assem.S sbcl-1.2.1/src/runtime/x86-64-lispregs.h sbcl-1.2.1/src/runtime/x86-64-arch.c sbcl-1.2.1/src/runtime/fixnump.h sbcl-1.2.1/src/runtime/mips-arch.h sbcl-1.2.1/src/runtime/bsd-os.h sbcl-1.2.1/src/runtime/Config.alpha-linux sbcl-1.2.1/src/runtime/ppc-lispregs.h sbcl-1.2.1/src/runtime/x86-linux-os.h sbcl-1.2.1/src/runtime/util.h sbcl-1.2.1/src/runtime/win32-os.h sbcl-1.2.1/src/runtime/purify.c sbcl-1.2.1/src/runtime/x86-win32-os.c sbcl-1.2.1/src/runtime/mswin.def sbcl-1.2.1/src/runtime/vars.h sbcl-1.2.1/src/runtime/save.h sbcl-1.2.1/src/runtime/Config.arm-linux sbcl-1.2.1/src/runtime/monitor.h sbcl-1.2.1/src/runtime/hppa-lispregs.h sbcl-1.2.1/src/runtime/validate.c sbcl-1.2.1/src/runtime/funcall.c sbcl-1.2.1/src/runtime/pseudo-atomic.h sbcl-1.2.1/src/runtime/x86-lispregs.h sbcl-1.2.1/src/runtime/core.h sbcl-1.2.1/src/runtime/arm-arch.h sbcl-1.2.1/src/runtime/ppc-darwin-os.c sbcl-1.2.1/src/runtime/Config.x86-64-win32 sbcl-1.2.1/src/runtime/undefineds.c sbcl-1.2.1/src/runtime/alloc.c sbcl-1.2.1/src/runtime/Config.x86-64-sunos sbcl-1.2.1/src/runtime/runtime.h sbcl-1.2.1/src/runtime/hpux-os.c sbcl-1.2.1/src/runtime/Config.x86-64-openbsd sbcl-1.2.1/src/runtime/mips-assem.S sbcl-1.2.1/src/runtime/.cvsignore sbcl-1.2.1/src/runtime/darwin-os.c sbcl-1.2.1/src/runtime/arch.h sbcl-1.2.1/src/runtime/x86-64-sunos-os.h sbcl-1.2.1/src/runtime/Config.ppc-linux sbcl-1.2.1/src/runtime/sparc-bsd-os.h sbcl-1.2.1/src/runtime/sparc-lispregs.h sbcl-1.2.1/src/runtime/alpha-linux-os.h sbcl-1.2.1/src/runtime/Config.ppc-netbsd sbcl-1.2.1/src/runtime/wrap.h sbcl-1.2.1/src/runtime/arm-assem.S sbcl-1.2.1/src/runtime/ppc-linux-os.h sbcl-1.2.1/src/runtime/x86-64-win32-os.c sbcl-1.2.1/src/runtime/gencgc-internal.h sbcl-1.2.1/src/runtime/x86-win32-os.h sbcl-1.2.1/src/runtime/save.c sbcl-1.2.1/src/runtime/x86-assem.S sbcl-1.2.1/src/runtime/alpha-linux-os.c sbcl-1.2.1/src/runtime/Config.x86-linux sbcl-1.2.1/src/runtime/thread.h sbcl-1.2.1/src/runtime/x86-darwin-os.h sbcl-1.2.1/src/runtime/Config.sparc-sunos sbcl-1.2.1/src/runtime/hppa-arch.h sbcl-1.2.1/src/runtime/sunos-os.c sbcl-1.2.1/src/runtime/Config.x86-bsd sbcl-1.2.1/src/runtime/x86-linux-os.c sbcl-1.2.1/src/runtime/Config.sparc-linux sbcl-1.2.1/src/runtime/win32-os.c sbcl-1.2.1/src/runtime/arm-arch.c sbcl-1.2.1/src/runtime/monitor.c sbcl-1.2.1/src/runtime/Config.x86-64-bsd sbcl-1.2.1/src/runtime/Config.x86-openbsd sbcl-1.2.1/src/runtime/Config.hppa-linux sbcl-1.2.1/src/runtime/sparc-bsd-os.c sbcl-1.2.1/src/runtime/sparc-linux-os.c sbcl-1.2.1/src/runtime/hppa-hpux-os.h sbcl-1.2.1/src/runtime/lispregs.h sbcl-1.2.1/src/runtime/mswin64.def sbcl-1.2.1/src/runtime/gencgc-alloc-region.h sbcl-1.2.1/src/runtime/x86-sunos-os.h sbcl-1.2.1/src/runtime/Config.arm-android sbcl-1.2.1/src/runtime/hppa-assem.S sbcl-1.2.1/src/runtime/mips-linux-os.c sbcl-1.2.1/src/runtime/x86-bsd-os.h sbcl-1.2.1/src/runtime/x86-64-linux-os.h sbcl-1.2.1/src/runtime/Config.x86-sunos sbcl-1.2.1/src/runtime/Config.x86-dragonfly sbcl-1.2.1/src/runtime/x86-arch.h sbcl-1.2.1/src/runtime/ppc-assem.S sbcl-1.2.1/src/runtime/dynbind.c sbcl-1.2.1/src/runtime/globals.c sbcl-1.2.1/src/runtime/gc-common.c sbcl-1.2.1/src/runtime/GNUmakefile sbcl-1.2.1/src/runtime/runtime.c sbcl-1.2.1/src/runtime/runtime-options.h sbcl-1.2.1/src/runtime/arm-android-os.c sbcl-1.2.1/src/runtime/x86-64-bsd-os.h sbcl-1.2.1/src/runtime/Config.x86-freebsd sbcl-1.2.1/src/runtime/pthreads_win32.h sbcl-1.2.1/src/runtime/largefile.c sbcl-1.2.1/src/runtime/backtrace.c sbcl-1.2.1/PRINCIPLES sbcl-1.2.1/COPYING sbcl-1.2.1/.mailmap sbcl-1.2.1/BUGS sbcl-1.2.1/generate-version.sh sbcl-1.2.1/make-host-2.sh sbcl-1.2.1/make-config.sh sbcl-1.2.1/make-genesis-2.sh sbcl-1.2.1/TODO sbcl-1.2.1/make-windows-installer.sh sbcl-1.2.1/slam.sh sbcl-1.2.1/OPTIMIZATIONS sbcl-1.2.1/package-data-list.lisp-expr sbcl-1.2.1/sbcl-pwd.sh sbcl-1.2.1/run-sbcl.sh sbcl-1.2.1/base-target-features.lisp-expr sudo -u fink-bld [ENV] sh -c /tmp/fink.OblrS env LANG=C LC_ALL=C /sw/bin/tar --no-same-owner --no-same-permissions -xvf /sw/src/sbcl-1.1.0-x86-64-darwin-binary.tar.bz2 sbcl-1.1.0-x86-64-darwin/output/sbcl.core sbcl-1.1.0-x86-64-darwin/src/runtime/sbcl sbcl-1.1.0-x86-64-darwin/output/prefix.def sbcl-1.1.0-x86-64-darwin/BUGS sbcl-1.1.0-x86-64-darwin/COPYING sbcl-1.1.0-x86-64-darwin/CREDITS sbcl-1.1.0-x86-64-darwin/INSTALL sbcl-1.1.0-x86-64-darwin/NEWS sbcl-1.1.0-x86-64-darwin/README sbcl-1.1.0-x86-64-darwin/install.sh sbcl-1.1.0-x86-64-darwin/find-gnumake.sh sbcl-1.1.0-x86-64-darwin/sbcl-pwd.sh sbcl-1.1.0-x86-64-darwin/run-sbcl.sh sbcl-1.1.0-x86-64-darwin/doc/sbcl.1 sbcl-1.1.0-x86-64-darwin/pubring.pgp sbcl-1.1.0-x86-64-darwin/contrib/asdf-module.mk sbcl-1.1.0-x86-64-darwin/contrib/vanilla-module.mk sbcl-1.1.0-x86-64-darwin/contrib/asdf/asdf.fasl sbcl-1.1.0-x86-64-darwin/contrib/asdf/asdf.lisp sbcl-1.1.0-x86-64-darwin/contrib/asdf/asdf.texinfo sbcl-1.1.0-x86-64-darwin/contrib/asdf/Makefile sbcl-1.1.0-x86-64-darwin/contrib/asdf/pull-asdf.sh sbcl-1.1.0-x86-64-darwin/contrib/asdf/README sbcl-1.1.0-x86-64-darwin/contrib/asdf/README.SBCL sbcl-1.1.0-x86-64-darwin/contrib/asdf/test-passed sbcl-1.1.0-x86-64-darwin/contrib/asdf-install/asdf-install.asd sbcl-1.1.0-x86-64-darwin/contrib/asdf-install/asdf-install.fasl sbcl-1.1.0-x86-64-darwin/contrib/asdf-install/defpackage.fasl sbcl-1.1.0-x86-64-darwin/contrib/asdf-install/defpackage.lisp sbcl-1.1.0-x86-64-darwin/contrib/asdf-install/installer.fasl sbcl-1.1.0-x86-64-darwin/contrib/asdf-install/installer.lisp sbcl-1.1.0-x86-64-darwin/contrib/asdf-install/Makefile sbcl-1.1.0-x86-64-darwin/contrib/asdf-install/README sbcl-1.1.0-x86-64-darwin/contrib/asdf-install/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/debug.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/debug.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/inspect.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/inspect.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/README sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/repl.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/repl.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/sb-aclrepl.asd sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/sb-aclrepl.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/sb-aclrepl.texinfo sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/tests.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/tests.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/toplevel.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-aclrepl/toplevel.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/a.out sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/constants.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/constants.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/constants.lisp-temp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/defpackage.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/defpackage.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/FAQ sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/foo.c sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/inet.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/inet.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/local.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/local.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/misc.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/misc.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/name-service.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/name-service.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/NEWS sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/sb-bsd-sockets.asd sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/sb-bsd-sockets.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/sb-bsd-sockets.texinfo sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/sockets.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/sockets.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/sockopt.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/sockopt.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/split.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/split.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/tests.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/tests.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/TODO sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/win32-constants.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/win32-lib.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-bsd-sockets/win32-sockets.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/compiler-let.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/compiler-let.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/defpackage.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/defpackage.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/env.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/env.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/macroexpand.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/macroexpand.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/sb-cltl2.asd sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/sb-cltl2.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/tests.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-cltl2/tests.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/gate.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/gate.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/mailbox.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/mailbox.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/package.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/package.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/queue.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/queue.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/sb-concurrency.asd sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/sb-concurrency.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/sb-concurrency.texinfo sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/tests/package.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/tests/package.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/tests/test-gate.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/tests/test-gate.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/tests/test-mailbox.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/tests/test-mailbox.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/tests/test-queue.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/tests/test-queue.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/tests/test-utils.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-concurrency/tests/test-utils.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/cover.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/cover.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/sb-cover.asd sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/sb-cover.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/sb-cover.texinfo sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/test-data-1.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/test-data-1.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/test-data-2.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/test-data-2.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/test-data-3.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/test-data-3.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/tests.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-cover/tests.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-executable/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-executable/sb-executable.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-executable/sb-executable.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-executable/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-grovel/def-to-lisp.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-grovel/def-to-lisp.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-grovel/defpackage.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-grovel/defpackage.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-grovel/example-constants.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-grovel/foreign-glue.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-grovel/foreign-glue.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-grovel/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-grovel/sb-grovel.asd sbcl-1.1.0-x86-64-darwin/contrib/sb-grovel/sb-grovel.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-grovel/sb-grovel.texinfo sbcl-1.1.0-x86-64-darwin/contrib/sb-grovel/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/introspect.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/introspect.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/load-test.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/sb-introspect.asd sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/sb-introspect.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/test-driver.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/test-driver.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/test.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/test.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/xref-test-data.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/xref-test-data.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/xref-test.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-introspect/xref-test.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-md5/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-md5/md5-tests.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-md5/md5-tests.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-md5/md5.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-md5/md5.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-md5/README sbcl-1.1.0-x86-64-darwin/contrib/sb-md5/sb-md5.asd sbcl-1.1.0-x86-64-darwin/contrib/sb-md5/sb-md5.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-md5/sb-md5.texinfo sbcl-1.1.0-x86-64-darwin/contrib/sb-md5/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/a.out sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/constants.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/constants.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/constants.lisp-temp sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/defpackage.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/defpackage.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/designator.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/designator.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/foo.c sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/interface.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/interface.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/macros.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/macros.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/posix-tests.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/posix-tests.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/README sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/sb-posix.asd sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/sb-posix.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/sb-posix.texinfo sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/test-output/read-test.txt sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/test-output/write-test.txt sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-posix/TODO sbcl-1.1.0-x86-64-darwin/contrib/sb-queue/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-queue/package.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-queue/package.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-queue/sb-queue.asd sbcl-1.1.0-x86-64-darwin/contrib/sb-queue/sb-queue.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-queue/sb-queue.texinfo sbcl-1.1.0-x86-64-darwin/contrib/sb-queue/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/compiler.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/compiler.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/package.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/package.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/ppc-vm.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/README sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/rotate-byte-tests.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/rotate-byte-tests.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/rotate-byte.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/rotate-byte.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/sb-rotate-byte.asd sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/sb-rotate-byte.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/sb-rotate-byte.texinfo sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/x86-64-vm.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/x86-64-vm.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-rotate-byte/x86-vm.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-rt/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-rt/rt.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-rt/rt.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-rt/sb-rt.asd sbcl-1.1.0-x86-64-darwin/contrib/sb-rt/sb-rt.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-rt/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/classes.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/classes.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/direct.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/direct.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/file.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/file.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/fndb.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/fndb.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/impl.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/impl.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/internal.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/internal.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/iodefs.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/iodefs.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/lp491087.txt sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/null.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/null.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/package.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/package.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/README sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/sb-simple-streams.asd sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/sb-simple-streams.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/sb-simple-streams.texinfo sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/simple-stream-tests.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/simple-stream-tests.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/socket.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/socket.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/strategy.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/strategy.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/string.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/string.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/terminal.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/terminal.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/test-data.tmp sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/test-passed sbcl-1.1.0-x86-64-darwin/contrib/sb-simple-streams/TODO sbcl-1.1.0-x86-64-darwin/contrib/sb-sprof/Makefile sbcl-1.1.0-x86-64-darwin/contrib/sb-sprof/sb-sprof.fasl sbcl-1.1.0-x86-64-darwin/contrib/sb-sprof/sb-sprof.lisp sbcl-1.1.0-x86-64-darwin/contrib/sb-sprof/sb-sprof.texinfo sbcl-1.1.0-x86-64-darwin/contrib/sb-sprof/test-passed sudo -u fink-bld [ENV] sh -c /tmp/fink.T93Qi [ -r /sw/fink/dists/stable/main/finkinfo/languages/sbcl.patch ] sudo -u fink-bld [ENV] sh -c /tmp/fink.mSIpP patch -p1 < /sw/fink/dists/stable/main/finkinfo/languages/sbcl.patch patching file customize-target-features.lisp perl -pi -e 's|\(deftest readdir.1|#-darwin\n$&|' contrib/sb-posix/posix-tests.lisp perl -pi -e 's|makeinfo|/usr/bin/makeinfo|g' doc/internals/Makefile doc/manual/Makefile sudo -u fink-bld [ENV] sh -c /tmp/fink.6fY7c SBCL_ARCH="x86-64" sh make.sh "../sbcl-1.1.0-x86-64-darwin/src/runtime/sbcl --core ../sbcl-1.1.0-x86-64-darwin/output/sbcl.core --disable-debugger --sysinit /dev/null --userinit /dev/null" find: ../../obj/asdf-cache/sb-md5: No such file or directory find: ../../obj/asdf-cache/sb-queue: No such file or directory find: ../../obj/asdf-cache/sb-concurrency: No such file or directory find: ../../obj/asdf-cache/sb-rotate-byte: No such file or directory find: ../../obj/asdf-cache/sb-grovel: No such file or directory find: ../../obj/asdf-cache/sb-sprof: No such file or directory find: ../../obj/asdf-cache/sb-bsd-sockets: No such file or directory find: ../../obj/asdf-cache/sb-cover: No such file or directory find: ../../obj/asdf-cache/sb-posix: No such file or directory rm -f *~ *.bak *.orig \#*\# .\#* texput.log *.fasl rm -rf sbcl asdf "docstrings/" rm -f sbcl.html asdf.html rm -f contrib-docs.texi-temp rm -f package-locks.texi-temp rm -f variables.texinfo rm -f sbcl.ps asdf.ps sbcl.pdf asdf.pdf html-stamp tempfiles-stamp rm -f asdf.aux asdf.cp asdf.cps asdf.fn asdf.fns asdf.ky asdf.log asdf.pg asdf.toc asdf.tp asdf.tps asdf.vr asdf.vrs sbcl.aux sbcl.cp sbcl.cps sbcl.fn sbcl.fns sbcl.ky sbcl.log sbcl.pg sbcl.toc sbcl.tp sbcl.tps sbcl.vr sbcl.vrs rm -f sbcl.info sbcl.info-* asdf.info rm -rf *.include *.info *.pdf *~ *.cp *.fn *.ky *.log *.pg *.toc \ *.tp *.vr *.aux *.eps *.png *.dvi *.ps *.txt *.fns \ html-stamp sbcl-internals/ //entering make-config.sh //ensuring the existence of output/ directory //guessing default target CPU architecture from host architecture //setting up CPU-architecture-dependent information sbcl_arch="x86-64" //initializing /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/local-target-features.lisp-expr //setting up OS-dependent information gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.4 -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I../src/runtime -L/sw/lib determine-endianness.c -lSystem -lc -ldl -o determine-endianness //finishing /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/local-target-features.lisp-expr //Starting build: Mon Jul 28 05:02:12 CDT 2014 //Options: --prefix='/usr/local' --xc-host='../sbcl-1.1.0-x86-64-darwin/src/runtime/sbcl --core ../sbcl-1.1.0-x86-64-darwin/output/sbcl.core --disable-debugger --sysinit /dev/null --userinit /dev/null' /in canonicalize-whitespace-1 /$*=./contrib/asdf/asdf.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-concurrency/frlock.lisp ./contrib/sb-concurrency/gate.lisp ./contrib/sb-concurrency/mailbox.lisp ./contrib/sb-concurrency/package.lisp ./contrib/sb-concurrency/queue.lisp ./contrib/sb-concurrency/tests/package.lisp ./contrib/sb-concurrency/tests/test-frlock.lisp ./contrib/sb-concurrency/tests/test-gate.lisp ./contrib/sb-concurrency/tests/test-mailbox.lisp ./contrib/sb-concurrency/tests/test-queue.lisp ./contrib/sb-concurrency/tests/test-utils.lisp ./contrib/sb-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-gmp/bench.lisp ./contrib/sb-gmp/gmp.lisp ./contrib/sb-gmp/tests-stress.lisp ./contrib/sb-gmp/tests.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/introspect.lisp ./contrib/sb-introspect/load-test.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-mpfr/mpfr.lisp ./contrib/sb-mpfr/tests.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-queue/package.lisp ./contrib/sb-rotate-byte/arm-vm.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-64-vm.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/sb-sprof/test.lisp ./contrib/stale-symbols.lisp ./customize-target-features.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/arm/alloc.lisp ./src/assembly/arm/arith.lisp ./src/assembly/arm/array.lisp ./src/assembly/arm/assem-rtns.lisp ./src/assembly/arm/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/android-os.lisp ./src/code/ansi-stream.lisp ./src/code/arm-vm.lisp ./src/code/array.lisp ./src/code/backq.lisp ./src/code/barrier.lisp ./src/code/bignum-random.lisp ./src/code/bignum.lisp ./src/code/bit-bash.lisp ./src/code/bsd-os.lisp ./src/code/cas.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-early.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-pprint.lisp ./src/code/early-print.lisp ./src/code/early-raw-slots.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-basic.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-ebcdic.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-mac.lisp ./src/code/external-formats/enc-ucs.lisp ./src/code/external-formats/enc-utf.lisp ./src/code/external-formats/enc-win.lisp ./src/code/external-formats/mb-util.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/hpux-os.lisp ./src/code/huffman.lisp ./src/code/inspect.lisp ./src/code/interr.lisp ./src/code/irrat.lisp ./src/code/kernel.lisp ./src/code/late-cas.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/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/typedefs.lisp ./src/code/typep.lisp ./src/code/uncross.lisp ./src/code/unix-foreign-load.lisp ./src/code/unix-pathname.lisp ./src/code/unix.lisp ./src/code/unportable-float.lisp ./src/code/warm-lib.lisp ./src/code/warm-mswin.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/arm/alloc.lisp ./src/compiler/arm/arith.lisp ./src/compiler/arm/array.lisp ./src/compiler/arm/backend-parms.lisp ./src/compiler/arm/c-call.lisp ./src/compiler/arm/call.lisp ./src/compiler/arm/cell.lisp ./src/compiler/arm/char.lisp ./src/compiler/arm/debug.lisp ./src/compiler/arm/float.lisp ./src/compiler/arm/insts.lisp ./src/compiler/arm/macros.lisp ./src/compiler/arm/memory.lisp ./src/compiler/arm/move.lisp ./src/compiler/arm/nlx.lisp ./src/compiler/arm/parms.lisp ./src/compiler/arm/pred.lisp ./src/compiler/arm/sanctify.lisp ./src/compiler/arm/sap.lisp ./src/compiler/arm/show.lisp ./src/compiler/arm/static-fn.lisp ./src/compiler/arm/subprim.lisp ./src/compiler/arm/system.lisp ./src/compiler/arm/target-insts.lisp ./src/compiler/arm/type-vops.lisp ./src/compiler/arm/values.lisp ./src/compiler/arm/vm.lisp ./src/compiler/array-tran.lisp ./src/compiler/assem.lisp ./src/compiler/backend.lisp ./src/compiler/bit-util.lisp ./src/compiler/bitops-derive-type.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/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-objdef.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/type-error.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/info-vector.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/ir2opt.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-iterative.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/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/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/sap.lisp ./src/compiler/x86-64/show.lisp ./src/compiler/x86-64/simd-pack.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/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-503095-2.lisp ./tests/bug-503095.lisp ./tests/bug-943953.lisp ./tests/bug-doug-mcnaught-20030914.lisp ./tests/bug204-test.lisp ./tests/call-into-lisp.impure.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/coerce.pure.lisp ./tests/colorize-control-codes.lisp ./tests/colorize-windows-console.lisp ./tests/colorize.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-test-util.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/defglobal.impure-cload.lisp ./tests/defglobal.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/extended-sequences.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/fopcompiler.impure.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/kill-non-lisp-thread.impure.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-29.impure.lisp ./tests/mop-3.impure-cload.lisp ./tests/mop-30.impure.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/parallel-fasl-load-test.lisp ./tests/pathnames.impure.lisp ./tests/pprint.impure.lisp ./tests/print.impure.lisp ./tests/profile.impure.lisp ./tests/properties.impure.lisp ./tests/pure.lisp ./tests/random.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/simd-pack.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/swap-lispobjs.impure.lisp ./tests/symbol-macrolet-test.lisp ./tests/symbol.impure.lisp ./tests/symbol.pure.lisp ./tests/system.impure.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/unicode-normalization.impure.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/android-os.c ./src/runtime/arm-android-os.c ./src/runtime/arm-arch.c ./src/runtime/arm-linux-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-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-hpux-os.c ./src/runtime/hppa-linux-os.c ./src/runtime/hpux-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/pthreads_win32.c ./src/runtime/purify.c ./src/runtime/regnames.c ./src/runtime/run-program.c ./src/runtime/runtime.c ./src/runtime/safepoint.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-64-sunos-os.c ./src/runtime/x86-64-win32-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/alloca.c ./tests/kill-non-lisp-thread.c ./tests/stack-alignment-offset.c ./tests/swap-lispobjs.c ./tests/win32-stack-unwind.c ./tools-for-build/arm-softfp-test.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-getprotoby-r-test.c ./tools-for-build/os-provides-poll-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/android-os.h ./src/runtime/arch.h ./src/runtime/arm-android-os.h ./src/runtime/arm-arch.h ./src/runtime/arm-linux-os.h ./src/runtime/arm-lispregs.h ./src/runtime/breakpoint.h ./src/runtime/bsd-os.h ./src/runtime/cheneygc-internal.h ./src/runtime/core.h ./src/runtime/cpputil.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-hpux-os.h ./src/runtime/hppa-linux-os.h ./src/runtime/hppa-lispregs.h ./src/runtime/hpux-os.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/pthreads_win32.h ./src/runtime/purify.h ./src/runtime/runtime-options.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/win32-thread-private-events.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-64-sunos-os.h ./src/runtime/x86-64-win32-os.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 ./contrib/sb-aclrepl/sb-aclrepl.asd ./contrib/sb-bsd-sockets/sb-bsd-sockets.asd ./contrib/sb-cltl2/sb-cltl2.asd ./contrib/sb-concurrency/sb-concurrency.asd ./contrib/sb-cover/sb-cover.asd ./contrib/sb-gmp/sb-gmp.asd ./contrib/sb-grovel/sb-grovel.asd ./contrib/sb-introspect/sb-introspect.asd ./contrib/sb-md5/sb-md5.asd ./contrib/sb-mpfr/sb-mpfr.asd ./contrib/sb-posix/sb-posix.asd ./contrib/sb-queue/sb-queue.asd ./contrib/sb-rotate-byte/sb-rotate-byte.asd ./contrib/sb-rt/sb-rt.asd ./contrib/sb-simple-streams/sb-simple-streams.asd /$scratchfilename=/tmp/canonicalize-whitespace-1.87006.tmp /$f=./customize-target-features.lisp //entering make-host-1.sh //building cross-compiler, and doing first genesis This is SBCL 1.1.0.0-bb0248a, an implementation of ANSI Common Lisp. More information about SBCL is available at . SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * 5 * ; in: LAMBDA (FEATURES) ; (FLET ((SB-COLD::ENABLE (SB-COLD::X) ; (PUSHNEW SB-COLD::X SB-COLD::FEATURES)) ; (SB-COLD::DISABLE (SB-COLD::X) ; (SETF SB-COLD::FEATURES #))) ; (SB-COLD::ENABLE :SB-THREAD)) ; ; note: deleting unused function ; (FLET DISABLE :IN "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/cold/shared.lisp") ; ; compilation unit finished ; printed 1 note target features *SHEBANG-FEATURES*=(:SB-THREAD :X86-64 :INODE64 :DARWIN9-OR-BETTER :UNIX :MACH-O :BSD :DARWIN :MACH-EXCEPTION-HANDLER :UD2-BREAKPOINTS :GENCGC :STACK-GROWS-DOWNWARD-NOT-UPWARD :C-STACK-IS-CONTROL-STACK :LINKAGE-TABLE :COMPARE-AND-SWAP-VOPS :UNWIND-TO-FRAME-AND-CALL-VOP :RAW-INSTANCE-INIT-VOPS :STACK-ALLOCATABLE-CLOSURES :STACK-ALLOCATABLE-VECTORS :STACK-ALLOCATABLE-LISTS :STACK-ALLOCATABLE-FIXED-OBJECTS :ALIEN-CALLBACKS :CYCLE-COUNTER :COMPLEX-FLOAT-VOPS :FLOAT-EQL-VOPS :INLINE-CONSTANTS :MEMORY-BARRIER-VOPS :MULTIPLY-HIGH-VOPS :SB-SIMD-PACK :ASH-RIGHT-VOPS :SYMBOL-INFO-VOPS :LITTLE-ENDIAN :OS-PROVIDES-DLOPEN :OS-PROVIDES-DLADDR :OS-PROVIDES-PUTWC :OS-PROVIDES-BLKSIZE-T :OS-PROVIDES-SUSECONDS-T :ANSI-CL :COMMON-LISP :SBCL :SB-DOC :SB-TEST :SB-LDB :SB-PACKAGE-LOCKS :SB-UNICODE :SB-EVAL :SB-SOURCE-LOCATIONS :PACKAGE-LOCAL-NICKNAMES :IEEE-FLOATING-POINT) target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL T * T * # * "obj/from-host/" * T * T * T * T * creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/ creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/ creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/ creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-early.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (DECLARATION TRULY-DYNAMIC-EXTENT)) ; compiling (DECLAIM (DECLARATION FREEZE-TYPE ...)) ; compiling (DECLAIM (DECLARATION INHIBIT-WARNINGS)) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cross-early.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/show.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (DEFUN CANNOT-/SHOW ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/show.lisp ; in: DEFUN CANNOT-/SHOW ; (VALUES) ; ; note: deleting unreachable code ; compiling (DEFMACRO /SHOW ...) ; compiling (DEFMACRO /NOSHOW ...) ; compiling (DEFMACRO /XHOW ...) ; compiling (DEFMACRO /NOXHOW ...) ; compiling (DEFMACRO /SHOW0 ...) ; compiling (DEFMACRO /NOSHOW0 ...) ; compiling (DEFMACRO /PRIMITIVE-PRINT ...) ; compiling (DEFMACRO /HEXSTR ...) ; compiling (DEFMACRO /NOHEXSTR ...) ; compiling (/SHOW0 "done with show.lisp"); ; compilation unit finished ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/show.fasl-tmp written ; compilation finished in 0:00:00.024 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-source-location.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-source-location.fasl-tmp written ; compilation finished in 0:00:00.007 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-constants.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF SB-XC:LAMBDA-LIST-KEYWORDS ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-constants.fasl-tmp written ; compilation finished in 0:00:00.004 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/backq.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (/SHOW0 "entering backq.lisp") ; compiling (DEFSTRUCT (COMMA #) ...) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/backq.lisp ; in: DEFMETHOD MAKE-LOAD-FORM (COMMA) ; (DEFMETHOD MAKE-LOAD-FORM ; ((SB!IMPL::SELF SB!IMPL::COMMA) &OPTIONAL SB!IMPL::ENVIRONMENT) ; (LIST 'SB!IMPL::UNQUOTE (LIST 'QUOTE (SB!IMPL::COMMA-EXPR SB!IMPL::SELF)) ; (SB!IMPL::COMMA-BITS SB!IMPL::SELF))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN ; ==> ; (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'MAKE-LOAD-FORM 'NIL ; (LIST (FIND-CLASS 'SB!IMPL::COMMA)) ; '(SB!IMPL::SELF &OPTIONAL SB!IMPL::ENVIRONMENT) ; (LIST* :FUNCTION ; (LET* ((SB-PCL::FMF #) (SB-PCL::MF #)) ; (SB-MOP:SET-FUNCALLABLE-INSTANCE-FUNCTION ; SB-PCL::MF ; (SB-PCL::METHOD-FUNCTION-FROM-FAST-FUNCTION ; SB-PCL::FMF '#)) ; SB-PCL::MF) ; '(SB-PCL::PLIST (:ARG-INFO (1 . T)) ; SB-PCL::SIMPLE-NEXT-METHOD-CALL T)) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; The variable ENVIRONMENT is defined but never used. ; compiling (SETF (GET # ...) ...) ; 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 (DEFVAR *BQ-ERROR* ...) ; 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 BACKQUOTE-SPLICE ...) ; compiling (DEFUN BACKQUOTIFY ...) ; compiling (/SHOW0 "backq.lisp 139") ; compiling (DEFUN BACKQ-CONSTANT-P ...) ; 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 (DEFUN !A-RANDOM-MAPCAR-DO-NOT-USE ...) ; compiling (!BACKQ-COLD-INIT NIL) ; compiling (DEFVAR *BACKQ-TOKENS* ...) ; compiling (DEFUN SIMPLE-READER-ERROR ...) ; compiling (/SHOW0 "done with backq.lisp") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/backq.lisp ; in: DEFUN !BACKQ-COLD-INIT ; (SB!IMPL::!A-RANDOM-COMMA-OBJECT-DO-NOT-USE) ; ; caught STYLE-WARNING: ; undefined function: !A-RANDOM-COMMA-OBJECT-DO-NOT-USE ; in: DEFUN SIMPLE-READER-ERROR ; (SB!INT:BUG "READER-ERROR on stream ~S: ~?" STREAM SB!IMPL::FORMAT-STRING ; SB!IMPL::FORMAT-ARGS) ; ; caught STYLE-WARNING: ; undefined function: BUG ; ; compilation unit finished ; Undefined functions: ; !A-RANDOM-COMMA-OBJECT-DO-NOT-USE BUG ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/backq.fasl-tmp written ; compilation finished in 0:00:00.067 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defsetfs.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (SB!INT:/SHOW0 "entering defsetfs.lisp") ; compiling (IN-PACKAGE "SB!ALIEN") ; compiling (DEFSETF SLOT ...) ; compiling (DEFSETF DEREF ...) ; compiling (DEFSETF %HEAP-ALIEN ...) ; compiling (IN-PACKAGE "SB!BIGNUM") ; compiling (DEFSETF %BIGNUM-REF ...) ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFSETF WORD-SAP-REF ...) ; compiling (IN-PACKAGE "SB!DI") ; compiling (DEFSETF STACK-REF ...) ; compiling (DEFSETF DEBUG-VAR-VALUE ...) ; compiling (DEFSETF DEBUG-VAR-VALUE ...) ; compiling (DEFSETF BREAKPOINT-INFO ...) ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFSETF %INSTANCE-REF ...) ; compiling (DEFSETF %RAW-INSTANCE-REF/WORD ...) ; compiling (DEFSETF %RAW-INSTANCE-REF/SINGLE ...) ; compiling (DEFSETF %RAW-INSTANCE-REF/DOUBLE ...) ; compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-SINGLE ...) ; compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...) ; compiling (DEFSETF %INSTANCE-LAYOUT ...) ; compiling (DEFSETF %FUNCALLABLE-INSTANCE-INFO ...) ; compiling (DEFSETF %FUNCALLABLE-INSTANCE-LAYOUT ...) ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFSETF %ARRAY-DIMENSION ...) ; compiling (DEFSETF %VECTOR-RAW-BITS ...) ; compiling (DEFSETF SAP-REF-8 ...) ; compiling (DEFSETF SIGNED-SAP-REF-8 ...) ; compiling (DEFSETF SAP-REF-16 ...) ; compiling (DEFSETF SIGNED-SAP-REF-16 ...) ; compiling (DEFSETF SAP-REF-32 ...) ; compiling (DEFSETF SIGNED-SAP-REF-32 ...) ; compiling (DEFSETF SAP-REF-64 ...) ; compiling (DEFSETF SIGNED-SAP-REF-64 ...) ; compiling (DEFSETF SAP-REF-WORD ...) ; compiling (DEFSETF SIGNED-SAP-REF-WORD ...) ; compiling (DEFSETF SAP-REF-SAP ...) ; compiling (DEFSETF SAP-REF-LISPOBJ ...) ; compiling (DEFSETF SAP-REF-SINGLE ...) ; compiling (DEFSETF SAP-REF-DOUBLE ...) ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFSETF CODE-HEADER-REF ...) ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN !A-RANDOM-COMMA-OBJECT-DO-NOT-USE ...) ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFSETF CONTEXT-REGISTER ...) ; compiling (DEFSETF CONTEXT-FLOAT-REGISTER ...) ; compiling (/SHOW0 "leaving defsetfs.lisp") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/defsetfs.fasl-tmp written ; compilation finished in 0:00:00.027 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cold-init-helper-macros.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFVAR *COLD-INIT-FORMS*) ; compiling (DEFMACRO !BEGIN-COLLECTING-COLD-INIT-FORMS ...) ; compiling (DEFMACRO !COLD-INIT-FORMS ...) ; compiling (DEFMACRO !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cold-init-helper-macros.fasl-tmp written ; compilation finished in 0:00:00.008 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-misc.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO TRULY-THE ...) ; compiling (DEFMACRO WITHOUT-INTERRUPTS ...) ; compiling (DEFMACRO WITH-LOCKED-HASH-TABLE ...) ; compiling (DEFMACRO WITH-LOCKED-SYSTEM-TABLE ...) ; compiling (DEFMACRO DEFGLOBAL ...) ; compiling (DEFTYPE ANSI-STREAM ...) ; compiling (DEFTYPE INSTANCE ...) ; compiling (DEFTYPE FUNCALLABLE-INSTANCE ...) ; compiling (DEFUN %INSTANCEP ...) ; compiling (DEFUN FUNCALLABLE-INSTANCE-P ...) ; compiling (DEFUN ARRAY-HEADER-P ...) ; compiling (DEFUN PACKAGE-INTERNAL-SYMBOL-COUNT ...) ; compiling (DEFUN PACKAGE-EXTERNAL-SYMBOL-COUNT ...) ; compiling (DEFUN INTERN* ...) ; compiling (DEFUN SYMBOL-HASH ...) ; compiling (DEFVAR SB-XC:*GENSYM-COUNTER* ...) ; compiling (DEFUN SB-XC:GENSYM ...) ; compiling (DEFUN SIMPLE-ARRAY-NIL-P ...) ; compiling (DEFUN %NEGATE ...) ; compiling (DEFUN %SINGLE-FLOAT ...) ; compiling (DEFUN %DOUBLE-FLOAT ...) ; compiling (DEFUN %LDB ...) ; compiling (DEFUN %DPB ...) ; compiling (DEFUN %WITH-ARRAY-DATA ...) ; compiling (DEFUN %WITH-ARRAY-DATA/FP ...) ; compiling (DEFUN SIGNED-BYTE-32-P ...) ; compiling (DEFMACRO WITHOUT-PACKAGE-LOCKS ...) ; compiling (DEFMACRO WITH-SINGLE-PACKAGE-LOCKED-ERROR ...) ; compiling (DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...) ; compiling (DEFUN ASSERT-PACKAGE-UNLOCKED ...) ; compiling (DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...) ; compiling (DECLAIM (DECLARATION ENABLE-PACKAGE-LOCKS ...)) ; compiling (DEFUN DEFAULT-STRUCTURE-PRINT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-misc.lisp ; in: DEFUN %DPB ; (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) ; ; caught STYLE-WARNING: ; undefined function: BYTE ; in: DEFUN %LDB ; (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) ; ; caught STYLE-WARNING: ; undefined function: BYTE ; in: DEFUN %DPB ; (SB-XC:DPB SB!IMPL::NEWBYTE (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) INTEGER) ; ; caught STYLE-WARNING: ; undefined function: DPB ; in: DEFUN %LDB ; (SB-XC:LDB (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) INTEGER) ; ; caught STYLE-WARNING: ; undefined function: LDB ; ; compilation unit finished ; Undefined functions: ; BYTE DPB LDB ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cross-misc.fasl-tmp written ; compilation finished in 0:00:00.070 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-char.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (LET (#) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cross-char.fasl-tmp written ; compilation finished in 0:00:00.008 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-byte.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (DEFUN BYTE ...) ; compiling (DEFUN BYTE-SIZE ...) ; compiling (DEFUN BYTE-POSITION ...) ; compiling (DEFUN UNCROSS-BYTE ...) ; compiling (DEFUN LDB ...) ; compiling (DEFUN LDB-TEST ...) ; compiling (DEFUN DPB ...) ; compiling (DEFUN MASK-FIELD ...) ; compiling (DEFUN DEPOSIT-FIELD ...) ; compiling (DEFINE-SETF-EXPANDER LDB ...) ; compiling (DEFINE-SETF-EXPANDER MASK-FIELD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-byte.lisp ; in: DEFINE-SETF-EXPANDER MASK-FIELD ; (SB!INT:BUG "SETF SB!XC:MASK-FIELD too hairy!") ; ; caught STYLE-WARNING: ; undefined function: BUG ; in: DEFINE-SETF-EXPANDER LDB ; (SB!INT:BUG "SETF SB!XC:LDB too hairy!") ; ; caught STYLE-WARNING: ; undefined function: BUG ; ; compilation unit finished ; Undefined function: ; BUG ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cross-byte.fasl-tmp written ; compilation finished in 0:00:00.017 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-boole.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (DEFCONSTANT BOOLE-CLR ...) ; compiling (DEFCONSTANT BOOLE-SET ...) ; compiling (DEFCONSTANT BOOLE-1 ...) ; compiling (DEFCONSTANT BOOLE-2 ...) ; compiling (DEFCONSTANT BOOLE-C1 ...) ; compiling (DEFCONSTANT BOOLE-C2 ...) ; compiling (DEFCONSTANT BOOLE-AND ...) ; compiling (DEFCONSTANT BOOLE-IOR ...) ; compiling (DEFCONSTANT BOOLE-XOR ...) ; compiling (DEFCONSTANT BOOLE-EQV ...) ; compiling (DEFCONSTANT BOOLE-NAND ...) ; compiling (DEFCONSTANT BOOLE-NOR ...) ; compiling (DEFCONSTANT BOOLE-ANDC1 ...) ; compiling (DEFCONSTANT BOOLE-ANDC2 ...) ; compiling (DEFCONSTANT BOOLE-ORC1 ...) ; compiling (DEFCONSTANT BOOLE-ORC2 ...) ; compiling (DEFUN BOOLE ...) ; compiling (DEFUN UNCROSS-BOOLE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cross-boole.fasl-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-float.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cross-float.fasl-tmp written ; compilation finished in 0:00:00.033 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-io.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFMACRO WITH-FAST-READ-BYTE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cross-io.fasl-tmp written ; compilation finished in 0:00:00.007 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-sap.lisp" (written 28 JUN 2014 03:46:25 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-128 ...) ; compiling (DEFSETF SAP-REF-8 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-16 ...) ; compiling (DEFUN #:SETTER-STUB-129 ...) ; compiling (DEFSETF SAP-REF-16 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-32 ...) ; compiling (DEFUN #:SETTER-STUB-130 ...) ; compiling (DEFSETF SAP-REF-32 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-64 ...) ; compiling (DEFUN #:SETTER-STUB-131 ...) ; compiling (DEFSETF SAP-REF-64 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-SAP ...) ; compiling (DEFUN #:SETTER-STUB-132 ...) ; compiling (DEFSETF SAP-REF-SAP ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-WORD ...) ; compiling (DEFUN #:SETTER-STUB-133 ...) ; compiling (DEFSETF SAP-REF-WORD ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-SINGLE ...) ; compiling (DEFUN #:SETTER-STUB-134 ...) ; compiling (DEFSETF SAP-REF-SINGLE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-DOUBLE ...) ; compiling (DEFUN #:SETTER-STUB-135 ...) ; compiling (DEFSETF SAP-REF-DOUBLE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-8 ...) ; compiling (DEFUN #:SETTER-STUB-136 ...) ; compiling (DEFSETF SIGNED-SAP-REF-8 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-16 ...) ; compiling (DEFUN #:SETTER-STUB-137 ...) ; compiling (DEFSETF SIGNED-SAP-REF-16 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-32 ...) ; compiling (DEFUN #:SETTER-STUB-138 ...) ; compiling (DEFSETF SIGNED-SAP-REF-32 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-64 ...) ; compiling (DEFUN #:SETTER-STUB-139 ...) ; compiling (DEFSETF SIGNED-SAP-REF-64 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-WORD ...) ; compiling (DEFUN #:SETTER-STUB-140 ...) ; compiling (DEFSETF SIGNED-SAP-REF-WORD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-sap.lisp ; in: DEFUN SAP+ ; (SB!SYS:SAP-INT SB!SYS::SAP) ; ==> ; (TRULY-THE SB!SYS:SAP-INT ; (SB-KERNEL:%INSTANCE-REF ; (THE SB!SYS:SYSTEM-AREA-POINTER SB!SYS::SAP) 1)) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; (TYPE SB!SYS:SAP-INT SB!SYS::OFFSET) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; 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: ; 17 more uses of undefined type SAP-INT ; ; compilation unit finished ; Undefined type: ; SAP-INT ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cross-sap.fasl-tmp written ; compilation finished in 0:00:00.076 ; in: LAMBDA (SB-KERNEL::NEW-VALUE SB-KERNEL:INSTANCE) ; (THE SB!SYS:SAP-INT #:NEW-VALUE656) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; compilation unit finished ; Undefined type: ; SAP-INT ; caught 1 STYLE-WARNING condition ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-thread.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (DEFUN MAKE-MUTEX ...) ; compiling (DEFMACRO WITH-MUTEX ...) ; compiling (DEFMACRO WITH-RECURSIVE-LOCK ...) ; compiling (DEFMACRO BARRIER ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cross-thread.fasl-tmp written ; compilation finished in 0:00:00.014 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-make-load-form.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (DEFUN SB-XC:MAKE-LOAD-FORM-SAVING-SLOTS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-make-load-form.lisp ; in: DEFUN SB-XC:MAKE-LOAD-FORM-SAVING-SLOTS ; (SB!INT:BUG "MAKE-LOAD-FORM-SAVING-SLOTS ~ ; called with :SLOT-NAMES argument during cross-compilation") ; ; caught STYLE-WARNING: ; undefined function: BUG ; ; compilation unit finished ; Undefined function: ; BUG ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cross-make-load-form.fasl-tmp written ; compilation finished in 0:00:00.007 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-condition.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...) ; compiling (DEFINE-CONDITION FORMAT-TOO-FEW-ARGS-WARNING ...) ; compiling (DEFINE-CONDITION FORMAT-TOO-MANY-ARGS-WARNING ...) ; compiling (DEFINE-CONDITION ENCAPSULATED-CONDITION ...) ; compiling (DEFINE-CONDITION REFERENCE-CONDITION ...) ; compiling (DEFINE-CONDITION TYPE-WARNING ...) ; compiling (DEFINE-CONDITION TYPE-STYLE-WARNING ...) ; compiling (DEFINE-CONDITION BUG ...) ; compiling (DEFINE-CONDITION COMPILER-MACRO-KEYWORD-PROBLEM ...) ; compiling (DEFINE-CONDITION DUPLICATE-DEFINITION ...) ; compiling (DEFTYPE PACKAGE-LOCK-VIOLATION ...) ; compiling (DEFTYPE PACKAGE-LOCKED-ERROR ...) ; compiling (DEFTYPE SYMBOL-PACKAGE-LOCKED-ERROR ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cross-condition.fasl-tmp written ; compilation finished in 0:00:00.052 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/uncross.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (LET (#) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/uncross.fasl-tmp written ; compilation finished in 0:00:00.008 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/primordial-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFVAR *TYPE-SYSTEM-INITIALIZED* ...) ; compiling (DEFGLOBAL *WILD-TYPE* ...) ; compiling (DEFGLOBAL *EMPTY-TYPE* ...) ; compiling (DEFGLOBAL *UNIVERSAL-TYPE* ...) ; compiling (DEFVAR *UNIVERSAL-FUN-TYPE*) ; compiling (DEFVAR *INSTANCE-TYPE*) ; compiling (DEFVAR *FUNCALLABLE-INSTANCE-TYPE*) ; compiling (DEFVAR *EXTENDED-SEQUENCE-TYPE*) ; compiling (DEFGLOBAL **BUILT-IN-CLASS-CODES** ...) ; compiling (DEFGLOBAL **NULL-CLASSOID-LAYOUT** ...) ; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/primordial-type.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-defbangmethod.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO DEF!METHOD ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-defbangmethod.fasl-tmp written ; compilation finished in 0:00:00.004 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangtype.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/defbangtype.fasl-tmp written ; compilation finished in 0:00:00.007 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangmacro.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangmacro.lisp ; in: DEFSTRUCT DELAYED-DEF!MACRO ; (SB!INT:MISSING-ARG) ; ; caught STYLE-WARNING: ; undefined function: MISSING-ARG ; (SB!INT:SANE-PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: SANE-PACKAGE ; ; compilation unit finished ; Undefined functions: ; MISSING-ARG SANE-PACKAGE ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/defbangmacro.fasl-tmp written ; compilation finished in 0:00:00.015 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangconstant.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/defbangconstant.fasl-tmp written ; compilation finished in 0:00:00.008 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/primordial-extensions.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!CONSTANT +EMPTY-HT-SLOT+ ...) ; compiling (DEFUN FROB-DO-BODY ...) ; 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 GENSYMIFY ...) ; compiling (DEFUN KEYWORDICATE ...) ; compiling (DEFUN SANE-PACKAGE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/primordial-extensions.lisp ; in: DEFUN SANE-PACKAGE ; (TYPE-OF SB!IMPL::MAYBE-PACKAGE) ; ==> ; SB!IMPL::MAYBE-PACKAGE ; ; note: deleting unreachable code ; (LET ((SB!IMPL::REALLY-PACKAGE (FIND-PACKAGE :CL-USER))) ; (SETF *PACKAGE* SB!IMPL::REALLY-PACKAGE) ; (ERROR 'SIMPLE-TYPE-ERROR :DATUM SB!IMPL::MAYBE-PACKAGE :EXPECTED-TYPE ; '(AND PACKAGE (SATISFIES PACKAGE-NAME)) :FORMAT-CONTROL ; "~@<~S can't be a ~A: ~2I~_~S has been reset to ~S.~:>" ; :FORMAT-ARGUMENTS ; (LIST '*PACKAGE* ; (IF (PACKAGEP SB!IMPL::MAYBE-PACKAGE) ; "deleted package" ; (TYPE-OF SB!IMPL::MAYBE-PACKAGE)) ; '*PACKAGE* SB!IMPL::REALLY-PACKAGE))) ; ; note: deleting unreachable code ; (IF (PACKAGEP SB!IMPL::MAYBE-PACKAGE) ; "deleted package" ; (TYPE-OF SB!IMPL::MAYBE-PACKAGE)) ; ==> ; "deleted package" ; ; note: deleting unreachable code ; '*PACKAGE* ; ; note: deleting unreachable code ; compiling (DEFUN SANE-DEFAULT-PATHNAME-DEFAULTS ...) ; compiling (DEFMACRO DEFENUM ...) ; compiling (DEFMACRO DEFCONSTANT-EQX ...) ; compiling (DEFUN %DEFCONSTANT-EQX-VALUE ...) ; compiling (DEFUN PROPER-LIST-OF-LENGTH-P ...) ; compiling (DEFUN PROPER-LIST-P ...) ; compiling (DEFMACRO DEFINE-UNSUPPORTED-FUN ...) ; compiling (DEF!MACRO DO-ANONYMOUS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/primordial-extensions.lisp ; in: DEFUN MAKE-GENSYM-LIST ; (DEFUN SB!INT:MAKE-GENSYM-LIST (SB!IMPL::N &OPTIONAL SB!IMPL::NAME) ; (WHEN (EQ T SB!IMPL::NAME) (BREAK)) ; (IF SB!IMPL::NAME ; (LOOP SB!IMPL::REPEAT SB!IMPL::N ; SB!INT:COLLECT (SB-XC:GENSYM (STRING SB!IMPL::NAME))) ; (LOOP SB!IMPL::REPEAT SB!IMPL::N ; SB!INT:COLLECT (SB-XC:GENSYM)))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF PROGN SB-C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET UNLESS IF ; ==> ; (TYPEP #:G104 'SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined type: INDEX ; in: ; DECLAIM (FTYPE (FUNCTION (INDEX &OPTIONAL T) (VALUES LIST &OPTIONAL)) ; MAKE-GENSYM-LIST) ; (DECLAIM ; (FTYPE (FUNCTION (SB!INT:INDEX &OPTIONAL T) (VALUES LIST &OPTIONAL)) ; SB!INT:MAKE-GENSYM-LIST)) ; --> EVAL-WHEN ; ==> ; (PROCLAIM ; '(FTYPE (FUNCTION (SB!INT:INDEX &OPTIONAL T) (VALUES LIST &OPTIONAL)) ; SB!INT:MAKE-GENSYM-LIST)) ; ; caught STYLE-WARNING: ; undefined type: INDEX ; in: DEFUN FROB-DO-BODY ; (SB!INT:PARSE-BODY SB!IMPL::DECLS-AND-CODE :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; ; compilation unit finished ; Undefined type: ; INDEX ; Undefined function: ; PARSE-BODY ; caught 3 STYLE-WARNING conditions ; printed 4 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/primordial-extensions.fasl-tmp written ; compilation finished in 0:00:00.084 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/function-names.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *VALID-FUN-NAMES-ALIST* ...) ; compiling (DEFUN %DEFINE-FUN-NAME-SYNTAX ...) ; compiling (DEFMACRO DEFINE-FUNCTION-NAME-SYNTAX ...) ; compiling (DEFUN VALID-FUNCTION-NAME-P ...) ; compiling (DEFINE-FUNCTION-NAME-SYNTAX SETF ...) ; compiling (%DEFINE-FUN-NAME-SYNTAX (QUOTE CAS) ...) ; compiling (DEFUN MACRO-FUNCTION-NAME ...) ; compiling (DEFINE-FUNCTION-NAME-SYNTAX DEFMACRO ...) ; compiling (DEFINE-FUNCTION-NAME-SYNTAX MACROLET ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/function-names.fasl-tmp written ; compilation finished in 0:00:00.015 creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/ creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/parms.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEF!MACRO !CONFIGURE-DYNAMIC-SPACE-END ...) ; compiling (DEF!MACRO !GENCGC-SPACE-SETUP ...) ; compiling (DEFPARAMETER *C-CALLABLE-STATIC-SYMBOLS* ...) ; compiling (DEFPARAMETER *COMMON-STATIC-SYMBOLS* ...) ; compiling (DEF!CONSTANT TLS-SIZE ...) ; compiling (DEF!CONSTANT MAX-INTERRUPTS ...) ; compiling (DEF!CONSTANT +HIGHEST-NORMAL-GENERATION+ ...) ; compiling (DEF!CONSTANT +PSEUDO-STATIC-GENERATION+ ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/parms.fasl-tmp written ; compilation finished in 0:00:00.025 creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/parms.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEF!CONSTANT N-WORD-BITS ...) ; compiling (DEF!CONSTANT N-MACHINE-WORD-BITS ...) ; compiling (DEF!CONSTANT N-BYTE-BITS ...) ; compiling (DEF!CONSTANT MINIMUM-IMMEDIATE-OFFSET ...) ; compiling (DEF!CONSTANT MAXIMUM-IMMEDIATE-OFFSET ...) ; compiling (DEF!CONSTANT FLOAT-SIGN-SHIFT ...) ; compiling (DEF!CONSTANT SINGLE-FLOAT-BIAS ...) ; compiling (DEFCONSTANT-EQX SINGLE-FLOAT-EXPONENT-BYTE ...) ; compiling (DEFCONSTANT-EQX SINGLE-FLOAT-SIGNIFICAND-BYTE ...) ; compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MIN ...) ; compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MAX ...) ; compiling (DEF!CONSTANT SINGLE-FLOAT-HIDDEN-BIT ...) ; compiling (DEF!CONSTANT SINGLE-FLOAT-TRAPPING-NAN-BIT ...) ; compiling (DEF!CONSTANT DOUBLE-FLOAT-BIAS ...) ; compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-EXPONENT-BYTE ...) ; compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-SIGNIFICAND-BYTE ...) ; compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MIN ...) ; compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MAX ...) ; compiling (DEF!CONSTANT DOUBLE-FLOAT-HIDDEN-BIT ...) ; compiling (DEF!CONSTANT DOUBLE-FLOAT-TRAPPING-NAN-BIT ...) ; compiling (DEF!CONSTANT SINGLE-FLOAT-DIGITS ...) ; compiling (DEF!CONSTANT DOUBLE-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 (DEFCONSTANT-EQX FLOAT-ROUNDING-MODE ...) ; compiling (DEFCONSTANT-EQX FLOAT-STICKY-BITS ...) ; compiling (DEFCONSTANT-EQX FLOAT-TRAPS-BYTE ...) ; compiling (DEFCONSTANT-EQX FLOAT-EXCEPTIONS-BYTE ...) ; compiling (DEF!CONSTANT FLOAT-FAST-BIT ...) ; compiling (!GENCGC-SPACE-SETUP 536870912 ...) ; compiling (DEF!CONSTANT LINKAGE-TABLE-ENTRY-SIZE ...) ; compiling (DEFENUM (:START 8) ...) ; compiling (DEFENUM (:START 24) ...) ; compiling (DEFVAR *ALLOCATION-POINTER*) ; compiling (DEFVAR *BINDING-STACK-POINTER*) ; compiling (DEFPARAMETER *STATIC-SYMBOLS* ...) ; compiling (DEFPARAMETER *STATIC-FUNS* ...) ; compiling (DEFVAR *SIMD-PACK-ELEMENT-TYPES* ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/parms.fasl-tmp written ; compilation finished in 0:00:00.009 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/early-vm.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEF!CONSTANT N-LOWTAG-BITS ...) ; compiling (DEF!CONSTANT LOWTAG-MASK ...) ; compiling (DEF!CONSTANT LOWTAG-LIMIT ...) ; compiling (DEF!CONSTANT N-FIXNUM-TAG-BITS ...) ; compiling (DEF!CONSTANT FIXNUM-TAG-MASK ...) ; compiling (DEF!CONSTANT N-FIXNUM-BITS ...) ; compiling (DEF!CONSTANT N-POSITIVE-FIXNUM-BITS ...) ; compiling (DEF!CONSTANT WORD-SHIFT ...) ; compiling (DEF!CONSTANT N-WORD-BYTES ...) ; compiling (DEF!CONSTANT N-WIDETAG-BITS ...) ; compiling (DEF!CONSTANT WIDETAG-MASK ...) ; compiling (DEF!CONSTANT SB-XC:MOST-POSITIVE-FIXNUM ...) ; compiling (DEF!CONSTANT SB-XC:MOST-NEGATIVE-FIXNUM ...) ; compiling (DEF!CONSTANT MOST-POSITIVE-WORD ...) ; compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...) ; compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...) ; compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...) ; compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...) ; compiling (DEF!CONSTANT MAX-DYNAMIC-SPACE-END ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/early-vm.lisp ; in: DEF!CONSTANT MAX-DYNAMIC-SPACE-END ; (MIN SB!VM::STOP SB!VM::OTHER-START) ; --> LET ; ==> ; SB!VM::STOP ; ; note: deleting unreachable code ; --> LET LET MIN LET ; ==> ; SB!VM::OTHER-START ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/early-vm.fasl-tmp written ; compilation finished in 0:00:00.007 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/early-objdef.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFENUM NIL ...) ; compiling (DEF!CONSTANT NIL-VALUE ...) ; compiling (DEFCONSTANT-EQX FIXNUM-LOWTAGS ...) ; compiling (DEFENUM (:START # ...) ...) ; compiling (DEFENUM NIL ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/early-objdef.fasl-tmp written ; compilation finished in 0:00:00.021 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-array.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-array.fasl-tmp written ; compilation finished in 0:00:00.002 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-extensions.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *CORE-PATHNAME* ...) ; compiling (DEFVAR *RUNTIME-PATHNAME* ...) ; compiling (DEFGLOBAL *EOF-OBJECT* ...) ; compiling (DEFCONSTANT MAX-HASH ...) ; compiling (DEF!TYPE HASH ...) ; compiling (DEF!TYPE INDEX ...) ; compiling (DEF!TYPE INDEX/2 ...) ; compiling (DEF!TYPE INDEX-OR-MINUS-1 ...) ; compiling (DEF!TYPE UNSIGNED-BYTE-WITH-A-BITE-OUT ...) ; compiling (DEF!TYPE SIGNED-BYTE-WITH-A-BITE-OUT ...) ; compiling (DEF!TYPE LOAD/STORE-INDEX ...) ; compiling (DEFUN DISPLACEMENT-BOUNDS ...) ; compiling (DEF!TYPE CONSTANT-DISPLACEMENT ...) ; compiling (DEF!TYPE SFUNCTION ...) ; compiling (DEF!TYPE TYPE-SPECIFIER ...) ; compiling (DEFPARAMETER *DEFAULT-INIT-CHAR-FORM* ...) ; compiling (DEF!CONSTANT BELL-CHAR-CODE ...) ; compiling (DEF!CONSTANT BACKSPACE-CHAR-CODE ...) ; compiling (DEF!CONSTANT TAB-CHAR-CODE ...) ; compiling (DEF!CONSTANT LINE-FEED-CHAR-CODE ...) ; compiling (DEF!CONSTANT FORM-FEED-CHAR-CODE ...) ; compiling (DEF!CONSTANT RETURN-CHAR-CODE ...) ; compiling (DEF!CONSTANT ESCAPE-CHAR-CODE ...) ; compiling (DEF!CONSTANT RUBOUT-CHAR-CODE ...) ; compiling (DEFUN MAYBE-CYCLIC-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LIST-OF-LENGTH-AT-LEAST-P ...) ; compiling (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 (DEFMACRO DOPLIST ...) ; compiling (DEFVAR *PROFILE-HASH-CACHE* ...) ; compiling (DEFVAR *CACHE-VECTOR-SYMBOLS* ...) ; compiling (DEFUN DROP-ALL-HASH-CACHES ...) ; 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 ...) ; compiling (DEFUN LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P ...) ; 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 NORMALIZE-DEPRECATION-REPLACEMENTS ...) ; compiling (DEFUN DEPRECATION-ERROR ...) ; compiling (DEFUN DEPRECATION-WARNING ...) ; compiling (DEFUN DEPRECATED-FUNCTION ...) ; compiling (DEFUN DEPRECATION-COMPILER-MACRO ...) ; compiling (DEFMACRO DEFINE-DEPRECATED-FUNCTION ...) ; compiling (DEFUN CHECK-DEPRECATED-VARIABLE ...) ; compiling (DEFMACRO DEFINE-DEPRECATED-VARIABLE ...) ; compiling (DEFMACRO AWHEN ...) ; compiling (DEFMACRO ACOND ...) ; compiling (DEFUN EXTRACT-VAR-DECLS ...) ; compiling (DEFMACRO BINDING* ...) ; compiling (DEFMACRO DELAY ...) ; compiling (DEFUN FORCE ...) ; compiling (DEFUN PROMISE-READY-P ...) ; compiling (DEFMACRO WITH-REBOUND-IO-SYNTAX ...) ; compiling (DEFUN %WITH-REBOUND-IO-SYNTAX ...) ; compiling (DEFMACRO WITH-SANE-IO-SYNTAX ...) ; compiling (DEFUN CALL-WITH-SANE-IO-SYNTAX ...) ; compiling (DEFUN LIST-MEMBERS ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFPARAMETER *EVALUATOR-MODE* ...) ; compiling (DEFMACRO DX-FLET ...) ; compiling (DEFMACRO DX-LET ...) ; compiling NIL ; compiling NIL ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN FP-ZERO-P ...) ; compiling (DEFUN NEG-FP-ZERO ...) ; compiling (DEFUN FILE-POSITION-OR-NIL-FOR-ERROR ...) ; compiling (DEFUN STREAM-ERROR-POSITION-INFO ...) ; compiling (DECLAIM (INLINE SCHWARTZIAN-STABLE-SORT-LIST)) ; compiling (DEFUN SCHWARTZIAN-STABLE-SORT-LIST ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-extensions.lisp ; in: DEFUN SB!IMPL::EXTRACT-VAR-DECLS ; (SB!INT:INFO :TYPE :KIND SB!IMPL::ID) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN CHECK-DEPRECATED-VARIABLE ; (SB!INT:INFO :VARIABLE :DEPRECATED SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN NEG-FP-ZERO ; (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO) ; ; caught STYLE-WARNING: ; undefined function: MAKE-UNPORTABLE-FLOAT ; in: DEFMACRO DEFUN-CACHED ; (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; in: DEFMACRO DOHASH ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; in: DEFMACRO DOVECTOR ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; ; caught STYLE-WARNING: ; 2 more uses of undefined function PARSE-BODY ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-extensions.lisp ; in: DEFMACRO COLD-FSET ; (SB!INT:STYLE-WARN ; "~@" ; SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined functions: ; INFO MAKE-UNPORTABLE-FLOAT PARSE-BODY STYLE-WARN ; caught 8 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-extensions.fasl-tmp written ; compilation finished in 0:00:00.426 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/parse-body.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (/SHOW0 "entering parse-body.lisp") ; compiling (DEFUN PARSE-BODY ...) ; compiling (/SHOW0 "leaving parse-body.lisp") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/parse-body.lisp ; in: DEFUN PARSE-BODY ; (SB!INT:STYLE-WARN "DECLAIM where DECLARE was probably intended") ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined function: ; STYLE-WARN ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/parse-body.fasl-tmp written ; compilation finished in 0:00:00.009 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/parse-defmacro.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/parse-defmacro.lisp ; in: DEFUN PARSE-DEFMACRO-LAMBDA-LIST ; 'CAR ; ; note: deleting unreachable code ; compiling (DEFUN ARG-COUNT-ERROR ...) ; compiling (DEFUN PUSH-SUBLIST-BINDING ...) ; compiling (DEFUN PUSH-LET-BINDING ...) ; compiling (DEFUN PUSH-OPTIONAL-BINDING ...) ; compiling (DEFUN DEFMACRO-ERROR ...) ; compiling (DEFUN CHECK-DEFMACRO-ARG ...) ; compiling (DEFUN VERIFY-KEYWORDS ...) ; compiling (DEFUN LOOKUP-KEYWORD ...) ; compiling (DEFUN KEYWORD-SUPPLIED-P ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/parse-defmacro.lisp ; in: DEFUN PARSE-DEFMACRO ; (SB!INT:BAD-TYPE SB!KERNEL::LAMBDA-LIST 'LIST ; "~S lambda-list is not a list: ~S" SB!KERNEL::CONTEXT SB!KERNEL::LAMBDA-LIST) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; ; compilation unit finished ; Undefined function: ; BAD-TYPE ; caught 1 STYLE-WARNING condition ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/parse-defmacro.fasl-tmp written ; compilation finished in 0:00:00.079 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/deftype.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN CONSTANT-TYPE-EXPANDER ...) ; compiling (DEFUN %DEFTYPE ...) ; compiling (DEF!MACRO SB-XC:DEFTYPE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/deftype.lisp ; in: DEFUN %DEFTYPE ; (SETF (SB!KERNEL:CLASSOID-CELL-PCL-CLASS ; (SB!KERNEL:FIND-CLASSOID-CELL SB!IMPL::NAME :CREATE T)) ; NIL) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!KERNEL:CLASSOID-CELL-PCL-CLASS) #:NEW4 #:G5) ; ; caught STYLE-WARNING: ; undefined function: (SETF CLASSOID-CELL-PCL-CLASS) ; in: DEF!MACRO SB-XC:DEFTYPE ; (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~% ~S" ; SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; in: DEFUN %DEFTYPE ; (SB!KERNEL:FIND-CLASSOID-CELL SB!IMPL::NAME :CREATE T) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID-CELL ; ; compilation unit finished ; Undefined functions: ; (SETF CLASSOID-CELL-PCL-CLASS) BAD-TYPE FIND-CLASSOID-CELL ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/deftype.fasl-tmp written ; compilation finished in 0:00:00.015 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/defconstant.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN (SETF SB!C::XC-CONSTANT-VALUE) ...) ; compiling (DEFUN SB!C::XC-CONSTANT-VALUE ...) ; compiling (DEF!MACRO SB-XC:DEFCONSTANT ...) ; compiling (DEFUN SB!C::%DEFCONSTANT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/defconstant.lisp ; in: DEFUN SB!C::%DEFCONSTANT ; (SETF (SB!KERNEL:FDOCUMENTATION SB!IMPL::NAME 'VARIABLE) SB!IMPL::DOC) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW41 #:NAME42 'VARIABLE) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; (SETF (SB!INT:INFO :SOURCE-LOCATION :CONSTANT SB!IMPL::NAME) ; SB!IMPL::SOURCE-LOCATION) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!INT:INFO) #:NEW22 :SOURCE-LOCATION :CONSTANT ; #:NAME23) ; ; caught STYLE-WARNING: ; undefined function: (SETF INFO) ; (SB!INT:ABOUT-TO-MODIFY-SYMBOL-VALUE SB!IMPL::NAME 'DEFCONSTANT) ; ; caught STYLE-WARNING: ; undefined function: ABOUT-TO-MODIFY-SYMBOL-VALUE ; (SB!INT:CLEAR-INFO :VARIABLE :MACRO-EXPANSION SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: CLEAR-INFO ; (SB!INT:INFO :VARIABLE :KIND SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: INFO ; (SB!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 ; ; compilation unit finished ; Undefined functions: ; (SETF FDOCUMENTATION) (SETF INFO) ABOUT-TO-MODIFY-SYMBOL-VALUE CLEAR-INFO INFO SB!C::MAKE-DEFINITION-SOURCE-LOCATION STYLE-WARN ; caught 7 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/defconstant.fasl-tmp written ; compilation finished in 0:00:00.024 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-alieneval.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!ALIEN") ; compiling (DEFVAR *ALIEN-TYPE-CLASSES* ...) ; compiling (DEFVAR *NEW-AUXILIARY-TYPES* ...) ; compiling (DEFVAR *RECORD-TYPES-ALREADY-UNPARSED*) ; compiling (DEFVAR *VALUES-TYPE-OKAY* ...) ; compiling (DEFVAR *DEFAULT-C-STRING-EXTERNAL-FORMAT* ...) ; compiling (DEFVAR *SAVED-FP-AND-PCS*) ; compiling (DECLAIM (INLINE INVOKE-WITH-SAVED-FP-AND-PC)) ; compiling (DEFUN INVOKE-WITH-SAVED-FP-AND-PC ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-alieneval.lisp ; in: DEFUN INVOKE-WITH-SAVED-FP-AND-PC ; (FUNCALL SB!ALIEN::FN) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB!ALIEN::FN) ; ; note: unable to ; optimize ; because: ; optimize away possible call to FDEFINITION at runtime ; compiling (DEFUN FIND-SAVED-FP-AND-PC ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-alieneval.lisp ; in: DEFUN INVOKE-WITH-SAVED-FP-AND-PC ; (SB!KERNEL:%CALLER-FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:%CALLER-FRAME ; (SB!KERNEL:%CALLER-PC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:%CALLER-PC ; in: DEFUN FIND-SAVED-FP-AND-PC ; (SB!KERNEL:GET-LISP-OBJ-ADDRESS (CAR SB!ALIEN::X)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:GET-LISP-OBJ-ADDRESS ; in: DEFUN INVOKE-WITH-SAVED-FP-AND-PC ; (SB!SYS:SAP-INT (SB!KERNEL:%CALLER-PC)) ; ==> ; (TRULY-THE SB!SYS:SAP-INT ; (SB-KERNEL:%INSTANCE-REF ; (THE SB!SYS:SYSTEM-AREA-POINTER (SB!KERNEL:%CALLER-PC)) 1)) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; compilation unit finished ; Undefined type: ; SAP-INT ; Undefined functions: ; SB!KERNEL:%CALLER-FRAME SB!KERNEL:%CALLER-PC SB!KERNEL:GET-LISP-OBJ-ADDRESS ; caught 4 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-alieneval.fasl-tmp written ; compilation finished in 0:00:00.007 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/specializable-array.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFTYPE SPECIALIZABLE ...) ; compiling (DEFTYPE SPECIALIZABLE-VECTOR ...) ; compiling (DEFUN MAKE-SPECIALIZABLE-ARRAY ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/specializable-array.fasl-tmp written ; compilation finished in 0:00:00.010 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-cl.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (PROCLAIM (QUOTE #)) ; compiling (DEFPARAMETER *!STANDARD-TYPE-NAMES* ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-cl.fasl-tmp written ; compilation finished in 0:00:00.002 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-fasl.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFPARAMETER *FASL-HEADER-STRING-START-STRING* ...) ; compiling (DEFINE-FASL-FORMAT-FEATURES) ; compiling (DEF!CONSTANT +FASL-HEADER-STRING-STOP-CHAR-CODE+ ...) ; compiling (DEF!CONSTANT +FASL-FILE-VERSION+ ...) ; compiling (DECLAIM (TYPE SIMPLE-STRING ...)) ; compiling (DEFVAR *FASL-FILE-TYPE* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *ASSEMBLER-ROUTINES* ...) ; compiling (DECLAIM (SIMPLE-VECTOR *FOP-NAMES* ...)) ; compiling (DEFVAR *FOP-NAMES* ...) ; compiling (DEFVAR *FOP-FUNS* ...) ; compiling (DEFVAR *LOAD-DEPTH* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFVAR *FASL-INPUT-STREAM*) ; compiling (DECLAIM (TYPE ANSI-STREAM ...)) ; compiling (DEFVAR *LOAD-CODE-VERBOSE* ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-fasl.fasl-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/debug-var-io.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN %READ-VAR-INTEGER ...) ; compiling (DEFMACRO READ-VAR-INTEGER ...) ; compiling (DEFUN WRITE-VAR-INTEGER ...) ; compiling (DEFMACRO READ-VAR-STRING ...) ; compiling (DEFUN WRITE-VAR-STRING ...) ; compiling (DEFMACRO READ-PACKED-BIT-VECTOR ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/debug-var-io.fasl-tmp written ; compilation finished in 0:00:00.024 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-thread.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (DEFVAR *CURRENT-THREAD* ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-thread.fasl-tmp written ; compilation finished in 0:00:00.002 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-raw-slots.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEF!TYPE WORD ...) ; compiling (DEF!TYPE SB!VM:SIGNED-WORD ...) ; compiling (DEFSTRUCT (RAW-SLOT-DATA # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE RAW-SLOT-DATA)) ; compiling (DEFGLOBAL *RAW-SLOT-DATA-LIST* ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-raw-slots.lisp ; in: DEFGLOBAL *RAW-SLOT-DATA-LIST* ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/WORD) ; --> LAMBDA FUNCTION = IF ; ==> ; (= (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!KERNEL::X SB!INT:INDEX) ; (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!KERNEL::Y SB!INT:INDEX)) ; ; note: unable to ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/SINGLE) ; --> LAMBDA FUNCTION = IF ; ==> ; (= (SB!KERNEL:%RAW-INSTANCE-REF/SINGLE SB!KERNEL::X SB!INT:INDEX) ; (SB!KERNEL:%RAW-INSTANCE-REF/SINGLE SB!KERNEL::Y SB!INT:INDEX)) ; ; note: unable to ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE) ; --> LAMBDA FUNCTION = IF ; ==> ; (= (SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE SB!KERNEL::X SB!INT:INDEX) ; (SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE SB!KERNEL::Y SB!INT:INDEX)) ; ; note: unable to ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE) ; --> LAMBDA FUNCTION = IF ; ==> ; (= (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE SB!KERNEL::X SB!INT:INDEX) ; (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE SB!KERNEL::Y SB!INT:INDEX)) ; ; note: unable to ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE) ; --> LAMBDA FUNCTION = IF ; ==> ; (= (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE SB!KERNEL::X SB!INT:INDEX) ; (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE SB!KERNEL::Y SB!INT:INDEX)) ; ; note: unable to ; 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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN RAW-SLOT-DATA-OR-LOSE ...) ; compiling (DEFUN RAW-SLOT-WORDS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-raw-slots.lisp ; in: DEFGLOBAL *RAW-SLOT-DATA-LIST* ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE) ; --> LAMBDA FUNCTION = IF = ; ==> ; (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE SB!KERNEL::X SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/COMPLEX-DOUBLE ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE) ; --> LAMBDA FUNCTION = IF = ; ==> ; (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE SB!KERNEL::X SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/COMPLEX-SINGLE ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE) ; --> LAMBDA FUNCTION = IF = ; ==> ; (SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE SB!KERNEL::X SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/DOUBLE ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/SINGLE) ; --> LAMBDA FUNCTION = IF = ; ==> ; (SB!KERNEL:%RAW-INSTANCE-REF/SINGLE SB!KERNEL::X SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/SINGLE ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/WORD) ; --> LAMBDA FUNCTION = IF = ; ==> ; (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!KERNEL::X SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/WORD ; ; compilation unit finished ; Undefined functions: ; %RAW-INSTANCE-REF/COMPLEX-DOUBLE %RAW-INSTANCE-REF/COMPLEX-SINGLE %RAW-INSTANCE-REF/DOUBLE %RAW-INSTANCE-REF/SINGLE %RAW-INSTANCE-REF/WORD ; caught 5 STYLE-WARNING conditions ; printed 25 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-raw-slots.fasl-tmp written ; compilation finished in 0:00:00.097 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangstruct.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFTYPE DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...) ; compiling (DEFVAR *DEF!STRUCT-SUPERTYPE* ...) ; compiling (DEFUN DEF!STRUCT-SUPERTYPE ...) ; compiling (DEFUN (SETF DEF!STRUCT-SUPERTYPE) ...) ; compiling (DEFVAR *DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN* ...) ; compiling (DEFUN DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...) ; compiling (DEFUN (SETF DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN) ...) ; compiling (DEFUN JUST-DUMP-IT-NORMALLY ...) ; compiling (DEFUN IGNORE-IT ...) ; compiling (DEFSTRUCT DELAYED-DEF!STRUCT ...) ; compiling (DEFVAR *DELAYED-DEF!STRUCTS* ...) ; compiling (DEFUN PARSE-DEF!STRUCT-ARGS ...) ; compiling (DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P ...) ; compiling (DEFUN %INSTANCE-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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangstruct.lisp ; in: DEFUN %INSTANCE-SET ; (SB!KERNEL:CLASSOID-LAYOUT CLASS) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFUN %INSTANCE-REF ; (SB!KERNEL:CLASSOID-LAYOUT CLASS) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFUN %INSTANCE-LENGTH ; (SB!KERNEL:CLASSOID-LAYOUT ; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE))) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P ; (SB!KERNEL::COMPILER-LAYOUT-READY-P SB!KERNEL::NAME) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-LAYOUT-READY-P ; in: DEFUN %INSTANCE-SET ; (SB!KERNEL:DD-SLOTS SB!KERNEL::DD) ; ; caught STYLE-WARNING: ; undefined function: DD-SLOTS ; in: DEFUN %INSTANCE-REF ; (SB!KERNEL:DD-SLOTS SB!KERNEL::DD) ; ; caught STYLE-WARNING: ; undefined function: DD-SLOTS ; in: DEFUN %INSTANCE-SET ; (SB!KERNEL:DSD-ACCESSOR-NAME SB!KERNEL::DSD) ; ; caught STYLE-WARNING: ; undefined function: DSD-ACCESSOR-NAME ; in: DEFUN %INSTANCE-REF ; (SB!KERNEL:DSD-ACCESSOR-NAME SB!KERNEL::DSD) ; ; caught STYLE-WARNING: ; undefined function: DSD-ACCESSOR-NAME ; 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 XC-DUMPABLE-STRUCTURE-INSTANCE-P ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN %INSTANCE-SET ; (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INFO ; in: DEFUN %INSTANCE-REF ; (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INFO ; in: DEFUN %INSTANCE-LENGTH ; (SB!KERNEL:LAYOUT-LENGTH ; (SB!KERNEL:CLASSOID-LAYOUT ; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE)))) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-LENGTH ; in: DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P ; (SB!KERNEL:LAYOUT-N-UNTAGGED-SLOTS ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-N-UNTAGGED-SLOTS ; ; compilation unit finished ; Undefined functions: ; CLASSOID-LAYOUT COMPILER-LAYOUT-READY-P DD-SLOTS DSD-ACCESSOR-NAME FIND-CLASSOID INFO LAYOUT-INFO LAYOUT-LENGTH LAYOUT-N-UNTAGGED-SLOTS ; caught 16 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/defbangstruct.fasl-tmp written ; compilation finished in 0:00:00.089 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unportable-float.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN MAKE-UNPORTABLE-FLOAT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/unportable-float.fasl-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/type-class.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/type-class.lisp ; in: ; DEF!STRUCT (TYPE-CLASS ; (:PRINT-OBJECT (LAMBDA (X STREAM) (PRINT-UNREADABLE-OBJECT # #)))) ; #'SB!KERNEL::HIERARCHICAL-INTERSECTION2 ; ; caught STYLE-WARNING: ; undefined function: HIERARCHICAL-INTERSECTION2 ; #'SB!KERNEL::HIERARCHICAL-UNION2 ; ; caught STYLE-WARNING: ; undefined function: HIERARCHICAL-UNION2 ; in: DEFUN INVOKE-COMPLEX-=-OTHER-METHOD ; (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: TYPE-CLASS-INFO ; in: DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD ; (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: TYPE-CLASS-INFO ; ; compilation unit finished ; Undefined functions: ; HIERARCHICAL-INTERSECTION2 HIERARCHICAL-UNION2 TYPE-CLASS-INFO ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/type-class.fasl-tmp written ; compilation finished in 0:00:00.064 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/early-backend.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *BACKEND-PAGE-BYTES* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/early-backend.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/info-vector.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFCONSTANT +EMPTY-KEY+ ...) ; compiling (DEFCONSTANT +UNAVAILABLE-KEY+ ...) ; compiling (DEFTYPE INFO-CELL-INDEX ...) ; compiling (DEFCONSTANT +INFO-KEYS-OFFSET+ ...) ; compiling (DEFSTRUCT (INFO-STORAGE # ...) ...) ; compiling (DEFUN MAKE-INFO-STORAGE ...) ; compiling (DEFSTRUCT (INFO-HASHTABLE #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFMACRO INFO-CAS ...) ; compiling (DECLAIM (INLINE INFO-ENV-ADJUST-COUNT)) ; compiling (DEFUN INFO-ENV-ADJUST-COUNT ...) ; compiling (DECLAIM (INLINE MAKE-INFO-FORWARDING-POINTER ...) ...) ; compiling (DEFUN MAKE-INFO-FORWARDING-POINTER ...) ; compiling (DEFUN INFO-FORWARDING-POINTER-TARGET ...) ; compiling (DEFUN INFO-VALUE-MOVED-P ...) ; compiling (DEFMACRO DO-PROBE-SEQUENCE ...) ; compiling (DEFUN %WAIT-FOR-REHASH ...) ; compiling (DEFUN INFO-GETHASH ...) ; compiling (DEFUN INFO-PUTHASH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/info-vector.lisp ; in: DEFUN INFO-ENV-ADJUST-COUNT ; (SB!C::INFO-ENV-COUNT SB!C::TABLE) ; --> TRULY-THE SB-KERNEL:%RAW-INSTANCE-REF/WORD THE ; ==> ; SB!C::TABLE ; ; note: deleting unreachable code ; in: DEFUN INFO-PUTHASH ; (SB!C::INFO-ENV-COMPARATOR SB!C::ENV) ; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE ; ==> ; SB!C::ENV ; ; note: deleting unreachable code ; (SB!C::FOLLOW/UPDATE SB!C::STORAGE (SB!C::VALUE-INDEX)) ; ==> ; SB!C::STORAGE ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (EQL SB!C::OLDKEY SB!C::+UNAVAILABLE-KEY+) ; ==> ; SB!C::OLDKEY ; ; note: deleting unreachable code ; (SB!C::PROBE SB!C::HASHVAL (SB!C::%WAIT-FOR-REHASH SB!C::ENV SB!C::STORAGE)) ; ==> ; SB!C::HASHVAL ; ; note: deleting unreachable code ; compiling (DEFUN INFO-ENV-REHASH ...) ; compiling (DEFMACRO INFO-MAPHASH ...) ; compiling (DEFUN (SETF INFO-GETHASH) ...) ; compiling (DEFUN SHOW-INFO-ENV ...) ; compiling (DEF!CONSTANT TYPE-NUMBER-BITS ...) ; compiling (DEFTYPE TYPE-NUMBER ...) ; compiling (DEFCONSTANT INFO-TYPE-MASK ...) ; compiling (DEFCONSTANT +INFOS-PER-WORD+ ...) ; compiling (DEFTYPE INFO-DESCRIPTOR ...) ; compiling (DEFCONSTANT +NO-AUXILLIARY-KEY+ ...) ; compiling (DEFCONSTANT-EQX +NIL-PACKED-INFOS+ ...) ; compiling (DEFCONSTANT +FDEFN-TYPE-NUM+ ...) ; compiling (DECLAIM (INLINE PACKED-INFO-FIELD)) ; compiling (DEFUN PACKED-INFO-FIELD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/info-vector.lisp ; in: DEFUN PACKED-INFO-FIELD ; (THE SB!C::TYPE-NUMBER ; (SB-XC:LDB ; (SB-XC:BYTE SB!C::TYPE-NUMBER-BITS ; (* (THE # SB!C::FIELD-INDEX) SB!C::TYPE-NUMBER-BITS)) ; (THE SB!C::INFO-DESCRIPTOR (SVREF VECTOR SB!C::DESC-INDEX)))) ; ; note: type assertion too complex to check: ; (VALUES (UNSIGNED-BYTE 6) &REST T). ; compiling (DEFUN COMPUTE-PACKIFIED-INFO-SIZE ...) ; compiling (DEFMACRO MAKE-INFO-DESCRIPTOR ...) ; compiling (DEFUN PACKIFY-INFOS ...) ; compiling (DEFMACRO WITH-PACKED-INFO-ITERATOR ...) ; compiling (DEFMACRO DO-PACKED-INFO-VECTOR-AUX-KEY ...) ; compiling (DEFUN COMPUTE-UNPACKIFIED-INFO-SIZE ...) ; compiling (DEFUN UNPACKIFY-INFOS ...) ; compiling (DEFUN INFO-FIND-AUX-KEY/UNPACKED ...) ; compiling (DEFUN INFO-FIND-AUX-KEY/PACKED ...) ; compiling (DEFUN %PACKED-INFO-INSERT ...) ; compiling (DECLAIM (INLINE INFO-QUICKLY-INSERTABLE-P)) ; compiling (DEFUN INFO-QUICKLY-INSERTABLE-P ...) ; compiling (DEFUN QUICK-PACKED-INFO-INSERT ...) ; compiling (DECLAIM (MAYBE-INLINE PACKED-INFO-INSERT)) ; compiling (DEFUN PACKED-INFO-INSERT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PACKED-INFO-VALUE-INDEX ...) ; compiling (DEFUN PACKED-INFO-REMOVE ...) ; compiling (DEFUN %CALL-WITH-EACH-INFO ...) ; compiling (DEFUN !TEST-PACKIFY-INFOS ...) ; compiling (DEFMACRO WITH-GLOBALDB-NAME ...) ; compiling (DECLAIM (INLINE INFO-VECTOR-FDEFN)) ; compiling (DEFUN INFO-VECTOR-FDEFN ...) ; compiling (DEFUN SYMBOL-INFO ...) ; compiling (DEFUN UPDATE-SYMBOL-INFO ...) ; compiling (DEFUN SYMBOL-INFO-VECTOR ...) ; compiling (DECLAIM (TYPE INFO-HASHTABLE ...)) ; compiling (DEFVAR *INFO-ENVIRONMENT*) ; compiling (DEFUN SET-INFO-VALUE ...) ; compiling (DEFUN %GET-INFO-VALUE-INITIALIZING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/info-vector.lisp ; in: DEFUN INFO-VALUE-MOVED-P ; (SB!INT:FIXNUMP SB!C::VAL) ; ; caught STYLE-WARNING: ; undefined function: FIXNUMP ; in: DEFSTRUCT INFO-HASHTABLE ; #'SB!C::GLOBALDB-SXHASHOID ; ; caught STYLE-WARNING: ; undefined function: GLOBALDB-SXHASHOID ; in: DEFUN MAKE-INFO-STORAGE ; (SB!C::PRIMIFY (CEILING SB!C::N-CELLS-MIN SB!C::LOAD-FACTOR)) ; ; caught STYLE-WARNING: ; undefined function: PRIMIFY ; in: DEFUN %WAIT-FOR-REHASH ; (SB!THREAD:THREAD-YIELD) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:THREAD-YIELD ; ; compilation unit finished ; Undefined functions: ; FIXNUMP GLOBALDB-SXHASHOID PRIMIFY SB!THREAD:THREAD-YIELD ; caught 4 STYLE-WARNING conditions ; printed 7 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/info-vector.fasl-tmp written ; compilation finished in 0:00:01.545 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-array.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFSTRUCT (SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES # ...) ...) ; compiling (DEFGLOBAL *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...) ; compiling (PROCLAIM (SB!IMPL::BACKQ-LIST* # ...)) ; compiling (DEFUN VALID-BIT-BASH-SAETP-P ...) ; compiling (DEFVAR SB!KERNEL::*SPECIALIZED-ARRAY-ELEMENT-TYPES* ...) ; compiling (DEFVAR *SIMPLE-ARRAY-PRIMITIVE-TYPES* ...) ; compiling (DEFVAR *VECTOR-WITHOUT-COMPLEX-TYPECODE-INFOS* ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN FIND-SAETP ...) ; compiling (DEFUN FIND-SAETP-BY-CTYPE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-array.lisp ; in: DEFUN FIND-SAETP-BY-CTYPE ; #'SB!KERNEL:CSUBTYPEP ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFSTRUCT SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES ; (DEFSTRUCT ; (SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES ; (:CONC-NAME SB!VM::SAETP-) ; (:CONSTRUCTOR SB!VM::!MAKE-SAETP ; (SB!VM::SPECIFIER SB!VM::INITIAL-ELEMENT-DEFAULT SB!VM::N-BITS ; SB!C:PRIMITIVE-TYPE-NAME &KEY (SB!VM::N-PAD-ELEMENTS 0) ; SB!VM::COMPLEX-TYPECODE (SB!VM::IMPORTANCE 0) SB!VM::FIXNUM-P &AUX ; (SB!VM::TYPECODE #))) ; (:COPIER NIL)) ; (SB!VM::SPECIFIER (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:TYPE-SPECIFIER ; :READ-ONLY T) ; (SB!KERNEL:CTYPE NIL :TYPE (OR SB!KERNEL:CTYPE NULL)) ; (SB!VM::FIXNUM-P NIL :TYPE BOOLEAN :READ-ONLY T) ; (SB!VM::INITIAL-ELEMENT-DEFAULT (SB!INT:MISSING-ARG) :READ-ONLY T) ; (SB!VM::N-BITS (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!VM::TYPECODE (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!VM::COMPLEX-TYPECODE NIL :TYPE (OR SB!INT:INDEX NULL) :READ-ONLY T) ; (SB!C:PRIMITIVE-TYPE-NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!VM::N-PAD-ELEMENTS (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY ; T) ; (SB!VM::IMPORTANCE (SB!INT:MISSING-ARG) :TYPE FIXNUM :READ-ONLY T)) ; ; caught STYLE-WARNING: ; undefined type: CTYPE ; ; compilation unit finished ; Undefined type: ; CTYPE ; Undefined function: ; CSUBTYPEP ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/vm-array.fasl-tmp written ; compilation finished in 0:00:00.114 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/sc-offset.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/sc-offset.fasl-tmp written ; compilation finished in 0:00:00.010 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/char.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!CONSTANT SB-XC:CHAR-CODE-LIMIT ...) ; compiling (DEF!CONSTANT BASE-CHAR-CODE-LIMIT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/char.fasl-tmp written ; compilation finished in 0:00:00.002 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/huffman.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFSTRUCT (HUFFMAN-NODE #) ...) ; compiling (DEFSTRUCT (HUFFMAN-PAIR # ...) ...) ; compiling (DEFUN HUFFMAN-WEIGHTS ...) ; compiling (DEFUN MAKE-HUFFMAN-TREE ...) ; compiling (DEFUN HUFFMAN-DECODE ...) ; compiling (DEFUN HUFFMAN-MATCH ...) ; compiling (DEFUN HUFFMAN-ENCODE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/huffman.fasl-tmp written ; compilation finished in 0:00:00.030 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/misc.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE ...) ; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/misc.fasl-tmp written ; compilation finished in 0:00:00.004 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-format.lisp" (written 28 JUN 2014 03:46:25 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*) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-format.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/early-c.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!CONSTANT SB-XC:CALL-ARGUMENTS-LIMIT ...) ; compiling (DEF!CONSTANT SB-XC:LAMBDA-PARAMETERS-LIMIT ...) ; compiling (DEF!CONSTANT SB-XC:MULTIPLE-VALUES-LIMIT ...) ; compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME*) ; compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME*) ; compiling (DEFVAR SB-XC:*COMPILE-PRINT*) ; compiling (DEFVAR SB-XC:*COMPILE-VERBOSE*) ; compiling (DEF!TYPE LAYOUT-DEPTHOID ...) ; compiling (DEFTYPE INLINEP ...) ; compiling (DEFPARAMETER *INLINEP-TRANSLATIONS* ...) ; compiling (DEFVAR *LEXENV*) ; compiling (DECLAIM (TYPE LEXENV ...)) ; compiling (DEFVAR *FREE-VARS*) ; compiling (DEFVAR *FREE-FUNS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *CONSTANTS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *ALLOW-INSTRUMENTING*) ; compiling (DEFVAR *CODE-SEGMENT*) ; compiling (DEFVAR *COMPONENT-BEING-COMPILED*) ; compiling (DEFVAR *COMPILER-ERROR-CONTEXT*) ; compiling (DEFVAR *COMPILER-ERROR-COUNT*) ; compiling (DEFVAR *COMPILER-WARNING-COUNT*) ; compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*) ; compiling (DEFVAR *COMPILER-NOTE-COUNT*) ; compiling (DEFVAR *COMPILER-TRACE-OUTPUT*) ; compiling (DEFVAR *CONSTRAINT-UNIVERSE*) ; compiling (DEFVAR *COUNT-VOP-USAGES*) ; compiling (DEFVAR *CURRENT-PATH*) ; compiling (DEFVAR *CURRENT-COMPONENT*) ; compiling (DEFVAR *DELAYED-IR1-TRANSFORMS*) ; compiling (DEFVAR *EVAL-TLF-INDEX*) ; compiling (DEFVAR *HANDLED-CONDITIONS*) ; compiling (DEFVAR *DISABLED-PACKAGE-LOCKS*) ; compiling (DEFVAR *POLICY*) ; compiling (DEFVAR *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 *CONSTANT-SEGMENT*) ; compiling (DEFVAR *CONSTANT-TABLE*) ; compiling (DEFVAR *CONSTANT-VECTOR*) ; compiling (DEFVAR *LEXENV*) ; compiling (DEFVAR *SOURCE-INFO*) ; compiling (DEFVAR *SOURCE-PLIST*) ; compiling (DEFVAR *SOURCE-NAMESTRING*) ; compiling (DEFVAR *UNDEFINED-WARNINGS*) ; compiling (DEFVAR *WARNINGS-P*) ; compiling (DEFVAR *LAMBDA-CONVERSIONS*) ; compiling (DEFVAR *STACK-ALLOCATE-DYNAMIC-EXTENT* ...) ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFGLOBAL **WORLD-LOCK** ...) ; compiling (!COLD-INIT-FORMS (SETF **WORLD-LOCK** ...)) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !WORLD-LOCK-COLD-INIT) ; compiling (DEFMACRO WITH-WORLD-LOCK ...) ; compiling (DECLAIM (TYPE FIXNUM ...)) ; compiling (DEFVAR *COMPILER-SSET-COUNTER* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-NAME-DEFINED ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-LEXICAL-BINDING ...) ; compiling (DEF!STRUCT (DEBUG-NAME-MARKER # ...)) ; compiling (DEFVAR *DEBUG-NAME-LEVEL* ...) ; compiling (DEFVAR *DEBUG-NAME-LENGTH* ...) ; compiling (DEFVAR *DEBUG-NAME-PUNT*) ; compiling (DEFVAR *DEBUG-NAME-SHARP*) ; compiling (DEFVAR *DEBUG-NAME-ELLIPSIS*) ; compiling (DEFUN DUMP-DEBUG-NAME-MARKER ...) ; compiling (DEFUN PRINT-DEBUG-NAME-MARKER ...) ; compiling (SETF *DEBUG-NAME-SHARP* ...) ; compiling (DEFUN DEBUG-NAME ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/early-c.lisp ; in: DECLAIM (TYPE LEXENV *LEXENV*) ; (DECLAIM (TYPE SB!KERNEL:LEXENV SB!C:*LEXENV*)) ; --> EVAL-WHEN ; ==> ; (PROCLAIM '(TYPE SB!KERNEL:LEXENV SB!C:*LEXENV*)) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; in: DEFUN DEBUG-NAME ; (SB!C::NAME-CONTEXT) ; ; caught STYLE-WARNING: ; undefined function: NAME-CONTEXT ; in: DEFUN NOTE-LEXICAL-BINDING ; (SB!INT:STYLE-WARN 'SB!KERNEL:ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME ; :FORMAT-CONTROL "using the lexical binding of the symbol ~ ; ~/sb-impl::print-symbol-with-prefix/, not the~@ ; dynamic binding" ; :FORMAT-ARGUMENTS (LIST SYMBOL)) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; in: DEFUN NOTE-NAME-DEFINED ; (SB!C::UNDEFINED-WARNING-KIND SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: UNDEFINED-WARNING-KIND ; (SB!C::UNDEFINED-WARNING-NAME SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: UNDEFINED-WARNING-NAME ; ; compilation unit finished ; Undefined type: ; LEXENV ; Undefined functions: ; NAME-CONTEXT STYLE-WARN UNDEFINED-WARNING-KIND UNDEFINED-WARNING-NAME ; caught 5 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/early-c.fasl-tmp written ; compilation finished in 0:00:00.036 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/policy.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!TYPE POLICY-QUALITY ...) ; compiling (DEFVAR *POLICY-RESTRICTIONS* ...) ; compiling (DEFUN RESTRICT-COMPILER-POLICY ...) ; compiling (DEF!TYPE POLICY ...) ; compiling (DEFSTRUCT POLICY-DEPENDENT-QUALITY ...) ; compiling (DEFVAR *POLICY-QUALITIES*) ; compiling (DEFVAR *POLICY-DEPENDENT-QUALITIES* ...) ; compiling (DEFUN POLICY-QUALITY-NAME-P ...) ; compiling (DEFUN POLICY-QUALITY-DEPRECATION-WARNING ...) ; compiling (DECLAIM (TYPE POLICY ...)) ; compiling (DEFVAR *POLICY*) ; compiling (DEFUN SORT-POLICY ...) ; compiling (DEFUN !POLICY-COLD-INIT-OR-RESANIFY ...) ; compiling (!POLICY-COLD-INIT-OR-RESANIFY) ; compiling (DEFUN POLICY-QUALITY ...) ; compiling (DEFUN %POLICY-QUALITY ...) ; compiling (DEFMACRO POLICY ...) ; compiling (DEFMACRO DEFINE-OPTIMIZATION-QUALITY ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/policy.fasl-tmp written ; compilation finished in 0:00:00.036 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/policies.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY LET-CONVERSION ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY ALIEN-FUNCALL-SAVES-FP-AND-PC ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY VERIFY-ARG-COUNT ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-DEBUG-CATCH ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY RECOGNIZE-SELF-CALLS ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY FLOAT-ACCURACY ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-STEP-CONDITIONS ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY COMPUTE-DEBUG-FUN ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY PRESERVE-SINGLE-USE-DEBUG-VARIABLES ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-ARRAY-BOUNDS-CHECKS ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY STORE-XREF-DATA ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY STORE-COVERAGE-DATA ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/policies.lisp ; in: DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-TAG-EXISTENCE ; (COND ((= SAFETY 0) 0) (T 3)) ; ("no" "maybe" "yes" "yes") ; "Control whether GO and RETURN-FROM check liveness of the destination tag. ; Enabling this option can increase heap consing of closures.") ; --> PROGN LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION SB!C:POLICY ; --> LET* ; ==> ; (SB!C::%COERCE-TO-POLICY SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-TO-POLICY ; in: DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::TYPE-CHECK ; (COND ((= SAFETY 0) 0) ; ((AND (< SAFETY 2) (< SAFETY SPEED)) ; 2) ; (T 3)) ; ("no" "maybe" "weak" "full") ; "Control the way to perform runtime type checking: ; 0: declared types are simply trusted; no runtime checks are performed; ; 2: fast checks are performed: declared types are weakened to ; FIXNUM/SINGLE-FLOAT/FLOAT/NUMBER/structure/specialized array etc.; ; 3: declared types are fully checked (several exceptions exist; ; see \"SBCL User Manual\", Compiler->Handling of Types-> ; Implementation Limitations for details).") ; --> PROGN LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION SB!C:POLICY ; --> LET* ; ==> ; (SB!C::%COERCE-TO-POLICY SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-TO-POLICY ; in: DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-CONSTANT-MODIFICATION SAFETY ; ("no" "maybe" "yes" "yes") ; "Control whether the compiler should check for constant ; modification. Defaults to SAFETY.") ; --> PROGN LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION SB!C:POLICY ; --> LET* ; ==> ; (SB!C::%COERCE-TO-POLICY SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-TO-POLICY ; ; caught STYLE-WARNING: ; 24 more uses of undefined function %COERCE-TO-POLICY ; ; compilation unit finished ; Undefined function: ; %COERCE-TO-POLICY ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/policies.fasl-tmp written ; compilation finished in 0:00:00.062 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/typedefs.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFMACRO !DEF-TYPE-TRANSLATOR ...) ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/typedefs.lisp ; in: DEFUN HIERARCHICAL-UNION2 ; (SB!KERNEL:CSUBTYPEP SB!KERNEL::TYPE1 SB!KERNEL::TYPE2) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN HIERARCHICAL-INTERSECTION2 ; (SB!KERNEL:CSUBTYPEP SB!KERNEL::TYPE2 SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN MAKE-TYPE-LOAD-FORM ; (SB!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; in: DEF!METHOD PRINT-OBJECT ; (SB!KERNEL:TYPE-SPECIFIER SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; ; compilation unit finished ; Undefined functions: ; CSUBTYPEP TYPE-SPECIFIER ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/typedefs.fasl-tmp written ; compilation finished in 0:00:00.044 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/macros.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*)) ; 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 ...) ; 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-SOURCE-PATHS ...) ; compiling (DEFMACRO WITH-IR1-NAMESPACE ...) ; compiling (DEFMACRO LEXENV-FIND ...) ; compiling (DEFMACRO WITH-COMPONENT-LAST-BLOCK ...) ; compiling (DEFSTRUCT (EVENT-INFO #) ...) ; compiling (DEFVAR *EVENT-INFO* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EVENT-INFO-OR-LOSE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EVENT-COUNT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EVENT-ACTION ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %SET-EVENT-ACTION ...) ; compiling (DEFSETF EVENT-ACTION ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EVENT-LEVEL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %SET-EVENT-LEVEL ...) ; compiling (DEFSETF EVENT-LEVEL ...) ; compiling (DEFMACRO DEFEVENT ...) ; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; compiling (DEFVAR *EVENT-NOTE-THRESHOLD* ...) ; compiling (DEFMACRO EVENT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EVENT-STATISTICS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CLEAR-EVENT-STATISTICS ...) ; compiling (DECLAIM (INLINE FIND-IN ...)) ; compiling (DEFUN FIND-IN ...) ; compiling (DEFUN POSITION-IN ...) ; compiling (DEF!MACRO DELETEF-IN ...) ; compiling (DEF!MACRO PUSH-IN ...) ; compiling (DEFMACRO POSITION-OR-LOSE ...) ; compiling (DEFVAR *COMPILER-PRINT-VARIABLE-ALIST* ...) ; compiling (DEFMACRO WITH-COMPILER-IO-SYNTAX ...) ; compiling (DEFMACRO COMPILER-DESTRUCTURING-BIND ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/macros.lisp ; in: DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ; (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: AVER-LIVE-COMPONENT ; (LET ((SB!C::*CURRENT-COMPONENT* (SB!C::NODE-COMPONENT SB!C::NODE)) ; (SB!C:*LEXENV* (SB!C::NODE-LEXENV SB!C::NODE)) ; (SB!C::*CURRENT-PATH* (SB!C::NODE-SOURCE-PATH SB!C::NODE))) ; (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; (FUNCALL SB!C::FUN)) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF ; ==> ; (TYPEP #:G585 '(OR SB!KERNEL:LEXENV NULL)) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; (DEFUN SB!C::%WITH-IR1-ENVIRONMENT-FROM-NODE (SB!C::NODE SB!C::FUN) ; (DECLARE (TYPE SB!C::NODE SB!C::NODE) ; (TYPE FUNCTION SB!C::FUN)) ; (LET ((SB!C::*CURRENT-COMPONENT* (SB!C::NODE-COMPONENT SB!C::NODE)) ; (SB!C:*LEXENV* (SB!C::NODE-LEXENV SB!C::NODE)) ; (SB!C::*CURRENT-PATH* (SB!C::NODE-SOURCE-PATH SB!C::NODE))) ; (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; (FUNCALL SB!C::FUN))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF ; ==> ; (TYPEP #:G589 'SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined type: NODE ; (TYPE SB!C::NODE SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined type: NODE ; (SB!C::NODE-COMPONENT SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; (SB!C::NODE-LEXENV SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: NODE-LEXENV ; (SB!C::NODE-SOURCE-PATH SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: NODE-SOURCE-PATH ; in: DEFUN PARSE-DEFTRANSFORM ; (SB!INT:PARSE-LAMBDA-LIST SB!C::LAMBDA-LIST) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST ; ; compilation unit finished ; Undefined types: ; LEXENV NODE ; Undefined functions: ; AVER-LIVE-COMPONENT NODE-COMPONENT NODE-LEXENV NODE-SOURCE-PATH PARSE-LAMBDA-LIST ; caught 8 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/macros.fasl-tmp written ; compilation finished in 0:00:00.256 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-macs.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFMACRO PAD-DATA-BLOCK ...) ; compiling (DEFUN REMOVE-KEYWORDS ...) ; compiling (DEF!STRUCT (PRIM-OBJECT-SLOT # ...) ...) ; compiling (DEF!STRUCT (PRIMITIVE-OBJECT #) ...) ; compiling (DEFVAR *PRIMITIVE-OBJECTS* ...) ; compiling (DEFUN %DEFINE-PRIMITIVE-OBJECT ...) ; compiling (DEFVAR *!LATE-PRIMITIVE-OBJECT-FORMS* ...) ; compiling (DEFMACRO DEFINE-PRIMITIVE-OBJECT ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFMACRO DEF-REFFER ...) ; compiling (DEFMACRO DEF-SETTER ...) ; compiling (DEFMACRO DEF-ALLOC ...) ; compiling (DEFMACRO DEF-CASSER ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!CONSTANT SC-NUMBER-LIMIT ...) ; compiling (DEFSTRUCT MODULAR-CLASS ...) ; compiling (DEFVAR *UNTAGGED-UNSIGNED-MODULAR-CLASS* ...) ; compiling (DEFVAR *UNTAGGED-SIGNED-MODULAR-CLASS* ...) ; compiling (DEFVAR *TAGGED-MODULAR-CLASS* ...) ; compiling (DEFUN FIND-MODULAR-CLASS ...) ; compiling (DEFSTRUCT MODULAR-FUN-INFO ...) ; compiling (DEFUN FIND-MODULAR-VERSION ...) ; compiling (DEFUN MODULAR-VERSION-INFO ...) ; compiling (DEFUN %DEFINE-MODULAR-FUN ...) ; compiling (DEFMACRO DEFINE-MODULAR-FUN ...) ; compiling (DEFUN %DEFINE-GOOD-MODULAR-FUN ...) ; compiling (DEFMACRO DEFINE-GOOD-MODULAR-FUN ...) ; compiling (DEFMACRO DEFINE-MODULAR-FUN-OPTIMIZER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-macs.lisp ; in: DEFUN %DEFINE-MODULAR-FUN ; (SB!INT:STYLE-WARN "Redefining modular version ~S of ~S for ~ ; ~:[un~;~]signed width ~S." ; SB!C::NAME SB!C::PROTOTYPE SB!C::SIGNEDP SB!C::WIDTH) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined function: ; STYLE-WARN ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/vm-macs.fasl-tmp written ; compilation finished in 0:00:00.151 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/objdef.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-PRIMITIVE-OBJECT (CONS :TYPE ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (INSTANCE :LOWTAG ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (BIGNUM :LOWTAG ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (RATIO :TYPE ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (DOUBLE-FLOAT :LOWTAG ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (COMPLEX :TYPE ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (ARRAY :LOWTAG ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (VECTOR :TYPE ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (CODE :TYPE ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (FDEFN :TYPE ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (SIMPLE-FUN :TYPE ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (RETURN-PC :LOWTAG ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (CLOSURE :LOWTAG ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (FUNCALLABLE-INSTANCE :LOWTAG ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (VALUE-CELL :LOWTAG ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (SAP :LOWTAG ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (WEAK-POINTER :TYPE ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (BINDING) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (UNWIND-BLOCK) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (CATCH-BLOCK) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (SYMBOL :LOWTAG ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (COMPLEX-SINGLE-FLOAT :LOWTAG ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (COMPLEX-DOUBLE-FLOAT :LOWTAG ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (SIMD-PACK :LOWTAG ...) ...) ; compiling (DEFINE-PRIMITIVE-OBJECT (THREAD) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/objdef.fasl-tmp written ; compilation finished in 0:00:00.389 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/sset.lisp" (written 28 JUN 2014 03:46:26 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/sset.fasl-tmp written ; compilation finished in 0:00:00.157 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/node.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!STRUCT (CTRAN # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEF!STRUCT (LVAR # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEF!STRUCT (NODE # ...) ...) ; compiling (DEF!STRUCT (VALUED-NODE # ...) ...) ; compiling (!DEF-BOOLEAN-ATTRIBUTE BLOCK ...) ; compiling (DEFATTR BLOCK-REOPTIMIZE) ; compiling (DEFATTR BLOCK-FLUSH-P) ; compiling (DEFATTR BLOCK-TYPE-CHECK) ; compiling (DEFATTR BLOCK-DELETE-P) ; compiling (DEFATTR BLOCK-TYPE-ASSERTED) ; compiling (DEFATTR BLOCK-TEST-MODIFIED) ; compiling (DEF!STRUCT (CBLOCK # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEF!STRUCT (BLOCK-ANNOTATION # ...) ...) ; compiling (DEF!STRUCT (COMPONENT # ...) ...) ; compiling (DEFPRINTER (COMPONENT :IDENTITY ...) ...) ; compiling (DEFUN AVER-LIVE-COMPONENT ...) ; compiling (DEFUN LAMBDA-TOPLEVELISH-P ...) ; compiling (DEFUN COMPONENT-TOPLEVELISH-P ...) ; compiling (DEF!STRUCT (CLEANUP #) ...) ; compiling (DEFPRINTER (CLEANUP :IDENTITY ...) ...) ; compiling (DEF!STRUCT (PHYSENV #) ...) ; compiling (DEFPRINTER (PHYSENV :IDENTITY ...) ...) ; compiling (DEF!STRUCT (TAIL-SET) ...) ; compiling (DEFPRINTER (TAIL-SET :IDENTITY ...) ...) ; compiling (DEF!STRUCT (NLX-INFO # ...) ...) ; compiling (DEFPRINTER (NLX-INFO :IDENTITY ...) ...) ; compiling (DEF!STRUCT (LEAF # ...) ...) ; compiling (DEFUN LEAF-DYNAMIC-EXTENT ...) ; compiling (DEFUN LEAF-HAS-SOURCE-NAME-P ...) ; compiling (DEFUN LEAF-SOURCE-NAME ...) ; compiling (DEFUN LEAF-DEBUG-NAME ...) ; compiling (DEFUN LEAF-%DEBUG-NAME ...) ; compiling (DEF!STRUCT (CONSTANT # ...) ...) ; compiling (DEFPRINTER (CONSTANT :IDENTITY ...) ...) ; compiling (DEF!STRUCT (BASIC-VAR # ...) ...) ; compiling (DEF!STRUCT (GLOBAL-VAR #) ...) ; compiling (DEFPRINTER (GLOBAL-VAR :IDENTITY ...) ...) ; compiling (DEF!STRUCT (DEFINED-FUN #) ...) ; compiling (DEFPRINTER (DEFINED-FUN :IDENTITY ...) ...) ; compiling (DEF!STRUCT (FUNCTIONAL #) ...) ; compiling (DEFPRINTER (FUNCTIONAL :IDENTITY ...) ...) ; compiling (DEFUN FUNCTIONAL-LETLIKE-P ...) ; compiling (DEFUN FUNCTIONAL-SOMEWHAT-LETLIKE-P ...) ; compiling (DEFUN FUNCTIONAL-DEBUG-NAME ...) ; compiling (DEF!STRUCT (CLAMBDA # ...) ...) ; compiling (DEFPRINTER (CLAMBDA :CONC-NAME ...) ...) ; compiling (DEF!STRUCT (OPTIONAL-DISPATCH #) ...) ; compiling (DEFPRINTER (OPTIONAL-DISPATCH :IDENTITY ...) ...) ; compiling (DEF!STRUCT ARG-INFO ...) ; compiling (DEFPRINTER (ARG-INFO :IDENTITY ...) ...) ; compiling (!DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ...) ; compiling (DEF!STRUCT (LAMBDA-VAR #) ...) ; compiling (DEFPRINTER (LAMBDA-VAR :IDENTITY ...) ...) ; compiling (DEFMACRO LAMBDA-VAR-IGNOREP ...) ; compiling (DEFMACRO LAMBDA-VAR-INDIRECT ...) ; compiling (DEFMACRO LAMBDA-VAR-DELETED ...) ; compiling (DEFMACRO LAMBDA-VAR-EXPLICIT-VALUE-CELL ...) ; compiling (DEF!STRUCT (REF # ...) ...) ; compiling (DEFPRINTER (REF :IDENTITY ...) ...) ; compiling (DEF!STRUCT (CIF # ...) ...) ; compiling (DEFPRINTER (CIF :CONC-NAME ...) ...) ; compiling (DEF!STRUCT (CSET # ...) ...) ; compiling (DEFPRINTER (CSET :CONC-NAME ...) ...) ; compiling (DEF!STRUCT (BASIC-COMBINATION # ...) ...) ; compiling (DEF!STRUCT (COMBINATION # ...)) ; compiling (DEFPRINTER (COMBINATION :IDENTITY ...) ...) ; compiling (DEF!STRUCT (MV-COMBINATION # ...)) ; compiling (DEFPRINTER (MV-COMBINATION) ...) ; compiling (DEF!STRUCT (BIND # ...) ...) ; compiling (DEFPRINTER (BIND) ...) ; compiling (DEF!STRUCT (CRETURN # ...) ...) ; compiling (DEFPRINTER (CRETURN :CONC-NAME ...) ...) ; compiling (DEF!STRUCT (CAST # ...) ...) ; compiling (DEFPRINTER (CAST :IDENTITY ...) ...) ; compiling (DEF!STRUCT (ENTRY # ...) ...) ; compiling (DEFPRINTER (ENTRY :IDENTITY ...)) ; compiling (DEF!STRUCT (EXIT # ...) ...) ; compiling (DEFPRINTER (EXIT :IDENTITY ...) ...) ; compiling (DEF!STRUCT (UNDEFINED-WARNING # ...) ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %COERCE-TO-POLICY ...) ; compiling (DECLAIM (FREEZE-TYPE NODE ...)) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/node.lisp ; in: ; DEF!STRUCT (COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR MAKE-COMPONENT ; (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #)))) ; (SB!INT:DEF!STRUCT ; (SB!C:COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "" :TYPE T) ; (SB!INT:INFO :NO-IR2-YET :TYPE ; (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))) ; ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) ; (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) ; (SB!C::NAME "" :TYPE T) ; (SB!INT:INFO :NO-IR2-YET :TYPE ; (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))) ; ...) ; ; caught STYLE-WARNING: ; undefined type: CLOOP ; in: ; DEF!STRUCT (CBLOCK (:INCLUDE SSET-ELEMENT) (:CONSTRUCTOR MAKE-BLOCK (START)) ; (:CONSTRUCTOR MAKE-BLOCK-KEY) (:CONC-NAME BLOCK-) ...) ; (SB!INT:DEF!STRUCT ; (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START)) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-) ; (:PREDICATE SB!C::BLOCK-P)) ; (SB!C::PRED NIL :TYPE LIST) (SB!C::SUCC NIL :TYPE LIST) ; (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL)) ; (LAST NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::FLAGS ; (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK ; SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED) ; :TYPE SB!C:ATTRIBUTES) ; (SB!C::KILL NIL) (SB!C::GEN NIL) (SB!C::IN NIL) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START)) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-) ; (:PREDICATE SB!C::BLOCK-P)) ; (SB!C::PRED NIL :TYPE LIST) ; (SB!C::SUCC NIL :TYPE LIST) ; (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL)) ; (LAST NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::FLAGS ; (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK ; SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED) ; :TYPE SB!C:ATTRIBUTES) ; (SB!C::KILL NIL) ; (SB!C::GEN NIL) ; (SB!C::IN NIL) ; ...) ; ; caught STYLE-WARNING: ; undefined type: CLOOP ; in: DEF!METHOD PRINT-OBJECT ; (SB!C::CONT-NUM (SB!C::BLOCK-START SB!C::CBLOCK)) ; ; caught STYLE-WARNING: ; undefined function: CONT-NUM ; (SB!C::CONT-NUM SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: CONT-NUM ; ; caught STYLE-WARNING: ; undefined function: CONT-NUM ; in: ; DEF!STRUCT (CONSTANT ; (:CONSTRUCTOR MAKE-CONSTANT ; (VALUE &AUX (TYPE #) (%SOURCE-NAME '.ANONYMOUS.) ; (WHERE-FROM :DEFINED))) ; (:INCLUDE LEAF)) ; (SB!KERNEL:CTYPE-OF SB!C::VALUE) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF ; in: ; DEF!STRUCT (MV-COMBINATION (:INCLUDE BASIC-COMBINATION) ; (:CONSTRUCTOR MAKE-MV-COMBINATION (FUN)) (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::MV-COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION) ; (:CONSTRUCTOR SB!C::MAKE-MV-COMBINATION (SB!C::FUN)) (:COPIER NIL))) ; --> PROGN DEFSTRUCT PROGN EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; # ; # ; # ; #)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: ; DEF!STRUCT (COMBINATION (:INCLUDE BASIC-COMBINATION) ; (:CONSTRUCTOR MAKE-COMBINATION (FUN)) (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION) ; (:CONSTRUCTOR SB!C::MAKE-COMBINATION (SB!C::FUN)) (:COPIER NIL))) ; --> PROGN DEFSTRUCT PROGN EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; # ; # ; # ; #)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: ; DEF!STRUCT (BASIC-COMBINATION (:INCLUDE VALUED-NODE) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR) ; (SB!C::ARGS NIL :TYPE LIST) ; (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN)) ; (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL)) ; (SB!C::TYPE-VALIDATED-FOR-LEAF NIL) (SB!INT:INFO NIL) (SB!C::STEP-INFO)) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR) ; (SB!C::ARGS NIL :TYPE LIST) ; (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN)) ; (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL)) ; (SB!C::TYPE-VALIDATED-FOR-LEAF NIL) ; (SB!INT:INFO NIL) ; (SB!C::STEP-INFO)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: DEFUN AVER-LIVE-COMPONENT ; (SB!C:COMPONENT-INFO SB!C:COMPONENT) ; ==> ; (TRULY-THE (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)) ; (SB-KERNEL:%INSTANCE-REF (THE SB!C:COMPONENT SB!C:COMPONENT) 10)) ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; in: ; DEF!STRUCT (COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR MAKE-COMPONENT ; (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #)))) ; (SB!INT:DEF!STRUCT ; (SB!C:COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "" :TYPE T) ; (SB!INT:INFO :NO-IR2-YET :TYPE ; (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))) ; ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) ; (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) ; (SB!C::NAME "" :TYPE T) ; (SB!INT:INFO :NO-IR2-YET :TYPE ; (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))) ; ...) ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; in: ; DEF!STRUCT (CLAMBDA (:INCLUDE FUNCTIONAL) (:CONC-NAME LAMBDA-) ; (:PREDICATE LAMBDA-P) (:CONSTRUCTOR MAKE-LAMBDA) ...) ; (SB!INT:DEF!STRUCT ; (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-) ; (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA) ; (:COPIER SB!C::COPY-LAMBDA)) ; (SB!C::VARS NIL :TYPE LIST :READ-ONLY T) ; (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL)) ; (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL)) ; (RETURN NIL :TYPE (OR SB!C::CRETURN NULL)) ; (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL)) (SB!C::LETS NIL :TYPE LIST) ; (SB!C::ENTRIES NIL :TYPE LIST) ; (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET)) ; (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL)) ; (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL)) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-) ; (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA) ; (:COPIER SB!C::COPY-LAMBDA)) ; (SB!C::VARS NIL :TYPE LIST :READ-ONLY T) ; (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL)) ; (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL)) ; (RETURN NIL :TYPE (OR SB!C::CRETURN NULL)) ; (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL)) ; (SB!C::LETS NIL :TYPE LIST) ; (SB!C::ENTRIES NIL :TYPE LIST) ; (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET)) ; (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL)) ; (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL)) ; ...) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; in: ; DEF!STRUCT (FUNCTIONAL ; (:INCLUDE LEAF (%SOURCE-NAME '.ANONYMOUS.) (WHERE-FROM :DEFINED) ; (TYPE (SPECIFIER-TYPE 'FUNCTION)))) ; (SB!INT:DEF!STRUCT ; (SB!C::FUNCTIONAL ; (:INCLUDE SB!C::LEAF (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.) ; (SB!C::WHERE-FROM :DEFINED) (TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)))) ; (SB!C::%DEBUG-NAME NIL :TYPE ; (OR NULL (NOT (SATISFIES SB!INT:LEGAL-FUN-NAME-P))) :READ-ONLY T) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :OPTIONAL :DELETED :EXTERNAL :TOPLEVEL :ESCAPE :CLEANUP :LET ; :MV-LET :ASSIGNMENT :ZOMBIE ...)) ; (SB!C::HAS-EXTERNAL-REFERENCES-P NIL) ; (SB!C::ENTRY-FUN NIL :TYPE (OR SB!C::FUNCTIONAL NULL)) ; (SB!C::INLINEP NIL :TYPE SB!C::INLINEP) ; (SB!C::INLINE-EXPANSION NIL :TYPE LIST) ; (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV) ; (SB!C::ARG-DOCUMENTATION NIL :TYPE (OR LIST (MEMBER :UNSPECIFIED))) ; (DOCUMENTATION NIL :TYPE (OR NULL STRING)) ; (SB!C::ALLOCATOR NIL :TYPE (OR NULL SB!C::COMBINATION)) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C::FUNCTIONAL ; (:INCLUDE SB!C::LEAF (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.) ; (SB!C::WHERE-FROM :DEFINED) ; (TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)))) ; (SB!C::%DEBUG-NAME NIL :TYPE ; (OR NULL (NOT (SATISFIES SB!INT:LEGAL-FUN-NAME-P))) :READ-ONLY T) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :OPTIONAL :DELETED :EXTERNAL :TOPLEVEL :ESCAPE :CLEANUP :LET ; :MV-LET :ASSIGNMENT :ZOMBIE ...)) ; (SB!C::HAS-EXTERNAL-REFERENCES-P NIL) ; (SB!C::ENTRY-FUN NIL :TYPE (OR SB!C::FUNCTIONAL NULL)) ; (SB!C::INLINEP NIL :TYPE SB!C::INLINEP) ; (SB!C::INLINE-EXPANSION NIL :TYPE LIST) ; (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV) ; (SB!C::ARG-DOCUMENTATION NIL :TYPE (OR LIST (MEMBER :UNSPECIFIED))) ; (DOCUMENTATION NIL :TYPE (OR NULL STRING)) ; (SB!C::ALLOCATOR NIL :TYPE (OR NULL SB!C::COMBINATION)) ; ...) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; in: ; DEF!STRUCT (NODE (:CONSTRUCTOR NIL) ; (:INCLUDE SSET-ELEMENT (NUMBER (INCF *COMPILER-SSET-COUNTER*))) ; (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::NODE (:CONSTRUCTOR NIL) ; (:INCLUDE SB!ASSEM:SSET-ELEMENT ; (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*))) ; (:COPIER NIL)) ; (SB!C::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: ; 134 more uses of undefined type LEXENV ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/node.lisp ; in: DEFUN %COERCE-TO-POLICY ; (SB!C::LEXENV-POLICY SB!C::THING) ; ; caught STYLE-WARNING: ; undefined function: LEXENV-POLICY ; in: ; DEF!STRUCT (COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR MAKE-COMPONENT ; (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #)))) ; (SB!C::MAKE-LOOP :KIND :OUTER :HEAD SB!C::HEAD) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LOOP ; in: ; DEF!STRUCT (CSET ; (:INCLUDE VALUED-NODE ; (DERIVED-TYPE (MAKE-SINGLE-VALUE-TYPE *UNIVERSAL-TYPE*))) ; (:CONC-NAME SET-) (:PREDICATE SET-P) (:CONSTRUCTOR MAKE-SET) ...) ; (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!KERNEL:*UNIVERSAL-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-SINGLE-VALUE-TYPE ; in: ; DEF!STRUCT (REF (:INCLUDE VALUED-NODE (REOPTIMIZE NIL)) ; (:CONSTRUCTOR MAKE-REF ; (LEAF &OPTIONAL (%SOURCE-NAME '.ANONYMOUS.) &AUX (LEAF-TYPE #) ; ...)) ; (:COPIER NIL)) ; (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!C::LEAF-TYPE) ; ; caught STYLE-WARNING: ; undefined function: MAKE-SINGLE-VALUE-TYPE ; in: ; DEF!STRUCT (NLX-INFO ; (:CONSTRUCTOR MAKE-NLX-INFO (CLEANUP EXIT &AUX (BLOCK #))) ; (:MAKE-LOAD-FORM-FUN IGNORE-IT)) ; (SB!C::NODE-BLOCK SB!EXT:EXIT) ; ; caught STYLE-WARNING: ; undefined function: NODE-BLOCK ; in: ; DEF!STRUCT (FUNCTIONAL ; (:INCLUDE LEAF (%SOURCE-NAME '.ANONYMOUS.) (WHERE-FROM :DEFINED) ; (TYPE (SPECIFIER-TYPE 'FUNCTION)))) ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: ; DEF!STRUCT (CONSTANT ; (:CONSTRUCTOR MAKE-CONSTANT ; (VALUE &AUX (TYPE #) (%SOURCE-NAME '.ANONYMOUS.) ; (WHERE-FROM :DEFINED))) ; (:INCLUDE LEAF)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:CONSTANT ; (:CONSTRUCTOR SB!C::MAKE-CONSTANT ; (SB!C::VALUE &AUX (TYPE #) (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.) ; (SB!C::WHERE-FROM :DEFINED))) ; (:INCLUDE SB!C::LEAF)) ; (SB!C::VALUE (SB!INT:MISSING-ARG) :TYPE T) ; (SB!C::BOXED-TN NIL :TYPE (OR NULL SB!C:TN))) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!KERNEL:CONSTANT ; (:CONSTRUCTOR SB!C::MAKE-CONSTANT ; (SB!C::VALUE &AUX (TYPE #) (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.) ; (SB!C::WHERE-FROM :DEFINED))) ; (:INCLUDE SB!C::LEAF)) ; (SB!C::VALUE (SB!INT:MISSING-ARG) :TYPE T) ; (SB!C::BOXED-TN NIL :TYPE (OR NULL SB!C:TN))) ; ; caught STYLE-WARNING: ; undefined type: TN ; ; compilation unit finished ; Undefined types: ; CLOOP FUN-INFO IR2-COMPONENT LEXENV TN ; Undefined functions: ; CONT-NUM CTYPE-OF LEXENV-POLICY MAKE-LOOP MAKE-SINGLE-VALUE-TYPE NODE-BLOCK SPECIFIER-TYPE ; caught 22 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/node.fasl-tmp written ; compilation finished in 0:00:01.017 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/vop.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!CONSTANT LOCAL-TN-LIMIT ...) ; compiling (DEFTYPE LOCAL-TN-NUMBER ...) ; compiling (DEFTYPE LOCAL-TN-COUNT ...) ; compiling (DEFTYPE LOCAL-TN-VECTOR ...) ; compiling (DEFTYPE LOCAL-TN-BIT-VECTOR ...) ; compiling (DEFTYPE SC-NUMBER ...) ; compiling (DEFTYPE SC-VECTOR ...) ; compiling (DEFTYPE SC-BIT-VECTOR ...) ; compiling (DEFTYPE LTN-POLICY ...) ; compiling (DEFSTRUCT (PRIMITIVE-TYPE #) ...) ; compiling (DEFPRINTER (PRIMITIVE-TYPE) ...) ; compiling (DEFSTRUCT (IR2-BLOCK # ...) ...) ; compiling (DEFPRINTER (IR2-BLOCK) ...) ; compiling (DEFSTRUCT (IR2-LVAR # ...) ...) ; compiling (DEFPRINTER (IR2-LVAR) ...) ; compiling (DEFSTRUCT (IR2-COMPONENT #) ...) ; compiling (DEFSTRUCT (ENTRY-INFO #) ...) ; compiling (DEFSTRUCT (IR2-PHYSENV #) ...) ; compiling (DEFPRINTER (IR2-PHYSENV) ...) ; compiling (DEFSTRUCT (RETURN-INFO #) ...) ; compiling (DEFPRINTER (RETURN-INFO) ...) ; compiling (DEFSTRUCT (IR2-NLX-INFO #) ...) ; compiling (DEFPRINTER (IR2-NLX-INFO) ...) ; compiling (DEFSTRUCT (CLOOP # ...) ...) ; compiling (DEFPRINTER (CLOOP :CONC-NAME ...) ...) ; compiling (DEF!STRUCT (VOP # ...) ...) ; compiling (DEFPRINTER (VOP) ...) ; compiling (DEF!STRUCT (TN-REF # ...) ...) ; compiling (DEFPRINTER (TN-REF) ...) ; compiling (DEF!STRUCT (TEMPLATE #) ...) ; compiling (DEFPRINTER (TEMPLATE) ...) ; compiling (DEF!STRUCT (VOP-INFO # ...) ...) ; compiling (DEF!STRUCT (SB #) ...) ; compiling (DEFPRINTER (SB) ...) ; compiling (DEF!STRUCT (FINITE-SB #) ...) ; compiling (DEF!STRUCT (SC #) ...) ; compiling (DEFPRINTER (SC) ...) ; compiling (DEF!STRUCT (TN # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFSTRUCT (GLOBAL-CONFLICTS # ...) ...) ; compiling (DEFPRINTER (GLOBAL-CONFLICTS) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/vop.lisp ; in: DEFSTRUCT IR2-NLX-INFO ; (SB!ASSEM:GEN-LABEL) ; ; caught STYLE-WARNING: ; undefined function: GEN-LABEL ; (DEFSTRUCT (SB!C::IR2-NLX-INFO (:COPIER NIL)) ; (SB!C::HOME NIL :TYPE (OR SB!C:TN NULL)) ; (SB!C::SAVE-SP (SB!INT:MISSING-ARG) :TYPE SB!C:TN) ; (SB!C::DYNAMIC-STATE ; (LIST* (SB!C:MAKE-STACK-POINTER-TN) (SB!C:MAKE-DYNAMIC-STATE-TNS)) :TYPE ; LIST) ; (SB!C::TARGET (SB!ASSEM:GEN-LABEL) :TYPE SB!ASSEM:LABEL)) ; ; caught STYLE-WARNING: ; undefined type: LABEL ; in: DEFSTRUCT IR2-PHYSENV ; (DEFSTRUCT (SB!C::IR2-PHYSENV (:COPIER NIL)) ; (SB!KERNEL:CLOSURE (SB!INT:MISSING-ARG) :TYPE LIST :READ-ONLY T) ; (SB!C::OLD-FP NIL :TYPE (OR SB!C:TN NULL)) ; (SB!C::RETURN-PC NIL :TYPE (OR SB!C:TN NULL)) ; (SB!C::RETURN-PC-PASS (SB!INT:MISSING-ARG) :TYPE SB!C:TN :READ-ONLY T) ; (SB!C::NUMBER-STACK-P NIL :TYPE BOOLEAN) ; (SB!C::LIVE-TNS NIL :TYPE LIST) ; (SB!C::DEBUG-LIVE-TNS NIL :TYPE LIST) ; (SB!C::ELSEWHERE-START NIL :TYPE (OR SB!ASSEM:LABEL NULL)) ; (SB!C::ENVIRONMENT-START NIL :TYPE (OR SB!ASSEM:LABEL NULL))) ; --> PROGN EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; undefined type: LABEL ; in: DEFSTRUCT ENTRY-INFO ; (DEFSTRUCT (SB!C::ENTRY-INFO (:COPIER NIL)) ; (SB!C::CLOSURE-TN NIL :TYPE (OR NULL SB!C:TN)) ; (SB!C::OFFSET NIL :TYPE (OR SB!ASSEM:LABEL NULL)) ; (SB!C::NAME "" :TYPE (OR SIMPLE-STRING LIST SYMBOL)) ; (SB!C::ARGUMENTS NIL :TYPE LIST) ; (TYPE 'FUNCTION :TYPE (OR LIST (MEMBER FUNCTION))) ; (SB!INT:INFO NIL :TYPE ; (OR NULL SIMPLE-VECTOR STRING (CONS STRING SIMPLE-VECTOR)))) ; ; caught STYLE-WARNING: ; undefined type: LABEL ; in: DEFSTRUCT IR2-NLX-INFO ; (SB!C:MAKE-DYNAMIC-STATE-TNS) ; ; caught STYLE-WARNING: ; undefined function: MAKE-DYNAMIC-STATE-TNS ; (SB!C:MAKE-STACK-POINTER-TN) ; ; caught STYLE-WARNING: ; undefined function: MAKE-STACK-POINTER-TN ; in: DEF!METHOD PRINT-OBJECT ; (SB!C::PRINT-TN-GUTS SB!C:TN STREAM) ; ; caught STYLE-WARNING: ; undefined function: PRINT-TN-GUTS ; ; compilation unit finished ; Undefined type: ; LABEL ; Undefined functions: ; GEN-LABEL MAKE-DYNAMIC-STATE-TNS MAKE-STACK-POINTER-TN PRINT-TN-GUTS ; caught 7 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/vop.fasl-tmp written ; compilation finished in 0:00:00.498 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/backend.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *BACKEND-REGISTER-SAVE-PENALTY* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFVAR *BACKEND-BYTE-ORDER*) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *BACKEND-SC-NUMBERS* ...) ; compiling (DECLAIM (TYPE SC-VECTOR ...)) ; compiling (DEFVAR *BACKEND-SB-LIST* ...) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFVAR *BACKEND-TEMPLATE-NAMES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-SC-NAMES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-NAMES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-ALIASES* ...) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFVAR *BACKEND-T-PRIMITIVE-TYPE*) ; compiling (DECLAIM (TYPE PRIMITIVE-TYPE ...)) ; compiling (DEFVAR *BACKEND-PARSED-VOPS* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-PREDICATE-TYPES* ...) ; compiling (DEFVAR *BACKEND-TYPE-PREDICATES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFVAR *BACKEND-INTERNAL-ERRORS* ...) ; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; compiling (DEFVAR *BACKEND-SUBFEATURES* ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/backend.fasl-tmp written ; compilation finished in 0:00:00.004 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/vmdef.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN TEMPLATE-OR-LOSE ...) ; compiling (DEFUN SC-OR-LOSE ...) ; compiling (DEFUN SB-OR-LOSE ...) ; compiling (DEFUN SC-NUMBER-OR-LOSE ...) ; compiling (!DEF-BOOLEAN-ATTRIBUTE VOP ...) ; compiling (DEFUN COMPUTE-MOVE-COSTS ...) ; compiling (DEFUN PRIMITIVE-TYPE-OR-LOSE ...) ; compiling (DEFUN SC-ALLOWED-BY-PRIMITIVE-TYPE ...) ; compiling (DEF!CONSTANT MAX-VOP-TN-REFS ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *VOP-TN-REFS* ...) ; compiling (DEF!CONSTANT SC-BITS ...) ; compiling (DEFUN EMIT-VOP ...) ; compiling (DEFUN ADJOIN-TEMPLATE ...) ; compiling (DEFUN TEMPLATE-TYPE-SPECIFIER ...) ; compiling (DECLAIM (INLINE TEMPLATE-CONDITIONAL-P)) ; compiling (DEFUN TEMPLATE-CONDITIONAL-P ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/vmdef.lisp ; in: DEFUN EMIT-VOP ; (SB!C:MAKE-RESTRICTED-TN NIL (ASH SB!C::TEMP -1)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-RESTRICTED-TN ; (SB!C:MAKE-WIRED-TN NIL (SB-XC:LDB (SB-XC:BYTE SB!C::SC-BITS 1) SB!C::TEMP) ; (ASH SB!C::TEMP (- (1+ SB!C::SC-BITS)))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-WIRED-TN ; (SB!C::REFERENCE-TN SB!C:TN NIL) ; ; caught STYLE-WARNING: ; undefined function: REFERENCE-TN ; (SB!REGALLOC:TARGET-IF-DESIRABLE ; (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 8) SB!C::TARGET)) ; (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 0) SB!C::TARGET))) ; ; caught STYLE-WARNING: ; undefined function: SB!REGALLOC:TARGET-IF-DESIRABLE ; ; compilation unit finished ; Undefined functions: ; MAKE-RESTRICTED-TN MAKE-WIRED-TN REFERENCE-TN SB!REGALLOC:TARGET-IF-DESIRABLE ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/vmdef.fasl-tmp written ; compilation finished in 0:00:00.082 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/backend-parms.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEF!CONSTANT +BACKEND-FASL-FILE-IMPLEMENTATION+ ...) ; compiling (SETF *BACKEND-REGISTER-SAVE-PENALTY* ...) ; compiling (SETF *BACKEND-BYTE-ORDER* ...) ; compiling (SETF *BACKEND-PAGE-BYTES* ...) ; compiling (DEF!CONSTANT GENCGC-CARD-BYTES ...) ; compiling (DEF!CONSTANT GENCGC-ALLOC-GRANULARITY ...) ; compiling (DEF!CONSTANT GENCGC-RELEASE-GRANULARITY ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/backend-parms.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/globaldb.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFUN GLOBALDB-SXHASHOID ...) ; compiling (DEFUN PRIMIFY ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFGLOBAL *INFO-TYPES* ...) ; compiling (DEFSTRUCT (TYPE-INFO # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE TYPE-INFO)) ; compiling (DEFCONSTANT +INFO-METAINFO-TYPE-NUM+ ...) ; compiling (DEFUN %GET-TYPE-INFO-METADATA ...) ; compiling (DEFUN REGISTER-INFO-METADATA ...) ; compiling (DEFUN FIND-TYPE-INFO ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN TYPE-INFO-OR-LOSE ...) ; compiling (DEFUN INFO ...) ; compiling (DEFUN (SETF INFO) ...) ; compiling (DEFUN CLEAR-INFO ...) ; compiling (DEFUN CLEAR-INFO-VALUE ...) ; compiling (!COLD-INIT-FORMS (SETQ *INFO-ENVIRONMENT* ...) ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN GET-INFO-VALUE ...) ; compiling (DEF!MACRO GET-INFO-VALUE-INITIALIZING ...) ; compiling (DEFUN CALL-WITH-EACH-GLOBALDB-NAME ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :DEFINITION) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :KIND) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :TYPE) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :ASSUMED-TYPE) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :WHERE-FROM) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINE-EXPANSION-DESIGNATOR) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINEP) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :SOURCE-TRANSFORM) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :MACRO-FUNCTION) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :COMPILER-MACRO-FUNCTION) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :IR1-CONVERT) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :INFO) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :STRUCTURE-ACCESSOR) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :KIND) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :ALWAYS-BOUND) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :DEPRECATED) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :TYPE) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :WHERE-FROM) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :MACRO-EXPANSION) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :ALIEN-INFO) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :DOCUMENTATION) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :WIRED-TLS) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :KIND) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :EXPANDER) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :DOCUMENTATION) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :TRANSLATOR) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :BUILTIN) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :CLASSOID-CELL) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :LAMBDA-LIST) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :SOURCE-LOCATION) ...) ; compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :INFO) ...) ; compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :DOCUMENTATION) ...) ; compiling (DEFGLOBAL *RECOGNIZED-DECLARATIONS* ...) ; compiling (DEFINE-INFO-TYPE (:DECLARATION :RECOGNIZED) ...) ; compiling (DEFINE-INFO-TYPE (:DECLARATION :HANDLER) ...) ; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :KIND) ...) ; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :TRANSLATOR) ...) ; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :DEFINITION) ...) ; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :STRUCT) ...) ; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :UNION) ...) ; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :ENUM) ...) ; compiling (DEFINE-INFO-TYPE (:SETF :INVERSE) ...) ; compiling (DEFINE-INFO-TYPE (:SETF :DOCUMENTATION) ...) ; compiling (DEFINE-INFO-TYPE (:SETF :EXPANDER) ...) ; compiling (DEFINE-INFO-TYPE (:CAS :EXPANDER) ...) ; compiling (DEFINE-INFO-TYPE (:RANDOM-DOCUMENTATION :STUFF) ...) ; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :VARIABLE) ...) ; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :CONSTANT) ...) ; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :TYPED-STRUCTURE) ...) ; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :SYMBOL-MACRO) ...) ; compiling (DECLAIM (FREEZE-TYPE BASIC-INFO-ENV)) ; compiling (DEFUN CALL-WITH-EACH-INFO ...) ; compiling (DEFUN SHOW-INFO ...) ; compiling (!COLD-INIT-FORMS (/SHOW0 "beginning *INFO-TYPES* initialization") ...) ; compiling (FROB) ; compiling (DEF INFO ...) ; compiling (DEF (SETF INFO) ...) ; compiling (DEF CLEAR-INFO ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/globaldb.lisp ; in: DEFUN CALL-WITH-EACH-GLOBALDB-NAME ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-CALLABLE-TO-FUN ; in: ; MACROLET ((FROB NIL ; (SB!IMPL::BACKQ-CONS '!COLD-INIT-FORMS ; (REVERSE *!REVERSED-TYPE-INFO-INIT-FORMS*)))) ; (SB!C::FROB) ; --> SB!INT:!COLD-INIT-FORMS PROGN LET LET SETF LET* MULTIPLE-VALUE-BIND LET ; --> LAMBDA ; ==> ; #'(LAMBDA (SB!C::X) ; (DECLARE (TYPE (OR SB!ALIEN-INTERNALS:ALIEN-TYPE NULL) SB!C::X)) ; SB!C::X) ; ; caught STYLE-WARNING: ; undefined type: ALIEN-TYPE ; in: DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT) ; (SB!KERNEL:CLASSOID-LAYOUT CLASS) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: ; MACROLET ((FROB NIL ; (SB!IMPL::BACKQ-CONS '!COLD-INIT-FORMS ; (REVERSE *!REVERSED-TYPE-INFO-INIT-FORMS*)))) ; (SB!C::FROB) ; --> SB!INT:!COLD-INIT-FORMS PROGN LET LET SETF LET* MULTIPLE-VALUE-BIND LET ; --> LAMBDA ; ==> ; #'(LAMBDA (SB!C::X) ; (DECLARE (TYPE (OR SB!KERNEL:DEFSTRUCT-DESCRIPTION NULL) SB!C::X)) ; SB!C::X) ; ; caught STYLE-WARNING: ; undefined type: DEFSTRUCT-DESCRIPTION ; ==> ; #'(LAMBDA (SB!C::X) ; (DECLARE (TYPE (OR SB!KERNEL:FDEFN NULL) SB!C::X)) ; SB!C::X) ; ; caught STYLE-WARNING: ; undefined type: FDEFN ; in: DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT) ; (SB!KERNEL:FIND-CLASSOID SB!C::NAME NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID ; in: ; MACROLET ((FROB NIL ; (SB!IMPL::BACKQ-CONS '!COLD-INIT-FORMS ; (REVERSE *!REVERSED-TYPE-INFO-INIT-FORMS*)))) ; (SB!C::FROB) ; --> SB!INT:!COLD-INIT-FORMS PROGN LET LET SETF LET* MULTIPLE-VALUE-BIND LET ; --> LAMBDA ; ==> ; #'(LAMBDA (SB!C::X) (DECLARE (TYPE (OR SB!C::FUN-INFO NULL) SB!C::X)) SB!C::X) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; ==> ; #'(LAMBDA (SB!C::X) ; (DECLARE (TYPE (OR SB!ALIEN-INTERNALS:HEAP-ALIEN-INFO NULL) SB!C::X)) ; SB!C::X) ; ; caught STYLE-WARNING: ; undefined type: HEAP-ALIEN-INFO ; ==> ; #'(LAMBDA (SB!C::X) ; (DECLARE (TYPE (OR SB!KERNEL:LAYOUT NULL) SB!C::X)) ; SB!C::X) ; ; caught STYLE-WARNING: ; undefined type: LAYOUT ; in: DEFINE-INFO-TYPE (:FUNCTION :TYPE) ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; compilation unit finished ; Undefined types: ; ALIEN-TYPE DEFSTRUCT-DESCRIPTION FDEFN FUN-INFO HEAP-ALIEN-INFO LAYOUT ; Undefined functions: ; %COERCE-CALLABLE-TO-FUN CLASSOID-LAYOUT FIND-CLASSOID SPECIFIER-TYPE ; caught 10 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/globaldb.fasl-tmp written ; compilation finished in 0:00:00.439 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/info-functions.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN CHECK-FUN-NAME ...) ; compiling (DEFUN PROCLAIM-AS-FUN-NAME ...) ; compiling (DEFUN NOTE-IF-SETF-FUN-AND-MACRO ...) ; compiling (DEFUN UNDEFINE-FUN-NAME ...) ; compiling (DEFUN BECOME-DEFINED-FUN-NAME ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FUN-NAME-INLINE-EXPANSION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/info-functions.lisp ; in: DEFUN FUN-NAME-INLINE-EXPANSION ; (DEFUN SB!INT:FUN-NAME-INLINE-EXPANSION (SB!C::FUN-NAME) ; (LET ((SB!INT:INFO ; (SB!INT:INFO :FUNCTION :INLINE-EXPANSION-DESIGNATOR SB!C::FUN-NAME))) ; (IF (FUNCTIONP SB!INT:INFO) ; (FUNCALL SB!INT:INFO) ; SB!INT:INFO))) ; --> PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%DEFUN 'SB!INT:FUN-NAME-INLINE-EXPANSION ; (SB-INT:NAMED-LAMBDA SB!INT:FUN-NAME-INLINE-EXPANSION ; (SB!C::FUN-NAME) ; (BLOCK SB!INT:FUN-NAME-INLINE-EXPANSION ; (LET (#) ; (IF # ; # ; SB!INT:INFO)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; note: type assertion too complex to check: ; (VALUES &OPTIONAL LIST &REST T). ; compiling (DEFUN SB-XC:MACRO-FUNCTION ...) ; compiling (DEFUN (SETF SB-XC:MACRO-FUNCTION) ...) ; compiling (DEFUN FUN-LOCALLY-DEFINED-P ...) ; compiling (DEFUN SB-XC:COMPILER-MACRO-FUNCTION ...) ; compiling (DEFUN (SETF SB-XC:COMPILER-MACRO-FUNCTION) ...) ; compiling (DEFUN FDOCUMENTATION ...) ; compiling (DEFUN (SETF FDOCUMENTATION) ...) ; compiling (DEFUN RANDOM-DOCUMENTATION ...) ; compiling (DEFUN (SETF RANDOM-DOCUMENTATION) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/info-functions.lisp ; in: DEFUN FDOCUMENTATION ; (SB!KERNEL:%FUN-DOC SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: %FUN-DOC ; in: DEFUN (SETF FDOCUMENTATION) ; (SETF (SB!KERNEL:%FUN-DOC (FDEFINITION SB!C::NAME)) STRING) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!KERNEL:%FUN-DOC) #:NEW406 #:G407) ; ; caught STYLE-WARNING: ; undefined function: (SETF %FUN-DOC) ; in: DEFUN CHECK-FUN-NAME ; (SB!C:COMPILER-ERROR "illegal function name: ~S" SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR ; in: DEFUN NOTE-IF-SETF-FUN-AND-MACRO ; (SB!C:COMPILER-STYLE-WARN ; "defining 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 FUN-LOCALLY-DEFINED-P ; (SB!C::LEXENV-FUNS SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: LEXENV-FUNS ; in: DEFUN SB-XC:MACRO-FUNCTION ; (SB!C::LEXENV-FUNS SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: LEXENV-FUNS ; in: DEFUN FDOCUMENTATION ; (SB!KERNEL:PACKAGE-DOC-STRING SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-DOC-STRING ; ; compilation unit finished ; Undefined functions: ; %FUN-DOC (SETF %FUN-DOC) COMPILER-ERROR COMPILER-STYLE-WARN LEXENV-FUNS PACKAGE-DOC-STRING ; caught 8 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/info-functions.fasl-tmp written ; compilation finished in 0:00:00.094 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/force-delayed-defbangconstants.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (FORCE-DELAYED-DEF!CONSTANTS) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/force-delayed-defbangconstants.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defmacro.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN %EXPANDER-FOR-DEFMACRO ...) ; compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defmacro.lisp ; in: DEF (:LOAD-TOPLEVEL :EXECUTE) ; (SB!IMPL::DEF (:LOAD-TOPLEVEL :EXECUTE) NIL) ; --> EVAL-WHEN DEFUN PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%DEFUN 'SB!C::%DEFMACRO ; (SB-INT:NAMED-LAMBDA SB!C::%DEFMACRO ; (SB!IMPL::NAME SB!IMPL::DEFINITION SB!IMPL::LAMBDA-LIST ; SB!IMPL::DOC SB!IMPL::DEBUG-NAME ; SB!IMPL::SOURCE-LOCATION) ; (DECLARE ; (IGNORE SB!IMPL::LAMBDA-LIST SB!IMPL::DEBUG-NAME ; SB!IMPL::DOC)) ; (BLOCK SB!C::%DEFMACRO ; (LET (#) ; (WHEN # #) ; (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR # ; # ; # ; # ; NIL)) ; SB!IMPL::NAME)) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; The variable SOURCE-LOCATION is defined but never used. ; compiling (DEF (:COMPILE-TOPLEVEL) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defmacro.lisp ; in: ; MACROLET ((DEF (TIMES SET-P) ; (BACKQ-LIST 'EVAL-WHEN TIMES ; (BACKQ-LIST* 'DEFUN 'SB!C::%DEFMACRO '# #)))) ; (MACROLET ((SB!IMPL::DEF (SB!IMPL::TIMES SB!IMPL::SET-P) ; (SB!IMPL::BACKQ-LIST 'EVAL-WHEN SB!IMPL::TIMES ; (SB!IMPL::BACKQ-LIST* 'DEFUN ; 'SB!C::%DEFMACRO '# ; #)))) ; (PROGN ; (SB!IMPL::DEF (:LOAD-TOPLEVEL :EXECUTE) NIL) ; (SB!IMPL::DEF (:COMPILE-TOPLEVEL) NIL))) ; ; caught STYLE-WARNING: ; The variable SOURCE-LOCATION is defined but never used. ; compiling (DEFMACRO SB-XC:DEFMACRO ...) ; compiling (SB-XC:DEFMACRO DEFMACRO ...) ; compiling (DEF!MACRO DEFMACRO-MUNDANELY ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defmacro.lisp ; in: ; MACROLET ((DEF (TIMES SET-P) ; (BACKQ-LIST 'EVAL-WHEN TIMES ; (BACKQ-LIST* 'DEFUN 'SB!C::%DEFMACRO '# #)))) ; (MACROLET ((SB!IMPL::DEF (SB!IMPL::TIMES SB!IMPL::SET-P) ; (SB!IMPL::BACKQ-LIST 'EVAL-WHEN SB!IMPL::TIMES ; (SB!IMPL::BACKQ-LIST* 'DEFUN ; 'SB!C::%DEFMACRO '# ; #)))) ; (PROGN ; (SB!IMPL::DEF (:LOAD-TOPLEVEL :EXECUTE) NIL) ; (SB!IMPL::DEF (:COMPILE-TOPLEVEL) NIL))) ; --> BLOCK LET SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN WHEN IF PROGN ; ==> ; (SB!INT:STYLE-WARN "~S is being redefined as a macro when it was ~ ; previously ~(~A~) to be a function." ; SB!IMPL::NAME (SB!INT:INFO :FUNCTION :WHERE-FROM SB!IMPL::NAME)) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; in: DEF (:LOAD-TOPLEVEL :EXECUTE) ; (SB!IMPL::DEF (:LOAD-TOPLEVEL :EXECUTE) NIL) ; --> EVAL-WHEN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK LET ; --> SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN WHEN IF PROGN ; ==> ; (SB!INT:STYLE-WARN "~S is being redefined as a macro when it was ~ ; previously ~(~A~) to be a function." ; SB!IMPL::NAME (SB!INT:INFO :FUNCTION :WHERE-FROM SB!IMPL::NAME)) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined function: ; STYLE-WARN ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/defmacro.fasl-tmp written ; compilation finished in 0:00:00.025 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/force-delayed-defbangmacros.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (FORCE-DELAYED-DEF!MACROS) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/force-delayed-defbangmacros.fasl-tmp written ; compilation finished in 0:00:00.002 ; in: SB-XC:DEFMACRO DEFTYPE ; (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~% ~S" ; SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; ; compilation unit finished ; Undefined function: ; BAD-TYPE ; caught 1 STYLE-WARNING condition ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/late-macros.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (SB-XC:DEFMACRO DELETEF-IN ...) ; compiling (SB-XC:DEFMACRO PUSH-IN ...) ; compiling (DEFMACRO-MUNDANELY !DEF-BOOLEAN-ATTRIBUTE-SETTER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/late-macros.lisp ; in: SB-XC:DEFMACRO PUSH-IN ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; in: SB-XC:DEFMACRO DELETEF-IN ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; ; compilation unit finished ; Undefined function: ; SB-XC:GET-SETF-EXPANSION ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/late-macros.fasl-tmp written ; compilation finished in 0:00:00.016 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/meta-vmdef.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFMACRO DEFINE-STORAGE-BASE ...) ; compiling (DEFMACRO DEFINE-STORAGE-CLASS ...) ; compiling (DEFMACRO DO-SC-PAIRS ...) ; compiling (DEFMACRO DEFINE-MOVE-FUN ...) ; compiling (DEFPARAMETER *SC-VOP-SLOTS* ...) ; compiling (DEFMACRO DEFINE-MOVE-VOP ...) ; compiling (DEFMACRO !DEF-PRIMITIVE-TYPE ...) ; compiling (DEFMACRO !DEF-PRIMITIVE-TYPE-ALIAS ...) ; compiling (DEFPARAMETER *PRIMITIVE-TYPE-SLOT-ALIST* ...) ; compiling (DEFMACRO PRIMITIVE-TYPE-VOP ...) ; compiling (DEF!STRUCT (VOP-PARSE #) ...) ; compiling (DEFPRINTER (VOP-PARSE) ...) ; compiling (DEF!STRUCT (OPERAND-PARSE #) ...) ; compiling (DEFPRINTER (OPERAND-PARSE) ...) ; compiling (DEFUN FIND-OPERAND ...) ; compiling (DEFUN VOP-PARSE-OR-LOSE ...) ; compiling (DEFUN ACCESS-OPERANDS ...) ; compiling (DEFUN IGNORE-UNREFERENCED-TEMPS ...) ; compiling (DEFUN VOP-SPEC-ARG ...) ; compiling (DEFUN PARSE-TIME-SPEC ...) ; compiling (DEFUN TIME-SPEC-ORDER ...) ; compiling (DEFUN COMPUTE-TEMPORARIES-DESCRIPTION ...) ; compiling (DEFUN COMPUTE-REF-ORDERING ...) ; compiling (DEFUN MAKE-EMIT-FUNCTION-AND-FRIENDS ...) ; compiling (DEFUN FIND-MOVE-FUNS ...) ; compiling (DEFUN CALL-MOVE-FUN ...) ; compiling (DEFUN DECIDE-TO-LOAD ...) ; compiling (DEFUN MAKE-GENERATOR-FUNCTION ...) ; compiling (DEFVAR *PARSE-VOP-OPERAND-COUNT*) ; compiling (DEFUN MAKE-OPERAND-PARSE-TEMP ...) ; compiling (DEFUN MAKE-OPERAND-PARSE-LOAD-TN ...) ; compiling (DEFUN PARSE-VOP-OPERANDS ...) ; compiling (DEFUN PARSE-TEMPORARY ...) ; compiling (DEFUN COMPUTE-PARSE-VOP-OPERAND-COUNT ...) ; compiling (DEFUN PARSE-DEFINE-VOP ...) ; compiling (DEFUN COMPUTE-LOADING-COSTS ...) ; compiling (DEFPARAMETER *NO-COSTS* ...) ; compiling (DEFPARAMETER *NO-LOADS* ...) ; compiling (DEFUN COMPUTE-LOADING-COSTS-IF-ANY ...) ; compiling (DEFUN COMPUTE-COSTS-AND-RESTRICTIONS-LIST ...) ; compiling (DEFUN MAKE-COSTS-AND-RESTRICTIONS ...) ; compiling (DEFUN PARSE-VOP-OPERAND-TYPES ...) ; compiling (DEFUN CHECK-OPERAND-TYPE-SCS ...) ; compiling (DEFUN CHECK-OPERAND-TYPES ...) ; compiling (DEFUN !GROVEL-VOP-OPERANDS ...) ; compiling (DEFUN !SET-UP-FUN-TRANSLATION ...) ; compiling (DEFUN MAKE-OPERAND-TYPE ...) ; compiling (DEFUN SPECIFY-OPERAND-TYPES ...) ; compiling (DEFUN MAKE-VOP-INFO-TYPES ...) ; compiling (DEFPARAMETER *SLOT-INHERIT-ALIST* ...) ; compiling (DEFMACRO INHERIT-VOP-INFO ...) ; compiling (DEFUN SET-UP-VOP-INFO ...) ; compiling (DEF!MACRO DEFINE-VOP ...) ; compiling (DEFUN 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/meta-vmdef.fasl-tmp written ; compilation finished in 0:00:00.505 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/vm.lisp" (written 28 JUN 2014 03:46:26 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 *QWORD-REGISTER-NAMES* ...) ; compiling (DEFVAR *FLOAT-REGISTER-NAMES* ...) ; compiling (DEFREG AL ...) ; compiling (DEFREG CL ...) ; compiling (DEFREG DL ...) ; compiling (DEFREG BL ...) ; compiling (DEFREG SIL ...) ; compiling (DEFREG DIL ...) ; compiling (DEFREG R8B ...) ; compiling (DEFREG R9B ...) ; compiling (DEFREG R10B ...) ; compiling (DEFREG R11B ...) ; compiling (DEFREG R12B ...) ; compiling (DEFREG R13B ...) ; compiling (DEFREG R14B ...) ; compiling (DEFREG R15B ...) ; 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 (DEFREG R8W ...) ; compiling (DEFREG R9W ...) ; compiling (DEFREG R10W ...) ; compiling (DEFREG R11W ...) ; compiling (DEFREG R12W ...) ; compiling (DEFREG R13W ...) ; compiling (DEFREG R14W ...) ; compiling (DEFREG R15W ...) ; 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 (DEFREG R8D ...) ; compiling (DEFREG R9D ...) ; compiling (DEFREG R10D ...) ; compiling (DEFREG R11D ...) ; compiling (DEFREG R12D ...) ; compiling (DEFREG R13D ...) ; compiling (DEFREG R14D ...) ; compiling (DEFREG R15D ...) ; compiling (DEFREGSET *DWORD-REGS* ...) ; compiling (DEFREG RAX ...) ; compiling (DEFREG RCX ...) ; compiling (DEFREG RDX ...) ; compiling (DEFREG RBX ...) ; compiling (DEFREG RSP ...) ; compiling (DEFREG RBP ...) ; compiling (DEFREG RSI ...) ; compiling (DEFREG RDI ...) ; compiling (DEFREG R8 ...) ; compiling (DEFREG R9 ...) ; compiling (DEFREG R10 ...) ; compiling (DEFREG R11 ...) ; compiling (DEFREG R12 ...) ; compiling (DEFREG R13 ...) ; compiling (DEFREG R14 ...) ; compiling (DEFREG R15 ...) ; compiling (DEFREGSET *QWORD-REGS* ...) ; compiling (DEFREG FLOAT0 ...) ; compiling (DEFREG FLOAT1 ...) ; compiling (DEFREG FLOAT2 ...) ; compiling (DEFREG FLOAT3 ...) ; compiling (DEFREG FLOAT4 ...) ; compiling (DEFREG FLOAT5 ...) ; compiling (DEFREG FLOAT6 ...) ; compiling (DEFREG FLOAT7 ...) ; compiling (DEFREG FLOAT8 ...) ; compiling (DEFREG FLOAT9 ...) ; compiling (DEFREG FLOAT10 ...) ; compiling (DEFREG FLOAT11 ...) ; compiling (DEFREG FLOAT12 ...) ; compiling (DEFREG FLOAT13 ...) ; compiling (DEFREG FLOAT14 ...) ; compiling (DEFREG FLOAT15 ...) ; compiling (DEFREGSET *FLOAT-REGS* ...) ; compiling (DEF!CONSTANT REGISTER-ARG-COUNT ...) ; compiling (DEFPARAMETER *REGISTER-ARG-NAMES* ...) ; compiling (DEFREGSET *REGISTER-ARG-OFFSETS* ...) ; compiling (DEFREGSET *C-CALL-REGISTER-ARG-OFFSETS* ...) ; compiling (DEFINE-STORAGE-BASE REGISTERS ...) ; compiling (DEFINE-STORAGE-BASE FLOAT-REGISTERS ...) ; compiling (DEFINE-STORAGE-BASE STACK ...) ; compiling (DEFINE-STORAGE-BASE CONSTANT ...) ; compiling (DEFINE-STORAGE-BASE IMMEDIATE-CONSTANT ...) ; compiling (DEFINE-STORAGE-BASE NOISE ...) ; compiling (DEFMACRO !DEFINE-STORAGE-CLASSES ...) ; compiling (!DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ...) ; compiling (DEFPARAMETER *BYTE-SC-NAMES* ...) ; compiling (DEFPARAMETER *WORD-SC-NAMES* ...) ; compiling (DEFPARAMETER *DWORD-SC-NAMES* ...) ; compiling (DEFPARAMETER *QWORD-SC-NAMES* ...) ; compiling (DEFPARAMETER *FLOAT-SC-NAMES* ...) ; compiling (DEFPARAMETER *DOUBLE-SC-NAMES* ...) ; compiling (DEFPARAMETER *COMPLEX-SC-NAMES* ...) ; compiling (DEFPARAMETER *OWORD-SC-NAMES* ...) ; compiling (DEF-MISC-REG-TNS UNSIGNED-REG ...) ; compiling (DEF-MISC-REG-TNS DWORD-REG ...) ; compiling (DEF-MISC-REG-TNS WORD-REG ...) ; compiling (DEF-MISC-REG-TNS BYTE-REG ...) ; compiling (DEF-MISC-REG-TNS SINGLE-REG ...) ; compiling (DEFUN REG-IN-SIZE ...) ; compiling (DEFPARAMETER TEMP-REG-TN ...) ; compiling (DEFPARAMETER *REGISTER-ARG-TNS* ...) ; compiling (DEFPARAMETER THREAD-BASE-TN ...) ; compiling (DEFUN IMMEDIATE-CONSTANT-SC ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/vm.lisp ; in: DEFUN IMMEDIATE-CONSTANT-SC ; (NIL (SB!C:SC-NUMBER-OR-LOSE 'SB!VM::SINGLE-SSE-IMMEDIATE)) ; ; caught STYLE-WARNING: ; Duplicate key NIL in TYPECASE form, occurring in the seventh clause: ; (NIL (SC-NUMBER-OR-LOSE 'DOUBLE-SSE-IMMEDIATE)), and the eighth clause: ; (NIL (SC-NUMBER-OR-LOSE 'SINGLE-SSE-IMMEDIATE)). ; (NIL (SB!C:SC-NUMBER-OR-LOSE 'SB!VM::INT-SSE-IMMEDIATE)) ; ; caught STYLE-WARNING: ; Duplicate key NIL in TYPECASE form, occurring in the eighth clause: ; (NIL (SC-NUMBER-OR-LOSE 'SINGLE-SSE-IMMEDIATE)), and the ninth clause: ; (NIL (SC-NUMBER-OR-LOSE 'INT-SSE-IMMEDIATE)). ; 'SB!VM::DOUBLE-SSE-IMMEDIATE ; ; note: deleting unreachable code ; 'SB!VM::SINGLE-SSE-IMMEDIATE ; ; note: deleting unreachable code ; 'SB!VM::INT-SSE-IMMEDIATE ; ; note: deleting unreachable code ; compiling (DEFUN BOXED-IMMEDIATE-SC-P ...) ; compiling (DEF!CONSTANT RETURN-PC-SAVE-OFFSET ...) ; compiling (DEF!CONSTANT OCFP-SAVE-OFFSET ...) ; compiling (DEF!CONSTANT CODE-SAVE-OFFSET ...) ; compiling (DEF!CONSTANT SP->FP-OFFSET ...) ; compiling (DECLAIM (INLINE FRAME-WORD-OFFSET)) ; compiling (DEFUN FRAME-WORD-OFFSET ...) ; compiling (DECLAIM (INLINE FRAME-BYTE-OFFSET)) ; compiling (DEFUN FRAME-BYTE-OFFSET ...) ; compiling (DEF!CONSTANT LRA-SAVE-OFFSET ...) ; compiling (DEF!CONSTANT SINGLE-VALUE-RETURN-BYTE-OFFSET ...) ; compiling (DEFUN LOCATION-PRINT-NAME ...) ; compiling (DEFUN DWORDS-FOR-QUAD ...) ; compiling (DEFUN WORDS-FOR-DWORD ...) ; compiling (DEF!CONSTANT CFP-OFFSET ...) ; compiling (DEFUN COMBINATION-IMPLEMENTATION-STYLE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/vm.lisp ; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE ; (SB!C::COMBINATION-FUN-SOURCE-NAME SB!VM::NODE) ; ; caught STYLE-WARNING: ; undefined function: SB!C::COMBINATION-FUN-SOURCE-NAME ; (SB!C::CONSTANT-LVAR-P (FIRST (SB!C::BASIC-COMBINATION-ARGS SB!VM::NODE))) ; ; caught STYLE-WARNING: ; undefined function: SB!C::CONSTANT-LVAR-P ; (SB!KERNEL:SPECIFIER-TYPE ; (SB!IMPL::BACKQ-LIST 'FUNCTION SB!VM::ARGS SB!VM::RESULT)) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: DEFUN IMMEDIATE-CONSTANT-SC ; (SB!VM:STATIC-SYMBOL-P SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: STATIC-SYMBOL-P ; in: DEFUN 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 ; ; compilation unit finished ; Undefined functions: ; SB!C::COMBINATION-FUN-SOURCE-NAME SB!C::CONSTANT-LVAR-P SPECIFIER-TYPE STATIC-SYMBOL-P SB!C::VALID-FUN-USE ; caught 7 STYLE-WARNING conditions ; printed 3 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/vm.fasl-tmp written ; compilation finished in 0:00:00.350 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/xset.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/xset.fasl-tmp written ; compilation finished in 0:00:00.052 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFSTRUCT (HAIRY-TYPE # ...) ...) ; compiling (!DEFINE-TYPE-CLASS HAIRY) ; compiling (DEFSTRUCT (UNKNOWN-TYPE # ...)) ; compiling (DEFUN MAYBE-REPARSE-SPECIFIER ...) ; compiling (DEFMACRO MAYBE-REPARSE-SPECIFIER! ...) ; compiling (DEFSTRUCT (NEGATION-TYPE # ...) ...) ; compiling (!DEFINE-TYPE-CLASS NEGATION) ; compiling (DEFSTRUCT (ARGS-TYPE # ...) ...) ; compiling (DEFUN CANONICALIZE-ARGS-TYPE-ARGS ...) ; compiling (DEFUN PARSE-ARGS-TYPES ...) ; compiling (DEFSTRUCT (VALUES-TYPE # ...)) ; compiling (DECLAIM (INLINE VALUES-TYPE-P)) ; compiling (DEFUN VALUES-TYPE-P ...) ; compiling (DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS ...) ...) ; compiling (DEFUN MAKE-VALUES-TYPE ...) ; compiling (!DEFINE-TYPE-CLASS VALUES) ; compiling (DEFSTRUCT (FUN-TYPE # ...) ...) ; compiling (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 (DEFSTRUCT (SIMD-PACK-TYPE # ...) ...) ; compiling (DEFUN MAKE-SIMD-PACK-TYPE ...) ; compiling (DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION ...) ...) ; compiling (DEFUN SPECIFIER-TYPE ...) ; compiling (DEFUN SINGLE-VALUE-SPECIFIER-TYPE ...) ; compiling (DEFUN TYPEXPAND-1 ...) ; compiling (DEFUN TYPEXPAND ...) ; compiling (DEFUN TYPEXPAND-ALL ...) ; compiling (DEFUN DEFINED-TYPE-NAME-P ...) ; compiling (DEFUN VALID-TYPE-SPECIFIER-P ...) ; compiling (DEFUN %NOTE-TYPE-DEFINED ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-TYPE-COLD-INIT) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-type.lisp ; in: ; DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION #'SXHASH :HASH-BITS 10 ...) ; (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:BUILT-IN-CLASSOID) ; ; caught STYLE-WARNING: ; undefined type: BUILT-IN-CLASSOID ; (SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION SB!KERNEL::SPEC) ; ; caught STYLE-WARNING: ; undefined function: BUILT-IN-CLASSOID-TRANSLATION ; (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; undefined type: CLASSOID ; in: DEFUN MAKE-SIMD-PACK-TYPE ; (SB!KERNEL:CSUBTYPEP SB!KERNEL::ELEMENT-TYPE ; (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::PACK-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; 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 #'SXHASH :HASH-BITS 10 ...) ; (SB!KERNEL:FIND-CLASSOID SB!KERNEL::SPEC) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID ; in: DEFUN PARSE-ARGS-TYPES ; #'SB!KERNEL:KEY-INFO-NAME ; ; caught STYLE-WARNING: ; undefined function: KEY-INFO-NAME ; (SB!KERNEL:MAKE-KEY-INFO :NAME SB!KERNEL::KWD :TYPE ; (SB!KERNEL:SINGLE-VALUE-SPECIFIER-TYPE (SECOND SB!KERNEL::KEY))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-KEY-INFO ; (SB!INT:PARSE-LAMBDA-LIST-LIKE-THING SB!KERNEL::LAMBDA-LIST-LIKE-THING ; :SILENT T) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST-LIKE-THING ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR) ; ; caught STYLE-WARNING: ; undefined function: TYPE-INTERSECTION ; in: DEFUN TYPEXPAND-ALL ; (SB!KERNEL:TYPE-SPECIFIER ; (SB!KERNEL:VALUES-SPECIFIER-TYPE SB!KERNEL:TYPE-SPECIFIER)) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:TYPE/= ; (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR) ; SB!KERNEL:*EMPTY-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: TYPE/= ; in: DEFUN TYPE-*-TO-T ; (SB!KERNEL:TYPE= TYPE SB!KERNEL:*WILD-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined types: ; BUILT-IN-CLASSOID CLASSOID ; Undefined functions: ; BUILT-IN-CLASSOID-TRANSLATION CSUBTYPEP CTYPE-OF FIND-CLASSOID KEY-INFO-NAME MAKE-KEY-INFO PARSE-LAMBDA-LIST-LIKE-THING TYPE-INTERSECTION TYPE-SPECIFIER TYPE/= TYPE= ; caught 14 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-type.fasl-tmp written ; compilation finished in 0:00:00.448 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/class.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEF!STRUCT (CLASSOID # ...) ...) ; compiling (DEFUN CLASSOID-MAKE-LOAD-FORM-FUN ...) ; compiling (DEF!CONSTANT LAYOUT-CLOS-HASH-LIMIT ...) ; compiling (DEF!TYPE LAYOUT-CLOS-HASH ...) ; compiling (DEFVAR *!INITIAL-LAYOUTS*) ; compiling (DEFVAR *FORWARD-REFERENCED-LAYOUTS*) ; compiling (!COLD-INIT-FORMS (SETQ *FORWARD-REFERENCED-LAYOUTS* ...)) ; compiling (DEF!STRUCT (LAYOUT #) ...) ; compiling (DECLAIM (FREEZE-TYPE LAYOUT)) ; compiling (DECLAIM (INLINE LAYOUT-FOR-STD-CLASS-P)) ; compiling (DEFUN LAYOUT-FOR-STD-CLASS-P ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN LAYOUT-PROPER-NAME ...) ; compiling (DEFVAR *LAYOUT-CLOS-HASH-RANDOM-STATE*) ; compiling (DEFUN RANDOM-LAYOUT-CLOS-HASH ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-LAYOUT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %INIT-OR-CHECK-LAYOUT ...) ; compiling (DEFUN MAKE-LOAD-FORM-FOR-LAYOUT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN REDEFINE-LAYOUT-WARNING ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-LAYOUT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT ...) ; compiling (DEFUN REGISTER-LAYOUT ...) ; compiling (DEFUN ORDER-LAYOUT-INHERITS ...) ; compiling (DEFUN TOPOLOGICAL-SORT ...) ; compiling (DEFUN STD-COMPUTE-CLASS-PRECEDENCE-LIST ...) ; compiling (DEF!STRUCT (UNDEFINED-CLASSOID # ...)) ; compiling (DEF!STRUCT (BUILT-IN-CLASSOID # ...) ...) ; compiling (DEF!STRUCT (STRUCTURE-CLASSOID # ...)) ; compiling (DEF!STRUCT (CLASSOID-CELL # ...) ...) ; compiling (DEFUN FIND-CLASSOID-CELL ...) ; compiling (DEFUN FIND-CLASSOID ...) ; compiling (DEFUN (SETF FIND-CLASSOID) ...) ; compiling (DEFUN %CLEAR-CLASSOID ...) ; compiling (DEFUN INSURED-FIND-CLASSOID ...) ; compiling (DEFUN CLASSOID-PROPER-NAME ...) ; compiling (!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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/class.lisp ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!PCL::%FORCE-CACHE-FLUSHES CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::%FORCE-CACHE-FLUSHES ; in: DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ; (SB!C::%LAYOUT-INVALID-ERROR SB!KERNEL::OBJECT SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: SB!C::%LAYOUT-INVALID-ERROR ; (SB!PCL::CHECK-WRAPPER-VALIDITY SB!KERNEL::OBJECT) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::CHECK-WRAPPER-VALIDITY ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!MOP:CLASS-FINALIZED-P CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:CLASS-FINALIZED-P ; in: !DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP) ; (SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; (SB!KERNEL:CLASSOID-PCL-CLASS SB!KERNEL::CLASS2)) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; in: DEFUN %MODIFY-CLASSOID ; (SB!KERNEL::CLEAR-TYPE-CACHES) ; ; caught STYLE-WARNING: ; undefined function: CLEAR-TYPE-CACHES ; in: DEFUN MAKE-LOAD-FORM-FOR-LAYOUT ; (SB!KERNEL::COMPILER-ERROR "can't dump reference to obsolete class: ~S" ; (SB!KERNEL:LAYOUT-CLASSOID SB!KERNEL:LAYOUT)) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!MOP:FINALIZE-INHERITANCE CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:FINALIZE-INHERITANCE ; in: DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ; (SB!KERNEL:LAYOUT-OF SB!KERNEL::OBJECT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-OF ; in: DEFUN SEALED-CLASS-INTERSECTION2 ; (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)) ; --> PROGN SETQ THE ; ==> ; (SB!KERNEL:TYPE-UNION (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS) ; #:RES-N-VALUE-1222) ; ; caught STYLE-WARNING: ; undefined function: TYPE-UNION ; ; compilation unit finished ; Undefined functions: ; SB!PCL::%FORCE-CACHE-FLUSHES SB!C::%LAYOUT-INVALID-ERROR SB!PCL::CHECK-WRAPPER-VALIDITY SB!MOP:CLASS-FINALIZED-P SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLEAR-TYPE-CACHES COMPILER-ERROR SB!MOP:FINALIZE-INHERITANCE LAYOUT-OF TYPE-UNION ; caught 11 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/class.fasl-tmp written ; compilation finished in 0:00:00.396 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/primtype.lisp" (written 28 JUN 2014 03:46:25 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 (/SHOW0 "primtype.lisp 31") ; compiling (/SHOW0 "primtype.lisp 35") ; compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-63 ...) ; compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-64 ...) ; compiling (!DEF-PRIMITIVE-TYPE FIXNUM ...) ; compiling (!DEF-PRIMITIVE-TYPE SIGNED-BYTE-64 ...) ; compiling (DEFVAR *FIXNUM-PRIMITIVE-TYPE* ...) ; compiling (/SHOW0 "primtype.lisp 53") ; compiling (!DEF-PRIMITIVE-TYPE-ALIAS TAGGED-NUM ...) ; compiling (MULTIPLE-VALUE-BIND (UNSIGNED SIGNED) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/primtype.lisp ; in: MULTIPLE-VALUE-BIND (UNSIGNED SIGNED) ; '(SB!VM::UNSIGNED-BYTE-32 SB!VM::UNSIGNED-BYTE-31 SB!VM::POSITIVE-FIXNUM) ; ; note: deleting unreachable code ; compiling (/SHOW0 "primtype.lisp 68") ; compiling (!DEF-PRIMITIVE-TYPE CHARACTER ...) ; compiling (/SHOW0 "primtype.lisp 73") ; compiling (!DEF-PRIMITIVE-TYPE FUNCTION ...) ; compiling (!DEF-PRIMITIVE-TYPE LIST ...) ; compiling (!DEF-PRIMITIVE-TYPE INSTANCE ...) ; compiling (/SHOW0 "primtype.lisp 77") ; compiling (!DEF-PRIMITIVE-TYPE FUNCALLABLE-INSTANCE ...) ; compiling (/SHOW0 "primtype.lisp 81") ; compiling (!DEF-PRIMITIVE-TYPE BIGNUM ...) ; compiling (!DEF-PRIMITIVE-TYPE RATIO ...) ; compiling (!DEF-PRIMITIVE-TYPE COMPLEX ...) ; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE SINGLE-FLOAT") ; compiling (!DEF-PRIMITIVE-TYPE SINGLE-FLOAT ...) ; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE DOUBLE-FLOAT") ; compiling (!DEF-PRIMITIVE-TYPE DOUBLE-FLOAT ...) ; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT") ; compiling (!DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT ...) ; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT") ; compiling (!DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT ...) ; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE SIMD-PACK") ; compiling (!DEF-PRIMITIVE-TYPE SIMD-PACK-SINGLE ...) ; compiling (!DEF-PRIMITIVE-TYPE SIMD-PACK-DOUBLE ...) ; compiling (!DEF-PRIMITIVE-TYPE SIMD-PACK-INT ...) ; compiling (!DEF-PRIMITIVE-TYPE-ALIAS SIMD-PACK ...) ; compiling (/SHOW0 "primtype.lisp 96") ; compiling (DEFINE-SIMPLE-ARRAY-PRIMITIVE-TYPES) ; compiling (!DEF-PRIMITIVE-TYPE SYSTEM-AREA-POINTER ...) ; compiling (!DEF-PRIMITIVE-TYPE WEAK-POINTER ...) ; compiling (!DEF-PRIMITIVE-TYPE CATCH-BLOCK ...) ; compiling (/SHOW0 "primtype.lisp 147") ; compiling (DEFUN PRIMITIVE-TYPE-OF ...) ; compiling (/SHOW0 "primtype.lisp 188") ; compiling (DEFUN PRIMITIVE-TYPE ...) ; compiling (/SHOW0 "primtype.lisp 191") ; compiling (DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ...) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/primtype.lisp ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9 ; ...) ; 'SB!VM::SIGNED-BYTE-32 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-31 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-32 ; ; note: deleting unreachable code ; 'SB!VM::SIGNED-BYTE-32 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-31 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-32 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-31 ; ; note: deleting unreachable code ; 'SB!VM::SIGNED-BYTE-32 ; ; note: deleting unreachable code ; compiling (/SHOW0 "primtype.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/primtype.lisp ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9 ; ...) ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN PRIMITIVE-TYPE-OF ; (SB!KERNEL:CTYPE-OF SB!VM::OBJECT) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9 ; ...) ; (SB!KERNEL:TYPE-SPECIFIER SB!VM::ETYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined functions: ; CSUBTYPEP CTYPE-OF TYPE-SPECIFIER TYPE= ; caught 4 STYLE-WARNING conditions ; printed 9 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/primtype.fasl-tmp written ; compilation finished in 0:00:00.116 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/parse-lambda-list.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (/SHOW0 "parse-lambda-list.lisp 12") ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PARSE-LAMBDA-LIST-LIKE-THING ...) ; compiling (DEFUN PARSE-LAMBDA-LIST ...) ; compiling (/SHOW0 "parse-lambda-list.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/parse-lambda-list.lisp ; in: DEFUN PARSE-LAMBDA-LIST ; (SB!C:COMPILER-ERROR "~A is not a symbol: ~S" SB!C::WHY SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR ; in: DEFUN PARSE-LAMBDA-LIST-LIKE-THING ; (SB!C:COMPILER-ERROR "misplaced &OPTIONAL in lambda list: ~S" LIST) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR ; (SB!INT:STYLE-WARN "suspicious variable in lambda list: ~S." SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined functions: ; COMPILER-ERROR STYLE-WARN ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/parse-lambda-list.fasl-tmp written ; compilation finished in 0:00:00.036 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!ALIEN") ; compiling (/SHOW0 "host-alieneval.lisp 15") ; compiling (DEFUN ALIGN-OFFSET ...) ; compiling (DEFUN GUESS-ALIGNMENT ...) ; compiling (DEFSTRUCT (ALIEN-TYPE-CLASS #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN ALIEN-TYPE-CLASS-OR-LOSE ...) ; compiling (DEFUN CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY ...) ; compiling (DEFPARAMETER *METHOD-SLOT-ALIST* ...) ; compiling (DEFUN METHOD-SLOT ...) ; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-CLASS ...) ; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-METHOD ...) ; compiling (DEF!MACRO INVOKE-ALIEN-TYPE-METHOD ...) ; compiling (DEFUN AUXILIARY-TYPE-DEFINITIONS ...) ; compiling (DEF!MACRO WITH-AUXILIARY-ALIEN-TYPES ...) ; compiling (DEFUN PARSE-ALIEN-TYPE ...) ; compiling (DEFUN AUXILIARY-ALIEN-TYPE ...) ; compiling (DEFUN (SETF AUXILIARY-ALIEN-TYPE) ...) ; compiling (DEFUN VERIFY-LOCAL-AUXILIARIES-OKAY ...) ; compiling (DEFUN UNPARSE-ALIEN-TYPE ...) ; compiling (DEFUN %UNPARSE-ALIEN-TYPE ...) ; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-TRANSLATOR ...) ; compiling (DEFUN %DEFINE-ALIEN-TYPE-TRANSLATOR ...) ; compiling (DEF!MACRO DEFINE-ALIEN-TYPE ...) ; compiling (DEFUN %DEF-AUXILIARY-ALIEN-TYPES ...) ; compiling (DEFUN %DEFINE-ALIEN-TYPE ...) ; compiling (CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY (QUOTE ROOT) ...) ; compiling (DEF!STRUCT (ALIEN-TYPE # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (SYSTEM-AREA-POINTER)) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ALIEN-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (ALIEN-VALUE :INCLUDE ...)) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :DEPORT-GEN) ...) ; compiling (DEF!STRUCT (HEAP-ALIEN-INFO #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN HEAP-ALIEN-INFO-SAP-FORM ...) ; compiling (DEFUN HEAP-ALIEN-INFO-SAP ...) ; compiling (DEFUN ALIEN-TYPE-= ...) ; compiling (DEFUN ALIEN-SUBTYPE-P ...) ; compiling (DEFUN COMPUTE-NATURALIZE-LAMBDA ...) ; compiling (DEFUN COMPUTE-DEPORT-LAMBDA ...) ; compiling (DEFUN COMPUTE-DEPORT-ALLOC-LAMBDA ...) ; compiling (DEFUN COMPUTE-EXTRACT-LAMBDA ...) ; compiling (DEF!MACRO MAYBE-WITH-PINNED-OBJECTS ...) ; compiling (DEFUN COMPUTE-DEPOSIT-LAMBDA ...) ; compiling (DEFUN COMPUTE-LISP-REP-TYPE ...) ; compiling (DEFUN COMPUTE-ALIEN-REP-TYPE ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :TYPE=) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :SUBTYPEP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ALIEN-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-ALLOC-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-PIN-P) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPOSIT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ARG-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (INTEGER) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :TYPE=) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ALIEN-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (BOOLEAN :INCLUDE ...)) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (ENUM :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ...) ; compiling (DEFUN PARSE-ENUM ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :TYPE=) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (FLOAT) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :ALIEN-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (SINGLE-FLOAT :INCLUDE ...)) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (DOUBLE-FLOAT :INCLUDE ...)) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (POINTER :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR * ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :TYPE=) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :SUBTYPEP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (MEM-BLOCK :INCLUDE ...)) ; compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :DEPOSIT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (ARRAY :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :TYPE=) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :SUBTYPEP) ...) ; compiling (DEF!STRUCT (ALIEN-RECORD-FIELD #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (RECORD :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR STRUCT ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNION ...) ; compiling (DEFUN PARSE-ALIEN-RECORD-TYPE ...) ; compiling (DEFUN PARSE-ALIEN-RECORD-FIELDS ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :UNPARSE) ...) ; compiling (DEFUN UNPARSE-ALIEN-RECORD-KIND ...) ; compiling (DEFUN UNPARSE-ALIEN-RECORD-FIELD ...) ; compiling (DEFUN RECORD-FIELDS-MATCH-P ...) ; compiling (DEFVAR *ALIEN-TYPE-MATCHES* ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :TYPE=) ...) ; compiling (DEF!TYPE CALLING-CONVENTION ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (FUN :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :TYPE=) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (VALUES) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR VALUES ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :TYPE=) ...) ; compiling (DEF!STRUCT (LOCAL-ALIEN-INFO # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFMACRO-MUNDANELY ADDR ...) ; compiling (/SHOW0 "host-alieneval.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFMACRO-MUNDANELY ADDR ; (SB!INT:%MACROEXPAND SB!ALIEN::EXPR SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: DEFUN AUXILIARY-TYPE-DEFINITIONS ; (SB!INT:%MACROEXPAND 'SB!ALIEN::&AUXILIARY-TYPE-DEFINITIONS& SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ; (SETF (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::RESULT)) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-FROM) #:NEW1 #:OLD2) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-FROM) ; ==> ; (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-KIND) #:NEW5 #:OLD6) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-KIND) ; ==> ; (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-OFFSET) #:NEW7 #:OLD8) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-OFFSET) ; ==> ; (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-SIGNED) #:NEW9 #:OLD10) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-SIGNED) ; ==> ; (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-TO) #:NEW3 #:OLD4) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-TO) ; (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-FROM ; (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-KIND ; (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-OFFSET ; (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-SIGNED ; (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-TO ; in: DEFUN HEAP-ALIEN-INFO-SAP ; (SB!SYS:FOREIGN-SYMBOL-SAP (SB!ALIEN::HEAP-ALIEN-INFO-ALIEN-NAME SB!INT:INFO) ; (SB!ALIEN::HEAP-ALIEN-INFO-DATAP SB!INT:INFO)) ; ; caught STYLE-WARNING: ; undefined function: FOREIGN-SYMBOL-SAP ; in: DEFUN AUXILIARY-ALIEN-TYPE ; (DEFUN SB!ALIEN::AUXILIARY-ALIEN-TYPE ; (SB!ALIEN::KIND SB!ALIEN::NAME SB!ALIEN::ENV) ; (DECLARE (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV)) ; (FLET ((SB!ALIEN::AUX-DEFN-MATCHES (SB!ALIEN::X) ; (AND # #))) ; (LET ((SB!ALIEN::IN-AUXILIARIES #)) ; (IF SB!ALIEN::IN-AUXILIARIES ; (VALUES # T) ; (ECASE SB!ALIEN::KIND # # #))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET OR LET ; ==> ; (TYPEP #:N-OBJ397 'SB!KERNEL:LEXENV) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL:LEXENV ; in: DEFUN PARSE-ALIEN-TYPE ; (DEFUN SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE (TYPE SB!ALIEN::ENV) ; (DECLARE (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV)) ; (IF (CONSP TYPE) ; (LET ((SB!ALIEN::TRANSLATOR #)) ; (UNLESS SB!ALIEN::TRANSLATOR (ERROR "unknown alien type: ~S" TYPE)) ; (FUNCALL SB!ALIEN::TRANSLATOR TYPE SB!ALIEN::ENV)) ; (ECASE (SB!INT:INFO :ALIEN-TYPE :KIND TYPE) ; (:PRIMITIVE ; (LET # ; # ; #)) ; (:DEFINED (OR # #)) ; (:UNKNOWN (ERROR "unknown alien type: ~S" TYPE))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET OR LET ; ==> ; (TYPEP #:N-OBJ347 'SB!KERNEL:LEXENV) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL:LEXENV ; (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL:LEXENV ; ; caught STYLE-WARNING: ; 8 more uses of undefined type SB!KERNEL:LEXENV ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFUN PARSE-ENUM ; (SB!INT:STYLE-WARN "The element value ~S is used more than once." ; SB!ALIEN::VAL) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined type: ; SB!KERNEL:LEXENV ; Undefined functions: ; %MACROEXPAND (SETF ALIEN-TYPE-FROM) (SETF ALIEN-TYPE-KIND) (SETF ALIEN-TYPE-OFFSET) (SETF ALIEN-TYPE-SIGNED) (SETF ALIEN-TYPE-TO) ALIEN-TYPE-FROM ALIEN-TYPE-KIND ALIEN-TYPE-OFFSET ALIEN-TYPE-SIGNED ALIEN-TYPE-TO FOREIGN-SYMBOL-SAP STYLE-WARN ; caught 18 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/host-alieneval.fasl-tmp written ; compilation finished in 0:00:00.685 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-c-call.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!ALIEN") ; compiling (/SHOW0 "host-c-call.lisp 12") ; compiling (DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ...) ; compiling (DEFUN C-STRING-EXTERNAL-FORMAT ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-PIN-P) ...) ; compiling (DEFUN C-STRING-NEEDS-CONVERSION-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NULL-ERROR ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-c-call.lisp ; in: DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ; 'SB!ALIEN::%NATURALIZE-C-STRING ; ; note: deleting unreachable code ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-ALLOC-GEN) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-c-call.lisp ; in: DEFUN C-STRING-EXTERNAL-FORMAT => DEFAULT-C-STRING-EXTERNAL-FORMAT ; (SB!ALIEN::DEFAULT-C-STRING-EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-C-STRING-EXTERNAL-FORMAT ; in: DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE 'CHAR (SB!KERNEL:MAKE-NULL-LEXENV)) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL:LEXENV ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:MAKE-NULL-LEXENV ; ; compilation unit finished ; Undefined type: ; SB!KERNEL:LEXENV ; Undefined functions: ; DEFAULT-C-STRING-EXTERNAL-FORMAT SB!KERNEL:MAKE-NULL-LEXENV ; caught 3 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/host-c-call.fasl-tmp written ; compilation finished in 0:00:00.040 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/compiler-deftype.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/compiler-deftype.lisp ; in: DEFUN %COMPILER-DEFTYPE ; (SB!C:WITH-SOURCE-LOCATION (SB!IMPL::SOURCE-LOCATION) ; (SETF (SB!INT:INFO :TYPE :SOURCE-LOCATION 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!KERNEL:UNDECLARE-STRUCTURE (SB!KERNEL:FIND-CLASSOID SB!IMPL::NAME) T) ; ; caught STYLE-WARNING: ; undefined function: UNDECLARE-STRUCTURE ; ; compilation unit finished ; Undefined functions: ; SB!C::MAKE-DEFINITION-SOURCE-LOCATION UNDECLARE-STRUCTURE ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/compiler-deftype.fasl-tmp written ; compilation finished in 0:00:00.023 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "late-type.lisp 19") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFINE-CONDITION PARSE-UNKNOWN-TYPE ...) ; compiling (DEFUN DELEGATE-COMPLEX-SUBTYPEP-ARG2 ...) ; compiling (DEFUN DELEGATE-COMPLEX-INTERSECTION2 ...) ; compiling (DEFUN CONTAINS-UNKNOWN-TYPE-P ...) ; compiling (DEFUN !HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1 ...) ; compiling (DEFMACRO !DEFINE-SUPERCLASSES ...) ; compiling (DEFSTRUCT (KEY-INFO #) ...) ; compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-SUBTYPEP ...) ...) ; compiling (!DEFINE-TYPE-METHOD (VALUES :COMPLEX-SUBTYPEP-ARG2) ...) ; compiling (!DEFINE-TYPE-METHOD (VALUES :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (VALUES :UNPARSE) ...) ; compiling (DEFUN TYPE=-LIST ...) ; compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-CLASS FUNCTION) ; compiling (DEFVAR *UNPARSE-FUN-TYPE-SIMPLIFY*) ; compiling (DEFVAR *UNPARSE-ALLOW-NEGATION*) ; compiling (!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 VALUES-TYPE-MIN-VALUE-COUNT ...) ; compiling (DEFUN VALUES-TYPE-MAX-VALUE-COUNT ...) ; compiling (DEFUN VALUES-TYPE-MAY-BE-SINGLE-VALUE-P ...) ; compiling (DEFUN TYPE-SINGLE-VALUE-P ...) ; compiling (DECLAIM (FREEZE-TYPE VALUES-TYPE)) ; compiling (DEFUN SINGLE-VALUE-TYPE ...) ; compiling (DEFUN FUN-TYPE-NARGS ...) ; compiling (DEFUN VALUES-TYPES ...) ; compiling (DEFUN VALUES-TYPE-TYPES ...) ; compiling (DEFUN VALUES-TYPE-OUT ...) ; compiling (DEFUN VALUES-TYPE-IN ...) ; compiling (DEFUN FIXED-VALUES-OP ...) ; compiling (DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS ...) ...) ; compiling (DEFUN COERCE-TO-VALUES ...) ; compiling (DEFUN MAKE-SHORT-VALUES-TYPE ...) ; compiling (DEFUN MAKE-SINGLE-VALUE-TYPE ...) ; compiling (DEFUN ARGS-TYPE-OP ...) ; compiling (DEFUN VALUES-TYPE-OP ...) ; compiling (DEFUN COMPARE-KEY-ARGS ...) ; compiling (DEFUN TYPE=-ARGS ...) ; compiling (DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION ...) ...) ; compiling (DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION ...) ...) ; compiling (DEFUN VALUES-TYPES-EQUAL-OR-INTERSECT ...) ; compiling (DEFUN-CACHED (VALUES-SUBTYPEP :HASH-FUNCTION ...) ...) ; compiling (DEFUN-CACHED (CSUBTYPEP :HASH-FUNCTION ...) ...) ; compiling (DEFUN SB-XC:SUBTYPEP ...) ; compiling (DEFUN-CACHED (TYPE= :HASH-FUNCTION ...) ...) ; compiling (DEFUN TYPE/= ...) ; compiling (DEFUN %TYPE-UNION2 ...) ; compiling (DEFUN-CACHED (TYPE-UNION2 :HASH-FUNCTION ...) ...) ; compiling (DEFUN %TYPE-INTERSECTION2 ...) ; compiling (DEFUN-CACHED (TYPE-INTERSECTION2 :HASH-FUNCTION ...) ...) ; compiling (DEFUN TYPE-APPROX-INTERSECTION2 ...) ; compiling (DEFUN TYPES-EQUAL-OR-INTERSECT ...) ; compiling (DEFUN TYPE-SPECIFIER ...) ; compiling (DEFUN-CACHED (TYPE-NEGATION :HASH-FUNCTION ...) ...) ; compiling (DEFUN-CACHED (TYPE-SINGLETON-P :HASH-FUNCTION ...) ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PRECOMPUTE-TYPES ...) ; compiling (DEF SIMPLIFY-INTERSECTIONS ...) ; compiling (DEF SIMPLIFY-UNIONS ...) ; compiling (DEFUN MAYBE-DISTRIBUTE-ONE-UNION ...) ; compiling (DEFUN TYPE-INTERSECTION ...) ; compiling (DEFUN-CACHED (%TYPE-INTERSECTION :HASH-BITS ...) ...) ; compiling (DEFUN TYPE-UNION ...) ; compiling (DEFUN-CACHED (%TYPE-UNION :HASH-BITS ...) ...) ; compiling (!DEFINE-TYPE-CLASS NAMED) ; compiling (!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 (DEFUN MAYBE-COMPLEX-ARRAY-REFINEMENT ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-INTERSECTION2) ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-=) ...) ; compiling (!DEF-TYPE-TRANSLATOR NOT ...) ; compiling (!DEFINE-TYPE-CLASS NUMBER) ; compiling (DECLAIM (INLINE NUMERIC-TYPE-EQUAL)) ; compiling (DEFUN NUMERIC-TYPE-EQUAL ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :SINGLETON-P) ...) ; compiling (DEFMACRO NUMERIC-BOUND-TEST ...) ; compiling (DEFMACRO NUMERIC-BOUND-TEST* ...) ; compiling (DEFMACRO NUMERIC-BOUND-MAX ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-SUPERCLASSES NUMBER ...) ; compiling (DEFUN NUMERIC-TYPES-ADJACENT ...) ; compiling (DEFVAR *APPROXIMATE-NUMERIC-UNIONS* ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-UNION2) ...) ; compiling (!COLD-INIT-FORMS (SETF # ...) ...) ; compiling (!DEF-TYPE-TRANSLATOR COMPLEX ...) ; compiling (DECLAIM (INLINE CANONICALIZED-BOUND)) ; compiling (DEFUN CANONICALIZED-BOUND ...) ; compiling (!DEF-TYPE-TRANSLATOR INTEGER ...) ; compiling (DEFMACRO !DEF-BOUNDED-TYPE ...) ; compiling (!DEF-BOUNDED-TYPE RATIONAL ...) ; compiling (DEFUN COERCE-BOUND ...) ; compiling (DEFUN INNER-COERCE-REAL-BOUND ...) ; compiling (DEFUN INNER-COERCE-FLOAT-BOUND ...) ; compiling (DEFUN COERCED-REAL-BOUND ...) ; compiling (DEFUN COERCED-FLOAT-BOUND ...) ; compiling (!DEF-TYPE-TRANSLATOR REAL ...) ; compiling (!DEF-TYPE-TRANSLATOR FLOAT ...) ; compiling (DEFMACRO !DEFINE-FLOAT-FORMAT ...) ; compiling (!DEFINE-FLOAT-FORMAT SHORT-FLOAT) ; compiling (!DEFINE-FLOAT-FORMAT SINGLE-FLOAT) ; compiling (!DEFINE-FLOAT-FORMAT DOUBLE-FLOAT) ; compiling (!DEFINE-FLOAT-FORMAT LONG-FLOAT) ; compiling (DEFUN NUMERIC-TYPES-INTERSECT ...) ; compiling (DEFUN ROUND-NUMERIC-BOUND ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-INTERSECTION2) ...) ; compiling (DEFUN FLOAT-FORMAT-MAX ...) ; compiling (DEFUN NUMERIC-CONTAGION ...) ; compiling (!DEFINE-TYPE-CLASS ARRAY) ; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (ARRAY :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (ARRAY :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-SUPERCLASSES ARRAY ...) ; compiling (DEFUN ARRAY-TYPES-INTERSECT ...) ; compiling (DEFUN UNITE-ARRAY-TYPES-COMPLEXP ...) ; compiling (DEFUN UNITE-ARRAY-TYPES-DIMENSIONS ...) ; compiling (DEFUN UNITE-ARRAY-TYPES-ELEMENT-TYPES ...) ; compiling (DEFUN UNITE-ARRAY-TYPES-SUPERTYPES-COMPATIBLE-P ...) ; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-INTERSECTION2) ...) ; compiling (DEFUN CANONICAL-ARRAY-DIMENSIONS ...) ; compiling (!DEFINE-TYPE-CLASS MEMBER) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :SINGLETON-P) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG2) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-INTERSECTION2) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-=) ...) ; compiling (!DEF-TYPE-TRANSLATOR MEMBER ...) ; compiling (!DEFINE-TYPE-CLASS INTERSECTION) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :UNPARSE) ...) ; compiling (DEFUN TYPE=-SET ...) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-=) ...) ; compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG1 ...) ; compiling (DEFUN %INTERSECTION-SIMPLE-SUBTYPEP ...) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG1) ...) ; compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG2 ...) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG2) ...) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-UNION2 ...) ...) ; compiling (!DEF-TYPE-TRANSLATOR AND ...) ; compiling (!DEFINE-TYPE-CLASS UNION) ; compiling (!DEFINE-TYPE-METHOD (UNION :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-=) ...) ; compiling (DEFUN UNION-SIMPLE-SUBTYPEP ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-SUBTYPEP) ...) ; compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG1 ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG1) ...) ; compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG2 ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG2) ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-INTERSECTION2 ...) ...) ; compiling (!DEF-TYPE-TRANSLATOR OR ...) ; compiling (!DEFINE-TYPE-CLASS CONS) ; compiling (!DEF-TYPE-TRANSLATOR CONS ...) ; compiling (!DEFINE-TYPE-METHOD (CONS :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (CONS :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-INTERSECTION2) ...) ; compiling (!DEFINE-SUPERCLASSES CONS ...) ; compiling (!DEFINE-TYPE-CLASS CHARACTER-SET) ; compiling (!DEF-TYPE-TRANSLATOR CHARACTER-SET ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SINGLETON-P) ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-INTERSECTION2) ...) ; compiling (DEFUN INTERSECT-TYPE-PAIRS ...) ; compiling (DEFUN TYPE-DIFFERENCE ...) ; compiling (!DEF-TYPE-TRANSLATOR ARRAY ...) ; compiling (!DEF-TYPE-TRANSLATOR SIMPLE-ARRAY ...) ; compiling (!DEFINE-TYPE-CLASS SIMD-PACK) ; compiling (!DEF-TYPE-TRANSLATOR SIMD-PACK ...) ; compiling (!DEFINE-TYPE-METHOD (SIMD-PACK :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (SIMD-PACK :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (SIMD-PACK :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (SIMD-PACK :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-TYPE-METHOD (SIMD-PACK :SIMPLE-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (SIMD-PACK :SIMPLE-INTERSECTION2) ...) ; compiling (!DEFINE-SUPERCLASSES SIMD-PACK ...) ; compiling (DEFUN DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P ...) ; compiling (DEFUN CTYPE-OF-NUMBER ...) ; compiling (DECLAIM (INLINE GENERIC-ABSTRACT-TYPE-FUNCTION)) ; compiling (DEFUN GENERIC-ABSTRACT-TYPE-FUNCTION ...) ; compiling (DECLAIM (NOTINLINE GENERIC-ABSTRACT-TYPE-FUNCTION)) ; compiling (DEFUN LIST-ABSTRACT-TYPE-FUNCTION ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-TYPE-COLD-INIT) ; compiling (/SHOW0 "late-type.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-type.lisp ; in: !DEF-TYPE-TRANSLATOR SIMPLE-ARRAY ; (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::ELTYPE) ; ; caught STYLE-WARNING: ; undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE ; in: !DEF-TYPE-TRANSLATOR ARRAY ; (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::ELTYPE) ; ; caught STYLE-WARNING: ; undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE ; in: !DEFINE-TYPE-METHOD (ARRAY :UNPARSE) ; (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::DTYPE) ; ; caught STYLE-WARNING: ; undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE ; in: !DEF-TYPE-TRANSLATOR MEMBER ; (SB!KERNEL:CTYPE-OF SB!KERNEL::M) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF ; in: !DEFINE-TYPE-METHOD (MEMBER :NEGATE) ; (SB!KERNEL:CTYPE-OF SB!KERNEL::OPPOSITE) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF ; in: !DEF-TYPE-TRANSLATOR COMPLEX ; (SB!KERNEL:CTYPE-OF SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF ; in: DEFUN TYPE-DIFFERENCE ; (SB!KERNEL:CTYPEP ELT SB!KERNEL::Y) ; ; caught STYLE-WARNING: ; undefined function: CTYPEP ; in: !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2) ; (SB!KERNEL:CTYPEP MEMBER SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: CTYPEP ; in: !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1) ; (SB!KERNEL:CTYPEP ELT SB!KERNEL::TYPE2) ; ; caught STYLE-WARNING: ; undefined function: CTYPEP ; in: DEFUN CTYPE-OF-NUMBER ; (SB!KERNEL:FLOAT-FORMAT-NAME SB!KERNEL::NUM) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-FORMAT-NAME ; in: DEFUN LIST-ABSTRACT-TYPE-FUNCTION ; (INLINE SB!KERNEL::GENERIC-ABSTRACT-WALK-TYPE) ; ; caught STYLE-WARNING: ; undefined function: GENERIC-ABSTRACT-WALK-TYPE ; in: !DEF-TYPE-TRANSLATOR OR ; (SB!KERNEL::SIMPLIFY-ARRAY-UNIONS TYPE) ; ; caught STYLE-WARNING: ; undefined function: SIMPLIFY-ARRAY-UNIONS ; in: DEFUN CANONICALIZED-BOUND ; (SB-XC:TYPEP (CAR SB!KERNEL::BOUND) TYPE) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:TYPEP ; in: DEFUN !HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1 ; (SB-XC:TYPEP SB!KERNEL::TYPE2 'SB!KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:TYPEP ; ; compilation unit finished ; Undefined functions: ; %UPGRADED-ARRAY-ELEMENT-TYPE CTYPE-OF CTYPEP FLOAT-FORMAT-NAME GENERIC-ABSTRACT-WALK-TYPE SIMPLIFY-ARRAY-UNIONS SB-XC:TYPEP ; caught 14 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/late-type.fasl-tmp written ; compilation finished in 0:00:01.454 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/deftypes-for-target.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "deftypes-for-target.lisp 14") ; compiling (/SHOW "about to force delayed DEF!TYPEs") ; compiling (FORCE-DELAYED-DEF!TYPES) ; compiling (/SHOW "done forcing delayed DEF!TYPEs") ; compiling (SB-XC:DEFTYPE BOOLEAN ...) ; compiling (SB-XC:DEFTYPE MOD ...) ; compiling (SB-XC:DEFTYPE SIGNED-BYTE ...) ; compiling (SB-XC:DEFTYPE UNSIGNED-BYTE ...) ; compiling (SB-XC:DEFTYPE UNSIGNED-BYTE* ...) ; compiling (SB-XC:DEFTYPE BIT ...) ; compiling (SB-XC:DEFTYPE ATOM ...) ; compiling (SB-XC:DEFTYPE BASE-CHAR ...) ; compiling (SB-XC:DEFTYPE EXTENDED-CHAR ...) ; compiling (SB-XC:DEFTYPE STANDARD-CHAR ...) ; compiling (SB-XC:DEFTYPE KEYWORD ...) ; compiling (SB-XC:DEFTYPE EQL ...) ; compiling (SB-XC:DEFTYPE VECTOR ...) ; compiling (SB-XC:DEFTYPE SIMPLE-VECTOR ...) ; compiling (SB-XC:DEFTYPE BASE-STRING ...) ; compiling (SB-XC:DEFTYPE SIMPLE-BASE-STRING ...) ; compiling (SB-XC:DEFTYPE STRING ...) ; compiling (SB-XC:DEFTYPE SIMPLE-STRING ...) ; compiling (SB-XC:DEFTYPE BIT-VECTOR ...) ; compiling (SB-XC:DEFTYPE SIMPLE-BIT-VECTOR ...) ; compiling (SB-XC:DEFTYPE GENERALIZED-BOOLEAN ...) ; compiling (SB-XC:DEFTYPE FORMAT-CONTROL ...) ; compiling (SB-XC:DEFTYPE RESTART-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE ARRAY-RANK ...) ; compiling (SB-XC:DEFTYPE ARRAY-TOTAL-SIZE ...) ; compiling (SB-XC:DEFTYPE FORM ...) ; compiling (SB-XC:DEFTYPE STRING-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE FILENAME ...) ; compiling (SB-XC:DEFTYPE PATHNAME-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE LOGICAL-HOST-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE PACKAGE-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE SYMBOLS-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE IRRATIONAL ...) ; compiling (SB-XC:DEFTYPE CHAR-CODE ...) ; compiling (SB-XC:DEFTYPE CONSED-SEQUENCE ...) ; compiling (SB-XC:DEFTYPE SEQUENCE-END ...) ; compiling (SB-XC:DEFTYPE SEQUENCE-COUNT ...) ; compiling (SB-XC:DEFTYPE STREAM-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE EXTERNAL-FORMAT-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE LEXENV-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE CALLABLE ...) ; compiling (SB-XC:DEFTYPE SINGLE-FLOAT-EXPONENT ...) ; compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-EXPONENT ...) ; compiling (SB-XC:DEFTYPE SINGLE-FLOAT-INT-EXPONENT ...) ; compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-INT-EXPONENT ...) ; compiling (SB-XC:DEFTYPE SINGLE-FLOAT-SIGNIFICAND ...) ; compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-SIGNIFICAND ...) ; compiling (/SHOW0 "deftypes-for-target.lisp end of file") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/deftypes-for-target.fasl-tmp written ; compilation finished in 0:00:00.051 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/knownfun.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (/SHOW0 "knownfun.lisp 17") ; compiling (!DEF-BOOLEAN-ATTRIBUTE IR1 ...) ; compiling (DEFSTRUCT (FUN-INFO) ...) ; compiling (DEFPRINTER (FUN-INFO) ...) ; compiling (DEFSTRUCT (TRANSFORM #) ...) ; compiling (DEFPRINTER (TRANSFORM) ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %DEFTRANSFORM ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %DEFKNOWN ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FUN-INFO-OR-LOSE ...) ; compiling (DEFUN RESULT-TYPE-FIRST-ARG ...) ; compiling (DEFUN RESULT-TYPE-LAST-ARG ...) ; compiling (DEFUN RESULT-TYPE-FLOAT-CONTAGION ...) ; compiling (DEFUN SEQUENCE-RESULT-NTH-ARG ...) ; compiling (DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ...) ; compiling (DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ...) ; compiling (DEFUN REMOVE-NON-CONSTANTS-AND-NILS ...) ; compiling (DEFUN NTH-CONSTANT-ARGS ...) ; compiling (DEFUN NTH-CONSTANT-NONEMPTY-SEQUENCE-ARGS ...) ; compiling (DEFUN READ-ELT-TYPE-DERIVER ...) ; compiling (/SHOW0 "knownfun.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/knownfun.lisp ; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CAREFUL-SPECIFIER-TYPE ; (SB!IMPL::BACKQ-LIST* 'VECTOR 'CHARACTER (WHEN SB!C::SIZE SB!C::SIZE))) ; ; caught STYLE-WARNING: ; undefined function: CAREFUL-SPECIFIER-TYPE ; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CAREFUL-SPECIFIER-TYPE (SB!C::LVAR-VALUE SB!C::LVAR)) ; ; caught STYLE-WARNING: ; undefined function: CAREFUL-SPECIFIER-TYPE ; in: DEFUN REMOVE-NON-CONSTANTS-AND-NILS ; #'SB!C::CONSTANT-LVAR-P ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; ; caught STYLE-WARNING: ; 2 more uses of undefined function CONSTANT-LVAR-P ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/knownfun.lisp ; in: DEFUN RESULT-TYPE-FLOAT-CONTAGION ; #'SB!C::LVAR-TYPE ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN RESULT-TYPE-LAST-ARG ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN RESULT-TYPE-FIRST-ARG ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; ; caught STYLE-WARNING: ; 2 more uses of undefined function LVAR-TYPE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/knownfun.lisp ; in: DEFUN REMOVE-NON-CONSTANTS-AND-NILS ; #'SB!C::LVAR-VALUE ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; ; caught STYLE-WARNING: ; 1 more use of undefined function LVAR-VALUE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/knownfun.lisp ; in: DEFUN %DEFTRANSFORM ; (SB!INT:STYLE-WARN 'SB!KERNEL:REDEFINITION-WITH-DEFTRANSFORM :TRANSFORM ; SB!C::OLD) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined functions: ; CAREFUL-SPECIFIER-TYPE CONSTANT-LVAR-P LVAR-TYPE LVAR-VALUE STYLE-WARN ; caught 15 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/knownfun.fasl-tmp written ; compilation finished in 0:00:00.172 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/constantp.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFVAR *SPECIAL-FORM-CONSTANTP-FUNS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (!COLD-INIT-FORMS (SETF *SPECIAL-FORM-CONSTANTP-FUNS* ...)) ; compiling (DEFVAR *SPECIAL-FORM-CONSTANT-FORM-VALUE-FUNS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (!COLD-INIT-FORMS (SETF *SPECIAL-FORM-CONSTANT-FORM-VALUE-FUNS* ...)) ; compiling (DEFVAR *SPECIAL-CONSTANT-VARIABLES*) ; compiling (!COLD-INIT-FORMS (SETF *SPECIAL-CONSTANT-VARIABLES* ...)) ; compiling (DEFUN %CONSTANTP ...) ; compiling (DEFUN %CONSTANT-FORM-VALUE ...) ; compiling (DEFUN CONSTANT-SPECIAL-FORM-P ...) ; compiling (DEFUN CONSTANT-SPECIAL-FORM-VALUE ...) ; compiling (DEFUN CONSTANT-SPECIAL-VARIABLE-P ...) ; compiling (DEFUN CONSTANT-FUNCTION-CALL-P ...) ; compiling (DEFUN CONSTANT-FUNCTION-CALL-VALUE ...) ; compiling (DECLAIM (INLINE SB-XC:CONSTANTP)) ; compiling (DEFUN SB-XC:CONSTANTP ...) ; compiling (DECLAIM (INLINE CONSTANT-FORM-VALUE)) ; compiling (DEFUN CONSTANT-FORM-VALUE ...) ; compiling (DECLAIM (INLINE CONSTANT-TYPEP)) ; compiling (DEFUN CONSTANT-TYPEP ...) ; compiling (DEFMACRO DEFCONSTANTP ...) ; compiling (!COLD-INIT-FORMS (DEFCONSTANTP QUOTE ...) ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CONSTANTP-COLD-INIT) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/constantp.lisp ; in: DEFUN %CONSTANT-FORM-VALUE ; (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C::ENVIRONMENT) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: DEFUN %CONSTANTP ; (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C::ENVIRONMENT) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: DEFUN CONSTANT-TYPEP ; (SB-XC:TYPEP ; (SB!C::%CONSTANT-FORM-VALUE SB!KERNEL:FORM SB!C::ENVIRONMENT SB!C::ENVP) ; TYPE) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:TYPEP ; ; compilation unit finished ; Undefined functions: ; %MACROEXPAND SB-XC:TYPEP ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/constantp.fasl-tmp written ; compilation finished in 0:00:00.072 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fun-info-funs.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN %DEF-REFFER ...) ; compiling (DEFUN %DEF-SETTER ...) ; compiling (DEFUN %DEF-ALLOC ...) ; compiling (DEFUN %DEF-CASSER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fun-info-funs.lisp ; in: DEFUN %DEF-CASSER ; (SB!C::IR2-CONVERT-CASSER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-CASSER ; in: DEFUN %DEF-ALLOC ; (SB!C::IR2-CONVERT-FIXED-ALLOCATION SB!C::NODE BLOCK SB!C::NAME SB!SYS:WORDS ; SB!C::HEADER SB!C::LOWTAG SB!C::INITS) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-FIXED-ALLOCATION ; in: DEFUN %DEF-REFFER ; (SB!C::IR2-CONVERT-REFFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-REFFER ; in: DEFUN %DEF-SETTER ; (SB!C::IR2-CONVERT-SETFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-SETFER ; (SB!C::IR2-CONVERT-SETTER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-SETTER ; in: DEFUN %DEF-ALLOC ; (SB!C::IR2-CONVERT-STRUCTURE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME ; SB!SYS:WORDS SB!C::HEADER SB!C::LOWTAG SB!C::INITS) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-STRUCTURE-ALLOCATION ; (SB!C::IR2-CONVERT-VARIABLE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME ; SB!SYS:WORDS SB!C::HEADER SB!C::LOWTAG SB!C::INITS) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-VARIABLE-ALLOCATION ; ; compilation unit finished ; Undefined functions: ; IR2-CONVERT-CASSER IR2-CONVERT-FIXED-ALLOCATION IR2-CONVERT-REFFER IR2-CONVERT-SETFER IR2-CONVERT-SETTER IR2-CONVERT-STRUCTURE-ALLOCATION IR2-CONVERT-VARIABLE-ALLOCATION ; caught 7 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/fun-info-funs.fasl-tmp written ; compilation finished in 0:00:00.009 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN FIXNUMP ...) ; compiling (DEFINE-CONDITION CROSS-TYPE-STYLE-WARNING ...) ; compiling (DEFINE-CONDITION CROSS-TYPE-GIVING-UP-CONSERVATIVELY ...) ; compiling (DEFUN WARN-POSSIBLE-CROSS-TYPE-FLOAT-INFO-LOSS ...) ; compiling (DEFUN SB-XC:TYPE-OF ...) ; compiling (DEFUN IN-CL-PACKAGE-P ...) ; compiling (DEFUN ACCEPTABLE-CROSS-TYPEP-PRED ...) ; compiling (DEFUN CROSS-TYPEP ...) ; compiling (DEFUN SB-XC:TYPEP ...) ; compiling (DEFUN CTYPEP ...) ; compiling (DEFUN CTYPE-OF ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cross-type.fasl-tmp written ; compilation finished in 0:00:00.055 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (SETF (INFO :TYPE ...) ...) ; compiling (SB-XC:DEFTYPE LONG-FLOAT ...) ; compiling (SETF (INFO :TYPE ...) ...) ; compiling (SB-XC:DEFTYPE SHORT-FLOAT ...) ; compiling (SB-XC:DEFTYPE 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 (SB-XC:DEFTYPE COMPLEX-VECTOR ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FLOAT-FORMAT-NAME ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %UPGRADED-ARRAY-ELEMENT-TYPE ...) ; compiling (DEFUN SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE ...) ; compiling (DEFUN SB-XC:UPGRADED-COMPLEX-PART-TYPE ...) ; compiling (DEFUN CONTAINING-INTEGER-TYPE ...) ; compiling (DEFUN HAIRY-TYPE-CHECK-TEMPLATE-NAME ...) ; compiling (DEFUN SIMPLIFY-ARRAY-UNIONS ...) ; compiling (DEFUN WIDETAGS-FROM-UNION-TYPE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/vm-type.fasl-tmp written ; compilation finished in 0:00:00.074 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/proclaim.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *UNDEFINED-WARNINGS*) ; compiling (DECLAIM (LIST *UNDEFINED-WARNINGS*)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN GET-OLD-VARS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PROCESS-OPTIMIZE-DECL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/proclaim.lisp ; in: DEFUN PROCESS-OPTIMIZE-DECL ; (DEFUN SB!C::PROCESS-OPTIMIZE-DECL (SB!C::SPEC SB!C:POLICY) ; (LET ((SB!C::RESULT NIL)) ; (DOLIST (SB!C::Q-AND-V-OR-JUST-Q (CDR SB!C::SPEC)) ; (MULTIPLE-VALUE-BIND (SB!C::QUALITY SB!C::RAW-VALUE) ; (IF # ; # ; #) ; (COND # # #))) ; (DOLIST (SB!C::OLD-ENTRY SB!C:POLICY) ; (UNLESS (SB!INT:ASSQ # SB!C::RESULT) ; (PUSH SB!C::OLD-ENTRY SB!C::RESULT))) ; (SB!C::SORT-POLICY SB!C::RESULT))) ; --> PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%DEFUN 'SB!C::PROCESS-OPTIMIZE-DECL ; (SB-INT:NAMED-LAMBDA SB!C::PROCESS-OPTIMIZE-DECL ; (SB!C::SPEC SB!C:POLICY) ; (BLOCK SB!C::PROCESS-OPTIMIZE-DECL ; (LET (#) ; (DOLIST # #) ; (DOLIST # #) ; (SB!C::SORT-POLICY SB!C::RESULT)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; note: type assertion too complex to check: ; (VALUES &OPTIONAL LIST &REST T). ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PROCESS-HANDLE-CONDITIONS-DECL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PROCESS-MUFFLE-CONDITIONS-DECL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PROCESS-UNHANDLE-CONDITIONS-DECL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PROCESS-UNMUFFLE-CONDITIONS-DECL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PROCESS-PACKAGE-LOCK-DECL ...) ; compiling (DEFVAR *QUEUED-PROCLAIMS*) ; compiling (!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 PROCESS-VARIABLE-DECLARATION ...) ; compiling (DEFUN PROCLAIM-TYPE ...) ; compiling (DEFUN PROCLAIM-FTYPE ...) ; compiling (DEFUN SEAL-CLASS ...) ; compiling (DEFUN PROCESS-FREEZE-TYPE-DECLARATION ...) ; compiling (DEFUN PROCESS-INLINE-DECLARATION ...) ; compiling (DEFUN PROCESS-DECLARATION-DECLARATION ...) ; compiling (DEFUN CANONIZED-DECL-SPEC ...) ; compiling (DEFUN SB-XC:PROCLAIM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/proclaim.lisp ; in: DEFUN CANONIZED-DECL-SPEC ; (SB!C:COMPILER-ERROR "ambiguous declaration ~S:~% ~ ; ~S was declared as a DECLARATION, but is also a type name." ; SB!C::DECL-SPEC SB!C::ID) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR ; in: DEFUN GET-OLD-VARS ; (SB!C:COMPILER-ERROR "The name ~S is not a symbol." SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR ; in: DEFUN SB-XC:PROCLAIM ; (SB!C:COMPILER-WARN "unrecognized declaration ~S" SB!C::RAW-FORM) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARN ; in: DEFUN PROCESS-OPTIMIZE-DECL ; (SB!C:COMPILER-WARN "~@" ; SB!C::QUALITY SB!C::SPEC) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARN ; in: DEFUN PROCLAIM-FTYPE ; (SB!KERNEL:FTYPE-PROCLAMATION-MISMATCH-WARN SB!C::NAME ; (SB!KERNEL:TYPE-SPECIFIER SB!C::OLD-TYPE) (SB!KERNEL:TYPE-SPECIFIER TYPE)) ; ; caught STYLE-WARNING: ; undefined function: FTYPE-PROCLAMATION-MISMATCH-WARN ; in: DEFUN PROCLAIM-TYPE ; (SB!KERNEL:TYPE-PROCLAMATION-MISMATCH-WARN SB!C::NAME ; (SB!KERNEL:TYPE-SPECIFIER SB!C::OLD-TYPE) (SB!KERNEL:TYPE-SPECIFIER TYPE)) ; ; caught STYLE-WARNING: ; undefined function: TYPE-PROCLAMATION-MISMATCH-WARN ; ; compilation unit finished ; Undefined functions: ; COMPILER-ERROR COMPILER-WARN FTYPE-PROCLAMATION-MISMATCH-WARN TYPE-PROCLAMATION-MISMATCH-WARN ; caught 6 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/proclaim.fasl-tmp written ; compilation finished in 0:00:00.109 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/class-init.lisp" (written 28 JUN 2014 03:46:25 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") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/class-init.fasl-tmp written ; compilation finished in 0:00:00.012 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defstruct.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "code/defstruct.lisp 15") ; compiling (DEFUN COMPILER-LAYOUT-OR-LOSE ...) ; compiling (DEFUN COMPILER-LAYOUT-READY-P ...) ; compiling (SB-XC:DEFMACRO %MAKE-STRUCTURE-INSTANCE-MACRO ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %MAKE-STRUCTURE-INSTANCE-ALLOCATOR ...) ; compiling (DEFUN %MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR ...) ; compiling (SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT ...) ; compiling (DEF!STRUCT (DEFSTRUCT-DESCRIPTION # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-DESCRIPTION)) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN DD-CLASS-P ...) ; compiling (DEFUN DD-DECLARABLE-TYPE ...) ; compiling (DEFUN DD-LAYOUT-OR-LOSE ...) ; compiling (DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-SLOT-DESCRIPTION)) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN DD-LISP-TYPE ...) ; compiling (DEFUN CLASS-METHOD-DEFINITIONS ...) ; compiling (SB-XC:DEFMACRO DELAY-DEFSTRUCT-FUNCTIONS ...) ; compiling (DEFUN %EXPANDER-FOR-DEFSTRUCT ...) ; compiling (SB-XC:DEFMACRO DEFSTRUCT ...) ; compiling (DEFMACRO SB-XC:DEFSTRUCT ...) ; compiling (DEFUN ACCESSOR-INHERITED-DATA ...) ; compiling (DEFUN TYPED-PREDICATE-DEFINITIONS ...) ; compiling (DEFUN TYPED-COPIER-DEFINITIONS ...) ; compiling (DEFUN TYPED-ACCESSOR-DEFINITIONS ...) ; compiling (DEFUN REQUIRE-NO-PRINT-OPTIONS-SO-FAR ...) ; compiling (DEFUN PARSE-1-DD-OPTION ...) ; compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS ...) ; compiling (DEFUN DETERMINE-UNSAFE-SLOTS ...) ; compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS-AND-SLOT-DESCRIPTIONS ...) ; compiling (DEFUN PARSE-1-DSD ...) ; compiling (DEFUN STRUCTURE-RAW-SLOT-DATA ...) ; compiling (DEFUN ALLOCATE-1-SLOT ...) ; compiling (DEFUN TYPED-STRUCTURE-INFO-OR-LOSE ...) ; compiling (DEFUN FROB-DD-INCLUSION-STUFF ...) ; compiling (DEFUN INHERITS-FOR-STRUCTURE ...) ; compiling (DEFUN %DEFSTRUCT ...) ; compiling (DEFUN %ACCESSOR-PLACE-FORM ...) ; compiling (DEFUN SLOT-ACCESSOR-TRANSFORMS ...) ; compiling (DEFUN SLOT-SETTER-LAMBDA-FORM ...) ; compiling (DEFUN UNDECLARE-STRUCTURE ...) ; compiling (DEFUN %COMPILER-SET-UP-LAYOUT ...) ; compiling (DEFUN %COMPILER-DEFSTRUCT ...) ; compiling (DEFUN COMPARE-SLOTS ...) ; compiling (DEFUN REDEFINE-STRUCTURE-WARNING ...) ; compiling (DEFUN %REDEFINE-DEFSTRUCT ...) ; compiling (DECLAIM (INLINE DD-LAYOUT-LENGTH)) ; compiling (DEFUN DD-LAYOUT-LENGTH ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DD-INSTANCE-LENGTH ...) ; compiling (DEFUN ENSURE-STRUCTURE-CLASS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defstruct.lisp ; in: DEFUN ENSURE-STRUCTURE-CLASS ; (VALUES CLASS SB!KERNEL::NEW-LAYOUT SB!KERNEL::OLD-LAYOUT) ; ==> ; CLASS ; ; note: deleting unreachable code ; compiling (DEFUN FIND-NAME-INDICES ...) ; compiling (DEFUN CREATE-VECTOR-CONSTRUCTOR ...) ; compiling (DEFUN CREATE-LIST-CONSTRUCTOR ...) ; compiling (DEFUN CREATE-STRUCTURE-CONSTRUCTOR ...) ; compiling (DEFUN CREATE-KEYWORD-CONSTRUCTOR ...) ; compiling (DEFUN CREATE-BOA-CONSTRUCTOR ...) ; compiling (DEFUN CONSTRUCTOR-DEFINITIONS ...) ; compiling (DEFUN ACCESSOR-DEFINITIONS ...) ; compiling (DEFUN COPIER-DEFINITION ...) ; compiling (DEFUN PREDICATE-DEFINITION ...) ; compiling (DEFUN MAKE-DD-WITH-ALTERNATE-METACLASS ...) ; compiling (DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS ...) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS ...) ; compiling (DEFUN !SET-UP-STRUCTURE-OBJECT-CLASS ...) ; compiling (!SET-UP-STRUCTURE-OBJECT-CLASS) ; compiling (DOLIST (ARGS #) ...) ; compiling (DEFUN FIND-DEFSTRUCT-DESCRIPTION ...) ; compiling (/SHOW0 "code/defstruct.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defstruct.lisp ; in: SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT ; (SB!C:COMPILER-NOTIFY "implementation limitation: ~ ; Non-toplevel DEFSTRUCT constructors are slow.") ; ; caught STYLE-WARNING: ; undefined function: SB!C:COMPILER-NOTIFY ; in: 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 #:G1304 '(OR SB!KERNEL:LEXENV NULL)) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; 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 "~@" ; SB!KERNEL::ACCESSOR-NAME (SB!KERNEL:DSD-NAME SB!KERNEL::DSD)) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; in: DEFUN PARSE-1-DSD ; (SB!INT:STYLE-WARN ; "~@" ; SB!KERNEL::ACCESSOR-NAME) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; in: DEFUN TYPED-ACCESSOR-DEFINITIONS ; (SB!INT:STYLE-WARN "~@" ; SB!KERNEL::NAME (SB!KERNEL:DSD-NAME SB!ALIEN:SLOT)) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined type: ; LEXENV ; Undefined functions: ; SB!C:COMPILER-NOTIFY SB!C::MAKE-DEFINITION-SOURCE-LOCATION MAKE-NULL-LEXENV STYLE-WARN ; caught 7 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/defstruct.fasl-tmp written ; compilation finished in 0:00:00.517 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/alien-type.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/alien-type.lisp ; in: !DEF-TYPE-TRANSLATOR ALIEN ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE ; (SB!KERNEL:MAKE-NULL-LEXENV)) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: MAKE-NULL-LEXENV ; ; compilation unit finished ; Undefined type: ; LEXENV ; Undefined function: ; MAKE-NULL-LEXENV ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/alien-type.fasl-tmp written ; compilation finished in 0:00:00.022 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/force-delayed-defbangstructs.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (FORCE-DELAYED-DEF!STRUCTS) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/force-delayed-defbangstructs.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-full-eval.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!EVAL") ; compiling (DEFPARAMETER *EVAL-LEVEL* ...) ; compiling (DEFPARAMETER *EVAL-VERBOSE* ...) ; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-full-eval.fasl-tmp written ; compilation finished in 0:00:00.055 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/compiler-error.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/compiler-error.lisp ; in: DEFUN COMPILER-ERROR ; (SB!INT:BUG "Control returned from *COMPILER-ERROR-BAILOUT*.") ; ==> ; "Control returned from *COMPILER-ERROR-BAILOUT*." ; ; note: deleting unreachable code ; compiling (DEFMACRO WITH-COMPILER-ERROR-RESIGNALLING ...) ; compiling (DEFUN COMPILER-WARN ...) ; compiling (DEFUN COMPILER-STYLE-WARN ...) ; compiling (DEFUN SOURCE-TO-STRING ...) ; compiling (DEFUN MAKE-COMPILER-ERROR-FORM ...) ; compiling (DEFINE-CONDITION FATAL-COMPILER-ERROR ...) ; compiling (DEFINE-CONDITION INPUT-ERROR-IN-COMPILE-FILE ...) ; compiling (DEFINE-CONDITION INPUT-ERROR-IN-LOAD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/compiler-error.lisp ; in: DEFUN COMPILER-ERROR ; (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGUMENTS ; 'SB!INT:SIMPLE-PROGRAM-ERROR 'SB!C:COMPILER-ERROR) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; in: DEFUN COMPILER-STYLE-WARN ; #'SB!INT:STYLE-WARN ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined functions: ; COERCE-TO-CONDITION STYLE-WARN ; caught 2 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/compiler-error.fasl-tmp written ; compilation finished in 0:00:00.037 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-deftypes-for-target.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (SB-XC:DEFTYPE COMPILED-FUNCTION ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/late-deftypes-for-target.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/type-init.lisp" (written 28 JUN 2014 03:46:25 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") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/type-init.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fixup-type.lisp" (written 28 JUN 2014 03:46:25 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) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/fixup-type.fasl-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/package.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-GRAPH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/package.lisp ; in: ; DEF!STRUCT (SB-XC:PACKAGE (:CONSTRUCTOR INTERNAL-MAKE-PACKAGE) ; (:MAKE-LOAD-FORM-FUN (LAMBDA (P) (VALUES # NIL))) ; (:PREDICATE SB-XC:PACKAGEP)) ; (SB!INT:DEF!STRUCT ; (SB-XC:PACKAGE (:CONSTRUCTOR SB!IMPL::INTERNAL-MAKE-PACKAGE) ; (:MAKE-LOAD-FORM-FUN (LAMBDA (SB!IMPL::P) (VALUES # NIL))) ; (:PREDICATE SB-XC:PACKAGEP)) ; "the standard structure for the description of a package" ; (SB!IMPL::%NAME NIL :TYPE (OR SIMPLE-STRING NULL)) ; (SB!IMPL::%NICKNAMES NIL :TYPE LIST) (SB!IMPL::%USE-LIST NIL :TYPE LIST) ; (SB!IMPL::TABLES (LIST NIL) :TYPE LIST) ; (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST) ; (SB!IMPL::INTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE ; SB!IMPL::PACKAGE-HASHTABLE) ; (SB!IMPL::EXTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE ; SB!IMPL::PACKAGE-HASHTABLE) ; (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST) ; (SB!IMPL::DOC-STRING NIL :TYPE (OR SIMPLE-STRING NULL)) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB-XC:PACKAGE (:INCLUDE SB!SYS:STRUCTURE!OBJECT) ; (:CONSTRUCTOR SB!IMPL::INTERNAL-MAKE-PACKAGE) ; (:PREDICATE SB-XC:PACKAGEP)) ; "the standard structure for the description of a package" ; (SB!IMPL::%NAME NIL :TYPE (OR SIMPLE-STRING NULL)) ; (SB!IMPL::%NICKNAMES NIL :TYPE LIST) ; (SB!IMPL::%USE-LIST NIL :TYPE LIST) ; (SB!IMPL::TABLES (LIST NIL) :TYPE LIST) ; (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST) ; (SB!IMPL::INTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE ; SB!IMPL::PACKAGE-HASHTABLE) ; (SB!IMPL::EXTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE ; SB!IMPL::PACKAGE-HASHTABLE) ; (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST) ; (SB!IMPL::DOC-STRING NIL :TYPE (OR SIMPLE-STRING NULL)) ; ...) ; ; caught STYLE-WARNING: ; undefined type: SB!C:DEFINITION-SOURCE-LOCATION ; ; compilation unit finished ; Undefined type: ; SB!C:DEFINITION-SOURCE-LOCATION ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/package.fasl-tmp written ; compilation finished in 0:00:00.111 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/random.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEF!CONSTANT N-RANDOM-CHUNK-BITS ...) ; compiling (SB-XC:DEFSTRUCT (RANDOM-STATE # ...) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/random.fasl-tmp written ; compilation finished in 0:00:00.033 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/hash-table.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (SB-XC:DEFSTRUCT (HASH-TABLE #) ...) ; compiling (DEFCONSTANT +MAGIC-HASH-VECTOR-VALUE+ ...) ; compiling (DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ...) ; compiling (DEFMACRO-MUNDANELY WITH-LOCKED-HASH-TABLE ...) ; compiling (DEFMACRO-MUNDANELY WITH-LOCKED-SYSTEM-TABLE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/hash-table.fasl-tmp written ; compilation finished in 0:00:00.080 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/readtable.lisp" (written 28 JUN 2014 03:46:25 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 # ...) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/readtable.fasl-tmp written ; compilation finished in 0:00:00.024 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pathname.lisp" (written 28 JUN 2014 03:46:25 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 # ...)) ; compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY ...) ; compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pathname.lisp ; in: DEFUN UNPARSE-PHYSICAL-DIRECTORY ; (SB!IMPL::%PATHNAME-DIRECTORY PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: %PATHNAME-DIRECTORY ; in: ; DEF!STRUCT (LOGICAL-HOST (:MAKE-LOAD-FORM-FUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN) ; (:INCLUDE HOST (PARSE #'PARSE-LOGICAL-NAMESTRING) ; (PARSE-NATIVE (LAMBDA # #)) ; (UNPARSE #'UNPARSE-LOGICAL-NAMESTRING) ...)) ; (SB!IMPL::%PATHNAME-HOST SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: %PATHNAME-HOST ; #'SB!IMPL::PARSE-LOGICAL-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: PARSE-LOGICAL-NAMESTRING ; #'SB!IMPL::UNPARSE-ENOUGH-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-ENOUGH-NAMESTRING ; #'SB!IMPL::UNPARSE-LOGICAL-DIRECTORY ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-LOGICAL-DIRECTORY ; #'SB!IMPL::UNPARSE-LOGICAL-FILE ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-LOGICAL-FILE ; #'SB!IMPL::UNPARSE-LOGICAL-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-LOGICAL-NAMESTRING ; in: DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST ; (SB!IMPL::UNPARSE-PHYSICAL-PIECE SB!IMPL::DIR SB!IMPL::ESCAPE-CHAR) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-PHYSICAL-PIECE ; ; compilation unit finished ; Undefined functions: ; %PATHNAME-DIRECTORY %PATHNAME-HOST PARSE-LOGICAL-NAMESTRING UNPARSE-ENOUGH-NAMESTRING UNPARSE-LOGICAL-DIRECTORY UNPARSE-LOGICAL-FILE UNPARSE-LOGICAL-NAMESTRING UNPARSE-PHYSICAL-PIECE ; caught 8 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/pathname.fasl-tmp written ; compilation finished in 0:00:00.200 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-pprint.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!PRETTY") ; compiling (DEF!STRUCT (PPRINT-DISPATCH-TABLE #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/host-pprint.fasl-tmp written ; compilation finished in 0:00:00.024 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/lexenv.lisp" (written 28 JUN 2014 03:46:26 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/lexenv.lisp ; in: DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE ; (SB!INT:COLLECT ((SB!C::DECLS) (SB!C::MACROS) (SB!C::SYMBOL-MACROS)) ; (COND ; ((OR (SB!C::LEXENV-BLOCKS SB!KERNEL:LEXENV) ; (SB!C::LEXENV-TAGS SB!KERNEL:LEXENV)) ; NIL) ; ((AND (NULL SB!C::VARS) (NULL SB!C::FUNS)) ; (SB!IMPL::BACKQ-LIST* 'SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (CDR LAMBDA))) ; ((DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T)) NIL) ; ((DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T)) NIL) ; (T ; (SB!IMPL::BACKQ-LIST* 'SB!C:LAMBDA-WITH-LEXENV (SB!C::DECLS) ; (SB!C::MACROS) (SB!C::SYMBOL-MACROS) ; (CDR LAMBDA))))) ; --> MACROLET ; ==> ; (LET* ((#:DECLS-N-VALUE-418 NIL) ; #:DECLS-N-TAIL-419 ; (#:MACROS-N-VALUE-420 NIL) ; #:MACROS-N-TAIL-421 ; (#:SYMBOL-MACROS-N-VALUE-422 NIL) ; #:SYMBOL-MACROS-N-TAIL-423) ; (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-419 is defined but never used. ; ; caught STYLE-WARNING: ; The variable #:MACROS-N-TAIL-421 is defined but never used. ; ; caught STYLE-WARNING: ; The variable #:SYMBOL-MACROS-N-TAIL-423 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-LIST434))) ; (SETQ #:N-LIST434 (CDR #:N-LIST434)) ; (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-LIST437))) ; (SETQ #:N-LIST437 (CDR #:N-LIST437)) ; (TAGBODY (RETURN T))) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/lexenv.fasl-tmp written ; compilation finished in 0:00:00.115 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fndb.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN COERCE ...) ; compiling (DEFKNOWN LIST-TO-VECTOR* ...) ; compiling (DEFKNOWN VECTOR-TO-VECTOR* ...) ; compiling (DEFKNOWN TYPE-OF ...) ; compiling (DEFKNOWN (SB-XC:UPGRADED-COMPLEX-PART-TYPE SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE) ...) ; compiling (DEFKNOWN TYPEP ...) ; compiling (DEFKNOWN SUBTYPEP ...) ; compiling (DEFKNOWN (NULL SYMBOLP ...) ...) ; compiling (DEFKNOWN (EQ EQL) ...) ; compiling (DEFKNOWN (EQUAL EQUALP) ...) ; compiling (DEFKNOWN FIXNUM-MOD-P ...) ; compiling (SB-XC:DEFTYPE NAME-FOR-CLASS ...) ; compiling (DEFKNOWN CLASSOID-NAME ...) ; compiling (DEFKNOWN FIND-CLASSOID ...) ; compiling (DEFKNOWN CLASSOID-OF ...) ; compiling (DEFKNOWN LAYOUT-OF ...) ; compiling (DEFKNOWN COPY-STRUCTURE ...) ; compiling (DEFKNOWN (SYMBOL-VALUE) ...) ; compiling (DEFKNOWN (SYMBOL-FUNCTION) ...) ; compiling (DEFKNOWN BOUNDP ...) ; compiling (DEFKNOWN FBOUNDP ...) ; compiling (DEFKNOWN SPECIAL-OPERATOR-P ...) ; compiling (DEFKNOWN SET ...) ; compiling (DEFKNOWN FDEFINITION ...) ; compiling (DEFKNOWN %SET-FDEFINITION ...) ; compiling (DEFKNOWN MAKUNBOUND ...) ; compiling (DEFKNOWN FMAKUNBOUND ...) ; compiling (DEFKNOWN APPLY ...) ; compiling (DEFKNOWN FUNCALL ...) ; compiling (DEFKNOWN (MAPCAR MAPLIST) ...) ; compiling (DEFKNOWN (MAPCAN MAPCON) ...) ; compiling (DEFKNOWN (MAPC MAPL) ...) ; compiling (DEFKNOWN VALUES ...) ; compiling (DEFKNOWN VALUES-LIST ...) ; compiling (DEFKNOWN MACRO-FUNCTION ...) ; compiling (DEFKNOWN (MACROEXPAND MACROEXPAND-1 ...) ...) ; compiling (DEFKNOWN COMPILER-MACRO-FUNCTION ...) ; compiling (DEFKNOWN PROCLAIM ...) ; compiling (DEFKNOWN GET ...) ; compiling (DEFKNOWN SB!IMPL::GET3 ...) ; compiling (DEFKNOWN REMPROP ...) ; compiling (DEFKNOWN SYMBOL-PLIST ...) ; compiling (DEFKNOWN GETF ...) ; compiling (DEFKNOWN GET-PROPERTIES ...) ; compiling (DEFKNOWN SYMBOL-NAME ...) ; compiling (DEFKNOWN MAKE-SYMBOL ...) ; compiling (DEFKNOWN %MAKE-SYMBOL ...) ; compiling (DEFKNOWN COPY-SYMBOL ...) ; compiling (DEFKNOWN GENSYM ...) ; compiling (DEFKNOWN SYMBOL-PACKAGE ...) ; compiling (DEFKNOWN KEYWORDP ...) ; compiling (DEFKNOWN GENTEMP ...) ; compiling (DEFKNOWN MAKE-PACKAGE ...) ; compiling (DEFKNOWN FIND-PACKAGE ...) ; compiling (DEFKNOWN FIND-UNDELETED-PACKAGE-OR-LOSE ...) ; compiling (DEFKNOWN PACKAGE-NAME ...) ; compiling (DEFKNOWN PACKAGE-NICKNAMES ...) ; compiling (DEFKNOWN RENAME-PACKAGE ...) ; compiling (DEFKNOWN PACKAGE-USE-LIST ...) ; compiling (DEFKNOWN PACKAGE-USED-BY-LIST ...) ; compiling (DEFKNOWN PACKAGE-SHADOWING-SYMBOLS ...) ; compiling (DEFKNOWN LIST-ALL-PACKAGES ...) ; compiling (DEFKNOWN INTERN ...) ; compiling (DEFKNOWN FIND-SYMBOL ...) ; compiling (DEFKNOWN (EXPORT IMPORT) ...) ; compiling (DEFKNOWN UNINTERN ...) ; compiling (DEFKNOWN UNEXPORT ...) ; compiling (DEFKNOWN SHADOWING-IMPORT ...) ; compiling (DEFKNOWN SHADOW ...) ; compiling (DEFKNOWN (USE-PACKAGE UNUSE-PACKAGE) ...) ; compiling (DEFKNOWN FIND-ALL-SYMBOLS ...) ; compiling (DEFKNOWN ZEROP ...) ; compiling (DEFKNOWN (PLUSP MINUSP) ...) ; compiling (DEFKNOWN (ODDP EVENP) ...) ; compiling (DEFKNOWN (=) ...) ; compiling (DEFKNOWN (/=) ...) ; compiling (DEFKNOWN (< > ...) ...) ; compiling (DEFKNOWN (MAX MIN) ...) ; compiling (DEFKNOWN (+ *) ...) ; compiling (DEFKNOWN - ...) ; compiling (DEFKNOWN / ...) ; compiling (DEFKNOWN (1+ 1-) ...) ; compiling (DEFKNOWN CONJUGATE ...) ; compiling (DEFKNOWN GCD ...) ; compiling (DEFKNOWN LCM ...) ; compiling (DEFKNOWN EXP ...) ; compiling (DEFKNOWN EXPT ...) ; compiling (DEFKNOWN LOG ...) ; compiling (DEFKNOWN SQRT ...) ; compiling (DEFKNOWN ISQRT ...) ; compiling (DEFKNOWN (ABS PHASE ...) ...) ; compiling (DEFKNOWN CIS ...) ; compiling (DEFKNOWN (SIN COS) ...) ; compiling (DEFKNOWN ATAN ...) ; compiling (DEFKNOWN (TAN SINH ...) ...) ; compiling (DEFKNOWN (ASIN ACOS ...) ...) ; compiling (DEFKNOWN FLOAT ...) ; compiling (DEFKNOWN (RATIONAL) ...) ; compiling (DEFKNOWN (RATIONALIZE) ...) ; compiling (DEFKNOWN (NUMERATOR DENOMINATOR) ...) ; compiling (DEFKNOWN (FLOOR CEILING ...) ...) ; compiling (DEFKNOWN TRUNCATE ...) ; compiling (DEFKNOWN %MULTIPLY-HIGH ...) ; compiling (DEFKNOWN (MOD REM) ...) ; compiling (DEFKNOWN (FFLOOR FCEILING ...) ...) ; compiling (DEFKNOWN DECODE-FLOAT ...) ; compiling (DEFKNOWN SCALE-FLOAT ...) ; compiling (DEFKNOWN FLOAT-RADIX ...) ; compiling (DEFKNOWN FLOAT-SIGN ...) ; compiling (DEFKNOWN (FLOAT-DIGITS FLOAT-PRECISION) ...) ; compiling (DEFKNOWN INTEGER-DECODE-FLOAT ...) ; compiling (DEFKNOWN COMPLEX ...) ; compiling (DEFKNOWN (REALPART IMAGPART) ...) ; compiling (DEFKNOWN (LOGIOR LOGXOR ...) ...) ; compiling (DEFKNOWN (LOGNAND LOGNOR ...) ...) ; compiling (DEFKNOWN BOOLE ...) ; compiling (DEFKNOWN LOGNOT ...) ; compiling (DEFKNOWN LOGTEST ...) ; compiling (DEFKNOWN LOGBITP ...) ; compiling (DEFKNOWN ASH ...) ; compiling (DEFKNOWN %ASH/RIGHT ...) ; compiling (DEFKNOWN (LOGCOUNT INTEGER-LENGTH) ...) ; compiling (DEFKNOWN BYTE ...) ; compiling (DEFKNOWN (BYTE-SIZE BYTE-POSITION) ...) ; compiling (DEFKNOWN LDB ...) ; compiling (DEFKNOWN LDB-TEST ...) ; compiling (DEFKNOWN MASK-FIELD ...) ; compiling (DEFKNOWN DPB ...) ; compiling (DEFKNOWN DEPOSIT-FIELD ...) ; compiling (DEFKNOWN RANDOM ...) ; compiling (DEFKNOWN MAKE-RANDOM-STATE ...) ; compiling (DEFKNOWN RANDOM-STATE-P ...) ; compiling (DEFKNOWN (STANDARD-CHAR-P GRAPHIC-CHAR-P ...) ...) ; compiling (DEFKNOWN DIGIT-CHAR-P ...) ; compiling (DEFKNOWN (CHAR=) ...) ; compiling (DEFKNOWN (CHAR/= CHAR< ...) ...) ; compiling (DEFKNOWN (TWO-ARG-CHAR-EQUAL) ...) ; compiling (DEFKNOWN (TWO-ARG-CHAR-NOT-EQUAL TWO-ARG-CHAR-LESSP ...) ...) ; compiling (DEFKNOWN CHAR-EQUAL-CONSTANT ...) ; compiling (DEFKNOWN CHARACTER ...) ; compiling (DEFKNOWN CHAR-CODE ...) ; compiling (DEFKNOWN (CHAR-UPCASE CHAR-DOWNCASE) ...) ; compiling (DEFKNOWN DIGIT-CHAR ...) ; compiling (DEFKNOWN CHAR-INT ...) ; compiling (DEFKNOWN CHAR-NAME ...) ; compiling (DEFKNOWN NAME-CHAR ...) ; compiling (DEFKNOWN CODE-CHAR ...) ; compiling (DEFKNOWN ELT ...) ; compiling (DEFKNOWN SUBSEQ ...) ; compiling (DEFKNOWN COPY-SEQ ...) ; compiling (DEFKNOWN LENGTH ...) ; compiling (DEFKNOWN REVERSE ...) ; compiling (DEFKNOWN NREVERSE ...) ; compiling (DEFKNOWN MAKE-SEQUENCE ...) ; compiling (DEFKNOWN CONCATENATE ...) ; compiling (DEFKNOWN %CONCATENATE-TO-STRING ...) ; compiling (DEFKNOWN %CONCATENATE-TO-BASE-STRING ...) ; compiling (DEFKNOWN (MAP %MAP) ...) ; compiling (DEFKNOWN %MAP-FOR-EFFECT-ARITY-1 ...) ; compiling (DEFKNOWN %MAP-TO-LIST-ARITY-1 ...) ; compiling (DEFKNOWN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...) ; compiling (DEFKNOWN MAP-INTO ...) ; compiling (DEFKNOWN SOME ...) ; compiling (DEFKNOWN (EVERY NOTANY ...) ...) ; compiling (DEFKNOWN REDUCE ...) ; compiling (DEFKNOWN FILL ...) ; compiling (DEFKNOWN REPLACE ...) ; compiling (DEFKNOWN REMOVE ...) ; compiling (DEFKNOWN SUBSTITUTE ...) ; compiling (DEFKNOWN (REMOVE-IF REMOVE-IF-NOT) ...) ; compiling (DEFKNOWN (SUBSTITUTE-IF SUBSTITUTE-IF-NOT) ...) ; compiling (DEFKNOWN DELETE ...) ; compiling (DEFKNOWN NSUBSTITUTE ...) ; compiling (DEFKNOWN (DELETE-IF DELETE-IF-NOT) ...) ; compiling (DEFKNOWN (NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT) ...) ; compiling (DEFKNOWN REMOVE-DUPLICATES ...) ; compiling (DEFKNOWN DELETE-DUPLICATES ...) ; compiling (DEFKNOWN FIND ...) ; compiling (DEFKNOWN (FIND-IF FIND-IF-NOT) ...) ; compiling (DEFKNOWN POSITION ...) ; compiling (DEFKNOWN (POSITION-IF POSITION-IF-NOT) ...) ; compiling (DEFKNOWN COUNT ...) ; compiling (DEFKNOWN (COUNT-IF COUNT-IF-NOT) ...) ; compiling (DEFKNOWN (MISMATCH SEARCH) ...) ; compiling (DEFKNOWN (STABLE-SORT SORT) ...) ; compiling (DEFKNOWN SB!IMPL::STABLE-SORT-LIST ...) ; compiling (DEFKNOWN SB!IMPL::SORT-VECTOR ...) ; compiling (DEFKNOWN SB!IMPL::STABLE-SORT-VECTOR ...) ; compiling (DEFKNOWN SB!IMPL::STABLE-SORT-SIMPLE-VECTOR ...) ; compiling (DEFKNOWN MERGE ...) ; compiling (DEFKNOWN READ-SEQUENCE ...) ; compiling (DEFKNOWN WRITE-SEQUENCE ...) ; compiling (DEFKNOWN (CAR CDR ...) ...) ; compiling (DEFKNOWN (CAAR CADR ...) ...) ; compiling (DEFKNOWN CONS ...) ; compiling (DEFKNOWN TREE-EQUAL ...) ; compiling (DEFKNOWN ENDP ...) ; compiling (DEFKNOWN LIST-LENGTH ...) ; compiling (DEFKNOWN NTH ...) ; compiling (DEFKNOWN NTHCDR ...) ; compiling (DEFKNOWN LAST ...) ; compiling (DEFKNOWN %LAST0 ...) ; compiling (DEFKNOWN %LAST1 ...) ; compiling (DEFKNOWN %LASTN/FIXNUM ...) ; compiling (DEFKNOWN %LASTN/BIGNUM ...) ; compiling (DEFKNOWN LIST ...) ; compiling (DEFKNOWN LIST* ...) ; compiling (DEFKNOWN MAKE-LIST ...) ; compiling (DEFKNOWN SB!IMPL::BACKQ-LIST ...) ; compiling (DEFKNOWN SB!IMPL::BACKQ-LIST* ...) ; compiling (DEFKNOWN SB!IMPL::BACKQ-APPEND ...) ; compiling (DEFKNOWN SB!IMPL::BACKQ-NCONC ...) ; compiling (DEFKNOWN SB!IMPL::BACKQ-CONS ...) ; compiling (DEFKNOWN SB!IMPL::BACKQ-VECTOR ...) ; compiling (DEFKNOWN APPEND ...) ; compiling (DEFKNOWN SB!IMPL::APPEND2 ...) ; compiling (DEFKNOWN COPY-LIST ...) ; compiling (DEFKNOWN COPY-ALIST ...) ; compiling (DEFKNOWN COPY-TREE ...) ; compiling (DEFKNOWN REVAPPEND ...) ; compiling (DEFKNOWN NCONC ...) ; compiling (DEFKNOWN NRECONC ...) ; compiling (DEFKNOWN BUTLAST ...) ; compiling (DEFKNOWN NBUTLAST ...) ; compiling (DEFKNOWN LDIFF ...) ; compiling (DEFKNOWN (RPLACA RPLACD) ...) ; compiling (DEFKNOWN SUBST ...) ; compiling (DEFKNOWN NSUBST ...) ; compiling (DEFKNOWN (SUBST-IF SUBST-IF-NOT) ...) ; compiling (DEFKNOWN (NSUBST-IF NSUBST-IF-NOT) ...) ; compiling (DEFKNOWN SUBLIS ...) ; compiling (DEFKNOWN NSUBLIS ...) ; compiling (DEFKNOWN MEMBER ...) ; compiling (DEFKNOWN (MEMBER-IF MEMBER-IF-NOT) ...) ; compiling (DEFKNOWN TAILP ...) ; compiling (DEFKNOWN ADJOIN ...) ; compiling (DEFKNOWN (UNION INTERSECTION ...) ...) ; compiling (DEFKNOWN (NUNION NINTERSECTION ...) ...) ; compiling (DEFKNOWN SUBSETP ...) ; compiling (DEFKNOWN ACONS ...) ; compiling (DEFKNOWN PAIRLIS ...) ; compiling (DEFKNOWN (RASSOC ASSOC) ...) ; compiling (DEFKNOWN (ASSOC-IF-NOT ASSOC-IF ...) ...) ; compiling (DEFKNOWN (MEMQ ASSQ) ...) ; compiling (DEFKNOWN DELQ ...) ; compiling (DEFKNOWN MAKE-HASH-TABLE ...) ; compiling (DEFKNOWN HASH-TABLE-P ...) ; compiling (DEFKNOWN GETHASH ...) ; compiling (DEFKNOWN SB!IMPL::GETHASH3 ...) ; compiling (DEFKNOWN %PUTHASH ...) ; compiling (DEFKNOWN REMHASH ...) ; compiling (DEFKNOWN MAPHASH ...) ; compiling (DEFKNOWN CLRHASH ...) ; compiling (DEFKNOWN HASH-TABLE-COUNT ...) ; compiling (DEFKNOWN HASH-TABLE-REHASH-SIZE ...) ; compiling (DEFKNOWN HASH-TABLE-REHASH-THRESHOLD ...) ; compiling (DEFKNOWN HASH-TABLE-SIZE ...) ; compiling (DEFKNOWN HASH-TABLE-TEST ...) ; compiling (DEFKNOWN SXHASH ...) ; compiling (DEFKNOWN PSXHASH ...) ; compiling (DEFKNOWN HASH-TABLE-EQUALP ...) ; compiling (DEFKNOWN MAKE-ARRAY ...) ; compiling (DEFKNOWN %MAKE-ARRAY ...) ; compiling (DEFKNOWN VECTOR ...) ; compiling (DEFKNOWN AREF ...) ; compiling (DEFKNOWN ROW-MAJOR-AREF ...) ; compiling (DEFKNOWN ARRAY-ELEMENT-TYPE ...) ; compiling (DEFKNOWN ARRAY-RANK ...) ; compiling (DEFKNOWN ARRAY-DIMENSION ...) ; compiling (DEFKNOWN ARRAY-DIMENSIONS ...) ; compiling (DEFKNOWN ARRAY-IN-BOUNDS-P ...) ; compiling (DEFKNOWN ARRAY-ROW-MAJOR-INDEX ...) ; compiling (DEFKNOWN ARRAY-TOTAL-SIZE ...) ; compiling (DEFKNOWN ADJUSTABLE-ARRAY-P ...) ; compiling (DEFKNOWN SVREF ...) ; compiling (DEFKNOWN BIT ...) ; compiling (DEFKNOWN SBIT ...) ; compiling (DEFKNOWN (BIT-AND BIT-IOR ...) ...) ; compiling (DEFKNOWN BIT-NOT ...) ; compiling (DEFKNOWN BIT-VECTOR-= ...) ; compiling (DEFKNOWN ARRAY-HAS-FILL-POINTER-P ...) ; compiling (DEFKNOWN FILL-POINTER ...) ; compiling (DEFKNOWN SB!IMPL::FILL-POINTER-ERROR ...) ; compiling (DEFKNOWN VECTOR-PUSH ...) ; compiling (DEFKNOWN VECTOR-PUSH-EXTEND ...) ; compiling (DEFKNOWN VECTOR-POP ...) ; compiling (DEFKNOWN ADJUST-ARRAY ...) ; compiling (DEFKNOWN CHAR ...) ; compiling (DEFKNOWN SCHAR ...) ; compiling (DEFKNOWN (STRING= STRING-EQUAL) ...) ; compiling (DEFKNOWN (STRING< STRING> ...) ...) ; compiling (DEFKNOWN MAKE-STRING ...) ; compiling (DEFKNOWN (STRING-TRIM STRING-LEFT-TRIM ...) ...) ; compiling (DEFKNOWN (STRING-UPCASE STRING-DOWNCASE ...) ...) ; compiling (DEFKNOWN (NSTRING-UPCASE NSTRING-DOWNCASE ...) ...) ; compiling (DEFKNOWN STRING ...) ; compiling (DEFKNOWN (STRING<* STRING>* ...) ...) ; compiling (DEFKNOWN STRING=* ...) ; compiling (DEFKNOWN EVAL ...) ; compiling (DEFKNOWN CONSTANTP ...) ; compiling (DEFKNOWN MAKE-SYNONYM-STREAM ...) ; compiling (DEFKNOWN MAKE-BROADCAST-STREAM ...) ; compiling (DEFKNOWN MAKE-CONCATENATED-STREAM ...) ; compiling (DEFKNOWN MAKE-TWO-WAY-STREAM ...) ; compiling (DEFKNOWN MAKE-ECHO-STREAM ...) ; compiling (DEFKNOWN MAKE-STRING-INPUT-STREAM ...) ; compiling (DEFKNOWN MAKE-STRING-OUTPUT-STREAM ...) ; compiling (DEFKNOWN GET-OUTPUT-STREAM-STRING ...) ; compiling (DEFKNOWN STREAMP ...) ; compiling (DEFKNOWN STREAM-ELEMENT-TYPE ...) ; compiling (DEFKNOWN STREAM-EXTERNAL-FORMAT ...) ; compiling (DEFKNOWN (OUTPUT-STREAM-P INPUT-STREAM-P) ...) ; compiling (DEFKNOWN OPEN-STREAM-P ...) ; compiling (DEFKNOWN CLOSE ...) ; compiling (DEFKNOWN FILE-STRING-LENGTH ...) ; compiling (DEFKNOWN COPY-READTABLE ...) ; compiling (DEFKNOWN READTABLEP ...) ; compiling (DEFKNOWN SET-SYNTAX-FROM-CHAR ...) ; compiling (DEFKNOWN SET-MACRO-CHARACTER ...) ; compiling (DEFKNOWN GET-MACRO-CHARACTER ...) ; compiling (DEFKNOWN MAKE-DISPATCH-MACRO-CHARACTER ...) ; compiling (DEFKNOWN SET-DISPATCH-MACRO-CHARACTER ...) ; compiling (DEFKNOWN GET-DISPATCH-MACRO-CHARACTER ...) ; compiling (DEFKNOWN COPY-PPRINT-DISPATCH ...) ; compiling (DEFKNOWN PPRINT-DISPATCH ...) ; compiling (DEFKNOWN (PPRINT-FILL PPRINT-LINEAR) ...) ; compiling (DEFKNOWN PPRINT-TABULAR ...) ; compiling (DEFKNOWN PPRINT-INDENT ...) ; compiling (DEFKNOWN PPRINT-NEWLINE ...) ; compiling (DEFKNOWN PPRINT-TAB ...) ; compiling (DEFKNOWN SET-PPRINT-DISPATCH ...) ; compiling (DEFKNOWN (READ READ-PRESERVING-WHITESPACE) ...) ; compiling (DEFKNOWN READ-CHAR ...) ; compiling (DEFKNOWN READ-CHAR-NO-HANG ...) ; compiling (DEFKNOWN READ-DELIMITED-LIST ...) ; compiling (DEFKNOWN READ-LINE ...) ; compiling (DEFKNOWN UNREAD-CHAR ...) ; compiling (DEFKNOWN PEEK-CHAR ...) ; compiling (DEFKNOWN LISTEN ...) ; compiling (DEFKNOWN CLEAR-INPUT ...) ; compiling (DEFKNOWN READ-FROM-STRING ...) ; compiling (DEFKNOWN PARSE-INTEGER ...) ; compiling (DEFKNOWN READ-BYTE ...) ; compiling (DEFKNOWN (PRIN1 PRINT ...) ...) ; compiling (DEFKNOWN (PPRINT) ...) ; compiling (DEFFROB WRITE ...) ; compiling (DEFFROB 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 PATHNAME= ...) ; compiling (DEFKNOWN (NAMESTRING FILE-NAMESTRING ...) ...) ; compiling (DEFKNOWN ENOUGH-NAMESTRING ...) ; compiling (DEFKNOWN USER-HOMEDIR-PATHNAME ...) ; compiling (DEFKNOWN OPEN ...) ; compiling (DEFKNOWN RENAME-FILE ...) ; compiling (DEFKNOWN DELETE-FILE ...) ; compiling (DEFKNOWN PROBE-FILE ...) ; compiling (DEFKNOWN FILE-WRITE-DATE ...) ; compiling (DEFKNOWN FILE-AUTHOR ...) ; compiling (DEFKNOWN FILE-POSITION ...) ; compiling (DEFKNOWN FILE-LENGTH ...) ; compiling (DEFKNOWN LOAD ...) ; compiling (DEFKNOWN DIRECTORY ...) ; compiling (DEFKNOWN ERROR ...) ; compiling (DEFKNOWN CERROR ...) ; compiling (DEFKNOWN INVALID-METHOD-ERROR ...) ; compiling (DEFKNOWN METHOD-COMBINATION-ERROR ...) ; compiling (DEFKNOWN SIGNAL ...) ; compiling (DEFKNOWN WARN ...) ; compiling (DEFKNOWN INVOKE-DEBUGGER ...) ; compiling (DEFKNOWN BREAK ...) ; compiling (DEFKNOWN MAKE-CONDITION ...) ; compiling (DEFKNOWN COMPUTE-RESTARTS ...) ; compiling (DEFKNOWN FIND-RESTART ...) ; compiling (DEFKNOWN INVOKE-RESTART ...) ; compiling (DEFKNOWN INVOKE-RESTART-INTERACTIVELY ...) ; compiling (DEFKNOWN RESTART-NAME ...) ; compiling (DEFKNOWN (ABORT MUFFLE-WARNING) ...) ; compiling (DEFKNOWN CONTINUE ...) ; compiling (DEFKNOWN (STORE-VALUE USE-VALUE) ...) ; compiling (DEFKNOWN SB!IMPL::%FAILED-AVER ...) ; compiling (DEFKNOWN BUG ...) ; compiling (DEFKNOWN SIMPLE-READER-ERROR ...) ; compiling (DEFKNOWN READER-EOF-ERROR ...) ; compiling (DEFKNOWN COMPILE ...) ; compiling (DEFKNOWN COMPILE-FILE ...) ; compiling (DEFKNOWN (COMPILE-FILE-PATHNAME) ...) ; compiling (DEFKNOWN DISASSEMBLE ...) ; compiling (DEFKNOWN DESCRIBE ...) ; compiling (DEFKNOWN FUNCTION-LAMBDA-EXPRESSION ...) ; compiling (DEFKNOWN INSPECT ...) ; compiling (DEFKNOWN ROOM ...) ; compiling (DEFKNOWN ED ...) ; compiling (DEFKNOWN DRIBBLE ...) ; compiling (DEFKNOWN APROPOS ...) ; compiling (DEFKNOWN APROPOS-LIST ...) ; compiling (DEFKNOWN GET-DECODED-TIME ...) ; compiling (DEFKNOWN GET-UNIVERSAL-TIME ...) ; compiling (DEFKNOWN DECODE-UNIVERSAL-TIME ...) ; compiling (DEFKNOWN ENCODE-UNIVERSAL-TIME ...) ; compiling (DEFKNOWN (GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME) ...) ; compiling (DEFKNOWN SLEEP ...) ; compiling (DEFKNOWN CALL-WITH-TIMING ...) ; compiling (DEFKNOWN (LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION) ...) ; compiling (DEFKNOWN (MACHINE-TYPE MACHINE-VERSION ...) ...) ; compiling (DEFKNOWN IDENTITY ...) ; compiling (DEFKNOWN CONSTANTLY ...) ; compiling (DEFKNOWN COMPLEMENT ...) ; compiling (DEFKNOWN SYMBOL-GLOBAL-VALUE ...) ; compiling (DEFKNOWN SET-SYMBOL-GLOBAL-VALUE ...) ; compiling (DEFKNOWN GET-BYTES-CONSED ...) ; compiling (DEFKNOWN MASK-SIGNED-FIELD ...) ; compiling (DEFKNOWN ARRAY-STORAGE-VECTOR ...) ; compiling (DEFKNOWN %REST-VALUES ...) ; compiling (DEFKNOWN %REST-REF ...) ; compiling (DEFKNOWN %REST-LENGTH ...) ; compiling (DEFKNOWN %REST-NULL ...) ; compiling (DEFKNOWN %REST-TRUE ...) ; compiling (DEFKNOWN %UNARY-TRUNCATE/SINGLE-FLOAT ...) ; compiling (DEFKNOWN %UNARY-TRUNCATE/DOUBLE-FLOAT ...) ; compiling (DEFKNOWN %TYPEP ...) ; compiling (DEFKNOWN %INSTANCE-TYPEP ...) ; compiling (DEFKNOWN %TYPEP-WRAPPER ...) ; compiling (DEFKNOWN %CLEANUP-POINT ...) ; compiling (DEFKNOWN %SPECIAL-BIND ...) ; compiling (DEFKNOWN %SPECIAL-UNBIND ...) ; compiling (DEFKNOWN %LISTIFY-REST-ARGS ...) ; compiling (DEFKNOWN %MORE-ARG-CONTEXT ...) ; compiling (DEFKNOWN %MORE-ARG ...) ; compiling (DEFKNOWN %MORE-KW-ARG ...) ; compiling (DEFKNOWN %MORE-ARG-VALUES ...) ; compiling (DEFKNOWN %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 %TYPE-CHECK-ERROR/C ...) ; compiling (DEFKNOWN %COMPILE-TIME-TYPE-ERROR ...) ; compiling (DEFKNOWN CASE-FAILURE ...) ; compiling (DEFKNOWN %ODD-KEY-ARGS-ERROR ...) ; compiling (DEFKNOWN %UNKNOWN-KEY-ARG-ERROR ...) ; compiling (DEFKNOWN (%LDB %MASK-FIELD) ...) ; compiling (DEFKNOWN (%DPB %DEPOSIT-FIELD) ...) ; compiling (DEFKNOWN %NEGATE ...) ; compiling (DEFKNOWN %CHECK-BOUND ...) ; compiling (DEFKNOWN DATA-VECTOR-REF ...) ; compiling (DEFKNOWN DATA-VECTOR-REF-WITH-OFFSET ...) ; compiling (DEFKNOWN DATA-NIL-VECTOR-REF ...) ; compiling (DEFKNOWN DATA-VECTOR-SET ...) ; compiling (DEFKNOWN DATA-VECTOR-SET-WITH-OFFSET ...) ; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF ...) ; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET ...) ; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...) ; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...) ; compiling (DEFKNOWN %CALLER-FRAME ...) ; compiling (DEFKNOWN %CALLER-PC ...) ; compiling (DEFKNOWN %WITH-ARRAY-DATA ...) ; compiling (DEFKNOWN %WITH-ARRAY-DATA/FP ...) ; compiling (DEFKNOWN %SET-SYMBOL-PACKAGE ...) ; compiling (DEFKNOWN %COERCE-NAME-TO-FUN ...) ; compiling (DEFKNOWN %COERCE-CALLABLE-TO-FUN ...) ; compiling (DEFKNOWN ARRAY-BOUNDING-INDICES-BAD-ERROR ...) ; compiling (DEFKNOWN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...) ; compiling (DEFKNOWN %FIND-POSITION ...) ; compiling (DEFKNOWN (%FIND-POSITION-IF %FIND-POSITION-IF-NOT) ...) ; compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-TEST ...) ; compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-KEY ...) ; compiling (DEFKNOWN (%ADJOIN %ADJOIN-EQ) ...) ; compiling (DEFKNOWN (%MEMBER %MEMBER-EQ ...) ...) ; compiling (DEFKNOWN (%ADJOIN-KEY %ADJOIN-KEY-EQ) ...) ; compiling (DEFKNOWN (%MEMBER-KEY %MEMBER-KEY-EQ ...) ...) ; compiling (DEFKNOWN (%ASSOC-IF %ASSOC-IF-NOT ...) ...) ; compiling (DEFKNOWN (%ASSOC-IF-KEY %ASSOC-IF-NOT-KEY ...) ...) ; compiling (DEFKNOWN (%ADJOIN-TEST %ADJOIN-TEST-NOT) ...) ; compiling (DEFKNOWN (%MEMBER-TEST %MEMBER-TEST-NOT ...) ...) ; compiling (DEFKNOWN (%ADJOIN-KEY-TEST %ADJOIN-KEY-TEST-NOT) ...) ; compiling (DEFKNOWN (%MEMBER-KEY-TEST %MEMBER-KEY-TEST-NOT ...) ...) ; compiling (DEFKNOWN %CHECK-VECTOR-SEQUENCE-BOUNDS ...) ; compiling (DEFKNOWN ARG-COUNT-ERROR ...) ; compiling (DEFKNOWN (SETF AREF) ...) ; compiling (DEFKNOWN %SET-ROW-MAJOR-AREF ...) ; compiling (DEFKNOWN (%RPLACA %RPLACD) ...) ; compiling (DEFKNOWN %PUT ...) ; compiling (DEFKNOWN %SETELT ...) ; compiling (DEFKNOWN %SVSET ...) ; compiling (DEFKNOWN (SETF BIT) ...) ; compiling (DEFKNOWN (SETF SBIT) ...) ; compiling (DEFKNOWN %CHARSET ...) ; compiling (DEFKNOWN %SCHARSET ...) ; compiling (DEFKNOWN %SET-SYMBOL-VALUE ...) ; compiling (DEFKNOWN (SETF SYMBOL-FUNCTION) ...) ; compiling (DEFKNOWN %SET-SYMBOL-PLIST ...) ; compiling (DEFKNOWN %SETNTH ...) ; compiling (DEFKNOWN %SET-FILL-POINTER ...) ; compiling (DEFKNOWN SB!VM::TOUCH-OBJECT ...) ; compiling (DEFKNOWN FOREIGN-SYMBOL-DATAREF-SAP ...) ; compiling (DEFKNOWN FOREIGN-SYMBOL-SAP ...) ; compiling (DEFKNOWN FOREIGN-SYMBOL-ADDRESS ...) ; compiling (DEFKNOWN %FUN-NAME ...) ; compiling (DEFKNOWN (SETF %FUN-NAME) ...) ; compiling (DEFKNOWN POLICY-QUALITY ...) ; compiling (DEFKNOWN COMPILER-ERROR ...) ; compiling (DEFKNOWN (COMPILER-WARN COMPILER-STYLE-WARN) ...) ; compiling (DEFKNOWN (COMPILER-NOTIFY MAYBE-COMPILER-NOTIFY) ...) ; compiling (DEFKNOWN STYLE-WARN ...) ; compiling (DEFKNOWN COERCE-TO-CONDITION ...) ; compiling (DEFKNOWN COERCE-SYMBOL-TO-FUN ...) ; compiling (DEFKNOWN SC-NUMBER-OR-LOSE ...) ; compiling (DEFKNOWN SB!VM:%COMPILER-BARRIER ...) ; compiling (DEFKNOWN SB!VM:%MEMORY-BARRIER ...) ; compiling (DEFKNOWN SB!VM:%READ-BARRIER ...) ; compiling (DEFKNOWN SB!VM:%WRITE-BARRIER ...) ; compiling (DEFKNOWN SB!VM:%DATA-DEPENDENCY-BARRIER ...) ; compiling (DEFKNOWN %COMPARE-AND-SWAP-SVREF ...) ; compiling (DEFKNOWN %COMPARE-AND-SWAP-INSTANCE-REF ...) ; compiling (DEFKNOWN %COMPARE-AND-SWAP-SYMBOL-VALUE ...) ; compiling (DEFKNOWN SPIN-LOOP-HINT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/fndb.fasl-tmp written ; compilation finished in 0:00:00.040 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-fndb.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN (FIXNUMP BIGNUMP ...) ...) ; compiling (DEFKNOWN (VECTOR-SINGLE-FLOAT-P VECTOR-DOUBLE-FLOAT-P ...) ...) ; compiling (DEFKNOWN %OTHER-POINTER-P ...) ; compiling (DEFKNOWN %OTHER-POINTER-SUBTYPE-P ...) ; compiling (DEFKNOWN POINTER-HASH ...) ; compiling (DEFKNOWN %SP-STRING-COMPARE ...) ; compiling (DEFKNOWN %SXHASH-SIMPLE-STRING ...) ; compiling (DEFKNOWN %SXHASH-SIMPLE-SUBSTRING ...) ; compiling (DEFKNOWN SYMBOL-HASH ...) ; compiling (DEFKNOWN %SET-SYMBOL-HASH ...) ; compiling (DEFKNOWN SYMBOL-INFO-VECTOR ...) ; compiling (DEFKNOWN INITIALIZE-VECTOR ...) ; compiling (DEFKNOWN VECTOR-FILL* ...) ; compiling (DEFKNOWN VECTOR-LENGTH ...) ; compiling (DEFKNOWN VECTOR-SAP ...) ; compiling (DEFKNOWN LOWTAG-OF ...) ; compiling (DEFKNOWN WIDETAG-OF ...) ; compiling (DEFKNOWN (GET-HEADER-DATA GET-CLOSURE-LENGTH) ...) ; compiling (DEFKNOWN SET-HEADER-DATA ...) ; compiling (DEFKNOWN %ARRAY-DIMENSION ...) ; compiling (DEFKNOWN %SET-ARRAY-DIMENSION ...) ; compiling (DEFKNOWN %ARRAY-RANK ...) ; compiling (DEFKNOWN %MAKE-INSTANCE ...) ; compiling (DEFKNOWN %MAKE-STRUCTURE-INSTANCE ...) ; compiling (DEFKNOWN %INSTANCE-LAYOUT ...) ; compiling (DEFKNOWN %SET-INSTANCE-LAYOUT ...) ; compiling (DEFKNOWN %INSTANCE-LENGTH ...) ; compiling (DEFKNOWN %INSTANCE-REF ...) ; compiling (DEFKNOWN %INSTANCE-SET ...) ; compiling (DEFKNOWN %LAYOUT-INVALID-ERROR ...) ; compiling (DEFKNOWN %RAW-INSTANCE-REF/WORD ...) ; compiling (DEFKNOWN %RAW-INSTANCE-SET/WORD ...) ; compiling (DEFKNOWN %RAW-INSTANCE-REF/SINGLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-SET/SINGLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-REF/DOUBLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-SET/DOUBLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-ATOMIC-INCF/WORD ...) ; compiling (DEFKNOWN %ARRAY-ATOMIC-INCF/WORD ...) ; compiling (DEFKNOWN %VECTOR-RAW-BITS ...) ; compiling (DEFKNOWN (%SET-VECTOR-RAW-BITS) ...) ; compiling (DEFKNOWN ALLOCATE-VECTOR ...) ; compiling (DEFKNOWN MAKE-ARRAY-HEADER ...) ; compiling (DEFKNOWN MAKE-WEAK-POINTER ...) ; compiling (DEFKNOWN %MAKE-COMPLEX ...) ; compiling (DEFKNOWN %MAKE-RATIO ...) ; compiling (DEFKNOWN MAKE-VALUE-CELL ...) ; compiling (DEFKNOWN SIMD-PACK-P ...) ; compiling (DEFKNOWN %SIMD-PACK-TAG ...) ; compiling (DEFKNOWN %MAKE-SIMD-PACK ...) ; compiling (DEFKNOWN %MAKE-SIMD-PACK-DOUBLE ...) ; compiling (DEFKNOWN %MAKE-SIMD-PACK-SINGLE ...) ; compiling (DEFKNOWN %MAKE-SIMD-PACK-UB32 ...) ; compiling (DEFKNOWN %MAKE-SIMD-PACK-UB64 ...) ; compiling (DEFKNOWN (%SIMD-PACK-LOW %SIMD-PACK-HIGH) ...) ; compiling (DEFKNOWN %SIMD-PACK-UB32S ...) ; compiling (DEFKNOWN %SIMD-PACK-UB64S ...) ; compiling (DEFKNOWN %SIMD-PACK-SINGLES ...) ; compiling (DEFKNOWN %SIMD-PACK-DOUBLES ...) ; compiling (DEFKNOWN (DYNAMIC-SPACE-FREE-POINTER BINDING-STACK-POINTER-SAP ...) ...) ; compiling (DEFKNOWN ENSURE-SYMBOL-TLS-INDEX ...) ; compiling (DEFKNOWN CURRENT-SP ...) ; compiling (DEFKNOWN CURRENT-FP ...) ; compiling (DEFKNOWN STACK-REF ...) ; compiling (DEFKNOWN %SET-STACK-REF ...) ; compiling (DEFKNOWN LRA-CODE-HEADER ...) ; compiling (DEFKNOWN FUN-CODE-HEADER ...) ; compiling (DEFKNOWN %MAKE-LISP-OBJ ...) ; compiling (DEFKNOWN GET-LISP-OBJ-ADDRESS ...) ; compiling (DEFKNOWN FUN-WORD-OFFSET ...) ; compiling (DEFKNOWN WORD-LOGICAL-NOT ...) ; compiling (DEFKNOWN (WORD-LOGICAL-AND WORD-LOGICAL-NAND ...) ...) ; compiling (DEFKNOWN (SHIFT-TOWARDS-START SHIFT-TOWARDS-END) ...) ; compiling (DEFKNOWN %ALLOCATE-BIGNUM ...) ; compiling (DEFKNOWN %BIGNUM-LENGTH ...) ; compiling (DEFKNOWN %BIGNUM-SET-LENGTH ...) ; compiling (DEFKNOWN %BIGNUM-REF ...) ; compiling (DEFKNOWN %BIGNUM-REF-WITH-OFFSET ...) ; compiling (DEFKNOWN %BIGNUM-SET ...) ; compiling (DEFKNOWN %DIGIT-0-OR-PLUSP ...) ; compiling (DEFKNOWN (%ADD-WITH-CARRY %SUBTRACT-WITH-BORROW) ...) ; compiling (DEFKNOWN %MULTIPLY-AND-ADD ...) ; compiling (DEFKNOWN %MULTIPLY ...) ; compiling (DEFKNOWN %LOGNOT ...) ; compiling (DEFKNOWN (%LOGAND %LOGIOR ...) ...) ; compiling (DEFKNOWN %FIXNUM-TO-DIGIT ...) ; compiling (DEFKNOWN %BIGFLOOR ...) ; compiling (DEFKNOWN %FIXNUM-DIGIT-WITH-CORRECT-SIGN ...) ; compiling (DEFKNOWN (%ASHL %ASHR ...) ...) ; compiling (DEFINE-KNOWN-COPIERS) ; compiling (DEFKNOWN %BYTE-BLT ...) ; compiling (DEFKNOWN CODE-INSTRUCTIONS ...) ; compiling (DEFKNOWN CODE-HEADER-REF ...) ; compiling (DEFKNOWN CODE-HEADER-SET ...) ; compiling (DEFKNOWN FUN-SUBTYPE ...) ; compiling (DEFKNOWN (#) ...) ; compiling (DEFKNOWN MAKE-FDEFN ...) ; compiling (DEFKNOWN FDEFN-P ...) ; compiling (DEFKNOWN FDEFN-NAME ...) ; compiling (DEFKNOWN FDEFN-FUN ...) ; compiling (DEFKNOWN (SETF FDEFN-FUN) ...) ; compiling (DEFKNOWN FDEFN-MAKUNBOUND ...) ; compiling (DEFKNOWN %SIMPLE-FUN-SELF ...) ; compiling (DEFKNOWN (SETF %SIMPLE-FUN-SELF) ...) ; compiling (DEFKNOWN %CLOSURE-FUN ...) ; compiling (DEFKNOWN %CLOSURE-INDEX-REF ...) ; compiling (DEFKNOWN %MAKE-FUNCALLABLE-INSTANCE ...) ; compiling (DEFKNOWN %FUNCALLABLE-INSTANCE-INFO ...) ; compiling (DEFKNOWN %SET-FUNCALLABLE-INSTANCE-INFO ...) ; compiling (DEFKNOWN %DATA-VECTOR-AND-INDEX ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/vm-fndb.fasl-tmp written ; compilation finished in 0:00:00.025 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/late-objdef.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (FROB) ; compiling (DOLIST (SLOT #) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/late-objdef.fasl-tmp written ; compilation finished in 0:00:00.010 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/interr.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN ERROR-NUMBER-OR-LOSE ...) ; compiling (DEFUN !C-STRINGIFY-INTERNAL-ERROR ...) ; compiling (SETF SB!C:*BACKEND-INTERNAL-ERRORS* ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/interr.fasl-tmp written ; compilation finished in 0:00:00.014 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/bit-util.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/bit-util.fasl-tmp written ; compilation finished in 0:00:00.036 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/early-assem.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/early-assem.fasl-tmp written ; compilation finished in 0:00:00.012 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/barrier.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (DEFUN SB!VM:%COMPILER-BARRIER ...) ; compiling (DEFUN SB!VM:%MEMORY-BARRIER ...) ; compiling (DEFUN SB!VM:%READ-BARRIER ...) ; compiling (DEFUN SB!VM:%WRITE-BARRIER ...) ; compiling (DEFUN SB!VM:%DATA-DEPENDENCY-BARRIER ...) ; compiling (DEFPARAMETER *BARRIER-KIND-FUNCTIONS* ...) ; compiling (DEFUN BARRIER-KIND-FUNCTION ...) ; compiling (DEF!MACRO BARRIER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/barrier.lisp ; in: DEF!MACRO BARRIER ; (SB!INT:DEF!MACRO SB!THREAD:BARRIER ; ((SB!THREAD::KIND) &BODY SB!THREAD::FORMS) ; "Insert a barrier in the code stream, preventing some sort of ; reordering. ; ; KIND should be one of: ; ; :COMPILER ; Prevent the compiler from reordering memory access across the ; barrier. ; :MEMORY ; Prevent the cpu from reordering any memory access across the ; barrier. ; :READ ; Prevent the cpu from reordering any read access across the ; barrier. ; :WRITE ; Prevent the cpu from reordering any write access across the ; barrier. ; :DATA-DEPENDENCY ; Prevent the cpu from reordering dependent memory reads across the ; barrier (requiring reads before the barrier to complete before any ; reads after the barrier that depend on them). This is a weaker ; form of the :READ barrier. ; ; FORMS is an implicit PROGN, evaluated before the barrier. BARRIER ; returns the values of the last form in FORMS. ; ; The file \"memory-barriers.txt\" in the Linux kernel documentation is ; highly recommended reading for anyone programming at this level." ; (SB!IMPL::BACKQ-LIST 'MULTIPLE-VALUE-PROG1 ; (SB!IMPL::BACKQ-CONS 'PROGN ; SB!THREAD::FORMS) ; (SB!IMPL::BACKQ-LIST ; (SB!THREAD::BARRIER-KIND-FUNCTION ; SB!THREAD::KIND)))) ; --> PROGN DEFMACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFMACRO 'SB!THREAD:BARRIER ; #'(SB-INT:NAMED-LAMBDA (DEFMACRO SB!THREAD:BARRIER) ; (#:WHOLE8 #:ENVIRONMENT9) ; (DECLARE (IGNORE #:ENVIRONMENT9)) ; (LET* ((#:REQUIRED-11 #)) ; (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE)) ; (LET (#) ; (UNLESS # #)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# #) ; (BLOCK SB!THREAD:BARRIER #)))) ; '((SB!THREAD::KIND) &BODY SB!THREAD::FORMS) ; "Insert a barrier in the code stream, preventing some sort of ; reordering. ; ; KIND should be one of: ; ; :COMPILER ; Prevent the compiler from reordering memory access across the ; barrier. ; :MEMORY ; Prevent the cpu from reordering any memory access across the ; barrier. ; :READ ; Prevent the cpu from reordering any read access across the ; barrier. ; :WRITE ; Prevent the cpu from reordering any write access across the ; barrier. ; :DATA-DEPENDENCY ; Prevent the cpu from reordering dependent memory reads across the ; barrier (requiring reads before the barrier to complete before any ; reads after the barrier that depend on them). This is a weaker ; form of the :READ barrier. ; ; FORMS is an implicit PROGN, evaluated before the barrier. BARRIER ; returns the values of the last form in FORMS. ; ; The file \"memory-barriers.txt\" in the Linux kernel documentation is ; highly recommended reading for anyone programming at this level." ; '(MACRO-FUNCTION SB!THREAD:BARRIER) (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; redefining SB!THREAD:BARRIER in DEFMACRO ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/barrier.fasl-tmp written ; compilation finished in 0:00:00.014 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/core.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/core.lisp ; in: DEFUN FIX-CORE-SOURCE-INFO ; (SETF (SB!C::DEBUG-INFO-SOURCE SB!INT:INFO) SB!C::SOURCE) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-INFO-SOURCE) #:NEW84 #:INFO85) ; ; caught STYLE-WARNING: ; undefined function: (SETF DEBUG-INFO-SOURCE) ; in: DEFUN REFERENCE-CORE-FUN ; (SETF (SB!KERNEL:CODE-HEADER-REF SB!C::CODE-OBJ SB!C::I) SB!C::FOUND) ; ==> ; (SB!KERNEL:CODE-HEADER-SET SB!C::CODE-OBJ SB!C::I SB!C::FOUND) ; ; caught STYLE-WARNING: ; undefined function: CODE-HEADER-SET ; in: DEFUN NOTE-FUN ; (SETF (SB!KERNEL:CODE-HEADER-REF (CAR SB!C::PATCH) ; (THE SB!INT:INDEX (CDR SB!C::PATCH))) ; FUNCTION) ; ==> ; (SB!KERNEL:CODE-HEADER-SET (CAR SB!C::PATCH) ; (THE SB!INT:INDEX (CDR SB!C::PATCH)) FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: CODE-HEADER-SET ; in: DEFUN FIX-CORE-SOURCE-INFO ; (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO :FUNCTION FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: DEBUG-SOURCE-FOR-INFO ; in: DEFUN DO-CORE-FIXUPS ; (SB!KERNEL:ENSURE-SYMBOL-TLS-INDEX SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-SYMBOL-TLS-INDEX ; (SB!VM:FIXUP-CODE-OBJECT SB!C::CODE POSITION SB!C::VALUE SB!C::KIND) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:FIXUP-CODE-OBJECT ; (SB!C:FIXUP-FLAVOR SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-FLAVOR ; (SB!C:FIXUP-NAME SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NAME ; (SB!C:FIXUP-NOTE-FIXUP SB!C::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-FIXUP ; (SB!C:FIXUP-NOTE-KIND SB!C::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-KIND ; (SB!C:FIXUP-NOTE-POSITION SB!C::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-POSITION ; (SB!SYS:FOREIGN-SYMBOL-ADDRESS SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: FOREIGN-SYMBOL-ADDRESS ; (SB!KERNEL:GET-LISP-OBJ-ADDRESS SB!C::CODE) ; ; caught STYLE-WARNING: ; undefined function: GET-LISP-OBJ-ADDRESS ; ; compilation unit finished ; Undefined functions: ; (SETF DEBUG-INFO-SOURCE) CODE-HEADER-SET DEBUG-SOURCE-FOR-INFO ENSURE-SYMBOL-TLS-INDEX SB!VM:FIXUP-CODE-OBJECT FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION FOREIGN-SYMBOL-ADDRESS GET-LISP-OBJ-ADDRESS ; caught 13 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/core.fasl-tmp written ; compilation finished in 0:00:00.031 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/thread.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (DEF!TYPE THREAD-NAME ...) ; compiling (DEF!STRUCT (THREAD #) ...) ; compiling (DEF!STRUCT (FOREIGN-THREAD # ...) ...) ; compiling (DEF!STRUCT MUTEX ...) ; compiling (DEFUN MUTEX-VALUE ...) ; compiling (DEFUN HOLDING-MUTEX-P ...) ; compiling (DEFSETF MUTEX-VALUE ...) ; compiling (DECLAIM (INLINE SET-MUTEX-VALUE)) ; compiling (DEFUN SET-MUTEX-VALUE ...) ; compiling (DEFINE-COMPILER-MACRO SET-MUTEX-VALUE ...) ; compiling (DEFTYPE SPINLOCK ...) ; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SPINLOCK ...) ; compiling (SB-XC:DEFMACRO WITH-SPINLOCK ...) ; compiling (SB-XC:DEFMACRO WITHOUT-THREAD-WAITING-FOR ...) ; compiling (SB-XC:DEFMACRO WITH-MUTEX ...) ; compiling (SB-XC:DEFMACRO WITH-SYSTEM-MUTEX ...) ; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-LOCK ...) ; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SYSTEM-LOCK ...) ; compiling (DEF CALL-WITH-SYSTEM-MUTEX) ; compiling (DEF CALL-WITH-SYSTEM-MUTEX ...) ; compiling (DEF CALL-WITH-SYSTEM-MUTEX ...) ; compiling (DEFUN CALL-WITH-MUTEX ...) ; compiling (DEFUN CALL-WITH-RECURSIVE-LOCK ...) ; compiling (DEF CALL-WITH-RECURSIVE-SYSTEM-LOCK) ; compiling (DEF CALL-WITH-RECURSIVE-SYSTEM-LOCK ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/thread.lisp ; in: DEF CALL-WITH-SYSTEM-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM WHEN IF SETF SETQ THE ; ==> ; (SB!THREAD:GRAB-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: GRAB-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM WHEN IF SETF SETQ THE ; ==> ; (SB!THREAD:GRAB-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: GRAB-MUTEX ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!THREAD:GRAB-MUTEX SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: GRAB-MUTEX ; ; caught STYLE-WARNING: ; 5 more uses of undefined function GRAB-MUTEX ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/thread.lisp ; in: DEF CALL-WITH-RECURSIVE-SYSTEM-LOCK ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK :WITHOUT-GCING) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> EQ IF EQ ; ==> ; (SB!THREAD:MUTEX-OWNER SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: MUTEX-OWNER ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> EQ IF EQ ; ==> ; (SB!THREAD:MUTEX-OWNER SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: MUTEX-OWNER ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!THREAD:MUTEX-OWNER SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: MUTEX-OWNER ; in: DEF CALL-WITH-SYSTEM-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> UNWIND-PROTECT FLET BLOCK WHEN IF PROGN ; ==> ; (SB!THREAD:RELEASE-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: RELEASE-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> UNWIND-PROTECT FLET BLOCK WHEN IF PROGN ; ==> ; (SB!THREAD:RELEASE-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: RELEASE-MUTEX ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!THREAD:RELEASE-MUTEX SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: RELEASE-MUTEX ; ; caught STYLE-WARNING: ; 5 more uses of undefined function RELEASE-MUTEX ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/thread.lisp ; in: DEF CALL-WITH-RECURSIVE-SYSTEM-LOCK ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK :WITHOUT-GCING) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK FLET ; ==> ; (SB!SYS:WITHOUT-GCING (SB!THREAD::%CALL-WITH-RECURSIVE-SYSTEM-LOCK)) ; ; caught STYLE-WARNING: ; undefined function: WITHOUT-GCING ; in: DEF CALL-WITH-SYSTEM-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING) ; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK FLET ; ==> ; (SB!SYS:WITHOUT-GCING (SB!THREAD::%CALL-WITH-SYSTEM-MUTEX)) ; ; caught STYLE-WARNING: ; undefined function: WITHOUT-GCING ; ; compilation unit finished ; Undefined functions: ; GRAB-MUTEX MUTEX-OWNER RELEASE-MUTEX WITHOUT-GCING ; caught 13 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/thread.fasl-tmp written ; compilation finished in 0:00:00.236 STYLE-WARNING: redefining SB!THREAD:MAKE-MUTEX in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/load.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFUN LOAD-FRESH-LINE ...) ; compiling (DEFUN MAYBE-ANNOUNCE-LOAD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/load.lisp ; in: DEFUN MAYBE-ANNOUNCE-LOAD ; (FORMAT T "loading ~S~%" SB!FASL::NAME) ; ==> ; "loading ~S~%" ; ; note: deleting unreachable code ; compiling (DECLAIM (INLINE READ-BYTE)) ; compiling (DEFMACRO FAST-READ-U-INTEGER ...) ; compiling (DEFMACRO FAST-READ-VAR-U-INTEGER ...) ; compiling (DEFMACRO FAST-READ-S-INTEGER ...) ; compiling (DEFMACRO READ-ARG ...) ; compiling (DECLAIM (INLINE READ-BYTE-ARG ...)) ; compiling (DEFUN READ-BYTE-ARG ...) ; compiling (DEFUN READ-HALFWORD-ARG ...) ; compiling (DEFUN READ-WORD-ARG ...) ; compiling (DEFUN READ-UNSIGNED-BYTE-32-ARG ...) ; compiling (DEFVAR *FOP-TABLE*) ; compiling (DECLAIM (SIMPLE-VECTOR *FOP-TABLE*)) ; compiling (DECLAIM (INLINE REF-FOP-TABLE)) ; compiling (DEFUN REF-FOP-TABLE ...) ; compiling (DEFUN GET-FOP-TABLE-INDEX ...) ; compiling (DEFUN RESET-FOP-TABLE ...) ; compiling (DEFUN PUSH-FOP-TABLE ...) ; compiling (DEFUN MAKE-FOP-VECTOR ...) ; compiling (DEFUN GROW-FOP-VECTOR ...) ; compiling (DEFUN NUKE-FOP-VECTOR ...) ; compiling (DEFVAR *FOP-STACK*) ; compiling (DECLAIM (SIMPLE-VECTOR *FOP-STACK*)) ; compiling (DEFUN FOP-STACK-EMPTY-P ...) ; compiling (DEFUN POP-FOP-STACK ...) ; compiling (DEFUN PUSH-FOP-STACK ...) ; 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 MAYBE-SKIP-SHEBANG-LINE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/load.lisp ; in: DEFUN MAYBE-SKIP-SHEBANG-LINE ; (READ-BYTE STREAM NIL) ; --> BLOCK IF LET IF SB-IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; compiling (DEFUN FASL-HEADER-P ...) ; compiling (DEFUN CHECK-FASL-HEADER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/load.lisp ; in: DEFUN CHECK-FASL-HEADER ; (READ-BYTE STREAM NIL) ; --> BLOCK IF LET IF SB-IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; compiling (DEFUN LOAD-FASL-GROUP ...) ; compiling (DEFUN LOAD-AS-FASL ...) ; compiling (DECLAIM (NOTINLINE READ-BYTE)) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/load.lisp ; in: DEFUN FASL-HEADER-P ; (TYPEP STREAM 'SB!SYS:FD-STREAM) ; ; caught STYLE-WARNING: ; undefined type: FD-STREAM ; (SB!IMPL::FD-STREAM-BIVALENT-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::FD-STREAM-BIVALENT-P ; (SB!IMPL::FD-STREAM-FILE STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::FD-STREAM-FILE ; in: DEFUN CHECK-FASL-HEADER ; (SB!FASL::READ-STRING-AS-BYTES STREAM SB!FASL::RESULT) ; ; caught STYLE-WARNING: ; undefined function: READ-STRING-AS-BYTES ; ; compilation unit finished ; Undefined type: ; FD-STREAM ; Undefined functions: ; SB!IMPL::FD-STREAM-BIVALENT-P SB!IMPL::FD-STREAM-FILE READ-STRING-AS-BYTES ; caught 4 STYLE-WARNING conditions ; printed 3 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/load.fasl-tmp written ; compilation finished in 0:00:00.314 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/foreign.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN EXTERN-ALIEN-NAME ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *STATIC-FOREIGN-SYMBOLS* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE ...) ; compiling (DEFUN FIND-FOREIGN-SYMBOL-ADDRESS ...) ; compiling (DEFUN FOREIGN-SYMBOL-ADDRESS ...) ; compiling (DEFUN FOREIGN-SYMBOL-SAP ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/foreign.lisp ; in: DEFUN FOREIGN-SYMBOL-SAP ; (SB!SYS:INT-SAP (SB!SYS:SAP-REF-WORD (SB!SYS:INT-SAP SB!ALIEN:ADDR) 0)) ; ; note: deleting unreachable code ; compiling (DECLAIM (MAYBE-INLINE SAP-FOREIGN-SYMBOL)) ; compiling (DEFUN SAP-FOREIGN-SYMBOL ...) ; compiling (DEFVAR *!INITIAL-FOREIGN-SYMBOLS*) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/foreign.lisp ; in: DEFUN FIND-FOREIGN-SYMBOL-ADDRESS ; (SB!SYS:FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; ; compilation unit finished ; Undefined function: ; FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; caught 1 STYLE-WARNING condition ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/foreign.fasl-tmp written ; compilation finished in 0:00:00.020 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fop.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFVAR *SKIP-UNTIL* ...) ; compiling (DEFMACRO DEFINE-FOP ...) ; compiling (DEFUN %DEFINE-FOP ...) ; compiling (DEFMACRO DEFINE-CLONED-FOPS ...) ; compiling (DEFUN READ-STRING-AS-BYTES ...) ; compiling (DEFUN READ-BASE-STRING-AS-BYTES ...) ; compiling (DEFUN READ-STRING-AS-UNSIGNED-BYTE-32 ...) ; 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-VERIFY-TABLE-SIZE 62 ...) ...) ; compiling (DEFINE-FOP (FOP-VERIFY-EMPTY-STACK 63 ...) ...) ; compiling (DEFSTRUCT (UNDEFINED-PACKAGE #) ...) ; compiling (DECLAIM (FREEZE-TYPE UNDEFINED-PACKAGE)) ; compiling (DEFUN AUX-FOP-INTERN ...) ; compiling (DEF FOP-LISP-SYMBOL-SAVE ...) ; compiling (DEF FOP-LISP-SMALL-SYMBOL-SAVE ...) ; compiling (DEF FOP-KEYWORD-SYMBOL-SAVE ...) ; compiling (DEF FOP-KEYWORD-SMALL-SYMBOL-SAVE ...) ; compiling (DEF FOP-SYMBOL-IN-PACKAGE-SAVE ...) ; compiling (DEF FOP-SMALL-SYMBOL-IN-PACKAGE-SAVE ...) ; compiling (DEF FOP-SYMBOL-IN-BYTE-PACKAGE-SAVE ...) ; compiling (DEF FOP-SMALL-SYMBOL-IN-BYTE-PACKAGE-SAVE ...) ; compiling (DEFINE-CLONED-FOPS (FOP-UNINTERNED-SYMBOL-SAVE 12) ...) ; compiling (DEFINE-FOP (FOP-PACKAGE 14) ...) ; compiling (DEFINE-CLONED-FOPS (FOP-NAMED-PACKAGE-SAVE 156 ...) ...) ; compiling (DEFUN LOAD-S-INTEGER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fop.lisp ; in: DEFUN LOAD-S-INTEGER ; (ASH 1 SB!FASL::BITS) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a (INTEGER 1), not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; (ASH SB-XC:BYTE SB!FASL::BITS) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (DO* ((SB!INT:INDEX LENGTH (1- SB!INT:INDEX)) ; (SB-XC:BYTE 0 (SB!INT:FAST-READ-BYTE)) ; (SB!FASL::RESULT 0 (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS))) ; (SB!FASL::BITS 0 (+ SB!FASL::BITS 8))) ; ((= SB!INT:INDEX 0) ; (IF (LOGBITP 7 SB-XC:BYTE) ; (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS)) ; SB!FASL::RESULT)) ; (DECLARE (FIXNUM SB!INT:INDEX SB-XC:BYTE SB!FASL::BITS))) ; --> BLOCK LET* TAGBODY SETQ SETQ ; ==> ; (THE FIXNUM (1- SB!INT:INDEX)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ==> ; (THE FIXNUM (+ SB!FASL::BITS 8)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; compiling (DEFINE-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-SIMD-PACK 88) ...) ; 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 (DEFGLOBAL **SAETP-BITS-PER-LENGTH** ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFINE-FOP (FOP-SPEC-VECTOR 43) ...) ; 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-KNOWN-FUN 65) ...) ; compiling (DEFINE-FOP (FOP-FSET 74 ...) ...) ; compiling (DEFINE-FOP (FOP-NOTE-DEBUG-SOURCE 174 ...) ...) ; compiling (DEFINE-CLONED-FOPS (FOP-ALTER-CODE 140 ...) ...) ; compiling (DEFINE-FOP (FOP-FUN-ENTRY 142) ...) ; compiling (DEFINE-FOP (FOP-ASSEMBLER-CODE 144) ...) ; compiling (DEFINE-FOP (FOP-ASSEMBLER-ROUTINE 145) ...) ; compiling (DEFINE-FOP (FOP-SYMBOL-TLS-FIXUP 146) ...) ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-KNOWN-FUN 65) ; (SB!KERNEL:%COERCE-NAME-TO-FUN (SB!FASL::POP-STACK)) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-NAME-TO-FUN ; 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 ; 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-FOP (FOP-SIMD-PACK 88) ; (SB!KERNEL:%MAKE-SIMD-PACK (SB!INT:FAST-READ-S-INTEGER 8) ; (SB!INT:FAST-READ-U-INTEGER 8) (SB!INT:FAST-READ-U-INTEGER 8)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-SIMD-PACK ; 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 ; in: DEFINE-FOP (FOP-NOTE-DEBUG-SOURCE 174 :PUSHP NIL) ; (SETF (SB!C::DEBUG-SOURCE-COMPILED SB!FASL::DEBUG-SOURCE) ; (GET-UNIVERSAL-TIME) ; (SB!C::DEBUG-SOURCE-CREATED SB!FASL::DEBUG-SOURCE) ; (FILE-WRITE-DATE ; (SB!C::DEBUG-SOURCE-NAMESTRING SB!FASL::DEBUG-SOURCE))) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-COMPILED) #:NEW2240 ; #:DEBUG-SOURCE2241) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!C::DEBUG-SOURCE-COMPILED) ; ==> ; (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-CREATED) #:NEW2242 ; #:DEBUG-SOURCE2243) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!C::DEBUG-SOURCE-CREATED) ; in: DEFINE-FOP (FOP-SPEC-VECTOR 43) ; (SB!KERNEL:ALLOCATE-VECTOR SB!FASL::WIDETAG LENGTH SB!SYS:WORDS) ; ; caught STYLE-WARNING: ; undefined function: ALLOCATE-VECTOR ; 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 ; in: DEFINE-FOP (FOP-NOTE-DEBUG-SOURCE 174 :PUSHP NIL) ; (SB!C::DEBUG-SOURCE-NAMESTRING SB!FASL::DEBUG-SOURCE) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-SOURCE-NAMESTRING ; in: DEFINE-FOP (FOP-SYMBOL-TLS-FIXUP 146) ; (SB!KERNEL:ENSURE-SYMBOL-TLS-INDEX SYMBOL) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-SYMBOL-TLS-INDEX ; in: DEFINE-FOP (FOP-FDEFINITION 60) ; (SB!KERNEL:FIND-OR-CREATE-FDEFN (SB!FASL::POP-STACK)) ; ; caught STYLE-WARNING: ; undefined function: FIND-OR-CREATE-FDEFN ; 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 ; in: DEFINE-FOP (FOP-SYMBOL-TLS-FIXUP 146) ; (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT (SB!FASL::READ-WORD-ARG) ; (SB!KERNEL:ENSURE-SYMBOL-TLS-INDEX SYMBOL) SB!FASL::KIND) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:FIXUP-CODE-OBJECT ; ; caught STYLE-WARNING: ; 2 more uses of undefined function SB!VM:FIXUP-CODE-OBJECT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-CODE-OBJECT-FIXUP 149) ; (SB!KERNEL:GET-LISP-OBJ-ADDRESS SB!FASL::CODE-OBJECT) ; ; caught STYLE-WARNING: ; undefined function: GET-LISP-OBJ-ADDRESS ; in: DEFINE-FOP (FOP-SMALL-CODE 59 :STACKP NIL) ; (SB!FASL::LOAD-CODE (SB!FASL::READ-BYTE-ARG) (SB!FASL::READ-HALFWORD-ARG)) ; ; caught STYLE-WARNING: ; undefined function: LOAD-CODE ; in: DEFINE-FOP (FOP-CODE 58 :STACKP NIL) ; (SB!FASL::LOAD-CODE (SB!FASL::READ-WORD-ARG) (SB!FASL::READ-WORD-ARG)) ; ; caught STYLE-WARNING: ; undefined function: LOAD-CODE ; in: DEFINE-FOP (FOP-ARRAY 83) ; (SB!KERNEL:MAKE-ARRAY-HEADER SB!VM:SIMPLE-ARRAY-WIDETAG SB!FASL::RANK) ; ; caught STYLE-WARNING: ; undefined function: MAKE-ARRAY-HEADER ; in: DEFINE-FOP (FOP-FOREIGN-DATAREF-FIXUP 150) ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::SYM 0 SB!FASL::LEN) ; ; caught STYLE-WARNING: ; undefined function: READ-N-BYTES ; in: DEFINE-FOP (FOP-FOREIGN-FIXUP 147) ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::SYM 0 SB!FASL::LEN) ; ; caught STYLE-WARNING: ; undefined function: READ-N-BYTES ; in: DEFINE-FOP (FOP-SPEC-VECTOR 43) ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* VECTOR 0 SB!FASL::BYTES) ; ; caught STYLE-WARNING: ; undefined function: READ-N-BYTES ; in: DEFINE-FOP (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 T) ; ; caught STYLE-WARNING: ; undefined function: SET-ARRAY-HEADER ; ; compilation unit finished ; Undefined functions: ; %COERCE-NAME-TO-FUN %MAKE-COMPLEX %MAKE-INSTANCE %MAKE-RATIO %MAKE-SIMD-PACK %RAW-INSTANCE-SET/WORD (SETF SB!C::DEBUG-SOURCE-COMPILED) (SETF SB!C::DEBUG-SOURCE-CREATED) ALLOCATE-VECTOR CODE-HEADER-SET SB!C::DEBUG-SOURCE-NAMESTRING ENSURE-SYMBOL-TLS-INDEX FIND-OR-CREATE-FDEFN SB!VM:FIXUP-CODE-OBJECT GET-LISP-OBJ-ADDRESS LOAD-CODE MAKE-ARRAY-HEADER READ-N-BYTES SET-ARRAY-HEADER ; caught 25 STYLE-WARNING conditions ; printed 6 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/fop.fasl-tmp written ; compilation finished in 0:00:00.719 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ctype.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *LOSSAGE-FUN*) ; compiling (DEFVAR *UNWINNAGE-FUN*) ; compiling (DEFVAR *CTYPE-TEST-FUN*) ; compiling (DEFVAR *LOSSAGE-DETECTED*) ; compiling (DEFVAR *UNWINNAGE-DETECTED*) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-LOSSAGE ...) ; compiling (DEFUN NOTE-UNWINNAGE ...) ; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*)) ; compiling (DEFUN ALWAYS-SUBTYPEP ...) ; compiling (DEFUN VALID-FUN-USE ...) ; compiling (DEFUN CHECK-ARG-TYPE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-FIXED-AND-REST ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-KEY-ARGS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DEFINITION-TYPE ...) ; compiling (DEFSTRUCT (APPROXIMATE-FUN-TYPE #) ...) ; compiling (DEFSTRUCT (APPROXIMATE-KEY-INFO #) ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-FUN-USE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN VALID-APPROXIMATE-TYPE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-APPROXIMATE-FIXED-AND-REST ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-APPROXIMATE-ARG-TYPE ...) ; compiling (DEFUN CHECK-APPROXIMATE-KEYWORDS ...) ; compiling (DEFUN TRY-TYPE-INTERSECTIONS ...) ; compiling (DEFUN FIND-OPTIONAL-DISPATCH-TYPES ...) ; compiling (DEFUN FIND-LAMBDA-TYPES ...) ; compiling (DEFUN ASSERT-DEFINITION-TYPE ...) ; compiling (DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE ...) ; compiling (DEFUN MASSAGE-GLOBAL-DEFINITION-TYPE ...) ; compiling (DEFUN MAP-COMBINATION-ARGS-AND-TYPES ...) ; compiling (DEFUN ASSERT-CALL-TYPE ...) ; compiling (DEFUN CHECK-CATCH-TAG-TYPE ...) ; compiling (DEFUN %COMPILE-TIME-TYPE-ERROR ...) ; compiling (DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ctype.lisp ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::ASSERT-LVAR-TYPE SB!C::LVAR SB!C::RETURNS SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: ASSERT-LVAR-TYPE ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::ASSERT-LVAR-TYPE (SB!C::RETURN-RESULT RETURN) SB!C::TYPE-RETURNS ; SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: ASSERT-LVAR-TYPE ; in: DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE ; #'SB!C:COMPILER-NOTIFY ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN VALID-APPROXIMATE-TYPE ; #'SB!C:COMPILER-NOTIFY ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN NOTE-FUN-USE ; (SB!C::CONSTANT-LVAR-P SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CHECK-KEY-ARGS ; (SB!C::CONSTANT-LVAR-P SB!C::K) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CHECK-ARG-TYPE ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; ; caught STYLE-WARNING: ; 1 more use of undefined function CONSTANT-LVAR-P ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ctype.lisp ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::DERIVE-NODE-TYPE SB!C:CALL SB!C::RETURNS) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::S-TYPE) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN VALID-FUN-USE ; (SB!C::IMMEDIATELY-USED-P SB!C::LVAR SB!C:CALL) ; ; caught STYLE-WARNING: ; undefined function: IMMEDIATELY-USED-P ; in: DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT) ; (SB!C::IR2-CONVERT-FULL-CALL SB!C::NODE BLOCK) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-FULL-CALL ; in: DEFUN CHECK-CATCH-TAG-TYPE ; (SB!C::LVAR-ALL-SOURCES SB!C::TAG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-ALL-SOURCES ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::LVAR-DERIVED-TYPE (SB!C::RETURN-RESULT RETURN)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-DERIVED-TYPE ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::LVAR-HAS-SINGLE-USE-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-HAS-SINGLE-USE-P ; in: DEFUN MAP-COMBINATION-ARGS-AND-TYPES ; (SB!C::LVAR-TYPE (SB!C::COMBINATION-FUN SB!C:CALL)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN NOTE-FUN-USE ; (SB!C::LVAR-TYPE (CAR SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN CHECK-ARG-TYPE ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; ; caught STYLE-WARNING: ; 1 more use of undefined function LVAR-TYPE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ctype.lisp ; in: DEFUN NOTE-FUN-USE ; (SB!C::LVAR-VALUE SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CHECK-KEY-ARGS ; (SB!C::LVAR-VALUE SB!C::V) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CHECK-ARG-TYPE ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; ; caught STYLE-WARNING: ; 2 more uses of undefined function LVAR-VALUE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ctype.lisp ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::MAIN-ENTRY SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: MAIN-ENTRY ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; ; compilation unit finished ; Undefined functions: ; ASSERT-LVAR-TYPE COMPILER-NOTIFY CONSTANT-LVAR-P DERIVE-NODE-TYPE IMMEDIATELY-USED-P IR2-CONVERT-FULL-CALL LVAR-ALL-SOURCES LVAR-DERIVED-TYPE LVAR-HAS-SINGLE-USE-P LVAR-TYPE LVAR-VALUE MAIN-ENTRY REOPTIMIZE-LVAR ; caught 25 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/ctype.fasl-tmp written ; compilation finished in 0:00:00.339 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/disassem.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!DISASSEM") ; compiling (DEF!CONSTANT LABEL-COLUMN-WIDTH ...) ; compiling (DEFTYPE TEXT-WIDTH ...) ; compiling (DEFTYPE ALIGNMENT ...) ; compiling (DEFTYPE OFFSET ...) ; compiling (DEFTYPE ADDRESS ...) ; compiling (DEFTYPE DISASSEM-LENGTH ...) ; compiling (DEFTYPE COLUMN ...) ; compiling (DEF!CONSTANT MAX-FILTERED-VALUE-INDEX ...) ; compiling (DEFTYPE FILTERED-VALUE-INDEX ...) ; compiling (DEFTYPE FILTERED-VALUE-VECTOR ...) ; compiling (DEFVAR *DISASSEM-INSTS* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *DISASSEM-INST-SPACE* ...) ; compiling (DEFVAR *DISASSEM-INST-ALIGNMENT-BYTES* ...) ; compiling (DECLAIM (TYPE ALIGNMENT ...)) ; compiling (DEFVAR *DISASSEM-LOCATION-COLUMN-WIDTH* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *DISASSEM-OPCODE-COLUMN-WIDTH* ...) ; compiling (DECLAIM (TYPE TEXT-WIDTH ...)) ; compiling (DEFVAR *DISASSEM-INST-COLUMN-WIDTH* ...) ; compiling (DECLAIM (TYPE TEXT-WIDTH ...)) ; compiling (DEFVAR *DISASSEM-NOTE-COLUMN* ...) ; compiling (DEFSTRUCT (FUN-CACHE # ...) ...) ; compiling (DEFVAR *DISASSEM-FUN-CACHE* ...) ; compiling (DECLAIM (TYPE FUN-CACHE ...)) ; compiling (DECLAIM (INLINE DCHUNK-OR ...)) ; compiling (DEF!CONSTANT DCHUNK-BITS ...) ; compiling (DEFTYPE DCHUNK ...) ; compiling (DEFTYPE DCHUNK-INDEX ...) ; compiling (DEF!CONSTANT DCHUNK-ZERO ...) ; compiling (DEF!CONSTANT DCHUNK-ONE ...) ; compiling (DEFUN DCHUNK-EXTRACT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/disassem.lisp ; in: DEFUN DCHUNK-EXTRACT ; (THE SB!DISASSEM:DCHUNK ; (SB-XC:LDB SB!DISASSEM::POS (THE SB!DISASSEM:DCHUNK SB!DISASSEM::FROM))) ; ; note: type assertion too complex to check: ; (VALUES (UNSIGNED-BYTE 64) &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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/disassem.lisp ; in: DEFUN DCHUNK-MAKE-MASK ; (THE SB!DISASSEM:DCHUNK (SB-XC:MASK-FIELD SB!DISASSEM::POS -1)) ; ; note: type assertion too complex to check: ; (VALUES (UNSIGNED-BYTE 64) &REST T). ; compiling (DEFUN DCHUNK-MAKE-FIELD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/disassem.lisp ; in: DEFUN DCHUNK-MAKE-FIELD ; (THE SB!DISASSEM:DCHUNK (SB-XC:DPB SB!DISASSEM::VALUE SB!DISASSEM::POS 0)) ; ; note: type assertion too complex to check: ; (VALUES (UNSIGNED-BYTE 64) &REST T). ; compiling (DEFMACRO MAKE-DCHUNK ...) ; compiling (DEFUN SAP-REF-DCHUNK ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/disassem.lisp ; in: DEFUN SAP-REF-DCHUNK ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: The first argument never returns a value. ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) ; 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))) ; ==> ; (+ ; (+ ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))) ; ; note: The second argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: The first argument never returns a value. ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) ; 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) ; 24)) ; --> + + ; ==> ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 48) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 40) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 32) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 24) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: The first argument never returns a value. ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) ; 48) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) ; 40) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) ; 32) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) ; 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) ; 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET))) ; ==> ; (+ ; (+ (+ (+ (+ # #) (ASH # 24)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) ; 8)) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET))) ; ; note: The second argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: The first argument never returns a value. ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) ; 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) ; 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) ; 32) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) ; 40) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) ; 48) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET)) ; 56)) ; --> + + + + + + ; ==> ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 32) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 40) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 48) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET)) 56) ; ; note: The first argument never returns a value. ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 48) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 40) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 32) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: deleting unreachable code ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) ; ==> ; SB!DISASSEM::SAP ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 24) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 32) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 40) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 48) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: deleting unreachable code ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) ; ==> ; SB!DISASSEM::SAP ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24) ; ; note: deleting unreachable code ; (THE SB!DISASSEM:DCHUNK ; (ECASE SB!DISASSEM::DCHUNK-BITS ; (32 ; (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN) ; (+ # # # #) ; (+ # # # #))) ; (64 ; (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN) ; (+ # # # # # # # #) ; (+ # # # # # # # #))))) ; ; note: deleting unreachable code ; (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN) ; ==> ; SB!DISASSEM::BYTE-ORDER ; ; note: deleting unreachable code ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) ; ==> ; SB!DISASSEM::SAP ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN DCHUNK-CORRECTED-EXTRACT ...) ; compiling (DEFMACRO DCHUNK-INSERTF ...) ; compiling (DEFUN DCHUNK= ...) ; compiling (DEFMACRO DCHUNK-ZEROP ...) ; compiling (DEFUN DCHUNK-STRICT-SUPERSET-P ...) ; compiling (DEFUN DCHUNK-COUNT-BITS ...) ; compiling (DEFSTRUCT (INSTRUCTION # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFSTRUCT (INST-SPACE # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFSTRUCT (INST-SPACE-CHOICE # ...) ...) ; compiling (DEFVAR *ARG-FORM-KINDS* ...) ; compiling (DEFSTRUCT (ARG-FORM-KIND #) ...) ; compiling (DEFUN ARG-FORM-KIND-OR-LOSE ...) ; compiling (DEFUN FIND-ARG-FORM-PRODUCER ...) ; compiling (DEFUN FIND-ARG-FORM-CHECKER ...) ; compiling (DEFUN CANONICALIZE-ARG-FORM-KIND ...) ; compiling (DEFVAR *DISASSEM-INST-FORMATS* ...) ; compiling (DEFVAR *DISASSEM-ARG-TYPES* ...) ; compiling (DEFVAR *DISASSEM-FUN-CACHE* ...) ; compiling (DEFSTRUCT (ARG # ...) ...) ; compiling (DEFSTRUCT (INSTRUCTION-FORMAT # ...) ...) ; compiling (DEFSTRUCT (FUNSTATE # ...) ...) ; compiling (DEFUN MAKE-FUNSTATE ...) ; compiling (DEFUN FUNSTATE-COMPATIBLE-P ...) ; compiling (DEFUN ARG-OR-LOSE ...) ; compiling (DEFSTRUCT (VALSRC # ...) ...) ; compiling (DEFUN MAKE-VALSRC ...) ; compiling (DEFVAR *CURRENT-INSTRUCTION-FLAVOR* ...) ; compiling (DEFUN PD-ERROR ...) ; compiling (DEFUN SELF-EVALUATING-P ...) ; compiling (DEFUN MAYBE-QUOTE ...) ; compiling (DEFUN DOESNT-NEED-WRAPPING-P ...) ; compiling (DEFUN MAKE-WRAPPER ...) ; compiling (DEFUN FILTER-OVERRIDES ...) ; compiling (DEFPARAMETER *ARG-FUN-PARAMS* ...) ; compiling (DEFUN MUNGE-FUN-REFS ...) ; compiling (DEFUN GEN-ARGS-DEF-FORM ...) ; compiling (DEFUN GEN-PRINTER-DEF-FORMS-DEF-FORM ...) ; compiling (DEFUN UPDATE-ARGS-FORM ...) ; compiling (DEFUN FORMAT-OR-LOSE ...) ; compiling (DEFMACRO DEFINE-INSTRUCTION-FORMAT ...) ; compiling (DEFUN MAKE-ARG ...) ; compiling (DEFUN COPY-ARG ...) ; compiling (DEFUN MODIFY-OR-ADD-ARG ...) ; compiling (DEFUN MODIFY-ARG ...) ; compiling (DEFMACRO ARG-ACCESS-MACRO ...) ; compiling (DEFUN ARG-VALUE-FORM ...) ; compiling (DEFUN CORRECT-DCHUNK-BYTESPEC-FOR-ENDIANNESS ...) ; compiling (DEFUN MAKE-ARG-TEMP-BINDINGS ...) ; compiling (DEFUN GEN-ARG-FORMS ...) ; compiling (DEFUN MAYBE-LISTIFY ...) ; compiling (DEFUN SET-ARG-FROM-TYPE ...) ; compiling (DEFUN GET-ARG-TEMP ...) ; compiling (DEFUN SET-ARG-TEMPS ...) ; compiling (DEFMACRO DEFINE-ARG-TYPE ...) ; compiling (DEFMACRO DEF-ARG-FORM-KIND ...) ; compiling (DEF-ARG-FORM-KIND (:RAW) ...) ; compiling (DEF-ARG-FORM-KIND (:SIGN-EXTENDED :UNFILTERED) ...) ; compiling (DEFUN VALSRC-EQUAL ...) ; compiling (DEF-ARG-FORM-KIND (:FILTERING) ...) ; compiling (DEF-ARG-FORM-KIND (:FILTERED :UNADJUSTED) ...) ; compiling (DEF-ARG-FORM-KIND (:ADJUSTED :NUMERIC ...) ...) ; compiling (DEF-ARG-FORM-KIND (:LABELLED :FINAL) ...) ; compiling (DEF-ARG-FORM-KIND (:PRINTED) ...) ; compiling (DEFUN REMEMBER-PRINTER-USE ...) ; compiling (DEFUN SOURCE-FORM ...) ; compiling (DEFUN VALUE-OR-SOURCE ...) ; compiling (DEFSTRUCT (CACHED-FUN # ...) ...) ; compiling (DEFUN FIND-CACHED-FUN ...) ; compiling (DEFMACRO !WITH-CACHED-FUN ...) ; compiling (DEFUN FIND-PRINTER-FUN ...) ; compiling (DEFUN MAKE-PRINTER-DEFUN ...) ; compiling (DEFUN PREPROCESS-TEST ...) ; compiling (DEFUN PREPROCESS-CONDITIONALS ...) ; compiling (DEFUN PREPROCESS-PRINTER ...) ; compiling (DEFUN FIND-FIRST-FIELD-NAME ...) ; compiling (DEFUN PREPROCESS-CHOOSES ...) ; compiling (DEFUN SHARING-CONS ...) ; compiling (DEFUN SHARING-MAPCAR ...) ; compiling (DEFUN ALL-ARG-REFS-RELEVANT-P ...) ; compiling (DEFUN PICK-PRINTER-CHOICE ...) ; compiling (DEFUN COMPILE-PRINTER-LIST ...) ; compiling (DEFUN COMPILE-PRINTER-BODY ...) ; compiling (DEFUN COMPILE-PRINT ...) ; compiling (DEFUN STRING-OR-QSYM-P ...) ; compiling (DEFUN STRIP-QUOTE ...) ; compiling (DEFUN COMPARE-FIELDS-FORM ...) ; compiling (DEFUN COMPILE-TEST ...) ; compiling (DEFUN FIND-LABELLER-FUN ...) ; compiling (DEFUN FIND-PREFILTER-FUN ...) ; compiling (DEFUN COMPUTE-MASK-ID ...) ; compiling (DEFUN INSTALL-INST-FLAVORS ...) ; compiling (DECLAIM (INLINE BYTES-TO-BITS)) ; compiling (DECLAIM (MAYBE-INLINE SIGN-EXTEND ...)) ; compiling (DEFUN BYTES-TO-BITS ...) ; compiling (DEFUN BITS-TO-BYTES ...) ; compiling (DEFUN SIGN-EXTEND ...) ; compiling (DEFUN ALIGNED-P ...) ; compiling (DEFUN ALIGN ...) ; compiling (DEFUN TAB ...) ; compiling (DEFUN TAB0 ...) ; compiling (DEFUN PRINC16 ...) ; compiling (DEFUN READ-SIGNED-SUFFIX ...) ; compiling (DEFSTRUCT (DISASSEM-STATE # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN DSTATE-CUR-ADDR ...) ; compiling (DEFUN DSTATE-NEXT-ADDR ...) ; compiling (DEFMACRO DSTATE-GET-PROP ...) ; compiling (DEFUN DSTATE-PUT-INST-PROP ...) ; compiling (DEFUN DSTATE-GET-INST-PROP ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/disassem.lisp ; in: DEFUN READ-SIGNED-SUFFIX ; (SB!DISASSEM:READ-SUFFIX LENGTH SB!DISASSEM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: READ-SUFFIX ; in: DEFUN DSTATE-NEXT-ADDR ; (SB!DISASSEM:SEG-VIRTUAL-LOCATION ; (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE)) ; ; caught STYLE-WARNING: ; undefined function: SEG-VIRTUAL-LOCATION ; in: DEFUN DSTATE-CUR-ADDR ; (SB!DISASSEM:SEG-VIRTUAL-LOCATION ; (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE)) ; ; caught STYLE-WARNING: ; undefined function: SEG-VIRTUAL-LOCATION ; in: DEF!METHOD PRINT-OBJECT ; (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE) ; ==> ; (TRULY-THE (OR NULL SB!DISASSEM:SEGMENT) ; (SB-KERNEL:%INSTANCE-REF ; (THE SB!DISASSEM:DISASSEM-STATE SB!DISASSEM::DSTATE) 4)) ; ; caught STYLE-WARNING: ; undefined type: SEGMENT ; in: DEFSTRUCT DISASSEM-STATE ; (DEFSTRUCT ; (SB!DISASSEM:DISASSEM-STATE (:CONC-NAME SB!DISASSEM::DSTATE-) ; (:CONSTRUCTOR SB!DISASSEM::%MAKE-DSTATE) (:COPIER NIL)) ; (SB!DISASSEM::CUR-OFFS 0 :TYPE SB!DISASSEM::OFFSET) ; (SB!DISASSEM::NEXT-OFFS 0 :TYPE SB!DISASSEM::OFFSET) ; (SB!DISASSEM::SEGMENT-SAP NIL :TYPE (OR NULL SB!SYS:SYSTEM-AREA-POINTER)) ; (SB!DISASSEM:SEGMENT NIL :TYPE (OR NULL SB!DISASSEM:SEGMENT)) ; (SB!DISASSEM::ALIGNMENT SB!VM:N-WORD-BYTES :TYPE SB!DISASSEM::ALIGNMENT) ; (SB!DISASSEM::BYTE-ORDER :LITTLE-ENDIAN :TYPE ; (MEMBER :BIG-ENDIAN :LITTLE-ENDIAN)) ; (SB!DISASSEM::PROPERTIES NIL :TYPE LIST) ; (SB!DISASSEM::INST-PROPERTIES NIL :TYPE LIST) ; (SB!DISASSEM::FILTERED-VALUES ; (MAKE-ARRAY SB!DISASSEM::MAX-FILTERED-VALUE-INDEX) :TYPE ; SB!DISASSEM::FILTERED-VALUE-VECTOR) ; (SB!DISASSEM::ADDR-PRINT-LEN NIL :TYPE (OR NULL (INTEGER 0 20))) ; ...) ; ; caught STYLE-WARNING: ; undefined type: SEGMENT ; ; compilation unit finished ; Undefined type: ; SEGMENT ; Undefined functions: ; READ-SUFFIX SEG-VIRTUAL-LOCATION ; caught 5 STYLE-WARNING conditions ; printed 53 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/disassem.fasl-tmp written ; compilation finished in 0:00:00.645 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/assem.lisp" (written 28 JUN 2014 03:46:25 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 (DEFUN COMPACT-SEGMENT-BUFFER ...) ; compiling (DEFMACRO %%CURRENT-SEGMENT%% ...) ; compiling (DEFVAR **CURRENT-SEGMENT**) ; compiling (DEFMACRO %%CURRENT-VOP%% ...) ; compiling (DEFVAR **CURRENT-VOP** ...) ; compiling (DEF DEF!MACRO ...) ; compiling (DEF SB-XC:DEFMACRO ...) ; compiling (DEFMACRO INST ...) ; compiling (DEFMACRO EMIT-LABEL ...) ; compiling (DEFMACRO EMIT-POSTIT ...) ; compiling (DEFMACRO EMIT-ALIGNMENT ...) ; compiling (DEFUN LABEL-POSITION ...) ; compiling (DEFUN APPEND-SEGMENT ...) ; compiling (DEFUN FINALIZE-SEGMENT ...) ; compiling (DEFUN SEGMENT-CONTENTS-AS-VECTOR ...) ; compiling (DEFUN WRITE-SEGMENT-CONTENTS ...) ; compiling (DEFMACRO DEFINE-BITFIELD-EMITTER ...) ; compiling (DEFUN GROVEL-LAMBDA-LIST ...) ; compiling (DEFUN EXTRACT-NTHS ...) ; compiling (DEFMACRO DEFINE-INSTRUCTION ...) ; compiling (DEFMACRO DEFINE-INSTRUCTION-MACRO ...) ; compiling (DEFUN %DEFINE-INSTRUCTION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/assem.lisp ; in: DEF SB-XC:DEFMACRO ; (SB!ASSEM::DEF SB-XC:DEFMACRO SB!INT:%MACROEXPAND) ; --> SB-XC:DEFMACRO PROGN EVAL-WHEN SB!C::%DEFMACRO LET* LET* BLOCK FLET LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!INT:%MACROEXPAND 'SB!ASSEM::..INHERITED-LABELS.. SB!ASSEM::ENV) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: ; MACROLET ((DEF (DEFMACRO MACROEXPAND) ; (SB!IMPL::BACKQ-LIST DEFMACRO 'ASSEMBLE ; '(# &BODY BODY &ENVIRONMENT ENV) ; "Execute BODY (as a progn) with SEGMENT as the current segment." ; ...))) ; (MACROLET ((SB!ASSEM::DEF (DEFMACRO MACROEXPAND) ; (SB!IMPL::BACKQ-LIST DEFMACRO 'SB!ASSEM:ASSEMBLE ; '(# &BODY SB!ASSEM::BODY &ENVIRONMENT ; SB!ASSEM::ENV) ; "Execute BODY (as a progn) with SEGMENT as the current segment." ; (SB!IMPL::BACKQ-LIST 'FLET '# #)))) ; (SB!ASSEM::DEF SB!INT:DEF!MACRO MACROEXPAND) ; (SB!ASSEM::DEF SB-XC:DEFMACRO SB!INT:%MACROEXPAND)) ; --> PROGN FUNCTION LET* LET* BLOCK FLET LET* MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!INT:%MACROEXPAND 'SB!ASSEM::..INHERITED-LABELS.. SB!ASSEM::ENV) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: DEFUN EMIT-SKIP ; (SB!VM:EMIT-LONG-NOP SB!ASSEM:SEGMENT SB!ASSEM::AMOUNT) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:EMIT-LONG-NOP ; in: DEFUN SCHEDULE-PENDING-INSTRUCTIONS ; (SB!C:EMIT-NOP SB!ASSEM:SEGMENT) ; ; caught STYLE-WARNING: ; undefined function: SB!C:EMIT-NOP ; in: DEF!METHOD PRINT-OBJECT ; (SB!C:LABEL-ID SB!ASSEM:LABEL) ; ; caught STYLE-WARNING: ; undefined function: SB!C:LABEL-ID ; in: DEFUN NOTE-WRITE-DEPENDENCY ; (SB!C:LOCATION-NUMBER WRITE) ; ; caught STYLE-WARNING: ; undefined function: SB!C:LOCATION-NUMBER ; in: DEFUN NOTE-READ-DEPENDENCY ; (SB!C:LOCATION-NUMBER READ) ; ; caught STYLE-WARNING: ; undefined function: SB!C:LOCATION-NUMBER ; ; compilation unit finished ; Undefined functions: ; %MACROEXPAND SB!VM:EMIT-LONG-NOP SB!C:EMIT-NOP SB!C:LABEL-ID SB!C:LOCATION-NUMBER ; caught 7 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/assem.fasl-tmp written ; compilation finished in 0:00:00.771 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/debug-info.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-CONTEXT-P ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-COUNT-P ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ENVIRONMENT-LIVE ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-SAVE-LOC-P ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ID-P ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MINIMAL-P ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-DELETED-P ...) ; compiling (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 (DEFCONSTANT +DEBUG-INFO-SOURCE-INDEX+ ...) ; compiling (DEF!STRUCT (COMPILED-DEBUG-INFO #) ...) ; compiling (DEFVAR *!INITIAL-DEBUG-SOURCES*) ; compiling (DEFUN !DEBUG-INFO-COLD-INIT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/debug-info.fasl-tmp written ; compilation finished in 0:00:00.189 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/dump.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFSTRUCT (FASL-OUTPUT # ...) ...) ; compiling (DEFSTRUCT (CIRCULARITY #) ...) ; compiling (DEFVAR *CIRCULARITIES-DETECTED*) ; compiling (DEFVAR *DUMP-ONLY-VALID-STRUCTURES* ...) ; compiling (DEFUN DUMP-BYTE ...) ; compiling (DEFUN DUMP-WORD ...) ; compiling (DEFUN DUMP-UNSIGNED-BYTE-32 ...) ; compiling (DEFUN DUMP-INTEGER-AS-N-BYTES ...) ; compiling (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 OPEN-FASL-OUTPUT ...) ; compiling (DEFUN CLOSE-FASL-OUTPUT ...) ; compiling (DEFUN DUMP-NON-IMMEDIATE-OBJECT ...) ; compiling (DEFUN SUB-DUMP-OBJECT ...) ; compiling (DEFUN DUMP-CIRCULARITIES ...) ; compiling (DEFUN DUMP-OBJECT ...) ; compiling (DEFUN FASL-DUMP-LOAD-TIME-VALUE-LAMBDA ...) ; compiling (DEFUN FASL-CONSTANT-ALREADY-DUMPED-P ...) ; compiling (DEFUN FASL-NOTE-HANDLE-FOR-CONSTANT ...) ; compiling (DEFUN FASL-VALIDATE-STRUCTURE ...) ; compiling (DEFUN DUMP-RATIO ...) ; compiling (DEFUN DUMP-INTEGER ...) ; compiling (DEFUN DUMP-FLOAT ...) ; compiling (DEFUN DUMP-COMPLEX-SINGLE-FLOAT ...) ; compiling (DEFUN DUMP-COMPLEX-DOUBLE-FLOAT ...) ; compiling (DEFUN DUMP-COMPLEX-RATIONAL ...) ; compiling (DEFUN DUMP-COMPLEX ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DUMP-PACKAGE ...) ; compiling (DEFUN DUMP-LIST ...) ; compiling (DEFUN TERMINATE-DOTTED-LIST ...) ; compiling (DEFUN TERMINATE-UNDOTTED-LIST ...) ; compiling (DEFUN DUMP-ARRAY ...) ; compiling (DEFUN DUMP-VECTOR ...) ; compiling (DEFUN DUMP-SIMPLE-VECTOR ...) ; compiling (DEFUN DUMP-SPECIALIZED-VECTOR ...) ; compiling (DEFUN DUMP-CHARACTER ...) ; compiling (DEFUN DUMP-BASE-CHARS-OF-STRING ...) ; compiling (DEFUN DUMP-SIMPLE-BASE-STRING ...) ; compiling (DEFUN DUMP-SYMBOL ...) ; compiling (DEFUN DUMP-SEGMENT ...) ; compiling (DEFUN DUMP-FIXUPS ...) ; compiling (DEFUN DUMP-CODE-OBJECT ...) ; compiling (DEFUN DUMP-ASSEMBLER-ROUTINES ...) ; compiling (DEFUN DUMP-ONE-ENTRY ...) ; compiling (DEFUN DUMP-ALTER-CODE-OBJECT ...) ; compiling (DEFUN FASL-DUMP-COMPONENT ...) ; compiling (DEFUN DUMP-PUSH-PREVIOUSLY-DUMPED-FUN ...) ; compiling (DEFUN FASL-DUMP-TOPLEVEL-LAMBDA-CALL ...) ; compiling (DEFUN FASL-DUMP-COLD-FSET ...) ; compiling (DEFUN FASL-DUMP-SOURCE-INFO ...) ; compiling (DEFUN DUMP-STRUCTURE ...) ; compiling (DEFUN DUMP-LAYOUT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/dump.lisp ; in: DEFUN DUMP-STRUCTURE ; (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!ALIEN:STRUCT (- LENGTH SB!INT:INDEX 1)) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/WORD ; in: DEFUN DUMP-NON-IMMEDIATE-OBJECT ; (SB!KERNEL:%SIMD-PACK-HIGH SB!FASL::X) ; ; caught STYLE-WARNING: ; undefined function: %SIMD-PACK-HIGH ; (SB!KERNEL:%SIMD-PACK-LOW SB!FASL::X) ; ; caught STYLE-WARNING: ; undefined function: %SIMD-PACK-LOW ; (SB!KERNEL:%SIMD-PACK-TAG SB!FASL::X) ; ; caught STYLE-WARNING: ; undefined function: %SIMD-PACK-TAG ; in: DEFUN DUMP-CODE-OBJECT ; (SB!C::DEBUG-INFO-FOR-COMPONENT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-INFO-FOR-COMPONENT ; in: DEFUN FASL-DUMP-SOURCE-INFO ; (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-SOURCE-FOR-INFO ; in: DEFUN DUMP-ARRAY ; (SB!FASL::DUMP-MULTI-DIM-ARRAY SB!FASL::X SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-MULTI-DIM-ARRAY ; in: DEFUN DUMP-FIXUPS ; (SB!C:FIXUP-FLAVOR SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-FLAVOR ; (SB!C:FIXUP-NAME SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NAME ; (SB!C:FIXUP-NOTE-FIXUP SB!FASL::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-FIXUP ; (SB!C:FIXUP-NOTE-KIND SB!FASL::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-KIND ; (SB!C:FIXUP-NOTE-POSITION SB!FASL::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-POSITION ; in: DEFUN OPEN-FASL-OUTPUT ; (SB!EXT:NATIVE-NAMESTRING SB!EXT:*RUNTIME-PATHNAME* :AS-FILE T) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-NAMESTRING ; in: DEFUN DUMP-NON-IMMEDIATE-OBJECT ; (TYPECASE SB!FASL::X ; (SYMBOL (SB!FASL::DUMP-SYMBOL SB!FASL::X SB!FASL::FILE)) ; (LIST ; (IF (SB!INT:MAYBE-CYCLIC-P SB!FASL::X) ; (PROGN ; (SB!FASL::DUMP-LIST SB!FASL::X SB!FASL::FILE) ; (SB!FASL::EQ-SAVE-OBJECT SB!FASL::X SB!FASL::FILE)) ; (UNLESS (SB!FASL::EQUAL-CHECK-TABLE SB!FASL::X SB!FASL::FILE) ; (SB!FASL::DUMP-LIST SB!FASL::X SB!FASL::FILE) ; (SB!FASL::EQUAL-SAVE-OBJECT SB!FASL::X SB!FASL::FILE)))) ; (SB!KERNEL:LAYOUT ; (SB!FASL::DUMP-LAYOUT SB!FASL::X SB!FASL::FILE) ; (SB!FASL::EQ-SAVE-OBJECT SB!FASL::X SB!FASL::FILE)) ; (SB!KERNEL:INSTANCE ; (SB!FASL::DUMP-STRUCTURE SB!FASL::X SB!FASL::FILE) ; (SB!FASL::EQ-SAVE-OBJECT SB!FASL::X SB!FASL::FILE)) ; (ARRAY (SB!FASL::DUMP-ARRAY SB!FASL::X SB!FASL::FILE)) ; (NUMBER ; (UNLESS (SB!FASL::EQUAL-CHECK-TABLE SB!FASL::X SB!FASL::FILE) ; (ETYPECASE SB!FASL::X (RATIO #) (COMPLEX #) (FLOAT #) (INTEGER #)) ; (SB!FASL::EQUAL-SAVE-OBJECT SB!FASL::X SB!FASL::FILE))) ; (SB!EXT:SIMD-PACK ; (UNLESS (SB!FASL::EQUAL-CHECK-TABLE SB!FASL::X SB!FASL::FILE) ; (SB!FASL::DUMP-FOP 'SB!FASL::FOP-SIMD-PACK SB!FASL::FILE) ; (SB!FASL::DUMP-INTEGER-AS-N-BYTES (SB!KERNEL:%SIMD-PACK-TAG SB!FASL::X) ; 8 SB!FASL::FILE) ; (SB!FASL::DUMP-INTEGER-AS-N-BYTES (SB!KERNEL:%SIMD-PACK-LOW SB!FASL::X) ; 8 SB!FASL::FILE) ; (SB!FASL::DUMP-INTEGER-AS-N-BYTES (SB!KERNEL:%SIMD-PACK-HIGH SB!FASL::X) ; 8 SB!FASL::FILE)) ; (SB!FASL::EQUAL-SAVE-OBJECT SB!FASL::X SB!FASL::FILE)) ; (T ; (ERROR "This object cannot be dumped into a fasl file:~% ~S" SB!FASL::X))) ; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G419 'SB!EXT:SIMD-PACK) ; ; caught STYLE-WARNING: ; undefined type: SIMD-PACK ; in: DEFUN FASL-DUMP-SOURCE-INFO ; (DEFUN SB!FASL:FASL-DUMP-SOURCE-INFO (SB!INT:INFO SB!FASL:FASL-OUTPUT) ; (DECLARE (TYPE SB!C::SOURCE-INFO SB!INT:INFO)) ; (LET ((SB!FASL::RES (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO)) ; (SB!FASL::*DUMP-ONLY-VALID-STRUCTURES* NIL)) ; (SETF (SB!C::DEBUG-SOURCE-CREATED SB!FASL::RES) 0 ; (SB!C::DEBUG-SOURCE-COMPILED SB!FASL::RES) 0) ; (SB!FASL:DUMP-OBJECT SB!FASL::RES SB!FASL:FASL-OUTPUT) ; (LET ((SB!FASL::RES-HANDLE #)) ; (DOLIST (SB!FASL::INFO-HANDLE #) ; (SB!FASL::DUMP-PUSH SB!FASL::RES-HANDLE SB!FASL:FASL-OUTPUT) ; (SB!FASL::DUMP-FOP 'SB!FASL::FOP-STRUCTSET SB!FASL:FASL-OUTPUT) ; (SB!FASL::DUMP-WORD SB!FASL::INFO-HANDLE SB!FASL:FASL-OUTPUT) ; (SB!FASL::DUMP-WORD SB!C::+DEBUG-INFO-SOURCE-INDEX+ ; SB!FASL:FASL-OUTPUT)) ; (PROGN ; (SB!FASL::DUMP-PUSH SB!FASL::RES-HANDLE SB!FASL:FASL-OUTPUT) ; (SB!FASL::DUMP-FOP 'SB!FASL::FOP-NOTE-DEBUG-SOURCE ; SB!FASL:FASL-OUTPUT)))) ; (SETF (SB!FASL::FASL-OUTPUT-DEBUG-INFO SB!FASL:FASL-OUTPUT) NIL) ; (VALUES)) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF ; ==> ; (TYPEP #:G1040 'SB!C::SOURCE-INFO) ; ; caught STYLE-WARNING: ; undefined type: SB!C::SOURCE-INFO ; (TYPE SB!C::SOURCE-INFO SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined type: SB!C::SOURCE-INFO ; ; compilation unit finished ; Undefined types: ; SIMD-PACK SB!C::SOURCE-INFO ; Undefined functions: ; %RAW-INSTANCE-REF/WORD %SIMD-PACK-HIGH %SIMD-PACK-LOW %SIMD-PACK-TAG SB!C::DEBUG-INFO-FOR-COMPONENT SB!C::DEBUG-SOURCE-FOR-INFO DUMP-MULTI-DIM-ARRAY FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION NATIVE-NAMESTRING ; caught 16 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/dump.fasl-tmp written ; compilation finished in 0:00:00.450 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/main.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *CONSTANTS* ...)) ; compiling (DEFVAR *FLAME-ON-NECESSARILY-UNDEFINED-THING* ...) ; compiling (DEFVAR *CHECK-CONSISTENCY* ...) ; compiling (DEFVAR *LOOP-ANALYZE* ...) ; compiling (DEFVAR *COMPILER-TRACE-OUTPUT* ...) ; compiling (DEFVAR *BLOCK-COMPILE*) ; compiling (DEFVAR *BLOCK-COMPILE-ARG*) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *ENTRY-POINTS*) ; compiling (DECLAIM (LIST *ENTRY-POINTS*)) ; compiling (DEFVAR *TOPLEVEL-LAMBDAS*) ; compiling (DECLAIM (LIST *TOPLEVEL-LAMBDAS*)) ; compiling (DEFVAR *TOP-LEVEL-FORM-NOTED* ...) ; compiling (DEFVAR SB-XC:*COMPILE-VERBOSE* ...) ; compiling (DEFVAR SB-XC:*COMPILE-PRINT* ...) ; compiling (DEFVAR *COMPILE-PROGRESS* ...) ; compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME* ...) ; compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *SOURCE-INFO* ...) ; compiling (DEFVAR *IN-COMPILATION-UNIT* ...) ; compiling (DEFVAR *ABORTED-COMPILATION-UNIT-COUNT*) ; compiling (DEFUN MAYBE-MUMBLE ...) ; compiling (DEFTYPE OBJECT ...) ; compiling (DEFVAR *COMPILE-OBJECT* ...) ; compiling (DECLAIM (TYPE OBJECT ...)) ; compiling (DEFVAR *COMPILE-TOPLEVEL-OBJECT* ...) ; compiling (DEFVAR *EMIT-CFASL* ...) ; compiling (DEFVAR *FOPCOMPILE-LABEL-COUNTER*) ; compiling (DEFVAR *CODE-COVERAGE-RECORDS* ...) ; compiling (DEFVAR *CODE-COVERAGE-BLOCKS* ...) ; compiling (DEFVAR *CODE-COVERAGE-INFO* ...) ; compiling (DEFMACRO SB-XC:WITH-COMPILATION-UNIT ...) ; compiling (DEFVAR *SOURCE-PLIST* ...) ; compiling (DEFVAR *SOURCE-NAMESTRING* ...) ; compiling (DEFUN %WITH-COMPILATION-UNIT ...) ; compiling (DEFUN NAME-RESERVED-BY-ANSI-P ...) ; compiling (DEFUN SUMMARIZE-COMPILATION-UNIT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/main.lisp ; in: DEFUN SUMMARIZE-COMPILATION-UNIT ; (ECASE SB!C::KIND ; (:FUNCTION ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME)) ; (:TYPE ; (IF (AND (CONSP SB!C::NAME) (EQ 'QUOTE #)) ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME 'QUOTE) ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME SB!C::NAME)))) ; --> LET ; ==> ; SB!C::KIND ; ; note: deleting unreachable code ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME) ; ==> ; "~@" ; ; note: deleting unreachable code ; (CONSP SB!C::NAME) ; ==> ; SB!C::NAME ; ; note: deleting unreachable code ; 'QUOTE ; ; note: deleting unreachable code ; (IF (AND (CONSP SB!C::NAME) (EQ 'QUOTE (CAR SB!C::NAME))) ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME 'QUOTE) ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME SB!C::NAME)) ; ; note: deleting unreachable code ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME 'QUOTE) ; ==> ; "~@" ; ; note: deleting unreachable code ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME SB!C::NAME) ; ==> ; "~@" ; ; note: deleting unreachable code ; compiling (DEFMACRO WITH-COMPILATION-VALUES ...) ; compiling (DEFPARAMETER *MAX-OPTIMIZE-ITERATIONS* ...) ; compiling (DEFEVENT IR1-OPTIMIZE-UNTIL-DONE ...) ; compiling (DEFEVENT IR1-OPTIMIZE-MAXED-OUT ...) ; compiling (DEFUN IR1-OPTIMIZE-UNTIL-DONE ...) ; compiling (DEFPARAMETER *CONSTRAINT-PROPAGATE* ...) ; compiling (DEFPARAMETER *REOPTIMIZE-AFTER-TYPE-CHECK-MAX* ...) ; compiling (DEFEVENT REOPTIMIZE-MAXED-OUT ...) ; compiling (DEFUN DFO-AS-NEEDED ...) ; compiling (DEFUN IR1-PHASES ...) ; compiling (DEFUN %COMPILE-COMPONENT ...) ; compiling (DEFUN DELETE-IF-NO-ENTRIES ...) ; compiling (DEFUN COMPILE-COMPONENT ...) ; compiling (DEFUN CLEAR-CONSTANT-INFO ...) ; compiling (DEFUN CLEAR-IR1-INFO ...) ; compiling (DEFUN DESCRIBE-COMPONENT ...) ; compiling (DEFUN DESCRIBE-IR2-COMPONENT ...) ; compiling (DEF!STRUCT (FILE-INFO # ...) ...) ; 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 EVAL-COMPILE-TOPLEVEL ...) ; compiling (DEFUN PROCESS-TOPLEVEL-FORM ...) ; compiling (DEFUN PRODUCING-FASL-FILE ...) ; compiling (DEFUN COMPILE-LOAD-TIME-VALUE ...) ; compiling (DEFUN COMPILE-MAKE-LOAD-FORM-INIT-FORMS ...) ; compiling (DEFUN COMPILE-LOAD-TIME-STUFF ...) ; compiling (DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA ...) ; compiling (DEFUN OBJECT-CALL-TOPLEVEL-LAMBDA ...) ; compiling (DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS ...) ; compiling (DEFUN COMPILE-TOPLEVEL-LAMBDAS ...) ; compiling (DEFUN COMPILE-TOPLEVEL ...) ; compiling (DEFUN FINISH-BLOCK-COMPILATION ...) ; compiling (DEFUN HANDLE-CONDITION-P ...) ; compiling (DEFUN HANDLE-CONDITION-HANDLER ...) ; compiling (DEFUN SUB-COMPILE-FILE ...) ; compiling (DEFUN VERIFY-SOURCE-FILE ...) ; compiling (DEFUN ELAPSED-TIME-TO-STRING ...) ; compiling (DEFUN PRINT-COMPILE-START-NOTE ...) ; compiling (DEFUN PRINT-COMPILE-END-NOTE ...) ; compiling (DEFUN SB-XC:COMPILE-FILE ...) ; compiling (DEFUN CFP-OUTPUT-FILE-DEFAULT ...) ; compiling (DEFUN SB-XC:COMPILE-FILE-PATHNAME ...) ; compiling (DEFVAR *CONSTANTS-BEING-CREATED* ...) ; compiling (DEFVAR *CONSTANTS-CREATED-SINCE-LAST-INIT* ...) ; compiling (DEFUN EMIT-MAKE-LOAD-FORM ...) ; compiling (DEFUN COMPILE-IN-LEXENV ...) ; compiling (DEFUN EVAL-TLF ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/main.lisp ; in: DEFUN IR1-PHASES ; (SB!C::EVENT SB!C::REOPTIMIZE-MAXED-OUT) ; ==> ; (SB!C::%EVENT SB!C::*REOPTIMIZE-MAXED-OUT-EVENT-INFO* NIL) ; ; caught STYLE-WARNING: ; undefined function: %EVENT ; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE ; (SB!C::EVENT SB!C::IR1-OPTIMIZE-UNTIL-DONE) ; ==> ; (SB!C::%EVENT SB!C::*IR1-OPTIMIZE-UNTIL-DONE-EVENT-INFO* NIL) ; ; caught STYLE-WARNING: ; undefined function: %EVENT ; in: DEFUN PREPROCESSOR-MACROEXPAND-1 ; (SB!INT:%MACROEXPAND-1 SB!KERNEL:FORM SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND-1 ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::CHECK-IR1-CONSISTENCY SB!C::ALL-COMPONENTS) ; ; caught STYLE-WARNING: ; undefined function: CHECK-IR1-CONSISTENCY ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::CHECK-IR2-CONSISTENCY SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CHECK-IR2-CONSISTENCY ; (SB!C::CHECK-LIFE-CONSISTENCY SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CHECK-LIFE-CONSISTENCY ; (SB!C::CHECK-PACK-CONSISTENCY SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CHECK-PACK-CONSISTENCY ; in: DEFUN HANDLE-CONDITION-HANDLER ; (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT* ; (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)) ; (SB!C::COMPILER-ERROR-CONTEXT ; (LET ((SB!KERNEL:LEXENV #)) ; (SB!INT:AVER SB!KERNEL:LEXENV) ; SB!KERNEL:LEXENV)) ; (NULL SB!C:*LEXENV*)) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G2118 'SB!C::COMPILER-ERROR-CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; in: DEFUN HANDLE-CONDITION-P ; (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT* ; (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)) ; (SB!C::COMPILER-ERROR-CONTEXT ; (LET ((SB!KERNEL:LEXENV #)) ; (SB!INT:AVER SB!KERNEL:LEXENV) ; SB!KERNEL:LEXENV)) ; (NULL SB!C:*LEXENV*)) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G2102 'SB!C::COMPILER-ERROR-CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; in: DEFUN HANDLE-CONDITION-HANDLER ; (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-CONTEXT-LEXENV ; in: DEFUN HANDLE-CONDITION-P ; (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-CONTEXT-LEXENV ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (UNLESS (ZEROP #) ; (SB!C::WITH-SOURCE-PATHS ; #)) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET (#) ; (ETYPECASE SB!C::OBJECT # # #)) ; NIL))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET LET CONS LIST CONS ; ==> ; #'SB!C::COMPILER-ERROR-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-HANDLER ; in: DEFUN NOTE-TOP-LEVEL-FORM ; (SB!C::COMPILER-MUMBLE "~&; ~:[x-compiling~;x-converting~] ~S" ; SB!C::*BLOCK-COMPILE* SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-MUMBLE ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::COMPILER-MUMBLE "") ; ; caught STYLE-WARNING: ; undefined function: COMPILER-MUMBLE ; in: DEFUN MAYBE-MUMBLE ; (SB!C::COMPILER-MUMBLE "~&") ; ; caught STYLE-WARNING: ; undefined function: COMPILER-MUMBLE ; ; caught STYLE-WARNING: ; 4 more uses of undefined function COMPILER-MUMBLE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/main.lisp ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (UNLESS (ZEROP #) ; (SB!C::WITH-SOURCE-PATHS ; #)) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET (#) ; (ETYPECASE SB!C::OBJECT # # #)) ; NIL))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET LET CONS LIST CONS ; ==> ; #'SB!C::COMPILER-STYLE-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARNING-HANDLER ; in: DEFUN SUMMARIZE-COMPILATION-UNIT ; #'SB!C::COMPILER-STYLE-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARNING-HANDLER ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (UNLESS (ZEROP #) ; (SB!C::WITH-SOURCE-PATHS ; #)) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET (#) ; (ETYPECASE SB!C::OBJECT # # #)) ; NIL))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET LET 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 IR1-PHASES ; (SB!C::FLUSH-DEAD-CODE BLOCK) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-DEAD-CODE ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::FOPCOMPILABLE-P SB!KERNEL:FORM) ; ; 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::FUN) ; :SOURCE-NAME SB!C::SOURCE-NAME :DEBUG-NAME ; (SB!C::DEBUG-NAME 'SB!C::TL-XEP SB!C::DEBUG-NAME-TAIL) :SYSTEM-LAMBDA T) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDA ; (FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION :SOURCE-NAME ; SB!C::SOURCE-NAME) ; ==> ; (SB-C::%FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION ; :SOURCE-NAME SB!C::SOURCE-NAME) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDALIKE ; in: DEFUN IR1-PHASES ; (SB!C::IR1-FINALIZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: IR1-FINALIZE ; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE ; (SB!C::IR1-OPTIMIZE SB!C:COMPONENT SB!C::FASTP) ; ; caught STYLE-WARNING: ; undefined function: IR1-OPTIMIZE ; in: DEFUN COMPILE-LOAD-TIME-STUFF ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* SB!C::FOR-VALUE NIL) ; ; caught STYLE-WARNING: ; undefined function: IR1-TOPLEVEL ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::PATH NIL) ; ; caught STYLE-WARNING: ; undefined function: IR1-TOPLEVEL ; in: DEFUN %COMPILE-COMPONENT ; (SB!C:IR2-CONVERT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT ; (SB!C::IR2-OPTIMIZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: IR2-OPTIMIZE ; in: DEFUN DESCRIBE-IR2-COMPONENT ; (SB!C:LABEL-ID (SB!C::ENTRY-INFO-OFFSET SB!C::ENTRY)) ; ; caught STYLE-WARNING: ; undefined function: LABEL-ID ; in: DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA ; (SB!C::LAMBDA-COMPONENT LAMBDA) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN FUNCTIONAL-COMPONENTS ; (SB!C::LAMBDA-COMPONENT SB!C::F) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN COMPILE-COMPONENT ; (SB!C::LAMBDA-COMPONENT LAMBDA) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::LIFETIME-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LIFETIME-ANALYZE ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE SB!C::LAMBDAS) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ; in: DEFUN %COMPILE ; (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE (LIST SB!C::FUN)) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ; in: DEFUN IR1-PHASES ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::LOCALL-ANALYZE-XEP-ENTRY-POINT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-XEP-ENTRY-POINT ; in: DEFUN COMPILE-COMPONENT ; (SB!C::LOOP-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LOOP-ANALYZE ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::LTN-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LTN-ANALYZE ; (SB!C::MAKE-CORE-COMPONENT SB!C:COMPONENT SB!C:*CODE-SEGMENT* ; SB!C::CODE-LENGTH SB!C::FIXUP-NOTES SB!C::*COMPILE-OBJECT*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CORE-COMPONENT ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::MAKE-EMPTY-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: MAKE-EMPTY-COMPONENT ; in: DEFUN %COMPILE ; (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS ; SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS ; SB!C::*DISABLED-PACKAGE-LOCKS*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::MAKE-LEXENV :POLICY ; (SB!C::LEXENV-POLICY (SB!C::FUNCTIONAL-LEXENV SB!C::FUN))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS ; SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS ; SB!C::*DISABLED-PACKAGE-LOCKS*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAKE-XEP-LAMBDA-EXPRESSION ; in: DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS ; (SB!C::MERGE-TOPLEVEL-LAMBDAS SB!C::LAMBDAS) ; ; caught STYLE-WARNING: ; undefined function: MERGE-TOPLEVEL-LAMBDAS ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::NAME-LAMBDALIKE SB!C::LAMBDA-EXPRESSION) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN CLEAR-IR1-INFO ; (SB!C::NODE-COMPONENT SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; in: DEFUN COMPILE-COMPONENT ; (SB!C::NODE-COMPONENT (SB!C::LAMBDA-BIND LAMBDA)) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; in: DEFUN DELETE-IF-NO-ENTRIES ; (SB!C::NODE-COMPONENT SB!C::REF) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; ; caught STYLE-WARNING: ; 1 more use of undefined function NODE-COMPONENT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/main.lisp ; in: DEFUN %WITH-COMPILATION-UNIT ; (SB!C::NOTE-UNDEFINED-REFERENCE ; (SB!KERNEL:PARSE-UNKNOWN-TYPE-SPECIFIER SB!C::C) :TYPE) ; ; caught STYLE-WARNING: ; undefined function: NOTE-UNDEFINED-REFERENCE ; in: DEFUN %COMPILE-COMPONENT ; (SB!REGALLOC:PACK SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SB!REGALLOC:PACK ; in: DEFUN COMPILE-COMPONENT ; (SB!C::PHYSENV-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PHYSENV-ANALYZE ; in: DEFUN DESCRIBE-IR2-COMPONENT ; (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*) ; ; caught STYLE-WARNING: ; undefined function: PRE-PACK-TN-STATS ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*) ; ; caught STYLE-WARNING: ; undefined function: PRE-PACK-TN-STATS ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::PRE-PHYSENV-ANALYZE-TOPLEVEL SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PRE-PHYSENV-ANALYZE-TOPLEVEL ; in: DEFUN DESCRIBE-COMPONENT ; (SB!C::PRINT-ALL-BLOCKS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PRINT-ALL-BLOCKS ; in: DEFUN DESCRIBE-IR2-COMPONENT ; (SB!C::PRINT-IR2-BLOCKS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PRINT-IR2-BLOCKS ; in: DEFUN PROCESS-TOPLEVEL-LOCALLY ; (SB!C::PROCESS-DECLS SB!C::DECLS SB!C::VARS SB!C::FUNS) ; ; caught STYLE-WARNING: ; undefined function: PROCESS-DECLS ; in: DEFUN COMPILE-COMPONENT ; (SB!C::RECORD-COMPONENT-XREFS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: RECORD-COMPONENT-XREFS ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::REOPTIMIZE-COMPONENT SB!C:COMPONENT :MAYBE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::REPLACE-TOPLEVEL-XEPS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: REPLACE-TOPLEVEL-XEPS ; in: DEFUN %COMPILE ; (SB!C::REPLACE-TOPLEVEL-XEPS SB!C::COMPONENT-FROM-DFO) ; ; caught STYLE-WARNING: ; undefined function: REPLACE-TOPLEVEL-XEPS ; in: DEFUN IR1-PHASES ; (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :CONSTRAINT) ; ; caught STYLE-WARNING: ; undefined function: RETRY-DELAYED-IR1-TRANSFORMS ; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE ; (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :OPTIMIZE) ; ; caught STYLE-WARNING: ; undefined function: RETRY-DELAYED-IR1-TRANSFORMS ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::SELECT-REPRESENTATIONS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SELECT-REPRESENTATIONS ; in: DEFUN EVAL-COMPILE-TOPLEVEL ; (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::PATH) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-TLF-NUMBER ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::STACK-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: STACK-ANALYZE ; in: DEFUN PARSE-EVAL-WHEN-SITUATIONS ; (SB!INT:STYLE-WARN "using deprecated EVAL-WHEN situation names~{ ~S~}" ; SB!C::DEPRECATED-NAMES) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::SUBSTITUTE-LEAF-IF ; (LAMBDA (SB!C::REF) ; (LET* ((SB!C::LVAR #) (SB!C::DEST #) (SB!C::KIND #)) ; (SB!INT:NEQ :LOCAL SB!C::KIND))) ; SB!C::XEP SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF-IF ; ; compilation unit finished ; Undefined type: ; COMPILER-ERROR-CONTEXT ; Undefined functions: ; %EVENT %MACROEXPAND-1 CHECK-IR1-CONSISTENCY CHECK-IR2-CONSISTENCY CHECK-LIFE-CONSISTENCY CHECK-PACK-CONSISTENCY COMPILER-ERROR-CONTEXT-LEXENV COMPILER-ERROR-HANDLER COMPILER-MUMBLE COMPILER-STYLE-WARNING-HANDLER COMPILER-WARNING-HANDLER CONSTRAINT-PROPAGATE CONTROL-ANALYZE COPY-PROPAGATE DELETE-COMPONENT DELETE-UNREFERENCED-TNS ENTRY-ANALYZE FIND-DFO FIND-DOMINATORS FIND-INITIAL-DFO FIND-SOURCE-PATHS FLUSH-DEAD-CODE 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 IR2-OPTIMIZE LABEL-ID LAMBDA-COMPONENT LIFETIME-ANALYZE LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE LOCALL-ANALYZE-COMPONENT LOCALL-ANALYZE-XEP-ENTRY-POINT LOOP-ANALYZE LTN-ANALYZE MAKE-CORE-COMPONENT MAKE-EMPTY-COMPONENT MAKE-LEXENV MAKE-XEP-LAMBDA-EXPRESSION MERGE-TOPLEVEL-LAMBDAS NAME-LAMBDALIKE NODE-COMPONENT NOTE-UNDEFINED-REFERENCE SB!REGALLOC:PACK PHYSENV-ANALYZE PRE-PACK-TN-STATS PRE-PHYSENV-ANALYZE-TOPLEVEL PRINT-ALL-BLOCKS PRINT-IR2-BLOCKS PROCESS-DECLS RECORD-COMPONENT-XREFS REOPTIMIZE-COMPONENT REPLACE-TOPLEVEL-XEPS RETRY-DELAYED-IR1-TRANSFORMS SELECT-REPRESENTATIONS SOURCE-PATH-TLF-NUMBER STACK-ANALYZE STYLE-WARN SUBSTITUTE-LEAF-IF ; caught 94 STYLE-WARNING conditions ; printed 7 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/main.fasl-tmp written ; compilation finished in 0:00:00.859 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/xref.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *XREF-KINDS* ...) ; compiling (DEFUN RECORD-COMPONENT-XREFS ...) ; compiling (DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ...) ; compiling (DEFUN RECORD-NODE-XREFS ...) ; compiling (DEFUN INTERNAL-NAME-P ...) ; compiling (DEFUN RECORD-XREF ...) ; compiling (DEFUN RECORD-MACROEXPANSION ...) ; compiling (DEFUN RECORD-CALL ...) ; compiling (DEFUN PACK-XREF-DATA ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/xref.lisp ; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ; (SB!C::BLOCK-HOME-LAMBDA BLOCK) ; ; caught STYLE-WARNING: ; undefined function: BLOCK-HOME-LAMBDA ; in: DEFUN RECORD-NODE-XREFS ; (SB!C::CONSTANT-LVAR-P SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; (SB!C::LVAR-VALUE SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ; (SB!C::NODE-HOME-LAMBDA SB!C::REF) ; ; caught STYLE-WARNING: ; undefined function: NODE-HOME-LAMBDA ; in: DEFUN RECORD-NODE-XREFS ; (SB!C::PRINCIPAL-LVAR-USE (SB!C::COMBINATION-FUN SB!C::NODE)) ; ; caught STYLE-WARNING: ; undefined function: PRINCIPAL-LVAR-USE ; in: DEFUN RECORD-XREF ; (SB!C::SOURCE-PATH-ORIGINAL-SOURCE ; (OR SB!C::PATH (SB!C::NODE-SOURCE-PATH SB!C::NODE))) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-ORIGINAL-SOURCE ; ; compilation unit finished ; Undefined functions: ; BLOCK-HOME-LAMBDA CONSTANT-LVAR-P LVAR-VALUE NODE-HOME-LAMBDA PRINCIPAL-LVAR-USE SOURCE-PATH-ORIGINAL-SOURCE ; caught 6 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/xref.fasl-tmp written ; compilation finished in 0:00:00.054 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/source-location.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/source-location.lisp ; in: ; DEF!STRUCT (DEFINITION-SOURCE-LOCATION ; (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)) ; (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::*CURRENT-PATH*) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-TLF-NUMBER ; ; compilation unit finished ; Undefined function: ; SOURCE-PATH-TLF-NUMBER ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/source-location.fasl-tmp written ; compilation finished in 0:00:00.043 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-BAILOUT*)) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFVAR *CURRENT-FORM-NUMBER*) ; compiling (DECLAIM (HASH-TABLE *SOURCE-PATHS*)) ; compiling (DEFVAR *SOURCE-PATHS*) ; compiling (DECLAIM (INLINE SOURCE-FORM-HAS-PATH-P)) ; compiling (DEFUN SOURCE-FORM-HAS-PATH-P ...) ; compiling (DEFUN GET-SOURCE-PATH ...) ; compiling (DEFUN ENSURE-SOURCE-PATH ...) ; compiling (DEFUN SIMPLIFY-SOURCE-PATH-FORM ...) ; compiling (DEFUN NOTE-SOURCE-PATH ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *CURRENT-COMPONENT*) ; compiling (DECLAIM (LIST *CURRENT-PATH*)) ; compiling (DEFVAR *CURRENT-PATH*) ; compiling (DEFVAR *DERIVE-FUNCTION-TYPES* ...) ; compiling (DEFVAR *FUN-NAMES-IN-THIS-FILE* ...) ; compiling (DEFVAR *POST-BINDING-VARIABLE-LEXENV* ...) ; compiling (DEFUN FUN-LEXICALLY-NOTINLINE-P ...) ; compiling (DECLAIM (NOTINLINE MAYBE-UPDATE-INFO-FOR-GF)) ; compiling (DEFUN MAYBE-UPDATE-INFO-FOR-GF ...) ; compiling (DEFUN MAYBE-DEFINED-HERE ...) ; compiling (DEFUN FIND-GLOBAL-FUN ...) ; compiling (DEFUN CLEAR-INVALID-FUNCTIONALS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-FREE-FUN ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-LEXICALLY-APPARENT-FUN ...) ; compiling (DEFUN MAYBE-FIND-FREE-VAR ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-FREE-VAR ...) ; compiling (DEFUN MAYBE-EMIT-MAKE-LOAD-FORMS ...) ; compiling (DEFUN LINK-NODE-TO-PREVIOUS-CTRAN ...) ; compiling (DECLAIM (INLINE USE-CTRAN)) ; compiling (DEFUN USE-CTRAN ...) ; compiling (DEFUN %USE-CTRAN ...) ; compiling (DEFUN INSERT-NODE-BEFORE ...) ; compiling (DEFUN USE-LVAR ...) ; compiling (DECLAIM (INLINE USE-CONTINUATION)) ; compiling (DEFUN USE-CONTINUATION ...) ; compiling (DEFUN IR1-TOPLEVEL ...) ; compiling (DEFUN FIND-SOURCE-PATHS ...) ; compiling (DEFUN SUB-FIND-SOURCE-PATHS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN IR1-CONVERT ...) ; compiling (DEFUN REFERENCE-CONSTANT ...) ; compiling (DEFUN MAYBE-REANALYZE-FUNCTIONAL ...) ; compiling (DEFUN REFERENCE-LEAF ...) ; compiling (DEFUN ALWAYS-BOUNDP ...) ; compiling (DEFUN IR1-CONVERT-VAR ...) ; compiling (DEFUN FIND-COMPILER-MACRO ...) ; compiling (DEFUN IR1-CONVERT-FUNCTOID ...) ; compiling (DEFUN IR1-CONVERT-COMMON-FUNCTOID ...) ; compiling (DEFUN IR1-CONVERT-GLOBAL-FUNCTOID ...) ; compiling (DEFUN MUFFLE-WARNING-OR-DIE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran.lisp ; in: DEFUN MUFFLE-WARNING-OR-DIE ; (SB!INT:BUG "no MUFFLE-WARNING restart") ; ==> ; "no MUFFLE-WARNING restart" ; ; note: deleting unreachable code ; compiling (DEFUN CAREFUL-EXPAND-MACRO ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN IR1-CONVERT-PROGN-BODY ...) ; compiling (DEFUN INSTRUMENT-COVERAGE ...) ; compiling (DEFUN MAYBE-INSTRUMENT-PROGN-LIKE ...) ; compiling (DEFUN RECORD-CODE-COVERAGE ...) ; compiling (DEFUN CLEAR-CODE-COVERAGE ...) ; compiling (DEFUN RESET-CODE-COVERAGE ...) ; compiling (DEFUN CODE-COVERAGE-RECORD-MARKED ...) ; compiling (DEFUN STEP-FORM-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN IR1-CONVERT-COMBINATION ...) ; compiling (DEFUN IR1-CONVERT-COMBINATION-ARGS ...) ; compiling (DEFUN IR1-CONVERT-SRCTRAN ...) ; compiling (DEFVAR *INSTRUMENT-IF-FOR-CODE-COVERAGE* ...) ; compiling (DEFUN IR1-CONVERT-MAYBE-PREDICATE ...) ; compiling (DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ...) ; compiling (DEFUN IR1-CONVERT-LOCAL-COMBINATION ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-IN-BINDINGS ...) ; compiling (DEFUN PROCESS-TYPE-DECL ...) ; compiling (DEFUN PROCESS-FTYPE-DECL ...) ; compiling (DEFUN PROCESS-SPECIAL-DECL ...) ; compiling (DEFUN MAKE-NEW-INLINEP ...) ; compiling (DEFUN PROCESS-INLINE-DECL ...) ; compiling (DEFUN FIND-IN-BINDINGS-OR-FBINDINGS ...) ; compiling (DEFUN PROCESS-IGNORE-DECL ...) ; compiling (DEFUN PROCESS-EXTENT-DECL ...) ; compiling (DEFVAR *SUPPRESS-VALUES-DECLARATION* ...) ; compiling (DEFUN PROCESS-1-DECL ...) ; compiling (DEFUN PROCESS-DECLS ...) ; compiling (DEFUN %PROCESSING-DECLS ...) ; compiling (DEFMACRO PROCESSING-DECLS ...) ; compiling (DEFUN SPECVAR-FOR-BINDING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran.lisp ; in: DEFUN IR1-CONVERT-LOCAL-COMBINATION ; (SB!C::ASSURE-FUNCTIONAL-LIVE-P SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: ASSURE-FUNCTIONAL-LIVE-P ; in: DEFUN REFERENCE-LEAF ; (SB!C::ASSURE-LEAF-LIVE-P SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: ASSURE-LEAF-LIVE-P ; in: DEFUN PROCESS-EXTENT-DECL ; (SB!C:COMPILER-NOTIFY "Ignoring free ~S declaration: ~S" SB!C::KIND ; SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN PROCESS-INLINE-DECL ; (SB!C:COMPILER-NOTIFY "ignoring ~A declaration not at ~ ; definition of local function:~% ~S" ; SB!C::SENSE SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN PROCESS-FTYPE-DECL ; #'SB!C:COMPILER-NOTIFY ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; (SB!C::COMPILER-SPECIFIER-TYPE SB!C::SPEC) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-SPECIFIER-TYPE ; in: DEFUN PROCESS-TYPE-DECL ; (SB!C::COMPILER-SPECIFIER-TYPE (FIRST SB!C::DECL)) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-SPECIFIER-TYPE ; in: DEFUN PROCESS-1-DECL ; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE ; (IF (SB!INT:SINGLETON-P SB!C::TYPES) ; (CAR SB!C::TYPES) ; (SB!IMPL::BACKQ-CONS 'VALUES SB!C::TYPES))) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-VALUES-SPECIFIER-TYPE ; in: DEFUN IR1-CONVERT-VAR ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; in: DEFUN REFERENCE-LEAF => DEFINED-FUN-FUNCTIONAL LEAF ; (SB!C::DEFINED-FUN-FUNCTIONAL SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: DEFINED-FUN-FUNCTIONAL ; in: DEFUN INSERT-NODE-BEFORE ; (SB!C::ENSURE-BLOCK-START SB!C::PREV) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-BLOCK-START ; in: DEFUN REFERENCE-CONSTANT ; (SB!C::FIND-CONSTANT SB!C::VALUE) ; ; caught STYLE-WARNING: ; undefined function: FIND-CONSTANT ; in: DEFUN FIND-FREE-VAR ; (SB!C::FIND-CONSTANT SB!C::VALUE SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: FIND-CONSTANT ; in: DEFUN IR1-TOPLEVEL ; (SB!C::IR1-CONVERT-LAMBDA-BODY SB!C::FORMS NIL :DEBUG-NAME ; (SB!C::DEBUG-NAME 'SB!C::TOP-LEVEL-FORM NIL)) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDA-BODY ; in: DEFUN MAYBE-REANALYZE-FUNCTIONAL ; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN CLEAR-INVALID-FUNCTIONALS ; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN %PROCESSING-DECLS ; (SB!C::MAKE-CAST SB!C::VALUE-LVAR SB!C::RESULT-TYPE ; (SB!C::LEXENV-POLICY SB!C:*LEXENV*)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CAST ; in: DEFUN REFERENCE-LEAF ; (SB!C::MAKE-CAST SB!C::REF-LVAR (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE TYPE) ; (SB!C::LEXENV-POLICY SB!C:*LEXENV*)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CAST ; in: DEFUN IR1-TOPLEVEL ; (SB!C::MAKE-EMPTY-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: MAKE-EMPTY-COMPONENT ; in: DEFUN PROCESS-SPECIAL-DECL ; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :VARS (SB!C::NEW-VENV)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN PROCESS-FTYPE-DECL ; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :TYPE-RESTRICTIONS (SB!C::RES)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN PROCESS-TYPE-DECL ; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :TYPE-RESTRICTIONS (SB!C::RESTR) :VARS ; (SB!C::NEW-VARS)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 2 more uses of undefined function MAKE-LEXENV ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran.lisp ; in: DEFUN FIND-FREE-VAR ; (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :VARIABLE) ; ; caught STYLE-WARNING: ; undefined function: NOTE-UNDEFINED-REFERENCE ; in: DEFUN FIND-GLOBAL-FUN ; (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: NOTE-UNDEFINED-REFERENCE ; in: DEFUN IR1-CONVERT-FUNCTOID ; (SB!C::PRINT-COMPILER-MESSAGE *ERROR-OUTPUT* "note: ~A" (LIST SB!C::C)) ; ; caught STYLE-WARNING: ; undefined function: PRINT-COMPILER-MESSAGE ; in: DEFUN USE-LVAR ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN INSTRUMENT-COVERAGE ; (SB!C::SOURCE-PATH-ORIGINAL-SOURCE SB!C::*CURRENT-PATH*) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-ORIGINAL-SOURCE ; in: DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ; (SB!C::VALIDATE-CALL-TYPE SB!C::NODE TYPE SB!C::VAR T) ; ; caught STYLE-WARNING: ; undefined function: VALIDATE-CALL-TYPE ; ; compilation unit finished ; Undefined functions: ; ASSURE-FUNCTIONAL-LIVE-P ASSURE-LEAF-LIVE-P COMPILER-NOTIFY COMPILER-SPECIFIER-TYPE COMPILER-VALUES-SPECIFIER-TYPE CTRAN-HOME-LAMBDA-OR-NULL DEFINED-FUN-FUNCTIONAL ENSURE-BLOCK-START FIND-CONSTANT IR1-CONVERT-LAMBDA-BODY LAMBDA-COMPONENT MAKE-CAST MAKE-EMPTY-COMPONENT MAKE-LEXENV NOTE-UNDEFINED-REFERENCE PRINT-COMPILER-MESSAGE REOPTIMIZE-LVAR SOURCE-PATH-ORIGINAL-SOURCE VALIDATE-CALL-TYPE ; caught 29 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/ir1tran.fasl-tmp written ; compilation finished in 0:00:00.468 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran-lambda.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN VARIFY-LAMBDA-ARG ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MAKE-KEYWORD-FOR-ARG ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MAKE-LAMBDA-VARS ...) ; compiling (DEFUN IR1-CONVERT-AUX-BINDINGS ...) ; compiling (DEFUN IR1-CONVERT-SPECIAL-BINDINGS ...) ; compiling (DEFUN IR1-CONVERT-LAMBDA-BODY ...) ; compiling (DEFUN REGISTER-ENTRY-POINT ...) ; compiling (DEFUN CONVERT-OPTIONAL-ENTRY ...) ; compiling (DEFUN GENERATE-OPTIONAL-DEFAULT-ENTRY ...) ; compiling (DEFUN CONVERT-MORE-ENTRY ...) ; compiling (DEFUN IR1-CONVERT-MORE ...) ; compiling (DEFUN IR1-CONVERT-HAIRY-ARGS ...) ; compiling (DEFUN IR1-CONVERT-HAIRY-LAMBDA ...) ; compiling (DEFUN IR1-CONVERT-LAMBDA ...) ; compiling (DEFUN WRAP-FORMS-IN-DEBUG-CATCH ...) ; compiling (DEFUN IR1-CONVERT-LAMBDALIKE ...) ; compiling (DEFUN IR1-CONVERT-INLINE-LAMBDA ...) ; compiling (DEFUN FTYPE-FROM-LAMBDA-LIST ...) ; compiling (DEFUN GET-DEFINED-FUN ...) ; compiling (DEFUN ASSERT-NEW-DEFINITION ...) ; compiling (DEFUN IR1-CONVERT-INLINE-EXPANSION ...) ; compiling (DEFUN %SET-INLINE-EXPANSION ...) ; compiling (DEFUN %COMPILER-DEFUN ...) ; compiling (DEFUN OPTIONAL-DISPATCH-ENTRY-POINT-FUN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran-lambda.lisp ; in: DEFUN ASSERT-NEW-DEFINITION ; #'SB!C:COMPILER-NOTIFY ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN IR1-CONVERT-LAMBDA-BODY ; (SB!C::CTRAN-STARTS-BLOCK SB!C::RESULT-CTRAN) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEFUN IR1-CONVERT-LAMBDA-BODY ; (SB!C::LINK-BLOCKS BLOCK (SB!C::COMPONENT-TAIL SB!C::*CURRENT-COMPONENT*)) ; ; caught STYLE-WARNING: ; undefined function: LINK-BLOCKS ; (SB!C::MAKE-LEXENV :VARS (SB!C::NEW-VENV) :LAMBDA LAMBDA :CLEANUP NIL) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS ; (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN IR1-CONVERT-AUX-BINDINGS ; (SB!C::MAKE-LEXENV :VARS (COPY-LIST SB!C::POST-BINDING-LEXENV)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 1 more use of undefined function MAKE-LEXENV ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran-lambda.lisp ; in: DEFUN IR1-CONVERT-INLINE-LAMBDA ; (SB!C::NAME-LAMBDALIKE SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN IR1-CONVERT-LAMBDALIKE ; (SB!C::NAME-LAMBDALIKE SB!C::THING) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN IR1-CONVERT-LAMBDA ; (SB!C::NAME-LAMBDALIKE SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN IR1-CONVERT-LAMBDA-BODY ; (SB!C::NODE-BLOCK SB!C:BIND) ; ; caught STYLE-WARNING: ; undefined function: NODE-BLOCK ; in: DEFUN IR1-CONVERT-INLINE-EXPANSION ; (SB!C::SUBSTITUTE-LEAF SB!C::FUN SB!C::VAR) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF ; in: DEFUN GET-DEFINED-FUN ; (SB!C::SUBSTITUTE-LEAF SB!C::RES SB!C::FOUND) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF ; in: DEFUN IR1-CONVERT-LAMBDALIKE ; (SB!C::SUBSTITUTE-LEAF-IF ; (LAMBDA (SB!C::REF) ; (SB!C:POLICY SB!C::REF (> SB!C::RECOGNIZE-SELF-CALLS 0))) ; SB!C::RES SB!C::DEFINED-FUN-RES) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF-IF ; ; compilation unit finished ; Undefined functions: ; COMPILER-NOTIFY CTRAN-STARTS-BLOCK LINK-BLOCKS MAKE-LEXENV NAME-LAMBDALIKE NODE-BLOCK SUBSTITUTE-LEAF SUBSTITUTE-LEAF-IF ; caught 15 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/ir1tran-lambda.fasl-tmp written ; compilation finished in 0:00:00.349 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF-IR1-TRANSLATOR PROGN ...) ; compiling (DEF-IR1-TRANSLATOR IF ...) ; compiling (DEFUN BEST-SUB-SOURCE-PATH ...) ; compiling (DEF-IR1-TRANSLATOR BLOCK ...) ; compiling (DEF-IR1-TRANSLATOR RETURN-FROM ...) ; compiling (DEFUN PARSE-TAGBODY ...) ; compiling (DEF-IR1-TRANSLATOR TAGBODY ...) ; compiling (DEF-IR1-TRANSLATOR GO ...) ; compiling (DEF-IR1-TRANSLATOR EVAL-WHEN ...) ; compiling (DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ...) ; compiling (DEFUN MACROLET-DEFINITIONIZE-FUN ...) ; compiling (DEFUN FUNCALL-IN-MACROLET-LEXENV ...) ; compiling (DEF-IR1-TRANSLATOR MACROLET ...) ; compiling (DEFUN SYMBOL-MACROLET-DEFINITIONIZE-FUN ...) ; compiling (DEFUN FUNCALL-IN-SYMBOL-MACROLET-LEXENV ...) ; compiling (DEF-IR1-TRANSLATOR SYMBOL-MACROLET ...) ; compiling (DEFUN EVAL-INFO-ARGS ...) ; compiling (DEF-IR1-TRANSLATOR %PRIMITIVE ...) ; compiling (DEF-IR1-TRANSLATOR QUOTE ...) ; compiling (DEFUN NAME-CONTEXT ...) ; compiling (DEFUN NAME-LAMBDALIKE ...) ; compiling (DEFUN FUN-NAME-LEAF ...) ; compiling (DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ...) ; compiling (DEFMACRO WITH-FUN-NAME-LEAF ...) ; compiling (DEF-IR1-TRANSLATOR FUNCTION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR FUNCTION ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START) ; (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; compiling (DEF-IR1-TRANSLATOR GLOBAL-FUNCTION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR GLOBAL-FUNCTION ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START ; :GLOBAL-FUNCTION T) ; (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; compiling (DEFUN CONSTANT-GLOBAL-FUN-NAME ...) ; compiling (DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ...) ; compiling (DEFUN ENSURE-SOURCE-FUN-FORM ...) ; compiling (DEFUN ENSURE-LVAR-FUN-FORM ...) ; compiling (DEFTRANSFORM FUNCALL ...) ; compiling (DEF-IR1-TRANSLATOR %FUNCALL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR %FUNCALL ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START) ; (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT ; (SB!IMPL::BACKQ-CONS SB!C::LEAF SB!C::ARGS))) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START ; :GLOBAL-FUNCTION T) ; (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT ; (SB!IMPL::BACKQ-CONS SB!C::LEAF SB!C::ARGS))) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; compiling (DEFINE-SOURCE-TRANSFORM FUNCALL ...) ; compiling (DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ...) ; compiling (DEFINE-SOURCE-TRANSFORM %COERCE-CALLABLE-TO-FUN ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EXTRACT-LET-VARS ...) ; compiling (DEF-IR1-TRANSLATOR LET ...) ; compiling (DEF-IR1-TRANSLATOR LET* ...) ; compiling (DEFUN IR1-TRANSLATE-LOCALLY ...) ; compiling (DEF-IR1-TRANSLATOR LOCALLY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EXTRACT-FLET-VARS ...) ; compiling (DEFUN IR1-CONVERT-FBINDINGS ...) ; compiling (DEF-IR1-TRANSLATOR FLET ...) ; compiling (DEF-IR1-TRANSLATOR LABELS ...) ; compiling (DEFUN THE-IN-POLICY ...) ; compiling (DEF-IR1-TRANSLATOR THE ...) ; compiling (DEF-IR1-TRANSLATOR TRULY-THE ...) ; compiling (DEF-IR1-TRANSLATOR SETQ ...) ; compiling (DEFUN SETQ-VAR ...) ; compiling (DEF-IR1-TRANSLATOR THROW ...) ; compiling (DEF-IR1-TRANSLATOR %WITHIN-CLEANUP ...) ; compiling (DEF-IR1-TRANSLATOR %ESCAPE-FUN ...) ; compiling (DEF-IR1-TRANSLATOR %CLEANUP-FUN ...) ; compiling (DEF-IR1-TRANSLATOR CATCH ...) ; compiling (DEF-IR1-TRANSLATOR UNWIND-PROTECT ...) ; compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-CALL ...) ; compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-PROG1 ...) ; compiling (DEFUN REVERT-SOURCE-PATH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR %FUNCALL ; (SB!INT:%MACROEXPAND FUNCTION SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: DEFUN THE-IN-POLICY ; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-VALUES-SPECIFIER-TYPE ; in: DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEF-IR1-TRANSLATOR RETURN-FROM ; (SB!C::CTRAN-DELETED-P SB!C::EXIT-CTRAN) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-DELETED-P ; in: DEF-IR1-TRANSLATOR SETQ ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; in: DEF-IR1-TRANSLATOR GO ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; in: DEF-IR1-TRANSLATOR RETURN-FROM ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEF-IR1-TRANSLATOR BLOCK ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEF-IR1-TRANSLATOR IF ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; ; caught STYLE-WARNING: ; 4 more uses of undefined function CTRAN-STARTS-BLOCK ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp ; in: DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ; (SB!C:DEFTRANSFORM SB!KERNEL:%COERCE-CALLABLE-TO-FUN ; ((SB!C::THING) * * :NODE SB!C::NODE) ; "optimize away possible call to FDEFINITION at runtime" ; (SB!C::ENSURE-LVAR-FUN-FORM SB!C::THING 'SB!C::THING T)) ; --> SB!C::%DEFTRANSFORM UNLESS IF PROGN ; ==> ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFTRANSFORM FUNCALL ; (SB!C:DEFTRANSFORM FUNCALL ; ((FUNCTION &REST SB!C::ARGS) * *) ; (LET ((SB!C::ARG-NAMES (SB!INT:MAKE-GENSYM-LIST #))) ; (SB!IMPL::BACKQ-LIST* 'LAMBDA ; (SB!IMPL::BACKQ-CONS 'FUNCTION SB!C::ARG-NAMES) ; '((DECLARE #) ; (SB!IMPL::BACKQ-LIST* 'SB!C::%FUNCALL # ; SB!C::ARG-NAMES))))) ; --> SB!C::%DEFTRANSFORM UNLESS IF PROGN ; ==> ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN ENSURE-LVAR-FUN-FORM ; (SB!C::GIVE-UP-IR1-TRANSFORM "not known to be a function") ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEF-IR1-TRANSLATOR IF ; (SB!C::LINK-BLOCKS SB!C::START-BLOCK SB!C::THEN-BLOCK) ; ; caught STYLE-WARNING: ; undefined function: LINK-BLOCKS ; in: DEFUN ENSURE-LVAR-FUN-FORM ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN THE-IN-POLICY ; (SB!C::MAKE-CAST SB!C::VALUE-LVAR TYPE SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CAST ; in: DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ; (SB!C::MAKE-LEXENV SB!C::DEFINITIONIZE-KEYWORD SB!C::PROCESSED-DEFINITIONS) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEF-IR1-TRANSLATOR TAGBODY ; (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP :TAGS (SB!C::TAGS)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEF-IR1-TRANSLATOR BLOCK ; (SB!C::MAKE-LEXENV :BLOCKS (LIST (CONS SB!C::NAME SB!C::ENV-ENTRY)) :CLEANUP ; SB!C::CLEANUP) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 4 more uses of undefined function MAKE-LEXENV ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp ; in: DEFUN FUNCALL-IN-MACROLET-LEXENV ; (SB!C::MAKE-RESTRICTED-LEXENV SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-RESTRICTED-LEXENV ; in: DEFUN IR1-CONVERT-FBINDINGS ; (SB!C::NODE-DEST (SB!C::CTRAN-NEXT SB!C::START)) ; ; caught STYLE-WARNING: ; undefined function: NODE-DEST ; in: DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ; (SB!C::NODE-DEST (SB!C::CTRAN-NEXT SB!C::START)) ; ; caught STYLE-WARNING: ; undefined function: NODE-DEST ; in: DEF-IR1-TRANSLATOR IF ; (SB!C::POSSIBLE-REST-ARG-CONTEXT SB!C::TEST) ; ; caught STYLE-WARNING: ; undefined function: POSSIBLE-REST-ARG-CONTEXT ; in: DEF-IR1-TRANSLATOR TAGBODY ; (SB!C::START-BLOCK SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: START-BLOCK ; in: DEF-IR1-TRANSLATOR BLOCK ; (SB!C::START-BLOCK SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: START-BLOCK ; in: DEF-IR1-TRANSLATOR LABELS ; (SB!C::SUBSTITUTE-LEAF SB!C::REAL-FUN (CDR SB!C::PLACEHOLDER-CONS)) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF ; ; compilation unit finished ; Undefined functions: ; %MACROEXPAND COMPILER-VALUES-SPECIFIER-TYPE CONSTANT-LVAR-P CTRAN-DELETED-P CTRAN-HOME-LAMBDA-OR-NULL CTRAN-STARTS-BLOCK GIVE-UP-IR1-TRANSFORM LINK-BLOCKS LVAR-TYPE LVAR-VALUE MAKE-CAST MAKE-LEXENV MAKE-RESTRICTED-LEXENV NODE-DEST POSSIBLE-REST-ARG-CONTEXT START-BLOCK SUBSTITUTE-LEAF ; caught 29 STYLE-WARNING conditions ; printed 4 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/ir1-translators.fasl-tmp written ; compilation finished in 0:00:00.497 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1util.lisp" (written 28 JUN 2014 03:46:26 PM): ; 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 (DEFUN PRINCIPAL-LVAR-DEST ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %DELETE-LVAR-USE ...) ; compiling (DEFUN DELETE-LVAR-USE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN ADD-LVAR-USE ...) ; compiling (DEFUN IMMEDIATELY-USED-P ...) ; compiling (DEFUN COMBINATION-DEFINED-TYPE ...) ; compiling (DEFUN ALMOST-IMMEDIATELY-USED-P ...) ; compiling (DEFUN SUBSTITUTE-LVAR ...) ; compiling (DEFUN SUBSTITUTE-LVAR-USES ...) ; compiling (DEFUN CTRAN-STARTS-BLOCK ...) ; compiling (DEFUN ENSURE-BLOCK-START ...) ; compiling (DEFUN START-BLOCK ...) ; compiling (DEFUN FILTER-LVAR ...) ; compiling (DEFUN DELETE-FILTER ...) ; compiling (DEFUN INSERT-CAST-BEFORE ...) ; compiling (DEFUN NODE-HOME-LAMBDA ...) ; compiling (DECLAIM (INLINE NODE-BLOCK)) ; 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 (DEFUN FLUSHABLE-COMBINATION-P ...) ; compiling (DEFUN LAMBDA-VAR-ORIGINAL-NAME ...) ; compiling (DEFUN NOTE-NO-STACK-ALLOCATION ...) ; compiling (DEFUN USE-GOOD-FOR-DX-P ...) ; compiling (DEFUN LVAR-GOOD-FOR-DX-P ...) ; compiling (DEFUN KNOWN-DX-COMBINATION-P ...) ; compiling (DEFUN DX-COMBINATION-P ...) ; compiling (DEFUN COMBINATION-ARGS-FLOW-CLEANLY-P ...) ; compiling (DEFUN REF-GOOD-FOR-DX-P ...) ; compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-P ...) ; compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-LVAR ...) ; compiling (DEFUN HANDLE-NESTED-DYNAMIC-EXTENT-LVARS ...) ; compiling (DECLAIM (INLINE BLOCK-TO-BE-DELETED-P)) ; compiling (DEFUN BLOCK-TO-BE-DELETED-P ...) ; compiling (DECLAIM (INLINE NODE-TO-BE-DELETED-P)) ; compiling (DEFUN NODE-TO-BE-DELETED-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LAMBDA-BLOCK ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LAMBDA-COMPONENT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BLOCK-START-NODE ...) ; compiling (DEFUN BLOCK-START-CLEANUP ...) ; compiling (DEFUN BLOCK-END-CLEANUP ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BLOCK-HOME-LAMBDA-OR-NULL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BLOCK-HOME-LAMBDA ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BLOCK-PHYSENV ...) ; compiling (DEFUN SOURCE-PATH-TLF-NUMBER ...) ; compiling (DEFUN SOURCE-PATH-ORIGINAL-SOURCE ...) ; compiling (DEFUN SOURCE-PATH-FORM-NUMBER ...) ; compiling (DEFUN SOURCE-PATH-FORMS ...) ; compiling (DEFUN TREE-SOME ...) ; compiling (DEFUN NODE-SOURCE-FORM ...) ; compiling (DEFUN LVAR-SOURCE ...) ; compiling (DEFUN COMMON-SUFFIX ...) ; compiling (DEFUN LVAR-ALL-SOURCES ...) ; compiling (DECLAIM (INLINE LVAR-USE)) ; 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 DEFINED-FUN-FUNCTIONAL ...) ; compiling (DEFUN DELETE-REF ...) ; compiling (DEFUN FLUSH-NODE ...) ; compiling (DEFUN FLUSH-DEST ...) ; compiling (DEFUN DELETE-DEST ...) ; compiling (DEFUN DELETE-BLOCK-LAZILY ...) ; compiling (DEFUN MARK-FOR-DELETION ...) ; compiling (DEFUN DELETE-BLOCK ...) ; compiling (DEFUN DELETE-RETURN ...) ; compiling (DEFUN NOTE-UNREFERENCED-VARS ...) ; compiling (DEFVAR *DELETION-IGNORED-OBJECTS* ...) ; compiling (DEFUN PRESENT-IN-FORM ...) ; compiling (DEFUN NOTE-BLOCK-DELETION ...) ; compiling (DEFUN UNLINK-NODE ...) ; compiling (DEFUN CTRAN-DELETED-P ...) ; compiling (DEFUN NODE-DELETED ...) ; compiling (DEFUN DELETE-COMPONENT ...) ; compiling (DEFUN CLEAN-COMPONENT ...) ; compiling (DEFUN SPLICE-FUN-ARGS ...) ; compiling (DEFUN ELIMINATE-KEYWORD-ARGS ...) ; compiling (DEFUN EXTRACT-FUN-ARGS ...) ; compiling (DEFUN FLUSH-COMBINATION ...) ; compiling (DEFUN CHANGE-REF-LEAF ...) ; compiling (DEFUN SUBSTITUTE-LEAF ...) ; compiling (DEFUN SUBSTITUTE-LEAF-IF ...) ; compiling (DEFUN FIND-CONSTANT ...) ; compiling (DEFUN CLOSURE-VAR-P ...) ; compiling (DEFUN FIND-NLX-INFO ...) ; compiling (DEFUN NLX-INFO-LVAR ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MAIN-ENTRY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LOOKS-LIKE-AN-MV-BIND ...) ; compiling (DEFUN XEP-P ...) ; compiling (DEFUN LVAR-FUN-NAME ...) ; compiling (DEFUN LVAR-FUN-DEBUG-NAME ...) ; compiling (DEFUN COMBINATION-FUN-SOURCE-NAME ...) ; compiling (DEFUN COMBINATION-FUN-DEBUG-NAME ...) ; compiling (DEFUN LET-COMBINATION ...) ; compiling (DEFUN LET-VAR-INITIAL-VALUE ...) ; compiling (DEFUN COMBINATION-LAMBDA ...) ; compiling (DEFVAR *INLINE-EXPANSION-LIMIT* ...) ; compiling (DEFUN INLINE-EXPANSION-OK ...) ; compiling (DEFUN ASSURE-FUNCTIONAL-LIVE-P ...) ; compiling (DEFUN ASSURE-LEAF-LIVE-P ...) ; compiling (DEFUN CALL-FULL-LIKE-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CAREFUL-CALL ...) ; compiling (DEFFROB SPECIFIER-TYPE ...) ; compiling (DEFFROB VALUES-SPECIFIER-TYPE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-KEYWORD-LVAR ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-KEY-ARGS-CONSTANT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-TRANSFORM-KEYS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %EVENT ...) ; compiling (DEFUN MAKE-CAST ...) ; compiling (DEFUN CAST-TYPE-CHECK ...) ; compiling (DEFUN NOTE-SINGLE-VALUIFIED-LVAR ...) ; compiling (DEFUN LVAR-FUN-IS ...) ; compiling (DEFUN LVAR-MATCHES ...) ; compiling (DEFUN OPTIONAL-REST-P ...) ; compiling (DEFUN PRESERVE-SINGLE-USE-DEBUG-VAR-P ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1util.lisp ; in: DEFUN NOTE-BLOCK-DELETION ; (SB!C:COMPILER-NOTIFY 'SB!EXT:CODE-DELETION-NOTE :FORMAT-CONTROL ; "deleting unreachable code" :FORMAT-ARGUMENTS NIL) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN DELETE-LAMBDA ; (SB!C:COMPILER-NOTIFY 'SB!EXT:CODE-DELETION-NOTE :FORMAT-CONTROL ; "deleting unused function~:[.~;~:*~% ~S~]" :FORMAT-ARGUMENTS ; (LIST (SB!C::LEAF-DEBUG-NAME SB!C::CLAMBDA))) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN NOTE-NO-STACK-ALLOCATION ; (SB!C:COMPILER-NOTIFY "~@" ; (SB!C::LAMBDA-VAR-ORIGINAL-NAME (SB!C::REF-LEAF SB!C::USE)) ; (SB!C::FIND-ORIGINAL-SOURCE (SB!C::NODE-SOURCE-PATH SB!C::USE))) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; ; caught STYLE-WARNING: ; 2 more uses of undefined function COMPILER-NOTIFY ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1util.lisp ; in: DEFUN CHECK-KEY-ARGS-CONSTANT ; (SB!C::CONSTANT-LVAR-P (FIRST SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN ELIMINATE-KEYWORD-ARGS ; (SB!C::CONSTANT-LVAR-P SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CHANGE-REF-LEAF ; (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::VLTYPE :FROM-SCRATCH SB!C::RECKLESSLY) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN LVAR-ALL-SOURCES ; (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH) ; ; caught STYLE-WARNING: ; undefined function: FIND-ORIGINAL-SOURCE ; in: DEFUN NODE-SOURCE-FORM ; (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH) ; ; caught STYLE-WARNING: ; undefined function: FIND-ORIGINAL-SOURCE ; in: DEFUN NOTE-NO-STACK-ALLOCATION ; (SB!C::FIND-ORIGINAL-SOURCE (SB!C::NODE-SOURCE-PATH SB!C::USE)) ; ; caught STYLE-WARNING: ; undefined function: FIND-ORIGINAL-SOURCE ; ; caught STYLE-WARNING: ; 1 more use of undefined function FIND-ORIGINAL-SOURCE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1util.lisp ; in: DEFUN SPLICE-FUN-ARGS ; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ; in: DEFUN FLUSH-DEST ; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ; in: DEFUN SUBSTITUTE-LVAR ; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::NEW) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ; in: DEFUN EXTRACT-FUN-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN ELIMINATE-KEYWORD-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN SPLICE-FUN-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; ; caught STYLE-WARNING: ; 2 more uses of undefined function GIVE-UP-IR1-TRANSFORM ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1util.lisp ; in: DEFUN CAST-TYPE-CHECK ; (SB!C::IR1-OPTIMIZE-CAST SB!ALIEN:CAST T) ; ; caught STYLE-WARNING: ; undefined function: IR1-OPTIMIZE-CAST ; in: DEFUN FILTER-LVAR ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN CHECK-TRANSFORM-KEYS ; (SB!C::LVAR-VALUE (FIRST SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN FIND-KEYWORD-LVAR ; (SB!C::LVAR-VALUE (FIRST SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN ELIMINATE-KEYWORD-ARGS ; (SB!C::LVAR-VALUE SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN DELETE-REF ; (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-CONVERT-TO-ASSIGNMENT ; in: DEFUN DELETE-OPTIONAL-DISPATCH ; (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-CONVERT-TO-ASSIGNMENT ; in: DEFUN DELETE-REF ; (SB!C::MAYBE-LET-CONVERT SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN DELETE-OPTIONAL-DISPATCH ; (SB!C::MAYBE-LET-CONVERT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN MAKE-CAST ; (SB!C::MAYBE-WEAKEN-CHECK TYPE SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-WEAKEN-CHECK ; in: DEFUN DELETE-FILTER ; (SB!C::MERGE-TAIL-SETS MERGE) ; ; caught STYLE-WARNING: ; undefined function: MERGE-TAIL-SETS ; in: DEFUN NOTE-SINGLE-VALUIFIED-LVAR ; (SB!C::REOPTIMIZE-COMPONENT (SB!C::NODE-COMPONENT SB!C::NODE) :MAYBE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN FLUSH-NODE ; (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) T) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN CHANGE-BLOCK-SUCCESSOR ; (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) :MAYBE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN INSERT-CAST-BEFORE ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN SUBSTITUTE-LVAR-USES ; (SB!C::REOPTIMIZE-LVAR SB!C::NEW) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN DELETE-LVAR-USE ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; ; caught STYLE-WARNING: ; 5 more uses of undefined function REOPTIMIZE-LVAR ; ; compilation unit finished ; Undefined functions: ; COMPILER-NOTIFY CONSTANT-LVAR-P DERIVE-NODE-TYPE FIND-ORIGINAL-SOURCE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE GIVE-UP-IR1-TRANSFORM IR1-OPTIMIZE-CAST LOCALL-ANALYZE-COMPONENT LVAR-VALUE MAYBE-CONVERT-TO-ASSIGNMENT MAYBE-LET-CONVERT MAYBE-WEAKEN-CHECK MERGE-TAIL-SETS REOPTIMIZE-COMPONENT REOPTIMIZE-LVAR ; caught 36 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/ir1util.fasl-tmp written ; compilation finished in 0:00:00.828 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1report.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *CURRENT-PATH*)) ; compiling (DEFVAR *ENCLOSING-SOURCE-CUTOFF* ...) ; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; compiling (DEFSTRUCT (COMPILER-ERROR-CONTEXT # ...) ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *COMPILER-ERROR-CONTEXT* ...) ; compiling (DEFVAR *SOURCE-CONTEXT-METHODS* ...) ; compiling (DEFMACRO DEFINE-SOURCE-CONTEXT ...) ; compiling (DEFINE-SOURCE-CONTEXT DEFSTRUCT ...) ; compiling (DEFINE-SOURCE-CONTEXT FUNCTION ...) ; compiling (DEFINE-SOURCE-CONTEXT NAMED-LAMBDA ...) ; compiling (DEFVAR *SOURCE-FORM-CONTEXT-ALIST* ...) ; compiling (DEFUN SOURCE-FORM-CONTEXT ...) ; compiling (DEFUN FIND-ORIGINAL-SOURCE ...) ; compiling (DEFUN STRINGIFY-FORM ...) ; compiling (DEFUN FIND-ERROR-CONTEXT ...) ; compiling (DEFVAR *LAST-ERROR-CONTEXT* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *LAST-FORMAT-STRING* ...) ; compiling (DEFVAR *LAST-FORMAT-ARGS* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFVAR *LAST-MESSAGE-COUNT* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFUN NOTE-MESSAGE-REPEATS ...) ; compiling (DEFUN PRINT-COMPILER-MESSAGE ...) ; compiling (DEFUN %PRINT-COMPILER-MESSAGE ...) ; compiling (DEFUN PRINT-COMPILER-CONDITION ...) ; compiling (DEFINE-CONDITION COMPILER-NOTE ...) ; compiling (DEFINE-CONDITION SIMPLE-COMPILER-NOTE ...) ; compiling (DEFINE-CONDITION CODE-DELETION-NOTE ...) ; compiling (DEFUN COMPILER-NOTIFY ...) ; compiling (DEFUN MAYBE-COMPILER-NOTIFY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN COMPILER-MUMBLE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-COMPONENT-NAME ...) ; compiling (DEFVAR *COMPILER-ERROR-COUNT*) ; compiling (DEFVAR *COMPILER-WARNING-COUNT*) ; compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*) ; compiling (DEFVAR *COMPILER-NOTE-COUNT*) ; compiling (DEFVAR *FAILURE-P*) ; compiling (DEFVAR *WARNINGS-P*) ; compiling (DEFUN COMPILER-ERROR-HANDLER ...) ; compiling (DEFUN COMPILER-WARNING-HANDLER ...) ; compiling (DEFUN COMPILER-STYLE-WARNING-HANDLER ...) ; compiling (DEFVAR *UNDEFINED-WARNING-LIMIT* ...) ; compiling (DEFUN NOTE-UNDEFINED-REFERENCE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1report.lisp ; in: DEFUN MAYBE-COMPILER-NOTIFY ; (SB!C::WITH-CONDITION (CONDITION SB!C::DATUM SB!C::ARGS) ; (LET ((STREAM *ERROR-OUTPUT*)) ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PER-LINE-PREFIX ";") ; (FORMAT STREAM " note: ~3I~_") ; (PPRINT-LOGICAL-BLOCK (STREAM NIL) (FORMAT STREAM "~A" CONDITION))) ; (FRESH-LINE STREAM))) ; --> BLOCK LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGS ; 'SB!INT:SIMPLE-COMPILER-NOTE 'SB!C::WITH-CONDITION) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; in: DEFUN COMPILER-NOTIFY ; (SB!C::WITH-CONDITION (CONDITION SB!C::DATUM SB!C::ARGS) ; (INCF SB!C::*COMPILER-NOTE-COUNT*) ; (SB!C::PRINT-COMPILER-MESSAGE *ERROR-OUTPUT* (FORMAT NIL "note: ~~A") ; (LIST (PRINC-TO-STRING CONDITION)))) ; --> BLOCK LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGS ; 'SB!INT:SIMPLE-COMPILER-NOTE 'SB!C::WITH-CONDITION) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; ; compilation unit finished ; Undefined function: ; COERCE-TO-CONDITION ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/ir1report.fasl-tmp written ; compilation finished in 0:00:00.264 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1opt.lisp" (written 28 JUN 2014 03:46:26 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 (DEFUN LVAR-CONSERVATIVE-TYPE ...) ; compiling (DEFUN NODE-CONSERVATIVE-TYPE ...) ; compiling (DEFUN CONSERVATIVE-TYPE ...) ; compiling (DEFUN TYPE-NEEDS-CONSERVATION-P ...) ; compiling (DECLAIM (INLINE LVAR-EXTERNALLY-CHECKABLE-TYPE)) ; compiling (DEFUN LVAR-EXTERNALLY-CHECKABLE-TYPE ...) ; compiling (DEFUN %LVAR-%EXTERNALLY-CHECKABLE-TYPE ...) ; compiling (DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)) ; 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 CBLOCKS-EQUIVALENT-P ...) ; compiling (DEFUN IR1-OPTIMIZE-IF ...) ; compiling (DEFUN KILL-IF-BRANCH-1 ...) ; compiling (DEFUN TENSION-IF-IF-1 ...) ; compiling (DEFUN DUPLICATE-IF-IF-1 ...) ; compiling (DEFUN CONVERT-IF-IF ...) ; compiling (DEFUN MAYBE-DELETE-EXIT ...) ; compiling (DEFUN CHECK-IMPORTANT-RESULT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN IR1-OPTIMIZE-COMBINATION ...) ; compiling (DEFUN XEP-TAIL-COMBINATION-P ...) ; compiling (DEFUN MAYBE-TERMINATE-BLOCK ...) ; compiling (DEFUN RECOGNIZE-KNOWN-CALL ...) ; compiling (DEFUN VALIDATE-CALL-TYPE ...) ; compiling (DEFUN PROPAGATE-FUN-CHANGE ...) ; compiling (DEFUN RECORD-OPTIMIZATION-FAILURE ...) ; compiling (DEFUN IR1-TRANSFORM ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN GIVE-UP-IR1-TRANSFORM ...) ; compiling (DEFUN ABORT-IR1-TRANSFORM ...) ; compiling (DEFUN DELAY-IR1-TRANSFORM ...) ; compiling (DEFUN RETRY-DELAYED-IR1-TRANSFORMS ...) ; compiling (DEFUN TRANSFORM-CALL ...) ; compiling (DEFUN CONSTANT-FOLD-CALL ...) ; compiling (DEFUN PROPAGATE-TO-REFS ...) ; compiling (DEFUN MAYBE-INFER-ITERATION-VAR-TYPE ...) ; compiling (DEFTRANSFORM + ...) ; compiling (DEFUN PROPAGATE-FROM-SETS ...) ; compiling (DEFUN IR1-OPTIMIZE-SET ...) ; compiling (DEFUN CONSTANT-REFERENCE-P ...) ; compiling (DEFUN SUBSTITUTE-SINGLE-USE-LVAR ...) ; compiling (DEFUN DELETE-LET ...) ; compiling (DEFUN PROPAGATE-LET-ARGS ...) ; compiling (DEFUN PROPAGATE-LOCAL-CALL-ARGS ...) ; compiling (DEFUN IR1-OPTIMIZE-MV-COMBINATION ...) ; compiling (DEFUN IR1-OPTIMIZE-MV-BIND ...) ; compiling (DEFUN IR1-OPTIMIZE-MV-CALL ...) ; compiling (DEFUN CONVERT-MV-BIND-TO-LET ...) ; compiling (DEFOPTIMIZER (VALUES-LIST OPTIMIZER) ...) ; compiling (DEFTRANSFORM VALUES ...) ; compiling (DEFUN DELETE-CAST ...) ; compiling (DEFUN MAY-DELETE-VESTIGIAL-EXIT ...) ; compiling (DEFUN IR1-OPTIMIZE-CAST ...) ; compiling (DEFTRANSFORM MAKE-SYMBOL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1opt.lisp ; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION ; (SB!C::CONVERT-CALL-IF-POSSIBLE SB!C::USE SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: CONVERT-CALL-IF-POSSIBLE ; in: DEFUN PROPAGATE-FUN-CHANGE ; (SB!C::CONVERT-CALL-IF-POSSIBLE ; (SB!C::LVAR-USES (SB!C::BASIC-COMBINATION-FUN SB!C:CALL)) SB!C:CALL) ; ; caught STYLE-WARNING: ; undefined function: CONVERT-CALL-IF-POSSIBLE ; in: DEFUN IR1-OPTIMIZE-MV-CALL ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN TRANSFORM-CALL ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN RECOGNIZE-KNOWN-CALL ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN FIND-RESULT-TYPE ; (SB!C::MAYBE-CONVERT-TAIL-LOCAL-CALL SB!C::USE) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-CONVERT-TAIL-LOCAL-CALL ; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION ; (SB!C::MAYBE-LET-CONVERT (SB!C::COMBINATION-LAMBDA SB!C::NODE)) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN PROPAGATE-FUN-CHANGE ; (SB!C::MAYBE-LET-CONVERT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN IR1-OPTIMIZE-CAST ; (SB!C::MERGE-TAIL-SETS SB!C::USE) ; ; caught STYLE-WARNING: ; undefined function: MERGE-TAIL-SETS ; in: DEFUN CONVERT-MV-BIND-TO-LET ; (SB!C::PROPAGATE-TO-ARGS SB!C::USE SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: PROPAGATE-TO-ARGS ; (SB!C::REOPTIMIZE-CALL SB!C::USE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-CALL ; ; compilation unit finished ; Undefined functions: ; CONVERT-CALL-IF-POSSIBLE LOCALL-ANALYZE-COMPONENT MAYBE-CONVERT-TAIL-LOCAL-CALL MAYBE-LET-CONVERT MERGE-TAIL-SETS PROPAGATE-TO-ARGS REOPTIMIZE-CALL ; caught 11 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/ir1opt.fasl-tmp written ; compilation finished in 0:00:01.599 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/loop.lisp" (written 28 JUN 2014 03:46:26 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/loop.fasl-tmp written ; compilation finished in 0:00:00.078 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1final.lisp" (written 28 JUN 2014 03:46:26 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/ir1final.fasl-tmp written ; compilation finished in 0:00:00.054 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/array-tran.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER-OR-GIVE-UP ...) ; compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER ...) ; compiling (DEFUN ARRAY-TYPE-UPGRADED-ELEMENT-TYPE ...) ; compiling (DEFUN ARRAY-TYPE-DECLARED-ELEMENT-TYPE ...) ; compiling (DEFUN ASSERT-NEW-VALUE-TYPE ...) ; compiling (DEFUN UNSUPPLIED-OR-NIL ...) ; compiling (DEFUN SUPPLIED-AND-TRUE ...) ; compiling (DEFUN ASSERT-ARRAY-RANK ...) ; compiling (DEFUN DERIVE-AREF-TYPE ...) ; compiling (DEFOPTIMIZER (ARRAY-IN-BOUNDS-P DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM ARRAY-IN-BOUNDS-P ...) ; compiling (DEFOPTIMIZER (AREF DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (# DERIVE-TYPE) ...) ; compiling (DEFINE HAIRY-DATA-VECTOR-REF) ; compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS) ; compiling (DEFINE DATA-VECTOR-REF) ; compiling (DEFOPTIMIZER (DATA-VECTOR-REF-WITH-OFFSET DERIVE-TYPE) ...) ; compiling (DEFINE HAIRY-DATA-VECTOR-SET) ; compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS) ; compiling (DEFINE DATA-VECTOR-SET) ; compiling (DEFOPTIMIZER (DATA-VECTOR-SET-WITH-OFFSET DERIVE-TYPE) ...) ; compiling (DEFUN DERIVE-%WITH-ARRAY-DATA/MUMBLE-TYPE ...) ; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA/FP DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (ARRAY-ROW-MAJOR-INDEX DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (ROW-MAJOR-AREF DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%SET-ROW-MAJOR-AREF DERIVE-TYPE) ...) ; compiling (DEFUN DERIVE-MAKE-ARRAY-TYPE ...) ; compiling (DEFOPTIMIZER (MAKE-ARRAY DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%MAKE-ARRAY DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM VECTOR ...) ; compiling (DEFTRANSFORM MAKE-STRING ...) ; compiling (DEFUN REWRITE-INITIAL-CONTENTS ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAKE-ARRAY ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/array-tran.lisp ; in: DEFINE-SOURCE-TRANSFORM MAKE-ARRAY ; (VALUES SB!C::DIMENSIONS (LENGTH (CDR SB!C::DIMENSIONS))) ; ==> ; SB!C::DIMENSIONS ; ; note: deleting unreachable code ; (CDR SB!C::DIMENSIONS) ; ==> ; SB!C::DIMENSIONS ; ; note: deleting unreachable code ; compiling (DEFUN TRANSFORM-MAKE-ARRAY-VECTOR ...) ; compiling (DEFTRANSFORM MAKE-ARRAY ...) ; compiling (DEFTRANSFORM MAKE-ARRAY ...) ; compiling (DEFTRANSFORM MAKE-ARRAY ...) ; compiling (DEFUN ARRAY-TYPE-DIMENSIONS-OR-GIVE-UP ...) ; compiling (DEFUN CONSERVATIVE-ARRAY-TYPE-COMPLEXP ...) ; compiling (DEFTRANSFORM ARRAY-RANK ...) ; compiling (DEFUN DERIVE-ARRAY-RANK ...) ; compiling (DEFOPTIMIZER (ARRAY-RANK DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%ARRAY-RANK DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM ARRAY-DIMENSION ...) ; compiling (DEFTRANSFORM LENGTH ...) ; compiling (DEFTRANSFORM LENGTH ...) ; compiling (DEFTRANSFORM VECTOR-LENGTH ...) ; compiling (DEFTRANSFORM ARRAY-TOTAL-SIZE ...) ; compiling (DEFTRANSFORM ARRAY-HAS-FILL-POINTER-P ...) ; compiling (DEFTRANSFORM %CHECK-BOUND ...) ; compiling (DEF!MACRO WITH-ARRAY-DATA ...) ; compiling (DEF!MACRO %WITH-ARRAY-DATA-MACRO ...) ; compiling (DEFUN TRANSFORM-%WITH-ARRAY-DATA/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 SCHAR ...) ; compiling (DEFINE-FROB CHAR ...) ; compiling (DEFINE-SOURCE-TRANSFORM SVREF ...) ; compiling (DEFINE-SOURCE-TRANSFORM %SVSET ...) ; compiling (DEFTRANSFORM ARRAY-ROW-MAJOR-INDEX ...) ; compiling (DEFTRANSFORM AREF ...) ; compiling (DEFTRANSFORM (SETF AREF) ...) ; compiling (DEFTRANSFORM AREF ...) ; compiling (DEFTRANSFORM (SETF AREF) ...) ; compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...) ; compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...) ; compiling (DEFTRANSFORM ROW-MAJOR-AREF ...) ; compiling (DEFTRANSFORM %SET-ROW-MAJOR-AREF ...) ; compiling (DEF BIT-AND) ; compiling (DEF BIT-IOR) ; compiling (DEF BIT-XOR) ; compiling (DEF BIT-EQV) ; compiling (DEF BIT-NAND) ; compiling (DEF BIT-NOR) ; compiling (DEF BIT-ANDC1) ; compiling (DEF BIT-ANDC2) ; compiling (DEF BIT-ORC1) ; compiling (DEF BIT-ORC2) ; compiling (DEFTRANSFORM BIT-NOT ...) ; compiling (DEFTRANSFORM BIT-NOT ...) ; compiling (DEFOPTIMIZER (ARRAY-HEADER-P DERIVE-TYPE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/array-tran.lisp ; in: DEFTRANSFORM ARRAY-IN-BOUNDS-P ; (SB!C::INTEGER-TYPE-P SB!C::TYPE2) ; ; caught STYLE-WARNING: ; undefined function: INTEGER-TYPE-P ; in: DEFUN REWRITE-INITIAL-CONTENTS ; (SB-XC:MACROEXPAND SB!C::DATA SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MACROEXPAND ; in: DEFTRANSFORM ARRAY-IN-BOUNDS-P ; (SB!C::WEAKEN-INTEGER-TYPE SB!C::TYPE1 :RANGE-ONLY T) ; ; caught STYLE-WARNING: ; undefined function: WEAKEN-INTEGER-TYPE ; ; compilation unit finished ; Undefined functions: ; INTEGER-TYPE-P SB-XC:MACROEXPAND WEAKEN-INTEGER-TYPE ; caught 3 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/array-tran.fasl-tmp written ; compilation finished in 0:00:00.526 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/seqtran.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN MAPFOO-TRANSFORM ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAPC ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAPCAR ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAPCAN ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAPL ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAPLIST ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAPCON ...) ; compiling (DEFTRANSFORM MAP ...) ; compiling (DEFUN BUILD-SEQUENCE-ITERATOR ...) ; compiling (DEFTRANSFORM %MAP ...) ; compiling (DEFTRANSFORM MAP-INTO ...) ; compiling (DEFTRANSFORM ELT ...) ; compiling (DEFTRANSFORM ELT ...) ; compiling (DEFTRANSFORM %SETELT ...) ; compiling (DEFTRANSFORM %SETELT ...) ; compiling (DEFTRANSFORM %CHECK-VECTOR-SEQUENCE-BOUNDS ...) ; compiling (DEF!TYPE EQ-COMPARABLE-TYPE ...) ; compiling (DEFUN EQ-COMPARABLE-TYPE-P ...) ; compiling (DEFUN SPECIALIZED-LIST-SEEK-FUNCTION-NAME ...) ; compiling (DEFPARAMETER *LIST-OPEN-CODE-LIMIT* ...) ; compiling (DEFUN TRANSFORM-LIST-ITEM-SEEK ...) ; compiling (DEFUN TRANSFORM-LIST-PRED-SEEK ...) ; compiling (DEF ADJOIN) ; compiling (DEF ASSOC ...) ; compiling (DEF MEMBER ...) ; compiling (DEF RASSOC ...) ; compiling (DEFTRANSFORM MEMQ ...) ; compiling (DEFTRANSFORM DELETE ...) ; compiling (DEFTRANSFORM DELETE-IF ...) ; compiling (DEFTRANSFORM FILL ...) ; compiling (DEFTRANSFORM FILL ...) ; compiling (DEFTRANSFORM FILL ...) ; compiling (DEF STRING< ...) ; compiling (DEF STRING> ...) ; compiling (DEF STRING<= ...) ; compiling (DEF STRING>= ...) ; compiling (DEF STRING= ...) ; compiling (DEF STRING/= ...) ; compiling (DEF STRING<* ...) ; compiling (DEF STRING<=* ...) ; compiling (DEF STRING>* ...) ; compiling (DEF STRING>=* ...) ; compiling (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 (DEFTRANSFORM UB64-BASH-COPY ...) ; compiling (DEFUN INLINEABLE-COPY-VECTOR-P ...) ; 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 (DEFVAR *CONCATENATE-OPEN-CODE-LIMIT* ...) ; compiling (DEFTRANSFORM CONCATENATE ...) ; compiling (DEFOPTIMIZER (CAR DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (CDR DERIVE-TYPE) ...) ; compiling (DEFUN CHECK-INLINEABILITY-OF-FIND-POSITION-IF ...) ; compiling (DEF %FIND-POSITION-IF ...) ; compiling (DEF %FIND-POSITION-IF-NOT ...) ; compiling (DEFTRANSFORM %FIND-POSITION ...) ; compiling (DEFUN %FIND-POSITION-OR-FIND-POSITION-IF-VECTOR-EXPANSION ...) ; compiling (DEF!MACRO %FIND-POSITION-VECTOR-MACRO ...) ; compiling (DEF!MACRO %FIND-POSITION-IF-VECTOR-MACRO ...) ; compiling (DEF!MACRO %FIND-POSITION-IF-NOT-VECTOR-MACRO ...) ; compiling (DEFTRANSFORM %FIND-POSITION-IF ...) ; compiling (DEFTRANSFORM %FIND-POSITION-IF-NOT ...) ; compiling (DEFTRANSFORM %FIND-POSITION ...) ; compiling (DEFTRANSFORM %FIND-POSITION ...) ; compiling (DEFTRANSFORM %FIND-POSITION ...) ; compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-TEST ...) ; compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-KEY ...) ; compiling (DEFINE-FIND-POSITION FIND ...) ; compiling (DEFINE-FIND-POSITION POSITION ...) ; compiling (DEFINE-FIND-POSITION-IF FIND-IF ...) ; compiling (DEFINE-FIND-POSITION-IF POSITION-IF ...) ; compiling (DEFINE-FIND-POSITION-IF-NOT FIND-IF-NOT ...) ; compiling (DEFINE-FIND-POSITION-IF-NOT POSITION-IF-NOT ...) ; compiling (DEFINE-TRIMMER-TRANSFORM STRING-LEFT-TRIM ...) ; compiling (DEFINE-TRIMMER-TRANSFORM STRING-RIGHT-TRIM ...) ; compiling (DEFINE-TRIMMER-TRANSFORM STRING-TRIM ...) ; compiling (DEFUN TRANSFORM-BACKQ-LIST-OR-LIST* ...) ; compiling (DEFTRANSFORM SB!IMPL::BACKQ-LIST ...) ; compiling (DEFTRANSFORM SB!IMPL::BACKQ-LIST* ...) ; compiling (DEFTRANSFORM SB!IMPL::BACKQ-APPEND ...) ; compiling (DEFINE-SOURCE-TRANSFORM SB!IMPL::BACKQ-NCONC ...) ; compiling (DEFTRANSFORM SB!IMPL::BACKQ-CONS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/seqtran.lisp ; in: DEFTRANSFORM FILL ; (SB!C::INTEGER-TYPE-P SB!C::ELEMENT-CTYPE) ; ; caught STYLE-WARNING: ; undefined function: INTEGER-TYPE-P ; ; compilation unit finished ; Undefined function: ; INTEGER-TYPE-P ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/seqtran.fasl-tmp written ; compilation finished in 0:00:00.579 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/typetran.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFMACRO DEFINE-TYPE-PREDICATE ...) ; compiling (DEFUN %DEFINE-TYPE-PREDICATE ...) ; compiling (DEFTRANSFORM TYPEP ...) ; compiling (DEFUN IR1-TRANSFORM-TYPE-PREDICATE ...) ; compiling (DEFTRANSFORM %TYPEP ...) ; compiling (DEFTRANSFORM FOLD-TYPE-PREDICATE ...) ; compiling (DEFTRANSFORM FIND-CLASSOID ...) ; compiling (DEFOPTIMIZER (%TYPEP-WRAPPER CONSTRAINT-PROPAGATE-IF) ...) ; compiling (DEFTRANSFORM %TYPEP-WRAPPER ...) ; compiling (DEFUN !DEFINE-STANDARD-TYPE-PREDICATES ...) ; compiling (!DEFINE-STANDARD-TYPE-PREDICATES) ; compiling (DEFINE-SOURCE-TRANSFORM ATOM ...) ; compiling (DEFINE-SOURCE-TRANSFORM BASE-CHAR-P ...) ; compiling (DEFTRANSFORM CONSP ...) ; compiling (DEFUN TRANSFORM-NUMERIC-BOUND-TEST ...) ; compiling (DEFUN SOURCE-TRANSFORM-NUMERIC-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-HAIRY-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-NEGATION-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-UNION-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-INTERSECTION-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-CONS-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-CHARACTER-SET-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-SIMD-PACK-TYPEP ...) ; compiling (DEFUN FIND-SUPERTYPE-PREDICATE ...) ; compiling (DEFUN TEST-ARRAY-DIMENSIONS ...) ; compiling (DEFUN TEST-ARRAY-ELEMENT-TYPE ...) ; compiling (DEFUN SOURCE-TRANSFORM-ARRAY-TYPEP ...) ; compiling (DEFTRANSFORM %INSTANCE-TYPEP ...) ; compiling (DEFUN %SOURCE-TRANSFORM-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-TYPEP ...) ; compiling (DEFINE-SOURCE-TRANSFORM TYPEP ...) ; compiling (DEFUN SIMPLIFY-VECTOR-TYPE ...) ; compiling (DEFTRANSFORM COERCE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/typetran.fasl-tmp written ; compilation finished in 0:00:00.151 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-typetran.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-TYPE-PREDICATE BASE-STRING-P ...) ; compiling (DEFINE-TYPE-PREDICATE BIGNUMP ...) ; compiling (DEFINE-TYPE-PREDICATE CHARACTER-STRING-P ...) ; compiling (DEFINE-TYPE-PREDICATE COMPLEX-DOUBLE-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE COMPLEX-SINGLE-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE DOUBLE-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE FIXNUMP ...) ; compiling (DEFINE-TYPE-PREDICATE LONG-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE RATIOP ...) ; compiling (DEFINE-TYPE-PREDICATE SHORT-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE SINGLE-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-NIL-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-2-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-4-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-7-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-8-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-15-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-16-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-FIXNUM-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-31-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-32-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-63-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-64-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-8-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-16-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-FIXNUM-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-32-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-64-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-64-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIGNED-BYTE-64-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMD-PACK-P ...) ; compiling (DEFINE-TYPE-PREDICATE VECTOR-NIL-P ...) ; compiling (DEFINE-TYPE-PREDICATE WEAK-POINTER-P ...) ; compiling (DEFINE-TYPE-PREDICATE CODE-COMPONENT-P ...) ; compiling (DEFINE-TYPE-PREDICATE LRA-P ...) ; compiling (DEFINE-TYPE-PREDICATE FDEFN-P ...) ; compiling (DEF) ; compiling (DEFINE-TYPE-PREDICATE %STANDARD-CHAR-P ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/vm-typetran.fasl-tmp written ; compilation finished in 0:00:00.008 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN %SINGLE-FLOAT ...) ; compiling (DEFKNOWN %DOUBLE-FLOAT ...) ; compiling (DEFTRANSFORM FLOAT ...) ; compiling (DEFTRANSFORM FLOAT ...) ; compiling (DEFTRANSFORM FLOAT ...) ; compiling (DEFTRANSFORM %SINGLE-FLOAT ...) ; compiling (DEFTRANSFORM %DOUBLE-FLOAT ...) ; compiling (FROB %RANDOM-SINGLE-FLOAT ...) ; compiling (FROB %RANDOM-DOUBLE-FLOAT ...) ; compiling (DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2 ; (ERROR "Unexpectedly small N-RANDOM-CHUNK-BITS") ; ==> ; "Unexpectedly small N-RANDOM-CHUNK-BITS" ; ; note: deleting unreachable code ; compiling (DEFTRANSFORM RANDOM ...) ; compiling (DEFKNOWN MAKE-SINGLE-FLOAT ...) ; compiling (DEFKNOWN MAKE-DOUBLE-FLOAT ...) ; compiling (DEFKNOWN SINGLE-FLOAT-BITS ...) ; compiling (DEFKNOWN DOUBLE-FLOAT-HIGH-BITS ...) ; compiling (DEFKNOWN DOUBLE-FLOAT-LOW-BITS ...) ; compiling (DEFTRANSFORM FLOAT-SIGN ...) ; compiling (DEFTRANSFORM FLOAT-SIGN ...) ; compiling (DEFKNOWN DECODE-SINGLE-FLOAT ...) ; compiling (DEFKNOWN DECODE-DOUBLE-FLOAT ...) ; compiling (DEFKNOWN INTEGER-DECODE-SINGLE-FLOAT ...) ; compiling (DEFKNOWN INTEGER-DECODE-DOUBLE-FLOAT ...) ; compiling (DEFKNOWN SCALE-SINGLE-FLOAT ...) ; compiling (DEFKNOWN SCALE-DOUBLE-FLOAT ...) ; compiling (DEFTRANSFORM DECODE-FLOAT ...) ; compiling (DEFTRANSFORM DECODE-FLOAT ...) ; compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...) ; compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...) ; compiling (DEFTRANSFORM SCALE-FLOAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFTRANSFORM SCALE-FLOAT ; (SB!C::LVAR-TYPE SB!C::EX) ; ==> ; SB!C::EX ; ; note: deleting unreachable code ; '(COERCE (SB!KERNEL:%SCALBN (COERCE SB!C::F 'DOUBLE-FLOAT) SB!C::EX) ; 'SINGLE-FLOAT) ; ; note: deleting unreachable code ; compiling (DEFTRANSFORM SCALE-FLOAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFTRANSFORM SCALE-FLOAT ; (SB!C::LVAR-TYPE SB!C::EX) ; ==> ; SB!C::EX ; ; note: deleting unreachable code ; '(SB!KERNEL:%SCALBN SB!C::F SB!C::EX) ; ; note: deleting unreachable code ; compiling (DEFUN SAFE-CTYPE-FOR-SINGLE-COERCION-P ...) ; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG1 ...) ; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG2 ...) ; compiling (DOLIST (X #) ...) ; compiling (DOLIST (X #) ...) ; compiling (DEF SINGLE-FLOAT ...) ; compiling (DEF DOUBLE-FLOAT ...) ; compiling (DEFUN MAYBE-EXACT-RECIPROCAL ...) ; compiling (DEF SINGLE-FLOAT) ; compiling (DEF DOUBLE-FLOAT) ; compiling (DEF + ...) ; compiling (DEF - ...) ; compiling (DEF + ...) ; compiling (DEF - ...) ; compiling (DEF SINGLE-FLOAT ...) ; compiling (DEF DOUBLE-FLOAT ...) ; compiling (FROB <) ; compiling (FROB >) ; compiling (FROB =) ; compiling (DOLIST (STUFF #) ...) ; compiling (DEFOPTIMIZER (LOG DERIVE-TYPE) ...) ; compiling (DEFKNOWN (%TAN %SINH ...) ...) ; compiling (DEFKNOWN (%SIN %COS ...) ...) ; compiling (DEFKNOWN (%ASIN %ATAN) ...) ; compiling (DEFKNOWN (%ACOS) ...) ; compiling (DEFKNOWN (%COSH) ...) ; compiling (DEFKNOWN (%ACOSH %EXP ...) ...) ; compiling (DEFKNOWN %EXPM1 ...) ; compiling (DEFKNOWN (%HYPOT) ...) ; compiling (DEFKNOWN (%POW) ...) ; compiling (DEFKNOWN (%ATAN2) ...) ; compiling (DEFKNOWN (%SCALB) ...) ; compiling (DEFKNOWN (%SCALBN) ...) ; compiling (DEFKNOWN (%LOG1P) ...) ; compiling (DEF EXP ...) ; compiling (DEF LOG ...) ; compiling (DEF SQRT ...) ; compiling (DEF ASIN ...) ; compiling (DEF ACOS ...) ; compiling (DEF ATAN ...) ; compiling (DEF SINH ...) ; compiling (DEF COSH ...) ; compiling (DEF TANH ...) ; compiling (DEF ASINH ...) ; compiling (DEF ACOSH ...) ; compiling (DEF ATANH ...) ; compiling (DEF SIN ...) ; compiling (DEF COS ...) ; compiling (DEF TAN ...) ; compiling (DEFTRANSFORM ATAN ...) ; compiling (DEFTRANSFORM ATAN ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEFTRANSFORM LOG ...) ; compiling (DEFTRANSFORM ABS ...) ; compiling (DEFTRANSFORM ABS ...) ; compiling (DEFTRANSFORM PHASE ...) ; compiling (DEFTRANSFORM PHASE ...) ; compiling (DEFTRANSFORM PHASE ...) ; compiling (DEFUN NUMERIC-TYPE-REAL-P ...) ; compiling (DEFUN COERCE-NUMERIC-BOUND ...) ; compiling (DEFTRANSFORM REALPART ...) ; compiling (DEFTRANSFORM IMAGPART ...) ; compiling (DEFUN REALPART-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (REALPART DERIVE-TYPE) ...) ; compiling (DEFUN IMAGPART-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (IMAGPART DERIVE-TYPE) ...) ; compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-1 ...) ; compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-2 ...) ; compiling (FROB SINGLE-FLOAT) ; compiling (FROB DOUBLE-FLOAT) ; compiling (DEFINE-FROBS TRUNCATE ...) ; compiling (DEFINE-FROBS ROUND ...) ; compiling (DEFTRANSFORM %UNARY-TRUNCATE ...) ; compiling (DEFTRANSFORM %UNARY-TRUNCATE ...) ; compiling (DEF SINGLE-FLOAT ...) ; compiling (DEF DOUBLE-FLOAT ...) ; compiling (DEFKNOWN %UNARY-FTRUNCATE ...) ; compiling (DEFKNOWN %UNARY-FTRUNCATE/SINGLE ...) ; compiling (DEFKNOWN %UNARY-FTRUNCATE/DOUBLE ...) ; compiling (DEFUN %UNARY-FTRUNCATE/SINGLE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFUN %UNARY-FTRUNCATE/SINGLE ; (- EXP SB!VM:SINGLE-FLOAT-BIAS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; (= 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 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 ; (<= SB!C::BIASED 0) ; --> OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (- EXP SB!VM:SINGLE-FLOAT-BIAS) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; can't tell whether the result is a (VALUES FIXNUM &REST T) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; can't tell whether the result is a (VALUES FIXNUM &REST T) ; etc. ; (<= SB!C::BIASED 0) ; --> OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; can't tell whether the second argument is a FIXNUM ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; can't tell whether the second argument is a (SIGNED-BYTE 64) ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &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 62). ; 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 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (- (ASH 1 SB!C::FRAC-BITS) 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (LOGANDC2 SB!C::BITS (- (ASH 1 SB!C::FRAC-BITS) 1)) ; --> LOGAND ; ==> ; (LOGNOT (- (ASH 1 SB!C::FRAC-BITS) 1)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES (INTEGER * 0) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a (INTEGER -1), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER * 0) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; ==> ; (LOGAND SB!C::BITS (LOGNOT (- (ASH 1 SB!C::FRAC-BITS) 1))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (INTEGER * 0), not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER * 0), not a (SIGNED-BYTE 64). ; The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; compiling (DEFUN %UNARY-FTRUNCATE/DOUBLE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFUN %UNARY-FTRUNCATE/DOUBLE ; (- EXP SB!VM:DOUBLE-FLOAT-BIAS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; (= 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 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 ; (< 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: ; The first argument is a REAL, not a FLOAT. ; --> OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (- EXP SB!VM:DOUBLE-FLOAT-BIAS) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; can't tell whether the result is a (VALUES FIXNUM &REST T) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; can't tell whether the result is a (VALUES FIXNUM &REST T) ; etc. ; (<= SB!C::BIASED 0) ; --> OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; can't tell whether the second argument is a FIXNUM ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; can't tell whether the second argument is a (SIGNED-BYTE 64) ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &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 62). ; 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 62). ; 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 64) arithmetic (cost 2) because: ; The first argument is a (INTEGER -1), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER * 0) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &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 second argument is a (INTEGER * 0), not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER * 0), not a (SIGNED-BYTE 64). ; The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &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 62). ; 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 62). ; 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 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; (* SB!C::X 0.0d0) ; ; note: doing float to pointer coercion (cost 13) to "", for: ; the first result of inline float arithmetic ; compiling (DEF SINGLE-FLOAT ...) ; compiling (DEF DOUBLE-FLOAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFUN %UNARY-FTRUNCATE/DOUBLE ; (THE SB!KERNEL:DOUBLE-FLOAT-EXPONENT (- EXP SB!VM:DOUBLE-FLOAT-BIAS)) ; ; caught STYLE-WARNING: ; undefined type: DOUBLE-FLOAT-EXPONENT ; in: DEFOPTIMIZER (IMAGPART DERIVE-TYPE) ; (SB!C::ONE-ARG-DERIVE-TYPE SB!C::NUM #'SB!C::IMAGPART-DERIVE-TYPE-AUX ; #'IMAGPART) ; ; caught STYLE-WARNING: ; undefined function: ONE-ARG-DERIVE-TYPE ; in: DEFOPTIMIZER (REALPART DERIVE-TYPE) ; (SB!C::ONE-ARG-DERIVE-TYPE SB!C::NUM #'SB!C::REALPART-DERIVE-TYPE-AUX ; #'REALPART) ; ; caught STYLE-WARNING: ; undefined function: ONE-ARG-DERIVE-TYPE ; in: DEFUN %UNARY-FTRUNCATE/SINGLE ; (THE SB!KERNEL:SINGLE-FLOAT-EXPONENT (- EXP SB!VM:SINGLE-FLOAT-BIAS)) ; ; caught STYLE-WARNING: ; undefined type: SINGLE-FLOAT-EXPONENT ; ; compilation unit finished ; Undefined types: ; DOUBLE-FLOAT-EXPONENT SINGLE-FLOAT-EXPONENT ; Undefined function: ; ONE-ARG-DERIVE-TYPE ; caught 4 STYLE-WARNING conditions ; printed 48 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/float-tran.fasl-tmp written ; compilation finished in 0:00:00.389 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/saptran.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFTRANSFORM FOREIGN-SYMBOL-ADDRESS ...) ; compiling (DEFTRANSFORM FOREIGN-SYMBOL-SAP ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/saptran.lisp ; in: DEFTRANSFORM FOREIGN-SYMBOL-SAP ; (SB!SYS:FIND-FOREIGN-SYMBOL-IN-TABLE SB!C::NAME ; SB!SYS:*STATIC-FOREIGN-SYMBOLS*) ; ==> ; SB!C::NAME ; ; note: deleting unreachable code ; 'SB!SYS:FOREIGN-SYMBOL-DATAREF-SAP ; ; note: deleting unreachable code ; compiling (DEFKNOWN (SAP< SAP<= ...) ...) ; compiling (DEFKNOWN SAP+ ...) ; compiling (DEFKNOWN SAP- ...) ; compiling (DEFKNOWN SAP-INT ...) ; compiling (DEFKNOWN INT-SAP ...) ; compiling (DEFSAPREF SAP-REF-8 ...) ; compiling (DEFSAPREF SAP-REF-16 ...) ; compiling (DEFSAPREF SAP-REF-32 ...) ; compiling (DEFSAPREF SAP-REF-64 ...) ; compiling (DEFSAPREF SAP-REF-WORD ...) ; compiling (DEFSAPREF SIGNED-SAP-REF-8 ...) ; compiling (DEFSAPREF SIGNED-SAP-REF-16 ...) ; compiling (DEFSAPREF SIGNED-SAP-REF-32 ...) ; compiling (DEFSAPREF SIGNED-SAP-REF-64 ...) ; compiling (DEFSAPREF SIGNED-SAP-REF-WORD ...) ; compiling (DEFSAPREF SAP-REF-SAP ...) ; compiling (DEFSAPREF SAP-REF-LISPOBJ ...) ; compiling (DEFSAPREF SAP-REF-SINGLE ...) ; compiling (DEFSAPREF SAP-REF-DOUBLE ...) ; compiling (DEFSAPREF SAP-REF-LONG ...) ; compiling (DEF SAP< ...) ; compiling (DEF SAP<= ...) ; compiling (DEF SAP= ...) ; compiling (DEF SAP>= ...) ; compiling (DEF SAP> ...) ; compiling (DEFTRANSFORM SAP+ ...) ; compiling (DEF SAP-REF-8) ; compiling (DEF %SET-SAP-REF-8 ...) ; compiling (DEF SIGNED-SAP-REF-8) ; compiling (DEF %SET-SIGNED-SAP-REF-8 ...) ; compiling (DEF SAP-REF-16) ; compiling (DEF %SET-SAP-REF-16 ...) ; compiling (DEF SIGNED-SAP-REF-16) ; compiling (DEF %SET-SIGNED-SAP-REF-16 ...) ; compiling (DEF SAP-REF-32) ; compiling (DEF %SET-SAP-REF-32 ...) ; compiling (DEF SIGNED-SAP-REF-32) ; compiling (DEF %SET-SIGNED-SAP-REF-32 ...) ; compiling (DEF SAP-REF-64) ; compiling (DEF %SET-SAP-REF-64 ...) ; compiling (DEF SIGNED-SAP-REF-64) ; compiling (DEF %SET-SIGNED-SAP-REF-64 ...) ; compiling (DEF SAP-REF-SAP) ; compiling (DEF %SET-SAP-REF-SAP ...) ; compiling (DEF SAP-REF-LISPOBJ) ; compiling (DEF %SET-SAP-REF-LISPOBJ ...) ; compiling (DEF SAP-REF-SINGLE) ; compiling (DEF %SET-SAP-REF-SINGLE ...) ; compiling (DEF SAP-REF-DOUBLE) ; compiling (DEF %SET-SAP-REF-DOUBLE ...) ; compiling (DEF SAP-REF-WORD ...) ; compiling (DEF SIGNED-SAP-REF-WORD ...) ; compiling (DEF %SET-SAP-REF-WORD ...) ; compiling (DEF %SET-SIGNED-SAP-REF-WORD ...); ; compilation unit finished ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/saptran.fasl-tmp written ; compilation finished in 0:00:00.115 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/srctran.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-SOURCE-TRANSFORM IDENTITY ...) ; compiling (DEFINE-SOURCE-TRANSFORM VALUES ...) ; compiling (DEFOPTIMIZER (CONSTANTLY DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM COMPLEMENT ...) ; compiling (DEFUN DERIVE-SYMBOL-VALUE-TYPE ...) ; compiling (DEFOPTIMIZER (SYMBOL-VALUE DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (SYMBOL-GLOBAL-VALUE DERIVE-TYPE) ...) ; compiling (DEFUN SOURCE-TRANSFORM-CXR ...) ; compiling (/SHOW0 "about to set CxR source transforms") ; compiling (LOOP FOR ...) ; compiling (/SHOW0 "done setting CxR source transforms") ; compiling (DEFINE-SOURCE-TRANSFORM REST ...) ; compiling (DEFINE-SOURCE-TRANSFORM FIRST ...) ; compiling (DEFINE-SOURCE-TRANSFORM SECOND ...) ; compiling (DEFINE-SOURCE-TRANSFORM THIRD ...) ; compiling (DEFINE-SOURCE-TRANSFORM FOURTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM FIFTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM SIXTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM SEVENTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM EIGHTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM NINTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM TENTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM LIST ...) ; compiling (DEFOPTIMIZER (LIST DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM LIST* ...) ; compiling (DEFOPTIMIZER (LIST* DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM NCONC ...) ; compiling (DEFUN DERIVE-APPEND-TYPE ...) ; compiling (DEFOPTIMIZER (APPEND DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (SB!IMPL::APPEND2 DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (NCONC DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM RPLACA ...) ; compiling (DEFINE-SOURCE-TRANSFORM RPLACD ...) ; compiling (DEFTRANSFORM LAST ...) ; compiling (DEFINE-SOURCE-TRANSFORM GETHASH ...) ; compiling (DEFINE-SOURCE-TRANSFORM GET ...) ; compiling (DEFVAR *DEFAULT-NTHCDR-OPEN-CODE-LIMIT* ...) ; compiling (DEFVAR *EXTREME-NTHCDR-OPEN-CODE-LIMIT* ...) ; compiling (DEFTRANSFORM NTHCDR ...) ; compiling (DEFINE-SOURCE-TRANSFORM PLUSP ...) ; compiling (DEFINE-SOURCE-TRANSFORM MINUSP ...) ; compiling (DEFINE-SOURCE-TRANSFORM ZEROP ...) ; compiling (DEFINE-SOURCE-TRANSFORM 1+ ...) ; compiling (DEFINE-SOURCE-TRANSFORM 1- ...) ; compiling (DEFINE-SOURCE-TRANSFORM ODDP ...) ; compiling (DEFINE-SOURCE-TRANSFORM EVENP ...) ; compiling (DEFFROB TRUNCATE) ; compiling (DEFFROB ROUND) ; compiling (DEFTRANSFORM LOGTEST ...) ; compiling (DEFTRANSFORM LOGBITP ...) ; compiling (DEFINE-SOURCE-TRANSFORM BYTE ...) ; compiling (DEFINE-SOURCE-TRANSFORM BYTE-SIZE ...) ; compiling (DEFINE-SOURCE-TRANSFORM BYTE-POSITION ...) ; compiling (DEFINE-SOURCE-TRANSFORM LDB-TEST ...) ; compiling (DEFINE-SOURCE-TRANSFORM NUMERATOR ...) ; compiling (DEFINE-SOURCE-TRANSFORM DENOMINATOR ...) ; compiling (DEF SIGNED-ZERO->= ...) ; compiling (DEF SIGNED-ZERO-> ...) ; compiling (DEF SIGNED-ZERO-= ...) ; compiling (DEF SIGNED-ZERO-< ...) ; compiling (DEF SIGNED-ZERO-<= ...) ; compiling (DEFSTRUCT (INTERVAL # ...) ...) ; compiling (DEFUN MAKE-INTERVAL ...) ; compiling (DECLAIM (INLINE SET-BOUND)) ; compiling (DEFUN SET-BOUND ...) ; compiling (DEFUN BOUND-FUNC ...)(can't portably mask float traps, proceeding anyway) ; compiling (DEFUN SAFE-DOUBLE-COERCION-P ...) ; compiling (DEFUN SAFE-SINGLE-COERCION-P ...) ; compiling (DEFMACRO SAFELY-BINOP ...) ; compiling (DEFMACRO BOUND-BINOP ...) ; compiling (DEFUN COERCION-LOSES-PRECISION-P ...) ; compiling (DEFUN COERCE-FOR-BOUND ...) ; compiling (DEFUN COERCE-AND-TRUNCATE-FLOATS ...) ; compiling (DEFUN NUMERIC-TYPE->INTERVAL ...) ; compiling (DEFUN TYPE-APPROXIMATE-INTERVAL ...) ; compiling (DEFUN COPY-INTERVAL-LIMIT ...) ; compiling (DEFUN COPY-INTERVAL ...) ; compiling (DEFUN INTERVAL-SPLIT ...) ; compiling (DEFUN INTERVAL-CLOSURE ...) ; compiling (DEFUN INTERVAL-RANGE-INFO ...) ; compiling (DEFUN INTERVAL-BOUNDED-P ...) ; compiling (DEFUN INTERVAL-CONTAINS-P ...) ; compiling (DEFUN INTERVAL-INTERSECT-P ...) ; compiling (DEFUN INTERVAL-ADJACENT-P ...) ; compiling (DEFUN INTERVAL-INTERSECTION/DIFFERENCE ...) ; compiling (DEFUN INTERVAL-MERGE-PAIR ...) ; compiling (DEFUN INTERVAL-APPROXIMATE-UNION ...) ; compiling (DEFUN INTERVAL-NEG ...) ; compiling (DEFUN INTERVAL-ADD ...)(can't portably mask float traps, proceeding anyway) (can't portably mask float traps, proceeding anyway) ; compiling (DEFUN INTERVAL-SUB ...)(can't portably mask float traps, proceeding anyway) (can't portably mask float traps, proceeding anyway) ; compiling (DEFUN INTERVAL-MUL ...)(can't portably mask float traps, proceeding anyway) ; compiling (DEFUN INTERVAL-DIV ...)(can't portably mask float traps, proceeding anyway) ; compiling (DEFUN INTERVAL-FUNC ...) ; compiling (DEFUN INTERVAL-< ...) ; compiling (DEFUN INTERVAL->= ...) ; compiling (DEFUN INTERVAL-= ...) ; compiling (DEFUN INTERVAL-/= ...) ; compiling (DEFUN INTERVAL-ABS ...) ; compiling (DEFUN INTERVAL-SQR ...) ; compiling (DEFUN DERIVE-INTEGER-TYPE-AUX ...) ; compiling (DEFUN DERIVE-INTEGER-TYPE ...) ; compiling (DEFUN FLATTEN-LIST ...) ; compiling (DEFUN PREPARE-ARG-FOR-DERIVE-TYPE ...) ; compiling (DEFUN CONVERT-NUMERIC-TYPE ...) ; compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE ...) ; compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE-LIST ...) ; compiling (DEFVAR *DERIVED-NUMERIC-UNION-COMPLEXITY-LIMIT* ...) ; compiling (DEFUN MAKE-DERIVED-UNION-TYPE ...) ; compiling (DEFUN CONVERT-MEMBER-TYPE ...) ; compiling (DEFUN ONE-ARG-DERIVE-TYPE ...)(can't portably mask float traps, proceeding anyway) ; compiling (DEFUN TWO-ARG-DERIVE-TYPE ...)(can't portably mask float traps, proceeding anyway) ; compiling (DEFOPTIMIZER (+ DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (- DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (* DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (/ DERIVE-TYPE) ...) ; compiling (DEFUN ASH-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (ASH DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%NEGATE DERIVE-TYPE) ...) ; compiling (DEFUN LOGNOT-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (LOGNOT DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (ABS DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (TRUNCATE DERIVE-TYPE) ...) ; compiling (DEFUN NUMERIC-RANGE-INFO ...) ; compiling (DEFUN INTEGER-TRUNCATE-DERIVE-TYPE ...) ; compiling (DEFUN INTEGER-REM-DERIVE-TYPE ...) ; compiling (DEFOPTIMIZER (RANDOM DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (INTEGER-LENGTH DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (ISQRT DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (CHAR-CODE DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (CODE-CHAR DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (VALUES DERIVE-TYPE) ...) ; compiling (DEFUN SIGNUM-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (SIGNUM DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM LDB ...) ; compiling (DEFINE-SOURCE-TRANSFORM DPB ...) ; compiling (DEFINE-SOURCE-TRANSFORM MASK-FIELD ...) ; compiling (DEFINE-SOURCE-TRANSFORM DEPOSIT-FIELD ...) ; compiling (DEFOPTIMIZER (%LDB DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%MASK-FIELD DERIVE-TYPE) ...) ; compiling (DEFUN %DEPOSIT-FIELD-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (%DPB DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%DEPOSIT-FIELD DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %LDB ...) ; compiling (DEFTRANSFORM %MASK-FIELD ...) ; compiling (DEFTRANSFORM %DPB ...) ; compiling (DEFTRANSFORM %DPB ...) ; compiling (DEFTRANSFORM %DEPOSIT-FIELD ...) ; compiling (DEFTRANSFORM %DEPOSIT-FIELD ...) ; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD DERIVE-TYPE) ...) ; compiling (DEFUN %ASH/RIGHT ...) ; compiling (DEFTRANSFORM ASH ...) ; compiling (DEFTRANSFORM ASH ...) ; compiling (DEFTRANSFORM %ASH/RIGHT ...) ; compiling (DEFTRANSFORM %ASH/RIGHT ...) ; compiling (DEFUN %ASH/RIGHT-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (%ASH/RIGHT DERIVE-TYPE) ...) ; compiling (DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER ...) ; compiling (DEFUN CUT-TO-WIDTH ...) ; compiling (DEFUN BEST-MODULAR-VERSION ...) ; compiling (DEFUN INTEGER-TYPE-NUMERIC-BOUNDS ...) ; compiling (DEFOPTIMIZER (LOGAND OPTIMIZER) ...) ; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD OPTIMIZER) ...) ; compiling (DEFOPTIMIZER (LOGIOR OPTIMIZER) ...) ; compiling (DEFTRANSFORM BOOLE ...) ; compiling (DEFTRANSFORM * ...) ; compiling (DEFTRANSFORM FLOOR ...) ; compiling (DEFTRANSFORM CEILING ...) ; compiling (DEFTRANSFORM REM ...) ; compiling (DEFTRANSFORM MOD ...) ; compiling (FLET (#) ...) ; compiling (DEFTRANSFORM MOD ...) ; compiling (DEFTRANSFORM TRUNCATE ...) ; compiling (DEFTRANSFORM REM ...) ; compiling (DEFUN GEN-UNSIGNED-DIV-BY-CONSTANT-EXPR ...) ; compiling (DEFTRANSFORM TRUNCATE ...) ; compiling (DEF ASH ...) ; compiling (DEF LOGAND ...) ; compiling (DEF LOGAND ...) ; compiling (DEF LOGIOR ...) ; compiling (DEF LOGIOR ...) ; compiling (DEF LOGXOR ...) ; compiling (DEF LOGXOR ...) ; compiling (DEFUN LEAST-ZERO-BIT ...) ; compiling (DEFTRANSFORM LOGAND ...) ; compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...) ; compiling (DEFTRANSFORM LOGIOR ...) ; compiling (DEF LOGAND) ; compiling (DEF LOGIOR) ; compiling (DEF LOGXOR) ; compiling (DEF LOGTEST ...) ; compiling (DEF + ...) ; compiling (DEF + ...) ; compiling (DEF * ...) ; compiling (DEF * ...) ; compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...) ; compiling (DEFTRANSFORM - ...) ; compiling (DEFTRANSFORM * ...) ; compiling (DEFTRANSFORM %NEGATE ...) ; compiling (DEFTRANSFORM %NEGATE ...) ; compiling (DEFUN NOT-MORE-CONTAGIOUS ...) ; compiling (DEF!TYPE EXACT-NUMBER ...) ; compiling (DEFTRANSFORM + ...) ; compiling (DEFTRANSFORM - ...) ; compiling (DEF * ...) ; compiling (DEF / ...) ; compiling (DEF EXPT ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEF ASH) ; compiling (DEF /) ; compiling (DEF TRUNCATE) ; compiling (DEF ROUND) ; compiling (DEF FLOOR) ; compiling (DEF CEILING) ; compiling (DEF TRUNCATE) ; compiling (DEF ROUND) ; compiling (DEF FLOOR) ; compiling (DEF CEILING) ; compiling (DEF FTRUNCATE ...) ; compiling (DEF FROUND ...) ; compiling (DEF FFLOOR ...) ; compiling (DEF FCEILING ...) ; compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...) ; compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...) ; compiling (DEFTRANSFORM CHAR-UPCASE ...) ; compiling (DEFTRANSFORM CHAR-DOWNCASE ...) ; compiling (DEFUN SAME-LEAF-REF-P ...) ; compiling (DEFTRANSFORM SIMPLE-EQUALITY-TRANSFORM ...) ; compiling (DEF EQ) ; compiling (DEF CHAR=) ; compiling (DEF TWO-ARG-CHAR-EQUAL) ; compiling (DEFTRANSFORM EQL ...) ; compiling (DEFTRANSFORM EQUAL ...) ; compiling (DEFTRANSFORM EQUALP ...) ; compiling (DEFTRANSFORM = ...) ; compiling (DEFUN MAYBE-FLOAT-LVAR-P ...) ; compiling (FLET (#) ...) ; compiling (DEF = ...) ; compiling (DEF /= ...) ; compiling (DEF < ...) ; compiling (DEF > ...) ; compiling (DEF <= ...) ; compiling (DEF >= ...) ; compiling (DEFUN IR1-TRANSFORM-CHAR< ...) ; compiling (DEFTRANSFORM CHAR< ...) ; compiling (DEFTRANSFORM CHAR> ...) ; compiling (DEFUN MULTI-COMPARE ...) ; compiling (DEFINE-SOURCE-TRANSFORM = ...) ; compiling (DEFINE-SOURCE-TRANSFORM < ...) ; compiling (DEFINE-SOURCE-TRANSFORM > ...) ; compiling (DEFINE-SOURCE-TRANSFORM <= ...) ; compiling (DEFINE-SOURCE-TRANSFORM >= ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR= ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR< ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR> ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR<= ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR>= ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-EQUAL ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-LESSP ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-GREATERP ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-GREATERP ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-LESSP ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MULTI-NOT-EQUAL ...) ; compiling (DEFINE-SOURCE-TRANSFORM /= ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR/= ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-EQUAL ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAX ...) ; compiling (DEFINE-SOURCE-TRANSFORM MIN ...) ; compiling (DEF < ...) ; compiling (DEF > ...) ; compiling (DEFTRANSFORM = ...) ; compiling (DEFTRANSFORM = ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN ASSOCIATE-ARGS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN REDUCE-CONSTANTS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SOURCE-TRANSFORM-TRANSITIVE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/srctran.lisp ; in: DEFUN SOURCE-TRANSFORM-TRANSITIVE ; (DEFUN SB!C::SOURCE-TRANSFORM-TRANSITIVE ; (SB!C::FUN SB!C::ARGS IDENTITY ; &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER) ; (SB!C::ONE-ARG-PREFIXES '(VALUES))) ; (CASE (LENGTH SB!C::ARGS) ; (0 IDENTITY) ; (1 ; (SB!IMPL::BACKQ-APPEND SB!C::ONE-ARG-PREFIXES (SB!IMPL::BACKQ-LIST #))) ; (2 (VALUES NIL T)) ; (T ; (LET (#) ; (SB!C::ASSOCIATE-ARGS SB!C::FUN # # IDENTITY))))) ; --> PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%DEFUN 'SB!C::SOURCE-TRANSFORM-TRANSITIVE ; (SB-INT:NAMED-LAMBDA SB!C::SOURCE-TRANSFORM-TRANSITIVE ; (SB!C::FUN SB!C::ARGS IDENTITY &OPTIONAL ; (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER) ; (SB!C::ONE-ARG-PREFIXES '(VALUES))) ; (BLOCK SB!C::SOURCE-TRANSFORM-TRANSITIVE ; (CASE (LENGTH SB!C::ARGS) ; (0 IDENTITY) ; (1 #) ; (2 #) ; (T #)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; note: type assertion too complex to check: ; (VALUES T &OPTIONAL (MEMBER NIL T)). ; compiling (DEFINE-SOURCE-TRANSFORM + ...) ; compiling (DEFINE-SOURCE-TRANSFORM * ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGIOR ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGXOR ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGAND ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...) ; compiling (DEFINE-SOURCE-TRANSFORM GCD ...) ; compiling (DEFINE-SOURCE-TRANSFORM LCM ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SOURCE-TRANSFORM-INTRANSITIVE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/srctran.lisp ; in: DEFUN SOURCE-TRANSFORM-INTRANSITIVE ; (DEFUN SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY SB!C::ONE-ARG-PREFIXES ; &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER)) ; (CASE (LENGTH SB!C::ARGS) ; ((0 2) (VALUES NIL T)) ; (1 ; (SB!IMPL::BACKQ-APPEND SB!C::ONE-ARG-PREFIXES (SB!IMPL::BACKQ-LIST #))) ; (T ; (LET (#) ; (SB!C::ASSOCIATE-ARGS SB!C::FUN # SB!C::REDUCED-ARGS IDENTITY))))) ; --> PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%DEFUN 'SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (SB-INT:NAMED-LAMBDA SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY ; SB!C::ONE-ARG-PREFIXES &OPTIONAL ; (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER)) ; (BLOCK SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (CASE (LENGTH SB!C::ARGS) (# #) (1 #) (T #)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; note: type assertion too complex to check: ; (VALUES LIST &OPTIONAL (MEMBER NIL T)). ; compiling (DEFINE-SOURCE-TRANSFORM - ...) ; compiling (DEFINE-SOURCE-TRANSFORM / ...) ; compiling (DEFINE-SOURCE-TRANSFORM APPLY ...) ; compiling (DEFUN POSSIBLE-REST-ARG-CONTEXT ...) ; compiling (DEFUN MARK-MORE-CONTEXT-USED ...) ; compiling (DEFUN MARK-MORE-CONTEXT-INVALID ...) ; compiling (DEFUN REST-VAR-MORE-CONTEXT-OK ...) ; compiling (DEFINE-SOURCE-TRANSFORM VALUES-LIST ...) ; compiling (DEFINE-SOURCE-TRANSFORM NTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM ELT ...) ; compiling (DEFUN SOURCE-TRANSFORM-CAR ...) ; compiling (DEFINE-SOURCE-TRANSFORM CAR ...) ; compiling (DEFINE-SOURCE-TRANSFORM CADR ...) ; compiling (DEFINE-SOURCE-TRANSFORM CADDR ...) ; compiling (DEFINE-SOURCE-TRANSFORM CADDDR ...) ; compiling (DEFUN SOURCE-TRANSFORM-LENGTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM LENGTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM LIST-LENGTH ...) ; compiling (DEFUN SOURCE-TRANSFORM-NULL ...) ; compiling (DEFINE-SOURCE-TRANSFORM NOT ...) ; compiling (DEFINE-SOURCE-TRANSFORM NULL ...) ; compiling (DEFINE-SOURCE-TRANSFORM ENDP ...) ; compiling (DEFTRANSFORM %REST-VALUES ...) ; compiling (DEFTRANSFORM %REST-REF ...) ; compiling (DEFTRANSFORM %REST-LENGTH ...) ; compiling (DEFTRANSFORM %REST-NULL ...) ; compiling (DEFTRANSFORM %REST-TRUE ...) ; compiling (DEFUN CHECK-FORMAT-ARGS ...) ; compiling (DEFOPTIMIZER (FORMAT OPTIMIZER) ...) ; compiling (DEFTRANSFORM FORMAT ...) ; compiling (DEFTRANSFORM FORMAT ...) ; compiling (DEFTRANSFORM PATHNAME ...) ; compiling (DEFTRANSFORM PATHNAME ...) ; compiling (DEF ERROR) ; compiling (DEF WARN) ; compiling (DEF STYLE-WARN) ; compiling (DEF COMPILER-ERROR) ; compiling (DEF COMPILER-WARN) ; compiling (DEF COMPILER-STYLE-WARN) ; compiling (DEF COMPILER-NOTIFY) ; compiling (DEF MAYBE-COMPILER-NOTIFY) ; compiling (DEF BUG) ; compiling (DEFOPTIMIZER (CERROR OPTIMIZER) ...) ; compiling (DEFOPTIMIZER (COERCE DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (COMPILE DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (ARRAY-ELEMENT-TYPE DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM SB!IMPL::SORT-VECTOR ...) ; compiling (DEFTRANSFORM SORT ...) ; compiling (DEFTRANSFORM STABLE-SORT ...) ; compiling (DEFKNOWN SET-INFO-VALUE ...) ; compiling (DEFOPTIMIZER (SET-INFO-VALUE DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM POLICY-QUALITY ...) ; compiling (DEFTRANSFORM ENCODE-UNIVERSAL-TIME ...) ; compiling (DEFTRANSFORM SLEEP ...) ; compiling (DEFTRANSFORM SLEEP ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/srctran.lisp ; in: DEFOPTIMIZER (CERROR OPTIMIZER) ; (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING SB!C::Y SB!C::ARGS) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING ; in: DEFUN CHECK-FORMAT-ARGS ; (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING ; in: DEFUN INTERVAL-MUL ; (SB!EXT:FLOAT-INFINITY-P SB!C::Y) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-INFINITY-P ; in: DEFUN BOUND-FUNC ; (SB!EXT:FLOAT-INFINITY-P SB!C::Y) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-INFINITY-P ; in: DEFUN TWO-ARG-DERIVE-TYPE ; (SB!EXT:FLOAT-NAN-P SB!C::RESULT) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-NAN-P ; in: DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER ; (SB!C::LOGAND-DERIVE-TYPE-AUX SB!C::RES SB!C::MASK-TYPE) ; ; caught STYLE-WARNING: ; undefined function: LOGAND-DERIVE-TYPE-AUX ; in: DEFTRANSFORM LOGTEST ; #'SB!C::LOGAND-DERIVE-TYPE-AUX ; ; caught STYLE-WARNING: ; undefined function: LOGAND-DERIVE-TYPE-AUX ; in: DEFUN CUT-TO-WIDTH ; (SB!C::MASK-SIGNED-FIELD SB!C::WIDTH SB!C::CONSTANT-VALUE) ; ; caught STYLE-WARNING: ; undefined function: MASK-SIGNED-FIELD ; in: DEFTRANSFORM = ; (SB!INT:RATIOP SB!C::Y) ; ; caught STYLE-WARNING: ; undefined function: RATIOP ; in: DEFTRANSFORM SLEEP ; (SB!IMPL::SPLIT-SECONDS-FOR-SLEEP SB!C::SECONDS-VALUE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::SPLIT-SECONDS-FOR-SLEEP ; ; compilation unit finished ; Undefined functions: ; SB!FORMAT:%COMPILER-WALK-FORMAT-STRING FLOAT-INFINITY-P FLOAT-NAN-P LOGAND-DERIVE-TYPE-AUX MASK-SIGNED-FIELD RATIOP SB!IMPL::SPLIT-SECONDS-FOR-SLEEP ; caught 10 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/srctran.fasl-tmp written ; compilation finished in 0:00:01.555 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/bitops-derive-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN INTEGER-TYPE-LENGTH ...) ; compiling (DECLAIM (INLINE ZEROES)) ; compiling (DEFUN ZEROES ...) ; compiling (DECLAIM (INLINE ONES)) ; compiling (DEFUN ONES ...) ; compiling (DEFUN LOGAND-DERIVE-UNSIGNED-BOUNDS ...) ; compiling (DEFUN LOGAND-DERIVE-TYPE-AUX ...) ; compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-BOUNDS ...) ; compiling (DEFUN LOGIOR-DERIVE-TYPE-AUX ...) ; compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-BOUNDS ...) ; compiling (DEFUN LOGXOR-DERIVE-TYPE-AUX ...) ; compiling (DEFFROB LOGAND) ; compiling (DEFFROB LOGIOR) ; compiling (DEFFROB LOGXOR) ; compiling (DEFOPTIMIZER (LOGEQV DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (LOGNAND DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (LOGNOR DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (LOGANDC1 DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (LOGANDC2 DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (LOGORC1 DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (LOGORC2 DERIVE-TYPE) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/bitops-derive-type.fasl-tmp written ; compilation finished in 0:00:00.111 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-tran.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-SOURCE-TRANSFORM SHORT-FLOAT-P ...) ; compiling (DEFINE-SOURCE-TRANSFORM LONG-FLOAT-P ...) ; compiling (DEFINE-SOURCE-TRANSFORM COMPILED-FUNCTION-P ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-INT ...) ; compiling (DEFTRANSFORM ABS ...) ; compiling (DEFINE-SOURCE-TRANSFORM %BIGNUM-REF ...) ; compiling (DEFUN FOLD-INDEX-ADDRESSING ...) ; compiling (DEFTRANSFORM %BIGNUM-REF-WITH-OFFSET ...) ; compiling (DEFINE-SOURCE-TRANSFORM %INSTANCE-LAYOUT ...) ; compiling (DEFINE-SOURCE-TRANSFORM %SET-INSTANCE-LAYOUT ...) ; compiling (DEFINE-SOURCE-TRANSFORM %FUNCALLABLE-INSTANCE-LAYOUT ...) ; compiling (DEFINE-SOURCE-TRANSFORM %SET-FUNCALLABLE-INSTANCE-LAYOUT ...) ; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...) ; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...) ; compiling (DEFTRANSFORM DATA-VECTOR-REF ...) ; compiling (DEFINE-SOURCE-TRANSFORM DATA-VECTOR-REF ...) ; compiling (DEFTRANSFORM DATA-VECTOR-REF-WITH-OFFSET ...) ; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...) ; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...) ; compiling (DEFTRANSFORM DATA-VECTOR-SET ...) ; compiling (DEFINE-SOURCE-TRANSFORM DATA-VECTOR-SET ...) ; compiling (DEFTRANSFORM DATA-VECTOR-SET-WITH-OFFSET ...) ; compiling (DEFUN MAYBE-ARRAY-DATA-VECTOR-TYPE-SPECIFIER ...) ; compiling (DEF %ARRAY-DATA-VECTOR) ; compiling (DEF ARRAY-STORAGE-VECTOR) ; compiling (DEFOPTIMIZER (%DATA-VECTOR-AND-INDEX DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %DATA-VECTOR-AND-INDEX ...) ; compiling (DEF BIT-AND ...) ; compiling (DEF BIT-IOR ...) ; compiling (DEF BIT-XOR ...) ; compiling (DEF BIT-EQV ...) ; compiling (DEF BIT-NAND ...) ; compiling (DEF BIT-NOR ...) ; compiling (DEF BIT-ANDC1 ...) ; compiling (DEF BIT-ANDC2 ...) ; compiling (DEF BIT-ORC1 ...) ; compiling (DEF BIT-ORC2 ...) ; compiling (DEFTRANSFORM BIT-NOT ...) ; compiling (DEFTRANSFORM BIT-VECTOR-= ...) ; compiling (DEFTRANSFORM COUNT ...) ; compiling (DEFTRANSFORM FILL ...) ; compiling (DEFTRANSFORM FILL ...) ; compiling (DEFTRANSFORM %BYTE-BLT ...) ; compiling (DEFINE-GOOD-MODULAR-FUN LOGAND ...) ; compiling (DEFINE-GOOD-MODULAR-FUN LOGIOR ...) ; compiling (DEFINE-GOOD-MODULAR-FUN LOGXOR ...) ; compiling (DEFINE-GOOD-SIGNED-MODULAR-FUNS LOGAND ...) ; compiling (DEF SB!VM::ASH-LEFT-MODFX ...) ; compiling (DEF SB!VM::ASH-LEFT-MOD64 ...) ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-tran.lisp ; in: DEFUN FOLD-INDEX-ADDRESSING ; (SB!VM::FOLDABLE-CONSTANT-OFFSET-P SB!C::ELEMENT-SIZE SB!C::LOWTAG ; SB!C::DATA-OFFSET ; (SETF SB!C::NEW-OFFSET ; (FUNCALL SB!C::FUNC (SB!C::LVAR-VALUE SB!C::OFFSET) SB!C::VALUE))) ; ; caught STYLE-WARNING: ; undefined function: SB!VM::FOLDABLE-CONSTANT-OFFSET-P ; ; compilation unit finished ; Undefined function: ; SB!VM::FOLDABLE-CONSTANT-OFFSET-P ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/vm-tran.fasl-tmp written ; compilation finished in 0:00:00.193 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/locall.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN PROPAGATE-TO-ARGS ...) ; compiling (DEFUN RECOGNIZE-DYNAMIC-EXTENT-LVARS ...) ; compiling (DEFUN MERGE-TAIL-SETS ...) ; compiling (DEFUN CONVERT-CALL ...) ; compiling (DEFUN MAKE-XEP-LAMBDA-EXPRESSION ...) ; compiling (DEFUN MAKE-XEP ...) ; compiling (DEFUN LOCALL-ANALYZE-XEP-ENTRY-POINT ...) ; compiling (DEFUN REFERENCE-ENTRY-POINT ...) ; compiling (DEFUN LOCALL-ANALYZE-FUN-1 ...) ; compiling (DEFUN LOCALL-ANALYZE-COMPONENT ...) ; compiling (DEFUN LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ...) ; compiling (DEFUN MAYBE-EXPAND-LOCAL-INLINE ...) ; compiling (DEFUN CONVERT-CALL-IF-POSSIBLE ...) ; compiling (DEFUN CONVERT-MV-CALL ...) ; compiling (DEFUN TRANSFORM-CALL-WITH-IR1-ENVIRONMENT ...) ; compiling (DEFUN WARN-INVALID-LOCAL-CALL ...) ; compiling (DEFUN CONVERT-LAMBDA-CALL ...) ; compiling (DEFUN CONVERT-HAIRY-CALL ...) ; compiling (DEFUN CONVERT-HAIRY-FUN-ENTRY ...) ; compiling (DEFUN CONVERT-MORE-CALL ...) ; compiling (DEFUN INSERT-LET-BODY ...) ; compiling (DEFUN DEPART-FROM-TAIL-SET ...) ; compiling (DEFUN MERGE-LETS ...) ; compiling (DEFUN MOVE-RETURN-USES ...) ; compiling (DEFUN UNCONVERT-TAIL-CALLS ...) ; compiling (DEFUN MOVE-RETURN-STUFF ...) ; compiling (DEFUN LET-CONVERT ...) ; compiling (DEFUN REOPTIMIZE-CALL ...) ; compiling (DEFUN DECLARATIONS-SUPPRESS-LET-CONVERSION-P ...) ; compiling (DEFUN OK-INITIAL-CONVERT-P ...) ; compiling (DEFUN SUBSTITUTE-LET-FUNARGS ...) ; compiling (DEFUN MAYBE-LET-CONVERT ...) ; compiling (DEFUN ONLY-HARMLESS-CLEANUPS ...) ; compiling (DEFUN MAYBE-CONVERT-TAIL-LOCAL-CALL ...) ; compiling (DEFUN MAYBE-CONVERT-TO-ASSIGNMENT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/locall.lisp ; in: DEFUN MERGE-LETS ; (SB!C::GET-LAMBDA-PHYSENV SB!C::HOME) ; ; caught STYLE-WARNING: ; undefined function: GET-LAMBDA-PHYSENV ; in: DEFUN INSERT-LET-BODY ; (SB!C::JOIN-COMPONENTS SB!C:COMPONENT SB!C::CLAMBDA-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: JOIN-COMPONENTS ; ; compilation unit finished ; Undefined functions: ; GET-LAMBDA-PHYSENV JOIN-COMPONENTS ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/locall.fasl-tmp written ; compilation finished in 0:00:00.285 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/dfo.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-DFO ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN JOIN-COMPONENTS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-DFO-AUX ...) ; compiling (DEFUN SCAVENGE-HOME-DEPENDENCY-GRAPH ...) ; compiling (DEFUN FIND-INITIAL-DFO-AUX ...) ; compiling (DEFUN FIND-REFERENCE-FUNS ...) ; compiling (DEFUN DFO-SCAVENGE-DEPENDENCY-GRAPH ...) ; compiling (DEFUN HAS-XEP-OR-NLX ...) ; compiling (DEFUN SEPARATE-TOPLEVELISH-COMPONENTS ...) ; compiling (DEFUN FIND-INITIAL-DFO ...) ; compiling (DEFUN MERGE-1-TOPLEVEL-LAMBDA ...) ; compiling (DEFUN MERGE-TOPLEVEL-LAMBDAS ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/dfo.fasl-tmp written ; compilation finished in 0:00:00.169 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/checkgen.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN FUN-GUESSED-COST ...) ; compiling (DEFUN TYPE-TEST-COST ...) ; compiling (DEFUN WEAKEN-INTEGER-TYPE ...) ; compiling (DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS ...) ...) ; compiling (DEFUN WEAKEN-VALUES-TYPE ...) ; compiling (DEFUN MAYBE-WEAKEN-CHECK ...) ; compiling (DEFUN NO-FUN-VALUES-TYPES ...) ; compiling (DEFVAR *COMPLEMENT-TYPE-CHECKS* ...) ; compiling (DEFUN MAYBE-NEGATE-CHECK ...) ; compiling (DEFUN CAST-CHECK-TYPES ...) ; compiling (DEFUN CAST-EXTERNALLY-CHECKABLE-P ...) ; compiling (DEFUN PROBABLE-TYPE-CHECK-P ...) ; compiling (DEFGLOBAL **TYPE-SPEC-INTERR-SYMBOLS** ...) ; compiling (DEFUN %INTERR-SYMBOL-FOR-TYPE-SPEC ...) ; compiling (DEFUN MAKE-TYPE-CHECK-FORM ...) ; compiling (DEFUN CONVERT-TYPE-CHECK ...) ; compiling (DEFUN CAST-CHECK-USES ...) ; compiling (DEFUN GENERATE-TYPE-CHECKS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/checkgen.lisp ; in: DEFUN MAYBE-NEGATE-CHECK ; #'SB!C::TYPE-CHECK-TEMPLATE ; ; caught STYLE-WARNING: ; undefined function: TYPE-CHECK-TEMPLATE ; in: DEFUN TYPE-TEST-COST ; (SB!C::TYPE-CHECK-TEMPLATE TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-CHECK-TEMPLATE ; ; compilation unit finished ; Undefined function: ; TYPE-CHECK-TEMPLATE ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/checkgen.fasl-tmp written ; compilation finished in 0:00:00.207 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/constraint.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *CONSTRAINT-UNIVERSE*) ; compiling (DEFTYPE CONSTRAINT-Y ...) ; compiling (DEFSTRUCT (CONSTRAINT # ...) ...) ; compiling (DECLAIM (INLINE %CONSTRAINT-NUMBER)) ; compiling (DEFUN %CONSTRAINT-NUMBER ...) ; compiling (DEFSTRUCT (CONSET # ...) ...) ; compiling (DEFUN CONSET-EMPTY ...) ; compiling (DEFUN COPY-CONSET ...) ; compiling (DEFUN %CONSET-GROW ...) ; compiling (DECLAIM (INLINE CONSET-GROW)) ; compiling (DEFUN CONSET-GROW ...) ; compiling (DEFUN CONSET-MEMBER ...) ; compiling (DEFUN CONSET-ADJOIN ...) ; compiling (DEFUN CONSET= ...) ; compiling (DEFCONSETOP CONSET-UNION ...) ; compiling (DEFCONSETOP CONSET-INTERSECTION ...) ; compiling (DEFCONSETOP CONSET-DIFFERENCE ...) ; compiling (DEFUN FIND-CONSTRAINT ...) ; compiling (DEFUN REGISTER-CONSTRAINT ...) ; compiling (DEFUN FIND-OR-CREATE-CONSTRAINT ...) ; compiling (DEFMACRO DO-CONSET-CONSTRAINTS-INTERSECTION ...) ; compiling (DEFMACRO DO-EQL-VARS ...) ; compiling (DEFMACRO DO-INHERITABLE-CONSTRAINTS ...) ; compiling (DEFMACRO DO-PROPAGATABLE-CONSTRAINTS ...) ; compiling (DECLAIM (INLINE CONSET-LVAR-LAMBDA-VAR-EQL-P ...)) ; compiling (DEFUN CONSET-LVAR-LAMBDA-VAR-EQL-P ...) ; compiling (DEFUN CONSET-ADD-LVAR-LAMBDA-VAR-EQL ...) ; compiling (DECLAIM (INLINE CONSET-ADD-CONSTRAINT ...)) ; compiling (DEFUN CONSET-ADD-CONSTRAINT ...) ; compiling (DEFUN CONSET-ADD-CONSTRAINT-TO-EQL ...) ; compiling (DECLAIM (INLINE CONSET-CLEAR-LAMBDA-VAR)) ; compiling (DEFUN CONSET-CLEAR-LAMBDA-VAR ...) ; compiling (DEFUN INHERIT-CONSTRAINTS ...) ; compiling (DEFUN ADD-EQL-VAR-VAR-CONSTRAINT ...) ; compiling (DECLAIM (INLINE OK-REF-LAMBDA-VAR)) ; compiling (DEFUN OK-REF-LAMBDA-VAR ...) ; compiling (DEFUN OK-LVAR-LAMBDA-VAR ...) ; compiling (DEFUN PRECISE-ADD-TEST-CONSTRAINT ...) ; compiling (DEFUN ADD-TEST-CONSTRAINT ...) ; compiling (DECLAIM (INLINE PRECISE-ADD-TEST-CONSTRAINT ...)) ; compiling (DEFUN PRECISE-ADD-COMPLEMENT-CONSTRAINTS ...) ; compiling (DEFUN QUICK-ADD-COMPLEMENT-CONSTRAINTS ...) ; compiling (DEFUN ADD-COMPLEMENT-CONSTRAINTS ...) ; compiling (DEFUN ADD-COMBINATION-TEST-CONSTRAINTS ...) ; compiling (DEFUN ADD-TEST-CONSTRAINTS ...) ; compiling (DEFUN INTEGER-TYPE-P ...) ; compiling (DEFUN CONSTRAIN-INTEGER-TYPE ...) ; compiling (DEFUN FLOAT-TYPE-P ...) ; compiling (DEFUN CONSTRAIN-FLOAT-TYPE ...) ; compiling (DEFUN LEAF-VISIBLE-FROM-NODE-P ...) ; compiling (DEFUN CONSTRAIN-REF-TYPE ...) ; compiling (DEFUN MAYBE-ADD-EQL-VAR-LVAR-CONSTRAINT ...) ; compiling (DEFUN MAYBE-ADD-EQL-VAR-VAR-CONSTRAINT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CONSTRAINT-PROPAGATE-IN-BLOCK ...) ; compiling (DEFUN CONSTRAINT-PROPAGATE-IF ...) ; compiling (DEFUN FIND-BLOCK-TYPE-CONSTRAINTS ...) ; compiling (DEFUN USE-RESULT-CONSTRAINTS ...) ; compiling (DEFUN INIT-VAR-CONSTRAINTS ...) ; compiling (DEFUN BLOCK-OUT-FOR-SUCCESSOR ...) ; compiling (DEFUN COMPUTE-BLOCK-IN ...) ; compiling (DEFUN UPDATE-BLOCK-IN ...) ; compiling (DEFUN LEADING-COMPONENT-BLOCKS ...) ; compiling (DEFUN NCONC-NEW ...) ; compiling (DEFUN FIND-AND-PROPAGATE-CONSTRAINTS ...) ; compiling (DEFUN CONSTRAINT-PROPAGATE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/constraint.fasl-tmp written ; compilation finished in 0:00:00.814 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/physenvanal.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN PHYSENV-ANALYZE ...) ; compiling (DEFUN PRE-PHYSENV-ANALYZE-TOPLEVEL ...) ; compiling (DEFUN GET-LAMBDA-PHYSENV ...) ; compiling (DEFUN REINIT-LAMBDA-PHYSENV ...) ; compiling (DEFUN GET-NODE-PHYSENV ...) ; compiling (DEFUN %ADD-LAMBDA-VARS-TO-CLOSURES ...) ; compiling (DEFUN ADD-LAMBDA-VARS-AND-LET-VARS-TO-CLOSURES ...) ; compiling (DEFUN XEP-ALLOCATOR ...) ; compiling (DEFUN CLOSE-OVER ...) ; compiling (DEFUN ANALYZE-INDIRECT-LAMBDA-VARS ...) ; compiling (DEFVAR *FUNCTIONAL-ESCAPE-INFO*) ; compiling (DEFUN FUNCTIONAL-MAY-ESCAPE-P ...) ; compiling (DEFUN EXIT-SHOULD-CHECK-TAG-P ...) ; compiling (DEFUN INSERT-NLX-ENTRY-STUB ...) ; compiling (DEFUN NOTE-NON-LOCAL-EXIT ...) ; compiling (DEFUN FIND-NON-LOCAL-EXITS ...) ; compiling (DEFUN RECHECK-DYNAMIC-EXTENT-LVARS ...) ; compiling (DEFUN EMIT-CLEANUPS ...) ; compiling (DEFUN FIND-CLEANUP-POINTS ...) ; compiling (DEFUN TAIL-ANNOTATE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/physenvanal.fasl-tmp written ; compilation finished in 0:00:00.126 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/tn.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *COMPONENT-BEING-COMPILED*) ; compiling (DEFMACRO DO-PACKED-TNS ...) ; compiling (DEFUN SET-IR2-PHYSENV-LIVE-TNS ...) ; compiling (DEFUN SET-IR2-PHYSENV-DEBUG-LIVE-TNS ...) ; compiling (DEFUN SET-IR2-COMPONENT-ALIAS-TNS ...) ; compiling (DEFUN SET-IR2-COMPONENT-NORMAL-TNS ...) ; compiling (DEFUN SET-IR2-COMPONENT-RESTRICTED-TNS ...) ; compiling (DEFUN SET-IR2-COMPONENT-WIRED-TNS ...) ; compiling (DEFUN DELETE-UNREFERENCED-TNS ...) ; compiling (DEFUN MAKE-NORMAL-TN ...) ; compiling (DEFUN MAKE-REPRESENTATION-TN ...) ; compiling (DEFUN MAKE-WIRED-TN ...) ; compiling (DEFUN MAKE-RESTRICTED-TN ...) ; compiling (DEFUN PHYSENV-LIVE-TN ...) ; compiling (DEFUN PHYSENV-DEBUG-LIVE-TN ...) ; compiling (DEFUN COMPONENT-LIVE-TN ...) ; compiling (DEFUN SPECIFY-SAVE-TN ...) ; compiling (DEFUN MAKE-CONSTANT-TN ...) ; compiling (DEFUN MAKE-LOAD-TIME-VALUE-TN ...) ; compiling (DEFUN MAKE-ALIAS-TN ...) ; compiling (DEFUN MAKE-LOAD-TIME-CONSTANT-TN ...) ; compiling (DEFUN REFERENCE-TN ...) ; compiling (DEFUN REFERENCE-TN-LIST ...) ; compiling (DEFUN DELETE-TN-REF ...) ; compiling (DEFUN CHANGE-TN-REF-TN ...) ; compiling (DEFUN EMIT-MOVE-TEMPLATE ...) ; compiling (DEFUN EMIT-LOAD-TEMPLATE ...) ; compiling (DEFUN EMIT-MOVE-ARG-TEMPLATE ...) ; compiling (DEFUN EMIT-CONTEXT-TEMPLATE ...) ; compiling (DEFUN BLOCK-LABEL ...) ; compiling (DEFUN BLOCK-TRAMPOLINE ...) ; compiling (DEFUN DROP-THRU-P ...) ; compiling (DEFUN REGISTER-DROP-THRU ...) ; compiling (DEFUN INSERT-VOP ...) ; compiling (DEFUN EMIT-AND-INSERT-VOP ...) ; compiling (DEFUN DELETE-VOP ...) ; compiling (DEFUN MAKE-N-TNS ...) ; compiling (DEFUN LOCATION= ...) ; compiling (DEFUN TN-VALUE ...) ; compiling (DEFUN IMMEDIATE-TN-P ...) ; compiling (DEFUN FORCE-TN-TO-STACK ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/tn.fasl-tmp written ; compilation finished in 0:00:00.269 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/life.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN ADD-GLOBAL-CONFLICT ...) ; compiling (DEFUN INSERT-BLOCK-GLOBAL-CONFLICT ...) ; compiling (DEFUN RESET-CURRENT-CONFLICT ...) ; compiling (DEFUN CACHED-BLOCK-PHYSENV ...) ; compiling (DEFUN CONVERT-TO-GLOBAL ...) ; compiling (DEFUN FIND-LOCAL-REFERENCES ...) ; compiling (DEFUN INIT-GLOBAL-CONFLICT-KIND ...) ; compiling (DEFEVENT SPLIT-IR2-BLOCK ...) ; compiling (DEFUN SPLIT-IR2-BLOCKS ...) ; compiling (DEFUN CLEAR-LIFETIME-INFO ...) ; compiling (DEFUN COALESCE-MORE-LTN-NUMBERS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/life.lisp ; in: DEFUN COALESCE-MORE-LTN-NUMBERS ; (SB!C::FIND-IN #'SB!C::GLOBAL-CONFLICTS-NEXT-BLOCKWISE SB!C:TN ; (SB!C::IR2-BLOCK-GLOBAL-TNS BLOCK) :KEY ; #'SB!C::GLOBAL-CONFLICTS-TN) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFEVENT COALESCE-MORE-LTN-NUMBERS ...) ; compiling (DEFUN LIFETIME-PRE-PASS ...) ; compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICT ...) ; compiling (DEFUN IMPLICIT-VALUE-CELL-TN-P ...) ; compiling (DEFUN BLOCK-TAIL-LOCAL-CALL-FUN ...) ; compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICTS ...) ; compiling (DEFUN SETUP-ENVIRONMENT-LIVE-CONFLICTS ...) ; compiling (DEFUN CONVERT-TO-ENVIRONMENT-TN ...) ; compiling (DEFUN PROPAGATE-LIVE-TNS ...) ; compiling (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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/life.lisp ; in: DEFUN SPLIT-IR2-BLOCKS ; (SB!C::ADD-TO-EMIT-ORDER SB!C::NEW SB!C::2BLOCK) ; ; caught STYLE-WARNING: ; undefined function: ADD-TO-EMIT-ORDER ; in: DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS ; (SB!C::FIND-IN-PHYSENV SB!C::CLOSURE-VAR SB!C::PHYSENV) ; ; caught STYLE-WARNING: ; undefined function: FIND-IN-PHYSENV ; ; compilation unit finished ; Undefined functions: ; ADD-TO-EMIT-ORDER FIND-IN-PHYSENV ; caught 2 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/life.fasl-tmp written ; compilation finished in 0:00:00.462 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/debug-dump.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/debug-dump.lisp ; in: DEFUN COMPUTE-1-DEBUG-FUN ; (MAX SB!C::ACTUAL-LEVEL 2) ; --> LET ; ==> ; SB!C::ACTUAL-LEVEL ; ; note: deleting unreachable code ; compiling (DEFUN COMPUTE-DEBUG-FUN-MAP ...) ; compiling (DEFUN DEBUG-INFO-FOR-COMPONENT ...) ; compiling (DEFUN WRITE-PACKED-BIT-VECTOR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/debug-dump.lisp ; in: DEFUN COMPUTE-DEBUG-BLOCKS ; (SB!C::LABEL-ELSEWHERE-P (SB!C::LOCATION-INFO-LABEL SB!C::LOC)) ; ; caught STYLE-WARNING: ; undefined function: LABEL-ELSEWHERE-P ; ; compilation unit finished ; Undefined function: ; LABEL-ELSEWHERE-P ; caught 1 STYLE-WARNING condition ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/debug-dump.fasl-tmp written ; compilation finished in 0:00:00.261 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/utils.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN FIXNUMIZE ...) ; compiling (DEFUN FOLDABLE-CONSTANT-OFFSET-P ...) ; compiling (DEFUN STATIC-SYMBOL-P ...) ; compiling (DEFUN STATIC-SYMBOL-OFFSET ...) ; compiling (DEFUN OFFSET-STATIC-SYMBOL ...) ; compiling (DEFUN STATIC-FDEFN-OFFSET ...) ; compiling (DEFUN STATIC-FUN-OFFSET ...) ; compiling (DEFVAR *ADJUSTABLE-VECTORS* ...) ; compiling (DEFMACRO WITH-ADJUSTABLE-VECTOR ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/utils.fasl-tmp written ; compilation finished in 0:00:00.027 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fopcompile.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fopcompile.lisp ; in: DEFUN FOPCOMPILE ; (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: DEFUN CONSTANT-FOPCOMPILABLE-P ; (TYPEP SB!C::VALUE ; '(OR SB!KERNEL:UNBOXED-ARRAY SYMBOL NUMBER CHARACTER STRING)) ; ; caught STYLE-WARNING: ; undefined type: UNBOXED-ARRAY ; ; compilation unit finished ; Undefined type: ; UNBOXED-ARRAY ; Undefined function: ; %MACROEXPAND ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/fopcompile.fasl-tmp written ; compilation finished in 0:00:00.086 creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/assembly/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/assemfile.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *EMIT-ASSEMBLY-CODE-NOT-VOPS-P* ...) ; compiling (DEFVAR *ENTRY-POINTS* ...) ; compiling (DEFVAR *ASSEMBLY-OPTIMIZE* ...) ; compiling (DEFUN ASSEMBLE-FILE ...) ; compiling (DEFSTRUCT (REG-SPEC #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN REG-SPEC-SC ...) ; compiling (DEFUN PARSE-REG-SPEC ...) ; compiling (DEFUN EMIT-ASSEMBLE ...) ; compiling (DEFUN ARG-OR-RES-SPEC ...) ; compiling (DEFUN EMIT-ASSEMBLE-VOP ...) ; compiling (DEF!MACRO DEFINE-ASSEMBLY-ROUTINE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/assemfile.lisp ; in: DEFUN EMIT-ASSEMBLE-VOP ; (SB!C:GENERATE-CALL-SEQUENCE SB!C::NAME SB!C::RETURN-STYLE SB!C::VOP) ; ; caught STYLE-WARNING: ; undefined function: GENERATE-CALL-SEQUENCE ; in: DEFUN EMIT-ASSEMBLE ; (SB!C:GENERATE-RETURN-SEQUENCE ; (OR (CADR (ASSOC :RETURN-STYLE SB!C::OPTIONS)) :RAW)) ; ; caught STYLE-WARNING: ; undefined function: GENERATE-RETURN-SEQUENCE ; in: DEFUN ASSEMBLE-FILE ; (SB!C::INIT-ASSEMBLER) ; ; caught STYLE-WARNING: ; undefined function: INIT-ASSEMBLER ; ; compilation unit finished ; Undefined functions: ; GENERATE-CALL-SEQUENCE GENERATE-RETURN-SEQUENCE INIT-ASSEMBLER ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/assembly/assemfile.fasl-tmp written ; compilation finished in 0:00:00.067 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/late-vmdef.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN NOTE-THIS-LOCATION ...) ; compiling (DEFUN NOTE-NEXT-INSTRUCTION ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/late-vmdef.fasl-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fixup.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFSTRUCT (FIXUP # ...) ...) ; compiling (DEFSTRUCT (FIXUP-NOTE # ...) ...) ; compiling (DEFVAR *FIXUP-NOTES*) ; compiling (DEFUN NOTE-FIXUP ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/fixup.fasl-tmp written ; compilation finished in 0:00:00.008 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/insts.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (SETF SB!DISASSEM:*DISASSEM-INST-ALIGNMENT-BYTES* ...) ; compiling (DEFTYPE REG ...) ; compiling (DEFTYPE FULL-REG ...) ; compiling (DEFTYPE XMMREG ...) ; compiling (DEF!CONSTANT +DEFAULT-OPERAND-SIZE+ ...) ; compiling (DEF!CONSTANT +DEFAULT-ADDRESS-SIZE+ ...) ; compiling (DEFUN OFFSET-NEXT ...) ; compiling (DEFPARAMETER *BYTE-REG-NAMES* ...) ; compiling (DEFPARAMETER *HIGH-BYTE-REG-NAMES* ...) ; compiling (DEFPARAMETER *WORD-REG-NAMES* ...) ; compiling (DEFPARAMETER *DWORD-REG-NAMES* ...) ; compiling (DEFPARAMETER *QWORD-REG-NAMES* ...) ; compiling (DEFUN INST-OPERAND-SIZE ...) ; compiling (DEFUN INST-OPERAND-SIZE-DEFAULT-QWORD ...) ; compiling (DEFUN PRINT-REG-WITH-WIDTH ...) ; compiling (DEFUN PRINT-REG ...) ; compiling (DEFUN PRINT-REG-DEFAULT-QWORD ...) ; compiling (DEFUN PRINT-BYTE-REG ...) ; compiling (DEFUN PRINT-ADDR-REG ...) ; compiling (DEFUN PRINT-REG/MEM-WITH-WIDTH ...) ; compiling (DEFUN PRINT-REG/MEM ...) ; compiling (DEFUN PRINT-SIZED-REG/MEM ...) ; compiling (DEFUN PRINT-SIZED-REG/MEM-DEFAULT-QWORD ...) ; compiling (DEFUN PRINT-SIZED-BYTE-REG/MEM ...) ; compiling (DEFUN PRINT-SIZED-WORD-REG/MEM ...) ; compiling (DEFUN PRINT-SIZED-DWORD-REG/MEM ...) ; compiling (DEFUN PRINT-LABEL ...) ; compiling (DEFUN PRINT-XMMREG ...) ; compiling (DEFUN PRINT-XMMREG/MEM ...) ; compiling (DEFUN PREFILTER-WRXB ...) ; compiling (DEFUN PREFILTER-REX-W ...) ; compiling (DEFUN PREFILTER-REX-B ...) ; compiling (DEFUN PREFILTER-WIDTH ...) ; compiling (DEFUN PREFILTER-X66 ...) ; compiling (DEFUN PREFILTER-REG-R ...) ; compiling (DEFUN PREFILTER-REG-B ...) ; compiling (DEFUN PREFILTER-REG/MEM ...) ; compiling (DEFUN READ-ADDRESS ...) ; compiling (DEFUN WIDTH-BITS ...) ; compiling (DEFUN PRINT-IMM/ASM-ROUTINE ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WRXB ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REX-W ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REX-B ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WIDTH ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE X66 ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE ACCUM ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG-B ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG-B-DEFAULT-QWORD ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-ADDR ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA/ASM-ROUTINE ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA-UPTO-QWORD ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA-UPTO-QWORD/ASM-ROUTINE ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA-DEFAULT-QWORD ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-BYTE ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-BYTE ...) ; 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 SIZED-BYTE-REG/MEM ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIZED-WORD-REG/MEM ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIZED-DWORD-REG/MEM ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIZED-REG/MEM-DEFAULT-QWORD ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE XMMREG ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE XMMREG-B ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE XMMREG/MEM ...) ; compiling (DEFPARAMETER *CONDITIONS* ...) ; compiling (DEFPARAMETER *CONDITION-NAME-VEC* ...) ; compiling (DEFINE-SSE-SHUFFLE-ARG-TYPE SSE-SHUFFLE-PATTERN-2-2 ...) ; compiling (DEFINE-SSE-SHUFFLE-ARG-TYPE SSE-SHUFFLE-PATTERN-8-4 ...) ; 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 (TWO-BYTES 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (THREE-BYTES 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REX 8) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (X66 8) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (X66-BYTE 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REX-BYTE 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SIMPLE 8) ...) ; 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 (REX-ACCUM-REG 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-NO-WIDTH-DEFAULT-QWORD 8 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG 8 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REX-REG 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-DEFAULT-QWORD 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM-IMM 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM-IMM/ASM-ROUTINE 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ACCUM-REG/MEM 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-REG/MEM 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-REG/MEM-NO-WIDTH 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-NO-WIDTH 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-NO-WIDTH 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-IMM 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-NO-WIDTH+IMM8 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (XMM-XMM/MEM 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-XMM-XMM/MEM 32 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-XMM-XMM/MEM 40 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-2BYTE-XMM-XMM/MEM 40 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-2BYTE-XMM-XMM/MEM 48 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-XMM-XMM/MEM-DIR 32 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-XMM-XMM/MEM-DIR 40 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-XMM-IMM 32 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-XMM-IMM 40 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (XMM-REG/MEM 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-XMM-REG/MEM 32 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-XMM-REG/MEM 40 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-2BYTE-XMM-REG/MEM 40 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-XMM/MEM 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-XMM/MEM 32 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-REG-XMM/MEM 40 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-XMM 32 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-REG/MEM-XMM 40 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-2BYTE-REG/MEM-XMM 40 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-2BYTE-REG/MEM-XMM 48 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-PREFIX-REG-REG/MEM 32 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-PREFIX-REG-REG/MEM 40 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-2BYTE-PREFIX-REG-REG/MEM 40 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-2BYTE-PREFIX-REG-REG/MEM 48 ...) ...) ; compiling (DEFPARAMETER *SSE-CONDITIONS* ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SSE-CONDITION-CODE ...) ; 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 (BYTE-IMM 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (WORD-IMM 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (F3-ESCAPE 24) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REX-F3-ESCAPE 32) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (F3-ESCAPE-REG-REG/MEM 32 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REX-F3-ESCAPE-REG-REG/MEM 40 ...) ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-WORD ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-DWORD ...) ; compiling (DEFUN EMIT-SIGNED-DWORD ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-QWORD ...) ; 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 (DEFINE-BITFIELD-EMITTER EMIT-REX-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-CONSTANT-TN-RIP ...) ; compiling (DEFUN EMIT-LABEL-RIP ...) ; compiling (DEFUN EMIT-EA ...) ; 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 QWORD-REG-P ...) ; compiling (DEFUN QWORD-EA-P ...) ; compiling (DEFUN REGISTER-P ...) ; compiling (DEFUN ACCUMULATOR-P ...) ; compiling (DEFUN XMM-REGISTER-P ...) ; compiling (DEF!CONSTANT +OPERAND-SIZE-PREFIX-BYTE+ ...) ; compiling (DEFUN MAYBE-EMIT-OPERAND-SIZE-PREFIX ...) ; compiling (DEFUN MAYBE-EMIT-REX-PREFIX ...) ; compiling (DEFUN MAYBE-EMIT-REX-FOR-EA ...) ; compiling (DEFUN OPERAND-SIZE ...) ; compiling (DEFUN MATCHING-OPERAND-SIZE ...) ; compiling (DEFUN EMIT-SIZED-IMMEDIATE ...) ; compiling (DEFINE-INSTRUCTION REX ...) ; compiling (DEFINE-INSTRUCTION X66 ...) ; compiling (DEFUN EMIT-PREFIX ...) ; compiling (DEFINE-INSTRUCTION LOCK ...) ; compiling (DEFINE-INSTRUCTION REP ...) ; compiling (DEFINE-INSTRUCTION REPE ...) ; compiling (DEFINE-INSTRUCTION REPNE ...) ; compiling (DEFUN EMIT-IMMEDIATE-MOVE-TO-QWORD-REGISTER ...) ; compiling (DEFINE-INSTRUCTION MOV ...) ; compiling (DEFUN EMIT-MOVE-WITH-EXTENSION ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MOVE-WITH-EXTENSION 24 ...) ...) ; compiling (DEFINE-INSTRUCTION MOVSX ...) ; compiling (DEFINE-INSTRUCTION MOVZX ...) ; compiling (DEFINE-INSTRUCTION MOVSXD ...) ; compiling (DEFINE-INSTRUCTION MOVZXD ...) ; compiling (DEFINE-INSTRUCTION PUSH ...) ; compiling (DEFINE-INSTRUCTION POP ...) ; compiling (DEFINE-INSTRUCTION XCHG ...) ; compiling (DEFUN LEA-COMPUTE-LABEL ...) ; compiling (DEFUN LEA-PRINT-EA ...) ; compiling (DEFINE-INSTRUCTION LEA ...) ; compiling (DEFINE-INSTRUCTION CMPXCHG ...) ; compiling (DEFINE-INSTRUCTION CMPXCHG16B ...) ; 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 MUL ...) ; compiling (DEFINE-INSTRUCTION IMUL ...) ; compiling (DEFINE-INSTRUCTION DIV ...) ; compiling (DEFINE-INSTRUCTION IDIV ...) ; compiling (DEFINE-INSTRUCTION BSWAP ...) ; compiling (DEFINE-INSTRUCTION CBW ...) ; compiling (DEFINE-INSTRUCTION CWDE ...) ; compiling (DEFINE-INSTRUCTION CDQE ...) ; compiling (DEFINE-INSTRUCTION CWD ...) ; compiling (DEFINE-INSTRUCTION CDQ ...) ; compiling (DEFINE-INSTRUCTION CQO ...) ; compiling (DEFINE-INSTRUCTION XADD ...) ; compiling (DEFUN EMIT-SHIFT-INST ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHIFT-INST 16 ...) ...) ; compiling (DEFINE ROL ...) ; compiling (DEFINE ROR ...) ; compiling (DEFINE RCL ...) ; compiling (DEFINE RCR ...) ; compiling (DEFINE SHL ...) ; compiling (DEFINE SHR ...) ; compiling (DEFINE SAR ...) ; compiling (DEFUN EMIT-DOUBLE-SHIFT ...) ; compiling (DEFINE-INSTRUCTION SHLD ...) ; compiling (DEFINE-INSTRUCTION SHRD ...) ; compiling (DEFINE-INSTRUCTION AND ...) ; compiling (DEFINE-INSTRUCTION TEST ...) ; compiling (DEFUN EMIT-OPTIMIZED-TEST-INST ...) ; compiling (DEFINE-INSTRUCTION OR ...) ; compiling (DEFINE-INSTRUCTION XOR ...) ; compiling (DEFINE-INSTRUCTION NOT ...) ; compiling (DEFINE-INSTRUCTION CMPS ...) ; compiling (DEFINE-INSTRUCTION INS ...) ; compiling (DEFINE-INSTRUCTION LODS ...) ; compiling (DEFINE-INSTRUCTION MOVS ...) ; compiling (DEFINE-INSTRUCTION OUTS ...) ; compiling (DEFINE-INSTRUCTION SCAS ...) ; compiling (DEFINE-INSTRUCTION STOS ...) ; compiling (DEFINE-INSTRUCTION XLAT ...) ; compiling (DEFINE-INSTRUCTION BSF ...) ; compiling (DEFINE-INSTRUCTION BSR ...) ; compiling (DEFUN EMIT-BIT-TEST-AND-MUMBLE ...) ; compiling (DEFINE BT ...) ; compiling (DEFINE BTS ...) ; compiling (DEFINE BTR ...) ; compiling (DEFINE BTC ...) ; compiling (DEFINE-INSTRUCTION CALL ...) ; compiling (DEFUN EMIT-BYTE-DISPLACEMENT-BACKPATCH ...) ; compiling (DEFINE-INSTRUCTION JMP ...) ; compiling (DEFINE-INSTRUCTION RET ...) ; compiling (DEFINE-INSTRUCTION JRCXZ ...) ; 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 (DEFUN SNARF-ERROR-JUNK ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/insts.lisp ; in: DEFUN SNARF-ERROR-JUNK ; (LET* ((LENGTH (SB!SYS:SAP-REF-8 SB!VM::SAP SB!VM::OFFSET)) ; (VECTOR (MAKE-ARRAY LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!VM::SAP) ; (TYPE (UNSIGNED-BYTE 8) LENGTH) ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) VECTOR)) ; (COND (SB!VM::LENGTH-ONLY (VALUES 0 (1+ LENGTH) NIL NIL)) ; (T ; (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) ; VECTOR 0 LENGTH) ; (SB!INT:COLLECT (# #) ; (SB!VM::LENGTHS 1) ; (LET* # ; # ; # ; #))))) ; ; note: deleting unreachable code ; (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX) ; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL SB!C::%READ-VAR-INTEGER ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (- SB!INT:INDEX SB!VM::OLD-INDEX) ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; (LET ((SB!VM::OLD-INDEX SB!INT:INDEX)) ; (SB!VM::SC-OFFSETS (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX)) ; (SB!VM::LENGTHS (- SB!INT:INDEX SB!VM::OLD-INDEX))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (>= SB!INT:INDEX LENGTH) ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; (VALUES SB!VM::ERROR-NUMBER (1+ LENGTH) (SB!VM::SC-OFFSETS) (SB!VM::LENGTHS)) ; ==> ; SB!VM::ERROR-NUMBER ; ; note: deleting unreachable code ; (LET* ((SB!INT:INDEX 0) ; (SB!VM::ERROR-NUMBER (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX))) ; (SB!VM::LENGTHS SB!INT:INDEX) ; (LOOP (WHEN (>= SB!INT:INDEX LENGTH) (RETURN)) ; (LET ((SB!VM::OLD-INDEX SB!INT:INDEX)) ; (SB!VM::SC-OFFSETS (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX)) ; (SB!VM::LENGTHS (- SB!INT:INDEX SB!VM::OLD-INDEX)))) ; (VALUES SB!VM::ERROR-NUMBER (1+ LENGTH) (SB!VM::SC-OFFSETS) ; (SB!VM::LENGTHS))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) VECTOR 0 ; LENGTH) ; ==> ; SB!VM::SAP ; ; note: deleting unreachable code ; (1+ LENGTH) ; --> + ; ==> ; LENGTH ; ; note: deleting unreachable code ; (LET* ((LENGTH (SB!SYS:SAP-REF-8 SB!VM::SAP SB!VM::OFFSET)) ; (VECTOR (MAKE-ARRAY LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!VM::SAP) ; (TYPE (UNSIGNED-BYTE 8) LENGTH) ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) VECTOR)) ; (COND (SB!VM::LENGTH-ONLY (VALUES 0 (1+ LENGTH) NIL NIL)) ; (T ; (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) ; VECTOR 0 LENGTH) ; (SB!INT:COLLECT (# #) ; (SB!VM::LENGTHS 1) ; (LET* # ; # ; # ; #))))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN BREAK-CONTROL ...) ; compiling (DEFINE-INSTRUCTION BREAK ...) ; compiling (DEFINE-INSTRUCTION INT ...) ; compiling (DEFINE-INSTRUCTION IRET ...) ; compiling (DEFINE-INSTRUCTION HLT ...) ; compiling (DEFINE-INSTRUCTION NOP ...) ; compiling (DEFUN EMIT-LONG-NOP ...) ; compiling (DEFINE-INSTRUCTION WAIT ...) ; compiling (DEFINE-INSTRUCTION BYTE ...) ; compiling (DEFINE-INSTRUCTION WORD ...) ; compiling (DEFINE-INSTRUCTION DWORD ...) ; compiling (DEFUN EMIT-HEADER-DATA ...) ; compiling (DEFINE-INSTRUCTION SIMPLE-FUN-HEADER-WORD ...) ; compiling (DEFINE-INSTRUCTION LRA-HEADER-WORD ...) ; compiling (DEFUN EMIT-SSE-INST ...) ; compiling (DEFUN EMIT-SSE-INST-WITH-IMM ...) ; compiling (DEFUN EMIT-SSE-INST-2BYTE ...) ; compiling (DEFINE-IMM-SSE-INSTRUCTION PSLLDQ ...) ; compiling (DEFINE-IMM-SSE-INSTRUCTION PSLLW-IMM ...) ; compiling (DEFINE-IMM-SSE-INSTRUCTION PSLLD-IMM ...) ; compiling (DEFINE-IMM-SSE-INSTRUCTION PSLLQ-IMM ...) ; compiling (DEFINE-IMM-SSE-INSTRUCTION PSRAW-IMM ...) ; compiling (DEFINE-IMM-SSE-INSTRUCTION PSRAD-IMM ...) ; compiling (DEFINE-IMM-SSE-INSTRUCTION PSRLDQ ...) ; compiling (DEFINE-IMM-SSE-INSTRUCTION PSRLW-IMM ...) ; compiling (DEFINE-IMM-SSE-INSTRUCTION PSRLD-IMM ...) ; compiling (DEFINE-IMM-SSE-INSTRUCTION PSRLQ-IMM ...) ; compiling (DEFUN EMIT-REGULAR-SSE-INST ...) ; compiling (DEFUN EMIT-REGULAR-2BYTE-SSE-INST ...) ; compiling (DEFINE-REGULAR-SSE-INST MOVSHDUP ...) ; compiling (DEFINE-REGULAR-SSE-INST MOVSLDUP ...) ; compiling (DEFINE-REGULAR-SSE-INST MOVDDUP ...) ; compiling (DEFINE-REGULAR-SSE-INST ANDPD ...) ; compiling (DEFINE-REGULAR-SSE-INST ANDPS ...) ; compiling (DEFINE-REGULAR-SSE-INST ANDNPD ...) ; compiling (DEFINE-REGULAR-SSE-INST ANDNPS ...) ; compiling (DEFINE-REGULAR-SSE-INST ORPD ...) ; compiling (DEFINE-REGULAR-SSE-INST ORPS ...) ; compiling (DEFINE-REGULAR-SSE-INST PAND ...) ; compiling (DEFINE-REGULAR-SSE-INST PANDN ...) ; compiling (DEFINE-REGULAR-SSE-INST POR ...) ; compiling (DEFINE-REGULAR-SSE-INST PXOR ...) ; compiling (DEFINE-REGULAR-SSE-INST XORPD ...) ; compiling (DEFINE-REGULAR-SSE-INST XORPS ...) ; compiling (DEFINE-REGULAR-SSE-INST COMISD ...) ; compiling (DEFINE-REGULAR-SSE-INST COMISS ...) ; compiling (DEFINE-REGULAR-SSE-INST UCOMISD ...) ; compiling (DEFINE-REGULAR-SSE-INST UCOMISS ...) ; compiling (DEFINE-REGULAR-SSE-INST PCMPEQB ...) ; compiling (DEFINE-REGULAR-SSE-INST PCMPEQW ...) ; compiling (DEFINE-REGULAR-SSE-INST PCMPEQD ...) ; compiling (DEFINE-REGULAR-SSE-INST PCMPGTB ...) ; compiling (DEFINE-REGULAR-SSE-INST PCMPGTW ...) ; compiling (DEFINE-REGULAR-SSE-INST PCMPGTD ...) ; compiling (DEFINE-REGULAR-SSE-INST MAXPD ...) ; compiling (DEFINE-REGULAR-SSE-INST MAXPS ...) ; compiling (DEFINE-REGULAR-SSE-INST MAXSD ...) ; compiling (DEFINE-REGULAR-SSE-INST MAXSS ...) ; compiling (DEFINE-REGULAR-SSE-INST MINPD ...) ; compiling (DEFINE-REGULAR-SSE-INST MINPS ...) ; compiling (DEFINE-REGULAR-SSE-INST MINSD ...) ; compiling (DEFINE-REGULAR-SSE-INST MINSS ...) ; compiling (DEFINE-REGULAR-SSE-INST PMAXSW ...) ; compiling (DEFINE-REGULAR-SSE-INST PMAXUB ...) ; compiling (DEFINE-REGULAR-SSE-INST PMINSW ...) ; compiling (DEFINE-REGULAR-SSE-INST PMINUB ...) ; compiling (DEFINE-REGULAR-SSE-INST ADDPD ...) ; compiling (DEFINE-REGULAR-SSE-INST ADDPS ...) ; compiling (DEFINE-REGULAR-SSE-INST ADDSD ...) ; compiling (DEFINE-REGULAR-SSE-INST ADDSS ...) ; compiling (DEFINE-REGULAR-SSE-INST ADDSUBPD ...) ; compiling (DEFINE-REGULAR-SSE-INST ADDSUBPS ...) ; compiling (DEFINE-REGULAR-SSE-INST DIVPD ...) ; compiling (DEFINE-REGULAR-SSE-INST DIVPS ...) ; compiling (DEFINE-REGULAR-SSE-INST DIVSD ...) ; compiling (DEFINE-REGULAR-SSE-INST DIVSS ...) ; compiling (DEFINE-REGULAR-SSE-INST HADDPD ...) ; compiling (DEFINE-REGULAR-SSE-INST HADDPS ...) ; compiling (DEFINE-REGULAR-SSE-INST HSUBPD ...) ; compiling (DEFINE-REGULAR-SSE-INST HSUBPS ...) ; compiling (DEFINE-REGULAR-SSE-INST MULPD ...) ; compiling (DEFINE-REGULAR-SSE-INST MULPS ...) ; compiling (DEFINE-REGULAR-SSE-INST MULSD ...) ; compiling (DEFINE-REGULAR-SSE-INST MULSS ...) ; compiling (DEFINE-REGULAR-SSE-INST RCPPS ...) ; compiling (DEFINE-REGULAR-SSE-INST RCPSS ...) ; compiling (DEFINE-REGULAR-SSE-INST RSQRTPS ...) ; compiling (DEFINE-REGULAR-SSE-INST RSQRTSS ...) ; compiling (DEFINE-REGULAR-SSE-INST SQRTPD ...) ; compiling (DEFINE-REGULAR-SSE-INST SQRTPS ...) ; compiling (DEFINE-REGULAR-SSE-INST SQRTSD ...) ; compiling (DEFINE-REGULAR-SSE-INST SQRTSS ...) ; compiling (DEFINE-REGULAR-SSE-INST SUBPD ...) ; compiling (DEFINE-REGULAR-SSE-INST SUBPS ...) ; compiling (DEFINE-REGULAR-SSE-INST SUBSD ...) ; compiling (DEFINE-REGULAR-SSE-INST SUBSS ...) ; compiling (DEFINE-REGULAR-SSE-INST UNPCKHPD ...) ; compiling (DEFINE-REGULAR-SSE-INST UNPCKHPS ...) ; compiling (DEFINE-REGULAR-SSE-INST UNPCKLPD ...) ; compiling (DEFINE-REGULAR-SSE-INST UNPCKLPS ...) ; compiling (DEFINE-REGULAR-SSE-INST PADDB ...) ; compiling (DEFINE-REGULAR-SSE-INST PADDW ...) ; compiling (DEFINE-REGULAR-SSE-INST PADDD ...) ; compiling (DEFINE-REGULAR-SSE-INST PADDQ ...) ; compiling (DEFINE-REGULAR-SSE-INST PADDSB ...) ; compiling (DEFINE-REGULAR-SSE-INST PADDSW ...) ; compiling (DEFINE-REGULAR-SSE-INST PADDUSB ...) ; compiling (DEFINE-REGULAR-SSE-INST PADDUSW ...) ; compiling (DEFINE-REGULAR-SSE-INST PAVGB ...) ; compiling (DEFINE-REGULAR-SSE-INST PAVGW ...) ; compiling (DEFINE-REGULAR-SSE-INST PMADDWD ...) ; compiling (DEFINE-REGULAR-SSE-INST PMULHUW ...) ; compiling (DEFINE-REGULAR-SSE-INST PMULHW ...) ; compiling (DEFINE-REGULAR-SSE-INST PMULLW ...) ; compiling (DEFINE-REGULAR-SSE-INST PMULUDQ ...) ; compiling (DEFINE-REGULAR-SSE-INST PSADBW ...) ; compiling (DEFINE-REGULAR-SSE-INST PSLLW ...) ; compiling (DEFINE-REGULAR-SSE-INST PSLLD ...) ; compiling (DEFINE-REGULAR-SSE-INST PSLLQ ...) ; compiling (DEFINE-REGULAR-SSE-INST PSRAW ...) ; compiling (DEFINE-REGULAR-SSE-INST PSRAD ...) ; compiling (DEFINE-REGULAR-SSE-INST PSRLW ...) ; compiling (DEFINE-REGULAR-SSE-INST PSRLD ...) ; compiling (DEFINE-REGULAR-SSE-INST PSRLQ ...) ; compiling (DEFINE-REGULAR-SSE-INST PSUBB ...) ; compiling (DEFINE-REGULAR-SSE-INST PSUBW ...) ; compiling (DEFINE-REGULAR-SSE-INST PSUBD ...) ; compiling (DEFINE-REGULAR-SSE-INST PSUBQ ...) ; compiling (DEFINE-REGULAR-SSE-INST PSUBSB ...) ; compiling (DEFINE-REGULAR-SSE-INST PSUBSW ...) ; compiling (DEFINE-REGULAR-SSE-INST PSUBUSB ...) ; compiling (DEFINE-REGULAR-SSE-INST PSUBUSW ...) ; compiling (DEFINE-REGULAR-SSE-INST CVTDQ2PD ...) ; compiling (DEFINE-REGULAR-SSE-INST CVTDQ2PS ...) ; compiling (DEFINE-REGULAR-SSE-INST CVTPD2DQ ...) ; compiling (DEFINE-REGULAR-SSE-INST CVTPD2PS ...) ; compiling (DEFINE-REGULAR-SSE-INST CVTPS2DQ ...) ; compiling (DEFINE-REGULAR-SSE-INST CVTPS2PD ...) ; compiling (DEFINE-REGULAR-SSE-INST CVTSD2SS ...) ; compiling (DEFINE-REGULAR-SSE-INST CVTSS2SD ...) ; compiling (DEFINE-REGULAR-SSE-INST CVTTPD2DQ ...) ; compiling (DEFINE-REGULAR-SSE-INST CVTTPS2DQ ...) ; compiling (DEFINE-REGULAR-SSE-INST PACKSSWB ...) ; compiling (DEFINE-REGULAR-SSE-INST PACKSSDW ...) ; compiling (DEFINE-REGULAR-SSE-INST PACKUSWB ...) ; compiling (DEFINE-REGULAR-SSE-INST PUNPCKHBW ...) ; compiling (DEFINE-REGULAR-SSE-INST PUNPCKHWD ...) ; compiling (DEFINE-REGULAR-SSE-INST PUNPCKHDQ ...) ; compiling (DEFINE-REGULAR-SSE-INST PUNPCKHQDQ ...) ; compiling (DEFINE-REGULAR-SSE-INST PUNPCKLBW ...) ; compiling (DEFINE-REGULAR-SSE-INST PUNPCKLWD ...) ; compiling (DEFINE-REGULAR-SSE-INST PUNPCKLDQ ...) ; compiling (DEFINE-REGULAR-SSE-INST PUNPCKLQDQ ...) ; compiling (DEFINE-XMM-SHUFFLE-SSE-INST PSHUFD ...) ; compiling (DEFINE-XMM-SHUFFLE-SSE-INST PSHUFHW ...) ; compiling (DEFINE-XMM-SHUFFLE-SSE-INST PSHUFLW ...) ; compiling (DEFINE-XMM-SHUFFLE-SSE-INST SHUFPD ...) ; compiling (DEFINE-XMM-SHUFFLE-SSE-INST SHUFPS ...) ; compiling (DEFINE-INSTRUCTION MASKMOVDQU ...) ; compiling (DEFINE-COMPARISON-SSE-INST CMPPD ...) ; compiling (DEFINE-COMPARISON-SSE-INST CMPPS ...) ; compiling (DEFINE-COMPARISON-SSE-INST CMPSD ...) ; compiling (DEFINE-COMPARISON-SSE-INST CMPSS ...) ; compiling (DEFINE-MOVSD/SS-SSE-INST MOVSD ...) ; compiling (DEFINE-MOVSD/SS-SSE-INST MOVSS ...) ; compiling (DEFINE-MOV-SSE-INST MOVAPD ...) ; compiling (DEFINE-MOV-SSE-INST MOVAPS ...) ; compiling (DEFINE-MOV-SSE-INST MOVDQA ...) ; compiling (DEFINE-MOV-SSE-INST MOVDQU ...) ; compiling (DEFINE-MOV-SSE-INST MOVNTDQ ...) ; compiling (DEFINE-MOV-SSE-INST MOVNTPD ...) ; compiling (DEFINE-MOV-SSE-INST MOVNTPS ...) ; compiling (DEFINE-MOV-SSE-INST MOVHPD ...) ; compiling (DEFINE-MOV-SSE-INST MOVHPS ...) ; compiling (DEFINE-MOV-SSE-INST MOVLPD ...) ; compiling (DEFINE-MOV-SSE-INST MOVLPS ...) ; compiling (DEFINE-MOV-SSE-INST MOVUPD ...) ; compiling (DEFINE-MOV-SSE-INST MOVUPS ...) ; compiling (DEFINE-INSTRUCTION MOVNTDQA ...) ; compiling (DEFINE-INSTRUCTION MOVQ ...) ; compiling (DEFINE-INSTRUCTION MOVD ...) ; compiling (DEFINE-INSERT-SSE-INSTRUCTION PINSRB ...) ; compiling (DEFINE-INSERT-SSE-INSTRUCTION PINSRW ...) ; compiling (DEFINE-INSERT-SSE-INSTRUCTION PINSRD ...) ; compiling (DEFINE-INSERT-SSE-INSTRUCTION INSERTPS ...) ; compiling (DEFINE-EXTRACT-SSE-INSTRUCTION PEXTRB ...) ; compiling (DEFINE-EXTRACT-SSE-INSTRUCTION PEXTRD ...) ; compiling (DEFINE-EXTRACT-SSE-INSTRUCTION PEXTRQ ...) ; compiling (DEFINE-EXTRACT-SSE-INSTRUCTION EXTRACTPS ...) ; compiling (DEFINE-INSTRUCTION PEXTRW ...) ; compiling (DEFINE-INTEGER-SOURCE-SSE-INST CVTSI2SD ...) ; compiling (DEFINE-INTEGER-SOURCE-SSE-INST CVTSI2SS ...) ; compiling (DEFINE-INTEGER-SOURCE-SSE-INST CVTPI2PD ...) ; compiling (DEFINE-INTEGER-SOURCE-SSE-INST CVTPI2PS ...) ; compiling (DEFINE-GPR-DESTINATION-SSE-INST CVTSD2SI ...) ; compiling (DEFINE-GPR-DESTINATION-SSE-INST CVTSS2SI ...) ; compiling (DEFINE-GPR-DESTINATION-SSE-INST CVTTSD2SI ...) ; compiling (DEFINE-GPR-DESTINATION-SSE-INST CVTTSS2SI ...) ; compiling (DEFINE-GPR-DESTINATION-SSE-INST MOVMSKPD ...) ; compiling (DEFINE-GPR-DESTINATION-SSE-INST MOVMSKPS ...) ; compiling (DEFINE-GPR-DESTINATION-SSE-INST PMOVMSKB ...) ; compiling (REGULAR-2BYTE-SSE-INST PSHUFB ...) ; compiling (REGULAR-2BYTE-SSE-INST PHADDW ...) ; compiling (REGULAR-2BYTE-SSE-INST PHADDD ...) ; compiling (REGULAR-2BYTE-SSE-INST PHADDSW ...) ; compiling (REGULAR-2BYTE-SSE-INST PMADDUBSW ...) ; compiling (REGULAR-2BYTE-SSE-INST PHSUBW ...) ; compiling (REGULAR-2BYTE-SSE-INST PHSUBD ...) ; compiling (REGULAR-2BYTE-SSE-INST PHSUBSW ...) ; compiling (REGULAR-2BYTE-SSE-INST PSIGNB ...) ; compiling (REGULAR-2BYTE-SSE-INST PSIGNW ...) ; compiling (REGULAR-2BYTE-SSE-INST PSIGND ...) ; compiling (REGULAR-2BYTE-SSE-INST PMULHRSW ...) ; compiling (REGULAR-2BYTE-SSE-INST PTEST ...) ; compiling (REGULAR-2BYTE-SSE-INST PABSB ...) ; compiling (REGULAR-2BYTE-SSE-INST PABSW ...) ; compiling (REGULAR-2BYTE-SSE-INST PABSD ...) ; compiling (REGULAR-2BYTE-SSE-INST PMULDQ ...) ; compiling (REGULAR-2BYTE-SSE-INST PCMPEQQ ...) ; compiling (REGULAR-2BYTE-SSE-INST PACKUSDW ...) ; compiling (REGULAR-2BYTE-SSE-INST PCMPGTQ ...) ; compiling (REGULAR-2BYTE-SSE-INST PMINSB ...) ; compiling (REGULAR-2BYTE-SSE-INST PMINSD ...) ; compiling (REGULAR-2BYTE-SSE-INST PMINUW ...) ; compiling (REGULAR-2BYTE-SSE-INST PMINUD ...) ; compiling (REGULAR-2BYTE-SSE-INST PMAXSB ...) ; compiling (REGULAR-2BYTE-SSE-INST PMAXSD ...) ; compiling (REGULAR-2BYTE-SSE-INST PMAXUW ...) ; compiling (REGULAR-2BYTE-SSE-INST PMAXUD ...) ; compiling (REGULAR-2BYTE-SSE-INST PMULLD ...) ; compiling (REGULAR-2BYTE-SSE-INST PHMINPOSUW ...) ; compiling (REGULAR-2BYTE-SSE-INST AESIMC ...) ; compiling (REGULAR-2BYTE-SSE-INST AESENC ...) ; compiling (REGULAR-2BYTE-SSE-INST AESENCLAST ...) ; compiling (REGULAR-2BYTE-SSE-INST AESDEC ...) ; compiling (REGULAR-2BYTE-SSE-INST AESDECLAST ...) ; compiling (REGULAR-2BYTE-SSE-INST PMOVSXBW ...) ; compiling (REGULAR-2BYTE-SSE-INST PMOVSXBD ...) ; compiling (REGULAR-2BYTE-SSE-INST PMOVSXBQ ...) ; compiling (REGULAR-2BYTE-SSE-INST PMOVSXWD ...) ; compiling (REGULAR-2BYTE-SSE-INST PMOVSXWQ ...) ; compiling (REGULAR-2BYTE-SSE-INST PMOVSXDQ ...) ; compiling (REGULAR-2BYTE-SSE-INST PMOVZXBW ...) ; compiling (REGULAR-2BYTE-SSE-INST PMOVZXBD ...) ; compiling (REGULAR-2BYTE-SSE-INST PMOVZXBQ ...) ; compiling (REGULAR-2BYTE-SSE-INST PMOVZXWD ...) ; compiling (REGULAR-2BYTE-SSE-INST PMOVZXWQ ...) ; compiling (REGULAR-2BYTE-SSE-INST PMOVZXDQ ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM ROUNDPS ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM ROUNDPD ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM ROUNDSS ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM ROUNDSD ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM BLENDPS ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM BLENDPD ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM PBLENDW ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM PALIGNR ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM DPPS ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM DPPD ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM MPSADBW ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM PCLMULQDQ ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM PCMPESTRM ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM PCMPESTRI ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM PCMPISTRM ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM PCMPISTRI ...) ; compiling (REGULAR-2BYTE-SSE-INST-IMM AESKEYGENASSIST ...) ; compiling (DEFINE-SSE-INST-IMPLICIT-MASK PBLENDVB ...) ; compiling (DEFINE-SSE-INST-IMPLICIT-MASK BLENDVPS ...) ; compiling (DEFINE-SSE-INST-IMPLICIT-MASK BLENDVPD ...) ; compiling (DEFINE-INSTRUCTION MOVNTI ...) ; compiling (DEFINE-INSTRUCTION PREFETCH ...) ; compiling (DEFINE-INSTRUCTION CLFLUSH ...) ; compiling (DEFINE-FENCE-INSTRUCTION LFENCE ...) ; compiling (DEFINE-FENCE-INSTRUCTION MFENCE ...) ; compiling (DEFINE-FENCE-INSTRUCTION SFENCE ...) ; compiling (DEFINE-INSTRUCTION PAUSE ...) ; compiling (DEFINE-INSTRUCTION LDMXCSR ...) ; compiling (DEFINE-INSTRUCTION STMXCSR ...) ; compiling (DEFINE-INSTRUCTION POPCNT ...) ; compiling (DEFINE-INSTRUCTION CRC32 ...) ; compiling (DEFINE-INSTRUCTION CPUID ...) ; compiling (DEFINE-INSTRUCTION RDTSC ...) ; compiling (DEFUN CANONICALIZE-INLINE-CONSTANT ...) ; compiling (DEFUN INLINE-CONSTANT-VALUE ...) ; compiling (DEFUN EMIT-CONSTANT-SEGMENT-HEADER ...) ; compiling (DEFUN SIZE-NBYTE ...) ; compiling (DEFUN SORT-INLINE-CONSTANTS ...) ; compiling (DEFUN EMIT-INLINE-CONSTANT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/insts.lisp ; in: DEFUN CANONICALIZE-INLINE-CONSTANT ; (SB!KERNEL:BASE-CHAR-P SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: BASE-CHAR-P ; in: DEFUN EMIT-HEADER-DATA ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; in: DEFUN EMIT-ABSOLUTE-FIXUP ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; in: DEFUN SNARF-ERROR-JUNK ; (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) VECTOR 0 ; LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COPY-UB8-FROM-SYSTEM-AREA ; in: DEFUN BREAK-CONTROL ; (SB!DISASSEM:HANDLE-BREAK-ARGS #'SB!VM::SNARF-ERROR-JUNK STREAM SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:HANDLE-BREAK-ARGS ; in: SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT ; (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!VM::VALUE NIL SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; in: DEFUN PRINT-IMM/ASM-ROUTINE ; (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!VM::VALUE NIL SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; (SB!DISASSEM:MAYBE-NOTE-STATIC-SYMBOL SB!VM::VALUE SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-STATIC-SYMBOL ; in: DEFUN BREAK-CONTROL ; (SB!DISASSEM:NOTE SB!VM::X SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:NOTE ; in: DEFUN LEA-PRINT-EA ; (SB!DISASSEM:NOTE ; (LAMBDA (SB!VM::S) (FORMAT SB!VM::S "= #x~x" SB!ALIEN:ADDR)) SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:NOTE ; (SB!VM::PRINT-MEM-REF :COMPUTE SB!VM::VALUE SB!VM::WIDTH STREAM SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: PRINT-MEM-REF ; in: DEFUN PRINT-XMMREG/MEM ; (SB!VM::PRINT-MEM-REF :REF SB!VM::VALUE NIL STREAM SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: PRINT-MEM-REF ; in: DEFUN PRINT-REG/MEM-WITH-WIDTH ; (SB!VM::PRINT-MEM-REF ; (IF SB!VM::SIZED-P ; :SIZED-REF ; :REF) ; SB!VM::VALUE SB!VM::WIDTH STREAM SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: PRINT-MEM-REF ; in: SB!DISASSEM:DEFINE-ARG-TYPE IMM-BYTE ; (SB!DISASSEM:READ-SUFFIX 8 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::INST-OPERAND-SIZE SB!VM::DSTATE)) 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 ; ; compilation unit finished ; Undefined functions: ; BASE-CHAR-P COMPONENT-HEADER-LENGTH COPY-UB8-FROM-SYSTEM-AREA SB!DISASSEM:HANDLE-BREAK-ARGS SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!DISASSEM:MAYBE-NOTE-STATIC-SYMBOL SB!DISASSEM:NOTE PRINT-MEM-REF SB!DISASSEM:READ-SUFFIX ; caught 17 STYLE-WARNING conditions ; printed 16 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/insts.fasl-tmp written ; compilation finished in 0:00:04.182 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/macros.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN MOVE ...) ; compiling (DEFMACRO MAKE-EA-FOR-OBJECT-SLOT ...) ; compiling (DEFMACRO MAKE-EA-FOR-OBJECT-SLOT-HALF ...) ; compiling (DEFMACRO TLS-INDEX-OF ...) ; compiling (DEFMACRO LOADW ...) ; compiling (DEFMACRO STOREW ...) ; compiling (DEFMACRO PUSHW ...) ; compiling (DEFMACRO POPW ...) ; compiling (DEFUN CALL-INDIRECT ...) ; compiling (DEFMACRO LOAD-SYMBOL ...) ; compiling (DEFMACRO MAKE-EA-FOR-SYMBOL-VALUE ...) ; compiling (DEFMACRO LOAD-SYMBOL-VALUE ...) ; compiling (DEFMACRO STORE-SYMBOL-VALUE ...) ; compiling (DEFUN STATIC-SYMBOL-VALUE-EA ...) ; compiling (DEFUN SYMBOL-KNOWN-TLS-CELL ...) ; 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-TRAMP ...) ; 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 %CLEAR-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 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/macros.lisp ; in: DEFUN ALLOCATION ; (SB!VM::CONSTANTIZE SB!VM::SIZE) ; ; caught STYLE-WARNING: ; undefined function: CONSTANTIZE ; ; compilation unit finished ; Undefined function: ; CONSTANTIZE ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/macros.fasl-tmp written ; compilation finished in 0:00:00.151 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/early-type-vops.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFPARAMETER *IMMEDIATE-TYPES* ...) ; compiling (DEFPARAMETER *FUN-HEADER-WIDETAGS* ...) ; compiling (DEFUN CANONICALIZE-HEADERS ...) ; compiling (DEFUN CANONICALIZE-HEADERS-AND-EXCEPTIONS ...) ; compiling (DEFMACRO TEST-TYPE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/early-type-vops.fasl-tmp written ; compilation finished in 0:00:00.056 creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/assembly/x86-64/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/x86-64/support.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN GENERATE-CALL-SEQUENCE ...) ; compiling (DEFUN GENERATE-RETURN-SEQUENCE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/assembly/x86-64/support.fasl-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/move.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN ZEROIZE ...) ; 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 (DEFUN MOVE-IMMEDIATE ...) ; compiling (DEFINE-VOP (MOVE-ARG) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/move.lisp ; in: DEFINE-VOP (MOVE-ARG) ; (SB!VM::STOREW ; (LOGIOR (ASH (CHAR-CODE SB!VM::VAL) SB!VM:N-WIDETAG-BITS) ; SB!VM:CHARACTER-WIDETAG) ; SB!VM::FP (SB!C:TN-OFFSET SB!VM::Y)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::STOREW ; (LOGIOR (ASH (CHAR-CODE SB!VM::VAL) SB!VM:N-WIDETAG-BITS) ; SB!VM:CHARACTER-WIDETAG) ; SB!VM::FP (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y))) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y)) ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::X SB!VM::FP (SB!C:TN-OFFSET SB!VM::Y)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::X SB!VM::FP ; (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y))) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y)) ; ; note: deleting unreachable code ; 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) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/move.lisp ; in: DEFINE-VOP (MOVE-FROM-WORD/FIXNUM) ; (SB!ASSEM:INST SB!VM::LEA SB!VM::Y ; (SB!VM::MAKE-EA :QWORD :INDEX SB!VM::X :SCALE ; (ASH 1 SB!VM:N-FIXNUM-TAG-BITS))) ; --> SB!VM::LEA-INST-EMITTER ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; compiling (DEFINE-MOVE-VOP MOVE-FROM-WORD/FIXNUM ...) ; compiling (DEFINE-VOP (MOVE-FROM-SIGNED) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/move.lisp ; in: DEFINE-VOP (MOVE-FROM-SIGNED) ; (SB!C:LOCATION= SB!VM::X SB!VM::Y) ; ==> ; SB!VM::X ; ; note: deleting unreachable code ; (SB!ASSEM:INST SB!VM::IMUL SB!VM::Y SB!VM::X 2) ; --> SB!VM::IMUL-INST-EMITTER ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; compiling (DEFINE-MOVE-VOP MOVE-FROM-SIGNED ...) ; compiling (DEFINE-VOP (MOVE-FROM-UNSIGNED) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/move.lisp ; in: DEFINE-VOP (MOVE-FROM-UNSIGNED) ; (SB!ASSEM:INST SB!VM::LEA SB!VM::Y ; (SB!VM::MAKE-EA :QWORD :INDEX SB!VM::X :SCALE ; (ASH 1 SB!VM:N-FIXNUM-TAG-BITS))) ; --> SB!VM::LEA-INST-EMITTER ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; compiling (DEFINE-MOVE-VOP MOVE-FROM-UNSIGNED ...) ; compiling (DEFINE-VOP (WORD-MOVE) ...) ; compiling (DEFINE-MOVE-VOP WORD-MOVE ...) ; compiling (DEFINE-VOP (MOVE-WORD-ARG) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/move.lisp ; in: DEFINE-VOP (MOVE-WORD-ARG) ; (SB!VM::STOREW SB!VM::X SB!VM::FP (SB!C:TN-OFFSET SB!VM::Y)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::X SB!VM::FP ; (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y))) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; compiling (DEFINE-MOVE-VOP MOVE-WORD-ARG ...) ; compiling (DEFINE-MOVE-VOP MOVE-ARG ...); ; compilation unit finished ; printed 12 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/move.fasl-tmp written ; compilation finished in 0:00:00.772 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/float.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN EA-FOR-DF-DESC ...) ; compiling (DEFUN EA-FOR-CSF-DATA-DESC ...) ; compiling (DEFUN EA-FOR-CSF-REAL-DESC ...) ; compiling (DEFUN EA-FOR-CSF-IMAG-DESC ...) ; compiling (DEFUN EA-FOR-CDF-DATA-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 EA-FOR-CSF-DATA-STACK ...) ; compiling (DEFUN EA-FOR-CSF-REAL-STACK ...) ; compiling (DEFUN EA-FOR-CSF-IMAG-STACK ...) ; compiling (DEFUN EA-FOR-CDF-DATA-STACK ...) ; compiling (DEFUN EA-FOR-CDF-REAL-STACK ...) ; compiling (DEFUN EA-FOR-CDF-IMAG-STACK ...) ; compiling (DEFINE-MOVE-FUN (LOAD-FP-ZERO 1) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-FP-IMMEDIATE 1) ...) ; 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-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 (FROB SINGLE-MOVE ...) ; compiling (FROB DOUBLE-MOVE ...) ; compiling (FROB COMPLEX-SINGLE-MOVE ...) ; compiling (FROB COMPLEX-DOUBLE-MOVE ...) ; compiling (DEFINE-VOP (MOVE-FROM-SINGLE) ...) ; compiling (DEFINE-MOVE-VOP MOVE-FROM-SINGLE ...) ; compiling (DEFINE-VOP (MOVE-FROM-DOUBLE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/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!ASSEM:INST SB!VM::MOVSD (SB!VM::EA-FOR-DF-DESC SB!VM::Y) SB!VM::X)) ; --> 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-TO-SINGLE-REG) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-SINGLE-REG ...) ; compiling (DEFINE-VOP (MOVE-TO-SINGLE-STACK) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-SINGLE-STACK ...) ; compiling (DEFINE-VOP (MOVE-TO-DOUBLE) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-DOUBLE ...) ; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/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) ; (SB!ASSEM:INST SB!VM::MOVQ (SB!VM::EA-FOR-CSF-DATA-DESC SB!VM::Y) SB!VM::X)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; (SB!VM::EA-FOR-CSF-DATA-DESC SB!VM::Y) ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE ...) ; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/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) ; (SB!ASSEM:INST SB!VM::MOVAPD (SB!VM::EA-FOR-CDF-DATA-DESC SB!VM::Y) ; SB!VM::X)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; (SB!VM::EA-FOR-CDF-DATA-DESC SB!VM::Y) ; ==> ; 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 (DEFINE-VOP (FLOAT-OP) ...) ; compiling (FROB SINGLE-FLOAT-OP ...) ; compiling (FROB DOUBLE-FLOAT-OP ...) ; compiling (FROB COMPLEX-SINGLE-FLOAT-OP ...) ; compiling (FROB COMPLEX-DOUBLE-FLOAT-OP ...) ; compiling (FROB + ...) ; compiling (FROB - ...) ; compiling (FROB * ...) ; compiling (FROB / ...) ; compiling (DEF-REAL-COMPLEX-OP + ...) ; compiling (DEF-REAL-COMPLEX-OP - ...) ; compiling (DEF-REAL-COMPLEX-OP * ...) ; compiling (DEF-REAL-COMPLEX-OP / ...) ; compiling (DEFINE-VOP (//COMPLEX-REAL-SINGLE-FLOAT FLOAT-OP) ...) ; compiling (DEFINE-COMPLEX-* */COMPLEX-SINGLE-FLOAT ...) ; compiling (DEFINE-COMPLEX-* */COMPLEX-DOUBLE-FLOAT ...) ; compiling (DEFINE-VOP (FSQRT) ...) ; compiling (FROB (%NEGATE/DOUBLE-FLOAT %NEGATE ...) ...) ; compiling (FROB (%NEGATE/COMPLEX-DOUBLE-FLOAT %NEGATE ...) ...) ; compiling (FROB (CONJUGATE/COMPLEX-DOUBLE-FLOAT CONJUGATE ...) ...) ; compiling (FROB (%NEGATE/SINGLE-FLOAT %NEGATE ...) ...) ; compiling (FROB (%NEGATE/COMPLEX-SINGLE-FLOAT %NEGATE ...) ...) ; compiling (FROB (CONJUGATE/COMPLEX-SINGLE-FLOAT CONJUGATE ...) ...) ; compiling (FROB (ABS/DOUBLE-FLOAT ABS ...) ...) ; compiling (FROB (ABS/SINGLE-FLOAT ABS ...) ...) ; compiling (DEFINE-VOP (FLOAT-COMPARE) ...) ; compiling (DEFINE-FLOAT-EQL EQL/SINGLE-FLOAT ...) ; compiling (DEFINE-FLOAT-EQL EQL/DOUBLE-FLOAT ...) ; compiling (DEFINE-FLOAT-EQL EQL/COMPLEX-SINGLE-FLOAT ...) ; compiling (DEFINE-FLOAT-EQL EQL/COMPLEX-DOUBLE-FLOAT ...) ; compiling (DEFINE-VOP (SINGLE-FLOAT-COMPARE FLOAT-COMPARE) ...) ; compiling (DEFINE-VOP (DOUBLE-FLOAT-COMPARE FLOAT-COMPARE) ...) ; compiling (DEFINE-VOP (=/SINGLE-FLOAT SINGLE-FLOAT-COMPARE) ...) ; compiling (DEFINE-VOP (=/DOUBLE-FLOAT DOUBLE-FLOAT-COMPARE) ...) ; compiling (DEFINE-COMPLEX-FLOAT-= =/COMPLEX-SINGLE-FLOAT ...) ; compiling (DEFINE-COMPLEX-FLOAT-= =/COMPLEX-DOUBLE-FLOAT ...) ; compiling (DEFINE- < ...) ; compiling (DEFINE- > ...) ; compiling (FROB %SINGLE-FLOAT/SIGNED ...) ; compiling (FROB %DOUBLE-FLOAT/SIGNED ...) ; compiling (FROB %SINGLE-FLOAT/DOUBLE-FLOAT ...) ; compiling (FROB %DOUBLE-FLOAT/SINGLE-FLOAT ...) ; compiling (FROB %UNARY-TRUNCATE/SINGLE-FLOAT ...) ; compiling (FROB %UNARY-TRUNCATE/DOUBLE-FLOAT ...) ; compiling (FROB %UNARY-ROUND ...) ; compiling (FROB %UNARY-ROUND ...) ; compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT-C) ...) ; compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT-C) ...) ; compiling (DEFINE-VOP (SINGLE-FLOAT-BITS) ...) ; compiling (DEFINE-VOP (DOUBLE-FLOAT-HIGH-BITS) ...) ; compiling (DEFINE-VOP (DOUBLE-FLOAT-LOW-BITS) ...) ; compiling (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) ...) ; compiling (DEFKNOWN SWAP-COMPLEX ...) ; compiling (DEFOPTIMIZER (SWAP-COMPLEX DERIVE-TYPE) ...) ; compiling (DEFUN SWAP-COMPLEX ...) ; compiling (DEFINE-VOP (SWAP-COMPLEX-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (SWAP-COMPLEX-DOUBLE-FLOAT) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/float.lisp ; in: ; MACROLET ((GENERATE (OPINST COMMUTATIVE CONSTANT-SC LOAD-INST) ; (SB!IMPL::BACKQ-LIST 'FLET (SB!IMPL::BACKQ-LIST #) '(DECLARE #) ; (SB!IMPL::BACKQ-LIST 'COND # # # ...))) ; (FROB (OP SINST SNAME SCOST DINST ...) ; (SB!IMPL::BACKQ-LIST 'PROGN ; (SB!IMPL::BACKQ-LIST 'DEFINE-VOP # # '# ...) ; (SB!IMPL::BACKQ-LIST 'DEFINE-VOP # # '# ...) ; (WHEN CSINST #) ...))) ; (SB!VM::FROB - SB!VM::SUBSS SB!VM::-/SINGLE-FLOAT 2 SB!VM::SUBSD ; SB!VM::-/DOUBLE-FLOAT 2 NIL SB!VM::SUBPS SB!VM::-/COMPLEX-SINGLE-FLOAT 3 ...) ; --> PROGN SB!C:DEFINE-VOP PROGN LET LET* SB!ASSEM:ASSEMBLE LET* MACROLET ; --> SYMBOL-MACROLET SB!VM::GENERATE FLET BLOCK LET ; ==> ; (SB!C:REGISTER-INLINE-CONSTANT SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; (SB!VM::FROB + SB!VM::ADDSS SB!VM::+/SINGLE-FLOAT 2 SB!VM::ADDSD ; SB!VM::+/DOUBLE-FLOAT 2 T SB!VM::ADDPS SB!VM::+/COMPLEX-SINGLE-FLOAT 3 ...) ; --> PROGN SB!C:DEFINE-VOP PROGN LET LET* SB!ASSEM:ASSEMBLE LET* MACROLET ; --> SYMBOL-MACROLET SB!VM::GENERATE FLET BLOCK LET ; ==> ; (SB!C:REGISTER-INLINE-CONSTANT SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; in: DEFINE-MOVE-FUN (LOAD-FP-IMMEDIATE 1) ; (SB!C:REGISTER-INLINE-CONSTANT (SB!C:TN-VALUE SB!VM::X)) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; ; caught STYLE-WARNING: ; 42 more uses of undefined function REGISTER-INLINE-CONSTANT ; ; compilation unit finished ; Undefined function: ; REGISTER-INLINE-CONSTANT ; caught 4 STYLE-WARNING conditions ; printed 6 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/float.fasl-tmp written ; compilation finished in 0:00:04.538 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/simd-pack.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN EA-FOR-SSE-STACK ...) ; compiling (DEFUN FLOAT-SSE-P ...) ; compiling (DEFUN INT-SSE-P ...) ; compiling (DEFINE-MOVE-FUN (LOAD-INT-SSE-IMMEDIATE 1) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-FLOAT-SSE-IMMEDIATE 1) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-INT-SSE 2) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-FLOAT-SSE 2) ...) ; compiling (DEFINE-MOVE-FUN (STORE-INT-SSE 2) ...) ; compiling (DEFINE-MOVE-FUN (STORE-FLOAT-SSE 2) ...) ; compiling (DEFINE-VOP (SSE-MOVE) ...) ; compiling (DEFINE-MOVE-VOP SSE-MOVE ...) ; compiling (DEFINE-VOP (MOVE-FROM-SSE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/simd-pack.lisp ; in: DEFINE-VOP (MOVE-FROM-SSE) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::Y SB!VM:SIMD-PACK-WIDETAG ; SB!VM:SIMD-PACK-SIZE SB!VM::NODE) ; (SB!VM::STOREW ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::X ; (SB!VM::SINGLE-SSE-REG 1) ; (SB!VM::DOUBLE-SSE-REG 2) ; (SB!VM::INT-SSE-REG 0) ; (T 0))) ; SB!VM::Y SB!VM:SIMD-PACK-TAG-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::Y ; SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SSE-P SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::X)))) ; --> 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 COND IF ; --> PROGN 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 ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET COND IF ; --> COND THE PROGN 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!C:SC-CASE SB!VM::X ; (SB!VM::SINGLE-SSE-REG 1) ; (SB!VM::DOUBLE-SSE-REG 2) ; (SB!VM::INT-SSE-REG 0) ; (T 0)) ; --> LET* ; ==> ; SB!VM::X ; ; note: deleting unreachable code ; (SB!VM::STOREW ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::X ; (SB!VM::SINGLE-SSE-REG 1) ; (SB!VM::DOUBLE-SSE-REG 2) ; (SB!VM::INT-SSE-REG 0) ; (T 0))) ; SB!VM::Y SB!VM:SIMD-PACK-TAG-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; --> LET COND IF COND THE PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::X ; (SB!VM::SINGLE-SSE-REG 1) ; (SB!VM::DOUBLE-SSE-REG 2) ; (SB!VM::INT-SSE-REG 0) ; (T 0))) ; ; note: deleting unreachable code ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::Y SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SSE-P SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::X))) ; ; note: deleting unreachable code ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::X) ; --> SB!VM::MOVAPS-INST-EMITTER ; ==> ; SB!VM::EA ; ; note: deleting unreachable code ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::X) ; --> SB!VM::MOVDQA-INST-EMITTER ; ==> ; SB!VM::EA ; ; note: deleting unreachable code ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::Y SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SSE-P SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::X))) ; ; note: deleting unreachable code ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::Y SB!VM:SIMD-PACK-WIDETAG ; SB!VM:SIMD-PACK-SIZE SB!VM::NODE) ; (SB!VM::STOREW ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::X ; (SB!VM::SINGLE-SSE-REG 1) ; (SB!VM::DOUBLE-SSE-REG 2) ; (SB!VM::INT-SSE-REG 0) ; (T 0))) ; SB!VM::Y SB!VM:SIMD-PACK-TAG-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::Y ; SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SSE-P SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::X)))) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF SB!VM::PSEUDO-ATOMIC LET ; --> SB!VM::STOREW LET COND IF PROGN 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 ; compiling (DEFINE-MOVE-VOP MOVE-FROM-SSE ...) ; compiling (DEFINE-VOP (MOVE-TO-SSE) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-SSE ...) ; compiling (DEFINE-VOP (MOVE-SSE-ARG) ...) ; compiling (DEFINE-MOVE-VOP MOVE-SSE-ARG ...) ; compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; compiling (DEFINE-VOP (%SIMD-PACK-LOW) ...) ; compiling (DEFUN %SIMD-PACK-LOW ...) ; compiling (DEFINE-VOP (%SIMD-PACK-HIGH) ...) ; compiling (DEFUN %SIMD-PACK-HIGH ...) ; compiling (DEFINE-VOP (%MAKE-SIMD-PACK) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/simd-pack.lisp ; in: DEFINE-VOP (%MAKE-SIMD-PACK) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::DST SB!VM:SIMD-PACK-WIDETAG ; SB!VM:SIMD-PACK-SIZE SB!VM::NODE) ; (SB!VM::STOREW SB!VM::TAG SB!VM::DST SB!VM:SIMD-PACK-TAG-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STOREW SB!VM::LO SB!VM::DST SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STOREW SB!VM::HI SB!VM::DST SB!VM:SIMD-PACK-HI-VALUE-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 COND IF ; --> PROGN 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 ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET COND IF ; --> COND THE PROGN 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::TAG SB!VM::DST SB!VM:SIMD-PACK-TAG-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET ; ==> ; SB!VM::TAG ; ; note: deleting unreachable code ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; --> LET COND IF COND THE PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::LO SB!VM::DST SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET ; ==> ; SB!VM::LO ; ; note: deleting unreachable code ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; --> LET COND IF COND THE PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::HI SB!VM::DST SB!VM:SIMD-PACK-HI-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET ; ==> ; SB!VM::HI ; ; note: deleting unreachable code ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; --> LET COND IF COND THE PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::DST SB!VM:SIMD-PACK-WIDETAG ; SB!VM:SIMD-PACK-SIZE SB!VM::NODE) ; (SB!VM::STOREW SB!VM::TAG SB!VM::DST SB!VM:SIMD-PACK-TAG-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STOREW SB!VM::LO SB!VM::DST SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STOREW SB!VM::HI SB!VM::DST SB!VM:SIMD-PACK-HI-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF SB!VM::PSEUDO-ATOMIC LET ; --> SB!VM::STOREW LET COND IF PROGN 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::TAG SB!VM::DST SB!VM:SIMD-PACK-TAG-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::LO SB!VM::DST SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::HI SB!VM::DST SB!VM:SIMD-PACK-HI-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; compiling (DEFUN %MAKE-SIMD-PACK ...) ; compiling (DEFINE-VOP (%MAKE-SIMD-PACK-UB64) ...) ; compiling (DEFUN %MAKE-SIMD-PACK-UB64 ...) ; compiling (DEFINE-VOP (%MAKE-SIMD-PACK-DOUBLE) ...) ; compiling (DEFUN %MAKE-SIMD-PACK-DOUBLE ...) ; compiling (DEFINE-VOP (%MAKE-SIMD-PACK-SINGLE) ...) ; compiling (DEFUN %MAKE-SIMD-PACK-SINGLE ...) ; compiling (DEFUN %SIMD-PACK-TAG ...) ; compiling (DEFINE-VOP (%SIMD-PACK-SINGLE-ITEM) ...) ; compiling (DEFINE-VOP (%SIMD-PACK-DOUBLE-ITEM) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/simd-pack.lisp ; in: DEFINE-MOVE-FUN (LOAD-FLOAT-SSE-IMMEDIATE 1) ; (SB!C:REGISTER-INLINE-CONSTANT SB!VM::X) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; in: DEFINE-MOVE-FUN (LOAD-INT-SSE-IMMEDIATE 1) ; (SB!C:REGISTER-INLINE-CONSTANT SB!VM::X) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; in: DEFUN %SIMD-PACK-HIGH ; (TYPE SB!EXT:SIMD-PACK SB!VM::X) ; ; caught STYLE-WARNING: ; undefined type: SIMD-PACK ; in: DEFUN %SIMD-PACK-LOW ; (DEFUN SB!KERNEL:%SIMD-PACK-LOW (SB!VM::X) ; (DECLARE (TYPE SB!EXT:SIMD-PACK SB!VM::X)) ; (SB!KERNEL:%SIMD-PACK-LOW SB!VM::X)) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF ; ==> ; (TYPEP #:G1763 'SB!EXT:SIMD-PACK) ; ; caught STYLE-WARNING: ; undefined type: SIMD-PACK ; (TYPE SB!EXT:SIMD-PACK SB!VM::X) ; ; caught STYLE-WARNING: ; undefined type: SIMD-PACK ; ; caught STYLE-WARNING: ; 3 more uses of undefined type SIMD-PACK ; ; compilation unit finished ; Undefined type: ; SIMD-PACK ; Undefined function: ; REGISTER-INLINE-CONSTANT ; caught 6 STYLE-WARNING conditions ; printed 28 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/simd-pack.fasl-tmp written ; compilation finished in 0:00:00.508 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/sap.lisp" (written 28 JUN 2014 03:46:26 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/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 COND IF ; --> PROGN 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 ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET COND IF ; --> COND THE PROGN 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 COND IF PROGN 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 ; --> LET COND IF COND THE PROGN 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: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 SB!VM::PSEUDO-ATOMIC LET ; --> SB!VM::STOREW LET COND IF PROGN 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 COND IF PROGN 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) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/sap.lisp ; in: DEFINE-VOP (MOVE-SAP-ARG) ; (SB!VM::STOREW SB!VM::X SB!VM::FP (SB!C:TN-OFFSET SB!VM::Y)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::X SB!VM::FP ; (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y))) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; 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 SAP-REF-8 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-16 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-32 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-64 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-64 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SAP ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-LISPOBJ ...) ; compiling (DEFINE-VOP (SAP-REF-DOUBLE) ...) ; compiling (DEFINE-VOP (SAP-REF-DOUBLE-C) ...) ; compiling (DEFINE-VOP (%SET-SAP-REF-DOUBLE) ...) ; compiling (DEFINE-VOP (%SET-SAP-REF-DOUBLE-C) ...) ; compiling (DEFINE-VOP (SAP-REF-SINGLE) ...) ; compiling (DEFINE-VOP (SAP-REF-SINGLE-C) ...) ; compiling (DEFINE-VOP (%SET-SAP-REF-SINGLE) ...) ; compiling (DEFINE-VOP (%SET-SAP-REF-SINGLE-C) ...) ; compiling (DEFINE-VOP (VECTOR-SAP) ...); ; compilation unit finished ; printed 10 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/sap.fasl-tmp written ; compilation finished in 0:00:01.541 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/system.lisp" (written 28 JUN 2014 03:46:26 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) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/system.lisp ; in: DEFINE-VOP (SET-HEADER-DATA) ; (SB!VM::STOREW SB!VM::EAX SB!VM::X 0 SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::X ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (POINTER-HASH) ...) ; compiling (DEFINE-VOP (DYNAMIC-SPACE-FREE-POINTER) ...) ; compiling (DEFINE-VOP (BINDING-STACK-POINTER-SAP) ...) ; compiling (DEFKNOWN (SETF BINDING-STACK-POINTER-SAP) ...) ; compiling (DEFINE-VOP (SET-BINDING-STACK-POINTER-SAP) ...) ; compiling (DEFINE-VOP (CONTROL-STACK-POINTER-SAP) ...) ; compiling (DEFINE-VOP (CODE-INSTRUCTIONS) ...) ; compiling (DEFINE-VOP (COMPUTE-FUN) ...) ; compiling (DEFINE-VOP (%SIMPLE-FUN-SELF) ...) ; compiling (DEFINE-SOURCE-TRANSFORM %CLOSURE-FUN ...) ; compiling (DEFINE-VOP (%SET-FUN-SELF) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/system.lisp ; in: DEFINE-VOP (%SET-FUN-SELF) ; (SB!VM::STOREW SB!VM::TEMP FUNCTION SB!VM:SIMPLE-FUN-SELF-SLOT ; SB!VM:FUN-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; FUNCTION ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (SYMBOL-INFO-VECTOR) ...) ; compiling (DEFINE-VOP (SYMBOL-PLIST) ...) ; compiling (DEFKNOWN SB!UNIX::RECEIVE-PENDING-INTERRUPT ...) ; compiling (DEFINE-VOP (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ...) ; compiling (DEFKNOWN CURRENT-THREAD-OFFSET-SAP ...) ; compiling (DEFINE-VOP (CURRENT-THREAD-OFFSET-SAP/C) ...) ; compiling (DEFINE-VOP (CURRENT-THREAD-OFFSET-SAP) ...) ; compiling (DEFINE-VOP (HALT) ...) ; compiling (DEFKNOWN FLOAT-WAIT ...) ; compiling (DEFINE-VOP (FLOAT-WAIT) ...) ; compiling (DEFKNOWN %READ-CYCLE-COUNTER ...) ; compiling (DEFINE-VOP (%READ-CYCLE-COUNTER) ...) ; compiling (DEFMACRO WITH-CYCLE-COUNTER ...) ; compiling (DEFINE-VOP (%COMPILER-BARRIER) ...) ; compiling (DEFINE-VOP (%MEMORY-BARRIER) ...) ; compiling (DEFINE-VOP (%READ-BARRIER) ...) ; compiling (DEFINE-VOP (%WRITE-BARRIER) ...) ; compiling (DEFINE-VOP (%DATA-DEPENDENCY-BARRIER) ...) ; compiling (DEFINE-VOP (PAUSE) ...) ; compiling (DEFKNOWN %CONS-CAS-PAIR ...) ; compiling (DEFKNOWN %VECTOR-CAS-PAIR ...) ; compiling (DEFKNOWN %INSTANCE-CAS-PAIR ...) ; compiling (DEFINE-CMPXCHG-VOP COMPARE-AND-EXCHANGE-PAIR ...) ; compiling (DEFINE-CMPXCHG-VOP COMPARE-AND-EXCHANGE-PAIR-INDEXED ...) ; compiling (DEFINE-VOP (%VECTOR-CAS-PAIR COMPARE-AND-EXCHANGE-PAIR-INDEXED) ...) ; compiling (DEFINE-VOP (%INSTANCE-CAS-PAIR COMPARE-AND-EXCHANGE-PAIR-INDEXED) ...) ; compiling (DEFKNOWN %CPU-IDENTIFICATION ...) ; compiling (DEFINE-VOP (%CPU-IDENTIFICATION) ...) ; compiling (DEFKNOWN SYMBOL-TLS-INDEX ...) ; compiling (DEFINE-SOURCE-TRANSFORM SYMBOL-TLS-INDEX ...); ; compilation unit finished ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/system.fasl-tmp written ; compilation finished in 0:00:00.759 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/char.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (MOVE-TO-CHARACTER) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-CHARACTER ...) ; compiling (DEFINE-VOP (MOVE-FROM-CHARACTER) ...) ; compiling (DEFINE-MOVE-VOP MOVE-FROM-CHARACTER ...) ; compiling (DEFINE-VOP (CHARACTER-MOVE) ...) ; compiling (DEFINE-MOVE-VOP CHARACTER-MOVE ...) ; compiling (DEFINE-VOP (MOVE-CHARACTER-ARG) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/char.lisp ; in: DEFINE-VOP (MOVE-CHARACTER-ARG) ; (SB!VM::STOREW SB!VM::X SB!VM::FP (SB!C:TN-OFFSET SB!VM::Y)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::X SB!VM::FP ; (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y))) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; compiling (DEFINE-MOVE-VOP MOVE-CHARACTER-ARG ...) ; compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; compiling (DEFINE-VOP (CHAR-CODE) ...) ; compiling (DEFINE-VOP (CODE-CHAR) ...) ; compiling (DEFINE-VOP (CHARACTER-COMPARE) ...) ; compiling (DEFINE-VOP (FAST-CHAR=/CHARACTER CHARACTER-COMPARE) ...) ; compiling (DEFINE-VOP (FAST-CHAR/CHARACTER CHARACTER-COMPARE) ...) ; compiling (DEFINE-VOP (CHARACTER-COMPARE/C) ...) ; compiling (DEFINE-VOP (FAST-CHAR=/CHARACTER/C CHARACTER-COMPARE/C) ...) ; compiling (DEFINE-VOP (FAST-CHAR/CHARACTER/C CHARACTER-COMPARE/C) ...); ; compilation unit finished ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/char.fasl-tmp written ; compilation finished in 0:00:00.298 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/memory.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (CELL-REF) ...) ; compiling (DEFINE-VOP (CELL-SET) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/memory.lisp ; in: DEFINE-VOP (CELL-SET) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::OBJECT SB!VM::OFFSET SB!VM::LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::OBJECT ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (CELL-SETF) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/memory.lisp ; in: DEFINE-VOP (CELL-SETF) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::OBJECT SB!VM::OFFSET SB!VM::LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::OBJECT ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (CELL-SETF-FUN) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/memory.lisp ; in: DEFINE-VOP (CELL-SETF-FUN) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::OBJECT SB!VM::OFFSET SB!VM::LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::OBJECT ; ; note: deleting unreachable code ; compiling (DEFMACRO DEFINE-CELL-ACCESSORS ...) ; compiling (DEFINE-VOP (CELL-XADD) ...) ; compiling (DEFINE-VOP (SLOT-REF) ...) ; compiling (DEFINE-VOP (SLOT-SET) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/memory.lisp ; in: DEFINE-VOP (SLOT-SET) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::OBJECT (+ SB!VM::BASE SB!VM::OFFSET) ; SB!VM::LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::OBJECT ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (SLOT-SET-CONDITIONAL) ...) ; compiling (DEFINE-VOP (SLOT-XADD) ...); ; compilation unit finished ; printed 4 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/memory.fasl-tmp written ; compilation finished in 0:00:01.465 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/static-fn.lisp" (written 28 JUN 2014 03:46:26 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/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 #:NODE-5742) ; ; 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 #:NODE-5741) ; ; 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 #:NODE-5740) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-UNKNOWN-VALUES ; ; caught STYLE-WARNING: ; 1 more use of undefined function DEFAULT-UNKNOWN-VALUES ; ; compilation unit finished ; Undefined function: ; DEFAULT-UNKNOWN-VALUES ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/static-fn.fasl-tmp written ; compilation finished in 0:00:00.237 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/arith.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN IMMEDIATE32-P ...) ; compiling (DEFUN CONSTANTIZE ...) ; 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-*-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-TRUNCATE/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/arith.lisp ; in: DEFINE-VOP (FAST-TRUNCATE/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ; (SB!ASSEM:INST SB!VM::LEA SB!VM::QUO ; (SB!VM::MAKE-EA :QWORD :INDEX SB!VM::EAX :SCALE ; (ASH 1 SB!VM:N-FIXNUM-TAG-BITS))) ; --> SB!VM::LEA-INST-EMITTER ; ==> ; SB!VM::QUO ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (FAST-TRUNCATE-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/arith.lisp ; in: DEFINE-VOP (FAST-TRUNCATE-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ; (SB!ASSEM:INST SB!VM::LEA SB!VM::QUO ; (SB!VM::MAKE-EA :QWORD :INDEX SB!VM::EAX :SCALE ; (ASH 1 SB!VM:N-FIXNUM-TAG-BITS))) ; --> SB!VM::LEA-INST-EMITTER ; ==> ; SB!VM::QUO ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (FAST-TRUNCATE/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-TRUNCATE-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-TRUNCATE/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-TRUNCATE-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-ASH-C/FIXNUM=>FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT/FIXNUM=>FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-ASH-C/SIGNED=>SIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT/SIGNED=>SIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH/SIGNED=>SIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-%ASH/RIGHT/UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-%ASH/RIGHT/SIGNED) ...) ; compiling (DEFINE-VOP (FAST-%ASH/RIGHT/FIXNUM) ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN %LEA ...) ; compiling (DEFOPTIMIZER (%LEA DERIVE-TYPE) ...) ; compiling (DEFUN %LEA ...) ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (%LEA/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (%LEA/SIGNED=>SIGNED) ...) ; compiling (DEFINE-VOP (%LEA/FIXNUM=>FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-CMOV-ASH/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (SIGNED-BYTE-64-LEN) ...) ; compiling (DEFINE-VOP (UNSIGNED-BYTE-64-LEN) ...) ; compiling (DEFINE-VOP (POSITIVE-FIXNUM-LEN) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/arith.lisp ; in: DEFINE-VOP (POSITIVE-FIXNUM-LEN) ; (SB!ASSEM:INST SB!VM::SHR SB!VM::RES (1- SB!VM:N-FIXNUM-TAG-BITS)) ; --> SB!VM::SHR-INST-EMITTER ; ==> ; SB!VM::RES ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (FIXNUM-LEN) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/arith.lisp ; in: DEFINE-VOP (FIXNUM-LEN) ; (SB!ASSEM:INST SB!VM::SAR SB!VM::RES (1- SB!VM:N-FIXNUM-TAG-BITS)) ; --> SB!VM::SAR-INST-EMITTER ; ==> ; SB!VM::RES ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (UNSIGNED-BYTE-64-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-C/FIXNUM) ...) ; compiling (DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM) ...) ; compiling (DEFINE-VOP (SHIFT-TOWARDS-SOMEPLACE) ...) ; compiling (DEFINE-VOP (SHIFT-TOWARDS-START SHIFT-TOWARDS-SOMEPLACE) ...) ; compiling (DEFINE-VOP (SHIFT-TOWARDS-END SHIFT-TOWARDS-SOMEPLACE) ...) ; compiling (DEFMACRO DEFINE-MOD-BINOP ...) ; compiling (DEFMACRO DEFINE-MOD-BINOP-C ...) ; compiling (DEF + ...) ; compiling (DEF - ...) ; compiling (DEF * ...) ; compiling (DEFINE-MODULAR-FUN %NEGATE-MOD64 ...) ; compiling (DEFINE-VOP (%NEGATE-MOD64) ...) ; compiling (DEFINE-MODULAR-FUN %NEGATE-MODFX ...) ; compiling (DEFINE-VOP (%NEGATE-MODFX FAST-NEGATE/FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD64-C/UNSIGNED=>UNSIGNED FAST-ASH-C/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD64/UNSIGNED=>UNSIGNED FAST-ASH-LEFT/UNSIGNED=>UNSIGNED)) ; compiling (DEFTRANSFORM ASH-LEFT-MOD64 ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT-MODFX-C/FIXNUM=>FIXNUM FAST-ASH-C/FIXNUM=>FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT-MODFX/FIXNUM=>FIXNUM FAST-ASH-LEFT/FIXNUM=>FIXNUM)) ; compiling (DEFTRANSFORM ASH-LEFT-MODFX ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN SB!VM::%LEA-MOD64 ...) ; compiling (DEFKNOWN SB!VM::%LEA-MODFX ...) ; compiling (DEFINE-MODULAR-FUN-OPTIMIZER %LEA ...) ; compiling (DEFINE-MODULAR-FUN-OPTIMIZER %LEA ...) ; compiling (DEFUN SB!VM::%LEA-MOD64 ...) ; compiling (DEFUN SB!VM::%LEA-MODFX ...) ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (%LEA-MOD64/UNSIGNED=>UNSIGNED %LEA/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (%LEA-MODFX/FIXNUM=>FIXNUM %LEA/FIXNUM=>FIXNUM) ...) ; compiling (DEFINE-MODULAR-FUN LOGNOT-MOD64 ...) ; compiling (DEFINE-VOP (LOGNOT-MOD64/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGANDC1 ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGANDC2 ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGORC1 ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGORC2 ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGNOR ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGNAND ...) ; compiling (DEFINE-VOP (BIGNUM-LENGTH GET-HEADER-DATA) ...) ; compiling (DEFINE-VOP (BIGNUM-SET-LENGTH SET-HEADER-DATA) ...) ; compiling (DEFINE-FULL-REFFER BIGNUM-REF ...) ; compiling (DEFINE-FULL-REFFER+OFFSET BIGNUM-REF-WITH-OFFSET ...) ; compiling (DEFINE-FULL-SETTER BIGNUM-SET ...) ; compiling (DEFINE-VOP (DIGIT-0-OR-PLUS) ...) ; compiling (DEFINE-VOP (ADD-W/CARRY) ...) ; compiling (DEFINE-VOP (SUB-W/BORROW) ...) ; compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-3-ARG) ...) ; compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-4-ARG) ...) ; compiling (DEFINE-VOP (BIGNUM-MULT) ...) ; compiling (DEFINE-VOP (MULHI) ...) ; compiling (DEFINE-VOP (MULHI/FX) ...) ; compiling (DEFINE-VOP (BIGNUM-LOGNOT LOGNOT-MOD64/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FIXNUM-TO-DIGIT) ...) ; compiling (DEFINE-VOP (BIGNUM-FLOOR) ...) ; compiling (DEFINE-VOP (SIGNIFY-DIGIT) ...) ; compiling (DEFINE-VOP (DIGIT-ASHR) ...) ; compiling (DEFINE-VOP (DIGIT-ASHR/C) ...) ; compiling (DEFINE-VOP (DIGIT-LSHR DIGIT-ASHR) ...) ; compiling (DEFINE-VOP (DIGIT-ASHL DIGIT-ASHR) ...) ; compiling (DEFINE-VOP (LOGAND-BIGNUM/C) ...) ; compiling (DEFINE-VOP (MASK-SIGNED-FIELD-WORD/C) ...) ; compiling (DEFINE-VOP (MASK-SIGNED-FIELD-BIGNUM/C) ...) ; 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 (IN-PACKAGE "SB!C") ; compiling (DEFUN *-TRANSFORMER ...) ; compiling (DEFTRANSFORM * ...) ; compiling (DEFTRANSFORM SB!VM::*-MOD64 ...) ; compiling (DEFTRANSFORM * ...) ; compiling (DEFTRANSFORM SB!VM::*-MODFX ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/arith.lisp ; in: DEFUN SB!VM::%LEA-MODFX ; (SB!C::MASK-SIGNED-FIELD (- SB!VM:N-WORD-BITS SB!VM:N-FIXNUM-TAG-BITS) ; (SB!KERNEL:%LEA SB!C::BASE SB!INT:INDEX SB!C::SCALE SB!C::DISP)) ; ; caught STYLE-WARNING: ; undefined function: MASK-SIGNED-FIELD ; in: DEFUN SB!VM::IMMEDIATE32-P ; (SB!C::MASK-SIGNED-FIELD 32 SB!VM::X) ; ; caught STYLE-WARNING: ; undefined function: MASK-SIGNED-FIELD ; in: ; DEFINE-VOP (SB!VM::FAST-*-C/SIGNED=>SIGNED SB!VM::FAST-SAFE-ARITH-OP) ; (SB!C:REGISTER-INLINE-CONSTANT :QWORD SB!VM::Y) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; in: ; DEFINE-VOP (SB!VM::FAST-*-C/FIXNUM=>FIXNUM SB!VM::FAST-SAFE-ARITH-OP) ; (SB!C:REGISTER-INLINE-CONSTANT :QWORD SB!VM::Y) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; in: DEFUN SB!VM::CONSTANTIZE ; (SB!C:REGISTER-INLINE-CONSTANT :QWORD SB!VM::X) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; ; caught STYLE-WARNING: ; 2 more uses of undefined function REGISTER-INLINE-CONSTANT ; ; compilation unit finished ; Undefined functions: ; MASK-SIGNED-FIELD REGISTER-INLINE-CONSTANT ; caught 6 STYLE-WARNING conditions ; printed 4 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/arith.fasl-tmp written ; compilation finished in 0:00:04.989 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cross-modular.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN MASK-SIGNED-FIELD ...) ; compiling (DEFUN SB!VM::+-MOD64 ...) ; compiling (DEFUN SB!VM::--MOD64 ...) ; compiling (DEFUN SB!VM::*-MOD64 ...) ; compiling (DEFUN SB!VM::%NEGATE-MOD64 ...) ; compiling (DEFUN SB!VM::LOGNOT-MOD64 ...) ; compiling (DEFUN SB!VM::+-MODFX ...) ; compiling (DEFUN SB!VM::--MODFX ...) ; compiling (DEFUN SB!VM::*-MODFX ...) ; compiling (DEFUN SB!VM::%NEGATE-MODFX ...) ; compiling (DEFUN SB!VM::ASH-LEFT-MOD64 ...) ; compiling (DEFUN SB!VM::ASH-LEFT-MODFX ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cross-modular.fasl-tmp written ; compilation finished in 0:00:00.052 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/type-vops.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN MOVE-QWORD-TO-EAX ...) ; compiling (DEFUN GENERATE-FIXNUM-TEST ...) ; compiling (DEFUN %TEST-FIXNUM ...) ; compiling (DEFMACRO !N-FIXNUM-TAG-BITS-CASE ...) ; compiling (DEFUN %LEA-FOR-LOWTAG-TEST ...) ; compiling (DEFUN %TEST-FIXNUM-AND-HEADERS ...) ; compiling (DEFUN %TEST-FIXNUM-AND-IMMEDIATE ...) ; compiling (DEFUN %TEST-FIXNUM-IMMEDIATE-AND-HEADERS ...) ; compiling (DEFUN %TEST-IMMEDIATE ...) ; compiling (DEFUN %TEST-IMMEDIATE-AND-HEADERS ...) ; 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 (DEFMACRO !DEFINE-TYPE-VOPS ...) ; compiling (DEFINE-VOP (FIXNUMP/UNSIGNED-BYTE-64 SIMPLE-TYPE-PREDICATE) ...) ; compiling (DEFINE-VOP (FIXNUMP/SIGNED-BYTE-64 SIMPLE-TYPE-PREDICATE) ...) ; compiling (DEFINE-VOP (SIGNED-BYTE-64-P TYPE-PREDICATE) ...) ; compiling (DEFINE-VOP (CHECK-SIGNED-BYTE-64 CHECK-TYPE) ...) ; compiling (DEFINE-VOP (UNSIGNED-BYTE-64-P TYPE-PREDICATE) ...) ; compiling (DEFINE-VOP (CHECK-UNSIGNED-BYTE-64 CHECK-TYPE) ...) ; compiling (DEFUN POWER-OF-TWO-LIMIT-P ...) ; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-POWER-OF-TWO) ...) ; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED) ...) ; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-*) ...) ; compiling (DEFINE-VOP (SYMBOLP TYPE-PREDICATE) ...) ; compiling (DEFINE-VOP (CHECK-SYMBOL CHECK-TYPE) ...) ; compiling (DEFINE-VOP (CONSP TYPE-PREDICATE) ...) ; compiling (DEFINE-VOP (CHECK-CONS CHECK-TYPE) ...) ; compiling (DEFINE-VOP (%OTHER-POINTER-SUBTYPE-P TYPE-PREDICATE) ...) ; compiling (!DEFINE-TYPE-VOPS SIMD-PACK-P ...) ; compiling (DEFINE-VOP (CHECK-SIMD-PACK CHECK-TYPE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/type-vops.lisp ; in: DEFINE-VOP (CHECK-SIMD-PACK CHECK-TYPE) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RESULT SB!VM:SIMD-PACK-WIDETAG ; SB!VM:SIMD-PACK-SIZE SB!VM::NODE) ; (SB!VM::STOREW ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::VALUE ; (# 0) ; (# 1) ; (# 2))) ; SB!VM::RESULT SB!VM:SIMD-PACK-TAG-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::RESULT ; SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SIMD-PACK-P SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::VALUE)))) ; --> 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 COND IF ; --> PROGN 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 ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET COND IF ; --> COND THE PROGN 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!C:SC-CASE SB!VM::VALUE ; ((SB!VM::INT-SSE-REG SB!VM::INT-SSE-STACK) 0) ; ((SB!VM::SINGLE-SSE-REG SB!VM::SINGLE-SSE-STACK) 1) ; ((SB!VM::DOUBLE-SSE-REG SB!VM::DOUBLE-SSE-STACK) 2)) ; --> LET* ; ==> ; SB!VM::VALUE ; ; note: deleting unreachable code ; (SB!VM::STOREW ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::VALUE ; ((SB!VM::INT-SSE-REG SB!VM::INT-SSE-STACK) 0) ; ((SB!VM::SINGLE-SSE-REG SB!VM::SINGLE-SSE-STACK) 1) ; ((SB!VM::DOUBLE-SSE-REG SB!VM::DOUBLE-SSE-STACK) 2))) ; SB!VM::RESULT SB!VM:SIMD-PACK-TAG-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN 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 ; --> LET COND IF COND THE PROGN 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:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::VALUE ; ((SB!VM::INT-SSE-REG SB!VM::INT-SSE-STACK) 0) ; ((SB!VM::SINGLE-SSE-REG SB!VM::SINGLE-SSE-STACK) 1) ; ((SB!VM::DOUBLE-SSE-REG SB!VM::DOUBLE-SSE-STACK) 2))) ; ; note: deleting unreachable code ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::RESULT ; SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SIMD-PACK-P SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::VALUE))) ; ; note: deleting unreachable code ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::VALUE) ; --> SB!VM::MOVAPS-INST-EMITTER ; ==> ; SB!VM::EA ; ; note: deleting unreachable code ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::VALUE) ; --> SB!VM::MOVDQA-INST-EMITTER ; ==> ; SB!VM::EA ; ; note: deleting unreachable code ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::RESULT ; SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SIMD-PACK-P SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::VALUE))) ; ; note: deleting unreachable code ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RESULT SB!VM:SIMD-PACK-WIDETAG ; SB!VM:SIMD-PACK-SIZE SB!VM::NODE) ; (SB!VM::STOREW ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::VALUE ; (# 0) ; (# 1) ; (# 2))) ; SB!VM::RESULT SB!VM:SIMD-PACK-TAG-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::RESULT ; SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SIMD-PACK-P SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::VALUE)))) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF SB!VM::PSEUDO-ATOMIC LET ; --> SB!VM::STOREW LET COND IF PROGN 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!C::LVAR-TYPE SB!VM::LEAF) ; ; note: deleting unreachable code ; compiling (PRIMITIVE-TYPE-VOP CHECK-SIMD-PACK ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/type-vops.lisp ; in: DEFINE-VOP (CHECK-SIMD-PACK CHECK-TYPE) ; (SB!VM::FLOAT-SIMD-PACK-P SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-SIMD-PACK-P ; ; compilation unit finished ; Undefined function: ; FLOAT-SIMD-PACK-P ; caught 1 STYLE-WARNING condition ; printed 13 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/type-vops.fasl-tmp written ; compilation finished in 0:00:00.457 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/subprim.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (LENGTH/LIST) ...) ; compiling (DEFINE-VOP (FAST-LENGTH/LIST) ...) ; compiling (DEFINE-STATIC-FUN LENGTH ...) ; compiling (DEFINE-STATIC-FUN %COERCE-CALLABLE-TO-FUN ...) ; compiling (DEFUN SUBPRIMITIVE-TLS-ALLOCATOR ...) ; compiling (DEFINE-VOP (ENSURE-SYMBOL-TLS-INDEX) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/subprim.fasl-tmp written ; compilation finished in 0:00:00.104 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/debug.lisp" (written 28 JUN 2014 03:46:26 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) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/debug.fasl-tmp written ; compilation finished in 0:00:00.244 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/early-aliencomp.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN %ALIEN-FUNCALL ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/early-aliencomp.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/c-call.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN MY-MAKE-WIRED-TN ...) ; compiling (DEFSTRUCT (ARG-STATE #) ...) ; compiling (DEFCONSTANT MAX-INT-ARGS ...) ; compiling (DEFCONSTANT MAX-XMM-ARGS ...) ; compiling (DEFUN INT-ARG ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ARG-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ARG-TN) ...) ; compiling (DEFUN FLOAT-ARG ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :ARG-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :ARG-TN) ...) ; compiling (DEFSTRUCT (RESULT-STATE #) ...) ; compiling (DEFUN RESULT-REG-OFFSET ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :RESULT-TN) ...) ; compiling (DEFUN MAKE-CALL-OUT-TNS ...) ; compiling (DEFTRANSFORM %ALIEN-FUNCALL ...) ; compiling (DEFKNOWN SIGN-EXTEND ...) ; compiling (DEFINE-VOP (SIGN-EXTEND) ...) ; compiling (DEFUN SIGN-EXTEND ...) ; compiling (DEFINE-VOP (FOREIGN-SYMBOL-SAP) ...) ; compiling (DEFINE-VOP (FOREIGN-SYMBOL-DATAREF-SAP) ...) ; compiling (DEFINE-VOP (CALL-OUT) ...) ; compiling (DEFINE-VOP (ALLOC-NUMBER-STACK-SPACE) ...) ; compiling (DEFINE-VOP (DEALLOC-NUMBER-STACK-SPACE) ...) ; compiling (DEFINE-VOP (ALLOC-ALIEN-STACK-SPACE) ...) ; compiling (DEFINE-VOP (TOUCH-OBJECT) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/c-call.fasl-tmp written ; compilation finished in 0:00:00.211 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (SLOT) ...) ; compiling (DEFINE-VOP (SET-SLOT) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (SET-SLOT) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::OBJECT SB!VM::OFFSET SB!VM::LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::OBJECT ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (INIT-SLOT SET-SLOT)) ; compiling (DEFINE-VOP (COMPARE-AND-SWAP-SLOT) ...) ; compiling (DEFINE-VOP (%SET-SYMBOL-GLOBAL-VALUE CELL-SET) ...) ; compiling (DEFINE-VOP (FAST-SYMBOL-GLOBAL-VALUE CELL-REF) ...) ; compiling (DEFINE-VOP (SYMBOL-GLOBAL-VALUE) ...) ; compiling (DEFUN WIRED-TLS-SYMBOL-P ...) ; compiling (DEFUN LOAD-TIME-TLS-OFFSET ...) ; compiling (DEFUN SYMBOL-ALWAYS-THREAD-LOCAL-P ...) ; compiling (DEFINE-VOP (%COMPARE-AND-SWAP-SYMBOL-VALUE) ...) ; compiling (DEFINE-VOP (SET) ...) ; compiling (DEFINE-VOP (SYMBOL-VALUE) ...) ; compiling (DEFINE-VOP (FAST-SYMBOL-VALUE SYMBOL-VALUE) ...) ; compiling (DEFINE-VOP (SYMEVAL/STATIC-WIRED) ...) ; compiling (DEFINE-VOP (FAST-SYMEVAL/STATIC-WIRED SYMEVAL/STATIC-WIRED) ...) ; 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) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (SET-FDEFN-FUN) ; (SB!VM::STOREW FUNCTION SB!KERNEL:FDEFN SB!VM:FDEFN-FUN-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!KERNEL:FDEFN ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::RAW SB!KERNEL:FDEFN SB!VM:FDEFN-RAW-ADDR-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!KERNEL:FDEFN ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (FDEFN-MAKUNBOUND) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (FDEFN-MAKUNBOUND) ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!KERNEL:FDEFN SB!VM:FDEFN-FUN-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!KERNEL:FDEFN ; ; note: deleting unreachable code ; (SB!VM::STOREW (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) SB!KERNEL:FDEFN ; SB!VM:FDEFN-RAW-ADDR-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!KERNEL:FDEFN ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (BIND) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (BIND) ; (SB!VM::STOREW SB!VM::TMP SB!VM::BSP ; (- SB!VM:BINDING-VALUE-SLOT SB!VM:BINDING-SIZE)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TLS-INDEX SB!VM::BSP ; (- SB!VM:BINDING-SYMBOL-SLOT SB!VM:BINDING-SIZE)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (BIND/LET) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (BIND/LET) ; (SB!VM::STOREW SB!VM::TMP SB!VM::BSP SB!VM:BINDING-VALUE-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (UNBIND) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (UNBIND) ; (SB!VM::STOREW SB!VM::TEMP SB!VM::BSP SB!VM:BINDING-SYMBOL-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TEMP SB!VM::BSP SB!VM:BINDING-VALUE-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (UNBIND-TO-HERE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (UNBIND-TO-HERE) ; (SB!VM::STOREW SB!VM::ZERO SB!VM::BSP SB!VM:BINDING-SYMBOL-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::ZERO SB!VM::BSP SB!VM:BINDING-VALUE-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (BIND-SENTINEL) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (BIND-SENTINEL) ; (SB!VM::STOREW SB!VM:UNBOUND-MARKER-WIDETAG SB!VM::BSP ; (- SB!VM:BINDING-SYMBOL-SLOT SB!VM:BINDING-SIZE)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (UNBIND-SENTINEL) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (UNBIND-SENTINEL) ; (SB!VM::STOREW 0 SB!VM::BSP (- SB!VM:BINDING-VALUE-SLOT SB!VM:BINDING-SIZE)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; (SB!VM::STOREW 0 SB!VM::BSP (- SB!VM:BINDING-SYMBOL-SLOT SB!VM:BINDING-SIZE)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; compiling (DEFINE-FULL-REFFER CLOSURE-INDEX-REF ...) ; compiling (DEFINE-FULL-SETTER SET-FUNCALLABLE-INSTANCE-INFO ...) ; compiling (DEFINE-FULL-REFFER FUNCALLABLE-INSTANCE-INFO ...) ; compiling (DEFINE-VOP (CLOSURE-REF SLOT-REF) ...) ; compiling (DEFINE-VOP (CLOSURE-INIT SLOT-SET) ...) ; compiling (DEFINE-VOP (CLOSURE-INIT-FROM-FP) ...) ; compiling (DEFINE-VOP (VALUE-CELL-REF CELL-REF) ...) ; compiling (DEFINE-VOP (VALUE-CELL-SET CELL-SET) ...) ; compiling (DEFINE-VOP (INSTANCE-LENGTH) ...) ; compiling (DEFINE-FULL-REFFER INSTANCE-INDEX-REF ...) ; compiling (DEFINE-FULL-SETTER INSTANCE-INDEX-SET ...) ; compiling (DEFINE-FULL-COMPARE-AND-SWAP %COMPARE-AND-SWAP-INSTANCE-REF ...) ; compiling (DEFINE-FULL-REFFER CODE-HEADER-REF ...) ; compiling (DEFINE-FULL-SETTER CODE-HEADER-SET ...) ; compiling (DEFUN MAKE-EA-FOR-RAW-SLOT ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF-C/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET-C/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-ATOMIC-INCF-C/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF-C/SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET-C/SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF-C/DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET-C/DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF-C/COMPLEX-SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET-C/COMPLEX-SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/COMPLEX-SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF-C/COMPLEX-DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET-C/COMPLEX-DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/COMPLEX-DOUBLE) ...); ; compilation unit finished ; printed 15 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/cell.fasl-tmp written ; compilation finished in 0:00:01.869 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/values.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (RESET-STACK-POINTER) ...) ; compiling (DEFINE-VOP (%%NIP-VALUES) ...) ; compiling (DEFINE-VOP (PUSH-VALUES) ...) ; compiling (DEFINE-VOP (VALUES-LIST) ...) ; compiling (DEFINE-VOP (%MORE-ARG-VALUES) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/values.fasl-tmp written ; compilation finished in 0:00:00.165 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/alloc.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (LIST-OR-LIST*) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/alloc.lisp ; in: DEFINE-VOP (LIST-OR-LIST*) ; (SB!VM::STORE-CAR (SB!C:TN-REF-TN SB!VM::THINGS) SB!VM::PTR) ; --> LET SB!VM::STOREW LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STORE-CAR (SB!C:TN-REF-TN SB!VM::THINGS) SB!VM::PTR ; SB!VM:CONS-CDR-SLOT) ; --> LET SB!VM::STOREW LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::PTR SB!VM:CONS-CDR-SLOT ; SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STORE-CAR (SB!C:TN-REF-TN SB!VM::THINGS) SB!VM::PTR) ; --> LET SB!VM::STOREW LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::PTR SB!VM::PTR (- SB!VM:CONS-CDR-SLOT SB!VM:CONS-SIZE) ; SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STORE-CAR (SB!C:TN-REF-TN SB!VM::THINGS) SB!VM::PTR) ; --> LET SB!VM::STOREW LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STORE-CAR (SB!C:TN-REF-TN SB!VM::THINGS) SB!VM::PTR ; SB!VM:CONS-CDR-SLOT) ; --> LET SB!VM::STOREW LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::PTR SB!VM:CONS-CDR-SLOT ; SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STORE-CAR (SB!C:TN-REF-TN SB!VM::THINGS) SB!VM::PTR) ; --> LET SB!VM::STOREW LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::PTR SB!VM::PTR (- SB!VM:CONS-CDR-SLOT SB!VM:CONS-SIZE) ; SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (LIST LIST-OR-LIST*) ...) ; compiling (DEFINE-VOP (LIST* LIST-OR-LIST*) ...) ; compiling (DEFINE-VOP (ALLOCATE-VECTOR-ON-HEAP) ...) ; compiling (DEFINE-VOP (ALLOCATE-VECTOR-ON-STACK) ...) ; compiling (DEFINE-VOP (MAKE-FDEFN) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/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 COND IF ; --> PROGN 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 ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET COND IF ; --> COND THE PROGN 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 COND IF PROGN 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 ; --> LET COND IF COND THE PROGN 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 COND IF PROGN 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 ; --> LET COND IF COND THE PROGN 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 COND IF PROGN 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 ; --> LET COND IF COND THE PROGN 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::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 SB!VM::PSEUDO-ATOMIC LET ; --> SB!VM::STOREW LET COND IF PROGN 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 COND IF PROGN 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 COND IF PROGN 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!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) SB!VM::RESULT ; SB!VM:FDEFN-RAW-ADDR-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN 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) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/alloc.lisp ; in: DEFINE-VOP (MAKE-CLOSURE) ; (SB!VM::STOREW SB!VM::TEMP SB!VM::RESULT SB!VM:CLOSURE-FUN-SLOT ; SB!VM:FUN-POINTER-LOWTAG) ; --> LET COND IF PROGN 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 ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (MAKE-VALUE-CELL) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/alloc.lisp ; in: DEFINE-VOP (MAKE-VALUE-CELL) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RESULT SB!VM:VALUE-CELL-HEADER-WIDETAG ; SB!VM:VALUE-CELL-SIZE SB!VM::NODE ; SB!VM::STACK-ALLOCATE-P) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::RESULT SB!VM:VALUE-CELL-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET COND IF ; --> PROGN 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::VALUE SB!VM::RESULT SB!VM:VALUE-CELL-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN 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::WITH-FIXED-ALLOCATION (SB!VM::RESULT SB!VM:VALUE-CELL-HEADER-WIDETAG ; SB!VM:VALUE-CELL-SIZE SB!VM::NODE ; SB!VM::STACK-ALLOCATE-P) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::RESULT SB!VM:VALUE-CELL-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF SB!VM::PSEUDO-ATOMIC LET ; --> SB!VM::STOREW LET COND IF PROGN 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::VALUE SB!VM::RESULT SB!VM:VALUE-CELL-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN 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-UNBOUND-MARKER) ...) ; compiling (DEFINE-VOP (MAKE-FUNCALLABLE-INSTANCE-TRAMP) ...) ; compiling (DEFINE-VOP (FIXED-ALLOC) ...) ; compiling (DEFINE-VOP (VAR-ALLOC) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/alloc.lisp ; in: DEFINE-VOP (VAR-ALLOC) ; (SB!VM::STOREW SB!VM::HEADER SB!VM::RESULT 0 SB!VM::LOWTAG) ; --> LET COND IF PROGN 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 ; ; compilation unit finished ; printed 33 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/alloc.fasl-tmp written ; compilation finished in 0:00:00.369 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/call.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN STANDARD-ARG-LOCATION ...) ; compiling (DEFUN MAKE-RETURN-PC-PASSING-LOCATION ...) ; compiling (DEFUN MAKE-OLD-FP-PASSING-LOCATION ...) ; compiling (DEFUN MAKE-OLD-FP-SAVE-LOCATION ...) ; compiling (DEFUN MAKE-RETURN-PC-SAVE-LOCATION ...) ; compiling (DEFUN MAKE-ARG-COUNT-LOCATION ...) ; compiling (DEFUN MAKE-NFP-TN ...) ; compiling (DEFUN MAKE-STACK-POINTER-TN ...) ; compiling (DEFUN MAKE-NUMBER-STACK-POINTER-TN ...) ; compiling (DEFUN MAKE-UNKNOWN-VALUES-LOCATIONS ...) ; compiling (DEFUN SELECT-COMPONENT-FORMAT ...) ; compiling (DEFINE-VOP (CURRENT-FP) ...) ; compiling (DEFINE-VOP (COMPUTE-OLD-NFP) ...) ; compiling (DEFINE-VOP (ANCESTOR-FRAME-REF) ...) ; compiling (DEFINE-VOP (ANCESTOR-FRAME-SET) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/call.lisp ; in: DEFINE-VOP (ANCESTOR-FRAME-SET) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::FRAME-POINTER ; (SB!VM::FRAME-WORD-OFFSET ; (SB!C:TN-OFFSET SB!VM::VARIABLE-HOME-TN))) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FRAME-POINTER ; ; note: deleting unreachable code ; compiling (DEFINE-FRAME-OP DOUBLE-FLOAT ...) ; compiling (DEFINE-FRAME-OP SINGLE-FLOAT ...) ; compiling (DEFINE-FRAME-OP COMPLEX-DOUBLE-FLOAT ...) ; compiling (DEFINE-FRAME-OP COMPLEX-SINGLE-FLOAT ...) ; compiling (DEFINE-FRAME-OP SIGNED-BYTE-64 ...) ; compiling (DEFINE-FRAME-OP UNSIGNED-BYTE-64 ...) ; compiling (DEFINE-FRAME-OP SYSTEM-AREA-POINTER ...) ; compiling (DEFUN PRIMITIVE-TYPE-INDIRECT-CELL-TYPE ...) ; 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 (DEFUN CHECK-OCFP-AND-RETURN-PC ...) ; compiling (DEFUN EMIT-BLOCK-HEADER ...) ; compiling (DEFINE-VOP (CALL-LOCAL) ...) ; compiling (DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER) ...) ; compiling (DEFINE-VOP (KNOWN-CALL-LOCAL) ...) ; compiling (DEFINE-VOP (KNOWN-RETURN) ...) ; compiling (DEFINE-FULL-CALL CALL ...) ; compiling (DEFINE-FULL-CALL CALL-NAMED ...) ; compiling (DEFINE-FULL-CALL MULTIPLE-CALL ...) ; compiling (DEFINE-FULL-CALL MULTIPLE-CALL-NAMED ...) ; compiling (DEFINE-FULL-CALL TAIL-CALL ...) ; compiling (DEFINE-FULL-CALL TAIL-CALL-NAMED ...) ; compiling (DEFINE-FULL-CALL CALL-VARIABLE ...) ; compiling (DEFINE-FULL-CALL MULTIPLE-CALL-VARIABLE ...) ; compiling (DEFINE-VOP (TAIL-CALL-VARIABLE) ...) ; compiling (DEFINE-VOP (RETURN-SINGLE) ...) ; compiling (DEFINE-VOP (RETURN) ...) ; compiling (DEFINE-VOP (RETURN-MULTIPLE) ...) ; compiling (DEFINE-VOP (SETUP-ENVIRONMENT) ...) ; compiling (DEFINE-VOP (SETUP-CLOSURE-ENVIRONMENT) ...) ; compiling (DEFINE-VOP (COPY-MORE-ARG) ...) ; compiling (DEFINE-VOP (MORE-KW-ARG) ...) ; compiling (DEFINE-VOP (MORE-ARG) ...) ; compiling (DEFINE-VOP (LISTIFY-REST-ARGS) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/call.lisp ; in: DEFINE-VOP (LISTIFY-REST-ARGS) ; (SB!VM::STOREW SB!VM::DST SB!VM::DST -1 SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::RAX SB!VM::DST 0 SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::DST 1 SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::DST SB!VM::DST -1 SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::RAX SB!VM::DST 0 SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::DST 1 SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; 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 (DEFINE-VOP (TYPE-CHECK-ERROR/WORD) ...) ; compiling (DEFINE-VOP (TYPE-CHECK-ERROR/WORD/C) ...) ; compiling (DEFUN EMIT-SINGLE-STEP-TEST ...) ; compiling (DEFINE-VOP (STEP-INSTRUMENT-BEFORE-VOP) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/call.lisp ; in: DEFINE-VOP (COPY-MORE-ARG) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; in: DEFINE-VOP (ALLOCATE-FRAME) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; in: DEFINE-VOP (XEP-ALLOCATE-FRAME) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; ; compilation unit finished ; Undefined function: ; SB-ALLOCATED-SIZE ; caught 3 STYLE-WARNING conditions ; printed 7 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/call.fasl-tmp written ; compilation finished in 0:00:01.660 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/nlx.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN MAKE-NLX-SP-TN ...) ; compiling (DEFUN MAKE-NLX-ENTRY-ARG-START-LOCATION ...) ; compiling (DEFUN CATCH-BLOCK-EA ...) ; compiling (DEFINE-VOP (SAVE-DYNAMIC-STATE) ...) ; compiling (DEFINE-VOP (RESTORE-DYNAMIC-STATE) ...) ; compiling (DEFINE-VOP (CURRENT-STACK-POINTER) ...) ; compiling (DEFINE-VOP (CURRENT-BINDING-POINTER) ...) ; compiling (DEFINE-VOP (MAKE-UNWIND-BLOCK) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/nlx.lisp ; in: DEFINE-VOP (MAKE-UNWIND-BLOCK) ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:UNWIND-BLOCK-CURRENT-UWP-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:CATCH-BLOCK-ENTRY-PC-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (MAKE-CATCH-BLOCK) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/nlx.lisp ; in: DEFINE-VOP (MAKE-CATCH-BLOCK) ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:UNWIND-BLOCK-CURRENT-UWP-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:CATCH-BLOCK-ENTRY-PC-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TAG BLOCK SB!VM:CATCH-BLOCK-TAG-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:CATCH-BLOCK-PREVIOUS-CATCH-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; 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) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/nlx.lisp ; in: DEFINE-VOP (UNWIND-TO-FRAME-AND-CALL) ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:UNWIND-BLOCK-CURRENT-UWP-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:UNWIND-BLOCK-CURRENT-CONT-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 8 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/nlx.fasl-tmp written ; compilation finished in 0:00:00.322 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/late-nlx.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN MAKE-DYNAMIC-STATE-TNS ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/late-nlx.fasl-tmp written ; compilation finished in 0:00:00.007 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/show.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (PRINT) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/show.fasl-tmp written ; compilation finished in 0:00:00.029 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/array.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEF!TYPE LOW-INDEX ...) ; compiling (DEFINE-VOP (MAKE-ARRAY-HEADER) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/array.lisp ; in: DEFINE-VOP (MAKE-ARRAY-HEADER) ; (SB!VM::STOREW SB!VM::HEADER SB!VM::RESULT 0 SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN 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-FULL-REFFER %ARRAY-DIMENSION ...) ; compiling (DEFINE-FULL-SETTER %SET-ARRAY-DIMENSION ...) ; compiling (DEFINE-VOP (ARRAY-RANK-VOP) ...) ; compiling (DEFINE-VOP (ARRAY-RANK-VOP=>FIXNUM) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/array.lisp ; in: DEFINE-VOP (ARRAY-RANK-VOP=>FIXNUM) ; (IF (= SB!VM::SCALE 2) ; 1 ; SB!VM::SCALE) ; ==> ; SB!VM::SCALE ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (CHECK-BOUND) ...) ; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR ...) ; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-64 ...) ; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-FIXNUM ...) ; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-FIXNUM ...) ; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-64 ...) ; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-63 ...) ; 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-REF-C-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET-C-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET-C-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF-C-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-SET-C-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-REF-C-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET-C-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-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32 ...) ; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31 ...) ; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32 ...) ; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-CHARACTER-STRING ...) ; compiling (DEFINE-FULL-REFFER VECTOR-RAW-BITS ...) ; compiling (DEFINE-FULL-SETTER SET-VECTOR-RAW-BITS ...) ; compiling (DEFINE-VOP (ARRAY-ATOMIC-INCF/WORD) ...); ; compilation unit finished ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/array.fasl-tmp written ; compilation finished in 0:00:03.348 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/type-error.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (DATA-NIL-VECTOR-REF) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...) ; compiling (DEFINE-VOP (TYPE-CHECK-ERROR/C) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/type-error.fasl-tmp written ; compilation finished in 0:00:00.131 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/pred.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (BRANCH) ...) ; compiling (DEFINE-VOP (BRANCH-IF) ...) ; compiling (DEFVAR *CMOV-PTYPE-REPRESENTATION-VOP* ...) ; compiling (DEFUN CONVERT-CONDITIONAL-MOVE-P ...) ; compiling (DEFINE-VOP (MOVE-IF) ...) ; compiling (DEF-MOVE-IF MOVE-IF/T ...) ; compiling (DEF-MOVE-IF MOVE-IF/FX ...) ; compiling (DEF-MOVE-IF MOVE-IF/UNSIGNED ...) ; compiling (DEF-MOVE-IF MOVE-IF/SIGNED ...) ; compiling (DEF-MOVE-IF MOVE-IF/CHAR ...) ; compiling (DEF-MOVE-IF MOVE-IF/SAP ...) ; compiling (DEFINE-VOP (IF-EQ) ...) ; compiling (DEF FAST-IF-EQ-CHARACTER ...) ; compiling (DEF FAST-IF-EQ-CHARACTER/C ...) ; compiling (DEF FAST-IF-EQ-FIXNUM ...) ; compiling (DEF FAST-IF-EQ-FIXNUM/C ...) ; compiling (DEF FAST-IF-EQ-SIGNED ...) ; compiling (DEF FAST-IF-EQ-SIGNED/C ...) ; compiling (DEF FAST-IF-EQ-UNSIGNED ...) ; compiling (DEF FAST-IF-EQ-UNSIGNED/C ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/x86-64/pred.fasl-tmp written ; compilation finished in 0:00:00.463 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/late-type-vops.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (!DEFINE-TYPE-VOPS FIXNUMP ...) ; compiling (!DEFINE-TYPE-VOPS FUNCTIONP ...) ; compiling (!DEFINE-TYPE-VOPS LISTP ...) ; compiling (!DEFINE-TYPE-VOPS %INSTANCEP ...) ; compiling (!DEFINE-TYPE-VOPS %OTHER-POINTER-P ...) ; compiling (!DEFINE-TYPE-VOPS BIGNUMP ...) ; compiling (!DEFINE-TYPE-VOPS RATIOP ...) ; compiling (!DEFINE-TYPE-VOPS COMPLEXP ...) ; compiling (!DEFINE-TYPE-VOPS COMPLEX-RATIONAL-P ...) ; compiling (!DEFINE-TYPE-VOPS COMPLEX-FLOAT-P ...) ; compiling (!DEFINE-TYPE-VOPS COMPLEX-SINGLE-FLOAT-P ...) ; compiling (!DEFINE-TYPE-VOPS COMPLEX-DOUBLE-FLOAT-P ...) ; compiling (!DEFINE-TYPE-VOPS SINGLE-FLOAT-P ...) ; compiling (!DEFINE-TYPE-VOPS DOUBLE-FLOAT-P ...) ; compiling (!DEFINE-TYPE-VOPS SIMPLE-STRING-P ...) ; compiling (DEFINE-SIMPLE-ARRAY-TYPE-VOPS) ; compiling (DEF) ; compiling (!DEFINE-TYPE-VOPS CHARACTERP ...) ; compiling (!DEFINE-TYPE-VOPS SYSTEM-AREA-POINTER-P ...) ; compiling (!DEFINE-TYPE-VOPS WEAK-POINTER-P ...) ; compiling (!DEFINE-TYPE-VOPS CODE-COMPONENT-P ...) ; compiling (!DEFINE-TYPE-VOPS LRA-P ...) ; compiling (!DEFINE-TYPE-VOPS FDEFN-P ...) ; compiling (!DEFINE-TYPE-VOPS CLOSUREP ...) ; compiling (!DEFINE-TYPE-VOPS SIMPLE-FUN-P ...) ; compiling (!DEFINE-TYPE-VOPS FUNCALLABLE-INSTANCE-P ...) ; compiling (!DEFINE-TYPE-VOPS ARRAY-HEADER-P ...) ; compiling (!DEFINE-TYPE-VOPS STRINGP ...) ; compiling (!DEFINE-TYPE-VOPS BASE-STRING-P ...) ; compiling (!DEFINE-TYPE-VOPS BIT-VECTOR-P ...) ; compiling (!DEFINE-TYPE-VOPS VECTOR-NIL-P ...) ; compiling (!DEFINE-TYPE-VOPS CHARACTER-STRING-P ...) ; compiling (!DEFINE-TYPE-VOPS VECTORP ...) ; compiling (!DEFINE-TYPE-VOPS COMPLEX-VECTOR-P ...) ; compiling (!DEFINE-TYPE-VOPS SIMPLE-ARRAY-P ...) ; compiling (!DEFINE-TYPE-VOPS ARRAYP ...) ; compiling (!DEFINE-TYPE-VOPS NUMBERP ...) ; compiling (!DEFINE-TYPE-VOPS RATIONALP ...) ; compiling (!DEFINE-TYPE-VOPS INTEGERP ...) ; compiling (!DEFINE-TYPE-VOPS FLOATP ...) ; compiling (!DEFINE-TYPE-VOPS REALP ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/late-type-vops.fasl-tmp written ; compilation finished in 0:00:03.247 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/x86-64/assem-rtns.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-ASSEMBLY-ROUTINE (THROW #) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (UNWIND # ...) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/assembly/x86-64/assem-rtns.fasl-tmp written ; compilation finished in 0:00:01.409 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/x86-64/array.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/assembly/x86-64/array.fasl-tmp written ; compilation finished in 0:00:00.025 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/x86-64/arith.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN !BOTH-FIXNUM-P ...) ; compiling (DEFUN !SOME-FIXNUM-P ...) ; 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-VOP (GENERIC-EQL) ...) ; compiling (DEFINE-VOP (GENERIC-=) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/assembly/x86-64/arith.fasl-tmp written ; compilation finished in 0:00:00.590 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/x86-64/alloc.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!VM") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/assembly/x86-64/alloc.fasl-tmp written ; compilation finished in 0:00:00.026 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/pseudo-vops.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-VOP (NOTE-ENVIRONMENT-START) ...) ; compiling (DEFINE-VOP (MOVE-OPERAND) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/pseudo-vops.fasl-tmp written ; compilation finished in 0:00:00.055 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/aliencomp.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN %SAP-ALIEN ...) ; compiling (DEFKNOWN ALIEN-SAP ...) ; compiling (DEFKNOWN SLOT ...) ; compiling (DEFKNOWN %SET-SLOT ...) ; compiling (DEFKNOWN %SLOT-ADDR ...) ; compiling (DEFKNOWN DEREF ...) ; compiling (DEFKNOWN %SET-DEREF ...) ; compiling (DEFKNOWN %DEREF-ADDR ...) ; compiling (DEFKNOWN %HEAP-ALIEN ...) ; compiling (DEFKNOWN %SET-HEAP-ALIEN ...) ; compiling (DEFKNOWN %HEAP-ALIEN-ADDR ...) ; compiling (DEFKNOWN MAKE-LOCAL-ALIEN ...) ; compiling (DEFKNOWN NOTE-LOCAL-ALIEN-TYPE ...) ; compiling (DEFKNOWN LOCAL-ALIEN ...) ; compiling (DEFKNOWN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...) ; compiling (DEFKNOWN %SET-LOCAL-ALIEN ...) ; compiling (DEFKNOWN %LOCAL-ALIEN-ADDR ...) ; compiling (DEFKNOWN DISPOSE-LOCAL-ALIEN ...) ; compiling (DEFKNOWN %CAST ...) ; compiling (DEFKNOWN NATURALIZE ...) ; compiling (DEFKNOWN DEPORT ...) ; compiling (DEFKNOWN DEPORT-ALLOC ...) ; compiling (DEFKNOWN %ALIEN-VALUE ...) ; compiling (DEFKNOWN (SETF %ALIEN-VALUE) ...) ; compiling (DEFKNOWN ALIEN-FUNCALL ...) ; compiling (DEFTRANSFORM SLOT ...) ; compiling (DEFTRANSFORM %SET-SLOT ...) ; compiling (DEFTRANSFORM %SLOT-ADDR ...) ; compiling (DEFUN FIND-SLOT-OFFSET-AND-TYPE ...) ; compiling (DEFTRANSFORM SLOT ...) ; compiling (DEFTRANSFORM %SET-SLOT ...) ; compiling (DEFOPTIMIZER (%SLOT-ADDR DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %SLOT-ADDR ...) ; compiling (DEFUN FIND-DEREF-ALIEN-TYPE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/aliencomp.lisp ; in: DEFUN FIND-DEREF-ALIEN-TYPE ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; note: deleting unreachable code ; compiling (DEFUN FIND-DEREF-ELEMENT-TYPE ...) ; compiling (DEFUN COMPUTE-DEREF-GUTS ...) ; compiling (DEFTRANSFORM DEREF ...) ; compiling (DEFTRANSFORM %SET-DEREF ...) ; compiling (DEFOPTIMIZER (%DEREF-ADDR DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %DEREF-ADDR ...) ; compiling (DEFUN HEAP-ALIEN-SAP-AND-TYPE ...) ; compiling (DEFTRANSFORM %HEAP-ALIEN ...) ; compiling (DEFTRANSFORM %SET-HEAP-ALIEN ...) ; compiling (DEFOPTIMIZER (%HEAP-ALIEN-ADDR DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %HEAP-ALIEN-ADDR ...) ; compiling (DEFUN ALIEN-INFO-CONSTANT-OR-ABORT ...) ; compiling (DEFTRANSFORM MAKE-LOCAL-ALIEN ...) ; compiling (DEFTRANSFORM NOTE-LOCAL-ALIEN-TYPE ...) ; compiling (DEFTRANSFORM LOCAL-ALIEN ...) ; compiling (DEFTRANSFORM %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...) ; compiling (DEFTRANSFORM %SET-LOCAL-ALIEN ...) ; compiling (DEFOPTIMIZER (%LOCAL-ALIEN-ADDR DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %LOCAL-ALIEN-ADDR ...) ; compiling (DEFOPTIMIZER (%CAST DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %CAST ...) ; compiling (DEFTRANSFORM ALIEN-SAP ...) ; compiling (DEFOPTIMIZER (%SAP-ALIEN DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %SAP-ALIEN ...) ; compiling (FLET (#) ...) ; compiling (DEFUN COUNT-LOW-ORDER-ZEROS ...) ; compiling (DEFTRANSFORM / ...) ; compiling (DEFTRANSFORM ASH ...) ; compiling (DEFTRANSFORM ALIEN-FUNCALL ...) ; compiling (DEFTRANSFORM ALIEN-FUNCALL ...) ; compiling (DEFOPTIMIZER (%ALIEN-FUNCALL DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE) ...) ; compiling (DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/aliencomp.lisp ; in: DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE) ; (SB!C::ANNOTATE-ORDINARY-LVAR FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: ANNOTATE-ORDINARY-LVAR ; in: DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT) ; (SB!C::LVAR-TN SB!C:CALL BLOCK SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TN ; (SB!C::MOVE-LVAR-RESULT SB!C:CALL BLOCK SB!C::RESULT-TNS SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: MOVE-LVAR-RESULT ; ; compilation unit finished ; Undefined functions: ; ANNOTATE-ORDINARY-LVAR LVAR-TN MOVE-LVAR-RESULT ; caught 3 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/aliencomp.fasl-tmp written ; compilation finished in 0:00:00.261 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ltv.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN %LOAD-TIME-VALUE ...) ; compiling (DEF-IR1-TRANSLATOR LOAD-TIME-VALUE ...) ; compiling (DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ltv.lisp ; in: DEF-IR1-TRANSLATOR LOAD-TIME-VALUE ; (SB!KERNEL:MAKE-VALUE-CELL SB!C::VALUE) ; ; caught STYLE-WARNING: ; undefined function: MAKE-VALUE-CELL ; in: DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT) ; (SB!C::MOVE-LVAR-RESULT SB!C::NODE BLOCK (LIST SB!C:TN) SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: MOVE-LVAR-RESULT ; ; compilation unit finished ; Undefined functions: ; MAKE-VALUE-CELL MOVE-LVAR-RESULT ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/ltv.fasl-tmp written ; compilation finished in 0:00:00.071 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/gtn.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/gtn.fasl-tmp written ; compilation finished in 0:00:00.109 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ltn.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN NODE-LTN-POLICY ...) ; compiling (DEFUN LTN-POLICY-SAFE-P ...) ; compiling (DEFUN ENSURE-BLOCK-HAS-IR2-BLOCK ...) ; compiling (DEFUN FIXUP-IR2-BLOCKS-FOR-SPLIT-BLOCK ...) ; compiling (DECLAIM (INLINE LVAR-PTYPE)) ; compiling (DEFUN LVAR-PTYPE ...) ; compiling (DEFUN LVAR-DELAYED-LEAF ...) ; compiling (DEFUN ANNOTATE-1-VALUE-LVAR ...) ; compiling (DEFUN ANNOTATE-ORDINARY-LVAR ...) ; compiling (DEFUN ANNOTATE-FUN-LVAR ...) ; compiling (DEFUN FLUSH-FULL-CALL-TAIL-TRANSFER ...) ; compiling (DEFUN LTN-DEFAULT-CALL ...) ; compiling (DEFUN ANNOTATE-UNKNOWN-VALUES-LVAR ...) ; compiling (DEFUN ANNOTATE-FIXED-VALUES-LVAR ...) ; compiling (DEFUN LTN-ANALYZE-RETURN ...) ; compiling (DEFUN LTN-ANALYZE-MV-BIND ...) ; compiling (DEFUN LTN-ANALYZE-MV-CALL ...) ; compiling (DEFUN LTN-ANALYZE-LOCAL-CALL ...) ; compiling (DEFUN SET-TAIL-LOCAL-CALL-SUCCESSOR ...) ; compiling (DEFUN LTN-ANALYZE-SET ...) ; compiling (DEFUN LTN-ANALYZE-IF ...) ; compiling (DEFUN LTN-ANALYZE-EXIT ...) ; compiling (DEFOPTIMIZER (%UNWIND-PROTECT LTN-ANNOTATE) ...) ; compiling (DEFOPTIMIZER (%POP-VALUES LTN-ANNOTATE) ...) ; compiling (DEFOPTIMIZER (%NIP-VALUES LTN-ANNOTATE) ...) ; compiling (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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/ltn.fasl-tmp written ; compilation finished in 0:00:00.289 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/stack.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN FIND-PUSHED-LVARS ...) ; compiling (DEFUN NLE-BLOCK-NLX-INFO ...) ; compiling (DEFUN NLE-BLOCK-ENTRY-BLOCK ...) ; compiling (DEFUN MERGE-UVL-LIVE-SETS ...) ; compiling (DEFUN UPDATE-UVL-LIVE-SETS ...) ; compiling (DEFUN ORDER-BLOCK-UVL-SETS ...) ; compiling (DEFUN ORDER-UVL-SETS ...) ; compiling (DEFUN DISCARD-UNUSED-VALUES ...) ; compiling (DEFUN FIND-PUSHING-BLOCKS ...) ; compiling (DEFUN STACK-ANALYZE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/stack.lisp ; in: DEFUN DISCARD-UNUSED-VALUES ; (SB!C::ADD-TO-EMIT-ORDER SB!C::2BLOCK (SB!C::BLOCK-INFO SB!C::BLOCK1)) ; ; caught STYLE-WARNING: ; undefined function: ADD-TO-EMIT-ORDER ; ; compilation unit finished ; Undefined function: ; ADD-TO-EMIT-ORDER ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/stack.fasl-tmp written ; compilation finished in 0:00:00.166 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/control.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/control.fasl-tmp written ; compilation finished in 0:00:00.069 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/entry.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN ENTRY-ANALYZE ...) ; compiling (DEFUN COMPUTE-ENTRY-INFO ...) ; compiling (DEFUN REPLACE-TOPLEVEL-XEPS ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/entry.fasl-tmp written ; compilation finished in 0:00:00.056 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir2tran.lisp" (written 28 JUN 2014 03:46:26 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir2tran.lisp ; in: DEFUN FIND-IN-PHYSENV ; (DEFUN SB!C::FIND-IN-PHYSENV (SB!C::THING SB!C::PHYSENV) ; (OR (CDR (ASSOC SB!C::THING (SB!C::IR2-PHYSENV-CLOSURE #))) ; (ETYPECASE SB!C::THING ; (SB!C::LAMBDA-VAR (SB!INT:AVER #) (SB!C::LEAF-INFO SB!C::THING)) ; (SB!C::NLX-INFO (SB!INT:AVER #) (SB!C::IR2-NLX-INFO-HOME #)) ; (SB!C::CLAMBDA (SB!INT:AVER #) (SB!C::ENTRY-INFO-CLOSURE-TN #))) ; (SB!INT:BUG "~@<~2I~_~S ~_not found in ~_~S~:>" SB!C::THING ; SB!C::PHYSENV))) ; --> PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%DEFUN 'SB!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 BOXED-REF-P ...) ; compiling (DEFUN IR2-CONVERT-REF ...) ; compiling (DEFUN IR2-CONVERT-GLOBAL-VAR ...) ; compiling (DEFUN ASSERTIONS-ON-IR2-CONVERTED-CLAMBDA ...) ; compiling (DEFUN IR2-CONVERT-CLOSURE ...) ; compiling (DEFUN CLOSURE-INITIAL-VALUE ...) ; compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES LTN-ANNOTATE) ...) ; compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES IR2-CONVERT) ...) ; compiling (DEFUN IR2-CONVERT-SET ...) ; compiling (DEFUN LVAR-TN ...) ; compiling (DEFUN LVAR-TNS ...) ; compiling (DEFUN LVAR-RESULT-TNS ...) ; compiling (DEFUN MAKE-STANDARD-VALUE-TNS ...) ; compiling (DEFUN STANDARD-RESULT-TNS ...) ; compiling (DEFUN MOVE-RESULTS-COERCED ...) ; compiling (DEFUN MOVE-RESULTS-CHECKED ...) ; compiling (DEFUN MOVE-LVAR-RESULT ...) ; compiling (DEFUN IR2-CONVERT-CAST ...) ; compiling (DEFUN REFERENCE-ARGS ...) ; compiling (DEFUN IR2-CONVERT-CONDITIONAL ...) ; compiling (DEFUN IR2-CONVERT-IF ...) ; compiling (DEFUN FIND-TEMPLATE-RESULT-TYPES ...) ; compiling (DEFUN MAKE-TEMPLATE-RESULT-TNS ...) ; compiling (DEFUN IR2-CONVERT-TEMPLATE ...) ; compiling (DEFOPTIMIZER (%%PRIMITIVE IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%%PRIMITIVE DERIVE-TYPE) ...) ; compiling (DEFUN IR2-CONVERT-LET ...) ; compiling (DEFUN EMIT-PSETQ-MOVES ...) ; compiling (DEFUN IR2-CONVERT-TAIL-LOCAL-CALL ...) ; compiling (DEFUN IR2-CONVERT-ASSIGNMENT ...) ; compiling (DEFUN IR2-CONVERT-LOCAL-CALL-ARGS ...) ; compiling (DEFUN IR2-CONVERT-LOCAL-KNOWN-CALL ...) ; compiling (DEFUN IR2-CONVERT-LOCAL-UNKNOWN-CALL ...) ; compiling (DEFUN IR2-CONVERT-LOCAL-CALL ...) ; compiling (DEFUN FUN-LVAR-TN ...) ; compiling (DEFUN MOVE-TAIL-FULL-CALL-ARGS ...) ; compiling (DEFUN IR2-CONVERT-TAIL-FULL-CALL ...) ; compiling (DEFUN IR2-CONVERT-FULL-CALL-ARGS ...) ; compiling (DEFUN IR2-CONVERT-FIXED-FULL-CALL ...) ; compiling (DEFUN IR2-CONVERT-MULTIPLE-FULL-CALL ...) ; compiling (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 IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%CALLER-PC IR2-CONVERT) ...) ; compiling (DEFUN IR2-CONVERT-MV-BIND ...) ; compiling (DEFUN IR2-CONVERT-MV-CALL ...) ; compiling (DEFOPTIMIZER (%POP-VALUES IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%NIP-VALUES IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (VALUES IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (VALUES-LIST IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%MORE-ARG-VALUES IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%SPECIAL-BIND IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%SPECIAL-UNBIND IR2-CONVERT) ...) ; compiling (DEF-IR1-TRANSLATOR PROGV ...) ; compiling (DEFUN IR2-CONVERT-EXIT ...) ; compiling (DEFOPTIMIZER (%CLEANUP-POINT IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%LEXICAL-EXIT-BREAKUP IR2-CONVERT) ...) ; compiling (DEFUN IR2-CONVERT-THROW ...) ; compiling (DEFUN EMIT-NLX-START ...) ; compiling (DEFUN IR2-CONVERT-ENTRY ...) ; compiling (DEFOPTIMIZER (%CATCH IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%UNWIND-PROTECT IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%NLX-ENTRY IR2-CONVERT) ...) ; compiling (DEF LIST) ; compiling (DEF LIST*) ; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%TYPEP-WRAPPER IR2-CONVERT) ...) ; compiling (DEFUN IR2-CONVERT ...) ; compiling (DEFUN FINISH-IR2-BLOCK ...) ; compiling (DEFUN IR2-CONVERT-BLOCK ...); ; compilation unit finished ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/ir2tran.fasl-tmp written ; compilation finished in 0:00:00.706 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-ir2tran.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF-ALLOC %MAKE-STRUCTURE-INSTANCE ...) ; compiling (DEFOPTIMIZER (%MAKE-STRUCTURE-INSTANCE STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-REFFER ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-SETTER ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-SETFER ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-CASSER ...) ; compiling (DEFUN EMIT-INITS ...) ; compiling (DEFUN EMIT-FIXED-ALLOC ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-FIXED-ALLOCATION ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-VARIABLE-ALLOCATION ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-STRUCTURE-ALLOCATION ...) ; compiling (DEFOPTIMIZER (INITIALIZE-VECTOR IR2-CONVERT) ...) ; compiling (LET (#) ...) ; compiling (DEFOPTIMIZER (ALLOCATE-VECTOR STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER (ALLOCATE-VECTOR LTN-ANNOTATE) ...) ; compiling (DEFOPTIMIZER (LIST STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER (LIST* STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER (%LISTIFY-REST-ARGS STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER (CONS STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER (%MAKE-COMPLEX STACK-ALLOCATE-RESULT) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/vm-ir2tran.fasl-tmp written ; compilation finished in 0:00:00.250 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/copyprop.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/copyprop.fasl-tmp written ; compilation finished in 0:00:00.119 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/represent.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN GET-OPERAND-INFO ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/represent.lisp ; in: DEFUN GET-OPERAND-INFO ; (SB!C::POSITION-IN #'SB!C:TN-REF-ACROSS SB!C::REF SB!C::REFS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN LISTIFY-RESTRICTIONS ...) ; compiling (DEFUN BAD-COSTS-ERROR ...) ; compiling (DEFUN BAD-COERCE-ERROR ...) ; compiling (DEFUN BAD-MOVE-ARG-ERROR ...) ; compiling (DEFUN CHECK-MOVE-FUN-CONSISTENCY ...) ; compiling (DEFPARAMETER *IGNORE-COST-VOPS* ...) ; compiling (DEFPARAMETER *SUPPRESS-NOTE-VOPS* ...) ; compiling (DEFUN ADD-REPRESENTATION-COSTS ...) ; compiling (DEFUN SELECT-TN-REPRESENTATION ...) ; compiling (DEFUN NOTE-NUMBER-STACK-TN ...) ; compiling (DEFUN GET-OPERAND-NAME ...) ; compiling (DEFUN MAYBE-EMIT-COERCE-EFFICIENCY-NOTE ...) ; compiling (DEFUN FIND-MOVE-VOP ...) ; compiling (DEFUN EMIT-COERCE-VOP ...) ; compiling (DECLAIM (INLINE COERCE-SOME-OPERANDS)) ; compiling (DEFUN COERCE-SOME-OPERANDS ...) ; compiling (DEFUN COERCE-VOP-OPERANDS ...) ; compiling (DEFUN EMIT-ARG-MOVES ...) ; compiling (DEFUN EMIT-MOVES-AND-COERCIONS ...) ; compiling (DECLAIM (INLINE NOTE-IF-NUMBER-STACK)) ; compiling (DEFUN NOTE-IF-NUMBER-STACK ...) ; compiling (DEFUN SELECT-REPRESENTATIONS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/represent.lisp ; in: DEFUN NOTE-IF-NUMBER-STACK ; (SB!C:TN-SC SB!C:TN) ; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE ; ==> ; SB!C:TN ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 6 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/represent.fasl-tmp written ; compilation finished in 0:00:00.210 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir2opt.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *2BLOCK-PRED*) ; compiling (DEFVAR *2BLOCK-SUCC*) ; compiling (DEFVAR *LABEL-2BLOCK*) ; compiling (DEFUN INITIALIZE-IR2-BLOCKS-FLOW-INFO ...) ; compiling (DEFUN UPDATE-BLOCK-SUCC ...) ; compiling (DECLAIM (INLINE VOP-NAME)) ; compiling (DEFUN VOP-NAME ...) ; compiling (DEFUN MOVE-VALUE-TARGET ...) ; compiling (DEFUN CMOVP ...) ; compiling (DECLAIM (INLINE CONVERT-ONE-CMOV)) ; compiling (DEFUN CONVERT-ONE-CMOV ...) ; compiling (DEFUN MAYBE-CONVERT-ONE-CMOV ...) ; compiling (DEFUN CONVERT-CMOVS ...) ; compiling (DEFUN DELETE-UNUSED-IR2-BLOCKS ...) ; compiling (DEFUN DELETE-FALL-THROUGH-JUMPS ...) ; compiling (DEFUN IR2-OPTIMIZE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/ir2opt.fasl-tmp written ; compilation finished in 0:00:00.082 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/pack.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!REGALLOC") ; compiling (DEFVAR *PACK-ASSIGN-COSTS* ...) ; compiling (DEFVAR *PACK-OPTIMIZE-SAVES* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN OFFSET-CONFLICTS-IN-SB ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CONFLICTS-IN-SC ...) ; compiling (DEFUN ADD-LOCATION-CONFLICTS ...) ; compiling (DEFUN FIND-LOCATION-USAGE ...) ; compiling (DEFUN IR2-BLOCK-COUNT ...) ; compiling (DEFUN INIT-SB-VECTORS ...) ; compiling (DEFUN GROW-SC ...) ; compiling (DEFUN NO-LOAD-FUN-ERROR ...) ; compiling (DEFUN FAILED-TO-PACK-ERROR ...) ; compiling (DEFUN DESCRIBE-TN-USE ...) ; compiling (DEFUN FAILED-TO-PACK-LOAD-TN-ERROR ...) ; compiling (DEFUN NO-LOAD-SCS-ALLOWED-BY-PRIMITIVE-TYPE-ERROR ...) ; compiling (DEFUN NOTE-SPILLED-TN ...) ; compiling (DEFUN PACK-SAVE-TN ...) ; compiling (DEFUN EMIT-OPERAND-LOAD ...) ; compiling (DEFUN REVERSE-FIND-VOP ...) ; compiling (DEFUN SAVE-COMPLEX-WRITER-TN ...) ; compiling (DEFUN FIND-SINGLE-WRITER ...) ; compiling (DEFUN SAVE-SINGLE-WRITER-TN ...) ; compiling (DEFUN RESTORE-SINGLE-WRITER-TN ...) ; compiling (DEFUN BASIC-SAVE-TN ...) ; compiling (DEFUN EMIT-SAVES ...) ; compiling (DEFUN SAVE-IF-NECESSARY ...) ; compiling (DEFUN RESTORE-TN ...) ; compiling (DEFUN OPTIMIZED-EMIT-SAVES-BLOCK ...) ; compiling (DEFUN OPTIMIZED-EMIT-SAVES ...) ; compiling (DEFVAR *TN-WRITE-COST* ...) ; compiling (DEFVAR *TN-LOOP-DEPTH-MULTIPLIER* ...) ; compiling (DEFUN ASSIGN-TN-COSTS ...) ; compiling (DEFUN ASSIGN-TN-DEPTHS ...) ; compiling (DEFVAR *LIVE-BLOCK*) ; compiling (DEFVAR *LIVE-VOP*) ; compiling (DEFVAR *REPACK-BLOCKS*) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFUN INIT-LIVE-TNS ...) ; compiling (DEFUN COMPUTE-LIVE-TNS ...) ; compiling (DEFUN LOAD-TN-OFFSET-CONFLICTS-IN-SB ...) ; compiling (DEFUN LOAD-TN-CONFLICTS-IN-SC ...) ; compiling (DEFUN FIND-LOAD-TN-TARGET ...) ; compiling (DEFUN SELECT-LOAD-TN-LOCATION ...) ; compiling (DEFEVENT UNPACK-TN ...) ; compiling (DEFUN UNPACK-TN ...) ; compiling (DEFEVENT UNPACK-FALLBACK ...) ; compiling (DEFUN UNPACK-FOR-LOAD-TN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/pack.lisp ; in: DEFUN UNPACK-FOR-LOAD-TN ; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::CONF SB!REGALLOC::NORMAL-TNS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::VICTIM SB!REGALLOC::NORMAL-TNS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN PACK-LOAD-TN ...) ; compiling (DECLAIM (INLINE CHECK-OPERAND-RESTRICTIONS)) ; compiling (DEFUN CHECK-OPERAND-RESTRICTIONS ...) ; compiling (DEFUN PACK-LOAD-TNS ...) ; compiling (DEFUN TARGET-IF-DESIRABLE ...) ; compiling (DEFUN CHECK-OK-TARGET ...) ; compiling (DECLAIM (INLINE %CALL-WITH-TARGET-TNS)) ; compiling (DEFUN %CALL-WITH-TARGET-TNS ...) ; compiling (DEFMACRO DO-TARGET-TNS ...) ; compiling (DEFUN FIND-OK-TARGET-OFFSET ...) ; compiling (DEFUN SELECT-LOCATION ...) ; compiling (DEFUN ORIGINAL-TN ...) ; compiling (DECLAIM (INLINE UNBOUNDED-SC-P)) ; compiling (DEFUN UNBOUNDED-SC-P ...) ; compiling (DEFUN UNBOUNDED-TN-P ...) ; compiling (DECLAIM (NOTINLINE UNBOUNDED-SC-P)) ; compiling (DEFUN PACK-TN ...) ; compiling (DEFUN PACK-WIRED-TN ...) ; compiling (DEFEVENT REPACK-BLOCK ...) ; compiling (DEFUN CLEAN-UP-PACK-STRUCTURES ...) ; compiling (DEFUN TN-LEXICAL-DEPTH ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *REGISTER-ALLOCATION-METHOD* ...) ; compiling (DECLAIM (FTYPE FUNCTION ...)) ; compiling (DEFUN PACK ...) ; compiling (DEFUN PACK-GREEDY ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/pack.lisp ; in: DEFUN DESCRIBE-TN-USE ; (SB!C::PRINT-TN-GUTS SB!C:TN STREAM) ; ; caught STYLE-WARNING: ; undefined function: PRINT-TN-GUTS ; ; compilation unit finished ; Undefined function: ; PRINT-TN-GUTS ; caught 1 STYLE-WARNING condition ; printed 6 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/pack.fasl-tmp written ; compilation finished in 0:00:02.034 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/pack-iterative.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!REGALLOC") ; compiling (DEFSTRUCT (ORDERED-SET # ...) ...) ; compiling (DEFUN OSET-ADJOIN ...) ; compiling (DEFUN OSET-DELETE ...) ; compiling (DEFUN OSET-MEMBER ...) ; compiling (DEFMACRO DO-OSET-ELEMENTS ...) ; compiling (DEF!STRUCT (VERTEX # ...) ...) ; compiling (DECLAIM (INLINE VERTEX-SC)) ; compiling (DEFUN VERTEX-SC ...) ; compiling (DEF!STRUCT (INTERFERENCE-GRAPH # ...) ...) ; compiling (DEFUN INSERT-ONE-EDGE ...) ; compiling (DEFUN BLOCK-GTNS ...) ; compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS-FOR ...) ; compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS ...) ; compiling (DEFUN INSERT-CONFLICT-EDGES ...) ; compiling (DEFUN RESTRICTED-TN-LOCATIONS ...) ; compiling (DEFUN PREPARE-VERTICES ...) ; compiling (DEFUN MAKE-INTERFERENCE-GRAPH ...) ; compiling (DEFUN REMOVE-VERTEX-FROM-INTERFERENCE-GRAPH ...) ; compiling (DEFUN COLOR-NO-CONFLICTS-P ...) ; compiling (DEFUN VERTEX-COLOR-POSSIBLE-P ...) ; compiling (DEFUN VERTEX-DOMAIN ...) ; compiling (DEFUN VERTEX-TARGET-VERTICES ...) ; compiling (DEFUN VERTICES-BEST-COLOR ...) ; compiling (DEFUN FIND-VERTEX-COLOR ...) ; compiling (DEFUN PARTITION-AND-ORDER-VERTICES ...) ; compiling (DEFUN COLOR-INTERFERENCE-GRAPH ...) ; compiling (DEFVAR *PACK-ITERATIONS* ...) ; compiling (DEFUN ITERATE-COLOR ...) ; compiling (DEFUN PACK-COLORED ...) ; compiling (DEFUN PACK-ITERATIVE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/pack-iterative.fasl-tmp written ; compilation finished in 0:00:00.351 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/codegen.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN COMPONENT-HEADER-LENGTH ...) ; compiling (DEFUN SB-ALLOCATED-SIZE ...) ; compiling (DEFUN CURRENT-NFP-TN ...) ; compiling (DEFUN CALLEE-NFP-TN ...) ; compiling (DEFUN CALLEE-RETURN-PC-TN ...) ; compiling (DEFVAR *CODE-SEGMENT* ...) ; compiling (DEFVAR *ELSEWHERE* ...) ; compiling (DEFVAR *ELSEWHERE-LABEL* ...) ; compiling (DEFVAR *CONSTANT-SEGMENT* ...) ; compiling (DEFVAR *CONSTANT-TABLE* ...) ; compiling (DEFVAR *CONSTANT-VECTOR* ...) ; compiling (DEFVAR *PREV-SEGMENT*) ; compiling (DEFVAR *PREV-VOP*) ; compiling (DEFUN TRACE-INSTRUCTION ...) ; compiling (DEFUN DEFAULT-SEGMENT-RUN-SCHEDULER ...) ; compiling (DEFUN DEFAULT-SEGMENT-INST-HOOK ...) ; compiling (DEFUN INIT-ASSEMBLER ...) ; compiling (DEFUN GENERATE-CODE ...) ; compiling (DEFUN EMIT-LABEL-ELSEWHERE ...) ; compiling (DEFUN LABEL-ELSEWHERE-P ...) ; compiling (DEFUN REGISTER-INLINE-CONSTANT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/codegen.lisp ; in: DEFUN TRACE-INSTRUCTION ; (SB!C::PRINT-VOP SB!C::VOP) ; ; caught STYLE-WARNING: ; undefined function: PRINT-VOP ; ; compilation unit finished ; Undefined function: ; PRINT-VOP ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/codegen.fasl-tmp written ; compilation finished in 0:00:00.098 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/debug.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *ARGS* ...) ; compiling (DEFVAR *IGNORED-ERRORS* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BARF ...) ; compiling (DEFVAR *BURP-ACTION* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BURP ...) ; compiling (DEFVAR *SEEN-BLOCKS*) ; compiling (DEFVAR *SEEN-FUNS*) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-NODE-REACHED ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-IR1-CONSISTENCY ...) ; compiling (DEFUN OBSERVE-FUNCTIONAL ...) ; compiling (DEFUN CHECK-FUN-REACHED ...) ; compiling (DEFUN CHECK-FUN-STUFF ...) ; compiling (DEFUN CHECK-FUN-CONSISTENCY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-BLOCK-CONSISTENCY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-BLOCK-SUCCESSORS ...) ; compiling (DEFUN CHECK-DEST ...) ; compiling (DEFUN CHECK-NODE-CONSISTENCY ...) ; compiling (DEFUN CHECK-TN-REFS ...) ; compiling (DEFUN CHECK-VOP-REFS ...) ; compiling (DEFUN CHECK-IR2-BLOCK-CONSISTENCY ...) ; compiling (DEFUN CHECK-IR2-CONSISTENCY ...) ; compiling (DEFUN PRE-PACK-TN-STATS ...) ; compiling (DEFUN CHECK-MORE-TN-ENTRY ...) ; compiling (DEFUN CHECK-TN-CONFLICTS ...) ; compiling (DEFUN CHECK-BLOCK-CONFLICTS ...) ; compiling (DEFUN CHECK-ENVIRONMENT-LIFETIMES ...) ; compiling (DEFUN CHECK-LIFE-CONSISTENCY ...) ; compiling (DEFUN CHECK-PACK-CONSISTENCY ...) ; compiling (DEF *CONTINUATION-NUMBER* ...) ; compiling (DEF *TN-ID* ...) ; compiling (DEF *LABEL-ID* ...) ; compiling (DEFUN PRINT-LEAF ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BLOCK-OR-LOSE ...) ; compiling (DEFUN PRINT-CTRAN ...) ; compiling (DEFUN PRINT-LVAR ...) ; compiling (DEFUN PRINT-LVAR-STACK ...) ; compiling (DEFUN PRINT-NODES ...) ; compiling (DEFUN PRINT-TN-GUTS ...) ; compiling (DEFUN PRINT-OPERANDS ...) ; compiling (DEFUN PRINT-VOP ...) ; compiling (DEFUN PRINT-IR2-BLOCK ...) ; compiling (DEFUN PRINT-VOPS ...) ; compiling (DEFUN PRINT-IR2-BLOCKS ...) ; compiling (DEFUN PRINT-BLOCKS ...) ; compiling (DEFUN PRINT-ALL-BLOCKS ...) ; compiling (DEFVAR *LIST-CONFLICTS-TABLE* ...) ; compiling (DEFUN ADD-ALWAYS-LIVE-TNS ...) ; compiling (DEFUN ADD-ALL-LOCAL-TNS ...) ; compiling (DEFUN LISTIFY-CONFLICTS-TABLE ...) ; compiling (DEFUN LIST-CONFLICTS ...) ; compiling (DEFUN NTH-VOP ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/debug.fasl-tmp written ; compilation finished in 0:00:00.553 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/format-time.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/format-time.fasl-tmp written ; compilation finished in 0:00:00.149 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/error.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN STYLE-WARN ...) ; compiling (DEFUN COERCE-TO-CONDITION ...) ; compiling (DEFINE-CONDITION LAYOUT-INVALID ...) ; compiling (DEFINE-CONDITION CASE-FAILURE ...) ; compiling (DEFINE-CONDITION COMPILED-PROGRAM-ERROR ...) ; compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...) ; compiling (DEFINE-CONDITION SIMPLE-CONTROL-ERROR ...) ; compiling (DEFINE-CONDITION SIMPLE-FILE-ERROR ...) ; compiling (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...) ; compiling (DEFINE-CONDITION SIMPLE-STREAM-ERROR ...) ; compiling (DEFINE-CONDITION SIMPLE-PARSE-ERROR ...) ; compiling (DEFINE-CONDITION CHARACTER-CODING-ERROR ...) ; compiling (DEFINE-CONDITION CHARACTER-ENCODING-ERROR ...) ; compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR ...) ; compiling (DEFINE-CONDITION STREAM-ENCODING-ERROR ...) ; compiling (DEFINE-CONDITION STREAM-DECODING-ERROR ...) ; compiling (DEFINE-CONDITION C-STRING-ENCODING-ERROR ...) ; compiling (DEFINE-CONDITION C-STRING-DECODING-ERROR ...) ; compiling (DEFINE-CONDITION CONTROL-STACK-EXHAUSTED ...) ; compiling (DEFINE-CONDITION BINDING-STACK-EXHAUSTED ...) ; compiling (DEFINE-CONDITION ALIEN-STACK-EXHAUSTED ...) ; compiling (DEFINE-CONDITION HEAP-EXHAUSTED-ERROR ...) ; compiling (DEFINE-CONDITION SYSTEM-CONDITION ...) ; compiling (DEFINE-CONDITION MEMORY-FAULT-ERROR ...) ; compiling (DEFINE-CONDITION BREAKPOINT-ERROR ...) ; compiling (DEFINE-CONDITION INTERACTIVE-INTERRUPT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/error.fasl-tmp written ; compilation finished in 0:00:00.145 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/macroexpand.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN SB-XC:SPECIAL-OPERATOR-P ...) ; compiling (DEFVAR SB-XC:*MACROEXPAND-HOOK* ...) ; compiling (DEFUN SB-XC:MACROEXPAND-1 ...) ; compiling (DEFUN SB-XC:MACROEXPAND ...) ; compiling (DEFUN %MACROEXPAND-1 ...) ; compiling (DEFUN %MACROEXPAND ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/macroexpand.fasl-tmp written ; compilation finished in 0:00:00.018 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-extensions.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN LIST-WITH-LENGTH-P ...) ; compiling (DEFSTRUCT (UNPRINTABLE-OBJECT # ...) ...) ; compiling (DEFMACRO DEFINE-STRUCTURE-SLOT-ADDRESSOR ...) ; compiling (DEFUN EXPAND-ATOMIC-FROB ...) ; compiling (DEF!MACRO ATOMIC-INCF ...) ; compiling (DEFMACRO ATOMIC-DECF ...) ; compiling (DEFUN %ARRAY-ATOMIC-INCF/WORD ...) ; compiling (DEFUN SPIN-LOOP-HINT ...) ; compiling (DEFUN CALL-HOOKS ...) ; compiling (DEFMACRO-MUNDANELY DEFGLOBAL ...) ; compiling (DEFMACRO-MUNDANELY DEFINE-LOAD-TIME-GLOBAL ...) ; compiling (DEFUN %COMPILER-DEFGLOBAL ...) ; compiling (DEFUN %DEFGLOBAL ...) ; compiling (DEFUN %%WAIT-FOR ...) ; compiling (DEFUN %WAIT-FOR ...) ; compiling (DEFMACRO WAIT-FOR ...) ; compiling (DEFMACRO WITH-PROGRESSIVE-TIMEOUT ...) ; compiling (DEFMACRO ATOMIC-UPDATE ...) ; compiling (DEFMACRO ATOMIC-PUSH ...) ; compiling (DEFMACRO ATOMIC-POP ...) ; compiling (DEFUN SPLIT-VERSION-STRING ...) ; compiling (DEFUN VERSION>= ...) ; compiling (DEFUN ASSERT-VERSION->= ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-extensions.lisp ; in: DEFUN %%WAIT-FOR ; (SB!SYS:DECODE-INTERNAL-TIME (GET-INTERNAL-REAL-TIME)) ; ; caught STYLE-WARNING: ; undefined function: DECODE-INTERNAL-TIME ; in: DEFUN %WAIT-FOR ; (SB!SYS:DECODE-TIMEOUT SB!EXT:TIMEOUT) ; ; caught STYLE-WARNING: ; undefined function: DECODE-TIMEOUT ; in: DEFMACRO ATOMIC-POP ; (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-CAS-EXPANSION ; in: DEFMACRO ATOMIC-PUSH ; (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-CAS-EXPANSION ; in: DEFMACRO ATOMIC-UPDATE ; (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-CAS-EXPANSION ; in: DEFUN %%WAIT-FOR ; (SB!UNIX:NANOSLEEP SB!IMPL::SEC SB!IMPL::NSEC) ; ; caught STYLE-WARNING: ; undefined function: SB!UNIX:NANOSLEEP ; in: DEFUN %WAIT-FOR ; (SB!SYS:SIGNAL-DEADLINE) ; ; caught STYLE-WARNING: ; undefined function: SIGNAL-DEADLINE ; in: DEFUN %%WAIT-FOR ; (SB!SYS:WITH-INTERRUPTS (SB!UNIX:NANOSLEEP SB!IMPL::SEC SB!IMPL::NSEC)) ; ; caught STYLE-WARNING: ; undefined function: WITH-INTERRUPTS ; ; compilation unit finished ; Undefined functions: ; DECODE-INTERNAL-TIME DECODE-TIMEOUT GET-CAS-EXPANSION SB!UNIX:NANOSLEEP SIGNAL-DEADLINE WITH-INTERRUPTS ; caught 8 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/late-extensions.fasl-tmp written ; compilation finished in 0:00:00.339 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-step.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; 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 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-step.lisp ; in: DEFUN (SETF STEPPING) ; (SETF SB!IMPL::PLACE SB!IMPL::NEW-VALUE) ; --> SETQ SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!THREAD::THREAD-STEPPING) #:NEW0) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!THREAD::THREAD-STEPPING) ; in: SYMBOL-MACROLET ((PLACE (SB!THREAD::THREAD-STEPPING))) ; (SB!THREAD::THREAD-STEPPING) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::THREAD-STEPPING ; ; compilation unit finished ; Undefined functions: ; (SETF SB!THREAD::THREAD-STEPPING) SB!THREAD::THREAD-STEPPING ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-step.fasl-tmp written ; compilation finished in 0:00:00.040 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/parse-defmacro-errors.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/parse-defmacro-errors.lisp ; in: DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ; (PPRINT-LOGICAL-BLOCK (STREAM NIL) (FUNCALL SB!KERNEL::FUN STREAM)) ; --> LET LET SB-PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK ; --> SB-C::%WITHIN-CLEANUP LET SB-PRETTY::MAKE-PRETTY-STREAM ; ==> ; STREAM ; ; note: deleting unreachable code ; compiling (DEFINE-CONDITION DEFMACRO-BOGUS-SUBLIST-ERROR ...) ; compiling (DEFINE-CONDITION ARG-COUNT-ERROR ...) ; compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR ...); ; compilation unit finished ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/parse-defmacro-errors.fasl-tmp written ; compilation finished in 0:00:00.073 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cl-specials.lisp" (written 28 JUN 2014 03:46:25 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 #)) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cl-specials.fasl-tmp written ; compilation finished in 0:00:00.019 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/late-proclaim.lisp" (written 28 JUN 2014 03:46:26 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) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/late-proclaim.fasl-tmp written ; compilation finished in 0:00:00.022 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defboot.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY IN-PACKAGE ...) ; compiling (DEFUN LIST-OF-SYMBOLS-P ...) ; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-BIND ...) ; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-SETQ ...) ; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-LIST ...) ; compiling (DEFMACRO-MUNDANELY COND ...) ; compiling (DEFMACRO-MUNDANELY WHEN ...) ; compiling (DEFMACRO-MUNDANELY UNLESS ...) ; compiling (DEFMACRO-MUNDANELY AND ...) ; compiling (DEFMACRO-MUNDANELY OR ...) ; compiling (FLET (#) ...) ; compiling (DEFMACRO-MUNDANELY PROG1 ...) ; compiling (DEFMACRO-MUNDANELY PROG2 ...) ; compiling (DEFUN INLINE-FUN-NAME-P ...) ; compiling (DEFMACRO-MUNDANELY DEFUN ...) ; compiling (DEFMACRO-MUNDANELY DEFVAR ...) ; compiling (DEFMACRO-MUNDANELY DEFPARAMETER ...) ; compiling (DEFUN %COMPILER-DEFVAR ...) ; compiling (DEFMACRO-MUNDANELY DO ...) ; compiling (DEFMACRO-MUNDANELY DO* ...) ; compiling (DEFMACRO-MUNDANELY DOTIMES ...) ; compiling (DEFMACRO-MUNDANELY DOLIST ...) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SETF (INFO :VARIABLE ...) ...) ; compiling (SETF (INFO :VARIABLE ...) ...) ; compiling (DEFMACRO-MUNDANELY WITH-CONDITION-RESTARTS ...) ; compiling (DEFMACRO-MUNDANELY RESTART-BIND ...) ; compiling (DEFUN MUNGE-RESTART-CASE-EXPRESSION ...) ; compiling (DEFMACRO-MUNDANELY RESTART-CASE ...) ; compiling (DEFMACRO-MUNDANELY WITH-SIMPLE-RESTART ...) ; compiling (DEFMACRO-MUNDANELY %HANDLER-BIND ...) ; compiling (DEFMACRO-MUNDANELY HANDLER-BIND ...) ; compiling (DEFMACRO-MUNDANELY HANDLER-CASE ...) ; compiling (DEFMACRO-MUNDANELY RETURN ...) ; compiling (DEFMACRO-MUNDANELY PSETQ ...) ; compiling (DEFMACRO-MUNDANELY LAMBDA ...) ; compiling (DEFMACRO-MUNDANELY NAMED-LAMBDA ...) ; compiling (DEFMACRO-MUNDANELY LAMBDA-WITH-LEXENV ...) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/defboot.fasl-tmp written ; compilation finished in 0:00:00.109 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/destructuring-bind.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY DESTRUCTURING-BIND ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/destructuring-bind.fasl-tmp written ; compilation finished in 0:00:00.021 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-setf.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SB-XC:GET-SETF-EXPANSION ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EXPAND-OR-GET-SETF-INVERSE ...) ; compiling (DEFUN GET-SETF-METHOD-INVERSE ...) ; compiling (DEFMACRO-MUNDANELY SETF ...) ; compiling (DEFMACRO-MUNDANELY SHIFTF ...) ; compiling (DEFMACRO-MUNDANELY PUSH ...) ; compiling (DEFMACRO-MUNDANELY PUSHNEW ...) ; compiling (DEFMACRO-MUNDANELY POP ...) ; compiling (DEFMACRO-MUNDANELY REMF ...) ; compiling (DEFMACRO-MUNDANELY INCF ...) ; compiling (DEFMACRO-MUNDANELY DECF ...) ; compiling (DEF!MACRO SB-XC:DEFINE-MODIFY-MACRO ...) ; compiling (DEFUN ASSIGN-SETF-MACRO ...) ; compiling (DEF!MACRO SB-XC:DEFSETF ...) ; compiling (DEFUN %DEFSETF ...) ; compiling (DEF!MACRO SB-XC:DEFINE-SETF-EXPANDER ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER GETF ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER GET ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER GETHASH ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER LOGBITP ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER APPLY ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER LDB ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER MASK-FIELD ...) ; compiling (DEFUN SETF-EXPAND-THE ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER THE ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER TRULY-THE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/early-setf.fasl-tmp written ; compilation finished in 0:00:00.183 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/macros.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/macros.lisp ; in: DEFUN SB!C::%DEFINE-SYMBOL-MACRO ; (ECASE SB!IMPL::KIND ; (:ALIEN "an alien variable") ; (:CONSTANT "a constant") ; (:SPECIAL "a special variable") ; (:GLOBAL "a global variable") ; (T SB!IMPL::KIND)) ; --> LET COND IF COND IF COND IF COND IF COND IF PROGN ; ==> ; SB!IMPL::KIND ; ; note: deleting unreachable code ; compiling (DEFMACRO-MUNDANELY DEFINE-COMPILER-MACRO ...) ; compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/macros.lisp ; in: DEF (:LOAD-TOPLEVEL :EXECUTE) ; (SB!IMPL::DEF (:LOAD-TOPLEVEL :EXECUTE) NIL) ; --> EVAL-WHEN DEFUN PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%DEFUN 'SB!C::%DEFINE-COMPILER-MACRO ; (SB-INT:NAMED-LAMBDA SB!C::%DEFINE-COMPILER-MACRO ; (SB!IMPL::NAME SB!IMPL::DEFINITION SB!IMPL::LAMBDA-LIST ; SB!IMPL::DOC SB!IMPL::DEBUG-NAME) ; (DECLARE (IGNORE SB!IMPL::LAMBDA-LIST SB!IMPL::DEBUG-NAME)) ; (BLOCK SB!C::%DEFINE-COMPILER-MACRO ; (SETF # SB!IMPL::DEFINITION) ; NIL ; SB!IMPL::NAME)) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; The variable DOC is defined but never used. ; compiling (DEF (:COMPILE-TOPLEVEL) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/macros.lisp ; in: ; MACROLET ((DEF (TIMES SET-P) ; (BACKQ-LIST 'EVAL-WHEN TIMES ; (BACKQ-LIST* 'DEFUN 'SB!C::%DEFINE-COMPILER-MACRO '# ; #)))) ; (MACROLET ((SB!IMPL::DEF (SB!IMPL::TIMES SB!IMPL::SET-P) ; (SB!IMPL::BACKQ-LIST 'EVAL-WHEN SB!IMPL::TIMES ; (SB!IMPL::BACKQ-LIST* 'DEFUN ; 'SB!C::%DEFINE-COMPILER-MACRO ; '# #)))) ; (PROGN ; (SB!IMPL::DEF (:LOAD-TOPLEVEL :EXECUTE) NIL) ; (SB!IMPL::DEF (:COMPILE-TOPLEVEL) NIL))) ; ; caught STYLE-WARNING: ; The variable DOC is defined but never used. ; 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 ...); ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/macros.fasl-tmp written ; compilation finished in 0:00:00.109 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/loop.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!LOOP") ; compiling (SB!INT:DEFMACRO-MUNDANELY WITH-LOOP-LIST-COLLECTION-HEAD ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-RPLACD ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-ANSWER ...) ; compiling (DEFSTRUCT (LOOP-MINIMAX # ...) ...) ; compiling (DEFVAR *LOOP-MINIMAX-TYPE-INFINITIES-ALIST* ...) ; compiling (DEFUN MAKE-LOOP-MINIMAX ...) ; compiling (DEFUN LOOP-NOTE-MINIMAX-OPERATION ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY WITH-MINIMAX-VALUE ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-ACCUMULATE-MINIMAX-VALUE ...) ; compiling (DEFUN LOOP-TEQUAL ...) ; compiling (DEFUN LOOP-TASSOC ...) ; compiling (DEFUN LOOP-TMEMBER ...) ; compiling (DEFUN LOOP-LOOKUP-KEYWORD ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-STORE-TABLE-DATA ...) ; compiling (DEFSTRUCT (LOOP-UNIVERSE # ...) ...) ; compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFVAR *LOOP-UNIVERSE*) ; compiling (DEFUN MAKE-STANDARD-LOOP-UNIVERSE ...) ; compiling (DEFUN LOOP-MAKE-PSETQ ...) ; compiling (DEFUN LOOP-MAKE-DESETQ ...) ; compiling (DEFVAR *LOOP-DESETQ-TEMPORARY* ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-REALLY-DESETQ ...) ; compiling (DEFVAR *LOOP-SOURCE-CODE*) ; compiling (DEFVAR *LOOP-ORIGINAL-SOURCE-CODE*) ; compiling (DEFVAR *LOOP-SOURCE-CONTEXT*) ; compiling (DEFVAR *LOOP-NAMES*) ; compiling (DEFVAR *LOOP-MACRO-ENVIRONMENT*) ; compiling (DEFVAR *LOOP-NAMED-VARS*) ; compiling (DEFVAR *LOOP-VARS*) ; compiling (DEFVAR *LOOP-DECLARATIONS*) ; compiling (DEFVAR *LOOP-DESETQ-DECLARATIONS*) ; compiling (DEFVAR *LOOP-DESETQ*) ; compiling (DEFVAR *LOOP-WRAPPERS*) ; compiling (DEFVAR *LOOP-BIND-STACK*) ; compiling (DEFVAR *LOOP-PROLOGUE*) ; compiling (DEFVAR *LOOP-BEFORE-LOOP*) ; compiling (DEFVAR *LOOP-BODY*) ; compiling (DEFVAR *LOOP-AFTER-BODY*) ; compiling (DEFVAR *LOOP-EMITTED-BODY*) ; compiling (DEFVAR *LOOP-EPILOGUE*) ; compiling (DEFVAR *LOOP-AFTER-EPILOGUE*) ; compiling (DEFVAR *LOOP-FINAL-VALUE-CULPRIT*) ; compiling (DEFVAR *LOOP-INSIDE-CONDITIONAL*) ; compiling (DEFVAR *LOOP-WHEN-IT-VAR*) ; compiling (DEFVAR *LOOP-NEVER-STEPPED-VAR*) ; compiling (DEFVAR *LOOP-COLLECTION-CRUFT*) ; compiling (DEFUN LOOP-CONSTANT-FOLD-IF-POSSIBLE ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-BODY ...) ; compiling (DEFUN LOOP-CONTEXT ...) ; compiling (DEFUN LOOP-ERROR ...) ; compiling (DEFUN LOOP-WARN ...) ; compiling (DEFUN LOOP-CHECK-DATA-TYPE ...) ; compiling (DEFUN 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 CHECK-VAR-NAME ...) ; compiling (DEFUN LOOP-MAKE-VAR ...) ; compiling (DEFUN TYPE-FOR-DEFAULT-INIT ...) ; compiling (DEFUN LOOP-DECLARE-VAR ...) ; compiling (DEFUN LOOP-MAYBE-BIND-FORM ...) ; compiling (DEFUN LOOP-DO-IF ...) ; compiling (DEFUN LOOP-DO-INITIALLY ...) ; compiling (DEFUN LOOP-DO-FINALLY ...) ; compiling (DEFUN LOOP-DO-DO ...) ; compiling (DEFUN LOOP-DO-NAMED ...) ; compiling (DEFUN LOOP-DO-RETURN ...) ; compiling (DEFSTRUCT (LOOP-COLLECTOR # ...) ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY WITH-SUM-COUNT ...) ; compiling (DEFUN LOOP-GET-COLLECTION-INFO ...) ; compiling (DEFUN LOOP-LIST-COLLECTION ...) ; compiling (DEFUN LOOP-SUM-COLLECTION ...) ; compiling (DEFUN LOOP-MAXMIN-COLLECTION ...) ; compiling (DEFUN LOOP-DO-ALWAYS ...) ; compiling (DEFUN LOOP-DO-THEREIS ...) ; compiling (DEFUN LOOP-DO-WHILE ...) ; compiling (DEFUN LOOP-DO-REPEAT ...) ; compiling (DEFUN LOOP-DO-WITH ...) ; compiling (DEFUN LOOP-HACK-ITERATION ...) ; compiling (DEFUN LOOP-DO-FOR ...) ; compiling (DEFUN LOOP-WHEN-IT-VAR ...) ; compiling (DEFUN LOOP-ANSI-FOR-EQUALS ...) ; compiling (DEFUN LOOP-FOR-ACROSS ...) ; compiling (DEFUN LOOP-LIST-STEP ...) ; compiling (DEFUN LOOP-FOR-ON ...) ; compiling (DEFUN LOOP-FOR-IN ...) ; compiling (DEFSTRUCT (LOOP-PATH # ...) ...) ; compiling (DEFUN ADD-LOOP-PATH ...) ; compiling (DEFUN LOOP-FOR-BEING ...) ; compiling (DEFUN LOOP-NAMED-VAR ...) ; compiling (DEFUN LOOP-COLLECT-PREPOSITIONAL-PHRASES ...) ; compiling (DEFUN LOOP-SEQUENCER ...) ; compiling (DEFUN LOOP-FOR-ARITHMETIC ...) ; compiling (DEFUN LOOP-HASH-TABLE-ITERATION-PATH ...) ; compiling (DEFUN LOOP-PACKAGE-SYMBOLS-ITERATION-PATH ...) ; compiling (DEFUN MAKE-ANSI-LOOP-UNIVERSE ...) ; compiling (DEFPARAMETER *LOOP-ANSI-UNIVERSE* ...) ; compiling (DEFUN LOOP-STANDARD-EXPANSION ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-FINISH ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/loop.fasl-tmp written ; compilation finished in 0:00:00.345 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-setf.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY PSETF ...) ; compiling (DEFMACRO-MUNDANELY ROTATEF ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER VALUES ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/late-setf.fasl-tmp written ; compilation finished in 0:00:00.045 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cas.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!MACRO CAS ...) ; compiling (DEFUN GET-CAS-EXPANSION ...) ; compiling (DEFUN EXPAND-STRUCTURE-SLOT-CAS ...) ; compiling (DEF!MACRO DEFINE-CAS-EXPANDER ...) ; compiling (DEF!MACRO DEFCAS ...) ; compiling (DEF!MACRO COMPARE-AND-SWAP ...) ; compiling (DEF %COMPARE-AND-SWAP-CAR ...) ; compiling (DEF %COMPARE-AND-SWAP-CDR ...) ; compiling (DEF %COMPARE-AND-SWAP-INSTANCE-REF ...) ; compiling (DEF %COMPARE-AND-SWAP-SYMBOL-INFO ...) ; compiling (DEF %COMPARE-AND-SWAP-SYMBOL-VALUE ...) ; compiling (DEF %COMPARE-AND-SWAP-SVREF ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/cas.fasl-tmp written ; compilation finished in 0:00:00.060 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-cas.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFCAS CAR ...) ; compiling (DEFCAS CDR ...) ; compiling (DEFCAS FIRST ...) ; compiling (DEFCAS REST ...) ; compiling (DEFCAS SYMBOL-PLIST ...) ; compiling (DEFINE-CAS-EXPANDER SYMBOL-VALUE ...) ; compiling (DEFINE-CAS-EXPANDER SVREF ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/late-cas.fasl-tmp written ; compilation finished in 0:00:00.089 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-format.lisp" (written 28 JUN 2014 03:46:25 PM): ; 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 (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 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/late-format.fasl-tmp written ; compilation finished in 0:00:00.589 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/sxhash.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/sxhash.lisp ; in: DEFTRANSFORM SXHASH ; (SB!C::LVAR-VALUE SB!C::X) ; ==> ; SB!C::X ; ; note: deleting unreachable code ; compiling (DEFTRANSFORM SXHASH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/sxhash.fasl-tmp written ; compilation finished in 0:00:00.067 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/signal.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!UNIX") ; compiling (DEFVAR *INTERRUPTS-ENABLED* ...) ; compiling (DEFVAR *INTERRUPT-PENDING* ...) ; compiling (DEFVAR *ALLOW-WITH-INTERRUPTS* ...) ; compiling (DEFVAR *UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ...) ; compiling (SB-XC:DEFMACRO WITHOUT-INTERRUPTS ...) ; compiling (SB-XC:DEFMACRO WITH-INTERRUPTS ...) ; compiling (DEFMACRO ALLOW-WITH-INTERRUPTS ...) ; compiling (DEFMACRO WITH-LOCAL-INTERRUPTS ...) ; compiling (DEFUN %CHECK-INTERRUPTS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/signal.lisp ; in: DEFUN %CHECK-INTERRUPTS ; (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ; ; caught STYLE-WARNING: ; undefined function: RECEIVE-PENDING-INTERRUPT ; ; compilation unit finished ; Undefined function: ; RECEIVE-PENDING-INTERRUPT ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/signal.fasl-tmp written ; compilation finished in 0:00:00.015 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-defbangmethod.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY DEF!METHOD ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/code/late-defbangmethod.fasl-tmp written ; compilation finished in 0:00:00.019 creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/pcl/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/walk.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB!WALKER") ; compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT*) ; compiling (/SHOW "walk.lisp 108") ; compiling (DEFMACRO WITH-AUGMENTED-ENVIRONMENT ...) ; compiling (DEFVAR *BOGO-FUN-MAGIC-TAG* ...) ; compiling (DEFUN WALKER-INFO-TO-BOGO-FUN ...) ; compiling (DEFUN BOGO-FUN-TO-WALKER-INFO ...) ; compiling (DEFUN WITH-AUGMENTED-ENVIRONMENT-INTERNAL ...) ; compiling (DEFUN ENVIRONMENT-FUNCTION ...) ; compiling (DEFUN ENVIRONMENT-MACRO ...) ; compiling (DEFMACRO WITH-NEW-DEFINITION-IN-ENVIRONMENT ...) ; compiling (DEFUN CONVERT-MACRO-TO-LAMBDA ...) ; compiling (DEFMACRO WALKER-ENVIRONMENT-BIND ...) ; compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT* ...) ; compiling (DEFUN ENV-LOCK ...) ; compiling (DEFUN WALKER-ENVIRONMENT-BIND-1 ...) ; compiling (DEFUN ENV-WALK-FUNCTION ...) ; compiling (DEFUN ENV-WALK-FORM ...) ; compiling (DEFUN ENV-DECLARATIONS ...) ; compiling (DEFUN ENV-VAR-TYPE ...) ; compiling (DEFUN ENV-LEXICAL-VARIABLES ...) ; compiling (DEFUN NOTE-DECLARATION ...) ; compiling (DEFUN NOTE-VAR-BINDING ...) ; compiling (DEFUN VAR-LEXICAL-P ...) ; compiling (DEFUN VARIABLE-SYMBOL-MACRO-P ...) ; compiling (DEFUN 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 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/walk.lisp ; in: DEFUN CONVERT-MACRO-TO-LAMBDA ; (SB!INT:EVAL-IN-LEXENV ; (SB!IMPL::BACKQ-LIST* 'DEFMACRO GENSYM SB!WALKER::LLIST SB!WALKER::BODY) ; (SB!C::MAKE-RESTRICTED-LEXENV SB!WALKER::ENV)) ; ; caught STYLE-WARNING: ; undefined function: EVAL-IN-LEXENV ; ; compilation unit finished ; Undefined function: ; EVAL-IN-LEXENV ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/pcl/walk.fasl-tmp written ; compilation finished in 0:00:00.169 * T * ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/tools-for-build/ucd.lisp ; in: DEFUN SLURP-UCD ; (SB-COLD::FIXUP-COMPOSITIONS) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-COMPOSITIONS ; (SB-COLD::FIXUP-HANGUL-SYLLABLES) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-HANGUL-SYLLABLES ; (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 ; ; compilation unit finished ; Undefined functions: ; FIXUP-COMPOSITIONS FIXUP-HANGUL-SYLLABLES SECOND-PASS SLURP-UCD-LINE ; caught 4 STYLE-WARNING conditions ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/tools-for-build/ucd.lisp ; in: DEFUN FIXUP-COMPOSITIONS ; (FLET ((SB-COLD::FIXUP (SB-COLD::K SB-COLD::V) ; (LET* (# # # #) ; (WHEN # #)))) ; (MAPHASH #'SB-COLD::FIXUP SB-COLD::*COMP-TABLE*)) ; ; caught STYLE-WARNING: ; The variable V is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/tools-for-build/ucd.lisp ; in: DEFUN FIXUP-HANGUL-SYLLABLES ; (LET* ((SB-COLD::SBASE 44032) ; (SB-COLD::LBASE 4352) ; (SB-COLD::VBASE 4449) ; (SB-COLD::TBASE 4519) ; (SB-COLD::SCOUNT 11172) ; (SB-COLD::LCOUNT 19) ; (SB-COLD::VCOUNT 21) ; (SB-COLD::TCOUNT 28) ; (SB-COLD::NCOUNT (* SB-COLD::VCOUNT SB-COLD::TCOUNT)) ; (SB-COLD::TABLE (MAKE-HASH-TABLE))) ; (WITH-OPEN-FILE ; (*STANDARD-INPUT* ; (MAKE-PATHNAME :NAME "Jamo" :TYPE "txt" :DEFAULTS ; SB-COLD::*UNICODE-CHARACTER-DATABASE*)) ; (LOOP SB-COLD::FOR SB-COLD::LINE = (READ-LINE NIL NIL) ; SB-COLD::WHILE SB-COLD::LINE ; IF (POSITION #\; SB-COLD::LINE) ; DO (SB-COLD::ADD-JAMO-INFORMATION SB-COLD::LINE SB-COLD::TABLE))) ; (DOTIMES (SB-COLD::SINDEX SB-COLD::SCOUNT) ; (LET* ((SB-COLD::L #) ; (SB-COLD::V #) ; (SB-COLD::TEE #) ; (SB-COLD::CODE-POINT #) ; (SB-COLD::NAME #)) ; (SETF # SB-COLD::NAME) ; (UNLESS (AREF SB-COLD::*DECOMPOSITION-BASE* #) (SETF #)) ; (SETF # #)))) ; ; caught STYLE-WARNING: ; The variable LCOUNT is defined but never used. ; in: DEFUN FIXUP-HANGUL-SYLLABLES ; (SB-COLD::ADD-JAMO-INFORMATION SB-COLD::LINE SB-COLD::TABLE) ; ; caught STYLE-WARNING: ; undefined function: ADD-JAMO-INFORMATION ; ; compilation unit finished ; Undefined function: ; ADD-JAMO-INFORMATION ; caught 2 STYLE-WARNING conditions ; in: DEFUN ADD-JAMO-INFORMATION ; (SB-COLD::SPLIT-STRING SB-COLD::LINE #\;) ; ; caught STYLE-WARNING: ; undefined function: SPLIT-STRING ; ; compilation unit finished ; Undefined function: ; SPLIT-STRING ; caught 1 STYLE-WARNING condition T * LATIN SMALL LETTER SHARP S LATIN SMALL LETTER KRA LATIN SMALL LETTER N PRECEDED BY APOSTROPHE LATIN SMALL LETTER TURNED DELTA LATIN SMALL LETTER LAMBDA WITH STROKE LATIN LETTER REVERSED ESH LOOP LATIN SMALL LETTER T WITH PALATAL HOOK LATIN SMALL LETTER EZH WITH TAIL LATIN LETTER INVERTED GLOTTAL STOP WITH STROKE LATIN SMALL LETTER J WITH CARON LATIN SMALL LETTER D WITH CURL LATIN SMALL LETTER L WITH CURL LATIN SMALL LETTER N WITH CURL LATIN SMALL LETTER T WITH CURL LATIN SMALL LETTER DOTLESS J LATIN SMALL LETTER DB DIGRAPH LATIN SMALL LETTER QP DIGRAPH LATIN SMALL LETTER C WITH CURL LATIN SMALL LETTER REVERSED E LATIN SMALL LETTER SCHWA WITH HOOK LATIN SMALL LETTER REVERSED OPEN E LATIN SMALL LETTER REVERSED OPEN E WITH HOOK LATIN SMALL LETTER CLOSED REVERSED OPEN E LATIN SMALL LETTER DOTLESS J WITH STROKE LATIN SMALL LETTER SCRIPT G LATIN LETTER SMALL CAPITAL G LATIN SMALL LETTER RAMS HORN LATIN SMALL LETTER HENG WITH HOOK LATIN LETTER SMALL CAPITAL I LATIN SMALL LETTER L WITH BELT LATIN SMALL LETTER L WITH RETROFLEX HOOK LATIN SMALL LETTER LEZH LATIN SMALL LETTER TURNED M WITH LONG LEG LATIN SMALL LETTER N WITH RETROFLEX HOOK LATIN LETTER SMALL CAPITAL N LATIN LETTER SMALL CAPITAL OE LATIN SMALL LETTER CLOSED OMEGA LATIN SMALL LETTER PHI LATIN SMALL LETTER TURNED R LATIN SMALL LETTER TURNED R WITH LONG LEG LATIN SMALL LETTER TURNED R WITH HOOK LATIN SMALL LETTER R WITH LONG LEG LATIN SMALL LETTER R WITH FISHHOOK LATIN SMALL LETTER REVERSED R WITH FISHHOOK LATIN LETTER SMALL CAPITAL INVERTED R LATIN SMALL LETTER S WITH HOOK LATIN SMALL LETTER DOTLESS J WITH STROKE AND HOOK LATIN SMALL LETTER SQUAT REVERSED ESH LATIN SMALL LETTER ESH WITH CURL LATIN SMALL LETTER TURNED T LATIN SMALL LETTER TURNED W LATIN SMALL LETTER TURNED Y LATIN LETTER SMALL CAPITAL Y LATIN SMALL LETTER Z WITH RETROFLEX HOOK LATIN SMALL LETTER Z WITH CURL LATIN SMALL LETTER EZH WITH CURL LATIN LETTER PHARYNGEAL VOICED FRICATIVE LATIN LETTER INVERTED GLOTTAL STOP LATIN LETTER STRETCHED C LATIN LETTER BILABIAL CLICK LATIN LETTER SMALL CAPITAL B LATIN SMALL LETTER CLOSED OPEN E LATIN LETTER SMALL CAPITAL G WITH HOOK LATIN LETTER SMALL CAPITAL H LATIN SMALL LETTER J WITH CROSSED-TAIL LATIN SMALL LETTER TURNED K LATIN LETTER SMALL CAPITAL L LATIN SMALL LETTER Q WITH HOOK LATIN LETTER GLOTTAL STOP WITH STROKE LATIN LETTER REVERSED GLOTTAL STOP WITH STROKE LATIN SMALL LETTER DZ DIGRAPH LATIN SMALL LETTER DEZH DIGRAPH LATIN SMALL LETTER DZ DIGRAPH WITH CURL LATIN SMALL LETTER TS DIGRAPH LATIN SMALL LETTER TESH DIGRAPH LATIN SMALL LETTER TC DIGRAPH WITH CURL LATIN SMALL LETTER FENG DIGRAPH LATIN SMALL LETTER LS DIGRAPH LATIN SMALL LETTER LZ DIGRAPH LATIN LETTER BILABIAL PERCUSSIVE LATIN LETTER BIDENTAL PERCUSSIVE LATIN SMALL LETTER TURNED H WITH FISHHOOK LATIN SMALL LETTER TURNED H WITH FISHHOOK AND TAIL GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS GREEK UPSILON WITH HOOK SYMBOL GREEK UPSILON WITH ACUTE AND HOOK SYMBOL GREEK UPSILON WITH DIAERESIS AND HOOK SYMBOL GREEK LETTER YOT GREEK RHO WITH STROKE SYMBOL ARMENIAN SMALL LIGATURE ECH YIWN LATIN LETTER SMALL CAPITAL A LATIN LETTER SMALL CAPITAL AE LATIN SMALL LETTER TURNED AE LATIN LETTER SMALL CAPITAL BARRED B LATIN LETTER SMALL CAPITAL C LATIN LETTER SMALL CAPITAL D LATIN LETTER SMALL CAPITAL ETH LATIN LETTER SMALL CAPITAL E LATIN SMALL LETTER TURNED OPEN E LATIN SMALL LETTER TURNED I LATIN LETTER SMALL CAPITAL J LATIN LETTER SMALL CAPITAL K LATIN LETTER SMALL CAPITAL L WITH STROKE LATIN LETTER SMALL CAPITAL M LATIN LETTER SMALL CAPITAL REVERSED N LATIN LETTER SMALL CAPITAL O LATIN LETTER SMALL CAPITAL OPEN O LATIN SMALL LETTER SIDEWAYS O LATIN SMALL LETTER SIDEWAYS OPEN O LATIN SMALL LETTER SIDEWAYS O WITH STROKE LATIN SMALL LETTER TURNED OE LATIN LETTER SMALL CAPITAL OU LATIN SMALL LETTER TOP HALF O LATIN SMALL LETTER BOTTOM HALF O LATIN LETTER SMALL CAPITAL P LATIN LETTER SMALL CAPITAL REVERSED R LATIN LETTER SMALL CAPITAL TURNED R LATIN LETTER SMALL CAPITAL T LATIN LETTER SMALL CAPITAL U LATIN SMALL LETTER SIDEWAYS U LATIN SMALL LETTER SIDEWAYS DIAERESIZED U LATIN SMALL LETTER SIDEWAYS TURNED M LATIN LETTER SMALL CAPITAL V LATIN LETTER SMALL CAPITAL W LATIN LETTER SMALL CAPITAL Z LATIN LETTER SMALL CAPITAL EZH LATIN LETTER VOICED LARYNGEAL SPIRANT LATIN LETTER AIN GREEK LETTER SMALL CAPITAL GAMMA GREEK LETTER SMALL CAPITAL LAMDA GREEK LETTER SMALL CAPITAL PI GREEK LETTER SMALL CAPITAL RHO GREEK LETTER SMALL CAPITAL PSI CYRILLIC LETTER SMALL CAPITAL EL LATIN SMALL LETTER UE LATIN SMALL LETTER B WITH MIDDLE TILDE LATIN SMALL LETTER D WITH MIDDLE TILDE LATIN SMALL LETTER F WITH MIDDLE TILDE LATIN SMALL LETTER M WITH MIDDLE TILDE LATIN SMALL LETTER N WITH MIDDLE TILDE LATIN SMALL LETTER P WITH MIDDLE TILDE LATIN SMALL LETTER R WITH MIDDLE TILDE LATIN SMALL LETTER R WITH FISHHOOK AND MIDDLE TILDE LATIN SMALL LETTER S WITH MIDDLE TILDE LATIN SMALL LETTER T WITH MIDDLE TILDE LATIN SMALL LETTER Z WITH MIDDLE TILDE LATIN SMALL LETTER TURNED G LATIN SMALL LETTER TH WITH STRIKETHROUGH LATIN SMALL CAPITAL LETTER I WITH STROKE LATIN SMALL LETTER IOTA WITH STROKE LATIN SMALL CAPITAL LETTER U WITH STROKE LATIN SMALL LETTER UPSILON WITH STROKE LATIN SMALL LETTER B WITH PALATAL HOOK LATIN SMALL LETTER D WITH PALATAL HOOK LATIN SMALL LETTER F WITH PALATAL HOOK LATIN SMALL LETTER G WITH PALATAL HOOK LATIN SMALL LETTER K WITH PALATAL HOOK LATIN SMALL LETTER L WITH PALATAL HOOK LATIN SMALL LETTER M WITH PALATAL HOOK LATIN SMALL LETTER N WITH PALATAL HOOK LATIN SMALL LETTER P WITH PALATAL HOOK LATIN SMALL LETTER R WITH PALATAL HOOK LATIN SMALL LETTER S WITH PALATAL HOOK LATIN SMALL LETTER ESH WITH PALATAL HOOK LATIN SMALL LETTER V WITH PALATAL HOOK LATIN SMALL LETTER X WITH PALATAL HOOK LATIN SMALL LETTER Z WITH PALATAL HOOK LATIN SMALL LETTER A WITH RETROFLEX HOOK LATIN SMALL LETTER ALPHA WITH RETROFLEX HOOK LATIN SMALL LETTER D WITH HOOK AND TAIL LATIN SMALL LETTER E WITH RETROFLEX HOOK LATIN SMALL LETTER OPEN E WITH RETROFLEX HOOK LATIN SMALL LETTER REVERSED OPEN E WITH RETROFLEX HOOK LATIN SMALL LETTER SCHWA WITH RETROFLEX HOOK LATIN SMALL LETTER I WITH RETROFLEX HOOK LATIN SMALL LETTER OPEN O WITH RETROFLEX HOOK LATIN SMALL LETTER ESH WITH RETROFLEX HOOK LATIN SMALL LETTER U WITH RETROFLEX HOOK LATIN SMALL LETTER EZH WITH RETROFLEX HOOK LATIN SMALL LETTER H WITH LINE BELOW LATIN SMALL LETTER T WITH DIAERESIS LATIN SMALL LETTER W WITH RING ABOVE LATIN SMALL LETTER Y WITH RING ABOVE LATIN SMALL LETTER A WITH RIGHT HALF RING LATIN SMALL LETTER LONG S WITH DIAGONAL STROKE LATIN SMALL LETTER LONG S WITH HIGH STROKE LATIN SMALL LETTER DELTA GREEK SMALL LETTER UPSILON WITH PSILI GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI GREEK SMALL LETTER ALPHA WITH PERISPOMENI GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI GREEK SMALL LETTER ETA WITH PERISPOMENI GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA GREEK SMALL LETTER IOTA WITH PERISPOMENI GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA GREEK SMALL LETTER RHO WITH PSILI GREEK SMALL LETTER UPSILON WITH PERISPOMENI GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI GREEK SMALL LETTER OMEGA WITH PERISPOMENI GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI DOUBLE-STRUCK CAPITAL C EULER CONSTANT SCRIPT SMALL G SCRIPT CAPITAL H BLACK-LETTER CAPITAL H DOUBLE-STRUCK CAPITAL H PLANCK CONSTANT PLANCK CONSTANT OVER TWO PI SCRIPT CAPITAL I BLACK-LETTER CAPITAL I SCRIPT CAPITAL L SCRIPT SMALL L DOUBLE-STRUCK CAPITAL N DOUBLE-STRUCK CAPITAL P DOUBLE-STRUCK CAPITAL Q SCRIPT CAPITAL R BLACK-LETTER CAPITAL R DOUBLE-STRUCK CAPITAL R DOUBLE-STRUCK CAPITAL Z BLACK-LETTER CAPITAL Z SCRIPT CAPITAL B BLACK-LETTER CAPITAL C SCRIPT SMALL E SCRIPT CAPITAL E SCRIPT CAPITAL F SCRIPT CAPITAL M SCRIPT SMALL O INFORMATION SOURCE DOUBLE-STRUCK SMALL PI DOUBLE-STRUCK SMALL GAMMA DOUBLE-STRUCK CAPITAL GAMMA DOUBLE-STRUCK CAPITAL PI DOUBLE-STRUCK ITALIC CAPITAL D DOUBLE-STRUCK ITALIC SMALL D DOUBLE-STRUCK ITALIC SMALL E DOUBLE-STRUCK ITALIC SMALL I DOUBLE-STRUCK ITALIC SMALL J LATIN SMALL LETTER V WITH RIGHT HOOK LATIN SMALL LETTER V WITH CURL LATIN SMALL LETTER TAILLESS PHI LATIN SMALL LETTER E WITH NOTCH LATIN SMALL LETTER TURNED R WITH TAIL LATIN SMALL LETTER O WITH LOW RING INSIDE LATIN LETTER SMALL CAPITAL TURNED E COPTIC SYMBOL KAI LATIN LETTER SMALL CAPITAL F LATIN LETTER SMALL CAPITAL S LATIN SMALL LETTER DUM LATIN SMALL LETTER LUM LATIN SMALL LETTER MUM LATIN SMALL LETTER NUM LATIN SMALL LETTER RUM LATIN LETTER SMALL CAPITAL RUM LATIN SMALL LETTER TUM LATIN SMALL LETTER UM LATIN SMALL LETTER L WITH RETROFLEX HOOK AND BELT LATIN LETTER SMALL CAPITAL TURNED M LATIN SMALL LIGATURE FF LATIN SMALL LIGATURE FI LATIN SMALL LIGATURE FL LATIN SMALL LIGATURE FFI LATIN SMALL LIGATURE FFL LATIN SMALL LIGATURE LONG S T LATIN SMALL LIGATURE ST ARMENIAN SMALL LIGATURE MEN NOW ARMENIAN SMALL LIGATURE MEN ECH ARMENIAN SMALL LIGATURE MEN INI ARMENIAN SMALL LIGATURE VEW NOW ARMENIAN SMALL LIGATURE MEN XEH MATHEMATICAL BOLD CAPITAL A MATHEMATICAL BOLD CAPITAL B MATHEMATICAL BOLD CAPITAL C MATHEMATICAL BOLD CAPITAL D MATHEMATICAL BOLD CAPITAL E MATHEMATICAL BOLD CAPITAL F MATHEMATICAL BOLD CAPITAL G MATHEMATICAL BOLD CAPITAL H MATHEMATICAL BOLD CAPITAL I MATHEMATICAL BOLD CAPITAL J MATHEMATICAL BOLD CAPITAL K MATHEMATICAL BOLD CAPITAL L MATHEMATICAL BOLD CAPITAL M MATHEMATICAL BOLD CAPITAL N MATHEMATICAL BOLD CAPITAL O MATHEMATICAL BOLD CAPITAL P MATHEMATICAL BOLD CAPITAL Q MATHEMATICAL BOLD CAPITAL R MATHEMATICAL BOLD CAPITAL S MATHEMATICAL BOLD CAPITAL T MATHEMATICAL BOLD CAPITAL U MATHEMATICAL BOLD CAPITAL V MATHEMATICAL BOLD CAPITAL W MATHEMATICAL BOLD CAPITAL X MATHEMATICAL BOLD CAPITAL Y MATHEMATICAL BOLD CAPITAL Z MATHEMATICAL BOLD SMALL A MATHEMATICAL BOLD SMALL B MATHEMATICAL BOLD SMALL C MATHEMATICAL BOLD SMALL D MATHEMATICAL BOLD SMALL E MATHEMATICAL BOLD SMALL F MATHEMATICAL BOLD SMALL G MATHEMATICAL BOLD SMALL H MATHEMATICAL BOLD SMALL I MATHEMATICAL BOLD SMALL J MATHEMATICAL BOLD SMALL K MATHEMATICAL BOLD SMALL L MATHEMATICAL BOLD SMALL M MATHEMATICAL BOLD SMALL N MATHEMATICAL BOLD SMALL O MATHEMATICAL BOLD SMALL P MATHEMATICAL BOLD SMALL Q MATHEMATICAL BOLD SMALL R MATHEMATICAL BOLD SMALL S MATHEMATICAL BOLD SMALL T MATHEMATICAL BOLD SMALL U MATHEMATICAL BOLD SMALL V MATHEMATICAL BOLD SMALL W MATHEMATICAL BOLD SMALL X MATHEMATICAL BOLD SMALL Y MATHEMATICAL BOLD SMALL Z MATHEMATICAL ITALIC CAPITAL A MATHEMATICAL ITALIC CAPITAL B MATHEMATICAL ITALIC CAPITAL C MATHEMATICAL ITALIC CAPITAL D MATHEMATICAL ITALIC CAPITAL E MATHEMATICAL ITALIC CAPITAL F MATHEMATICAL ITALIC CAPITAL G MATHEMATICAL ITALIC CAPITAL H MATHEMATICAL ITALIC CAPITAL I MATHEMATICAL ITALIC CAPITAL J MATHEMATICAL ITALIC CAPITAL K MATHEMATICAL ITALIC CAPITAL L MATHEMATICAL ITALIC CAPITAL M MATHEMATICAL ITALIC CAPITAL N MATHEMATICAL ITALIC CAPITAL O MATHEMATICAL ITALIC CAPITAL P MATHEMATICAL ITALIC CAPITAL Q MATHEMATICAL ITALIC CAPITAL R MATHEMATICAL ITALIC CAPITAL S MATHEMATICAL ITALIC CAPITAL T MATHEMATICAL ITALIC CAPITAL U MATHEMATICAL ITALIC CAPITAL V MATHEMATICAL ITALIC CAPITAL W MATHEMATICAL ITALIC CAPITAL X MATHEMATICAL ITALIC CAPITAL Y MATHEMATICAL ITALIC CAPITAL Z MATHEMATICAL ITALIC SMALL A MATHEMATICAL ITALIC SMALL B MATHEMATICAL ITALIC SMALL C MATHEMATICAL ITALIC SMALL D MATHEMATICAL ITALIC SMALL E MATHEMATICAL ITALIC SMALL F MATHEMATICAL ITALIC SMALL G MATHEMATICAL ITALIC SMALL I MATHEMATICAL ITALIC SMALL J MATHEMATICAL ITALIC SMALL K MATHEMATICAL ITALIC SMALL L MATHEMATICAL ITALIC SMALL M MATHEMATICAL ITALIC SMALL N MATHEMATICAL ITALIC SMALL O MATHEMATICAL ITALIC SMALL P MATHEMATICAL ITALIC SMALL Q MATHEMATICAL ITALIC SMALL R MATHEMATICAL ITALIC SMALL S MATHEMATICAL ITALIC SMALL T MATHEMATICAL ITALIC SMALL U MATHEMATICAL ITALIC SMALL V MATHEMATICAL ITALIC SMALL W MATHEMATICAL ITALIC SMALL X MATHEMATICAL ITALIC SMALL Y MATHEMATICAL ITALIC SMALL Z MATHEMATICAL BOLD ITALIC CAPITAL A MATHEMATICAL BOLD ITALIC CAPITAL B MATHEMATICAL BOLD ITALIC CAPITAL C MATHEMATICAL BOLD ITALIC CAPITAL D MATHEMATICAL BOLD ITALIC CAPITAL E MATHEMATICAL BOLD ITALIC CAPITAL F MATHEMATICAL BOLD ITALIC CAPITAL G MATHEMATICAL BOLD ITALIC CAPITAL H MATHEMATICAL BOLD ITALIC CAPITAL I MATHEMATICAL BOLD ITALIC CAPITAL J MATHEMATICAL BOLD ITALIC CAPITAL K MATHEMATICAL BOLD ITALIC CAPITAL L MATHEMATICAL BOLD ITALIC CAPITAL M MATHEMATICAL BOLD ITALIC CAPITAL N MATHEMATICAL BOLD ITALIC CAPITAL O MATHEMATICAL BOLD ITALIC CAPITAL P MATHEMATICAL BOLD ITALIC CAPITAL Q MATHEMATICAL BOLD ITALIC CAPITAL R MATHEMATICAL BOLD ITALIC CAPITAL S MATHEMATICAL BOLD ITALIC CAPITAL T MATHEMATICAL BOLD ITALIC CAPITAL U MATHEMATICAL BOLD ITALIC CAPITAL V MATHEMATICAL BOLD ITALIC CAPITAL W MATHEMATICAL BOLD ITALIC CAPITAL X MATHEMATICAL BOLD ITALIC CAPITAL Y MATHEMATICAL BOLD ITALIC CAPITAL Z MATHEMATICAL BOLD ITALIC SMALL A MATHEMATICAL BOLD ITALIC SMALL B MATHEMATICAL BOLD ITALIC SMALL C MATHEMATICAL BOLD ITALIC SMALL D MATHEMATICAL BOLD ITALIC SMALL E MATHEMATICAL BOLD ITALIC SMALL F MATHEMATICAL BOLD ITALIC SMALL G MATHEMATICAL BOLD ITALIC SMALL H MATHEMATICAL BOLD ITALIC SMALL I MATHEMATICAL BOLD ITALIC SMALL J MATHEMATICAL BOLD ITALIC SMALL K MATHEMATICAL BOLD ITALIC SMALL L MATHEMATICAL BOLD ITALIC SMALL M MATHEMATICAL BOLD ITALIC SMALL N MATHEMATICAL BOLD ITALIC SMALL O MATHEMATICAL BOLD ITALIC SMALL P MATHEMATICAL BOLD ITALIC SMALL Q MATHEMATICAL BOLD ITALIC SMALL R MATHEMATICAL BOLD ITALIC SMALL S MATHEMATICAL BOLD ITALIC SMALL T MATHEMATICAL BOLD ITALIC SMALL U MATHEMATICAL BOLD ITALIC SMALL V MATHEMATICAL BOLD ITALIC SMALL W MATHEMATICAL BOLD ITALIC SMALL X MATHEMATICAL BOLD ITALIC SMALL Y MATHEMATICAL BOLD ITALIC SMALL Z MATHEMATICAL SCRIPT CAPITAL A MATHEMATICAL SCRIPT CAPITAL C MATHEMATICAL SCRIPT CAPITAL D MATHEMATICAL SCRIPT CAPITAL G MATHEMATICAL SCRIPT CAPITAL J MATHEMATICAL SCRIPT CAPITAL K MATHEMATICAL SCRIPT CAPITAL N MATHEMATICAL SCRIPT CAPITAL O MATHEMATICAL SCRIPT CAPITAL P MATHEMATICAL SCRIPT CAPITAL Q MATHEMATICAL SCRIPT CAPITAL S MATHEMATICAL SCRIPT CAPITAL T MATHEMATICAL SCRIPT CAPITAL U MATHEMATICAL SCRIPT CAPITAL V MATHEMATICAL SCRIPT CAPITAL W MATHEMATICAL SCRIPT CAPITAL X MATHEMATICAL SCRIPT CAPITAL Y MATHEMATICAL SCRIPT CAPITAL Z MATHEMATICAL SCRIPT SMALL A MATHEMATICAL SCRIPT SMALL B MATHEMATICAL SCRIPT SMALL C MATHEMATICAL SCRIPT SMALL D MATHEMATICAL SCRIPT SMALL F MATHEMATICAL SCRIPT SMALL H MATHEMATICAL SCRIPT SMALL I MATHEMATICAL SCRIPT SMALL J MATHEMATICAL SCRIPT SMALL K MATHEMATICAL SCRIPT SMALL L MATHEMATICAL SCRIPT SMALL M MATHEMATICAL SCRIPT SMALL N MATHEMATICAL SCRIPT SMALL P MATHEMATICAL SCRIPT SMALL Q MATHEMATICAL SCRIPT SMALL R MATHEMATICAL SCRIPT SMALL S MATHEMATICAL SCRIPT SMALL T MATHEMATICAL SCRIPT SMALL U MATHEMATICAL SCRIPT SMALL V MATHEMATICAL SCRIPT SMALL W MATHEMATICAL SCRIPT SMALL X MATHEMATICAL SCRIPT SMALL Y MATHEMATICAL SCRIPT SMALL Z MATHEMATICAL BOLD SCRIPT CAPITAL A MATHEMATICAL BOLD SCRIPT CAPITAL B MATHEMATICAL BOLD SCRIPT CAPITAL C MATHEMATICAL BOLD SCRIPT CAPITAL D MATHEMATICAL BOLD SCRIPT CAPITAL E MATHEMATICAL BOLD SCRIPT CAPITAL F MATHEMATICAL BOLD SCRIPT CAPITAL G MATHEMATICAL BOLD SCRIPT CAPITAL H MATHEMATICAL BOLD SCRIPT CAPITAL I MATHEMATICAL BOLD SCRIPT CAPITAL J MATHEMATICAL BOLD SCRIPT CAPITAL K MATHEMATICAL BOLD SCRIPT CAPITAL L MATHEMATICAL BOLD SCRIPT CAPITAL M MATHEMATICAL BOLD SCRIPT CAPITAL N MATHEMATICAL BOLD SCRIPT CAPITAL O MATHEMATICAL BOLD SCRIPT CAPITAL P MATHEMATICAL BOLD SCRIPT CAPITAL Q MATHEMATICAL BOLD SCRIPT CAPITAL R MATHEMATICAL BOLD SCRIPT CAPITAL S MATHEMATICAL BOLD SCRIPT CAPITAL T MATHEMATICAL BOLD SCRIPT CAPITAL U MATHEMATICAL BOLD SCRIPT CAPITAL V MATHEMATICAL BOLD SCRIPT CAPITAL W MATHEMATICAL BOLD SCRIPT CAPITAL X MATHEMATICAL BOLD SCRIPT CAPITAL Y MATHEMATICAL BOLD SCRIPT CAPITAL Z MATHEMATICAL BOLD SCRIPT SMALL A MATHEMATICAL BOLD SCRIPT SMALL B MATHEMATICAL BOLD SCRIPT SMALL C MATHEMATICAL BOLD SCRIPT SMALL D MATHEMATICAL BOLD SCRIPT SMALL E MATHEMATICAL BOLD SCRIPT SMALL F MATHEMATICAL BOLD SCRIPT SMALL G MATHEMATICAL BOLD SCRIPT SMALL H MATHEMATICAL BOLD SCRIPT SMALL I MATHEMATICAL BOLD SCRIPT SMALL J MATHEMATICAL BOLD SCRIPT SMALL K MATHEMATICAL BOLD SCRIPT SMALL L MATHEMATICAL BOLD SCRIPT SMALL M MATHEMATICAL BOLD SCRIPT SMALL N MATHEMATICAL BOLD SCRIPT SMALL O MATHEMATICAL BOLD SCRIPT SMALL P MATHEMATICAL BOLD SCRIPT SMALL Q MATHEMATICAL BOLD SCRIPT SMALL R MATHEMATICAL BOLD SCRIPT SMALL S MATHEMATICAL BOLD SCRIPT SMALL T MATHEMATICAL BOLD SCRIPT SMALL U MATHEMATICAL BOLD SCRIPT SMALL V MATHEMATICAL BOLD SCRIPT SMALL W MATHEMATICAL BOLD SCRIPT SMALL X MATHEMATICAL BOLD SCRIPT SMALL Y MATHEMATICAL BOLD SCRIPT SMALL Z MATHEMATICAL FRAKTUR CAPITAL A MATHEMATICAL FRAKTUR CAPITAL B MATHEMATICAL FRAKTUR CAPITAL D MATHEMATICAL FRAKTUR CAPITAL E MATHEMATICAL FRAKTUR CAPITAL F MATHEMATICAL FRAKTUR CAPITAL G MATHEMATICAL FRAKTUR CAPITAL J MATHEMATICAL FRAKTUR CAPITAL K MATHEMATICAL FRAKTUR CAPITAL L MATHEMATICAL FRAKTUR CAPITAL M MATHEMATICAL FRAKTUR CAPITAL N MATHEMATICAL FRAKTUR CAPITAL O MATHEMATICAL FRAKTUR CAPITAL P MATHEMATICAL FRAKTUR CAPITAL Q MATHEMATICAL FRAKTUR CAPITAL S MATHEMATICAL FRAKTUR CAPITAL T MATHEMATICAL FRAKTUR CAPITAL U MATHEMATICAL FRAKTUR CAPITAL V MATHEMATICAL FRAKTUR CAPITAL W MATHEMATICAL FRAKTUR CAPITAL X MATHEMATICAL FRAKTUR CAPITAL Y MATHEMATICAL FRAKTUR SMALL A MATHEMATICAL FRAKTUR SMALL B MATHEMATICAL FRAKTUR SMALL C MATHEMATICAL FRAKTUR SMALL D MATHEMATICAL FRAKTUR SMALL E MATHEMATICAL FRAKTUR SMALL F MATHEMATICAL FRAKTUR SMALL G MATHEMATICAL FRAKTUR SMALL H MATHEMATICAL FRAKTUR SMALL I MATHEMATICAL FRAKTUR SMALL J MATHEMATICAL FRAKTUR SMALL K MATHEMATICAL FRAKTUR SMALL L MATHEMATICAL FRAKTUR SMALL M MATHEMATICAL FRAKTUR SMALL N MATHEMATICAL FRAKTUR SMALL O MATHEMATICAL FRAKTUR SMALL P MATHEMATICAL FRAKTUR SMALL Q MATHEMATICAL FRAKTUR SMALL R MATHEMATICAL FRAKTUR SMALL S MATHEMATICAL FRAKTUR SMALL T MATHEMATICAL FRAKTUR SMALL U MATHEMATICAL FRAKTUR SMALL V MATHEMATICAL FRAKTUR SMALL W MATHEMATICAL FRAKTUR SMALL X MATHEMATICAL FRAKTUR SMALL Y MATHEMATICAL FRAKTUR SMALL Z MATHEMATICAL DOUBLE-STRUCK CAPITAL A MATHEMATICAL DOUBLE-STRUCK CAPITAL B MATHEMATICAL DOUBLE-STRUCK CAPITAL D MATHEMATICAL DOUBLE-STRUCK CAPITAL E MATHEMATICAL DOUBLE-STRUCK CAPITAL F MATHEMATICAL DOUBLE-STRUCK CAPITAL G MATHEMATICAL DOUBLE-STRUCK CAPITAL I MATHEMATICAL DOUBLE-STRUCK CAPITAL J MATHEMATICAL DOUBLE-STRUCK CAPITAL K MATHEMATICAL DOUBLE-STRUCK CAPITAL L MATHEMATICAL DOUBLE-STRUCK CAPITAL M MATHEMATICAL DOUBLE-STRUCK CAPITAL O MATHEMATICAL DOUBLE-STRUCK CAPITAL S MATHEMATICAL DOUBLE-STRUCK CAPITAL T MATHEMATICAL DOUBLE-STRUCK CAPITAL U MATHEMATICAL DOUBLE-STRUCK CAPITAL V MATHEMATICAL DOUBLE-STRUCK CAPITAL W MATHEMATICAL DOUBLE-STRUCK CAPITAL X MATHEMATICAL DOUBLE-STRUCK CAPITAL Y MATHEMATICAL DOUBLE-STRUCK SMALL A MATHEMATICAL DOUBLE-STRUCK SMALL B MATHEMATICAL DOUBLE-STRUCK SMALL C MATHEMATICAL DOUBLE-STRUCK SMALL D MATHEMATICAL DOUBLE-STRUCK SMALL E MATHEMATICAL DOUBLE-STRUCK SMALL F MATHEMATICAL DOUBLE-STRUCK SMALL G MATHEMATICAL DOUBLE-STRUCK SMALL H MATHEMATICAL DOUBLE-STRUCK SMALL I MATHEMATICAL DOUBLE-STRUCK SMALL J MATHEMATICAL DOUBLE-STRUCK SMALL K MATHEMATICAL DOUBLE-STRUCK SMALL L MATHEMATICAL DOUBLE-STRUCK SMALL M MATHEMATICAL DOUBLE-STRUCK SMALL N MATHEMATICAL DOUBLE-STRUCK SMALL O MATHEMATICAL DOUBLE-STRUCK SMALL P MATHEMATICAL DOUBLE-STRUCK SMALL Q MATHEMATICAL DOUBLE-STRUCK SMALL R MATHEMATICAL DOUBLE-STRUCK SMALL S MATHEMATICAL DOUBLE-STRUCK SMALL T MATHEMATICAL DOUBLE-STRUCK SMALL U MATHEMATICAL DOUBLE-STRUCK SMALL V MATHEMATICAL DOUBLE-STRUCK SMALL W MATHEMATICAL DOUBLE-STRUCK SMALL X MATHEMATICAL DOUBLE-STRUCK SMALL Y MATHEMATICAL DOUBLE-STRUCK SMALL Z MATHEMATICAL BOLD FRAKTUR CAPITAL A MATHEMATICAL BOLD FRAKTUR CAPITAL B MATHEMATICAL BOLD FRAKTUR CAPITAL C MATHEMATICAL BOLD FRAKTUR CAPITAL D MATHEMATICAL BOLD FRAKTUR CAPITAL E MATHEMATICAL BOLD FRAKTUR CAPITAL F MATHEMATICAL BOLD FRAKTUR CAPITAL G MATHEMATICAL BOLD FRAKTUR CAPITAL H MATHEMATICAL BOLD FRAKTUR CAPITAL I MATHEMATICAL BOLD FRAKTUR CAPITAL J MATHEMATICAL BOLD FRAKTUR CAPITAL K MATHEMATICAL BOLD FRAKTUR CAPITAL L MATHEMATICAL BOLD FRAKTUR CAPITAL M MATHEMATICAL BOLD FRAKTUR CAPITAL N MATHEMATICAL BOLD FRAKTUR CAPITAL O MATHEMATICAL BOLD FRAKTUR CAPITAL P MATHEMATICAL BOLD FRAKTUR CAPITAL Q MATHEMATICAL BOLD FRAKTUR CAPITAL R MATHEMATICAL BOLD FRAKTUR CAPITAL S MATHEMATICAL BOLD FRAKTUR CAPITAL T MATHEMATICAL BOLD FRAKTUR CAPITAL U MATHEMATICAL BOLD FRAKTUR CAPITAL V MATHEMATICAL BOLD FRAKTUR CAPITAL W MATHEMATICAL BOLD FRAKTUR CAPITAL X MATHEMATICAL BOLD FRAKTUR CAPITAL Y MATHEMATICAL BOLD FRAKTUR CAPITAL Z MATHEMATICAL BOLD FRAKTUR SMALL A MATHEMATICAL BOLD FRAKTUR SMALL B MATHEMATICAL BOLD FRAKTUR SMALL C MATHEMATICAL BOLD FRAKTUR SMALL D MATHEMATICAL BOLD FRAKTUR SMALL E MATHEMATICAL BOLD FRAKTUR SMALL F MATHEMATICAL BOLD FRAKTUR SMALL G MATHEMATICAL BOLD FRAKTUR SMALL H MATHEMATICAL BOLD FRAKTUR SMALL I MATHEMATICAL BOLD FRAKTUR SMALL J MATHEMATICAL BOLD FRAKTUR SMALL K MATHEMATICAL BOLD FRAKTUR SMALL L MATHEMATICAL BOLD FRAKTUR SMALL M MATHEMATICAL BOLD FRAKTUR SMALL N MATHEMATICAL BOLD FRAKTUR SMALL O MATHEMATICAL BOLD FRAKTUR SMALL P MATHEMATICAL BOLD FRAKTUR SMALL Q MATHEMATICAL BOLD FRAKTUR SMALL R MATHEMATICAL BOLD FRAKTUR SMALL S MATHEMATICAL BOLD FRAKTUR SMALL T MATHEMATICAL BOLD FRAKTUR SMALL U MATHEMATICAL BOLD FRAKTUR SMALL V MATHEMATICAL BOLD FRAKTUR SMALL W MATHEMATICAL BOLD FRAKTUR SMALL X MATHEMATICAL BOLD FRAKTUR SMALL Y MATHEMATICAL BOLD FRAKTUR SMALL Z MATHEMATICAL SANS-SERIF CAPITAL A MATHEMATICAL SANS-SERIF CAPITAL B MATHEMATICAL SANS-SERIF CAPITAL C MATHEMATICAL SANS-SERIF CAPITAL D MATHEMATICAL SANS-SERIF CAPITAL E MATHEMATICAL SANS-SERIF CAPITAL F MATHEMATICAL SANS-SERIF CAPITAL G MATHEMATICAL SANS-SERIF CAPITAL H MATHEMATICAL SANS-SERIF CAPITAL I MATHEMATICAL SANS-SERIF CAPITAL J MATHEMATICAL SANS-SERIF CAPITAL K MATHEMATICAL SANS-SERIF CAPITAL L MATHEMATICAL SANS-SERIF CAPITAL M MATHEMATICAL SANS-SERIF CAPITAL N MATHEMATICAL SANS-SERIF CAPITAL O MATHEMATICAL SANS-SERIF CAPITAL P MATHEMATICAL SANS-SERIF CAPITAL Q MATHEMATICAL SANS-SERIF CAPITAL R MATHEMATICAL SANS-SERIF CAPITAL S MATHEMATICAL SANS-SERIF CAPITAL T MATHEMATICAL SANS-SERIF CAPITAL U MATHEMATICAL SANS-SERIF CAPITAL V MATHEMATICAL SANS-SERIF CAPITAL W MATHEMATICAL SANS-SERIF CAPITAL X MATHEMATICAL SANS-SERIF CAPITAL Y MATHEMATICAL SANS-SERIF CAPITAL Z MATHEMATICAL SANS-SERIF SMALL A MATHEMATICAL SANS-SERIF SMALL B MATHEMATICAL SANS-SERIF SMALL C MATHEMATICAL SANS-SERIF SMALL D MATHEMATICAL SANS-SERIF SMALL E MATHEMATICAL SANS-SERIF SMALL F MATHEMATICAL SANS-SERIF SMALL G MATHEMATICAL SANS-SERIF SMALL H MATHEMATICAL SANS-SERIF SMALL I MATHEMATICAL SANS-SERIF SMALL J MATHEMATICAL SANS-SERIF SMALL K MATHEMATICAL SANS-SERIF SMALL L MATHEMATICAL SANS-SERIF SMALL M MATHEMATICAL SANS-SERIF SMALL N MATHEMATICAL SANS-SERIF SMALL O MATHEMATICAL SANS-SERIF SMALL P MATHEMATICAL SANS-SERIF SMALL Q MATHEMATICAL SANS-SERIF SMALL R MATHEMATICAL SANS-SERIF SMALL S MATHEMATICAL SANS-SERIF SMALL T MATHEMATICAL SANS-SERIF SMALL U MATHEMATICAL SANS-SERIF SMALL V MATHEMATICAL SANS-SERIF SMALL W MATHEMATICAL SANS-SERIF SMALL X MATHEMATICAL SANS-SERIF SMALL Y MATHEMATICAL SANS-SERIF SMALL Z MATHEMATICAL SANS-SERIF BOLD CAPITAL A MATHEMATICAL SANS-SERIF BOLD CAPITAL B MATHEMATICAL SANS-SERIF BOLD CAPITAL C MATHEMATICAL SANS-SERIF BOLD CAPITAL D MATHEMATICAL SANS-SERIF BOLD CAPITAL E MATHEMATICAL SANS-SERIF BOLD CAPITAL F MATHEMATICAL SANS-SERIF BOLD CAPITAL G MATHEMATICAL SANS-SERIF BOLD CAPITAL H MATHEMATICAL SANS-SERIF BOLD CAPITAL I MATHEMATICAL SANS-SERIF BOLD CAPITAL J MATHEMATICAL SANS-SERIF BOLD CAPITAL K MATHEMATICAL SANS-SERIF BOLD CAPITAL L MATHEMATICAL SANS-SERIF BOLD CAPITAL M MATHEMATICAL SANS-SERIF BOLD CAPITAL N MATHEMATICAL SANS-SERIF BOLD CAPITAL O MATHEMATICAL SANS-SERIF BOLD CAPITAL P MATHEMATICAL SANS-SERIF BOLD CAPITAL Q MATHEMATICAL SANS-SERIF BOLD CAPITAL R MATHEMATICAL SANS-SERIF BOLD CAPITAL S MATHEMATICAL SANS-SERIF BOLD CAPITAL T MATHEMATICAL SANS-SERIF BOLD CAPITAL U MATHEMATICAL SANS-SERIF BOLD CAPITAL V MATHEMATICAL SANS-SERIF BOLD CAPITAL W MATHEMATICAL SANS-SERIF BOLD CAPITAL X MATHEMATICAL SANS-SERIF BOLD CAPITAL Y MATHEMATICAL SANS-SERIF BOLD CAPITAL Z MATHEMATICAL SANS-SERIF BOLD SMALL A MATHEMATICAL SANS-SERIF BOLD SMALL B MATHEMATICAL SANS-SERIF BOLD SMALL C MATHEMATICAL SANS-SERIF BOLD SMALL D MATHEMATICAL SANS-SERIF BOLD SMALL E MATHEMATICAL SANS-SERIF BOLD SMALL F MATHEMATICAL SANS-SERIF BOLD SMALL G MATHEMATICAL SANS-SERIF BOLD SMALL H MATHEMATICAL SANS-SERIF BOLD SMALL I MATHEMATICAL SANS-SERIF BOLD SMALL J MATHEMATICAL SANS-SERIF BOLD SMALL K MATHEMATICAL SANS-SERIF BOLD SMALL L MATHEMATICAL SANS-SERIF BOLD SMALL M MATHEMATICAL SANS-SERIF BOLD SMALL N MATHEMATICAL SANS-SERIF BOLD SMALL O MATHEMATICAL SANS-SERIF BOLD SMALL P MATHEMATICAL SANS-SERIF BOLD SMALL Q MATHEMATICAL SANS-SERIF BOLD SMALL R MATHEMATICAL SANS-SERIF BOLD SMALL S MATHEMATICAL SANS-SERIF BOLD SMALL T MATHEMATICAL SANS-SERIF BOLD SMALL U MATHEMATICAL SANS-SERIF BOLD SMALL V MATHEMATICAL SANS-SERIF BOLD SMALL W MATHEMATICAL SANS-SERIF BOLD SMALL X MATHEMATICAL SANS-SERIF BOLD SMALL Y MATHEMATICAL SANS-SERIF BOLD SMALL Z MATHEMATICAL SANS-SERIF ITALIC CAPITAL A MATHEMATICAL SANS-SERIF ITALIC CAPITAL B MATHEMATICAL SANS-SERIF ITALIC CAPITAL C MATHEMATICAL SANS-SERIF ITALIC CAPITAL D MATHEMATICAL SANS-SERIF ITALIC CAPITAL E MATHEMATICAL SANS-SERIF ITALIC CAPITAL F MATHEMATICAL SANS-SERIF ITALIC CAPITAL G MATHEMATICAL SANS-SERIF ITALIC CAPITAL H MATHEMATICAL SANS-SERIF ITALIC CAPITAL I MATHEMATICAL SANS-SERIF ITALIC CAPITAL J MATHEMATICAL SANS-SERIF ITALIC CAPITAL K MATHEMATICAL SANS-SERIF ITALIC CAPITAL L MATHEMATICAL SANS-SERIF ITALIC CAPITAL M MATHEMATICAL SANS-SERIF ITALIC CAPITAL N MATHEMATICAL SANS-SERIF ITALIC CAPITAL O MATHEMATICAL SANS-SERIF ITALIC CAPITAL P MATHEMATICAL SANS-SERIF ITALIC CAPITAL Q MATHEMATICAL SANS-SERIF ITALIC CAPITAL R MATHEMATICAL SANS-SERIF ITALIC CAPITAL S MATHEMATICAL SANS-SERIF ITALIC CAPITAL T MATHEMATICAL SANS-SERIF ITALIC CAPITAL U MATHEMATICAL SANS-SERIF ITALIC CAPITAL V MATHEMATICAL SANS-SERIF ITALIC CAPITAL W MATHEMATICAL SANS-SERIF ITALIC CAPITAL X MATHEMATICAL SANS-SERIF ITALIC CAPITAL Y MATHEMATICAL SANS-SERIF ITALIC CAPITAL Z MATHEMATICAL SANS-SERIF ITALIC SMALL A MATHEMATICAL SANS-SERIF ITALIC SMALL B MATHEMATICAL SANS-SERIF ITALIC SMALL C MATHEMATICAL SANS-SERIF ITALIC SMALL D MATHEMATICAL SANS-SERIF ITALIC SMALL E MATHEMATICAL SANS-SERIF ITALIC SMALL F MATHEMATICAL SANS-SERIF ITALIC SMALL G MATHEMATICAL SANS-SERIF ITALIC SMALL H MATHEMATICAL SANS-SERIF ITALIC SMALL I MATHEMATICAL SANS-SERIF ITALIC SMALL J MATHEMATICAL SANS-SERIF ITALIC SMALL K MATHEMATICAL SANS-SERIF ITALIC SMALL L MATHEMATICAL SANS-SERIF ITALIC SMALL M MATHEMATICAL SANS-SERIF ITALIC SMALL N MATHEMATICAL SANS-SERIF ITALIC SMALL O MATHEMATICAL SANS-SERIF ITALIC SMALL P MATHEMATICAL SANS-SERIF ITALIC SMALL Q MATHEMATICAL SANS-SERIF ITALIC SMALL R MATHEMATICAL SANS-SERIF ITALIC SMALL S MATHEMATICAL SANS-SERIF ITALIC SMALL T MATHEMATICAL SANS-SERIF ITALIC SMALL U MATHEMATICAL SANS-SERIF ITALIC SMALL V MATHEMATICAL SANS-SERIF ITALIC SMALL W MATHEMATICAL SANS-SERIF ITALIC SMALL X MATHEMATICAL SANS-SERIF ITALIC SMALL Y MATHEMATICAL SANS-SERIF ITALIC SMALL Z MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL A MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL B MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL C MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL D MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL E MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL F MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL G MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL H MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL I MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL J MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL K MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL L MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL M MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL N MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL O MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL P MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Q MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL R MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL S MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL T MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL U MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL V MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL W MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL X MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Y MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Z MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL A MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL B MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL C MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL D MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL E MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL F MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL G MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL H MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL I MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL J MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL K MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL L MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL M MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL N MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL O MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL P MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Q MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL R MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL S MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL T MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL U MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL V MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL W MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL X MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Y MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Z MATHEMATICAL MONOSPACE CAPITAL A MATHEMATICAL MONOSPACE CAPITAL B MATHEMATICAL MONOSPACE CAPITAL C MATHEMATICAL MONOSPACE CAPITAL D MATHEMATICAL MONOSPACE CAPITAL E MATHEMATICAL MONOSPACE CAPITAL F MATHEMATICAL MONOSPACE CAPITAL G MATHEMATICAL MONOSPACE CAPITAL H MATHEMATICAL MONOSPACE CAPITAL I MATHEMATICAL MONOSPACE CAPITAL J MATHEMATICAL MONOSPACE CAPITAL K MATHEMATICAL MONOSPACE CAPITAL L MATHEMATICAL MONOSPACE CAPITAL M MATHEMATICAL MONOSPACE CAPITAL N MATHEMATICAL MONOSPACE CAPITAL O MATHEMATICAL MONOSPACE CAPITAL P MATHEMATICAL MONOSPACE CAPITAL Q MATHEMATICAL MONOSPACE CAPITAL R MATHEMATICAL MONOSPACE CAPITAL S MATHEMATICAL MONOSPACE CAPITAL T MATHEMATICAL MONOSPACE CAPITAL U MATHEMATICAL MONOSPACE CAPITAL V MATHEMATICAL MONOSPACE CAPITAL W MATHEMATICAL MONOSPACE CAPITAL X MATHEMATICAL MONOSPACE CAPITAL Y MATHEMATICAL MONOSPACE CAPITAL Z MATHEMATICAL MONOSPACE SMALL A MATHEMATICAL MONOSPACE SMALL B MATHEMATICAL MONOSPACE SMALL C MATHEMATICAL MONOSPACE SMALL D MATHEMATICAL MONOSPACE SMALL E MATHEMATICAL MONOSPACE SMALL F MATHEMATICAL MONOSPACE SMALL G MATHEMATICAL MONOSPACE SMALL H MATHEMATICAL MONOSPACE SMALL I MATHEMATICAL MONOSPACE SMALL J MATHEMATICAL MONOSPACE SMALL K MATHEMATICAL MONOSPACE SMALL L MATHEMATICAL MONOSPACE SMALL M MATHEMATICAL MONOSPACE SMALL N MATHEMATICAL MONOSPACE SMALL O MATHEMATICAL MONOSPACE SMALL P MATHEMATICAL MONOSPACE SMALL Q MATHEMATICAL MONOSPACE SMALL R MATHEMATICAL MONOSPACE SMALL S MATHEMATICAL MONOSPACE SMALL T MATHEMATICAL MONOSPACE SMALL U MATHEMATICAL MONOSPACE SMALL V MATHEMATICAL MONOSPACE SMALL W MATHEMATICAL MONOSPACE SMALL X MATHEMATICAL MONOSPACE SMALL Y MATHEMATICAL MONOSPACE SMALL Z MATHEMATICAL ITALIC SMALL DOTLESS I MATHEMATICAL ITALIC SMALL DOTLESS J MATHEMATICAL BOLD CAPITAL ALPHA MATHEMATICAL BOLD CAPITAL BETA MATHEMATICAL BOLD CAPITAL GAMMA MATHEMATICAL BOLD CAPITAL DELTA MATHEMATICAL BOLD CAPITAL EPSILON MATHEMATICAL BOLD CAPITAL ZETA MATHEMATICAL BOLD CAPITAL ETA MATHEMATICAL BOLD CAPITAL THETA MATHEMATICAL BOLD CAPITAL IOTA MATHEMATICAL BOLD CAPITAL KAPPA MATHEMATICAL BOLD CAPITAL LAMDA MATHEMATICAL BOLD CAPITAL MU MATHEMATICAL BOLD CAPITAL NU MATHEMATICAL BOLD CAPITAL XI MATHEMATICAL BOLD CAPITAL OMICRON MATHEMATICAL BOLD CAPITAL PI MATHEMATICAL BOLD CAPITAL RHO MATHEMATICAL BOLD CAPITAL THETA SYMBOL MATHEMATICAL BOLD CAPITAL SIGMA MATHEMATICAL BOLD CAPITAL TAU MATHEMATICAL BOLD CAPITAL UPSILON MATHEMATICAL BOLD CAPITAL PHI MATHEMATICAL BOLD CAPITAL CHI MATHEMATICAL BOLD CAPITAL PSI MATHEMATICAL BOLD CAPITAL OMEGA MATHEMATICAL BOLD SMALL ALPHA MATHEMATICAL BOLD SMALL BETA MATHEMATICAL BOLD SMALL GAMMA MATHEMATICAL BOLD SMALL DELTA MATHEMATICAL BOLD SMALL EPSILON MATHEMATICAL BOLD SMALL ZETA MATHEMATICAL BOLD SMALL ETA MATHEMATICAL BOLD SMALL THETA MATHEMATICAL BOLD SMALL IOTA MATHEMATICAL BOLD SMALL KAPPA MATHEMATICAL BOLD SMALL LAMDA MATHEMATICAL BOLD SMALL MU MATHEMATICAL BOLD SMALL NU MATHEMATICAL BOLD SMALL XI MATHEMATICAL BOLD SMALL OMICRON MATHEMATICAL BOLD SMALL PI MATHEMATICAL BOLD SMALL RHO MATHEMATICAL BOLD SMALL FINAL SIGMA MATHEMATICAL BOLD SMALL SIGMA MATHEMATICAL BOLD SMALL TAU MATHEMATICAL BOLD SMALL UPSILON MATHEMATICAL BOLD SMALL PHI MATHEMATICAL BOLD SMALL CHI MATHEMATICAL BOLD SMALL PSI MATHEMATICAL BOLD SMALL OMEGA MATHEMATICAL BOLD EPSILON SYMBOL MATHEMATICAL BOLD THETA SYMBOL MATHEMATICAL BOLD KAPPA SYMBOL MATHEMATICAL BOLD PHI SYMBOL MATHEMATICAL BOLD RHO SYMBOL MATHEMATICAL BOLD PI SYMBOL MATHEMATICAL ITALIC CAPITAL ALPHA MATHEMATICAL ITALIC CAPITAL BETA MATHEMATICAL ITALIC CAPITAL GAMMA MATHEMATICAL ITALIC CAPITAL DELTA MATHEMATICAL ITALIC CAPITAL EPSILON MATHEMATICAL ITALIC CAPITAL ZETA MATHEMATICAL ITALIC CAPITAL ETA MATHEMATICAL ITALIC CAPITAL THETA MATHEMATICAL ITALIC CAPITAL IOTA MATHEMATICAL ITALIC CAPITAL KAPPA MATHEMATICAL ITALIC CAPITAL LAMDA MATHEMATICAL ITALIC CAPITAL MU MATHEMATICAL ITALIC CAPITAL NU MATHEMATICAL ITALIC CAPITAL XI MATHEMATICAL ITALIC CAPITAL OMICRON MATHEMATICAL ITALIC CAPITAL PI MATHEMATICAL ITALIC CAPITAL RHO MATHEMATICAL ITALIC CAPITAL THETA SYMBOL MATHEMATICAL ITALIC CAPITAL SIGMA MATHEMATICAL ITALIC CAPITAL TAU MATHEMATICAL ITALIC CAPITAL UPSILON MATHEMATICAL ITALIC CAPITAL PHI MATHEMATICAL ITALIC CAPITAL CHI MATHEMATICAL ITALIC CAPITAL PSI MATHEMATICAL ITALIC CAPITAL OMEGA MATHEMATICAL ITALIC SMALL ALPHA MATHEMATICAL ITALIC SMALL BETA MATHEMATICAL ITALIC SMALL GAMMA MATHEMATICAL ITALIC SMALL DELTA MATHEMATICAL ITALIC SMALL EPSILON MATHEMATICAL ITALIC SMALL ZETA MATHEMATICAL ITALIC SMALL ETA MATHEMATICAL ITALIC SMALL THETA MATHEMATICAL ITALIC SMALL IOTA MATHEMATICAL ITALIC SMALL KAPPA MATHEMATICAL ITALIC SMALL LAMDA MATHEMATICAL ITALIC SMALL MU MATHEMATICAL ITALIC SMALL NU MATHEMATICAL ITALIC SMALL XI MATHEMATICAL ITALIC SMALL OMICRON MATHEMATICAL ITALIC SMALL PI MATHEMATICAL ITALIC SMALL RHO MATHEMATICAL ITALIC SMALL FINAL SIGMA MATHEMATICAL ITALIC SMALL SIGMA MATHEMATICAL ITALIC SMALL TAU MATHEMATICAL ITALIC SMALL UPSILON MATHEMATICAL ITALIC SMALL PHI MATHEMATICAL ITALIC SMALL CHI MATHEMATICAL ITALIC SMALL PSI MATHEMATICAL ITALIC SMALL OMEGA MATHEMATICAL ITALIC EPSILON SYMBOL MATHEMATICAL ITALIC THETA SYMBOL MATHEMATICAL ITALIC KAPPA SYMBOL MATHEMATICAL ITALIC PHI SYMBOL MATHEMATICAL ITALIC RHO SYMBOL MATHEMATICAL ITALIC PI SYMBOL MATHEMATICAL BOLD ITALIC CAPITAL ALPHA MATHEMATICAL BOLD ITALIC CAPITAL BETA MATHEMATICAL BOLD ITALIC CAPITAL GAMMA MATHEMATICAL BOLD ITALIC CAPITAL DELTA MATHEMATICAL BOLD ITALIC CAPITAL EPSILON MATHEMATICAL BOLD ITALIC CAPITAL ZETA MATHEMATICAL BOLD ITALIC CAPITAL ETA MATHEMATICAL BOLD ITALIC CAPITAL THETA MATHEMATICAL BOLD ITALIC CAPITAL IOTA MATHEMATICAL BOLD ITALIC CAPITAL KAPPA MATHEMATICAL BOLD ITALIC CAPITAL LAMDA MATHEMATICAL BOLD ITALIC CAPITAL MU MATHEMATICAL BOLD ITALIC CAPITAL NU MATHEMATICAL BOLD ITALIC CAPITAL XI MATHEMATICAL BOLD ITALIC CAPITAL OMICRON MATHEMATICAL BOLD ITALIC CAPITAL PI MATHEMATICAL BOLD ITALIC CAPITAL RHO MATHEMATICAL BOLD ITALIC CAPITAL THETA SYMBOL MATHEMATICAL BOLD ITALIC CAPITAL SIGMA MATHEMATICAL BOLD ITALIC CAPITAL TAU MATHEMATICAL BOLD ITALIC CAPITAL UPSILON MATHEMATICAL BOLD ITALIC CAPITAL PHI MATHEMATICAL BOLD ITALIC CAPITAL CHI MATHEMATICAL BOLD ITALIC CAPITAL PSI MATHEMATICAL BOLD ITALIC CAPITAL OMEGA MATHEMATICAL BOLD ITALIC SMALL ALPHA MATHEMATICAL BOLD ITALIC SMALL BETA MATHEMATICAL BOLD ITALIC SMALL GAMMA MATHEMATICAL BOLD ITALIC SMALL DELTA MATHEMATICAL BOLD ITALIC SMALL EPSILON MATHEMATICAL BOLD ITALIC SMALL ZETA MATHEMATICAL BOLD ITALIC SMALL ETA MATHEMATICAL BOLD ITALIC SMALL THETA MATHEMATICAL BOLD ITALIC SMALL IOTA MATHEMATICAL BOLD ITALIC SMALL KAPPA MATHEMATICAL BOLD ITALIC SMALL LAMDA MATHEMATICAL BOLD ITALIC SMALL MU MATHEMATICAL BOLD ITALIC SMALL NU MATHEMATICAL BOLD ITALIC SMALL XI MATHEMATICAL BOLD ITALIC SMALL OMICRON MATHEMATICAL BOLD ITALIC SMALL PI MATHEMATICAL BOLD ITALIC SMALL RHO MATHEMATICAL BOLD ITALIC SMALL FINAL SIGMA MATHEMATICAL BOLD ITALIC SMALL SIGMA MATHEMATICAL BOLD ITALIC SMALL TAU MATHEMATICAL BOLD ITALIC SMALL UPSILON MATHEMATICAL BOLD ITALIC SMALL PHI MATHEMATICAL BOLD ITALIC SMALL CHI MATHEMATICAL BOLD ITALIC SMALL PSI MATHEMATICAL BOLD ITALIC SMALL OMEGA MATHEMATICAL BOLD ITALIC EPSILON SYMBOL MATHEMATICAL BOLD ITALIC THETA SYMBOL MATHEMATICAL BOLD ITALIC KAPPA SYMBOL MATHEMATICAL BOLD ITALIC PHI SYMBOL MATHEMATICAL BOLD ITALIC RHO SYMBOL MATHEMATICAL BOLD ITALIC PI SYMBOL MATHEMATICAL SANS-SERIF BOLD CAPITAL ALPHA MATHEMATICAL SANS-SERIF BOLD CAPITAL BETA MATHEMATICAL SANS-SERIF BOLD CAPITAL GAMMA MATHEMATICAL SANS-SERIF BOLD CAPITAL DELTA MATHEMATICAL SANS-SERIF BOLD CAPITAL EPSILON MATHEMATICAL SANS-SERIF BOLD CAPITAL ZETA MATHEMATICAL SANS-SERIF BOLD CAPITAL ETA MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA MATHEMATICAL SANS-SERIF BOLD CAPITAL IOTA MATHEMATICAL SANS-SERIF BOLD CAPITAL KAPPA MATHEMATICAL SANS-SERIF BOLD CAPITAL LAMDA MATHEMATICAL SANS-SERIF BOLD CAPITAL MU MATHEMATICAL SANS-SERIF BOLD CAPITAL NU MATHEMATICAL SANS-SERIF BOLD CAPITAL XI MATHEMATICAL SANS-SERIF BOLD CAPITAL OMICRON MATHEMATICAL SANS-SERIF BOLD CAPITAL PI MATHEMATICAL SANS-SERIF BOLD CAPITAL RHO MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA SYMBOL MATHEMATICAL SANS-SERIF BOLD CAPITAL SIGMA MATHEMATICAL SANS-SERIF BOLD CAPITAL TAU MATHEMATICAL SANS-SERIF BOLD CAPITAL UPSILON MATHEMATICAL SANS-SERIF BOLD CAPITAL PHI MATHEMATICAL SANS-SERIF BOLD CAPITAL CHI MATHEMATICAL SANS-SERIF BOLD CAPITAL PSI MATHEMATICAL SANS-SERIF BOLD CAPITAL OMEGA MATHEMATICAL SANS-SERIF BOLD SMALL ALPHA MATHEMATICAL SANS-SERIF BOLD SMALL BETA MATHEMATICAL SANS-SERIF BOLD SMALL GAMMA MATHEMATICAL SANS-SERIF BOLD SMALL DELTA MATHEMATICAL SANS-SERIF BOLD SMALL EPSILON MATHEMATICAL SANS-SERIF BOLD SMALL ZETA MATHEMATICAL SANS-SERIF BOLD SMALL ETA MATHEMATICAL SANS-SERIF BOLD SMALL THETA MATHEMATICAL SANS-SERIF BOLD SMALL IOTA MATHEMATICAL SANS-SERIF BOLD SMALL KAPPA MATHEMATICAL SANS-SERIF BOLD SMALL LAMDA MATHEMATICAL SANS-SERIF BOLD SMALL MU MATHEMATICAL SANS-SERIF BOLD SMALL NU MATHEMATICAL SANS-SERIF BOLD SMALL XI MATHEMATICAL SANS-SERIF BOLD SMALL OMICRON MATHEMATICAL SANS-SERIF BOLD SMALL PI MATHEMATICAL SANS-SERIF BOLD SMALL RHO MATHEMATICAL SANS-SERIF BOLD SMALL FINAL SIGMA MATHEMATICAL SANS-SERIF BOLD SMALL SIGMA MATHEMATICAL SANS-SERIF BOLD SMALL TAU MATHEMATICAL SANS-SERIF BOLD SMALL UPSILON MATHEMATICAL SANS-SERIF BOLD SMALL PHI MATHEMATICAL SANS-SERIF BOLD SMALL CHI MATHEMATICAL SANS-SERIF BOLD SMALL PSI MATHEMATICAL SANS-SERIF BOLD SMALL OMEGA MATHEMATICAL SANS-SERIF BOLD EPSILON SYMBOL MATHEMATICAL SANS-SERIF BOLD THETA SYMBOL MATHEMATICAL SANS-SERIF BOLD KAPPA SYMBOL MATHEMATICAL SANS-SERIF BOLD PHI SYMBOL MATHEMATICAL SANS-SERIF BOLD RHO SYMBOL MATHEMATICAL SANS-SERIF BOLD PI SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ALPHA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL BETA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL GAMMA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL DELTA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL EPSILON MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ZETA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ETA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL IOTA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL KAPPA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL LAMDA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL MU MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL NU MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL XI MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMICRON MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PI MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL RHO MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL SIGMA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL TAU MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL UPSILON MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PHI MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL CHI MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PSI MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMEGA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ALPHA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL BETA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL GAMMA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL DELTA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL EPSILON MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ZETA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ETA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL THETA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL IOTA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL KAPPA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL LAMDA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL MU MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL NU MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL XI MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMICRON MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PI MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL RHO MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL FINAL SIGMA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL SIGMA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL TAU MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL UPSILON MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PHI MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL CHI MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PSI MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMEGA MATHEMATICAL SANS-SERIF BOLD ITALIC EPSILON SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC THETA SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC KAPPA SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC PHI SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC RHO SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC PI SYMBOL MATHEMATICAL BOLD CAPITAL DIGAMMA MATHEMATICAL BOLD SMALL DIGAMMA 181 304 305 383 453 456 459 498 837 962 976 977 981 982 1008 1009 1012 1013 7835 7838 8126 8486 8490 8491 4960 * * ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/genesis.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFCONSTANT CORE-MAGIC ...) ; compiling (DEFUN ROUND-UP ...) ; compiling (DEFCONSTANT +SMALLVEC-LENGTH+ ...) ; compiling (DEFTYPE SMALLVEC ...) ; compiling (DEFUN MAKE-SMALLVEC ...) ; compiling (DEFSTRUCT BIGVEC ...) ; compiling (DEFUN BVREF ...) ; compiling (DEFUN (SETF BVREF) ...) ; compiling (DEFUN BVLENGTH ...) ; compiling (DEFUN WRITE-BIGVEC-AS-SEQUENCE ...) ; compiling (DEFUN READ-BIGVEC-AS-SEQUENCE-OR-DIE ...) ; compiling (DEFUN EXPAND-BIGVEC ...) ; compiling (MAKE-BVREF-N 8) ; compiling (MAKE-BVREF-N 16) ; compiling (MAKE-BVREF-N 32) ; compiling (MAKE-BVREF-N 64) ; compiling (DEFUN BVREF-WORD ...) ; compiling (DEFUN (SETF BVREF-WORD) ...) ; compiling (DEFVAR *DYNAMIC*) ; compiling (DEFCONSTANT DYNAMIC-CORE-SPACE-ID ...) ; compiling (DEFVAR *STATIC*) ; compiling (DEFCONSTANT STATIC-CORE-SPACE-ID ...) ; compiling (DEFVAR *READ-ONLY*) ; compiling (DEFCONSTANT READ-ONLY-CORE-SPACE-ID ...) ; compiling (DEFCONSTANT MAX-CORE-SPACE-ID ...) ; compiling (DEFCONSTANT DEFLATED-CORE-SPACE-ID-FLAG ...) ; compiling (DEFCONSTANT 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 (DEFUN IS-FIXNUM-LOWTAG ...) ; compiling (DEFUN IS-OTHER-IMMEDIATE-LOWTAG ...) ; 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 *CURRENT-DEBUG-SOURCES*) ; compiling (DEFPARAMETER *COLD-FOREIGN-UNDEFINED-SYMBOLS* ...) ; compiling (DEFVAR *COLD-LOAD-FILENAME* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFMACRO COLD-PUSH ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN READ-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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/genesis.lisp ; in: DEFUN WRITE-DOUBLE-FLOAT-BITS ; (LET ((SB!FASL::HIGH-BITS (SB!FASL::MAKE-RANDOM-DESCRIPTOR SB!FASL::HI)) ; (SB!FASL::LOW-BITS (SB!FASL::MAKE-RANDOM-DESCRIPTOR SB!FASL::LO))) ; (ECASE SB!C:*BACKEND-BYTE-ORDER* ; (:LITTLE-ENDIAN ; (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS SB!INT:INDEX ; SB!FASL::LOW-BITS) ; (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS (1+ SB!INT:INDEX) ; SB!FASL::HIGH-BITS)) ; (:BIG-ENDIAN ; (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS SB!INT:INDEX ; SB!FASL::HIGH-BITS) ; (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS (1+ SB!INT:INDEX) ; SB!FASL::LOW-BITS)))) ; ; note: deleting unreachable code ; (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS SB!INT:INDEX SB!FASL::LOW-BITS) ; ==> ; SB!FASL::ADDRESS ; ; note: deleting unreachable code ; (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS SB!INT:INDEX SB!FASL::HIGH-BITS) ; ==> ; SB!FASL::ADDRESS ; ; note: deleting unreachable code ; (LET ((SB!FASL::HIGH-BITS (SB!FASL::MAKE-RANDOM-DESCRIPTOR SB!FASL::HI)) ; (SB!FASL::LOW-BITS (SB!FASL::MAKE-RANDOM-DESCRIPTOR SB!FASL::LO))) ; (ECASE SB!C:*BACKEND-BYTE-ORDER* ; (:LITTLE-ENDIAN ; (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS SB!INT:INDEX ; SB!FASL::LOW-BITS) ; (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS (1+ SB!INT:INDEX) ; SB!FASL::HIGH-BITS)) ; (:BIG-ENDIAN ; (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS SB!INT:INDEX ; SB!FASL::HIGH-BITS) ; (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS (1+ SB!INT:INDEX) ; SB!FASL::LOW-BITS)))) ; ; 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 *GENESIS-TLS-COUNTER* ...) ; compiling (DEFUN COLD-ASSIGN-TLS-INDEX ...) ; compiling (DEFUN ENSURE-SYMBOL-TLS-INDEX ...) ; compiling (DEFVAR *KNOWN-TLS-SYMBOLS* ...) ; compiling (DEFUN ALLOCATE-SYMBOL ...) ; compiling (DEFUN ASSIGN-TLS-INDEX ...) ; 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 (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CALC-OFFSET ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DO-COLD-FIXUP ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/genesis.lisp ; in: DEFUN DO-COLD-FIXUP ; (ECASE SB!FASL::KIND ; (:JMP-HINT (ASSERT (ZEROP (SB-XC:LDB # SB!FASL::VALUE)))) ; (:BITS-63-48 ; (LET* ((SB!FASL::VALUE #) (SB!FASL::VALUE #) (SB!FASL::VALUE #)) ; (SETF # # ; # #))) ; (:BITS-47-32 ; (LET* ((SB!FASL::VALUE #) (SB!FASL::VALUE #)) ; (SETF # # ; # #))) ; (:LDAH ; (LET ((SB!FASL::VALUE #)) ; (SETF # # ; # #))) ; (:LDA ; (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)))) ; --> 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 ; (:ABSOLUTE ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; SB!FASL::VALUE))) ; --> LET ; ==> ; SB!FASL::KIND ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; SB!FASL::VALUE) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; --> LET* MULTIPLE-VALUE-BIND LET ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (ECASE SB!FASL::KIND ; (:LOAD ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR # #))) ; (:LOAD11U ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR # #))) ; (: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 # # # # # #))) ; (:BRANCH ; (LET ((SB!FASL::BITS #)) ; (ASSERT (ZEROP #)) ; (SETF # #)))) ; --> LET ; ==> ; SB!FASL::KIND ; ; note: deleting unreachable code ; (SB-XC:BYTE 13 0) ; ; 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 18 14) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)) ; (IF (< SB!FASL::VALUE 0) ; (1+ #) ; (ASH # 1)))) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 18 14) ; ; note: deleting unreachable code ; (SB-XC:BYTE 13 0) ; ; note: deleting unreachable code ; (LOGIOR ; (SB-XC:MASK-FIELD (SB-XC:BYTE 18 14) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)) ; (IF (< SB!FASL::VALUE 0) ; (1+ (ASH (SB-XC:LDB # SB!FASL::VALUE) 1)) ; (ASH (SB-XC:LDB (SB-XC:BYTE 13 0) SB!FASL::VALUE) 1))) ; ; note: deleting unreachable code ; (SB-XC:BYTE 10 0) ; ; 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 18 14) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)) ; (IF (< SB!FASL::VALUE 0) ; (1+ #) ; (ASH # 1)))) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 18 14) ; ; note: deleting unreachable code ; (SB-XC:BYTE 11 0) ; ; note: deleting unreachable code ; (LOGIOR ; (SB-XC:MASK-FIELD (SB-XC:BYTE 18 14) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)) ; (IF (< SB!FASL::VALUE 0) ; (1+ (ASH (SB-XC:LDB # SB!FASL::VALUE) 1)) ; (ASH (SB-XC:LDB (SB-XC:BYTE 11 0) SB!FASL::VALUE) 1))) ; ; 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))))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (<= 0 SB!FASL::LOW-BITS (1- (ASH 1 4))) ; --> ; --> (LAMBDA (#:G2166 #:G2165 #:G2164) (DECLARE (TYPE REAL #:G2166 #:G2165 #:G2164)) (IF (<= #:G2166 #:G2165) (IF (<= #:G2165 #:G2164) T NIL) NIL)) ; --> SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :VARS (#:G2166 #:G2165 #:G2164) {100897FAD3}> ; ==> ; 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:DPB # # #) 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 ; (SB-XC:BYTE 4 0) ; ; 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 11 21) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)) ; (ASH (SB-XC:LDB # SB!FASL::VALUE) 16) ; (ASH (SB-XC:LDB # SB!FASL::VALUE) 14) ; (ASH (SB-XC:LDB # SB!FASL::VALUE) 12) ; (ASH (SB-XC:LDB # SB!FASL::VALUE) 1) ; (SB-XC:LDB (SB-XC:BYTE 1 31) SB!FASL::VALUE))) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 11 21) ; ; note: deleting unreachable code ; (LET ((SB!FASL::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!FASL::BITS 3) (SB-XC:MASK-FIELD # #) ; (SB-XC:MASK-FIELD # #) (SB-XC:MASK-FIELD # #)))) ; ; 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!FASL::BITS 3) ; (SB-XC:MASK-FIELD (SB-XC:BYTE 1 1) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:MASK-FIELD (SB-XC:BYTE 3 13) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:MASK-FIELD (SB-XC:BYTE 11 21) ; (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::BITS 3) ; ==> ; SB!FASL::BITS ; ; note: deleting unreachable code ; (ECASE SB!FASL::KIND ; (:JUMP ; (ASSERT (ZEROP (ASH SB!FASL::VALUE -28))) ; (SETF (SB-XC:LDB # #) (ASH SB!FASL::VALUE -2))) ; (:LUI ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR # #))) ; (:ADDI ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR # #)))) ; --> 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+ #) -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 # # #))) ; (:HA ; (LET* ((SB!FASL::UN-FIXED-UP #) ; (SB!FASL::FIXED-UP #) ; (SB!FASL::H #) ; (SB!FASL::L #)) ; (SETF # #))) ; (:L ; (LET* ((SB!FASL::UN-FIXED-UP #) (SB!FASL::FIXED-UP #)) ; (SETF # #)))) ; --> 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!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 # # #))) ; (:ADD ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:DPB # # #)))) ; --> 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 (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 (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 (DEFVAR *UNINTERNED-SYMBOL-TABLE* ...) ; compiling (CLONE-COLD-FOP (FOP-UNINTERNED-SYMBOL-SAVE) ...) ; compiling (CLONE-COLD-FOP (FOP-NAMED-PACKAGE-SAVE :STACKP ...) ...) ; 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-SPEC-VECTOR) ...) ; 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) ; compiling (NOT-COLD-FOP FOP-EVAL-FOR-EFFECT) ; compiling (DEFVAR *LOAD-TIME-VALUE-COUNTER*) ; compiling (DEFINE-COLD-FOP (FOP-FUNCALL) ...) ; compiling (DEFUN FINALIZE-LOAD-TIME-VALUE-NOISE ...) ; compiling (DEFINE-COLD-FOP (FOP-FUNCALL-FOR-EFFECT :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-NOTE-DEBUG-SOURCE :PUSHP ...) ...) ; compiling (DEFINE-COLD-FOP (FOP-FDEFINITION) ...) ; 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-SYMBOL-TLS-FIXUP) ...) ; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-FIXUP) ...) ; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-DATAREF-FIXUP) ...) ; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-CODE) ...) ; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-ROUTINE) ...) ; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-FIXUP) ...) ; compiling (DEFINE-COLD-FOP (FOP-CODE-OBJECT-FIXUP) ...) ; compiling (DEFUN CHECK-SPACES ...) ; compiling (DEFUN TAILWISE-EQUAL ...) ; compiling (DEFUN WRITE-BOILERPLATE ...) ; compiling (DEFUN C-NAME ...) ; compiling (DEFUN C-SYMBOL-NAME ...) ; compiling (DEFUN WRITE-MAKEFILE-FEATURES ...) ; compiling (DEFUN WRITE-CONFIG-H ...) ; compiling (DEFUN WRITE-CONSTANTS-H ...) ; compiling (DEFUN WRITE-TAGNAMES-H ...) ; compiling (DEFUN WRITE-PRIMITIVE-OBJECT ...) ; compiling (DEFUN WRITE-STRUCTURE-OBJECT ...) ; compiling (DEFUN WRITE-STATIC-SYMBOLS ...) ; compiling (DEFUN WRITE-MAP ...) ; compiling (DEFVAR *CORE-FILE*) ; compiling (DEFVAR *DATA-PAGE*) ; compiling (DEFCONSTANT BUILD-ID-CORE-ENTRY-TYPE-CODE ...) ; compiling (DEFCONSTANT NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE ...) ; compiling (DEFCONSTANT INITIAL-FUN-CORE-ENTRY-TYPE-CODE ...) ; compiling (DEFCONSTANT PAGE-TABLE-CORE-ENTRY-TYPE-CODE ...) ; compiling (DEFCONSTANT END-CORE-ENTRY-TYPE-CODE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN WRITE-WORD ...) ; compiling (DEFUN ADVANCE-TO-PAGE ...) ; compiling (DEFUN OUTPUT-GSPACE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN WRITE-INITIAL-CORE-FILE ...) ; compiling (DEFUN SB!VM:GENESIS ...); ; compilation unit finished ; printed 124 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-host/src/compiler/generic/genesis.fasl-tmp written ; compilation finished in 0:00:01.652 T * beginning GENESIS, creating headers in "src/runtime/genesis" NIL * real 1m44.929s user 0m58.642s sys 0m2.802s //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 -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o alloc.o alloc.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o backtrace.o backtrace.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o breakpoint.o breakpoint.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o coreparse.o coreparse.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o dynbind.o dynbind.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o funcall.o funcall.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o gc-common.o gc-common.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o globals.o globals.c clang: warningclang: warning: : argument unused during compilation: '-pagezero_size 0x100000'argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o interr.o interr.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o interrupt.o interrupt.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o largefile.o largefile.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o monitor.o monitor.c clang: warning: argument unused during compilation: '-pagezero_size 0x100000' gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o os-common.o os-common.c clangclang: warning: argument unused during compilation: '-pagezero_size 0x100000' : warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o parse.o parse.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o print.o print.c clang: warning: argument unused during compilation: '-pagezero_size 0x100000' gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o purify.o purify.c clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o pthread-futex.o pthread-futex.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o regnames.o regnames.c clang: warning: argument unused during compilation: '-pagezero_size 0x100000' gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o run-program.o run-program.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o runtime.o runtime.c clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o safepoint.o safepoint.c clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o save.o save.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o search.o search.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o thread.o thread.c clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o time.o time.c clang: warning: argument unused during compilation: '-pagezero_size 0x100000' gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o util.o util.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o validate.o validate.c clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' thread.c:431:22: warning: comparison of unsigned expression >= 0 is always true [-Wtautological-compare] if(th->tls_cookie>=0) arch_os_thread_cleanup(th); ~~~~~~~~~~~~~~^ ~ gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o vars.o vars.c clang: warning: argument unused during compilation: '-pagezero_size 0x100000' gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o wrap.o wrap.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o x86-64-arch.o x86-64-arch.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o bsd-os.o bsd-os.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o x86-64-bsd-os.o x86-64-bsd-os.c clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o darwin-os.o darwin-os.c 1 warning generated. gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o x86-64-darwin-os.o x86-64-darwin-os.c gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o gencgc.o gencgc.c clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: x86-64-bsd-os.cargument unused during compilation: '-pagezero_size 0x100000': 36:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(rax); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem wrap.c:526:16: ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ warning: implicit declaration of function 'gettimeofday' is invalid in C99 [-Wimplicit-function-declaration] return gettimeofday(tp, tzp); ^ x86-64-bsd-os.c:38:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(rcx); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ x86-64-bsd-os.c:40:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(rdx); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ x86-64-bsd-os.c:42:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(rbx); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ x86-64-bsd-os.c:44:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(rsp); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ x86-64-bsd-os.c:46:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(rbp); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ x86-64-bsd-os.c:48:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(rsi); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ x86-64-bsd-os.c:50:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(rdi); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ wrap.c:540:36: warning: declaration of 'struct itimerval' will not be visible outside of this function [-Wvisibility] int sb_getitimer(int which, struct itimerval *value) x86-64-bsd-os.c ^: 52:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(r8); ^~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ x86-64-bsd-os.c:54:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(r9); ^~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' wrap.c:542:16: warning: implicit declaration of function 'getitimer' is invalid in C99 [-Wimplicit-function-declaration] #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ return getitimer(which, value); ^ x86-64-bsd-os.c:56:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(r10); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ x86-64-bsd-os.c:58:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] wrap.c:545:36: warning: declaration of 'struct itimerval' will not be visible outside of this function [-Wvisibility] return CONTEXT_ADDR_FROM_STEM(r11); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' int sb_setitimer(int which, struct itimerval *value, struct itimerval *ovalue) ^ #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ wrap.c:547x86-64-bsd-os.c:60:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(r12); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ :./target-arch-os.h16: warning: implicit declaration of function 'setitimer' is invalid in C99 [-Wimplicit-function-declaration] :14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' return setitimer(which, value, ovalue); ^ #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ x86-64-bsd-os.c:62:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(r13); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ wrap.c:552:12: warningx86-64-bsd-os.c:64:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] : implicit declaration of function 'utimes' is invalid in C99 [-Wimplicit-function-declaration] return CONTEXT_ADDR_FROM_STEM(r14); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' return utimes(path, times); ^ #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ x86-64-bsd-os.c:66:16: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(r15); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ x86-64-bsd-os.c:75:12: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(rsp); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ x86-64-bsd-os.c:81:12: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(rip); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ x86-64-arch.c:74:12: warning: returning '__uint64_t *' (aka 'unsigned long long *') from a function with result type 'os_context_register_t *' (aka 'long long *') converts between pointers to integer types with different sign [-Wpointer-sign] return CONTEXT_ADDR_FROM_STEM(rflags); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./target-arch-os.h:14:38: note: expanded from macro 'CONTEXT_ADDR_FROM_STEM' #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o x86-64-assem.o x86-64-assem.S 18 warnings generated. gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I. -DSBCL_PREFIX=\"'/usr/local'\" -c -o ldso-stubs.o ldso-stubs.S etags alloc.c backtrace.c breakpoint.c coreparse.c dynbind.c funcall.c gc-common.c globals.c interr.c interrupt.c largefile.c monitor.c os-common.c parse.c print.c purify.c pthread-futex.c regnames.c run-program.c runtime.c safepoint.c save.c search.c thread.c time.c util.c validate.c vars.c wrap.c x86-64-arch.c bsd-os.c x86-64-bsd-os.c darwin-os.c x86-64-darwin-os.c gencgc.c x86-64-assem.S ldso-stubs.S || true clang: warning: argument unused during compilation: '-pagezero_size 0x100000' clang: warning: argument unused during compilation: '-pagezero_size 0x100000' 1 warning generated. 6 warnings generated. darwin-os.c:101:20: warning: cast to 'void *' from smaller integer type 'mach_port_t' (aka 'unsigned int') [-Wint-to-void-pointer-cast] (void*) mach_exception_handler_port_set); ^ darwin-os.c:225:6: warning: cast to 'struct exception_port_record *' from smaller integer type 'mach_port_t' (aka 'unsigned int') [-Wint-to-pointer-cast] ((struct exception_port_record*)port)->thread = NULL; ^ darwin-os.c:226:36: warning: cast to 'void *' from smaller integer type 'mach_port_t' (aka 'unsigned int') [-Wint-to-void-pointer-cast] OSAtomicEnqueue(&free_records, (void*)port, offsetof(struct exception_port_record, next)); ^ x86-64-darwin-os.c:284:5: warning: implicit declaration of function 'unblock_signals_in_context_and_maybe_warn' is invalid in C99 [-Wimplicit-function-declaration] unblock_signals_in_context_and_maybe_warn(context); ^ x86-64-darwin-os.c:329:11: warning: cast to 'struct thread **' from smaller integer type 'mach_port_t' (aka 'unsigned int') [-Wint-to-pointer-cast] th = *(struct thread**)exception_port; ^ gencgc.c:2076:44: warning: incompatible pointer to integer conversion passing 'lispobj *' (aka 'unsigned long *') to parameter of type 'lispobj' (aka 'unsigned long'); dereference with * [-Wint-conversion] return looks_like_valid_lisp_pointer_p(pointer, start_addr); ^~~~~~~ * ./gc-internal.h:160:52: note: passing argument to parameter 'pointer' here extern int looks_like_valid_lisp_pointer_p(lispobj pointer, lispobj *start_addr); ^ 3 warnings generated. gencgc.c:1450:1: warning: unused function 'gc_quick_alloc' [-Wunused-function] gc_quick_alloc(word_t nbytes) ^ gencgc.c:1456:1: warning: unused function 'gc_alloc_unboxed' [-Wunused-function] gc_alloc_unboxed(word_t nbytes) ^ gencgc.c:1462:1: warning: unused function 'gc_quick_alloc_unboxed' [-Wunused-function] gc_quick_alloc_unboxed(word_t nbytes) ^ 2 warnings generated. 4 warnings generated. gcc -g -mmacosx-version-min=10.5 -arch x86_64 -dynamic -twolevel_namespace -bind_at_load -pagezero_size 0x100000 -o sbcl alloc.o backtrace.o breakpoint.o coreparse.o dynbind.o funcall.o gc-common.o globals.o interr.o interrupt.o largefile.o monitor.o os-common.o parse.o print.o purify.o pthread-futex.o regnames.o run-program.o runtime.o safepoint.o save.o search.o thread.o time.o util.o validate.o vars.o wrap.o x86-64-arch.o bsd-os.o x86-64-bsd-os.o darwin-os.o x86-64-darwin-os.o gencgc.o x86-64-assem.o ldso-stubs.o -lSystem -lc -ldl -lpthread -lm nm -gp sbcl | grep -v " [FUw] " > ,sbcl.nm mv -f ,sbcl.nm sbcl.nm gcc -g -Wall -O2 -fdollars-in-identifiers -mmacosx-version-min=10.5 -D_DARWIN_USE_64_BIT_INODE -arch x86_64 -fno-omit-frame-pointer -pagezero_size 0x100000 -I../src/runtime -L/sw/lib grovel-headers.c -lSystem -lc -ldl -lpthread -o grovel-headers grovel-headers.c:335:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("nfds-t", nfds_t); ^~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:341:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("clock-t", clock_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:342:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("dev-t", dev_t); ^~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:343:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("gid-t", gid_t); ^~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:344:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("ino-t", ino_t); ^~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:345:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("mode-t", mode_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:346:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("nlink-t", nlink_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:347:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("off-t", off_t); ^~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:348:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("size-t", size_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:349:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("time-t", time_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:354:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("suseconds-t", suseconds_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:356:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("uid-t", uid_t); ^~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:359:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("wst-ino-t", wst_ino_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:360:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("wst-dev-t", wst_dev_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:361:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("wst-off-t", wst_off_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:362:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("wst-blksize-t", wst_blksize_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:363:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("wst-blkcnt-t", wst_blkcnt_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:364:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("wst-nlink-t", wst_nlink_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:365:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("wst-uid-t", wst_uid_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:366:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("wst-gid-t", wst_gid_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:530:9: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFSLOT(tv-sec, tv_sec); ^~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:86:12: note: expanded from macro 'DEFSLOT' (8 * (sizeof bar.cname))) ^ grovel-headers.c:80:5: note: expanded from macro 'DEFSTRUCT' body; \ ^ grovel-headers.c:531:9: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFSLOT(tv-usec, tv_usec)); ^~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:86:12: note: expanded from macro 'DEFSLOT' (8 * (sizeof bar.cname))) ^ grovel-headers.c:80:5: note: expanded from macro 'DEFSTRUCT' body; \ ^ grovel-headers.c:533:9: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFSLOT(tv-sec, tv_sec); ^~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:86:12: note: expanded from macro 'DEFSLOT' (8 * (sizeof bar.cname))) ^ grovel-headers.c:80:5: note: expanded from macro 'DEFSTRUCT' body; \ ^ grovel-headers.c:534:9: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFSLOT(tv-nsec, tv_nsec)); ^~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:86:12: note: expanded from macro 'DEFSLOT' (8 * (sizeof bar.cname))) ^ grovel-headers.c:80:5: note: expanded from macro 'DEFSTRUCT' body; \ ^ grovel-headers.c:560:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("page-index-t", page_index_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:561:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("generation-index-t", generation_index_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ grovel-headers.c:566:5: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] DEFTYPE("os-vm-size-t", os_vm_size_t); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ grovel-headers.c:76:98: note: expanded from macro 'DEFTYPE' printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "signed" : "unsigned"), (8 * (sizeof foo))); } ~~ ^~~~~~~~~~~~~~~~~~ 27 warnings generated. make: Nothing to be done for `after-grovel-headers'. real 0m5.044s user 0m7.077s sys 0m3.651s //entering make-host-2.sh //running cross-compiler to create target object files This is SBCL 1.1.0.0-bb0248a, an implementation of ANSI Common Lisp. More information about SBCL is available at . SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * 5 * ; in: LAMBDA (FEATURES) ; (FLET ((SB-COLD::ENABLE (SB-COLD::X) ; (PUSHNEW SB-COLD::X SB-COLD::FEATURES)) ; (SB-COLD::DISABLE (SB-COLD::X) ; (SETF SB-COLD::FEATURES #))) ; (SB-COLD::ENABLE :SB-THREAD)) ; ; note: deleting unused function ; (FLET DISABLE :IN "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/cold/shared.lisp") ; ; compilation unit finished ; printed 1 note target features *SHEBANG-FEATURES*=(:SB-THREAD :X86-64 :INODE64 :DARWIN9-OR-BETTER :UNIX :MACH-O :BSD :DARWIN :MACH-EXCEPTION-HANDLER :UD2-BREAKPOINTS :GENCGC :STACK-GROWS-DOWNWARD-NOT-UPWARD :C-STACK-IS-CONTROL-STACK :LINKAGE-TABLE :COMPARE-AND-SWAP-VOPS :UNWIND-TO-FRAME-AND-CALL-VOP :RAW-INSTANCE-INIT-VOPS :STACK-ALLOCATABLE-CLOSURES :STACK-ALLOCATABLE-VECTORS :STACK-ALLOCATABLE-LISTS :STACK-ALLOCATABLE-FIXED-OBJECTS :ALIEN-CALLBACKS :CYCLE-COUNTER :COMPLEX-FLOAT-VOPS :FLOAT-EQL-VOPS :INLINE-CONSTANTS :MEMORY-BARRIER-VOPS :MULTIPLY-HIGH-VOPS :SB-SIMD-PACK :ASH-RIGHT-VOPS :SYMBOL-INFO-VOPS :LITTLE-ENDIAN :OS-PROVIDES-DLOPEN :OS-PROVIDES-DLADDR :OS-PROVIDES-PUTWC :OS-PROVIDES-BLKSIZE-T :OS-PROVIDES-SUSECONDS-T :ANSI-CL :COMMON-LISP :SBCL :SB-DOC :SB-TEST :SB-LDB :SB-PACKAGE-LOCKS :SB-UNICODE :SB-EVAL :SB-SOURCE-LOCATIONS :PACKAGE-LOCAL-NICKNAMES :IEEE-FLOATING-POINT) target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL T * # * "obj/from-xc/" * T * T * ; in: LAMBDA (SB-KERNEL::NEW-VALUE SB-KERNEL:INSTANCE) ; (THE SB!SYS:SAP-INT #:NEW-VALUE655) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; compilation unit finished ; Undefined type: ; SAP-INT ; caught 1 STYLE-WARNING condition ; (THE SB!C::CLAMBDA #:NEW-VALUE693) ; ; caught STYLE-WARNING: ; undefined type: CLAMBDA ; ; compilation unit finished ; Undefined type: ; CLAMBDA ; caught 1 STYLE-WARNING condition ; (THE SB!C:TN #:NEW-VALUE707) ; ; caught STYLE-WARNING: ; undefined type: TN ; ; compilation unit finished ; Undefined type: ; TN ; caught 1 STYLE-WARNING condition ; in: SB-XC:DEFMACRO DEFTYPE ; (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~% ~S" ; SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; ; compilation unit finished ; Undefined function: ; BAD-TYPE ; caught 1 STYLE-WARNING condition STYLE-WARNING: redefining SB!THREAD:BARRIER in DEFMACRO STYLE-WARNING: redefining SB!THREAD:MAKE-MUTEX in DEFUN * PROCLAIM-TARGET-OPTIMIZATION * PROCLAIM-TARGET-OPTIMIZATION NIL NIL * IN-TARGET-CROSS-COMPILATION-MODE * IN-TARGET-CROSS-COMPILATION-MODE NIL NIL * # * # * # * NIL * creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/ creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/ creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/show.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!INT") ; x-compiling (DEFUN CANNOT-/SHOW ...) ; x-compiling (DEFMACRO /SHOW ...) ; x-compiling (DEFMACRO /NOSHOW ...) ; x-compiling (DEFMACRO /XHOW ...) ; x-compiling (DEFMACRO /NOXHOW ...) ; x-compiling (DEFMACRO /SHOW0 ...) ; x-compiling (DEFMACRO /NOSHOW0 ...) ; x-compiling (DEFMACRO /PRIMITIVE-PRINT ...) ; x-compiling (DEFMACRO /HEXSTR ...) ; x-compiling (DEFMACRO /NOHEXSTR ...) ; x-compiling (/SHOW0 "done with show.lisp") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/show.lisp ; in: DEFMACRO /NOHEXSTR ; (DEFMACRO SB!INT:/NOHEXSTR (SB!INT::THING) (DECLARE (IGNORE SB!INT::THING))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS29 1 1) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFMACRO /HEXSTR ; (DEFMACRO SB!INT:/HEXSTR (SB!INT::THING) (DECLARE (IGNORABLE SB!INT::THING))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS25 1 1) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFMACRO /PRIMITIVE-PRINT ; (DEFMACRO SB!INT:/PRIMITIVE-PRINT (SB!INT::THING) ; (DECLARE (IGNORABLE SB!INT::THING))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS21 1 1) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFMACRO /NOSHOW ; (DEFMACRO SB!INT:/NOSHOW (&REST REST) (DECLARE (IGNORE REST))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO ; ==> ; (SB!C:SOURCE-LOCATION) ; ; caught STYLE-WARNING: ; undefined function: SB!C:SOURCE-LOCATION ; in: DEFMACRO /SHOW ; (DEFMACRO SB!INT:/SHOW (&REST SB!INT::XLIST) (DECLARE (IGNORE SB!INT::XLIST))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO ; ==> ; (SB!C:SOURCE-LOCATION) ; ; caught STYLE-WARNING: ; undefined function: SB!C:SOURCE-LOCATION ; 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 SB!IMPL::%DEFUN SB!IMPL::%DEFUN ; ==> ; (SB!C:SOURCE-LOCATION) ; ; caught STYLE-WARNING: ; undefined function: SB!C:SOURCE-LOCATION ; ; caught STYLE-WARNING: ; 7 more uses of undefined function SB!C:SOURCE-LOCATION ; ; compilation unit finished ; Undefined functions: ; PROPER-LIST-OF-LENGTH-P SB!C:SOURCE-LOCATION ; caught 7 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/show.lisp-obj-tmp written ; compilation finished in 0:00:00.049 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-source-location.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFCONSTANT +CODE-COVERAGE-UNMARKED+ ...) ; x-compiling (DEFVAR *SOURCE-LOCATION-THUNKS* ...) ; x-compiling (DEFUN SOURCE-LOCATION ...) ; x-compiling (DEFINE-COMPILER-MACRO SOURCE-LOCATION ...) ; x-compiling (DEFMACRO WITH-SOURCE-LOCATION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-source-location.lisp ; 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))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS9 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))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS8 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*)) ; (LET ((SB!KERNEL:FORM #)) ; SB!KERNEL:FORM))) ; --> EVAL-WHEN SB!C::%DEFINE-COMPILER-MACRO SB!C::%DEFINE-COMPILER-MACRO ; --> FUNCTION LET* LET UNLESS IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS2 0 0) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; (SB!C::SOURCE-PATH-TLF-NUMBER (SYMBOL-VALUE 'SB!C::*CURRENT-PATH*)) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-TLF-NUMBER ; ; compilation unit finished ; Undefined functions: ; GET-TOPLEVELISH-FILE-INFO LIST-OF-LENGTH-AT-LEAST-P MAKE-FILE-INFO-NAMESTRING PROPER-LIST-OF-LENGTH-P SOURCE-PATH-TLF-NUMBER ; caught 6 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-source-location.lisp-obj-tmp written ; compilation finished in 0:00:00.050 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-constants.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF SB-XC:LAMBDA-LIST-KEYWORDS ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-constants.lisp-obj-tmp written ; compilation finished in 0:00:00.023 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/backq.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (/SHOW0 "entering backq.lisp") ; x-compiling (DEFSTRUCT (COMMA #) ...) ; x-compiling (DECLAIM (FREEZE-TYPE COMMA)) ; x-compiling (DEFVAR *BACKQUOTE-COUNT* ...) ; x-compiling (DEFVAR *BQ-COMMA-FLAG* ...) ; x-compiling (DEFVAR *BQ-AT-FLAG* ...) ; x-compiling (DEFVAR *BQ-DOT-FLAG* ...) ; x-compiling (DEFVAR *BQ-VECTOR-FLAG* ...) ; x-compiling (DEFVAR *BQ-ERROR* ...) ; x-compiling (/SHOW0 "backq.lisp 50") ; x-compiling (DEFUN BACKQUOTE-MACRO ...) ; x-compiling (/SHOW0 "backq.lisp 64") ; x-compiling (DEFUN COMMA-MACRO ...) ; x-compiling (/SHOW0 "backq.lisp 83") ; x-compiling (DEFUN EXPANDABLE-BACKQ-EXPRESSION-P ...) ; x-compiling (DEFUN BACKQUOTE-SPLICE ...) ; x-compiling (DEFUN BACKQUOTIFY ...) ; x-compiling (/SHOW0 "backq.lisp 139") ; x-compiling (DEFUN BACKQ-CONSTANT-P ...) ; x-compiling (DEFUN COMMA ...) ; x-compiling (/SHOW0 "backq.lisp 157") ; x-compiling (DEFUN BACKQUOTIFY-1 ...) ; x-compiling (/SHOW0 "backq.lisp 184") ; x-compiling (DEF BACKQ-LIST ...) ; x-compiling (DEF BACKQ-LIST* ...) ; x-compiling (DEF BACKQ-APPEND ...) ; x-compiling (DEF BACKQ-NCONC ...) ; x-compiling (DEF BACKQ-CONS ...) ; x-compiling (/SHOW0 "backq.lisp 204") ; x-compiling (DEFUN BACKQ-VECTOR ...) ; x-compiling (/SHOW0 "backq.lisp 212") ; x-compiling (DEFUN !BACKQ-COLD-INIT ...) ; x-compiling (DEFUN !A-RANDOM-MAPCAR-DO-NOT-USE ...) ; x-compiling (DEFVAR *BACKQ-TOKENS* ...) ; x-compiling (/SHOW0 "done with backq.lisp") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/backq.lisp ; in: DEFUN !BACKQ-COLD-INIT ; (SB!IMPL::!A-RANDOM-COMMA-OBJECT-DO-NOT-USE) ; ; caught STYLE-WARNING: ; undefined function: !A-RANDOM-COMMA-OBJECT-DO-NOT-USE ; in: DEFSTRUCT COMMA ; (DEFSTRUCT ; (SB!IMPL::COMMA ; (:CONSTRUCTOR SB!IMPL::UNQUOTE (SB!IMPL::EXPR SB!IMPL::BITS))) ; (SB!IMPL::EXPR NIL :READ-ONLY T) ; (SB!IMPL::BITS NIL :READ-ONLY T :TYPE (AND UNSIGNED-BYTE FIXNUM))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFUN !BACKQ-COLD-INIT ; (ASSERT ; (EQUALP (CONS 'SB!IMPL::FOO (SB!IMPL::UNQUOTE '*PRINT-CASE* 4)) ; (SB!IMPL::!A-RANDOM-COMMA-OBJECT-DO-NOT-USE))) ; --> TAGBODY LET ; ==> ; (SB!KERNEL:ASSERT-ERROR ; '(EQUALP (CONS 'SB!IMPL::FOO (SB!IMPL::UNQUOTE '*PRINT-CASE* 4)) ; (SB!IMPL::!A-RANDOM-COMMA-OBJECT-DO-NOT-USE)) ; (LIST ; (LIST '(CONS 'SB!IMPL::FOO (SB!IMPL::UNQUOTE '*PRINT-CASE* 4)) #:TEMP142) ; (LIST '(SB!IMPL::!A-RANDOM-COMMA-OBJECT-DO-NOT-USE) #:TEMP143)) ; 'NIL NIL) ; ; caught STYLE-WARNING: ; undefined function: ASSERT-ERROR ; in: DEFUN !A-RANDOM-MAPCAR-DO-NOT-USE ; (MAPCAR #'CDR SB!IMPL::X) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; !A-RANDOM-COMMA-OBJECT-DO-NOT-USE SB!KERNEL::%TARGET-DEFSTRUCT ASSERT-ERROR ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/backq.lisp-obj-tmp written ; compilation finished in 0:00:00.111 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/globals.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (SPECIAL *KEYWORD-PACKAGE* ...)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DECLAIM (FTYPE # ...)) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/globals.lisp-obj-tmp written ; compilation finished in 0:00:00.030 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defsetfs.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (SB!INT:/SHOW0 "entering defsetfs.lisp") ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (DEFSETF SLOT ...) ; x-compiling (DEFSETF DEREF ...) ; x-compiling (DEFSETF %HEAP-ALIEN ...) ; x-compiling (IN-PACKAGE "SB!BIGNUM") ; x-compiling (DEFSETF %BIGNUM-REF ...) ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFSETF WORD-SAP-REF ...) ; x-compiling (IN-PACKAGE "SB!DI") ; x-compiling (DEFSETF STACK-REF ...) ; x-compiling (DEFSETF DEBUG-VAR-VALUE ...) ; x-compiling (DEFSETF DEBUG-VAR-VALUE ...) ; x-compiling (DEFSETF BREAKPOINT-INFO ...) ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFSETF %INSTANCE-REF ...) ; x-compiling (DEFSETF %RAW-INSTANCE-REF/WORD ...) ; x-compiling (DEFSETF %RAW-INSTANCE-REF/SINGLE ...) ; x-compiling (DEFSETF %RAW-INSTANCE-REF/DOUBLE ...) ; x-compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-SINGLE ...) ; x-compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...) ; x-compiling (DEFSETF %INSTANCE-LAYOUT ...) ; x-compiling (DEFSETF %FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFSETF %FUNCALLABLE-INSTANCE-LAYOUT ...) ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFSETF CAR ...) ; x-compiling (DEFSETF CDR ...) ; x-compiling (DEFSETF CAAR ...) ; x-compiling (DEFSETF CADR ...) ; x-compiling (DEFSETF CDAR ...) ; x-compiling (DEFSETF CDDR ...) ; x-compiling (DEFSETF CAAAR ...) ; x-compiling (DEFSETF CADAR ...) ; x-compiling (DEFSETF CDAAR ...) ; x-compiling (DEFSETF CDDAR ...) ; x-compiling (DEFSETF CAADR ...) ; x-compiling (DEFSETF CADDR ...) ; x-compiling (DEFSETF CDADR ...) ; x-compiling (DEFSETF CDDDR ...) ; x-compiling (DEFSETF CAAAAR ...) ; x-compiling (DEFSETF CADAAR ...) ; x-compiling (DEFSETF CDAAAR ...) ; x-compiling (DEFSETF CDDAAR ...) ; x-compiling (DEFSETF CAADAR ...) ; x-compiling (DEFSETF CADDAR ...) ; x-compiling (DEFSETF CDADAR ...) ; x-compiling (DEFSETF CDDDAR ...) ; x-compiling (DEFSETF CAAADR ...) ; x-compiling (DEFSETF CADADR ...) ; x-compiling (DEFSETF CDAADR ...) ; x-compiling (DEFSETF CDDADR ...) ; x-compiling (DEFSETF CAADDR ...) ; x-compiling (DEFSETF CADDDR ...) ; x-compiling (DEFSETF CDADDR ...) ; x-compiling (DEFSETF CDDDDR ...) ; x-compiling (DEFSETF FIRST ...) ; x-compiling (DEFSETF SECOND ...) ; x-compiling (DEFSETF THIRD ...) ; x-compiling (DEFSETF FOURTH ...) ; x-compiling (DEFSETF FIFTH ...) ; x-compiling (DEFSETF SIXTH ...) ; x-compiling (DEFSETF SEVENTH ...) ; x-compiling (DEFSETF EIGHTH ...) ; x-compiling (DEFSETF NINTH ...) ; x-compiling (DEFSETF TENTH ...) ; x-compiling (DEFSETF REST ...) ; x-compiling (DEFSETF ELT ...) ; x-compiling (DEFSETF ROW-MAJOR-AREF ...) ; x-compiling (DEFSETF SVREF ...) ; x-compiling (DEFSETF CHAR ...) ; x-compiling (DEFSETF SCHAR ...) ; x-compiling (DEFSETF %ARRAY-DIMENSION ...) ; x-compiling (DEFSETF %VECTOR-RAW-BITS ...) ; x-compiling (DEFSETF SYMBOL-VALUE ...) ; x-compiling (DEFSETF SYMBOL-GLOBAL-VALUE ...) ; x-compiling (DEFSETF SYMBOL-PLIST ...) ; x-compiling (DEFSETF NTH ...) ; x-compiling (DEFSETF FILL-POINTER ...) ; x-compiling (DEFSETF SAP-REF-8 ...) ; x-compiling (DEFSETF SIGNED-SAP-REF-8 ...) ; x-compiling (DEFSETF SAP-REF-16 ...) ; x-compiling (DEFSETF SIGNED-SAP-REF-16 ...) ; x-compiling (DEFSETF SAP-REF-32 ...) ; x-compiling (DEFSETF SIGNED-SAP-REF-32 ...) ; x-compiling (DEFSETF SAP-REF-64 ...) ; x-compiling (DEFSETF SIGNED-SAP-REF-64 ...) ; x-compiling (DEFSETF SAP-REF-WORD ...) ; x-compiling (DEFSETF SIGNED-SAP-REF-WORD ...) ; x-compiling (DEFSETF SAP-REF-SAP ...) ; x-compiling (DEFSETF SAP-REF-LISPOBJ ...) ; x-compiling (DEFSETF SAP-REF-SINGLE ...) ; x-compiling (DEFSETF SAP-REF-DOUBLE ...) ; x-compiling (DEFSETF SUBSEQ ...) ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFSETF FDEFINITION ...) ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFSETF CODE-HEADER-REF ...) ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN !A-RANDOM-COMMA-OBJECT-DO-NOT-USE ...) ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFSETF CONTEXT-REGISTER ...) ; x-compiling (DEFSETF CONTEXT-FLOAT-REGISTER ...) ; x-compiling (/SHOW0 "leaving defsetfs.lisp") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defsetfs.lisp ; in: DEFSETF %HEAP-ALIEN ; (DEFSETF SB!ALIEN-INTERNALS:%HEAP-ALIEN SB!ALIEN-INTERNALS:%SET-HEAP-ALIEN) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!ALIEN-INTERNALS:%HEAP-ALIEN NIL 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-1 #:ENVIRONMENT2) ; (DECLARE (IGNORE #:ENVIRONMENT2)) ; (SB!IMPL::%DEFSETF #:ACCESS-FORM-1 1 ; (LAMBDA (#:WHOLE0) ; (LET* # ; # ; # ; #)))) ; '(SB!ALIEN:ALIEN &REST SB!ALIEN::INDICES) NIL ; 'NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFSETF SLOT ; (DEFSETF SB!ALIEN:SLOT SB!ALIEN-INTERNALS:%SET-SLOT) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!ALIEN:SLOT NIL NIL ; 'SB!ALIEN-INTERNALS:%SET-SLOT NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; ; caught STYLE-WARNING: ; 87 more uses of undefined function SB!IMPL::ASSIGN-SETF-MACRO ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defsetfs.lisp ; in: DEFSETF DEREF ; (DEFSETF SB!ALIEN:DEREF (SB!ALIEN:ALIEN &REST SB!ALIEN::INDICES) ; (SB!ALIEN::VALUE) ; (SB!IMPL::BACKQ-LIST* 'SB!ALIEN-INTERNALS:%SET-DEREF SB!ALIEN:ALIEN ; SB!ALIEN::VALUE SB!ALIEN::INDICES)) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA ; --> FUNCTION SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET UNLESS IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS3 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; in: DEFSETF CADR ; (DEFSETF CADR (SB!IMPL::X) ; (SB!IMPL::V) ; (SB!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 #:ARGS29 2 2) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFSETF CAAR ; (DEFSETF CAAR (SB!IMPL::X) ; (SB!IMPL::V) ; (SB!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 #:ARGS16 2 2) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFSETF DEREF ; (DEFSETF SB!ALIEN:DEREF (SB!ALIEN:ALIEN &REST SB!ALIEN::INDICES) ; (SB!ALIEN::VALUE) ; (SB!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 #:ARGS4 2 2) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; ; caught STYLE-WARNING: ; 36 more uses of undefined function PROPER-LIST-OF-LENGTH-P ; ; compilation unit finished ; Undefined functions: ; SB!IMPL::ASSIGN-SETF-MACRO LIST-OF-LENGTH-AT-LEAST-P PROPER-LIST-OF-LENGTH-P ; caught 9 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/defsetfs.lisp-obj-tmp written ; compilation finished in 0:00:00.278 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cold-init-helper-macros.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFVAR *COLD-INIT-FORMS*) ; x-compiling (DEFMACRO !BEGIN-COLLECTING-COLD-INIT-FORMS ...) ; x-compiling (DEFMACRO !COLD-INIT-FORMS ...) ; x-compiling (DEFMACRO !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cold-init-helper-macros.lisp ; in: DEFMACRO !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS ; (DEFMACRO SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS (SB!KERNEL::NAME) ; (SB!IMPL::BACKQ-LIST* 'PROGN ; (SB!IMPL::BACKQ-LIST* 'DEFUN SB!KERNEL::NAME NIL ; (SB!IMPL::BACKQ-APPEND ; SB!KERNEL::*COLD-INIT-FORMS* ; '(#))) ; '((EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ; (MAKUNBOUND 'SB!KERNEL::*COLD-INIT-FORMS*))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS5 1 1) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFMACRO !BEGIN-COLLECTING-COLD-INIT-FORMS ; (DEFMACRO SB!INT:!BEGIN-COLLECTING-COLD-INIT-FORMS () ; '(EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ; (WHEN (BOUNDP 'SB!KERNEL::*COLD-INIT-FORMS*) ; (WARN "discarding old *COLD-INIT-FORMS* value")) ; (SETF SB!KERNEL::*COLD-INIT-FORMS* NIL))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS0 0 0) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; ; compilation unit finished ; Undefined function: ; PROPER-LIST-OF-LENGTH-P ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/cold-init-helper-macros.lisp-obj-tmp written ; compilation finished in 0:00:00.014 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/uncross.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!INT") ; x-compiling (DECLAIM (INLINE UNCROSS)) ; x-compiling (DEFUN UNCROSS ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/uncross.lisp-obj-tmp written ; compilation finished in 0:00:00.009 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/primordial-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFVAR *TYPE-SYSTEM-INITIALIZED*) ; x-compiling (DEFGLOBAL *WILD-TYPE* ...) ; x-compiling (DEFGLOBAL *EMPTY-TYPE* ...) ; x-compiling (DEFGLOBAL *UNIVERSAL-TYPE* ...) ; x-compiling (DEFVAR *UNIVERSAL-FUN-TYPE*) ; x-compiling (DEFVAR *INSTANCE-TYPE*) ; x-compiling (DEFVAR *FUNCALLABLE-INSTANCE-TYPE*) ; x-compiling (DEFVAR *EXTENDED-SEQUENCE-TYPE*) ; x-compiling (DEFGLOBAL **BUILT-IN-CLASS-CODES** ...) ; x-compiling (DEFGLOBAL **NULL-CLASSOID-LAYOUT** ...) ; x-compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/primordial-type.lisp ; in: DEFGLOBAL *UNIVERSAL-TYPE* ; (SB!EXT:DEFGLOBAL SB!KERNEL:*UNIVERSAL-TYPE* -1) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL:*UNIVERSAL-TYPE* (UNLESS #:BOUNDP -1) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFGLOBAL *EMPTY-TYPE* ; (SB!EXT:DEFGLOBAL SB!KERNEL:*EMPTY-TYPE* -1) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL:*EMPTY-TYPE* (UNLESS #:BOUNDP -1) #:BOUNDP ; 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFGLOBAL *WILD-TYPE* ; (SB!EXT:DEFGLOBAL SB!KERNEL:*WILD-TYPE* -1) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL:*WILD-TYPE* (UNLESS #:BOUNDP -1) #:BOUNDP ; 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; ; caught STYLE-WARNING: ; 2 more uses of undefined function SB!IMPL::%DEFGLOBAL ; ; compilation unit finished ; Undefined function: ; SB!IMPL::%DEFGLOBAL ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/primordial-type.lisp-obj-tmp written ; compilation finished in 0:00:00.036 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-defbangmethod.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-defbangmethod.lisp-obj-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangtype.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFMACRO DEF!TYPE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangtype.lisp ; in: DEFMACRO DEF!TYPE ; (DEFMACRO SB!INT:DEF!TYPE (SB!KERNEL::NAME &REST REST) ; (SB!IMPL::BACKQ-LIST 'PROGN ; (SB!IMPL::BACKQ-LIST* 'DEFTYPE SB!KERNEL::NAME REST))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS0 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; ; compilation unit finished ; Undefined function: ; LIST-OF-LENGTH-AT-LEAST-P ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/defbangtype.lisp-obj-tmp written ; compilation finished in 0:00:00.008 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangmacro.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO DEF!MACRO ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangmacro.lisp ; in: DEFMACRO DEF!MACRO ; (DEFMACRO SB!INT:DEF!MACRO (SB!IMPL::NAME &REST REST) ; (SB!IMPL::BACKQ-LIST* 'SB!INT:DEFMACRO-MUNDANELY SB!IMPL::NAME REST)) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS0 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; ; compilation unit finished ; Undefined function: ; LIST-OF-LENGTH-AT-LEAST-P ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/defbangmacro.lisp-obj-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangconstant.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFMACRO DEF!CONSTANT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangconstant.lisp ; in: DEFMACRO DEF!CONSTANT ; (DEFMACRO SB!INT:DEF!CONSTANT ; (&WHOLE SB!KERNEL::WHOLE SB!KERNEL::NAME SB!KERNEL::VALUE ; &OPTIONAL SB!KERNEL::DOC) ; (DECLARE (IGNORE SB!KERNEL::VALUE SB!KERNEL::DOC SB!KERNEL::NAME)) ; (SB!IMPL::BACKQ-LIST 'PROGN ; (SB!IMPL::BACKQ-CONS 'DEFCONSTANT ; (CDR SB!KERNEL::WHOLE)))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS0 2 3) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; ; compilation unit finished ; Undefined function: ; PROPER-LIST-OF-LENGTH-P ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/defbangconstant.lisp-obj-tmp written ; compilation finished in 0:00:00.031 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/primordial-extensions.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!CONSTANT +EMPTY-HT-SLOT+ ...) ; x-compiling (DEFUN FROB-DO-BODY ...) ; x-compiling (DEFMACRO STRING-DISPATCH ...) ; x-compiling (DEFMACRO WITH-UNIQUE-NAMES ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MAKE-GENSYM-LIST ...) ; x-compiling (DECLAIM (TYPE PACKAGE ...)) ; x-compiling (DEFVAR *CL-PACKAGE* ...) ; x-compiling (DEFVAR *KEYWORD-PACKAGE* ...) ; x-compiling (DEFUN SYMBOLICATE ...) ; x-compiling (DEFUN GENSYMIFY ...) ; x-compiling (DEFUN KEYWORDICATE ...) ; x-compiling (DEFUN SANE-PACKAGE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/primordial-extensions.lisp ; in: DEFUN SANE-PACKAGE ; (TYPE-OF SB!IMPL::MAYBE-PACKAGE) ; ==> ; SB!IMPL::MAYBE-PACKAGE ; ; note: deleting unreachable code ; x-compiling (DEFUN SANE-DEFAULT-PATHNAME-DEFAULTS ...) ; x-compiling (DEFMACRO DEFENUM ...) ; x-compiling (DEFMACRO DEFCONSTANT-EQX ...) ; x-compiling (DEFUN %DEFCONSTANT-EQX-VALUE ...) ; x-compiling (DEFUN PROPER-LIST-OF-LENGTH-P ...) ; x-compiling (DEFUN PROPER-LIST-P ...) ; x-compiling (DEFMACRO DEFINE-UNSUPPORTED-FUN ...) ; x-compiling (DEF!MACRO DO-ANONYMOUS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/primordial-extensions.lisp ; in: DEFMACRO WITH-UNIQUE-NAMES ; (CONCATENATE 'STRING SYMBOL-NAME "-") ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR ; (LAMBDA (SYMBOL) ; (LET* ((SYMBOL-NAME #) (SB!IMPL::STEM #)) ; (SB!IMPL::BACKQ-LIST SYMBOL ; (SB!IMPL::BACKQ-LIST 'SB-XC:GENSYM ; SB!IMPL::STEM)))) ; SB!IMPL::SYMBOLS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO DEFENUM ; (DEFMACRO SB!INT:DEFENUM ; ((&KEY (SB!IMPL::START 0) (STEP 1)) &REST SB!IMPL::IDENTIFIERS) ; (LET ((SB!IMPL::RESULTS NIL) ; (SB!INT:INDEX 0) ; (SB!IMPL::START (EVAL SB!IMPL::START)) ; (STEP (EVAL STEP))) ; (DOLIST (SB!IMPL::ID SB!IMPL::IDENTIFIERS) ; (WHEN SB!IMPL::ID (MULTIPLE-VALUE-BIND # # #)) ; (INCF SB!INT:INDEX)) ; (SB!IMPL::BACKQ-CONS 'PROGN (NREVERSE SB!IMPL::RESULTS)))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; ==> ; (SB!KERNEL::KEYWORD-SUPPLIED-P ':STEP #:KEYWORDS-1253) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::KEYWORD-SUPPLIED-P ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS257 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; in: DEFMACRO WITH-UNIQUE-NAMES ; (DEFMACRO SB!INT:WITH-UNIQUE-NAMES (SB!IMPL::SYMBOLS &BODY SB!IMPL::BODY) ; (SB!IMPL::BACKQ-LIST* 'LET ; (MAPCAR ; (LAMBDA (SYMBOL) ; (LET* # ; #)) ; SB!IMPL::SYMBOLS) ; SB!IMPL::BODY)) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS66 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 (SB-XC: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 #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS37 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/primordial-extensions.lisp ; in: DEFMACRO DEFENUM ; (DEFMACRO SB!INT:DEFENUM ; ((&KEY (SB!IMPL::START 0) (STEP 1)) &REST SB!IMPL::IDENTIFIERS) ; (LET ((SB!IMPL::RESULTS NIL) ; (SB!INT:INDEX 0) ; (SB!IMPL::START (EVAL SB!IMPL::START)) ; (STEP (EVAL STEP))) ; (DOLIST (SB!IMPL::ID SB!IMPL::IDENTIFIERS) ; (WHEN SB!IMPL::ID (MULTIPLE-VALUE-BIND # # #)) ; (INCF SB!INT:INDEX)) ; (SB!IMPL::BACKQ-CONS 'PROGN (NREVERSE SB!IMPL::RESULTS)))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::LOOKUP-KEYWORD ':STEP #:KEYWORDS-1253) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::LOOKUP-KEYWORD ; in: DEFUN SANE-PACKAGE ; (SB!IMPL::PACKAGE-%NAME SB!IMPL::MAYBE-PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-%NAME ; in: DEFUN FROB-DO-BODY ; (SB!INT:PARSE-BODY SB!IMPL::DECLS-AND-CODE :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; in: DEFMACRO DEFENUM ; (DEFMACRO SB!INT:DEFENUM ; ((&KEY (SB!IMPL::START 0) (STEP 1)) &REST SB!IMPL::IDENTIFIERS) ; (LET ((SB!IMPL::RESULTS NIL) ; (SB!INT:INDEX 0) ; (SB!IMPL::START (EVAL SB!IMPL::START)) ; (STEP (EVAL STEP))) ; (DOLIST (SB!IMPL::ID SB!IMPL::IDENTIFIERS) ; (WHEN SB!IMPL::ID (MULTIPLE-VALUE-BIND # # #)) ; (INCF SB!INT:INDEX)) ; (SB!IMPL::BACKQ-CONS 'PROGN (NREVERSE SB!IMPL::RESULTS)))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-1253 '(:STEP :START) 'NIL NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::VERIFY-KEYWORDS ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::KEYWORD-SUPPLIED-P LIST-OF-LENGTH-AT-LEAST-P SB!KERNEL::LOOKUP-KEYWORD PACKAGE-%NAME PARSE-BODY SB!KERNEL::VERIFY-KEYWORDS ; caught 11 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/primordial-extensions.lisp-obj-tmp written ; compilation finished in 0:00:00.258 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/function-names.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *VALID-FUN-NAMES-ALIST* ...) ; x-compiling (DEFUN %DEFINE-FUN-NAME-SYNTAX ...) ; x-compiling (DEFMACRO DEFINE-FUNCTION-NAME-SYNTAX ...) ; x-compiling (DEFUN VALID-FUNCTION-NAME-P ...) ; x-compiling (DEFINE-FUNCTION-NAME-SYNTAX SETF ...) ; x-compiling (%DEFINE-FUN-NAME-SYNTAX (QUOTE CAS) ...) ; x-compiling (DEFUN MACRO-FUNCTION-NAME ...) ; x-compiling (DEFINE-FUNCTION-NAME-SYNTAX DEFMACRO ...) ; x-compiling (DEFINE-FUNCTION-NAME-SYNTAX MACROLET ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/function-names.lisp ; in: DEFUN MACRO-FUNCTION-NAME ; (DESTRUCTURING-BIND ; (SB!IMPL::FUN &REST REST) ; (CDR SB!IMPL::NAME) ; (WHEN (NULL REST) ; (TYPECASE SB!IMPL::FUN ; (SYMBOL (VALUES T SB!IMPL::FUN)) ; (CONS (WHEN # #))))) ; --> LET LET* LET UNLESS IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS78 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; in: DEFMACRO DEFINE-FUNCTION-NAME-SYNTAX ; (DEFMACRO SB!INT:DEFINE-FUNCTION-NAME-SYNTAX ; (SYMBOL (SB!DEBUG:VAR) &BODY SB!IMPL::BODY) ; "Define function names of the form of a list headed by SYMBOL to be ; a legal function name, subject to restrictions imposed by BODY. BODY ; is evaluated with VAR bound to the form required to check, and should ; return two values: the first value is a generalized boolean indicating ; legality, and the second a symbol for use as a BLOCK name or similar ; situations." ; (DECLARE (TYPE SYMBOL SYMBOL)) ; (LET ((SB!IMPL::SYNTAX-CHECKER ; (SB!INT:SYMBOLICATE 'SB!IMPL::%CHECK- SYMBOL 'SB!IMPL::-FUN-NAME))) ; (SB!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 'FUNCTION ; SB!IMPL::SYNTAX-CHECKER))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS24 2) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; ; compilation unit finished ; Undefined function: ; LIST-OF-LENGTH-AT-LEAST-P ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/function-names.lisp-obj-tmp written ; compilation finished in 0:00:00.050 creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/ creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/parms.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEF!MACRO !CONFIGURE-DYNAMIC-SPACE-END ...) ; x-compiling (DEF!MACRO !GENCGC-SPACE-SETUP ...) ; x-compiling (DEFPARAMETER *C-CALLABLE-STATIC-SYMBOLS* ...) ; x-compiling (DEFPARAMETER *COMMON-STATIC-SYMBOLS* ...) ; x-compiling (DEF!CONSTANT TLS-SIZE ...) ; x-compiling (DEF!CONSTANT MAX-INTERRUPTS ...) ; x-compiling (DEF!CONSTANT +HIGHEST-NORMAL-GENERATION+ ...) ; x-compiling (DEF!CONSTANT +PSEUDO-STATIC-GENERATION+ ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/parms.lisp ; in: DEF!MACRO !CONFIGURE-DYNAMIC-SPACE-END ; (SUBSEQ SB!VM::LINE SB!VM::END) ; ; caught STYLE-WARNING: ; undefined function: VECTOR-SUBSEQ* ; ; compilation unit finished ; Undefined function: ; VECTOR-SUBSEQ* ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/parms.lisp-obj-tmp written ; compilation finished in 0:00:00.058 creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/parms.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEF!CONSTANT N-WORD-BITS ...) ; x-compiling (DEF!CONSTANT N-MACHINE-WORD-BITS ...) ; x-compiling (DEF!CONSTANT N-BYTE-BITS ...) ; x-compiling (DEF!CONSTANT MINIMUM-IMMEDIATE-OFFSET ...) ; x-compiling (DEF!CONSTANT MAXIMUM-IMMEDIATE-OFFSET ...) ; x-compiling (DEF!CONSTANT FLOAT-SIGN-SHIFT ...) ; x-compiling (DEF!CONSTANT SINGLE-FLOAT-BIAS ...) ; x-compiling (DEFCONSTANT-EQX SINGLE-FLOAT-EXPONENT-BYTE ...) ; x-compiling (DEFCONSTANT-EQX SINGLE-FLOAT-SIGNIFICAND-BYTE ...) ; x-compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MIN ...) ; x-compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MAX ...) ; x-compiling (DEF!CONSTANT SINGLE-FLOAT-HIDDEN-BIT ...) ; x-compiling (DEF!CONSTANT SINGLE-FLOAT-TRAPPING-NAN-BIT ...) ; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-BIAS ...) ; x-compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-EXPONENT-BYTE ...) ; x-compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-SIGNIFICAND-BYTE ...) ; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MIN ...) ; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MAX ...) ; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-HIDDEN-BIT ...) ; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-TRAPPING-NAN-BIT ...) ; x-compiling (DEF!CONSTANT SINGLE-FLOAT-DIGITS ...) ; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-DIGITS ...) ; x-compiling (DEF!CONSTANT FLOAT-INVALID-TRAP-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-DENORMAL-TRAP-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-DIVIDE-BY-ZERO-TRAP-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-OVERFLOW-TRAP-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-UNDERFLOW-TRAP-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-INEXACT-TRAP-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEAREST ...) ; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEGATIVE ...) ; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-POSITIVE ...) ; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-ZERO ...) ; x-compiling (DEFCONSTANT-EQX FLOAT-ROUNDING-MODE ...) ; x-compiling (DEFCONSTANT-EQX FLOAT-STICKY-BITS ...) ; x-compiling (DEFCONSTANT-EQX FLOAT-TRAPS-BYTE ...) ; x-compiling (DEFCONSTANT-EQX FLOAT-EXCEPTIONS-BYTE ...) ; x-compiling (DEF!CONSTANT FLOAT-FAST-BIT ...) ; x-compiling (!GENCGC-SPACE-SETUP 536870912 ...) ; x-compiling (DEF!CONSTANT LINKAGE-TABLE-ENTRY-SIZE ...) ; x-compiling (DEFENUM (:START 8) ...) ; x-compiling (DEFENUM (:START 24) ...) ; x-compiling (DEFVAR *ALLOCATION-POINTER*) ; x-compiling (DEFVAR *BINDING-STACK-POINTER*) ; x-compiling (DEFPARAMETER *STATIC-SYMBOLS* ...) ; x-compiling (DEFPARAMETER *STATIC-FUNS* ...) ; x-compiling (DEFVAR *SIMD-PACK-ELEMENT-TYPES* ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/parms.lisp-obj-tmp written ; compilation finished in 0:00:00.052 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/early-vm.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEF!CONSTANT N-LOWTAG-BITS ...) ; x-compiling (DEF!CONSTANT LOWTAG-MASK ...) ; x-compiling (DEF!CONSTANT LOWTAG-LIMIT ...) ; x-compiling (DEF!CONSTANT N-FIXNUM-TAG-BITS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/early-vm.lisp ; in: DEF!CONSTANT N-FIXNUM-TAG-BITS ; (1- SB!VM:N-LOWTAG-BITS) ; --> - ; ==> ; SB!VM:N-LOWTAG-BITS ; ; note: deleting unreachable code ; x-compiling (DEF!CONSTANT FIXNUM-TAG-MASK ...) ; x-compiling (DEF!CONSTANT N-FIXNUM-BITS ...) ; x-compiling (DEF!CONSTANT N-POSITIVE-FIXNUM-BITS ...) ; x-compiling (DEF!CONSTANT WORD-SHIFT ...) ; x-compiling (DEF!CONSTANT N-WORD-BYTES ...) ; x-compiling (DEF!CONSTANT N-WIDETAG-BITS ...) ; x-compiling (DEF!CONSTANT WIDETAG-MASK ...) ; x-compiling (DEF!CONSTANT SB-XC:MOST-POSITIVE-FIXNUM ...) ; x-compiling (DEF!CONSTANT SB-XC:MOST-NEGATIVE-FIXNUM ...) ; x-compiling (DEF!CONSTANT MOST-POSITIVE-WORD ...) ; x-compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...) ; x-compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...) ; x-compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...) ; x-compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...) ; x-compiling (DEF!CONSTANT MAX-DYNAMIC-SPACE-END ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/early-vm.lisp ; in: DEF!CONSTANT MAX-DYNAMIC-SPACE-END ; (MIN SB!VM::STOP SB!VM::OTHER-START) ; --> LET ; ==> ; SB!VM::STOP ; ; note: deleting unreachable code ; --> LET LET MIN LET ; ==> ; SB!VM::OTHER-START ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 3 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/early-vm.lisp-obj-tmp written ; compilation finished in 0:00:00.052 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/early-objdef.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFENUM NIL ...) ; x-compiling (DEF!CONSTANT NIL-VALUE ...) ; x-compiling (DEFCONSTANT-EQX FIXNUM-LOWTAGS ...) ; x-compiling (DEFENUM (:START # ...) ...) ; x-compiling (DEFENUM NIL ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/early-objdef.lisp-obj-tmp written ; compilation finished in 0:00:00.058 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-array.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!CONSTANT SB-XC:ARRAY-RANK-LIMIT ...) ; x-compiling (DEF!CONSTANT SB-XC:ARRAY-DIMENSION-LIMIT ...) ; x-compiling (DEF!CONSTANT SB-XC:ARRAY-TOTAL-SIZE-LIMIT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-array.lisp-obj-tmp written ; compilation finished in 0:00:00.035 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-extensions.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *CORE-PATHNAME* ...) ; x-compiling (DEFVAR *RUNTIME-PATHNAME* ...) ; x-compiling (DEFGLOBAL *EOF-OBJECT* ...) ; x-compiling (DEFCONSTANT MAX-HASH ...) ; x-compiling (DEF!TYPE HASH ...) ; x-compiling (DEF!TYPE INDEX ...) ; x-compiling (DEF!TYPE INDEX/2 ...) ; x-compiling (DEF!TYPE INDEX-OR-MINUS-1 ...) ; x-compiling (DEF!TYPE UNSIGNED-BYTE-WITH-A-BITE-OUT ...) ; x-compiling (DEF!TYPE SIGNED-BYTE-WITH-A-BITE-OUT ...) ; x-compiling (DEF!TYPE LOAD/STORE-INDEX ...) ; x-compiling (DEFUN DISPLACEMENT-BOUNDS ...) ; x-compiling (DEF!TYPE CONSTANT-DISPLACEMENT ...) ; x-compiling (DEF!TYPE SFUNCTION ...) ; x-compiling (DEF!TYPE TYPE-SPECIFIER ...) ; x-compiling (DEFPARAMETER *DEFAULT-INIT-CHAR-FORM* ...) ; x-compiling (DEF!CONSTANT BELL-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT BACKSPACE-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT TAB-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT LINE-FEED-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT FORM-FEED-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT RETURN-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT ESCAPE-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT RUBOUT-CHAR-CODE ...) ; x-compiling (DEFUN MAYBE-CYCLIC-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN LIST-OF-LENGTH-AT-LEAST-P ...) ; x-compiling (DECLAIM (INLINE SINGLETON-P)) ; x-compiling (DEFUN SINGLETON-P ...) ; x-compiling (DEFUN POSITIVE-PRIMEP ...) ; x-compiling (DEFUN COMPOUND-OBJECT-P ...) ; x-compiling (DEFUN COLLECT-NORMAL-EXPANDER ...) ; x-compiling (DEFUN COLLECT-LIST-EXPANDER ...) ; x-compiling (DEFMACRO COLLECT ...) ; x-compiling (DEFUN MEMQ ...) ; x-compiling (DEFUN ASSQ ...) ; x-compiling (DEFUN DELQ ...) ; x-compiling (DEFUN POSQ ...) ; x-compiling (DECLAIM (INLINE NEQ)) ; x-compiling (DEFUN NEQ ...) ; x-compiling (DECLAIM (INLINE NTH-BUT-WITH-SANE-ARG-ORDER)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NTH-BUT-WITH-SANE-ARG-ORDER ...) ; x-compiling (DEFUN ADJUST-LIST ...) ; x-compiling (DEFMACRO NAMED-LET ...) ; x-compiling (DEFUN FILTER-DOLIST-DECLARATIONS ...) ; x-compiling (DEFMACRO DOVECTOR ...) ; x-compiling (DEFMACRO DOHASH ...) ; x-compiling (DEFMACRO DOPLIST ...) ; x-compiling (DEFVAR *PROFILE-HASH-CACHE* ...) ; x-compiling (DEFVAR *CACHE-VECTOR-SYMBOLS* ...) ; x-compiling (DEFUN DROP-ALL-HASH-CACHES ...) ; x-compiling (DEFMACRO DEFINE-HASH-CACHE ...) ; x-compiling (DEFMACRO DEFUN-CACHED ...) ; x-compiling (DEFMACRO DEFINE-CACHED-SYNONYM ...) ; x-compiling (DEFUN EQUAL-BUT-NO-CAR-RECURSION ...) ; x-compiling (DEFUN %FIND-PACKAGE-OR-LOSE ...) ; x-compiling (DEFUN FIND-UNDELETED-PACKAGE-OR-LOSE ...) ; x-compiling (DECLAIM (INLINE LEGAL-FUN-NAME-P)) ; x-compiling (DEFUN LEGAL-FUN-NAME-P ...) ; x-compiling (DEFTYPE FUNCTION-NAME ...) ; x-compiling (DEFUN LEGAL-FUN-NAME-OR-TYPE-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FUN-NAME-BLOCK-NAME ...) ; x-compiling (DEFUN LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P ...) ; x-compiling (DEFMACRO COLD-FSET ...) ; x-compiling (DEFMACRO ONCE-ONLY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MISSING-ARG ...) ; x-compiling (DEFMACRO AVER ...) ; x-compiling (DEFUN %FAILED-AVER ...) ; x-compiling (DEFUN BUG ...) ; x-compiling (DEFMACRO ENFORCE-TYPE ...) ; x-compiling (DEFUN %FAILED-ENFORCE-TYPE ...) ; x-compiling (DECLAIM (INLINE SWAPPED-ARGS-FUN)) ; x-compiling (DEFUN SWAPPED-ARGS-FUN ...) ; x-compiling (DEFUN TYPE-BOUND-NUMBER ...) ; x-compiling (DEF-CONSTANTLY-FUN CONSTANTLY-T ...) ; x-compiling (DEF-CONSTANTLY-FUN CONSTANTLY-NIL ...) ; x-compiling (DEF-CONSTANTLY-FUN CONSTANTLY-0 ...) ; x-compiling (DEFUN FEATUREP ...) ; x-compiling (DEFMACRO NOT/TYPE ...) ; x-compiling (DEFMACRO AND/TYPE ...) ; x-compiling (DEFUN ANY/TYPE ...) ; x-compiling (DEFUN EVERY/TYPE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN DEFPRINTER-PRIN1 ...) ; x-compiling (DEFUN DEFPRINTER-PRINC ...) ; x-compiling (DEFUN DEFPRINTER-PRINX ...) ; x-compiling (DEFUN DEFPRINTER-PRINT-SPACE ...) ; x-compiling (DEFMACRO DEFPRINTER ...) ; x-compiling (DEFUN PHYSICALIZE-PATHNAME ...) ; x-compiling (DEFUN NORMALIZE-DEPRECATION-REPLACEMENTS ...) ; x-compiling (DEFUN DEPRECATION-ERROR ...) ; x-compiling (DEFUN DEPRECATION-WARNING ...) ; x-compiling (DEFUN DEPRECATED-FUNCTION ...) ; x-compiling (DEFUN DEPRECATION-COMPILER-MACRO ...) ; x-compiling (DEFMACRO DEFINE-DEPRECATED-FUNCTION ...) ; x-compiling (DEFUN CHECK-DEPRECATED-VARIABLE ...) ; x-compiling (DEFMACRO DEFINE-DEPRECATED-VARIABLE ...) ; x-compiling (DEFMACRO AWHEN ...) ; x-compiling (DEFMACRO ACOND ...) ; x-compiling (DEFUN EXTRACT-VAR-DECLS ...) ; x-compiling (DEFMACRO BINDING* ...) ; x-compiling (DEFMACRO DELAY ...) ; x-compiling (DEFUN FORCE ...) ; x-compiling (DEFUN PROMISE-READY-P ...) ; x-compiling (DEFMACRO WITH-REBOUND-IO-SYNTAX ...) ; x-compiling (DEFUN %WITH-REBOUND-IO-SYNTAX ...) ; x-compiling (DEFMACRO WITH-SANE-IO-SYNTAX ...) ; x-compiling (DEFUN CALL-WITH-SANE-IO-SYNTAX ...) ; x-compiling (DEFUN LIST-MEMBERS ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFPARAMETER *EVALUATOR-MODE* ...) ; x-compiling (DEFMACRO DX-FLET ...) ; x-compiling (DEFMACRO DX-LET ...) ; x-compiling NIL ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN FP-ZERO-P ...) ; x-compiling (DEFUN NEG-FP-ZERO ...) ; x-compiling (DEFUN FILE-POSITION-OR-NIL-FOR-ERROR ...) ; x-compiling (DEFUN STREAM-ERROR-POSITION-INFO ...) ; x-compiling (DECLAIM (INLINE SCHWARTZIAN-STABLE-SORT-LIST)) ; x-compiling (DEFUN SCHWARTZIAN-STABLE-SORT-LIST ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-extensions.lisp ; in: DEFGLOBAL *EOF-OBJECT* ; (SB!EXT:DEFGLOBAL SB!INT:*EOF-OBJECT* (MAKE-SYMBOL "EOF-OBJECT")) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!INT:*EOF-OBJECT* ; (UNLESS #:BOUNDP (MAKE-SYMBOL "EOF-OBJECT")) #:BOUNDP ; 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEF!TYPE SB!IMPL::INDEX/2 ; (SB!INT:DEF!TYPE SB!IMPL::INDEX/2 NIL ; (SB!IMPL::BACKQ-LIST 'INTEGER 0 ; (SB!IMPL::BACKQ-LIST ; (FLOOR SB-XC:ARRAY-DIMENSION-LIMIT ; 2)))) ; --> PROGN DEFTYPE PROGN SB!IMPL::%DEFTYPE ; ==> ; (SB!IMPL::%DEFTYPE 'SB!IMPL::INDEX/2) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFTYPE ; in: DEF!TYPE INDEX ; (SB!INT:DEF!TYPE SB!INT:INDEX NIL ; (SB!IMPL::BACKQ-LIST 'INTEGER 0 ; (SB!IMPL::BACKQ-LIST ; SB-XC:ARRAY-DIMENSION-LIMIT))) ; --> PROGN DEFTYPE PROGN SB!IMPL::%DEFTYPE ; ==> ; (SB!IMPL::%DEFTYPE 'SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFTYPE ; in: DEF!TYPE HASH ; (SB!INT:DEF!TYPE SB!INT:HASH NIL ; (SB!IMPL::BACKQ-LIST 'INTEGER 0 SB!INT:MAX-HASH)) ; --> PROGN DEFTYPE PROGN SB!IMPL::%DEFTYPE ; ==> ; (SB!IMPL::%DEFTYPE 'SB!INT:HASH) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFTYPE ; ; caught STYLE-WARNING: ; 8 more uses of undefined function SB!IMPL::%DEFTYPE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-extensions.lisp ; in: DEFUN COMPOUND-OBJECT-P ; (TYPEP SB!IMPL::X '(ARRAY T *)) ; --> LET SB!C::%TYPEP-WRAPPER LET AND IF AND THE DO BLOCK LET TAGBODY ; --> RETURN-FROM PROGN EQ IF EQ ; ==> ; (SB!KERNEL:%OTHER-POINTER-WIDETAG #:DATA160) ; ; caught STYLE-WARNING: ; undefined function: %OTHER-POINTER-WIDETAG ; in: DEFMACRO COLLECT ; (CONCATENATE 'STRING (SYMBOL-NAME SB!IMPL::NAME) "-N-VALUE-") ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SB!IMPL::COLLECT-LIST-EXPANDER ; (MAPCAR ; (LAMBDA (SB!KERNEL:FORM) ; (SB!IMPL::BACKQ-LIST 'LET ; (SB!IMPL::BACKQ-LIST ; (SB!IMPL::BACKQ-LIST SB!IMPL::N-RES #)) ; (SB!IMPL::BACKQ-LIST 'COND ; (SB!IMPL::BACKQ-LIST ; SB!IMPL::N-TAIL # #) ; (SB!IMPL::BACKQ-LIST 'T #)))) ; SB!IMPL::FORMS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SB!IMPL::COLLECT-NORMAL-EXPANDER ; (MAPCAR ; (LAMBDA (SB!KERNEL:FORM) ; (SB!IMPL::BACKQ-LIST 'SETQ SB!IMPL::N-VALUE ; (SB!IMPL::BACKQ-LIST SB!IMPL::FUN SB!KERNEL:FORM ; SB!IMPL::N-VALUE))) ; SB!IMPL::FORMS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 23 more uses of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-extensions.lisp ; in: DEFTYPE SB!IMPL::FUNCTION-NAME ; (DEFTYPE SB!IMPL::FUNCTION-NAME () '(SATISFIES SB!INT:LEGAL-FUN-NAME-P)) ; --> PROGN EVAL-WHEN SB!IMPL::%COMPILER-DEFTYPE SB!IMPL::%COMPILER-DEFTYPE ; ==> ; (SB!IMPL::CONSTANT-TYPE-EXPANDER '(SATISFIES SB!INT:LEGAL-FUN-NAME-P)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::CONSTANT-TYPE-EXPANDER ; in: DEF!TYPE TYPE-SPECIFIER ; (SB!INT:DEF!TYPE SB!KERNEL:TYPE-SPECIFIER NIL ; '(OR LIST SYMBOL SB!KERNEL:INSTANCE)) ; --> PROGN DEFTYPE PROGN EVAL-WHEN SB!IMPL::%COMPILER-DEFTYPE ; --> SB!IMPL::%COMPILER-DEFTYPE ; ==> ; (SB!IMPL::CONSTANT-TYPE-EXPANDER '(OR LIST SYMBOL SB!KERNEL:INSTANCE)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::CONSTANT-TYPE-EXPANDER ; in: DEFUN SB!IMPL::EXTRACT-VAR-DECLS ; (SB!INT:INFO :TYPE :KIND SB!IMPL::ID) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SB!IMPL::ID 22) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; in: DEFUN CHECK-DEPRECATED-VARIABLE ; (SB!INT:INFO :VARIABLE :DEPRECATED SB!IMPL::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SB!IMPL::NAME 15) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; in: DEFUN SB!IMPL::EXTRACT-VAR-DECLS ; (SB!INT:INFO :TYPE :KIND SB!IMPL::ID) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN CHECK-DEPRECATED-VARIABLE ; (SB!INT:INFO :VARIABLE :DEPRECATED SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN STREAM-ERROR-POSITION-INFO ; (INTERACTIVE-STREAM-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: INTERACTIVE-STREAM-P ; in: DEFMACRO DEFUN-CACHED ; (DEFMACRO SB!INT:DEFUN-CACHED ; ((SB!IMPL::NAME ; &REST SB!IMPL::OPTIONS ; &KEY (VALUES 1) SB!IMPL::DEFAULT ; (SB!IMPL::MEMOIZER ; (MAKE-SYMBOL "MEMOIZE") ; SB!IMPL::MEMOIZER-SUPPLIED-P) ; &ALLOW-OTHER-KEYS) ; SB!IMPL::ARGS ; &BODY SB!IMPL::BODY-DECLS-DOC) ; (LET ((SB!IMPL::DEFAULT-VALUES ; (IF # ; # ; #)) ; (SB!IMPL::ARG-NAMES (MAPCAR #'CAR SB!IMPL::ARGS)) ; (SB!IMPL::VALUES-NAMES (SB!INT:MAKE-GENSYM-LIST VALUES))) ; (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 ; (SB!IMPL::BACKQ-LIST* 'SB!INT:DEFINE-HASH-CACHE ; SB!IMPL::NAME SB!IMPL::ARGS ; SB!IMPL::OPTIONS) ; (SB!IMPL::BACKQ-LIST* 'DEFUN SB!IMPL::NAME ; SB!IMPL::ARG-NAMES #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::KEYWORD-SUPPLIED-P :DEFAULT #:KEYWORDS-1637) ; ; caught STYLE-WARNING: ; undefined function: KEYWORD-SUPPLIED-P ; in: DEFMACRO DEFINE-HASH-CACHE ; (DEFMACRO SB!INT:DEFINE-HASH-CACHE ; (SB!IMPL::NAME SB!IMPL::ARGS ; &KEY SB!IMPL::HASH-FUNCTION SB!IMPL::HASH-BITS SB!IMPL::MEMOIZER ; SB!IMPL::DEFAULT (SB!IMPL::INIT-WRAPPER 'PROGN) (VALUES 1)) ; (DECLARE (IGNORE SB!IMPL::MEMOIZER)) ; (LET* ((SB!IMPL::VAR-NAME ; (SB!INT:SYMBOLICATE "**" SB!IMPL::NAME "-CACHE-VECTOR**")) ; (SB!IMPL::STATISTICS-NAME (WHEN SB!IMPL::*PROFILE-HASH-CACHE* #)) ; (SB!IMPL::NARGS (LENGTH SB!IMPL::ARGS)) ; (SB!IMPL::SIZE (ASH 1 SB!IMPL::HASH-BITS)) ; (SB!IMPL::DEFAULT-VALUES ; (IF # ; # ; #)) ; (SB!IMPL::ARGS-AND-VALUES (SB-XC:GENSYM "ARGS-AND-VALUES")) ; (SB!IMPL::N-INDEX (SB-XC:GENSYM "INDEX")) ; (SB!IMPL::N-CACHE (SB-XC:GENSYM "CACHE"))) ; (DECLARE (IGNORABLE SB!IMPL::STATISTICS-NAME)) ; (ASSERT (TYPEP SB!IMPL::HASH-BITS '(INTEGER 5 14))) ; (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::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* ; (SB!IMPL::INITS #) ; (SB!IMPL::FORMS #)) ; (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::INITS (SB!IMPL::BACKQ-LIST* 'SETQ SB!IMPL::VAR-NAME '#)) ; (SB!IMPL::BACKQ-LIST* 'PROGN (SB!IMPL::BACKQ-LIST* 'PUSHNEW # '#) ; (SB!IMPL::BACKQ-LIST* 'SB!EXT:DEFGLOBAL ; SB!IMPL::VAR-NAME '#) ; (SB!IMPL::BACKQ-APPEND # #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::KEYWORD-SUPPLIED-P :DEFAULT #:KEYWORDS-1573) ; ; caught STYLE-WARNING: ; undefined function: KEYWORD-SUPPLIED-P ; in: DEFMACRO DOHASH ; (DEFMACRO SB!INT:DOHASH ; (((SB!IMPL::KEY-VAR SB!IMPL::VALUE-VAR) SB!IMPL::TABLE ; &KEY SB!IMPL::RESULT SB!IMPL::LOCKED) ; &BODY SB!IMPL::BODY) ; (MULTIPLE-VALUE-BIND (SB!IMPL::FORMS SB!IMPL::DECLS) ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; (SB!INT:WITH-UNIQUE-NAMES (SB!IMPL::GEN SB!IMPL::N-MORE SB!IMPL::N-TABLE) ; (LET (#) ; (SB!IMPL::BACKQ-LIST 'LET # #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::KEYWORD-SUPPLIED-P :LOCKED #:KEYWORDS-1562) ; ; caught STYLE-WARNING: ; undefined function: KEYWORD-SUPPLIED-P ; ; caught STYLE-WARNING: ; 2 more uses of undefined function KEYWORD-SUPPLIED-P ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-extensions.lisp ; in: DEFUN SB!IMPL::DEFPRINTER-PRINC ; (DEFUN SB!IMPL::DEFPRINTER-PRINC (SB!IMPL::NAME SB!IMPL::VALUE STREAM) ; (SB!IMPL::DEFPRINTER-PRINX #'PRINC SB!IMPL::NAME SB!IMPL::VALUE STREAM)) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT1751 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN SB!IMPL::DEFPRINTER-PRIN1 ; (DEFUN SB!IMPL::DEFPRINTER-PRIN1 (SB!IMPL::NAME SB!IMPL::VALUE STREAM) ; (SB!IMPL::DEFPRINTER-PRINX #'PRIN1 SB!IMPL::NAME SB!IMPL::VALUE STREAM)) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT1743 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFMACRO DEFUN-CACHED ; (DEFMACRO SB!INT:DEFUN-CACHED ; ((SB!IMPL::NAME ; &REST SB!IMPL::OPTIONS ; &KEY (VALUES 1) SB!IMPL::DEFAULT ; (SB!IMPL::MEMOIZER ; (MAKE-SYMBOL "MEMOIZE") ; SB!IMPL::MEMOIZER-SUPPLIED-P) ; &ALLOW-OTHER-KEYS) ; SB!IMPL::ARGS ; &BODY SB!IMPL::BODY-DECLS-DOC) ; (LET ((SB!IMPL::DEFAULT-VALUES ; (IF # ; # ; #)) ; (SB!IMPL::ARG-NAMES (MAPCAR #'CAR SB!IMPL::ARGS)) ; (SB!IMPL::VALUES-NAMES (SB!INT:MAKE-GENSYM-LIST VALUES))) ; (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 ; (SB!IMPL::BACKQ-LIST* 'SB!INT:DEFINE-HASH-CACHE ; SB!IMPL::NAME SB!IMPL::ARGS ; SB!IMPL::OPTIONS) ; (SB!IMPL::BACKQ-LIST* 'DEFUN SB!IMPL::NAME ; SB!IMPL::ARG-NAMES #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::LOOKUP-KEYWORD ':MEMOIZER #:KEYWORDS-1637) ; ; caught STYLE-WARNING: ; undefined function: LOOKUP-KEYWORD ; in: DEFMACRO DEFINE-HASH-CACHE ; (DEFMACRO SB!INT:DEFINE-HASH-CACHE ; (SB!IMPL::NAME SB!IMPL::ARGS ; &KEY SB!IMPL::HASH-FUNCTION SB!IMPL::HASH-BITS SB!IMPL::MEMOIZER ; SB!IMPL::DEFAULT (SB!IMPL::INIT-WRAPPER 'PROGN) (VALUES 1)) ; (DECLARE (IGNORE SB!IMPL::MEMOIZER)) ; (LET* ((SB!IMPL::VAR-NAME ; (SB!INT:SYMBOLICATE "**" SB!IMPL::NAME "-CACHE-VECTOR**")) ; (SB!IMPL::STATISTICS-NAME (WHEN SB!IMPL::*PROFILE-HASH-CACHE* #)) ; (SB!IMPL::NARGS (LENGTH SB!IMPL::ARGS)) ; (SB!IMPL::SIZE (ASH 1 SB!IMPL::HASH-BITS)) ; (SB!IMPL::DEFAULT-VALUES ; (IF # ; # ; #)) ; (SB!IMPL::ARGS-AND-VALUES (SB-XC:GENSYM "ARGS-AND-VALUES")) ; (SB!IMPL::N-INDEX (SB-XC:GENSYM "INDEX")) ; (SB!IMPL::N-CACHE (SB-XC:GENSYM "CACHE"))) ; (DECLARE (IGNORABLE SB!IMPL::STATISTICS-NAME)) ; (ASSERT (TYPEP SB!IMPL::HASH-BITS '(INTEGER 5 14))) ; (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::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* ; (SB!IMPL::INITS #) ; (SB!IMPL::FORMS #)) ; (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::INITS (SB!IMPL::BACKQ-LIST* 'SETQ SB!IMPL::VAR-NAME '#)) ; (SB!IMPL::BACKQ-LIST* 'PROGN (SB!IMPL::BACKQ-LIST* 'PUSHNEW # '#) ; (SB!IMPL::BACKQ-LIST* 'SB!EXT:DEFGLOBAL ; SB!IMPL::VAR-NAME '#) ; (SB!IMPL::BACKQ-APPEND # #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::LOOKUP-KEYWORD ':VALUES #:KEYWORDS-1573) ; ; caught STYLE-WARNING: ; undefined function: LOOKUP-KEYWORD ; in: DEFMACRO DOHASH ; (DEFMACRO SB!INT:DOHASH ; (((SB!IMPL::KEY-VAR SB!IMPL::VALUE-VAR) SB!IMPL::TABLE ; &KEY SB!IMPL::RESULT SB!IMPL::LOCKED) ; &BODY SB!IMPL::BODY) ; (MULTIPLE-VALUE-BIND (SB!IMPL::FORMS SB!IMPL::DECLS) ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; (SB!INT:WITH-UNIQUE-NAMES (SB!IMPL::GEN SB!IMPL::N-MORE SB!IMPL::N-TABLE) ; (LET (#) ; (SB!IMPL::BACKQ-LIST 'LET # #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::LOOKUP-KEYWORD :LOCKED #:KEYWORDS-1562) ; ; caught STYLE-WARNING: ; undefined function: LOOKUP-KEYWORD ; ; caught STYLE-WARNING: ; 2 more uses of undefined function LOOKUP-KEYWORD ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-extensions.lisp ; in: DEFUN NEG-FP-ZERO ; (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO) ; ; caught STYLE-WARNING: ; undefined function: MAKE-UNPORTABLE-FLOAT ; in: DEFMACRO DEFUN-CACHED ; (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; in: DEFMACRO DOHASH ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; in: DEFMACRO DOVECTOR ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; ; caught STYLE-WARNING: ; 1 more use of undefined function PARSE-BODY ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-extensions.lisp ; in: DEFUN SB!IMPL::DEFPRINTER-PRINC ; (DEFUN SB!IMPL::DEFPRINTER-PRINC (SB!IMPL::NAME SB!IMPL::VALUE STREAM) ; (SB!IMPL::DEFPRINTER-PRINX #'PRINC SB!IMPL::NAME SB!IMPL::VALUE STREAM)) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT1751 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN SB!IMPL::DEFPRINTER-PRIN1 ; (DEFUN SB!IMPL::DEFPRINTER-PRIN1 (SB!IMPL::NAME SB!IMPL::VALUE STREAM) ; (SB!IMPL::DEFPRINTER-PRINX #'PRIN1 SB!IMPL::NAME SB!IMPL::VALUE STREAM)) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT1743 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFMACRO DEFUN-CACHED ; (DEFMACRO SB!INT:DEFUN-CACHED ; ((SB!IMPL::NAME ; &REST SB!IMPL::OPTIONS ; &KEY (VALUES 1) SB!IMPL::DEFAULT ; (SB!IMPL::MEMOIZER ; (MAKE-SYMBOL "MEMOIZE") ; SB!IMPL::MEMOIZER-SUPPLIED-P) ; &ALLOW-OTHER-KEYS) ; SB!IMPL::ARGS ; &BODY SB!IMPL::BODY-DECLS-DOC) ; (LET ((SB!IMPL::DEFAULT-VALUES ; (IF # ; # ; #)) ; (SB!IMPL::ARG-NAMES (MAPCAR #'CAR SB!IMPL::ARGS)) ; (SB!IMPL::VALUES-NAMES (SB!INT:MAKE-GENSYM-LIST VALUES))) ; (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 ; (SB!IMPL::BACKQ-LIST* 'SB!INT:DEFINE-HASH-CACHE ; SB!IMPL::NAME SB!IMPL::ARGS ; SB!IMPL::OPTIONS) ; (SB!IMPL::BACKQ-LIST* 'DEFUN SB!IMPL::NAME ; SB!IMPL::ARG-NAMES #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-1637 '(:MEMOIZER :DEFAULT :VALUES) 'T ; NIL) ; ; caught STYLE-WARNING: ; undefined function: VERIFY-KEYWORDS ; in: DEFMACRO DEFINE-HASH-CACHE ; (DEFMACRO SB!INT:DEFINE-HASH-CACHE ; (SB!IMPL::NAME SB!IMPL::ARGS ; &KEY SB!IMPL::HASH-FUNCTION SB!IMPL::HASH-BITS SB!IMPL::MEMOIZER ; SB!IMPL::DEFAULT (SB!IMPL::INIT-WRAPPER 'PROGN) (VALUES 1)) ; (DECLARE (IGNORE SB!IMPL::MEMOIZER)) ; (LET* ((SB!IMPL::VAR-NAME ; (SB!INT:SYMBOLICATE "**" SB!IMPL::NAME "-CACHE-VECTOR**")) ; (SB!IMPL::STATISTICS-NAME (WHEN SB!IMPL::*PROFILE-HASH-CACHE* #)) ; (SB!IMPL::NARGS (LENGTH SB!IMPL::ARGS)) ; (SB!IMPL::SIZE (ASH 1 SB!IMPL::HASH-BITS)) ; (SB!IMPL::DEFAULT-VALUES ; (IF # ; # ; #)) ; (SB!IMPL::ARGS-AND-VALUES (SB-XC:GENSYM "ARGS-AND-VALUES")) ; (SB!IMPL::N-INDEX (SB-XC:GENSYM "INDEX")) ; (SB!IMPL::N-CACHE (SB-XC:GENSYM "CACHE"))) ; (DECLARE (IGNORABLE SB!IMPL::STATISTICS-NAME)) ; (ASSERT (TYPEP SB!IMPL::HASH-BITS '(INTEGER 5 14))) ; (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::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* ; (SB!IMPL::INITS #) ; (SB!IMPL::FORMS #)) ; (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::INITS (SB!IMPL::BACKQ-LIST* 'SETQ SB!IMPL::VAR-NAME '#)) ; (SB!IMPL::BACKQ-LIST* 'PROGN (SB!IMPL::BACKQ-LIST* 'PUSHNEW # '#) ; (SB!IMPL::BACKQ-LIST* 'SB!EXT:DEFGLOBAL ; SB!IMPL::VAR-NAME '#) ; (SB!IMPL::BACKQ-APPEND # #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-1573 ; '(:VALUES :INIT-WRAPPER :DEFAULT :MEMOIZER ; :HASH-BITS :HASH-FUNCTION) ; 'NIL NIL) ; ; caught STYLE-WARNING: ; undefined function: VERIFY-KEYWORDS ; in: DEFMACRO DOHASH ; (DEFMACRO SB!INT:DOHASH ; (((SB!IMPL::KEY-VAR SB!IMPL::VALUE-VAR) SB!IMPL::TABLE ; &KEY SB!IMPL::RESULT SB!IMPL::LOCKED) ; &BODY SB!IMPL::BODY) ; (MULTIPLE-VALUE-BIND (SB!IMPL::FORMS SB!IMPL::DECLS) ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; (SB!INT:WITH-UNIQUE-NAMES (SB!IMPL::GEN SB!IMPL::N-MORE SB!IMPL::N-TABLE) ; (LET (#) ; (SB!IMPL::BACKQ-LIST 'LET # #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-1562 '(:LOCKED :RESULT) 'NIL NIL) ; ; caught STYLE-WARNING: ; undefined function: VERIFY-KEYWORDS ; ; caught STYLE-WARNING: ; 2 more uses of undefined function VERIFY-KEYWORDS ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!IMPL::%DEFGLOBAL SB!IMPL::%DEFTYPE %OTHER-POINTER-WIDETAG SB!IMPL::CONSTANT-TYPE-EXPANDER SB!C::GET-INFO-VALUE INFO INTERACTIVE-STREAM-P KEYWORD-SUPPLIED-P LAYOUT-INVALID LOOKUP-KEYWORD MAKE-UNPORTABLE-FLOAT PARSE-BODY UPDATE-OBJECT-LAYOUT-OR-INVALID VERIFY-KEYWORDS ; caught 38 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-extensions.lisp-obj-tmp written ; compilation finished in 0:00:00.941 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/parse-body.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!INT") ; x-compiling (/SHOW0 "entering parse-body.lisp") ; x-compiling (DEFUN PARSE-BODY ...) ; x-compiling (/SHOW0 "leaving parse-body.lisp") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/parse-body.lisp-obj-tmp written ; compilation finished in 0:00:00.942 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/parse-defmacro.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFVAR *ARG-TESTS*) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *SYSTEM-LETS*) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *USER-LETS*) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *ENV-VAR*) ; x-compiling (DEFVAR *DEFAULT-DEFAULT*) ; x-compiling (DEFVAR *IGNORABLE-VARS*) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFUN PARSE-DEFMACRO ...) ; x-compiling (DEFUN PARSE-DEFMACRO-LAMBDA-LIST ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/parse-defmacro.lisp ; in: DEFUN PARSE-DEFMACRO-LAMBDA-LIST ; (SB!IMPL::BACKQ-LIST 'CAR SB!KERNEL::PATH) ; ==> ; SB!KERNEL::PATH ; ; note: deleting unreachable code ; x-compiling (DEFUN ARG-COUNT-ERROR ...) ; x-compiling (DEFUN PUSH-SUBLIST-BINDING ...) ; x-compiling (DEFUN PUSH-LET-BINDING ...) ; x-compiling (DEFUN PUSH-OPTIONAL-BINDING ...) ; x-compiling (DEFUN DEFMACRO-ERROR ...) ; x-compiling (DEFUN CHECK-DEFMACRO-ARG ...) ; x-compiling (DEFUN VERIFY-KEYWORDS ...) ; x-compiling (DEFUN LOOKUP-KEYWORD ...) ; x-compiling (DEFUN KEYWORD-SUPPLIED-P ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/parse-defmacro.lisp ; in: DEFUN PARSE-DEFMACRO ; (SB!INT:BAD-TYPE SB!KERNEL::LAMBDA-LIST 'LIST ; "~S lambda-list is not a list: ~S" SB!KERNEL::CONTEXT SB!KERNEL::LAMBDA-LIST) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; ; compilation unit finished ; Undefined function: ; BAD-TYPE ; caught 1 STYLE-WARNING condition ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/parse-defmacro.lisp-obj-tmp written ; compilation finished in 0:00:00.249 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/deftype.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN CONSTANT-TYPE-EXPANDER ...) ; x-compiling (DEFUN %DEFTYPE ...) ; x-compiling (DEF!MACRO SB-XC:DEFTYPE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/deftype.lisp ; in: DEFUN %DEFTYPE ; (SETF (SB!KERNEL:CLASSOID-CELL-PCL-CLASS ; (SB!KERNEL:FIND-CLASSOID-CELL SB!IMPL::NAME :CREATE T)) ; NIL) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:CLASSOID-CELL-PCL-CLASS) #:NEW2 #:G3) ; ; caught STYLE-WARNING: ; undefined function: (SETF CLASSOID-CELL-PCL-CLASS) ; in: DEF!MACRO SB-XC:DEFTYPE ; (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~% ~S" ; SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; in: DEFUN %DEFTYPE ; (SB!KERNEL:FIND-CLASSOID-CELL SB!IMPL::NAME :CREATE T) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID-CELL ; ; compilation unit finished ; Undefined functions: ; (SETF CLASSOID-CELL-PCL-CLASS) BAD-TYPE FIND-CLASSOID-CELL ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/deftype.lisp-obj-tmp written ; compilation finished in 0:00:01.237 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/defconstant.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!MACRO SB-XC:DEFCONSTANT ...) ; x-compiling (DEFUN SB!C::%DEFCONSTANT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/defconstant.lisp ; in: DEFUN SB!C::%DEFCONSTANT ; (SETF (SB!KERNEL:FDOCUMENTATION SB!IMPL::NAME 'VARIABLE) SB!IMPL::DOC) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW45 #:NAME46 'VARIABLE) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; (SETF (SB!INT:INFO :SOURCE-LOCATION :CONSTANT SB!IMPL::NAME) ; SB!IMPL::SOURCE-LOCATION) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!INT:INFO) #:NEW16 :SOURCE-LOCATION :CONSTANT ; #:NAME17) ; ; caught STYLE-WARNING: ; undefined function: (SETF INFO) ; (WITH-SIMPLE-RESTART (ABORT "Keep the old value.") ; (CERROR "Go ahead and change the value." 'SB!EXT:DEFCONSTANT-UNEQL :NAME ; SB!IMPL::NAME :OLD-VALUE SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; --> WITH-CONDITION-RESTARTS LET UNWIND-PROTECT FLET BLOCK DOLIST BLOCK LET ; --> TAGBODY UNLESS IF PROGN LET TAGBODY POP LET* FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:RESTART-ASSOCIATED-CONDITIONS) #:NEW35 ; #:RESTART2836) ; ; caught STYLE-WARNING: ; undefined function: (SETF RESTART-ASSOCIATED-CONDITIONS) ; (SB!INT:ABOUT-TO-MODIFY-SYMBOL-VALUE SB!IMPL::NAME 'DEFCONSTANT) ; ; caught STYLE-WARNING: ; undefined function: ABOUT-TO-MODIFY-SYMBOL-VALUE ; (SB!INT:CLEAR-INFO :VARIABLE :MACRO-EXPANSION SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: CLEAR-INFO ; ==> ; (SB!C::CLEAR-INFO-VALUE SB!IMPL::NAME 18) ; ; caught STYLE-WARNING: ; undefined function: SB!C::CLEAR-INFO-VALUE ; (WITH-SIMPLE-RESTART (ABORT "Keep the old value.") ; (CERROR "Go ahead and change the value." 'SB!EXT:DEFCONSTANT-UNEQL :NAME ; SB!IMPL::NAME :OLD-VALUE SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION 'SB!EXT:DEFCONSTANT-UNEQL ; (LIST :NAME SB!IMPL::NAME :OLD-VALUE ; SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE) ; 'SIMPLE-ERROR 'CERROR) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; (SB!INT:INFO :VARIABLE :KIND SB!IMPL::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SB!IMPL::NAME 13) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; ; caught STYLE-WARNING: ; undefined function: INFO ; (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 'ABORT ; (LAMBDA () (LOCALLY (DECLARE (OPTIMIZE #)) (GO #:TAG25))) ; #'(LAMBDA (#:STREAM2166) (FORMAT #:STREAM2166 "Keep the old value.")) NIL) ; ; caught STYLE-WARNING: ; undefined function: MAKE-RESTART ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; --> WITH-CONDITION-RESTARTS LET UNWIND-PROTECT FLET BLOCK DOLIST BLOCK LET ; --> TAGBODY UNLESS IF PROGN LET TAGBODY POP LET* ; ==> ; (SB!KERNEL:RESTART-ASSOCIATED-CONDITIONS #:RESTART2836) ; ; caught STYLE-WARNING: ; undefined function: RESTART-ASSOCIATED-CONDITIONS ; (SETF (SB!INT:INFO :SOURCE-LOCATION :CONSTANT SB!IMPL::NAME) ; SB!IMPL::SOURCE-LOCATION) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB!C::%FUNCALL (SETF SB!INT:INFO) ; --> LET LET ; ==> ; (SB!C::SET-INFO-VALUE #:NAME17 47 #:NEW18) ; ; caught STYLE-WARNING: ; undefined type: SB!C::TYPE-NUMBER ; ; compilation unit finished ; Undefined types: ; CONDITION SB!C::TYPE-NUMBER ; Undefined functions: ; (SETF FDOCUMENTATION) (SETF INFO) (SETF RESTART-ASSOCIATED-CONDITIONS) ABOUT-TO-MODIFY-SYMBOL-VALUE CLEAR-INFO SB!C::CLEAR-INFO-VALUE SB!C::GET-INFO-VALUE INFO SB!C::MAKE-DEFINITION-SOURCE-LOCATION MAKE-RESTART RESTART-ASSOCIATED-CONDITIONS ; caught 13 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/defconstant.lisp-obj-tmp written ; compilation finished in 0:00:00.055 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-alieneval.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (DEFVAR *ALIEN-TYPE-CLASSES* ...) ; x-compiling (DEFVAR *NEW-AUXILIARY-TYPES* ...) ; x-compiling (DEFVAR *RECORD-TYPES-ALREADY-UNPARSED*) ; x-compiling (DEFVAR *VALUES-TYPE-OKAY* ...) ; x-compiling (DEFVAR *DEFAULT-C-STRING-EXTERNAL-FORMAT* ...) ; x-compiling (DEFVAR *SAVED-FP-AND-PCS*) ; x-compiling (DECLAIM (INLINE INVOKE-WITH-SAVED-FP-AND-PC)) ; x-compiling (DEFUN INVOKE-WITH-SAVED-FP-AND-PC ...) ; x-compiling (DEFUN FIND-SAVED-FP-AND-PC ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-alieneval.lisp ; in: DEFUN INVOKE-WITH-SAVED-FP-AND-PC ; (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-alieneval.lisp-obj-tmp written ; compilation finished in 0:00:00.040 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/specializable-array.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFTYPE SPECIALIZABLE ...) ; x-compiling (DEFTYPE SPECIALIZABLE-VECTOR ...) ; x-compiling (DECLAIM (INLINE MAKE-SPECIALIZABLE-ARRAY)) ; x-compiling (DEFUN MAKE-SPECIALIZABLE-ARRAY ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/specializable-array.lisp-obj-tmp written ; compilation finished in 0:00:00.026 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-cl.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (PROCLAIM (QUOTE #)) ; x-compiling (DEFPARAMETER *!STANDARD-TYPE-NAMES* ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-cl.lisp-obj-tmp written ; compilation finished in 0:00:00.020 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-fasl.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!FASL") ; x-compiling (DEFPARAMETER *FASL-HEADER-STRING-START-STRING* ...) ; x-compiling (DEFINE-FASL-FORMAT-FEATURES) ; x-compiling (DEF!CONSTANT +FASL-HEADER-STRING-STOP-CHAR-CODE+ ...) ; x-compiling (DEF!CONSTANT +FASL-FILE-VERSION+ ...) ; x-compiling (DECLAIM (TYPE SIMPLE-STRING ...)) ; x-compiling (DEFVAR *FASL-FILE-TYPE* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *ASSEMBLER-ROUTINES* ...) ; x-compiling (DECLAIM (SIMPLE-VECTOR *FOP-NAMES* ...)) ; x-compiling (DEFVAR *FOP-NAMES* ...) ; x-compiling (DEFVAR *FOP-FUNS* ...) ; x-compiling (DEFVAR *LOAD-DEPTH* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFVAR *FASL-INPUT-STREAM*) ; x-compiling (DECLAIM (TYPE ANSI-STREAM ...)) ; x-compiling (DEFVAR *LOAD-CODE-VERBOSE* ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-fasl.lisp ; in: DECLAIM (TYPE ANSI-STREAM *FASL-INPUT-STREAM*) ; (DECLAIM (TYPE SB!KERNEL:ANSI-STREAM SB!FASL::*FASL-INPUT-STREAM*)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(TYPE SB!KERNEL:ANSI-STREAM SB!FASL::*FASL-INPUT-STREAM*)) ; ; caught STYLE-WARNING: ; undefined type: ANSI-STREAM ; ; compilation unit finished ; Undefined type: ; ANSI-STREAM ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-fasl.lisp-obj-tmp written ; compilation finished in 0:00:00.038 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/debug-var-io.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN %READ-VAR-INTEGER ...) ; x-compiling (DEFMACRO READ-VAR-INTEGER ...) ; x-compiling (DEFUN WRITE-VAR-INTEGER ...) ; x-compiling (DEFMACRO READ-VAR-STRING ...) ; x-compiling (DEFUN WRITE-VAR-STRING ...) ; x-compiling (DEFMACRO READ-PACKED-BIT-VECTOR ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/debug-var-io.lisp-obj-tmp written ; compilation finished in 0:00:00.052 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-thread.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!THREAD") ; x-compiling (DEFVAR *CURRENT-THREAD* ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-thread.lisp-obj-tmp written ; compilation finished in 0:00:00.023 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-defbangmethod.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *DELAYED-DEF!METHOD-ARGS* ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-defbangmethod.lisp-obj-tmp written ; compilation finished in 0:00:00.014 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-print.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *CURRENT-LEVEL-IN-PRINT* ...) ; x-compiling (DEFMACRO DESCEND-INTO ...) ; x-compiling (DEFMACRO PUNT-PRINT-IF-TOO-LONG ...) ; x-compiling (DEFVAR *CIRCULARITY-HASH-TABLE* ...) ; x-compiling (DEFVAR *CIRCULARITY-COUNTER* ...) ; x-compiling (DEFUN CHECK-FOR-CIRCULARITY ...) ; x-compiling (DEFUN HANDLE-CIRCULARITY ...) ; x-compiling (DEFMACRO WITH-CIRCULARITY-DETECTION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-print.lisp ; in: DEFUN HANDLE-CIRCULARITY ; (SB!IMPL::OUTPUT-INTEGER (- SB!IMPL::MARKER) STREAM) ; ; caught STYLE-WARNING: ; undefined function: OUTPUT-INTEGER ; ; compilation unit finished ; Undefined function: ; OUTPUT-INTEGER ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-print.lisp-obj-tmp written ; compilation finished in 0:00:00.050 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-pprint.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!PRETTY") ; x-compiling (DEFMACRO WITH-PRETTY-STREAM ...) ; x-compiling (DEFMACRO PPRINT-LOGICAL-BLOCK ...) ; x-compiling (DEFMACRO PPRINT-EXIT-IF-LIST-EXHAUSTED ...) ; x-compiling (DEFMACRO PPRINT-POP ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-pprint.lisp-obj-tmp written ; compilation finished in 0:00:00.055 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-impl.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (SPECIAL *POSIX-ARGV* ...)) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-impl.lisp-obj-tmp written ; compilation finished in 0:00:00.024 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-extensions.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *SAVE-HOOKS* ...) ; x-compiling (DEFVAR *INIT-HOOKS* ...) ; x-compiling (DEFVAR *EXIT-HOOKS* ...) ; x-compiling (DEFUN BINARY-SEARCH ...) ; x-compiling (DEFUN LISTEN-SKIP-WHITESPACE ...) ; x-compiling (DEFUN SIMPLE-PERROR ...) ; x-compiling (DEFMACRO WITH-PUSH-CHAR ...) ; x-compiling (DEFUN POWER-OF-TWO-CEILING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-extensions.lisp ; in: DEFUN SIMPLE-PERROR ; (SB!ALIEN:GET-ERRNO) ; ; caught STYLE-WARNING: ; undefined function: GET-ERRNO ; (SB!INT:STRERROR SB!IMPL::ERRNO) ; ; caught STYLE-WARNING: ; undefined function: STRERROR ; in: DEFUN LISTEN-SKIP-WHITESPACE ; (SB!IMPL::WHITESPACE[1]P CHAR) ; ; caught STYLE-WARNING: ; undefined function: WHITESPACE[1]P ; ; compilation unit finished ; Undefined functions: ; GET-ERRNO STRERROR WHITESPACE[1]P ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-extensions.lisp-obj-tmp written ; compilation finished in 0:00:00.051 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-package.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFVAR *IGNORED-PACKAGE-LOCKS* ...) ; x-compiling (!COLD-INIT-FORMS (SETF *IGNORED-PACKAGE-LOCKS* ...)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFMACRO WITH-SINGLE-PACKAGE-LOCKED-ERROR ...) ; x-compiling (DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...) ; x-compiling (DEFMACRO WITHOUT-PACKAGE-LOCKS ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-PACKAGE-COLD-INIT) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-package.lisp ; in: DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; (SB!IMPL::EVAL-ERROR CONDITION) ; ; caught STYLE-WARNING: ; undefined function: EVAL-ERROR ; ; compilation unit finished ; Undefined function: ; EVAL-ERROR ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-package.lisp-obj-tmp written ; compilation finished in 0:00:00.073 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-defstructs.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "entering early-defstructs.lisp") ; x-compiling (DEFSTRUCT (ALIEN-VALUE) ...) ; x-compiling (/SHOW0 "done with early-defstructs.lisp") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-defstructs.lisp ; in: DEFSTRUCT ALIEN-VALUE ; (DEFSTRUCT (SB!ALIEN-INTERNALS:ALIEN-VALUE) ; (SB!KERNEL::SAP (SB!INT:MISSING-ARG) :TYPE SB!SYS:SYSTEM-AREA-POINTER) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; ; compilation unit finished ; Undefined function: ; %TARGET-DEFSTRUCT ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-defstructs.lisp-obj-tmp written ; compilation finished in 0:00:00.049 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-raw-slots.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEF!TYPE WORD ...) ; x-compiling (DEF!TYPE SB!VM:SIGNED-WORD ...) ; x-compiling (DEFSTRUCT (RAW-SLOT-DATA # ...) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-raw-slots.lisp ; in: DEFSTRUCT RAW-SLOT-DATA ; (DEFSTRUCT (SB!KERNEL::RAW-SLOT-DATA (:COPIER NIL) (:PREDICATE NIL)) ; (SB!KERNEL::RAW-TYPE (SB!INT:MISSING-ARG) :TYPE (OR SYMBOL CONS) :READ-ONLY ; T) ; (SB!KERNEL::ACCESSOR-NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!KERNEL::INIT-VOP (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!KERNEL::N-WORDS (SB!INT:MISSING-ARG) :TYPE ; (AND SB!INT:INDEX (INTEGER 1)) :READ-ONLY T) ; (SB!KERNEL::ALIGNMENT 1 :TYPE (INTEGER 1 2) :READ-ONLY T) ; (SB!KERNEL::COMPARER (SB!INT:MISSING-ARG) :TYPE FUNCTION :READ-ONLY T)) ; ; caught STYLE-WARNING: ; redefining SB!KERNEL::MAKE-RAW-SLOT-DATA in DEFUN ; x-compiling (DECLAIM (FREEZE-TYPE RAW-SLOT-DATA)) ; x-compiling (DEFGLOBAL *RAW-SLOT-DATA-LIST* ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-raw-slots.lisp ; in: DEFGLOBAL *RAW-SLOT-DATA-LIST* ; (SB!EXT:DEFGLOBAL SB!KERNEL::*RAW-SLOT-DATA-LIST* ; (MACROLET ((SB!KERNEL::MAKE-COMPARER ; (SB!KERNEL::ACCESSOR-NAME) ; (SB!IMPL::BACKQ-LIST 'LAMBDA '# '# #))) ; (LET ((SB!KERNEL::DOUBLE-FLOAT-ALIGNMENT 1)) ; (LIST ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE 'SB!EXT:WORD ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/WORD ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/WORD ; :N-WORDS 1 :COMPARER #) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE 'SINGLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/SINGLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/SINGLE ; :N-WORDS 1 :COMPARER #) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE 'DOUBLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/DOUBLE ; :ALIGNMENT ; SB!KERNEL::DOUBLE-FLOAT-ALIGNMENT ; :N-WORDS # :COMPARER ; ...) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE ; 'SB!KERNEL::COMPLEX-SINGLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/COMPLEX-SINGLE ; :N-WORDS # :COMPARER #) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE ; 'SB!KERNEL::COMPLEX-DOUBLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/COMPLEX-DOUBLE ; :ALIGNMENT ; SB!KERNEL::DOUBLE-FLOAT-ALIGNMENT ; :N-WORDS # :COMPARER ; ...))))) ; --> PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (LET ((#:BOUNDP (BOUNDP 'SB!KERNEL::*RAW-SLOT-DATA-LIST*))) ; (SB!IMPL::%COMPILER-DEFGLOBAL 'SB!KERNEL::*RAW-SLOT-DATA-LIST* ; :ALWAYS-BOUND ; (UNLESS #:BOUNDP ; (MACROLET # ; #)) ; (NOT #:BOUNDP)))) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/COMPLEX-DOUBLE ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/COMPLEX-SINGLE ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/DOUBLE ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/SINGLE ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/WORD ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN RAW-SLOT-DATA-OR-LOSE ...) ; x-compiling (DEFUN RAW-SLOT-WORDS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-raw-slots.lisp ; in: DEFGLOBAL *RAW-SLOT-DATA-LIST* ; (SB!EXT:DEFGLOBAL SB!KERNEL::*RAW-SLOT-DATA-LIST* ; (MACROLET ((SB!KERNEL::MAKE-COMPARER ; (SB!KERNEL::ACCESSOR-NAME) ; (SB!IMPL::BACKQ-LIST 'LAMBDA '# '# #))) ; (LET ((SB!KERNEL::DOUBLE-FLOAT-ALIGNMENT 1)) ; (LIST ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE 'SB!EXT:WORD ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/WORD ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/WORD ; :N-WORDS 1 :COMPARER #) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE 'SINGLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/SINGLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/SINGLE ; :N-WORDS 1 :COMPARER #) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE 'DOUBLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/DOUBLE ; :ALIGNMENT ; SB!KERNEL::DOUBLE-FLOAT-ALIGNMENT ; :N-WORDS # :COMPARER ; ...) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE ; 'SB!KERNEL::COMPLEX-SINGLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/COMPLEX-SINGLE ; :N-WORDS # :COMPARER #) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE ; 'SB!KERNEL::COMPLEX-DOUBLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/COMPLEX-DOUBLE ; :ALIGNMENT ; SB!KERNEL::DOUBLE-FLOAT-ALIGNMENT ; :N-WORDS # :COMPARER ; ...))))) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::*RAW-SLOT-DATA-LIST* ; (UNLESS #:BOUNDP ; (MACROLET ((SB!KERNEL::MAKE-COMPARER # ; #)) ; (LET (#) ; (LIST # # # # #)))) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFSTRUCT RAW-SLOT-DATA ; (DEFSTRUCT (SB!KERNEL::RAW-SLOT-DATA (:COPIER NIL) (:PREDICATE NIL)) ; (SB!KERNEL::RAW-TYPE (SB!INT:MISSING-ARG) :TYPE (OR SYMBOL CONS) :READ-ONLY ; T) ; (SB!KERNEL::ACCESSOR-NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!KERNEL::INIT-VOP (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!KERNEL::N-WORDS (SB!INT:MISSING-ARG) :TYPE ; (AND SB!INT:INDEX (INTEGER 1)) :READ-ONLY T) ; (SB!KERNEL::ALIGNMENT 1 :TYPE (INTEGER 1 2) :READ-ONLY T) ; (SB!KERNEL::COMPARER (SB!INT:MISSING-ARG) :TYPE FUNCTION :READ-ONLY T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; ; compilation unit finished ; Undefined functions: ; SB!IMPL::%DEFGLOBAL %TARGET-DEFSTRUCT ; caught 8 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-raw-slots.lisp-obj-tmp written ; compilation finished in 0:00:00.114 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangstruct.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFTYPE DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...) ; x-compiling (DEFVAR *DEF!STRUCT-SUPERTYPE* ...) ; x-compiling (DEFUN DEF!STRUCT-SUPERTYPE ...) ; x-compiling (DEFUN (SETF DEF!STRUCT-SUPERTYPE) ...) ; x-compiling (DEFVAR *DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN* ...) ; x-compiling (DEFUN DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...) ; x-compiling (DEFUN (SETF DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN) ...) ; x-compiling (DEFUN JUST-DUMP-IT-NORMALLY ...) ; x-compiling (DEFUN IGNORE-IT ...) ; x-compiling (DEFUN PARSE-DEF!STRUCT-ARGS ...) ; x-compiling (DEFMACRO DEF!STRUCT ...) ; x-compiling (DEF!STRUCT (STRUCTURE!OBJECT #)) ; x-compiling (DEFUN STRUCTURE!OBJECT-MAKE-LOAD-FORM ...) ; x-compiling (SETF (SYMBOL-FUNCTION #) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defbangstruct.lisp ; in: DEF!STRUCT (STRUCTURE!OBJECT (:CONSTRUCTOR NIL)) ; (SB!INT:DEF!STRUCT (SB!SYS:STRUCTURE!OBJECT (:CONSTRUCTOR NIL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFUN PARSE-DEF!STRUCT-ARGS ; (FIND :INCLUDE SB!KERNEL::OPTIONS :KEY #'FIRST) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB!KERNEL:%FIND-POSITION ; ==> ; (SB!KERNEL:%FIND-POSITION-IF ; (LET ((SB!C::TEST-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::TEST))) ; (LAMBDA (SB!C::I) (FUNCALL SB!C::TEST-FUN SB!C::ITEM SB!C::I))) ; SEQUENCE SB!C::FROM-END SB!C::START SB!C::END ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::KEY)) ; ; caught STYLE-WARNING: ; undefined function: CIRCULAR-LIST-ERROR ; ; compilation unit finished ; Undefined functions: ; %TARGET-DEFSTRUCT CIRCULAR-LIST-ERROR ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/defbangstruct.lisp-obj-tmp written ; compilation finished in 0:00:00.086 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unportable-float.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN MAKE-UNPORTABLE-FLOAT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/unportable-float.lisp-obj-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/funutils.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN IDENTITY ...) ; x-compiling (DEFUN COMPLEMENT ...) ; x-compiling (DEFUN CONSTANTLY ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/funutils.lisp-obj-tmp written ; compilation finished in 0:00:00.013 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/type-class.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFVAR *TYPE-CLASSES*) ; x-compiling (!COLD-INIT-FORMS (UNLESS # ...)) ; x-compiling (DEFUN TYPE-CLASS-OR-LOSE ...) ; x-compiling (DEFUN MUST-SUPPLY-THIS ...) ; x-compiling (DEF!STRUCT (TYPE-CLASS #) ...) ; x-compiling (DEFPARAMETER *TYPE-CLASS-FUN-SLOTS* ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN COPY-TYPE-CLASS-COLDLY ...) ; x-compiling (DEFUN CLASS-FUN-SLOT-OR-LOSE ...) ; x-compiling (DEFMACRO !DEFINE-TYPE-METHOD ...) ; x-compiling (DEFMACRO !DEFINE-TYPE-CLASS ...) ; x-compiling (DEFMACRO !INVOKE-TYPE-METHOD ...) ; x-compiling (DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD ...) ; x-compiling (DEFUN INVOKE-COMPLEX-=-OTHER-METHOD ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPE-CLASS-COLD-INIT) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/type-class.lisp ; in: ; DEF!STRUCT (TYPE-CLASS ; (:PRINT-OBJECT (LAMBDA (X STREAM) (PRINT-UNREADABLE-OBJECT # #)))) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL::TYPE-CLASS ; (:PRINT-OBJECT ; (LAMBDA (SB!KERNEL::X STREAM) (PRINT-UNREADABLE-OBJECT # #)))) ; (SB!KERNEL::NAME NIL :TYPE SYMBOL) ; (SB!KERNEL::SIMPLE-SUBTYPEP #'SB!KERNEL::MUST-SUPPLY-THIS :TYPE FUNCTION) ; (SB!KERNEL::COMPLEX-SUBTYPEP-ARG1 NIL :TYPE (OR FUNCTION NULL)) ; (SB!KERNEL::COMPLEX-SUBTYPEP-ARG2 NIL :TYPE (OR FUNCTION NULL)) ; (SB!KERNEL::SIMPLE-UNION2 #'SB!KERNEL::HIERARCHICAL-UNION2 :TYPE FUNCTION) ; (SB!KERNEL::COMPLEX-UNION2 NIL :TYPE (OR FUNCTION NULL)) ; (SB!KERNEL::SIMPLE-INTERSECTION2 #'SB!KERNEL::HIERARCHICAL-INTERSECTION2 ; :TYPE FUNCTION) ; (SB!KERNEL::COMPLEX-INTERSECTION2 NIL :TYPE (OR FUNCTION NULL)) ; (SB!KERNEL::SIMPLE-= #'SB!KERNEL::MUST-SUPPLY-THIS :TYPE FUNCTION) ; (SB!KERNEL::COMPLEX-= NIL :TYPE (OR FUNCTION NULL)) ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFMACRO !DEFINE-TYPE-METHOD ; (MAPCAR ; (LAMBDA (METHOD) ; (SB!IMPL::BACKQ-LIST 'SETF ; (SB!IMPL::BACKQ-LIST ; (SB!KERNEL::CLASS-FUN-SLOT-OR-LOSE METHOD) ; (SB!IMPL::BACKQ-LIST 'SB!KERNEL::TYPE-CLASS-OR-LOSE ; #)) ; (SB!IMPL::BACKQ-LIST 'FUNCTION SB!KERNEL::NAME))) ; (CONS METHOD SB!KERNEL::MORE-METHODS)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: ; DEF!STRUCT (TYPE-CLASS ; (:PRINT-OBJECT (LAMBDA (X STREAM) (PRINT-UNREADABLE-OBJECT # #)))) ; #'SB!KERNEL::HIERARCHICAL-INTERSECTION2 ; ; caught STYLE-WARNING: ; undefined function: HIERARCHICAL-INTERSECTION2 ; #'SB!KERNEL::HIERARCHICAL-UNION2 ; ; caught STYLE-WARNING: ; undefined function: HIERARCHICAL-UNION2 ; in: DEFUN INVOKE-COMPLEX-=-OTHER-METHOD ; (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: TYPE-CLASS-INFO ; in: DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD ; (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: TYPE-CLASS-INFO ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; %TARGET-DEFSTRUCT HIERARCHICAL-INTERSECTION2 HIERARCHICAL-UNION2 TYPE-CLASS-INFO ; caught 6 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/type-class.lisp-obj-tmp written ; compilation finished in 0:00:00.195 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/ansi-stream.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFCONSTANT +ANSI-STREAM-IN-BUFFER-LENGTH+ ...) ; x-compiling (DEFTYPE ANSI-STREAM-IN-BUFFER ...) ; x-compiling (DEFTYPE ANSI-STREAM-CIN-BUFFER ...) ; x-compiling (DEFSTRUCT (ANSI-STREAM # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/ansi-stream.lisp ; in: DEFSTRUCT ANSI-STREAM ; (DEFSTRUCT (SB!KERNEL:ANSI-STREAM (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!IMPL::IN-BUFFER NIL :TYPE (OR SB!KERNEL:ANSI-STREAM-IN-BUFFER NULL)) ; (SB!IMPL::CIN-BUFFER NIL :TYPE (OR SB!IMPL::ANSI-STREAM-CIN-BUFFER NULL)) ; (SB!IMPL::IN-INDEX SB!IMPL::+ANSI-STREAM-IN-BUFFER-LENGTH+ :TYPE ; SB!INT:INDEX) ; (SB!IMPL::IN #'SB!KERNEL:ILL-IN :TYPE FUNCTION) ; (SB!IMPL::BIN #'SB!KERNEL:ILL-BIN :TYPE FUNCTION) ; (SB!IMPL::N-BIN #'SB!KERNEL:ILL-BIN :TYPE FUNCTION) ; (SB!IMPL::OUT #'SB!KERNEL:ILL-OUT :TYPE FUNCTION) ; (SB!IMPL::BOUT #'SB!KERNEL:ILL-BOUT :TYPE FUNCTION) ; (SB!IMPL::SOUT #'SB!KERNEL:ILL-OUT :TYPE FUNCTION) ; (SB!IMPL::MISC #'SB!IMPL::NO-OP-PLACEHOLDER :TYPE FUNCTION)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; compilation unit finished ; Undefined function: ; SB!KERNEL::%TARGET-DEFSTRUCT ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/ansi-stream.lisp-obj-tmp written ; compilation finished in 0:00:00.072 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/sysmacs.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *IN-WITHOUT-GCING*) ; x-compiling (DEFVAR *GC-INHIBIT*) ; x-compiling (DEFVAR *GC-PENDING*) ; x-compiling (DEFVAR *STOP-FOR-GC-PENDING*) ; x-compiling (DEFMACRO WITHOUT-GCING ...) ; x-compiling (DEFMACRO EOF-OR-LOSE ...) ; x-compiling (DEFMACRO IN-SYNONYM-OF ...) ; x-compiling (DEFMACRO OUT-SYNONYM-OF ...) ; x-compiling (DEFMACRO WITH-IN-STREAM ...) ; x-compiling (DEFMACRO WITH-OUT-STREAM/NO-SYNONYM ...) ; x-compiling (DEFMACRO WITH-OUT-STREAM ...) ; x-compiling (DEFMACRO PREPARE-FOR-FAST-READ-CHAR ...) ; x-compiling (DEFMACRO DONE-WITH-FAST-READ-CHAR ...) ; x-compiling (DEFMACRO FAST-READ-CHAR ...) ; x-compiling (DEFMACRO WITH-FAST-READ-BYTE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/sysmacs.lisp-obj-tmp written ; compilation finished in 0:00:00.085 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-error.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN MUFFLE-WARNING-P ...) ; x-compiling (DEFUN INITIAL-HANDLER-CLUSTERS ...) ; x-compiling (DEFVAR *HANDLER-CLUSTERS* ...) ; x-compiling (DEFVAR *RESTART-CLUSTERS* ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-error.lisp ; in: DEFVAR *RESTART-CLUSTERS* ; 'NIL ; ; note: deleting unreachable code ; x-compiling (DECLAIM (INLINE RESTART-TEST-FUNCTION ...)) ; x-compiling (DEFSTRUCT (RESTART # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE RESTART)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN RESTART-REPORT ...) ; x-compiling (DEFVAR *RESTART-TEST-STACK* ...) ; x-compiling (DEFUN MAP-RESTARTS ...) ; x-compiling (DEFUN COMPUTE-RESTARTS ...) ; x-compiling (DEFUN %FIND-RESTART ...) ; x-compiling (DEFUN FIND-RESTART ...) ; x-compiling (DEFUN FIND-RESTART-OR-CONTROL-ERROR ...) ; x-compiling (DEFUN INVOKE-RESTART ...) ; x-compiling (DEFUN INTERACTIVE-RESTART-ARGUMENTS ...) ; x-compiling (DEFUN INVOKE-RESTART-INTERACTIVELY ...) ; x-compiling (DEFUN ASSERT-ERROR ...) ; x-compiling (DEFUN READ-EVALUATED-FORM ...) ; x-compiling (DEFUN CHECK-TYPE-ERROR ...) ; x-compiling (DEFUN CASE-FAILURE ...) ; x-compiling (DEFUN CASE-BODY-ERROR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-error.lisp ; in: DEFSTRUCT RESTART ; (DEFSTRUCT ; (RESTART ; (:CONSTRUCTOR SB!KERNEL:MAKE-RESTART ; (SB!KERNEL::NAME FUNCTION &OPTIONAL SB!KERNEL::REPORT-FUNCTION ; SB!KERNEL::INTERACTIVE-FUNCTION SB!KERNEL::TEST-FUNCTION)) ; (:COPIER NIL) (:PREDICATE NIL)) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (FUNCTION (SB!INT:MISSING-ARG) :TYPE FUNCTION :READ-ONLY T) ; (SB!KERNEL::REPORT-FUNCTION NIL :TYPE (OR NULL FUNCTION) :READ-ONLY T) ; (SB!KERNEL::INTERACTIVE-FUNCTION NIL :TYPE (OR NULL FUNCTION) :READ-ONLY T) ; (SB!KERNEL::TEST-FUNCTION (LAMBDA (COND) (DECLARE (IGNORE COND)) T) :TYPE ; FUNCTION :READ-ONLY T) ; (SB!KERNEL::ASSOCIATED-CONDITIONS 'NIL :TYPE LIST)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: SETF (FDOCUMENTATION 'RESTART-NAME 'FUNCTION) ; (SETF (SB!KERNEL:FDOCUMENTATION 'RESTART-NAME 'FUNCTION) ; "Return the name of the given restart object.") ; --> LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW39 'RESTART-NAME ; 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFUN FIND-RESTART ; (DEFUN FIND-RESTART (SB!KERNEL::IDENTIFIER &OPTIONAL CONDITION) ; "Return the first restart identified by IDENTIFIER. If IDENTIFIER is a symbol, ; then the innermost applicable restart with that name is returned. If IDENTIFIER ; is a restart, it is returned if it is currently active. Otherwise NIL is ; returned. If CONDITION is specified and not NIL, then only restarts associated ; with that condition (or with no condition) will be returned." ; (SB!KERNEL::%FIND-RESTART SB!KERNEL::IDENTIFIER CONDITION)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET FIND-RESTART ; (LAMBDA (SB!KERNEL::IDENTIFIER &OPTIONAL CONDITION) ; (BLOCK FIND-RESTART ; (SB!KERNEL::%FIND-RESTART SB!KERNEL::IDENTIFIER ; CONDITION)))) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN COMPUTE-RESTARTS ; (DEFUN COMPUTE-RESTARTS (&OPTIONAL CONDITION) ; "Return a list of all the currently active restarts ordered from most recently ; established to less recently established. If CONDITION is specified, then only ; restarts associated with CONDITION (or with no condition) will be returned." ; (SB!INT:COLLECT ((SB!KERNEL::RESULT)) ; (SB!KERNEL::MAP-RESTARTS (LAMBDA (RESTART) (SB!KERNEL::RESULT RESTART)) ; CONDITION) ; (SB!KERNEL::RESULT))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET COMPUTE-RESTARTS ; (LAMBDA (&OPTIONAL CONDITION) ; (BLOCK COMPUTE-RESTARTS ; (SB!INT:COLLECT (#) ; (SB!KERNEL::MAP-RESTARTS # CONDITION) ; (SB!KERNEL::RESULT))))) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN INITIAL-HANDLER-CLUSTERS ; (MUFFLE-WARNING WARNING) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; ; caught STYLE-WARNING: ; 30 more uses of undefined type CONDITION ; ; compilation unit finished ; Undefined type: ; CONDITION ; Undefined functions: ; %TARGET-DEFSTRUCT (SETF FDOCUMENTATION) ; caught 6 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-error.lisp-obj-tmp written ; compilation finished in 0:00:00.161 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/early-backend.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *BACKEND-PAGE-BYTES* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/early-backend.lisp-obj-tmp written ; compilation finished in 0:00:00.026 creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/output/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/stuff-groveled-from-headers.lisp" (written 28 JUL 2014 05:04:06 AM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (DEFCONSTANT RTLD-LAZY ...) ; x-compiling (DEFCONSTANT RTLD-NOW ...) ; x-compiling (DEFCONSTANT RTLD-GLOBAL ...) ; x-compiling (IN-PACKAGE "SB!UNIX") ; x-compiling (DEFCONSTANT FD-SETSIZE ...) ; x-compiling (DEFCONSTANT POLLIN ...) ; x-compiling (DEFCONSTANT POLLOUT ...) ; x-compiling (DEFCONSTANT POLLPRI ...) ; x-compiling (DEFCONSTANT POLLHUP ...) ; x-compiling (DEFINE-ALIEN-TYPE NFDS-T ...) ; x-compiling (DEFCONSTANT CODESET ...) ; x-compiling (DEFINE-ALIEN-TYPE CLOCK-T ...) ; x-compiling (DEFINE-ALIEN-TYPE DEV-T ...) ; x-compiling (DEFINE-ALIEN-TYPE GID-T ...) ; x-compiling (DEFINE-ALIEN-TYPE INO-T ...) ; x-compiling (DEFINE-ALIEN-TYPE MODE-T ...) ; x-compiling (DEFINE-ALIEN-TYPE NLINK-T ...) ; x-compiling (DEFINE-ALIEN-TYPE OFF-T ...) ; x-compiling (DEFINE-ALIEN-TYPE SIZE-T ...) ; x-compiling (DEFINE-ALIEN-TYPE TIME-T ...) ; x-compiling (DEFINE-ALIEN-TYPE SUSECONDS-T ...) ; x-compiling (DEFINE-ALIEN-TYPE UID-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-INO-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-DEV-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-OFF-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-BLKSIZE-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-BLKCNT-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-NLINK-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-UID-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-GID-T ...) ; x-compiling (DEFCONSTANT R_OK ...) ; x-compiling (DEFCONSTANT W_OK ...) ; x-compiling (DEFCONSTANT X_OK ...) ; x-compiling (DEFCONSTANT F_OK ...) ; x-compiling (DEFCONSTANT O_RDONLY ...) ; x-compiling (DEFCONSTANT O_WRONLY ...) ; x-compiling (DEFCONSTANT O_RDWR ...) ; x-compiling (DEFCONSTANT O_ACCMODE ...) ; x-compiling (DEFCONSTANT O_CREAT ...) ; x-compiling (DEFCONSTANT O_EXCL ...) ; x-compiling (DEFCONSTANT O_NOCTTY ...) ; x-compiling (DEFCONSTANT O_TRUNC ...) ; x-compiling (DEFCONSTANT O_APPEND ...) ; x-compiling (DEFCONSTANT S-IFMT ...) ; x-compiling (DEFCONSTANT S-IFIFO ...) ; x-compiling (DEFCONSTANT S-IFCHR ...) ; x-compiling (DEFCONSTANT S-IFDIR ...) ; x-compiling (DEFCONSTANT S-IFBLK ...) ; x-compiling (DEFCONSTANT S-IFREG ...) ; x-compiling (DEFCONSTANT S-IFLNK ...) ; x-compiling (DEFCONSTANT S-IFSOCK ...) ; x-compiling (DEFCONSTANT EBADF ...) ; x-compiling (DEFCONSTANT ENOENT ...) ; x-compiling (DEFCONSTANT EINTR ...) ; x-compiling (DEFCONSTANT EAGAIN ...) ; x-compiling (DEFCONSTANT EIO ...) ; x-compiling (DEFCONSTANT EEXIST ...) ; x-compiling (DEFCONSTANT ELOOP ...) ; x-compiling (DEFCONSTANT ESPIPE ...) ; x-compiling (DEFCONSTANT EWOULDBLOCK ...) ; x-compiling (DEFCONSTANT WNOHANG ...) ; x-compiling (DEFCONSTANT WUNTRACED ...) ; x-compiling (DEFCONSTANT TIOCGPGRP ...) ; x-compiling (DEFCONSTANT TIOCSPGRP ...) ; x-compiling (DEFCONSTANT TIOCGWINSZ ...) ; x-compiling (DEFCONSTANT TIOCSWINSZ ...) ; x-compiling (DEFCONSTANT SIG-DFL ...) ; x-compiling (DEFCONSTANT SIG-IGN ...) ; x-compiling (DEFCONSTANT SIGALRM ...) ; x-compiling (DEFCONSTANT SIGBUS ...) ; x-compiling (DEFCONSTANT SIGCHLD ...) ; x-compiling (DEFCONSTANT SIGCONT ...) ; x-compiling (DEFCONSTANT SIGEMT ...) ; x-compiling (DEFCONSTANT SIGFPE ...) ; x-compiling (DEFCONSTANT SIGHUP ...) ; x-compiling (DEFCONSTANT SIGILL ...) ; x-compiling (DEFCONSTANT SIGINT ...) ; x-compiling (DEFCONSTANT SIGIO ...) ; x-compiling (DEFCONSTANT SIGIOT ...) ; x-compiling (DEFCONSTANT SIGKILL ...) ; x-compiling (DEFCONSTANT SIGPIPE ...) ; x-compiling (DEFCONSTANT SIGPROF ...) ; x-compiling (DEFCONSTANT SIGQUIT ...) ; x-compiling (DEFCONSTANT SIGSEGV ...) ; x-compiling (DEFCONSTANT SIGSTOP ...) ; x-compiling (DEFCONSTANT SIGSYS ...) ; x-compiling (DEFCONSTANT SIGTERM ...) ; x-compiling (DEFCONSTANT SIGTRAP ...) ; x-compiling (DEFCONSTANT SIGTSTP ...) ; x-compiling (DEFCONSTANT SIGTTIN ...) ; x-compiling (DEFCONSTANT SIGTTOU ...) ; x-compiling (DEFCONSTANT SIGURG ...) ; x-compiling (DEFCONSTANT SIGUSR1 ...) ; x-compiling (DEFCONSTANT SIGUSR2 ...) ; x-compiling (DEFCONSTANT SIGVTALRM ...) ; x-compiling (DEFCONSTANT SIGWINCH ...) ; x-compiling (DEFCONSTANT SIGXCPU ...) ; x-compiling (DEFCONSTANT SIGXFSZ ...) ; x-compiling (DEFCONSTANT FPE-INTOVF ...) ; x-compiling (DEFCONSTANT FPE-INTDIV ...) ; x-compiling (DEFCONSTANT FPE-FLTDIV ...) ; x-compiling (DEFCONSTANT FPE-FLTOVF ...) ; x-compiling (DEFCONSTANT FPE-FLTUND ...) ; x-compiling (DEFCONSTANT FPE-FLTRES ...) ; x-compiling (DEFCONSTANT FPE-FLTINV ...) ; x-compiling (DEFCONSTANT FPE-FLTSUB ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFCONSTANT CTL-KERN ...) ; x-compiling (DEFCONSTANT CTL-HW ...) ; x-compiling (DEFCONSTANT CTL-MAXNAME ...) ; x-compiling (DEFCONSTANT KERN-OSTYPE ...) ; x-compiling (DEFCONSTANT KERN-OSRELEASE ...) ; x-compiling (DEFCONSTANT HW-MODEL ...) ; x-compiling (DEFCONSTANT HW-PAGESIZE ...) ; x-compiling (DEFCONSTANT PATH-MAX ...) ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFINE-ALIEN-TYPE PAGE-INDEX-T ...) ; x-compiling (DEFINE-ALIEN-TYPE GENERATION-INDEX-T ...) ; x-compiling (DEFINE-ALIEN-TYPE OS-VM-SIZE-T ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/stuff-groveled-from-headers.lisp ; in: DEFINE-ALIEN-TYPE () ; (SB!ALIEN:DEFINE-ALIEN-TYPE NIL ; (SB!ALIEN:STRUCT SB!UNIX::TIMESPEC ; (SB!UNIX:TV-SEC (SB!ALIEN:SIGNED 64)) ; (SB!UNIX::TV-NSEC (SB!ALIEN:SIGNED 64)))) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!UNIX::TIMESPEC ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; (SB!ALIEN:DEFINE-ALIEN-TYPE NIL ; (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL ; (SB!UNIX:TV-SEC (SB!ALIEN:SIGNED 64)) ; (SB!UNIX:TV-USEC (SB!ALIEN:SIGNED 32)))) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!UNIX:TIMEVAL ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; in: DEFINE-ALIEN-TYPE SB!UNIX:DEV-T ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!UNIX:DEV-T (SB!ALIEN:SIGNED 32)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!UNIX:DEV-T ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; in: DEFINE-ALIEN-TYPE SB!UNIX::CLOCK-T ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!UNIX::CLOCK-T (SB!ALIEN:UNSIGNED 64)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!UNIX::CLOCK-T ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; in: DEFINE-ALIEN-TYPE SB!UNIX::NFDS-T ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!UNIX::NFDS-T (SB!ALIEN:UNSIGNED 32)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!UNIX::NFDS-T ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; ; caught STYLE-WARNING: ; 20 more uses of undefined function SB!ALIEN::%DEFINE-ALIEN-TYPE ; ; compilation unit finished ; Undefined functions: ; SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES SB!ALIEN::%DEFINE-ALIEN-TYPE ; caught 6 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/output/stuff-groveled-from-headers.lisp-obj-tmp written ; compilation finished in 0:00:00.070 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/kernel.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN GET-HEADER-DATA ...) ; x-compiling (DEFUN SET-HEADER-DATA ...) ; x-compiling (DEFUN GET-CLOSURE-LENGTH ...) ; x-compiling (DEFUN LOWTAG-OF ...) ; x-compiling (DEFUN WIDETAG-OF ...) ; x-compiling (DECLAIM (INLINE %OTHER-POINTER-WIDETAG)) ; x-compiling (DEFUN %OTHER-POINTER-WIDETAG ...) ; x-compiling (DEFUN VECTOR-SAP ...) ; x-compiling (DEFUN BINDING-STACK-POINTER-SAP ...) ; x-compiling (DEFUN DYNAMIC-SPACE-FREE-POINTER ...) ; x-compiling (DEFUN CONTROL-STACK-POINTER-SAP ...) ; x-compiling (DEFUN FUN-SUBTYPE ...) ; x-compiling (DEFUN (SETF FUN-SUBTYPE) ...) ; x-compiling (DEFUN SIMPLE-FUN-P ...) ; x-compiling (DEFTYPE SIMPLE-FUN ...) ; x-compiling (DEFUN %SIMPLE-FUN-DOC ...) ; x-compiling (DEFUN (SETF %SIMPLE-FUN-DOC) ...) ; x-compiling (DEFUN %SIMPLE-FUN-XREFS ...) ; x-compiling (DEFUN %SIMPLE-FUN-ARGLIST ...) ; x-compiling (DEFUN (SETF %SIMPLE-FUN-ARGLIST) ...) ; x-compiling (DEFUN %SIMPLE-FUN-NAME ...) ; x-compiling (DEFUN (SETF %SIMPLE-FUN-NAME) ...) ; x-compiling (DEFUN %SIMPLE-FUN-TYPE ...) ; x-compiling (DEFUN %SIMPLE-FUN-NEXT ...) ; x-compiling (DEFUN %SIMPLE-FUN-SELF ...) ; x-compiling (DEFUN CLOSUREP ...) ; x-compiling (DEFTYPE CLOSURE ...) ; x-compiling (DEFMACRO DO-CLOSURE-VALUES ...) ; x-compiling (DEFUN %CLOSURE-VALUES ...) ; x-compiling (DEFUN %CLOSURE-FUN ...) ; x-compiling (DEFUN %CLOSURE-INDEX-REF ...) ; x-compiling (DEFUN SB!C::VECTOR-LENGTH ...) ; x-compiling (DEFUN ALLOCATE-VECTOR ...) ; x-compiling (DEFUN MAKE-ARRAY-HEADER ...) ; x-compiling (DEFUN CODE-INSTRUCTIONS ...) ; x-compiling (DEFUN CODE-HEADER-REF ...) ; x-compiling (DEFUN CODE-HEADER-SET ...) ; x-compiling (DEFUN %VECTOR-RAW-BITS ...) ; x-compiling (DEFUN %SET-VECTOR-RAW-BITS ...) ; x-compiling (DEFUN MAKE-SINGLE-FLOAT ...) ; x-compiling (DEFUN MAKE-DOUBLE-FLOAT ...) ; x-compiling (DEFUN SINGLE-FLOAT-BITS ...) ; x-compiling (DEFUN DOUBLE-FLOAT-HIGH-BITS ...) ; x-compiling (DEFUN DOUBLE-FLOAT-LOW-BITS ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/kernel.lisp-obj-tmp written ; compilation finished in 0:00:00.124 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/toplevel.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR SB!VM:*CURRENT-CATCH-BLOCK*) ; x-compiling (DEFVAR SB!VM::*CURRENT-UNWIND-PROTECT-BLOCK*) ; x-compiling (DEFVAR *FREE-INTERRUPT-CONTEXT-INDEX*) ; x-compiling (DECLAIM (SPECIAL *PSEUDO-ATOMIC-BITS* ...)) ; x-compiling (DEFGLOBAL *COLD-INIT-COMPLETE-P* ...) ; x-compiling (DEFVAR *MAXIMUM-ERROR-DEPTH*) ; x-compiling (DEFVAR *CURRENT-ERROR-DEPTH*) ; x-compiling (DEFUN SYSINIT-PATHNAME ...) ; x-compiling (DEFUN USERINIT-PATHNAME ...) ; x-compiling (DEFVAR *SYSINIT-PATHNAME-FUNCTION* ...) ; x-compiling (DEFVAR *USERINIT-PATHNAME-FUNCTION* ...) ; x-compiling (DEFMACRO HANDLING-END-OF-THE-WORLD ...) ; x-compiling (DEFVAR *EXIT-LOCK*) ; x-compiling (DEFVAR *EXIT-IN-PROCESS* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *EXIT-TIMEOUT* ...) ; x-compiling (DEFUN OS-EXIT-HANDLER ...) ; x-compiling (DEFVAR *EXIT-ERROR-HANDLER* ...) ; x-compiling (DEFUN CALL-EXIT-HOOKS ...) ; x-compiling (DEFUN %EXIT ...) ; x-compiling (DEFMACRO INFINITE-ERROR-PROTECT ...) ; x-compiling (DEFUN INFINITE-ERROR-PROTECTOR ...) ; x-compiling (DEFUN SPLIT-SECONDS-FOR-SLEEP ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/toplevel.lisp ; in: DEFUN SPLIT-SECONDS-FOR-SLEEP ; (DENOMINATOR SB!IMPL::SECONDS) ; --> LET THE ; ==> ; SB!IMPL::SECONDS ; ; note: deleting unreachable code ; (TRUNCATE 100000000 (DENOMINATOR SB!IMPL::SECONDS)) ; ; note: deleting unreachable code ; (TRUNCATE SB!IMPL::FRAC (LOAD-TIME-VALUE 1.e-9 T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (TRUNCATE SB!IMPL::SECONDS) ; --> TRUNCATE LET ; ==> ; (SB!KERNEL:%UNARY-TRUNCATE SB!C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> TRUNCATE LET VALUES ; ==> ; (- SB!C::X SB!C::RES) ; ; note: unable to ; optimize ; 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 arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (* REM ; (IF (TYPEP 1000000000 'FIXNUM) ; (TRUNCATE 1000000000 (DENOMINATOR SB!IMPL::SECONDS)) ; (* 10 (TRUNCATE 100000000 (DENOMINATOR SB!IMPL::SECONDS))))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; x-compiling (DEFUN SLEEP ...) ; x-compiling (DEFVAR / ...) ; x-compiling (DEFVAR // ...) ; x-compiling (DEFVAR /// ...) ; x-compiling (DEFVAR * ...) ; x-compiling (DEFVAR ** ...) ; x-compiling (DEFVAR *** ...) ; x-compiling (DEFVAR + ...) ; x-compiling (DEFVAR ++ ...) ; x-compiling (DEFVAR +++ ...) ; x-compiling (DEFVAR - ...) ; x-compiling (DEFUN INTERACTIVE-EVAL ...) ; x-compiling (DEFUN FLUSH-STANDARD-OUTPUT-STREAMS ...) ; x-compiling (DEFUN PROCESS-INIT-FILE ...) ; x-compiling (DEFUN PROCESS-EVAL/LOAD-OPTIONS ...) ; x-compiling (DEFUN PROCESS-SCRIPT ...) ; x-compiling (DEFUN STARTUP-ERROR ...) ; x-compiling (DEFUN TOPLEVEL-INIT ...) ; x-compiling (DEFVAR *REPL-READ-FORM-FUN* ...) ; x-compiling (DEFVAR *REPL-PROMPT-FUN* ...) ; x-compiling (DEFVAR *REPL-FUN-GENERATOR* ...) ; x-compiling (DEFUN TOPLEVEL-REPL ...) ; x-compiling (DEFUN REPL-PROMPT-FUN ...) ; x-compiling (DEFUN REPL-READ-FORM-FUN ...) ; x-compiling (DEFUN REPL-FUN ...) ; x-compiling (DEFUN %HALT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/toplevel.lisp ; in: DEFGLOBAL *COLD-INIT-COMPLETE-P* ; (SB!EXT:DEFGLOBAL SB!KERNEL:*COLD-INIT-COMPLETE-P* NIL) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL:*COLD-INIT-COMPLETE-P* (UNLESS #:BOUNDP NIL) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFUN %EXIT ; (SB!THREAD::%EXIT-OTHER-THREADS) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::%EXIT-OTHER-THREADS ; in: DEFUN FLUSH-STANDARD-OUTPUT-STREAMS ; (PROGV ; (LIST SB!IMPL::NAME) ; (LIST NULL) ; (HANDLER-BIND ((STREAM-ERROR (LAMBDA # #))) ; (FORCE-OUTPUT STREAM))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN LABELS BLOCK LET DOLIST ; --> BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY ; ==> ; (SB!INT:ABOUT-TO-MODIFY-SYMBOL-VALUE SB!C::VAR 'PROGV) ; ; caught STYLE-WARNING: ; undefined function: ABOUT-TO-MODIFY-SYMBOL-VALUE ; in: DEFUN CALL-EXIT-HOOKS ; (SB!INT:CALL-HOOKS "exit" SB!EXT:*EXIT-HOOKS* :ON-ERROR :WARN) ; ; caught STYLE-WARNING: ; undefined function: CALL-HOOKS ; in: DEFUN TOPLEVEL-INIT ; (FIND "--end-toplevel-options" SB!IMPL::OPTIONS :TEST #'STRING=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB!KERNEL:%FIND-POSITION ; ==> ; (SB!KERNEL:%FIND-POSITION-IF ; (LET ((SB!C::TEST-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::TEST))) ; (LAMBDA (SB!C::I) (FUNCALL SB!C::TEST-FUN SB!C::ITEM SB!C::I))) ; SEQUENCE SB!C::FROM-END SB!C::START SB!C::END ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::KEY)) ; ; caught STYLE-WARNING: ; undefined function: CIRCULAR-LIST-ERROR ; in: DEFUN TOPLEVEL-REPL ; (SB!IMPL::CRITICALLY-UNREACHABLE "after REPL") ; ; caught STYLE-WARNING: ; undefined function: CRITICALLY-UNREACHABLE ; in: DEFUN TOPLEVEL-INIT ; (SB!IMPL::CRITICALLY-UNREACHABLE "after TOPLEVEL-REPL") ; ; caught STYLE-WARNING: ; undefined function: CRITICALLY-UNREACHABLE ; (SB!EXT:DISABLE-DEBUGGER) ; ; caught STYLE-WARNING: ; undefined function: DISABLE-DEBUGGER ; in: DEFUN REPL-FUN ; (SB!IMPL::DISABLE-STEPPING) ; ; caught STYLE-WARNING: ; undefined function: DISABLE-STEPPING ; in: DEFUN INFINITE-ERROR-PROTECTOR ; (SB!IMPL::ERROR-ERROR "Help! " SB!IMPL::CUR " nested errors. " ; "SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.") ; ; caught STYLE-WARNING: ; undefined function: ERROR-ERROR ; in: DEFUN STARTUP-ERROR ; (SB!EXT:EXIT :CODE 1) ; ; caught STYLE-WARNING: ; undefined function: EXIT ; in: DEFUN PROCESS-SCRIPT ; (SB!EXT:EXIT) ; ; caught STYLE-WARNING: ; undefined function: EXIT ; in: DEFUN PROCESS-EVAL/LOAD-OPTIONS ; (SB!EXT:EXIT) ; ; caught STYLE-WARNING: ; undefined function: EXIT ; ; caught STYLE-WARNING: ; 2 more uses of undefined function EXIT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/toplevel.lisp ; in: DEFUN REPL-FUN ; (SB!THREAD::GET-FOREGROUND) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::GET-FOREGROUND ; 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)) ; (WHEN *READ-SUPPRESS* ; (WARN "Setting *READ-SUPPRESS* to NIL to restore toplevel usability.") ; (SETF *READ-SUPPRESS* NIL)) ; (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:EXIT) ; SB!KERNEL:FORM))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3361 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN PROCESS-SCRIPT ; (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*)) ; (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*)) ; (*STANDARD-INPUT* SB!SYS:*STDIN*) ; (*STANDARD-OUTPUT* SB!SYS:*STDOUT*) ; (*ERROR-OUTPUT* SB!SYS:*STDERR*)) ; (LOAD STREAM :VERBOSE NIL :PRINT NIL)) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3289 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN PROCESS-INIT-FILE ; (SB!INT:LOAD-AS-SOURCE STREAM :CONTEXT SB!IMPL::CONTEXT) ; ; caught STYLE-WARNING: ; undefined function: LOAD-AS-SOURCE ; in: DEFUN PROCESS-SCRIPT ; (SB!FASL::MAYBE-SKIP-SHEBANG-LINE SB!IMPL::F) ; ; caught STYLE-WARNING: ; undefined function: SB!FASL::MAYBE-SKIP-SHEBANG-LINE ; in: DEFUN SLEEP ; (SB!UNIX:NANOSLEEP (EXPT 10 8) 0) ; ; caught STYLE-WARNING: ; undefined function: SB!UNIX:NANOSLEEP ; in: DEFUN PROCESS-SCRIPT ; (SB!EXT:NATIVE-PATHNAME SB!IMPL::SCRIPT) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-PATHNAME ; in: DEFUN PROCESS-EVAL/LOAD-OPTIONS ; (SB!EXT:NATIVE-PATHNAME SB!IMPL::VALUE) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-PATHNAME ; in: DEFUN %EXIT ; (SB!SYS:OS-EXIT (CAR SB!IMPL::CODE) :ABORT NIL) ; ; caught STYLE-WARNING: ; undefined function: OS-EXIT ; in: DEFUN OS-EXIT-HANDLER ; (SB!SYS:OS-EXIT SB!SYS:*EXIT-IN-PROCESS* :ABORT T) ; ; caught STYLE-WARNING: ; undefined function: OS-EXIT ; in: DEFUN PROCESS-INIT-FILE ; (SB!EXT:PARSE-NATIVE-NAMESTRING SB!IMPL::SPECIFIED-PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: PARSE-NATIVE-NAMESTRING ; in: DEFUN TOPLEVEL-REPL ; (SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE ; in: DEFUN SYSINIT-PATHNAME ; (SB!INT:SBCL-HOMEDIR-PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: SBCL-HOMEDIR-PATHNAME ; in: DEFUN REPL-FUN ; (SB!SYS:SCRUB-CONTROL-STACK) ; ; caught STYLE-WARNING: ; undefined function: SCRUB-CONTROL-STACK ; in: DEFUN PROCESS-SCRIPT ; (STREAM-ERROR-STREAM SB!IMPL::E) ; ; caught STYLE-WARNING: ; undefined function: STREAM-ERROR-STREAM ; in: DEFUN FLUSH-STANDARD-OUTPUT-STREAMS ; (STREAM-ERROR-STREAM SB!IMPL::C) ; ; caught STYLE-WARNING: ; undefined function: STREAM-ERROR-STREAM ; (SB!IMPL::STREAM-OUTPUT-STREAM (SYMBOL-VALUE SB!IMPL::NAME)) ; ; caught STYLE-WARNING: ; undefined function: STREAM-OUTPUT-STREAM ; in: DEFUN PROCESS-SCRIPT ; (SB!IMPL::HANDLING-END-OF-THE-WORLD ; (IF (EQ T SB!IMPL::SCRIPT) ; (SB!IMPL::LOAD-SCRIPT SB!SYS:*STDIN*) ; (WITH-OPEN-FILE ; (SB!IMPL::F (SB!EXT:NATIVE-PATHNAME SB!IMPL::SCRIPT) :ELEMENT-TYPE ; :DEFAULT) ; (SB!FASL::MAYBE-SKIP-SHEBANG-LINE SB!IMPL::F) ; (SB!IMPL::LOAD-SCRIPT SB!IMPL::F)))) ; --> SB!SYS:WITHOUT-INTERRUPTS SB!INT:DX-FLET FLET BLOCK MACROLET LET CATCH ; --> BLOCK SB!C::%WITHIN-CLEANUP UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM ; --> SB!SYS:WITH-LOCAL-INTERRUPTS LET WHEN IF PROGN WHEN IF PROGN ; ==> ; (SB!UNIX::UNBLOCK-DEFERRABLE-SIGNALS) ; ; caught STYLE-WARNING: ; undefined function: SB!UNIX::UNBLOCK-DEFERRABLE-SIGNALS ; in: DEFUN 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)) ; (WHEN *READ-SUPPRESS* ; (WARN "Setting *READ-SUPPRESS* to NIL to restore toplevel usability.") ; (SETF *READ-SUPPRESS* NIL)) ; (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:EXIT) ; SB!KERNEL:FORM))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3361 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN PROCESS-SCRIPT ; (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*)) ; (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*)) ; (*STANDARD-INPUT* SB!SYS:*STDIN*) ; (*STANDARD-OUTPUT* SB!SYS:*STDOUT*) ; (*ERROR-OUTPUT* SB!SYS:*STDERR*)) ; (LOAD STREAM :VERBOSE NIL :PRINT NIL)) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3289 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined functions: ; %DEFGLOBAL SB!THREAD::%EXIT-OTHER-THREADS ABOUT-TO-MODIFY-SYMBOL-VALUE CALL-HOOKS CIRCULAR-LIST-ERROR CRITICALLY-UNREACHABLE DISABLE-DEBUGGER DISABLE-STEPPING ERROR-ERROR EXIT SB!THREAD::GET-FOREGROUND LAYOUT-INVALID LOAD-AS-SOURCE SB!FASL::MAYBE-SKIP-SHEBANG-LINE SB!UNIX:NANOSLEEP NATIVE-PATHNAME OS-EXIT PARSE-NATIVE-NAMESTRING SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE SBCL-HOMEDIR-PATHNAME SCRUB-CONTROL-STACK STREAM-ERROR-STREAM STREAM-OUTPUT-STREAM SB!UNIX::UNBLOCK-DEFERRABLE-SIGNALS UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 34 STYLE-WARNING conditions ; printed 9 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/toplevel.lisp-obj-tmp written ; compilation finished in 0:00:00.225 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cold-error.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFVAR *BREAK-ON-SIGNALS* ...) ; x-compiling (DEFUN MAYBE-BREAK-ON-SIGNAL ...) ; x-compiling (DEFUN SIGNAL ...) ; x-compiling (DEFUN ERROR ...) ; x-compiling (DEFUN CERROR ...) ; x-compiling (DEFUN %BREAK ...) ; x-compiling (DEFUN BREAK ...) ; x-compiling (DEFUN WARN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cold-error.lisp ; in: DEFUN ERROR ; (INVOKE-DEBUGGER CONDITION) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN SIGNAL ; (SB!KERNEL:COERCE-TO-CONDITION SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS ; 'SIMPLE-CONDITION 'SIGNAL) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN WARN ; (ETYPECASE CONDITION (STYLE-WARNING 'STYLE-WARNING) (WARNING 'WARNING)) ; --> LET COND IF ; ==> ; (TYPEP #:G3457 'STYLE-WARNING) ; ; caught STYLE-WARNING: ; undefined type: STYLE-WARNING ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G3457 'WARNING) ; ; caught STYLE-WARNING: ; undefined type: WARNING ; (SB!INT:ENFORCE-TYPE CONDITION WARNING) ; --> LET UNLESS IF ; ==> ; (TYPEP #:VALUE98 'WARNING) ; ; caught STYLE-WARNING: ; undefined type: WARNING ; ; compilation unit finished ; Undefined types: ; CONDITION STYLE-WARNING WARNING ; caught 5 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/cold-error.lisp-obj-tmp written ; compilation finished in 0:00:00.065 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/info-vector.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFCONSTANT +EMPTY-KEY+ ...) ; x-compiling (DEFCONSTANT +UNAVAILABLE-KEY+ ...) ; x-compiling (DEFTYPE INFO-CELL-INDEX ...) ; x-compiling (DEFCONSTANT +INFO-KEYS-OFFSET+ ...) ; x-compiling (DEFSTRUCT (INFO-STORAGE # ...) ...) ; x-compiling (DEFUN MAKE-INFO-STORAGE ...) ; x-compiling (DEFSTRUCT (INFO-HASHTABLE #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFMACRO INFO-CAS ...) ; x-compiling (DECLAIM (INLINE INFO-ENV-ADJUST-COUNT)) ; x-compiling (DEFUN INFO-ENV-ADJUST-COUNT ...) ; x-compiling (DECLAIM (INLINE MAKE-INFO-FORWARDING-POINTER ...) ...) ; x-compiling (DEFUN MAKE-INFO-FORWARDING-POINTER ...) ; x-compiling (DEFUN INFO-FORWARDING-POINTER-TARGET ...) ; x-compiling (DEFUN INFO-VALUE-MOVED-P ...) ; x-compiling (DEFMACRO DO-PROBE-SEQUENCE ...) ; x-compiling (DEFUN %WAIT-FOR-REHASH ...) ; x-compiling (DEFUN INFO-GETHASH ...) ; x-compiling (DEFUN INFO-PUTHASH ...) ; x-compiling (DEFUN INFO-ENV-REHASH ...) ; x-compiling (DEFMACRO INFO-MAPHASH ...) ; x-compiling (DEFUN (SETF INFO-GETHASH) ...) ; x-compiling (DEFUN SHOW-INFO-ENV ...) ; x-compiling (DEF!CONSTANT TYPE-NUMBER-BITS ...) ; x-compiling (DEFTYPE TYPE-NUMBER ...) ; x-compiling (DEFCONSTANT INFO-TYPE-MASK ...) ; x-compiling (DEFCONSTANT +INFOS-PER-WORD+ ...) ; x-compiling (DEFTYPE INFO-DESCRIPTOR ...) ; x-compiling (DEFCONSTANT +NO-AUXILLIARY-KEY+ ...) ; x-compiling (DEFCONSTANT-EQX +NIL-PACKED-INFOS+ ...) ; x-compiling (DEFCONSTANT +FDEFN-TYPE-NUM+ ...) ; x-compiling (DECLAIM (INLINE PACKED-INFO-FIELD)) ; x-compiling (DEFUN PACKED-INFO-FIELD ...) ; x-compiling (DEFUN COMPUTE-PACKIFIED-INFO-SIZE ...) ; x-compiling (DEFMACRO MAKE-INFO-DESCRIPTOR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/info-vector.lisp ; in: DEFMACRO MAKE-INFO-DESCRIPTOR ; 'LOGIOR ; ; note: deleting unreachable code ; x-compiling (DEFUN PACKIFY-INFOS ...) ; x-compiling (DEFMACRO WITH-PACKED-INFO-ITERATOR ...) ; x-compiling (DEFMACRO DO-PACKED-INFO-VECTOR-AUX-KEY ...) ; x-compiling (DEFUN COMPUTE-UNPACKIFIED-INFO-SIZE ...) ; x-compiling (DEFUN UNPACKIFY-INFOS ...) ; x-compiling (DEFUN INFO-FIND-AUX-KEY/UNPACKED ...) ; x-compiling (DEFUN INFO-FIND-AUX-KEY/PACKED ...) ; x-compiling (DEFUN %PACKED-INFO-INSERT ...) ; x-compiling (DECLAIM (INLINE INFO-QUICKLY-INSERTABLE-P)) ; x-compiling (DEFUN INFO-QUICKLY-INSERTABLE-P ...) ; x-compiling (DEFUN QUICK-PACKED-INFO-INSERT ...) ; x-compiling (DECLAIM (MAYBE-INLINE PACKED-INFO-INSERT)) ; x-compiling (DEFUN PACKED-INFO-INSERT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PACKED-INFO-VALUE-INDEX ...) ; x-compiling (DEFUN PACKED-INFO-REMOVE ...) ; x-compiling (DEFUN %CALL-WITH-EACH-INFO ...) ; x-compiling (DEFUN !TEST-PACKIFY-INFOS ...) ; x-compiling (DEFMACRO WITH-GLOBALDB-NAME ...) ; x-compiling (DECLAIM (INLINE INFO-VECTOR-FDEFN)) ; x-compiling (DEFUN INFO-VECTOR-FDEFN ...) ; x-compiling (DEFUN SYMBOL-INFO-VECTOR ...) ; x-compiling (DECLAIM (TYPE INFO-HASHTABLE ...)) ; x-compiling (DEFVAR *INFO-ENVIRONMENT*) ; x-compiling (DEFUN SET-INFO-VALUE ...) ; x-compiling (DEFUN %GET-INFO-VALUE-INITIALIZING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/info-vector.lisp ; in: DEFSTRUCT INFO-HASHTABLE ; (DEFSTRUCT (SB!C::INFO-HASHTABLE (:CONC-NAME SB!C::INFO-ENV-)) ; (SB!C::STORAGE (SB!C::MAKE-INFO-STORAGE 30) :TYPE SIMPLE-VECTOR) ; (SB!C::COMPARATOR #'EQUAL :TYPE FUNCTION) ; (SB!C::HASH-FUNCTION #'SB!C::GLOBALDB-SXHASHOID :TYPE FUNCTION) ; (SB!C::MUTEX (SB!THREAD:MAKE-MUTEX)) ; (COUNT 0 :TYPE SB!EXT:WORD)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT INFO-STORAGE ; (DEFSTRUCT ; (SB!C::INFO-STORAGE (:TYPE VECTOR) (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!C::CAPACITY 0 :TYPE (AND (INTEGER 3 *) SB!C::INFO-CELL-INDEX)) ; (SB!C::THRESHOLD 0 :TYPE SB!C::INFO-CELL-INDEX) ; (SB!C::NEXT NIL :TYPE SIMPLE-VECTOR)) ; --> PROGN EVAL-WHEN SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!INT:INFO) #:NEW0 :TYPED-STRUCTURE :INFO ; 'SB!C::INFO-STORAGE) ; ; caught STYLE-WARNING: ; undefined function: (SETF INFO) ; in: DEFUN INFO-PUTHASH ; (SB!THREAD:WITH-MUTEX ((SB!C::INFO-ENV-MUTEX SB!C::ENV)) ; (WHEN (EQ (SB!C::INFO-ENV-STORAGE SB!C::ENV) SB!C::STORAGE) ; (SB!C::INFO-ENV-REHASH SB!C::ENV))) ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-MUTEX #'SB!THREAD::WITH-MUTEX-THUNK ; (SB!C::INFO-ENV-MUTEX SB!C::ENV) NIL T NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-MUTEX ; in: DEFUN %WAIT-FOR-REHASH ; (SB!THREAD:WITH-MUTEX ((SB!C::INFO-ENV-MUTEX SB!C::ENV))) ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-MUTEX #'SB!THREAD::WITH-MUTEX-THUNK ; (SB!C::INFO-ENV-MUTEX SB!C::ENV) NIL T NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-MUTEX ; in: DEFUN !TEST-PACKIFY-INFOS ; (MAPCAR ; (LAMBDA (SB!C::MORE) ; (CONS (CAR SB!C::MORE) (SB!C::ADD-LENGTH-PREFIX (CDR SB!C::MORE)))) ; (REST SB!C::LISTS)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFSTRUCT INFO-HASHTABLE ; #'SB!C::GLOBALDB-SXHASHOID ; ; caught STYLE-WARNING: ; undefined function: GLOBALDB-SXHASHOID ; (SB!THREAD:MAKE-MUTEX) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; in: DEFUN MAKE-INFO-STORAGE ; (SB!C::PRIMIFY (CEILING SB!C::N-CELLS-MIN SB!C::LOAD-FACTOR)) ; ; caught STYLE-WARNING: ; undefined function: PRIMIFY ; in: DEFUN %WAIT-FOR-REHASH ; (SB!THREAD:THREAD-YIELD) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:THREAD-YIELD ; in: DEFUN %GET-INFO-VALUE-INITIALIZING ; (SB!INT:UPDATE-SYMBOL-INFO SB!C::KEY1 #'SB!C::SIMPLE-NAME) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-SYMBOL-INFO ; in: DEFUN SET-INFO-VALUE ; (SB!INT:UPDATE-SYMBOL-INFO SB!C::KEY1 #'SB!C::SIMPLE-NAME) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-SYMBOL-INFO ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT (SETF INFO) SB!THREAD::CALL-WITH-MUTEX GLOBALDB-SXHASHOID SB!THREAD:MAKE-MUTEX PRIMIFY SB!THREAD:THREAD-YIELD UPDATE-SYMBOL-INFO ; caught 11 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/info-vector.lisp-obj-tmp written ; compilation finished in 0:00:00.728 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fdefinition.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (/SHOW0 "fdefinition.lisp 22") ; x-compiling (DEFUN MAKE-FDEFN ...) ; x-compiling (DEFUN FDEFN-NAME ...) ; x-compiling (DEFUN FDEFN-FUN ...) ; x-compiling (DEFUN (SETF FDEFN-FUN) ...) ; x-compiling (DEFUN FDEFN-MAKUNBOUND ...) ; x-compiling (DEFVAR *!INITIAL-FDEFN-OBJECTS*) ; x-compiling (DEFUN !FDEFN-COLD-INIT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-FDEFN ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-OR-CREATE-FDEFN ...) ; x-compiling (DEFUN MAYBE-CLOBBER-FTYPE ...) ; x-compiling (DEFMACRO !COERCE-NAME-TO-FUN ...) ; x-compiling (DECLAIM (INLINE %COERCE-NAME-TO-FUN)) ; x-compiling (DEFUN %COERCE-NAME-TO-FUN ...) ; x-compiling (DEFUN (SETF %COERCE-NAME-TO-FUN) ...) ; x-compiling (DECLAIM (INLINE SYMBOL-FDEFN)) ; x-compiling (DEFUN SYMBOL-FDEFN ...) ; x-compiling (DEFUN %COERCE-CALLABLE-TO-FUN ...) ; x-compiling (DEFSTRUCT (ENCAPSULATION-INFO # ...) ...) ; x-compiling (DEFUN ENCAPSULATE ...) ; x-compiling (DEFUN FIND-IF-IN-CLOSURE ...) ; x-compiling (DEFUN ENCAPSULATION-INFO ...) ; x-compiling (DEFUN UNENCAPSULATE ...) ; x-compiling (DEFUN ENCAPSULATED-P ...) ; x-compiling (DEFUN FDEFINITION ...) ; x-compiling (DEFVAR *SETF-FDEFINITION-HOOK* ...) ; x-compiling (DEFUN %SET-FDEFINITION ...) ; x-compiling (DEFUN FBOUNDP ...) ; x-compiling (DEFUN FMAKUNBOUND ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fdefinition.lisp ; in: DEFSTRUCT ENCAPSULATION-INFO ; (DEFSTRUCT ; (SB!IMPL::ENCAPSULATION-INFO ; (:CONSTRUCTOR SB!IMPL::MAKE-ENCAPSULATION-INFO ; (TYPE SB!IMPL::DEFINITION)) ; (:COPIER NIL)) ; TYPE ; (SB!IMPL::DEFINITION NIL :TYPE FUNCTION)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; 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) #:NEW13 :FUNCTION :DEFINITION #:G14) ; ; caught STYLE-WARNING: ; undefined function: (SETF INFO) ; in: DEFUN MAYBE-CLOBBER-FTYPE ; (SB!INT:CLEAR-INFO :FUNCTION :TYPE SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: CLEAR-INFO ; ==> ; (SB!C::CLEAR-INFO-VALUE SB!IMPL::NAME 2) ; ; caught STYLE-WARNING: ; undefined function: SB!C::CLEAR-INFO-VALUE ; in: DEFUN ENCAPSULATE ; (SB!IMPL::ENCAPSULATE-GENERIC-FUNCTION (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) ; TYPE FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: ENCAPSULATE-GENERIC-FUNCTION ; in: DEFUN ENCAPSULATED-P ; (SB!IMPL::ENCAPSULATED-GENERIC-FUNCTION-P ; (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) TYPE) ; ; caught STYLE-WARNING: ; undefined function: ENCAPSULATED-GENERIC-FUNCTION-P ; (TYPEP (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) 'GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; undefined type: GENERIC-FUNCTION ; in: DEFUN UNENCAPSULATE ; (TYPEP (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) 'GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; undefined type: GENERIC-FUNCTION ; in: DEFUN ENCAPSULATE ; (TYPEP (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) 'GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; undefined type: GENERIC-FUNCTION ; in: DEFUN MAYBE-CLOBBER-FTYPE ; (SB!INT:INFO :FUNCTION :WHERE-FROM SB!IMPL::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SB!IMPL::NAME 4) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN FMAKUNBOUND ; (SB!KERNEL:UNDEFINE-FUN-NAME SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: UNDEFINE-FUN-NAME ; in: DEFUN UNENCAPSULATE ; (SB!IMPL::UNENCAPSULATE-GENERIC-FUNCTION ; (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) TYPE) ; ; caught STYLE-WARNING: ; undefined function: UNENCAPSULATE-GENERIC-FUNCTION ; ; compilation unit finished ; Undefined type: ; GENERIC-FUNCTION ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT (SETF INFO) CLEAR-INFO SB!C::CLEAR-INFO-VALUE ENCAPSULATE-GENERIC-FUNCTION ENCAPSULATED-GENERIC-FUNCTION-P SB!C::GET-INFO-VALUE INFO UNDEFINE-FUN-NAME UNENCAPSULATE-GENERIC-FUNCTION ; caught 13 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/fdefinition.lisp-obj-tmp written ; compilation finished in 0:00:01.051 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFUN CTYPEP ...) ; x-compiling (DECLAIM (INLINE LAYOUT-OF)) ; x-compiling (DEFUN LAYOUT-OF ...) ; x-compiling (DECLAIM (INLINE CLASSOID-OF)) ; x-compiling (DEFUN CLASSOID-OF ...) ; x-compiling (DEFUN CLEAR-TYPE-CACHES ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION ...) ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TARGET-TYPE-COLD-INIT) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-type.lisp ; in: DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION #'SXHASH :HASH-BITS 9 ...) ; (SB!INT:DEFUN-CACHED (SB!KERNEL:CTYPE-OF :HASH-FUNCTION #'SXHASH :HASH-BITS 9 ; :INIT-WRAPPER ; SB!INT:!COLD-INIT-FORMS) ; ((SB!KERNEL::X EQ)) ; (TYPECASE SB!KERNEL::X ; (FUNCTION ; (IF (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::X) ; (SB!KERNEL:CLASSOID-OF SB!KERNEL::X) ; (SB!KERNEL:SPECIFIER-TYPE #))) ; (SYMBOL (SB!KERNEL:MAKE-MEMBER-TYPE :MEMBERS (LIST SB!KERNEL::X))) ; (NUMBER (SB!KERNEL::CTYPE-OF-NUMBER SB!KERNEL::X)) ; (ARRAY ; (LET (#) ; (SB!KERNEL:MAKE-ARRAY-TYPE :DIMENSIONS # :COMPLEXP # :ELEMENT-TYPE ; SB!KERNEL::ETYPE :SPECIALIZED-ELEMENT-TYPE ; SB!KERNEL::ETYPE))) ; (CONS ; (SB!KERNEL:MAKE-CONS-TYPE SB!KERNEL:*UNIVERSAL-TYPE* ; SB!KERNEL:*UNIVERSAL-TYPE*)) ; (CHARACTER (SB!KERNEL:SPECIFIER-TYPE 'CHARACTER)) ; (SB!EXT:SIMD-PACK ; (LET (#) ; (IF TYPE ; # ; #))) ; (T (SB!KERNEL:CLASSOID-OF SB!KERNEL::X)))) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::**CTYPE-OF-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; (SB!IMPL::%FUN-TYPE SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%FUN-TYPE ; (SB!KERNEL:CLASSOID-OF SB!KERNEL::X) ; --> BLOCK SB!KERNEL:LAYOUT-CLASSOID SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF ; --> THE SB!KERNEL:LAYOUT-OF BLOCK COND IF COND IF PROGN ; ==> ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN CLASSOID-OF ; (SB!KERNEL:LAYOUT-OF SB!KERNEL::OBJECT) ; --> BLOCK COND IF COND IF PROGN ; ==> ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN LAYOUT-OF ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN CTYPEP ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE ; SB!KERNEL:SIMD-PACK-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 #:G4239 'SB!KERNEL:ALIEN-TYPE-TYPE) ; ; caught STYLE-WARNING: ; undefined type: ALIEN-TYPE-TYPE ; (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-TYPE-ALIEN-TYPE ; (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ ; (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE)) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPEP ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE ; SB!KERNEL:SIMD-PACK-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 #:G4239 ; '(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 ; SB!KERNEL:SIMD-PACK-TYPE)) ; ; caught STYLE-WARNING: ; undefined type: ARRAY-TYPE ; ; caught STYLE-WARNING: ; undefined type: CHARACTER-SET-TYPE ; (SB!KERNEL:CLASSOID-LAYOUT TYPE) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; (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 ; SB!KERNEL:SIMD-PACK-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 #:G4239 'SB!KERNEL:COMPOUND-TYPE) ; ; caught STYLE-WARNING: ; undefined type: COMPOUND-TYPE ; (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPOUND-TYPE-TYPES ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE ; SB!KERNEL:SIMD-PACK-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 #:G4239 ; '(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 ; SB!KERNEL:SIMD-PACK-TYPE)) ; ; caught STYLE-WARNING: ; undefined type: CONS-TYPE ; (SB!C::CONSTANT-FUNCTION-CALL-P SB!KERNEL:FORM NIL NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!C::CONSTANT-FUNCTION-CALL-P ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION #'SXHASH :HASH-BITS 9 ...) ; (SB!KERNEL::CTYPE-OF-NUMBER SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF-NUMBER ; in: DEFUN CTYPEP ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE ; SB!KERNEL:SIMD-PACK-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 #:G4239 'SB!KERNEL:FUN-TYPE) ; ; caught STYLE-WARNING: ; undefined type: FUN-TYPE ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT (SB!KERNEL:CLASSOID-NAME TYPE)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE (SB!KERNEL:CLASSOID-NAME TYPE) 28) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE ; SB!KERNEL:SIMD-PACK-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 #:G4239 'SB!KERNEL:HAIRY-TYPE) ; ; caught STYLE-WARNING: ; undefined type: HAIRY-TYPE ; (SB!KERNEL:HAIRY-TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: HAIRY-TYPE-SPECIFIER ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT (SB!KERNEL:CLASSOID-NAME TYPE)) ; ; caught STYLE-WARNING: ; undefined function: INFO ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; --> LET COND IF ; ==> ; (TYPEP #:G4259 'SB!KERNEL:INTERSECTION-TYPE) ; ; caught STYLE-WARNING: ; undefined type: INTERSECTION-TYPE ; in: DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION #'SXHASH :HASH-BITS 9 ...) ; (SB!KERNEL:CLASSOID-OF SB!KERNEL::X) ; --> BLOCK ; ==> ; (SB!KERNEL:LAYOUT-CLASSOID (SB!KERNEL:LAYOUT-OF SB!KERNEL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN CLASSOID-OF ; (SB!KERNEL:LAYOUT-CLASSOID (SB!KERNEL:LAYOUT-OF SB!KERNEL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION #'SXHASH :HASH-BITS 9 ...) ; (SB!KERNEL:MAKE-ARRAY-TYPE :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 ; SB!KERNEL:SIMD-PACK-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 #:G4239 ; '(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 ; SB!KERNEL:SIMD-PACK-TYPE)) ; ; caught STYLE-WARNING: ; undefined type: MEMBER-TYPE ; ; caught STYLE-WARNING: ; undefined type: NAMED-TYPE ; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G4239 'SB!KERNEL:NEGATION-TYPE) ; ; caught STYLE-WARNING: ; undefined type: NEGATION-TYPE ; (SB!KERNEL:NEGATION-TYPE-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: NEGATION-TYPE-TYPE ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE ; SB!KERNEL:SIMD-PACK-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 #:G4239 ; '(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 ; SB!KERNEL:SIMD-PACK-TYPE)) ; ; caught STYLE-WARNING: ; undefined type: NUMERIC-TYPE ; ; caught STYLE-WARNING: ; undefined type: SIMD-PACK-TYPE ; in: DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION #'SXHASH :HASH-BITS 9 ...) ; (SB!KERNEL:SPECIFIER-TYPE (SB!IMPL::%FUN-TYPE SB!KERNEL::X)) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: DEFUN CTYPEP ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G4259 'SB!KERNEL:UNION-TYPE) ; ; caught STYLE-WARNING: ; undefined type: UNION-TYPE ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE ; SB!KERNEL:SIMD-PACK-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 #:G4239 'SB!KERNEL:UNKNOWN-TYPE) ; ; caught STYLE-WARNING: ; undefined type: UNKNOWN-TYPE ; ; compilation unit finished ; Undefined types: ; 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 SIMD-PACK-TYPE UNION-TYPE UNKNOWN-TYPE ; Undefined functions: ; SB!IMPL::%DEFGLOBAL SB!IMPL::%FUN-TYPE %FUNCALLABLE-INSTANCE-LAYOUT ALIEN-TYPE-TYPE-ALIEN-TYPE ALIEN-TYPEP CLASSOID-LAYOUT COMPOUND-TYPE-TYPES SB!C::CONSTANT-FUNCTION-CALL-P CSUBTYPEP CTYPE-OF-NUMBER SB!C::GET-INFO-VALUE HAIRY-TYPE-SPECIFIER INFO LAYOUT-CLASSOID MAKE-ARRAY-TYPE MAKE-CONS-TYPE MAKE-MEMBER-TYPE NEGATION-TYPE-TYPE SPECIFIER-TYPE ; caught 38 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-type.lisp-obj-tmp written ; compilation finished in 0:00:00.128 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pred.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE STREAMP)) ; x-compiling (DEFUN STREAMP ...) ; x-compiling (DEF) ; x-compiling (DEFUN EXTENDED-SEQUENCE-P ...) ; x-compiling (DEFUN SEQUENCEP ...) ; x-compiling (DEFUN NOT ...) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER ARRAY-HEADER-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER ARRAYP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER ATOM) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BASE-CHAR-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BASE-STRING-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CHARACTER-STRING-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BIGNUMP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BIT-VECTOR-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CHARACTERP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CODE-COMPONENT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CONSP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPILED-FUNCTION-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEXP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-DOUBLE-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-RATIONAL-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-SINGLE-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER DOUBLE-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER EXTENDED-CHAR-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FDEFN-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FIXNUMP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FLOATP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FUNCTIONP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER INTEGERP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER LISTP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER LONG-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER LRA-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER NULL) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER NUMBERP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER RATIONALP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER RATIOP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER REALP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SHORT-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SINGLE-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIMD-PACK-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER %INSTANCEP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SYMBOLP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER %OTHER-POINTER-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SYSTEM-AREA-POINTER-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER WEAK-POINTER-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER UNSIGNED-BYTE-64-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIGNED-BYTE-64-P) ; x-compiling (SAETP-DEFS) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-RANK-1-ARRAY-*-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-STRING-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER STRINGP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER VECTORP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER VECTOR-NIL-P) ; x-compiling (DEFUN FIXNUM-MOD-P ...) ; x-compiling (DEFUN %OTHER-POINTER-SUBTYPE-P ...) ; x-compiling (DEFUN TYPE-OF ...) ; x-compiling (DEFUN EQ ...) ; x-compiling (DECLAIM (INLINE %EQL)) ; x-compiling (DEFUN %EQL ...) ; x-compiling (DEFUN EQL ...) ; x-compiling (DEFUN BIT-VECTOR-= ...) ; x-compiling (DEFUN EQUAL ...) ; x-compiling (DEFUN HASH-TABLE-EQUALP ...) ; x-compiling (DEFUN EQUALP ...) ; x-compiling (/SHOW0 "about to do test cases in pred.lisp") ; x-compiling (LET (#) ...) ; x-compiling (/SHOW0 "done with test cases in pred.lisp") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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) ; --> LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT4320 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; ; caught STYLE-WARNING: ; 1 more use of undefined function %FUNCALLABLE-INSTANCE-LAYOUT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pred.lisp ; in: DEFUN EQUAL ; (SB!KERNEL:%EQL SB!IMPL::X SB!IMPL::Y) ; --> BLOCK OR LET IF OR THE IF MACROLET SB!IMPL::FOO TYPECASE LET COND IF COND ; --> IF COND IF PROGN AND IF AND THE ; --> (LAMBDA (SB!IMPL::X SB!IMPL::Y) (ZEROP (SB!BIGNUM:BIGNUM-COMPARE SB!IMPL::X SB!IMPL::Y))) ; --> SB!C::%FUNCALL ZEROP = IF = ; ==> ; (SB!BIGNUM:BIGNUM-COMPARE SB!IMPL::X SB!IMPL::Y) ; ; caught STYLE-WARNING: ; undefined function: BIGNUM-COMPARE ; in: DEFUN EQL ; (SB!KERNEL:%EQL SB!IMPL::X SB!IMPL::Y) ; --> BLOCK OR LET IF OR THE IF MACROLET SB!IMPL::FOO TYPECASE LET COND IF COND ; --> IF COND IF PROGN AND IF AND THE ; --> (LAMBDA (SB!IMPL::X SB!IMPL::Y) (ZEROP (SB!BIGNUM:BIGNUM-COMPARE SB!IMPL::X SB!IMPL::Y))) ; --> SB!C::%FUNCALL ZEROP = IF = ; ==> ; (SB!BIGNUM:BIGNUM-COMPARE SB!IMPL::X SB!IMPL::Y) ; ; caught STYLE-WARNING: ; undefined function: BIGNUM-COMPARE ; in: DEFUN %EQL ; (SB!BIGNUM:BIGNUM-COMPARE SB!IMPL::X SB!IMPL::Y) ; ; caught STYLE-WARNING: ; undefined function: BIGNUM-COMPARE ; in: DEFUN TYPE-OF ; (SB!KERNEL:CLASSOID-PCL-CLASS SB!IMPL::PNAME) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-PCL-CLASS ; (SB!KERNEL:CLASSOID-PROPER-NAME SB!KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-PROPER-NAME ; in: 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 THE ; --> NOT IF ; ==> ; (SB!EVAL:INTERPRETED-FUNCTION-P #:X72) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-P ; in: DEFUN EQUALP ; (SB!KERNEL:LAYOUT-CLASSOID SB!IMPL::LAYOUT-X) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN TYPE-OF ; (SB!KERNEL:LAYOUT-CLASSOID (SB!KERNEL:LAYOUT-OF SB!IMPL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN SEQUENCEP ; (SB!KERNEL:LAYOUT-INVALID SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN EXTENDED-SEQUENCE-P ; (SB!KERNEL:LAYOUT-INVALID SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN STREAMP ; (TYPEP STREAM 'STREAM) ; --> LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT4320 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN EQUALP ; (SB!KERNEL:LAYOUT-LENGTH SB!IMPL::LAYOUT-X) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-LENGTH ; (SB!KERNEL:LAYOUT-N-UNTAGGED-SLOTS SB!IMPL::LAYOUT-X) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-N-UNTAGGED-SLOTS ; (SB!KERNEL:RAW-INSTANCE-SLOTS-EQUALP SB!IMPL::LAYOUT-X SB!IMPL::X SB!IMPL::Y) ; ; caught STYLE-WARNING: ; undefined function: RAW-INSTANCE-SLOTS-EQUALP ; in: DEFUN TYPE-OF ; (SB!KERNEL:TYPE-SPECIFIER (SB!KERNEL:CTYPE-OF SB!IMPL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; (SB!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) ; --> LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT4320 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT BIGNUM-COMPARE CLASSOID-PCL-CLASS CLASSOID-PROPER-NAME SB!EVAL:INTERPRETED-FUNCTION-P LAYOUT-CLASSOID LAYOUT-INVALID LAYOUT-LENGTH LAYOUT-N-UNTAGGED-SLOTS RAW-INSTANCE-SLOTS-EQUALP TYPE-SPECIFIER SB!ALIEN-INTERNALS:UNPARSE-ALIEN-TYPE UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 23 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/pred.lisp-obj-tmp written ; compilation finished in 0:00:00.488 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-alieneval.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (/SHOW0 "target-alieneval.lisp 15") ; x-compiling (DEFUN GUESS-ALIEN-NAME-FROM-LISP-NAME ...) ; x-compiling (DEFUN GUESS-LISP-NAME-FROM-ALIEN-NAME ...) ; x-compiling (DEFUN PICK-LISP-AND-ALIEN-NAMES ...) ; x-compiling (DEFMACRO DEFINE-ALIEN-VARIABLE ...) ; x-compiling (DEFUN %DEFINE-ALIEN-VARIABLE ...) ; x-compiling (DEFUN ALIEN-VALUE ...) ; x-compiling (DEFMACRO EXTERN-ALIEN ...) ; x-compiling (DEFMACRO WITH-ALIEN ...) ; x-compiling (DECLAIM (FREEZE-TYPE ALIEN-VALUE)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DECLAIM (INLINE NULL-ALIEN)) ; x-compiling (DEFUN NULL-ALIEN ...) ; x-compiling (DEFMACRO SAP-ALIEN ...) ; x-compiling (DEFUN %SAP-ALIEN ...) ; x-compiling (DEFUN ALIEN-SAP ...) ; x-compiling (DEFMACRO MAKE-ALIEN ...) ; x-compiling (DEFUN MALLOC-ERROR ...) ; x-compiling (DECLAIM (INLINE %MAKE-ALIEN)) ; x-compiling (DEFUN %MAKE-ALIEN ...) ; x-compiling (DECLAIM (INLINE FREE-ALIEN)) ; x-compiling (DEFUN FREE-ALIEN ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFUN %MAKE-ALIEN-STRING ...) ; x-compiling (DEFUN MAKE-ALIEN-STRING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-alieneval.lisp ; in: DEFUN MAKE-ALIEN-STRING ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN::SAP ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE '(* CHAR) NIL)) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFINE-COMPILER-MACRO MAKE-ALIEN-STRING ...) ; x-compiling (DEFUN SLOT-OR-LOSE ...) ; x-compiling (DEFUN SLOT ...) ; x-compiling (DEFUN %SET-SLOT ...) ; x-compiling (DEFUN %SLOT-ADDR ...) ; x-compiling (DEFUN DEREF-GUTS ...) ; x-compiling (DEFUN DEREF ...) ; x-compiling (DEFUN %SET-DEREF ...) ; x-compiling (DEFUN %DEREF-ADDR ...) ; x-compiling (DEFUN %HEAP-ALIEN ...) ; x-compiling (DEFUN %SET-HEAP-ALIEN ...) ; x-compiling (DEFUN %HEAP-ALIEN-ADDR ...) ; x-compiling (DEFUN MAKE-LOCAL-ALIEN ...) ; x-compiling (DEFUN NOTE-LOCAL-ALIEN-TYPE ...) ; x-compiling (DEFUN LOCAL-ALIEN ...) ; x-compiling (DEFUN %SET-LOCAL-ALIEN ...) ; x-compiling (DEFINE-SETF-EXPANDER LOCAL-ALIEN ...) ; x-compiling (DEFUN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...) ; x-compiling (DEFUN %LOCAL-ALIEN-ADDR ...) ; x-compiling (DEFMACRO CAST ...) ; x-compiling (DEFUN %CAST ...) ; x-compiling (DEFMACRO ALIEN-SIZE ...) ; x-compiling (DEFUN COERCE-TO-INTERPRETED-FUNCTION ...) ; x-compiling (DEFUN NATURALIZE ...) ; x-compiling (DEFUN DEPORT ...) ; x-compiling (DEFUN DEPORT-ALLOC ...) ; x-compiling (DEFUN %ALIEN-VALUE ...) ; x-compiling (DEFUN (SETF %ALIEN-VALUE) ...) ; x-compiling (DEFUN ALIEN-FUNCALL ...) ; x-compiling (DEFMACRO DEFINE-ALIEN-ROUTINE ...) ; x-compiling (DEFUN ALIEN-TYPEP ...) ; x-compiling (DEFUN ALIEN-VALUE-TYPEP ...) ; x-compiling (DEFVAR *ALIEN-CALLBACK-INFO* ...) ; x-compiling (DEFSTRUCT CALLBACK-INFO ...) ; x-compiling (DEFUN CALLBACK-INFO-KEY ...) ; x-compiling (DEFUN ALIEN-CALLBACK-INFO ...) ; x-compiling (DEFVAR *ALIEN-CALLBACKS* ...) ; x-compiling (DEFVAR *ALIEN-CALLBACK-WRAPPERS* ...) ; x-compiling (DEFVAR *ALIEN-CALLBACK-TRAMPOLINES* ...) ; x-compiling (DEFUN %ALIEN-CALLBACK-SAP ...) ; x-compiling (DEFUN ALIEN-CALLBACK-LISP-TRAMPOLINE ...) ; x-compiling (DEFUN ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ...) ; x-compiling (DEFUN INVALID-ALIEN-CALLBACK ...) ; x-compiling (DEFUN PARSE-CALLBACK-SPECIFICATION ...) ; x-compiling (DEFUN PARSE-ALIEN-FTYPE ...) ; x-compiling (DEFUN ALIEN-VOID-TYPE-P ...) ; x-compiling (DEFUN ALIEN-TYPE-WORD-ALIGNED-BITS ...) ; x-compiling (DEFUN ALIEN-CALLBACK-ARGUMENT-BYTES ...) ; x-compiling (DEFUN ENTER-ALIEN-CALLBACK ...) ; x-compiling (DEFVAR *ENTER-ALIEN-CALLBACK* ...) ; x-compiling (DEFMACRO ALIEN-CALLBACK ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-alieneval.lisp ; in: DEFMACRO ALIEN-CALLBACK ; (DEFMACRO SB!ALIEN-INTERNALS:ALIEN-CALLBACK ; (SB!ALIEN::SPECIFIER FUNCTION &ENVIRONMENT SB!ALIEN::ENV) ; "Returns an alien-value with of alien ftype SPECIFIER, that can be passed to ; an alien function as a pointer to the FUNCTION. If a callback for the given ; SPECIFIER and FUNCTION already exists, it is returned instead of consing a new ; one." ; (MULTIPLE-VALUE-BIND ; (SB!ALIEN::RESULT-TYPE SB!ALIEN::ARGUMENT-TYPES SB!ALIEN::CALL-TYPE) ; (SB!ALIEN::PARSE-ALIEN-FTYPE SB!ALIEN::SPECIFIER SB!ALIEN::ENV) ; (SB!IMPL::BACKQ-LIST 'SB!ALIEN-INTERNALS:%SAP-ALIEN ; (SB!IMPL::BACKQ-LIST 'SB!ALIEN::%ALIEN-CALLBACK-SAP ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!ALIEN::SPECIFIER) ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!ALIEN::RESULT-TYPE) ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!ALIEN::ARGUMENT-TYPES) ; FUNCTION ; (SB!IMPL::BACKQ-LIST 'OR # #) ; SB!ALIEN::CALL-TYPE) ; (SB!IMPL::BACKQ-LIST 'QUOTE ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE ; SB!ALIEN::SPECIFIER ; SB!ALIEN::ENV))))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFMACRO 'SB!ALIEN-INTERNALS:ALIEN-CALLBACK ; #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!ALIEN-INTERNALS:ALIEN-CALLBACK #)))) ; '(SB!ALIEN::SPECIFIER FUNCTION &ENVIRONMENT SB!ALIEN::ENV) ; "Returns an alien-value with of alien ftype SPECIFIER, that can be passed to ; an alien function as a pointer to the FUNCTION. If a callback for the given ; SPECIFIER and FUNCTION already exists, it is returned instead of consing a new ; one." ; '(MACRO-FUNCTION SB!ALIEN-INTERNALS:ALIEN-CALLBACK) ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ; ; caught STYLE-WARNING: ; undefined function: PARSE-ALIEN-FTYPE ; x-compiling (DEFUN ALIEN-CALLBACK-P ...) ; x-compiling (DEFUN ALIEN-CALLBACK-FUNCTION ...) ; x-compiling (DEFUN (SETF ALIEN-CALLBACK-FUNCTION) ...) ; x-compiling (DEFUN INVALIDATE-ALIEN-CALLBACK ...) ; x-compiling (DEFMACRO ALIEN-LAMBDA ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-alieneval.lisp ; in: DEFMACRO ALIEN-LAMBDA ; (DEFMACRO SB!ALIEN::ALIEN-LAMBDA ; (SB!ALIEN::RESULT-TYPE SB!ALIEN::TYPED-LAMBDA-LIST ; &BODY SB!ALIEN::FORMS) ; (MULTIPLE-VALUE-BIND (SB!ALIEN::SPECIFIER SB!ALIEN::LAMBDA-LIST) ; (SB!ALIEN::PARSE-CALLBACK-SPECIFICATION SB!ALIEN::RESULT-TYPE ; SB!ALIEN::TYPED-LAMBDA-LIST) ; (SB!IMPL::BACKQ-LIST 'SB!ALIEN-INTERNALS:ALIEN-CALLBACK ; SB!ALIEN::SPECIFIER ; (SB!IMPL::BACKQ-LIST* 'LAMBDA SB!ALIEN::LAMBDA-LIST ; SB!ALIEN::FORMS)))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFMACRO 'SB!ALIEN::ALIEN-LAMBDA ; #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.) ; (DECLARE (IGNORE #:.ENVIRONMENT.)) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!ALIEN::ALIEN-LAMBDA #)))) ; '(SB!ALIEN::RESULT-TYPE SB!ALIEN::TYPED-LAMBDA-LIST &BODY ; SB!ALIEN::FORMS) ; NIL '(MACRO-FUNCTION SB!ALIEN::ALIEN-LAMBDA) ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: PARSE-CALLBACK-SPECIFICATION ; x-compiling (DEFMACRO DEFINE-ALIEN-CALLBACK ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-alieneval.lisp ; in: DEFMACRO DEFINE-ALIEN-CALLBACK ; (DEFMACRO SB!ALIEN::DEFINE-ALIEN-CALLBACK ; (SB!ALIEN::NAME SB!ALIEN::RESULT-TYPE SB!ALIEN::TYPED-LAMBDA-LIST ; &BODY SB!ALIEN::FORMS) ; "Defines #'NAME as a function with the given body and lambda-list, and NAME as ; the alien callback for that function with the given alien type." ; (DECLARE (SYMBOL SB!ALIEN::NAME)) ; (MULTIPLE-VALUE-BIND (SB!ALIEN::SPECIFIER SB!ALIEN::LAMBDA-LIST) ; (SB!ALIEN::PARSE-CALLBACK-SPECIFICATION SB!ALIEN::RESULT-TYPE ; SB!ALIEN::TYPED-LAMBDA-LIST) ; (SB!IMPL::BACKQ-LIST 'PROGN ; (SB!IMPL::BACKQ-LIST* 'DEFUN SB!ALIEN::NAME ; SB!ALIEN::LAMBDA-LIST ; SB!ALIEN::FORMS) ; (SB!IMPL::BACKQ-LIST 'DEFPARAMETER SB!ALIEN::NAME ; (SB!IMPL::BACKQ-LIST ; 'SB!ALIEN-INTERNALS:ALIEN-CALLBACK ; SB!ALIEN::SPECIFIER #))))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFMACRO 'SB!ALIEN::DEFINE-ALIEN-CALLBACK ; #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.) ; (DECLARE (IGNORE #:.ENVIRONMENT.)) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # # #) ; (DECLARE #) ; (BLOCK SB!ALIEN::DEFINE-ALIEN-CALLBACK #)))) ; '(SB!ALIEN::NAME SB!ALIEN::RESULT-TYPE ; SB!ALIEN::TYPED-LAMBDA-LIST &BODY SB!ALIEN::FORMS) ; "Defines #'NAME as a function with the given body and lambda-list, and NAME as ; the alien callback for that function with the given alien type." ; '(MACRO-FUNCTION SB!ALIEN::DEFINE-ALIEN-CALLBACK) ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: PARSE-CALLBACK-SPECIFICATION ; in: DEFSTRUCT CALLBACK-INFO ; (DEFSTRUCT SB!ALIEN::CALLBACK-INFO ; SB!ALIEN::SPECIFIER ; FUNCTION ; SB!ALIEN::WRAPPER ; SB!INT:INDEX) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFMACRO MAKE-ALIEN ; (SETF (SB!ALIEN-INTERNALS:ALIEN-ARRAY-TYPE-DIMENSIONS ; SB!ALIEN-INTERNALS:ALIEN-TYPE) ; (CONS (SB!INT:CONSTANT-FORM-VALUE SB!ALIEN::SIZE) ; (CDR SB!ALIEN::DIMS))) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN-INTERNALS:ALIEN-ARRAY-TYPE-DIMENSIONS) ; #:NEW170 #:ALIEN-TYPE171) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-ARRAY-TYPE-DIMENSIONS) ; in: DEFUN ALIEN-FUNCALL ; (SETF (SB!ALIEN::ALIEN-FUN-TYPE-STUB TYPE) SB!ALIEN::STUB) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-FUN-TYPE-STUB) #:NEW521 #:TYPE522) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-FUN-TYPE-STUB) ; in: DEFUN %DEFINE-ALIEN-VARIABLE ; (SETF (SB!INT:INFO :VARIABLE :KIND SB!ALIEN::LISP-NAME) :ALIEN) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!INT:INFO) #:NEW41 :VARIABLE :KIND #:LISP-NAME42) ; ; caught STYLE-WARNING: ; undefined function: (SETF INFO) ; in: DEFUN DEREF-GUTS ; (SB!ALIEN-INTERNALS:ALIEN-ARRAY-TYPE-DIMENSIONS TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-ARRAY-TYPE-DIMENSIONS ; in: DEFMACRO MAKE-ALIEN ; (SB!ALIEN-INTERNALS:ALIEN-ARRAY-TYPE-DIMENSIONS SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-ARRAY-TYPE-DIMENSIONS ; in: DEFUN DEREF-GUTS ; (SB!ALIEN-INTERNALS:ALIEN-ARRAY-TYPE-ELEMENT-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-ARRAY-TYPE-ELEMENT-TYPE ; in: DEFMACRO MAKE-ALIEN ; (SB!ALIEN-INTERNALS:ALIEN-ARRAY-TYPE-ELEMENT-TYPE ; SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-ARRAY-TYPE-ELEMENT-TYPE ; in: DEFUN ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ; (SB!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-FUNCALL ; (SB!ALIEN-INTERNALS:ALIEN-FUN-TYPE-ARG-TYPES TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-FUN-TYPE-ARG-TYPES ; (SB!ALIEN::ALIEN-FUN-TYPE-STUB TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-FUN-TYPE-STUB ; in: DEFUN ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ; (SB!ALIEN-INTERNALS:ALIEN-INTEGER-TYPE-SIGNED SB!ALIEN::RESULT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-INTEGER-TYPE-SIGNED ; in: DEFUN DEREF-GUTS ; (SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE-TO TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-POINTER-TYPE-TO ; in: DEFUN SLOT-OR-LOSE ; #'SB!ALIEN-INTERNALS:ALIEN-RECORD-FIELD-NAME ; ; caught STYLE-WARNING: ; undefined function: ALIEN-RECORD-FIELD-NAME ; (SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE-FIELDS TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-RECORD-TYPE-FIELDS ; in: DEFUN ALIEN-VALUE-TYPEP ; (SB!ALIEN-INTERNALS:ALIEN-SUBTYPE-P ; (SB!ALIEN-INTERNALS:ALIEN-VALUE-TYPE SB!ALIEN::OBJECT) TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-SUBTYPE-P ; in: DEFUN ALIEN-TYPEP ; (SB!ALIEN-INTERNALS:ALIEN-SUBTYPE-P ; (SB!ALIEN-INTERNALS:ALIEN-VALUE-TYPE SB!ALIEN::OBJECT) TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-SUBTYPE-P ; in: DEFUN DEREF-GUTS ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-ALIGNMENT SB!ALIEN::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-ALIGNMENT ; in: DEFMACRO MAKE-ALIEN ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-ALIGNMENT SB!ALIEN::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-ALIGNMENT ; in: DEFMACRO ALIEN-SIZE ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-BITS SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-BITS ; in: DEFUN DEREF-GUTS ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-BITS SB!ALIEN::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-BITS ; in: DEFMACRO MAKE-ALIEN ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-BITS SB!ALIEN::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-BITS ; ; caught STYLE-WARNING: ; 2 more uses of undefined function ALIEN-TYPE-BITS ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-alieneval.lisp ; in: DEFUN ALIEN-VOID-TYPE-P ; (SB!ALIEN-INTERNALS:ALIEN-VALUES-TYPE-VALUES TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-VALUES-TYPE-VALUES ; in: DEFUN ALIEN-TYPE-WORD-ALIGNED-BITS ; (SB!ALIEN-INTERNALS:ALIGN-OFFSET (SB!ALIEN-INTERNALS:ALIEN-TYPE-BITS TYPE) ; SB!VM:N-WORD-BITS) ; ; caught STYLE-WARNING: ; undefined function: ALIGN-OFFSET ; in: DEFUN DEREF-GUTS ; (SB!ALIEN-INTERNALS:ALIGN-OFFSET ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-BITS SB!ALIEN::ELEMENT-TYPE) ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-ALIGNMENT SB!ALIEN::ELEMENT-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: ALIGN-OFFSET ; in: DEFMACRO MAKE-ALIEN ; (SB!ALIEN-INTERNALS:ALIGN-OFFSET SB!ALIEN::BITS SB!ALIEN::ALIGNMENT) ; ; caught STYLE-WARNING: ; undefined function: ALIGN-OFFSET ; in: DEFINE-SETF-EXPANDER LOCAL-ALIEN ; (DEFINE-SETF-EXPANDER SB!ALIEN-INTERNALS:LOCAL-ALIEN ; (&WHOLE SB!ALIEN::WHOLE SB!INT:INFO SB!ALIEN:ALIEN) ; (LET ((SB!ALIEN::VALUE (GENSYM)) ; (SB!ALIEN::INFO-VAR (GENSYM)) ; (SB!ALIEN::ALLOC-TMP (GENSYM)) ; (SB!INT:INFO ; (IF # ; # ; #))) ; (VALUES NIL NIL (LIST SB!ALIEN::VALUE) ; (SB!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 (#:WHOLE418 #:ENVIRONMENT419) ; (DECLARE (IGNORE #:ENVIRONMENT419)) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!ALIEN-INTERNALS:LOCAL-ALIEN #)))) ; '(&WHOLE SB!ALIEN::WHOLE SB!INT:INFO ; SB!ALIEN:ALIEN) ; NIL 'NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFMACRO WITH-ALIEN ; (SB!ALIEN::WITH-AUXILIARY-ALIEN-TYPES SB!ALIEN::ENV ; (DOLIST (SB!ALIEN::BINDING (REVERSE SB!ALIEN::BINDINGS)) ; (SB!INT:/SHOW SB!ALIEN::BINDING) ; (DESTRUCTURING-BIND ; (SYMBOL TYPE ; &OPTIONAL (SB!ALIEN::OPT1 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!IMPL::BACKQ-LIST* 'LET ; '((SB!VM::*ALIEN-STACK-POINTER* ; SB!VM::*ALIEN-STACK-POINTER*)) ; 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 SLOT-OR-LOSE ; (FIND SB!ALIEN:SLOT (SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE-FIELDS TYPE) :KEY ; #'SB!ALIEN-INTERNALS:ALIEN-RECORD-FIELD-NAME) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB!KERNEL:%FIND-POSITION ; ==> ; (SB!KERNEL:%FIND-POSITION-IF ; (LET ((SB!C::TEST-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::TEST))) ; (LAMBDA (SB!C::I) (FUNCALL SB!C::TEST-FUN SB!C::ITEM SB!C::I))) ; SEQUENCE SB!C::FROM-END SB!C::START SB!C::END ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::KEY)) ; ; caught STYLE-WARNING: ; undefined function: CIRCULAR-LIST-ERROR ; in: DEFUN COERCE-TO-INTERPRETED-FUNCTION ; (COERCE SB!ALIEN::LAMBDA-FORM 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:COERCE-TO-FUN ; in: DEFUN PARSE-ALIEN-FTYPE ; (MAPCAR ; (LAMBDA (SB!ALIEN::SPEC) ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE SB!ALIEN::SPEC SB!ALIEN::ENV)) ; SB!ALIEN::ARGUMENT-TYPES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN PARSE-CALLBACK-SPECIFICATION ; (MAPCAR #'FIRST SB!ALIEN::LAMBDA-LIST) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR #'SECOND SB!ALIEN::LAMBDA-LIST) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO SAP-ALIEN ; (SB!ALIEN-INTERNALS:COMPUTE-ALIEN-REP-TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-ALIEN-REP-TYPE ; in: DEFUN DEPORT-ALLOC ; (SB!ALIEN-INTERNALS:COMPUTE-DEPORT-ALLOC-LAMBDA TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-DEPORT-ALLOC-LAMBDA ; in: DEFUN DEPORT ; (SB!ALIEN-INTERNALS:COMPUTE-DEPORT-LAMBDA TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-DEPORT-LAMBDA ; in: DEFUN (SETF %ALIEN-VALUE) ; (SB!ALIEN-INTERNALS:COMPUTE-DEPOSIT-LAMBDA TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-DEPOSIT-LAMBDA ; in: DEFUN %ALIEN-VALUE ; (SB!ALIEN-INTERNALS:COMPUTE-EXTRACT-LAMBDA TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-EXTRACT-LAMBDA ; in: DEFUN ALIEN-TYPEP ; (SB!ALIEN-INTERNALS:COMPUTE-LISP-REP-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-LISP-REP-TYPE ; in: DEFUN NATURALIZE ; (SB!ALIEN-INTERNALS:COMPUTE-NATURALIZE-LAMBDA TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-NATURALIZE-LAMBDA ; in: DEFMACRO MAKE-ALIEN ; (SB!INT:CONSTANT-FORM-VALUE SB!ALIEN::SIZE) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-FORM-VALUE ; in: DEFUN MAKE-LOCAL-ALIEN ; (SB!EXT:FINALIZE SB!ALIEN:ALIEN ; (LAMBDA () ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "free" (FUNCTION # SB!SYS:SYSTEM-AREA-POINTER)) ; SB!ALIEN:ALIEN-SAP)) ; :DONT-SAVE T) ; ; caught STYLE-WARNING: ; undefined function: FINALIZE ; in: DEFUN %MAKE-ALIEN-STRING ; (SB!ALIEN::%MAKE-ALIEN COUNT) ; --> BLOCK LET IF SB!ALIEN::MALLOC-ERROR ; ==> ; (SB!ALIEN:GET-ERRNO) ; ; caught STYLE-WARNING: ; undefined function: GET-ERRNO ; in: DEFUN %MAKE-ALIEN ; (SB!ALIEN:GET-ERRNO) ; ; caught STYLE-WARNING: ; undefined function: GET-ERRNO ; in: DEFUN ALIEN-VALUE ; (SB!INT:INFO :VARIABLE :ALIEN-INFO SYMBOL) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SYMBOL 19) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN %LOCAL-ALIEN-ADDR ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined function: LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P ; in: DEFUN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined function: LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P ; in: DEFINE-SETF-EXPANDER LOCAL-ALIEN ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO-TYPE SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined function: LOCAL-ALIEN-INFO-TYPE ; in: DEFUN MAKE-LOCAL-ALIEN ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO-TYPE SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined function: LOCAL-ALIEN-INFO-TYPE ; 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: DEFUN %DEFINE-ALIEN-VARIABLE ; (SB!ALIEN::MAKE-HEAP-ALIEN-INFO :TYPE TYPE :ALIEN-NAME SB!ALIEN::ALIEN-NAME ; :DATAP T) ; ; caught STYLE-WARNING: ; undefined function: MAKE-HEAP-ALIEN-INFO ; in: DEFMACRO WITH-ALIEN ; (SB!ALIEN::MAKE-LOCAL-ALIEN-INFO :TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LOCAL-ALIEN-INFO ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE TYPE SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: PARSE-ALIEN-TYPE ; in: DEFMACRO EXTERN-ALIEN ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE TYPE SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: PARSE-ALIEN-TYPE ; in: DEFMACRO DEFINE-ALIEN-VARIABLE ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE TYPE SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: PARSE-ALIEN-TYPE ; ; caught STYLE-WARNING: ; 10 more uses of undefined function PARSE-ALIEN-TYPE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-alieneval.lisp ; in: DEFUN MALLOC-ERROR ; (SB!INT:STRERROR SB!ALIEN::ERRNO) ; ; caught STYLE-WARNING: ; undefined function: STRERROR ; in: DEFUN %MAKE-ALIEN-STRING ; (SB!EXT:STRING-TO-OCTETS STRING :START SB!ALIEN::START :END SB!ALIEN::END ; :EXTERNAL-FORMAT SB!ALIEN::EXTERNAL-FORMAT :NULL-TERMINATE ; SB!ALIEN::NULL-TERMINATE) ; ; caught STYLE-WARNING: ; undefined function: STRING-TO-OCTETS ; in: DEFUN ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ; (SB!ALIEN-INTERNALS:UNPARSE-ALIEN-TYPE SB!ALIEN::RESULT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-ALIEN-TYPE ; in: DEFMACRO ALIEN-SIZE ; (SB!ALIEN-INTERNALS:UNPARSE-ALIEN-TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-ALIEN-TYPE ; in: DEFMACRO MAKE-ALIEN ; (SB!ALIEN-INTERNALS:UNPARSE-ALIEN-TYPE SB!ALIEN::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-ALIEN-TYPE ; in: DEFMACRO WITH-ALIEN ; (SB!ALIEN::VERIFY-LOCAL-AUXILIARIES-OKAY) ; ; caught STYLE-WARNING: ; undefined function: VERIFY-LOCAL-AUXILIARIES-OKAY ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT (SETF ALIEN-ARRAY-TYPE-DIMENSIONS) (SETF ALIEN-FUN-TYPE-STUB) (SETF INFO) ALIEN-ARRAY-TYPE-DIMENSIONS ALIEN-ARRAY-TYPE-ELEMENT-TYPE ALIEN-CALLBACK-ACCESSOR-FORM ALIEN-CALLBACK-ASSEMBLER-WRAPPER ALIEN-FUN-TYPE-ARG-TYPES ALIEN-FUN-TYPE-STUB ALIEN-INTEGER-TYPE-SIGNED ALIEN-POINTER-TYPE-TO ALIEN-RECORD-FIELD-NAME ALIEN-RECORD-TYPE-FIELDS ALIEN-SUBTYPE-P ALIEN-TYPE-ALIGNMENT ALIEN-TYPE-BITS ALIEN-VALUES-TYPE-VALUES ALIGN-OFFSET SB!IMPL::ASSIGN-SETF-MACRO AUXILIARY-TYPE-DEFINITIONS CIRCULAR-LIST-ERROR SB!KERNEL:COERCE-TO-FUN COMPUTE-ALIEN-REP-TYPE COMPUTE-DEPORT-ALLOC-LAMBDA COMPUTE-DEPORT-LAMBDA COMPUTE-DEPOSIT-LAMBDA COMPUTE-EXTRACT-LAMBDA COMPUTE-LISP-REP-TYPE COMPUTE-NATURALIZE-LAMBDA CONSTANT-FORM-VALUE FINALIZE GET-ERRNO SB!C::GET-INFO-VALUE INFO LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P LOCAL-ALIEN-INFO-TYPE MAKE-ALIEN-POINTER-TYPE MAKE-HEAP-ALIEN-INFO MAKE-LOCAL-ALIEN-INFO PARSE-ALIEN-TYPE STRERROR STRING-TO-OCTETS UNPARSE-ALIEN-TYPE VERIFY-LOCAL-AUXILIARIES-OKAY ; caught 70 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-alieneval.lisp-obj-tmp written ; compilation finished in 0:00:00.606 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-c-call.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (DEFINE-ALIEN-TYPE CHAR ...) ; x-compiling (DEFINE-ALIEN-TYPE SHORT ...) ; x-compiling (DEFINE-ALIEN-TYPE INT ...) ; x-compiling (DEFINE-ALIEN-TYPE LONG ...) ; x-compiling (DEFINE-ALIEN-TYPE LONG-LONG ...) ; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-CHAR ...) ; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-SHORT ...) ; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-INT ...) ; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-LONG ...) ; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-LONG-LONG ...) ; x-compiling (DEFINE-ALIEN-TYPE FLOAT ...) ; x-compiling (DEFINE-ALIEN-TYPE DOUBLE ...) ; x-compiling (DEFINE-ALIEN-TYPE UTF8-STRING ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR VOID ...) ; x-compiling (DEFUN DEFAULT-C-STRING-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN %NATURALIZE-C-STRING ...) ; x-compiling (DEFUN STRING-TO-C-STRING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-c-call.lisp ; in: DEFUN STRING-TO-C-STRING ; (FUNCALL (SB!IMPL::EF-WRITE-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT) STRING) ; --> SB!C::%FUNCALL THE ; ==> ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN ; (SB!IMPL::EF-WRITE-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; x-compiling (DEFUN C-STRING-TO-STRING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-c-call.lisp ; in: DEFUN C-STRING-TO-STRING ; (FUNCALL (SB!IMPL::EF-READ-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT) ; SB!ALIEN::SAP SB!ALIEN::ELEMENT-TYPE) ; --> SB!C::%FUNCALL THE ; ==> ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN ; (SB!IMPL::EF-READ-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; in: DEFINE-ALIEN-TYPE INT ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!ALIEN:INT (INTEGER 32)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!ALIEN:INT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %DEFINE-ALIEN-TYPE ; in: DEFINE-ALIEN-TYPE SHORT ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!ALIEN:SHORT (INTEGER 16)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!ALIEN:SHORT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %DEFINE-ALIEN-TYPE ; in: DEFINE-ALIEN-TYPE CHAR ; (SB!ALIEN:DEFINE-ALIEN-TYPE CHAR (INTEGER 8)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'CHAR ; '#) ; ; caught STYLE-WARNING: ; undefined function: %DEFINE-ALIEN-TYPE ; ; caught STYLE-WARNING: ; 10 more uses of undefined function %DEFINE-ALIEN-TYPE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-c-call.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR VOID ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:VOID ; NIL ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE '(VALUES) ; (SB!KERNEL:MAKE-NULL-LEXENV))) ; --> EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE-TRANSLATOR ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE-TRANSLATOR 'SB!ALIEN:VOID ; #'SB!ALIEN::ALIEN-VOID-TYPE-TRANSLATOR ; NIL) ; ; caught STYLE-WARNING: ; undefined function: %DEFINE-ALIEN-TYPE-TRANSLATOR ; in: DEFUN DEFAULT-C-STRING-EXTERNAL-FORMAT => SB!IMPL::DEFAULT-EXTERNAL-FORMAT ; (SB!IMPL::DEFAULT-EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::DEFAULT-EXTERNAL-FORMAT ; in: DEFUN C-STRING-TO-STRING ; (SB!IMPL::EF-READ-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::EF-READ-C-STRING-FUN ; in: DEFUN STRING-TO-C-STRING ; (SB!IMPL::EF-WRITE-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::EF-WRITE-C-STRING-FUN ; in: DEFUN C-STRING-TO-STRING ; (SB!IMPL::GET-EXTERNAL-FORMAT-OR-LOSE SB!ALIEN::EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::GET-EXTERNAL-FORMAT-OR-LOSE ; in: DEFUN STRING-TO-C-STRING ; (SB!IMPL::GET-EXTERNAL-FORMAT-OR-LOSE SB!ALIEN::EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::GET-EXTERNAL-FORMAT-OR-LOSE ; in: DEFINE-ALIEN-TYPE-TRANSLATOR VOID ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:MAKE-NULL-LEXENV ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE '(VALUES) (SB!KERNEL:MAKE-NULL-LEXENV)) ; ; caught STYLE-WARNING: ; undefined function: PARSE-ALIEN-TYPE ; ; compilation unit finished ; Undefined functions: ; %DEFINE-ALIEN-TYPE %DEFINE-ALIEN-TYPE-TRANSLATOR SB!IMPL::DEFAULT-EXTERNAL-FORMAT SB!IMPL::EF-READ-C-STRING-FUN SB!IMPL::EF-WRITE-C-STRING-FUN SB!IMPL::GET-EXTERNAL-FORMAT-OR-LOSE SB!KERNEL:MAKE-NULL-LEXENV PARSE-ALIEN-TYPE ; caught 12 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-c-call.lisp-obj-tmp written ; compilation finished in 0:00:01.105 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-allocate.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFINE-ALIEN-ROUTINE ("os_allocate" ALLOCATE-SYSTEM-MEMORY) ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("os_deallocate" DEALLOCATE-SYSTEM-MEMORY) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-allocate.lisp-obj-tmp written ; compilation finished in 0:00:00.014 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/misc-aliens.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE MEMMOVE)) ; x-compiling (DEFINE-ALIEN-ROUTINE ("memmove" MEMMOVE) ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("os_get_errno" GET-ERRNO) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN STRERROR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/misc-aliens.lisp ; in: SETF (FDOCUMENTATION 'GET-ERRNO 'FUNCTION) ; (SETF (SB!KERNEL:FDOCUMENTATION 'SB!ALIEN:GET-ERRNO 'FUNCTION) ; "Return the value of the C library pseudo-variable named \"errno\".") ; --> LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW16 'SB!ALIEN:GET-ERRNO ; 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFUN STRERROR ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "strerror" (FUNCTION SB!ALIEN:C-STRING SB!ALIEN:INT)) ; SB!IMPL::ERRNO) ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE ; (LET ((#:G5266 (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G5266 '#))) ; (SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS (#:G5266) ; (#) ; (SB!C:%ALIEN-FUNCALL (SB!ALIEN-INTERNALS:DEPORT FUNCTION '#) ; '# ; (SB!ALIEN-INTERNALS:DEPORT #:G5266 '#)))) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; ; compilation unit finished ; Undefined functions: ; (SETF FDOCUMENTATION) SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/misc-aliens.lisp-obj-tmp written ; compilation finished in 0:00:00.035 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-array.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFSTRUCT (SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES # ...) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-array.lisp ; in: DEFSTRUCT SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES ; (DEFSTRUCT ; (SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES ; (:CONC-NAME SB!VM::SAETP-) ; (:CONSTRUCTOR SB!VM::!MAKE-SAETP ; (SB!VM::SPECIFIER SB!VM::INITIAL-ELEMENT-DEFAULT SB!VM::N-BITS ; SB!C:PRIMITIVE-TYPE-NAME &KEY (SB!VM::N-PAD-ELEMENTS 0) ; SB!VM::COMPLEX-TYPECODE (SB!VM::IMPORTANCE 0) SB!VM::FIXNUM-P &AUX ; (SB!VM::TYPECODE #))) ; (:COPIER NIL)) ; (SB!VM::SPECIFIER (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:TYPE-SPECIFIER ; :READ-ONLY T) ; (SB!KERNEL:CTYPE NIL :TYPE (OR SB!KERNEL:CTYPE NULL)) ; (SB!VM::FIXNUM-P NIL :TYPE BOOLEAN :READ-ONLY T) ; (SB!VM::INITIAL-ELEMENT-DEFAULT (SB!INT:MISSING-ARG) :READ-ONLY T) ; (SB!VM::N-BITS (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!VM::TYPECODE (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!VM::COMPLEX-TYPECODE NIL :TYPE (OR SB!INT:INDEX NULL) :READ-ONLY T) ; (SB!C:PRIMITIVE-TYPE-NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!VM::N-PAD-ELEMENTS (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY ; T) ; (SB!VM::IMPORTANCE (SB!INT:MISSING-ARG) :TYPE FIXNUM :READ-ONLY T)) ; ; caught STYLE-WARNING: ; redefining SB!VM::!MAKE-SAETP in DEFUN ; x-compiling (DEFGLOBAL *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...) ; x-compiling (PROCLAIM (SB!IMPL::BACKQ-LIST* # ...)) ; x-compiling (DEFUN VALID-BIT-BASH-SAETP-P ...) ; x-compiling (DEFVAR SB!KERNEL::*SPECIALIZED-ARRAY-ELEMENT-TYPES* ...) ; x-compiling (DEFUN !VM-TYPE-COLD-INIT ...) ; x-compiling (DEFVAR *SIMPLE-ARRAY-PRIMITIVE-TYPES* ...) ; x-compiling (DEFVAR *VECTOR-WITHOUT-COMPLEX-TYPECODE-INFOS* ...) ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN FIND-SAETP ...) ; x-compiling (DEFUN FIND-SAETP-BY-CTYPE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-array.lisp ; in: DEFGLOBAL SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ; (SB!EXT:DEFGLOBAL SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ; (MAP 'SIMPLE-VECTOR ; (LAMBDA (SB!VM::ARGS) ; (APPLY #'SB!VM::!MAKE-SAETP SB!VM::ARGS)) ; (SB!IMPL::BACKQ-LIST* ; '(NIL #:MU 0 SB!VM::SIMPLE-ARRAY-NIL ; :COMPLEX-TYPECODE 241 :IMPORTANCE 0) ; (SB!IMPL::BACKQ-LIST* 'BASE-CHAR (CODE-CHAR 0) ; '(8 SIMPLE-BASE-STRING ; :N-PAD-ELEMENTS 1 ; :COMPLEX-TYPECODE 237 ; :IMPORTANCE 17)) ; (SB!IMPL::BACKQ-LIST* 'CHARACTER (CODE-CHAR 0) ; '(32 ; SB!VM::SIMPLE-CHARACTER-STRING ; :N-PAD-ELEMENTS 1 ; :COMPLEX-TYPECODE 233 ; :IMPORTANCE 17)) ; '((SINGLE-FLOAT 0.0 32 ; SB!VM::SIMPLE-ARRAY-SINGLE-FLOAT :IMPORTANCE 6) ; (DOUBLE-FLOAT 0.0d0 64 ; SB!VM::SIMPLE-ARRAY-DOUBLE-FLOAT :IMPORTANCE 5) ; (BIT 0 1 SIMPLE-BIT-VECTOR :COMPLEX-TYPECODE 245 ; :IMPORTANCE 16) ; (# 0 2 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-2 ; :IMPORTANCE 15) ; (# 0 4 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-4 ; :IMPORTANCE 14) ; (# 0 8 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-7 ; :IMPORTANCE 13) ; (# 0 8 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-8 ; :IMPORTANCE 13) ; (# 0 16 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-15 ; :IMPORTANCE 12) ; (# 0 16 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-16 ; :IMPORTANCE 12) ; (# 0 32 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-31 ; :IMPORTANCE 11) ; (# 0 32 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-32 ; :IMPORTANCE 11) ; (# 0 64 SB!VM::SIMPLE-ARRAY-UNSIGNED-FIXNUM ; :IMPORTANCE 8 :FIXNUM-P T) ; ...)))) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ; (UNLESS #:BOUNDP ; (MAP 'SIMPLE-VECTOR ; (LAMBDA (SB!VM::ARGS) ; (APPLY #'SB!VM::!MAKE-SAETP SB!VM::ARGS)) ; (SB!IMPL::BACKQ-LIST* ; '(NIL #:MU 0 SB!VM::SIMPLE-ARRAY-NIL ; :COMPLEX-TYPECODE 241 :IMPORTANCE 0) ; (SB!IMPL::BACKQ-LIST* 'BASE-CHAR # '#) ; (SB!IMPL::BACKQ-LIST* 'CHARACTER # '#) ; '(# # # # # # # # # # # # ...)))) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFSTRUCT SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES ; (DEFSTRUCT ; (SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES ; (:CONC-NAME SB!VM::SAETP-) ; (:CONSTRUCTOR SB!VM::!MAKE-SAETP ; (SB!VM::SPECIFIER SB!VM::INITIAL-ELEMENT-DEFAULT SB!VM::N-BITS ; SB!C:PRIMITIVE-TYPE-NAME &KEY (SB!VM::N-PAD-ELEMENTS 0) ; SB!VM::COMPLEX-TYPECODE (SB!VM::IMPORTANCE 0) SB!VM::FIXNUM-P &AUX ; (SB!VM::TYPECODE #))) ; (:COPIER NIL)) ; (SB!VM::SPECIFIER (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:TYPE-SPECIFIER ; :READ-ONLY T) ; (SB!KERNEL:CTYPE NIL :TYPE (OR SB!KERNEL:CTYPE NULL)) ; (SB!VM::FIXNUM-P NIL :TYPE BOOLEAN :READ-ONLY T) ; (SB!VM::INITIAL-ELEMENT-DEFAULT (SB!INT:MISSING-ARG) :READ-ONLY T) ; (SB!VM::N-BITS (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!VM::TYPECODE (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!VM::COMPLEX-TYPECODE NIL :TYPE (OR SB!INT:INDEX NULL) :READ-ONLY T) ; (SB!C:PRIMITIVE-TYPE-NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!VM::N-PAD-ELEMENTS (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY ; T) ; (SB!VM::IMPORTANCE (SB!INT:MISSING-ARG) :TYPE FIXNUM :READ-ONLY T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFUN FIND-SAETP-BY-CTYPE ; #'SB!KERNEL:CSUBTYPEP ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; ; compilation unit finished ; Undefined functions: ; SB!IMPL::%DEFGLOBAL SB!KERNEL::%TARGET-DEFSTRUCT CSUBTYPEP ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/vm-array.lisp-obj-tmp written ; compilation finished in 0:00:00.158 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/array.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE ADJUSTABLE-ARRAY-P ...)) ; x-compiling (DEF %ARRAY-FILL-POINTER) ; x-compiling (DEF %ARRAY-FILL-POINTER-P) ; x-compiling (DEF %ARRAY-AVAILABLE-ELEMENTS) ; x-compiling (DEF %ARRAY-DATA-VECTOR) ; x-compiling (DEF %ARRAY-DISPLACEMENT) ; x-compiling (DEF %ARRAY-DISPLACED-P) ; x-compiling (DEF %ARRAY-DIPLACED-FROM) ; x-compiling (DEFUN %ARRAY-RANK ...) ; x-compiling (DEFUN %ARRAY-DIMENSION ...) ; x-compiling (DEFUN %SET-ARRAY-DIMENSION ...) ; x-compiling (DEFUN %CHECK-BOUND ...) ; x-compiling (DEFUN %WITH-ARRAY-DATA/FP ...) ; x-compiling (DEFUN %WITH-ARRAY-DATA ...) ; x-compiling (DEFUN %DATA-VECTOR-AND-INDEX ...) ; x-compiling (DEFUN %INTEGER-VECTOR-WIDETAG-AND-N-BITS ...) ; x-compiling (DEFUN %VECTOR-WIDETAG-AND-N-BITS ...) ; x-compiling (DEFUN %COMPLEX-VECTOR-WIDETAG ...) ; x-compiling (DEFGLOBAL %%SIMPLE-ARRAY-N-BITS%% ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (DEFUN ALLOCATE-VECTOR-WITH-WIDETAG ...) ; x-compiling (DEFUN ARRAY-UNDERLYING-WIDETAG ...) ; x-compiling (DEFUN VALIDATE-ARRAY-INITARGS ...) ; x-compiling (DEFUN %MAKE-ARRAY ...) ; x-compiling (DEFUN MAKE-ARRAY ...) ; x-compiling (DEFUN MAKE-STATIC-VECTOR ...) ; x-compiling (DEFUN DATA-VECTOR-FROM-INITS ...) ; x-compiling (DEFUN VECTOR ...) ; x-compiling (DEF !FIND-DATA-VECTOR-SETTER ...) ; x-compiling (DEF !FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS ...) ; x-compiling (DEF %FIND-DATA-VECTOR-REFFER ...) ; x-compiling (DEF !FIND-DATA-VECTOR-REFFER/CHECK-BOUNDS ...) ; x-compiling (DEFMACRO DO-VECTOR-DATA ...) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 #:N-ARRAY704) ; ; 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. ; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 #:N-ARRAY725) ; ; 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. ; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 #:N-ARRAY746) ; ; 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 THE ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 #:N-ARRAY768) ; ; 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!EXT:TRULY-THE ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-SET ARRAY ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX) ; (THE * SB!C::NEW-VALUE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; x-compiling (DEFUN HAIRY-REF-ERROR ...) ; x-compiling (DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/array.lisp ; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-SETTERS%% ; (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-SETTERS%% ; SB!IMPL::DEFINE-SETTER (PROGN) #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET) ; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE ; --> SB!KERNEL:DATA-VECTOR-SET SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET THE ; --> SB!IMPL::DEFINE-SETTER SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!KERNEL:DATA-VECTOR-SET ; ==> ; (SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET (THE (SIMPLE-ARRAY NIL (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE (SAFETY 1))) ; (THE SB!INT:INDEX (PROGN SB!INT:INDEX))) ; 0 ; (LOCALLY ; (DECLARE (OPTIMIZE (SPEED 1) (SAFETY 1))) ; (THE NIL SB!IMPL::NEW-VALUE))) ; ; note: The fourth argument never returns a value. ; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-SETTERS/CHECK-BOUNDS%% ; (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-SETTERS/CHECK-BOUNDS%% ; SB!IMPL::DEFINE-SETTER (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR)) ; #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS) ; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE ; --> SB!KERNEL:DATA-VECTOR-SET SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET THE ; --> SB!IMPL::DEFINE-SETTER SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!KERNEL:DATA-VECTOR-SET ; ==> ; (SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET (THE (SIMPLE-ARRAY NIL (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE (SAFETY 1))) ; (THE SB!INT:INDEX ; (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR) SB!INT:INDEX))) ; 0 ; (LOCALLY ; (DECLARE (OPTIMIZE (SPEED 1) (SAFETY 1))) ; (THE NIL SB!IMPL::NEW-VALUE))) ; ; note: The fourth argument never returns a value. ; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-REFFERS%% ; (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-REFFERS%% ; SB!IMPL::DEFINE-REFFER (PROGN) #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF) ; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE ; --> SB!KERNEL:DATA-VECTOR-SET SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET THE ; --> SB!IMPL::DEFINE-REFFER SB!INT:NAMED-LAMBDA ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY DOUBLE-FLOAT (*)) VECTOR) ; (LOCALLY (DECLARE (OPTIMIZE #)) (THE SB!INT:INDEX (PROGN SB!INT:INDEX))))) ; ; note: doing float to pointer coercion (cost 13) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) VECTOR) ; (LOCALLY (DECLARE (OPTIMIZE #)) (THE SB!INT:INDEX (PROGN SB!INT:INDEX))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) VECTOR) ; (LOCALLY (DECLARE (OPTIMIZE #)) (THE SB!INT:INDEX (PROGN SB!INT:INDEX))))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) VECTOR) ; (LOCALLY (DECLARE (OPTIMIZE #)) (THE SB!INT:INDEX (PROGN SB!INT:INDEX))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) VECTOR) ; (LOCALLY (DECLARE (OPTIMIZE #)) (THE SB!INT:INDEX (PROGN SB!INT:INDEX))))) ; ; note: doing complex float to pointer coercion (cost 13) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) VECTOR) ; (LOCALLY (DECLARE (OPTIMIZE #)) (THE SB!INT:INDEX (PROGN SB!INT:INDEX))))) ; ; note: doing complex float to pointer coercion (cost 13) to "" ; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-REFFERS/CHECK-BOUNDS%% ; (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-REFFERS/CHECK-BOUNDS%% ; SB!IMPL::DEFINE-REFFER (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR)) ; #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS) ; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE ; --> SB!KERNEL:DATA-VECTOR-SET SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET THE ; --> SB!IMPL::DEFINE-REFFER SB!INT:NAMED-LAMBDA ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY DOUBLE-FLOAT (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX))))) ; ; note: doing float to pointer coercion (cost 13) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX))))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX))))) ; ; note: doing complex float to pointer coercion (cost 13) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX))))) ; ; note: doing complex float to pointer coercion (cost 13) to "" ; x-compiling (DEFUN DATA-VECTOR-REF ...) ; x-compiling (DEFUN DATA-VECTOR-REF-WITH-OFFSET ...) ; x-compiling (DEFUN INVALID-ARRAY-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN INVALID-ARRAY-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN INVALID-ARRAY-INDEX-ERROR ...) ; x-compiling (DEFUN %ARRAY-ROW-MAJOR-INDEX ...) ; x-compiling (DEFUN ARRAY-IN-BOUNDS-P ...) ; x-compiling (DEFUN ARRAY-ROW-MAJOR-INDEX ...) ; x-compiling (DEFUN AREF ...) ; x-compiling (DEFUN (SETF AREF) ...) ; x-compiling (DEFUN ROW-MAJOR-AREF ...) ; x-compiling (DEFUN %SET-ROW-MAJOR-AREF ...) ; x-compiling (DEFUN SVREF ...) ; x-compiling (DEFUN %SVSET ...) ; x-compiling (DEFUN BIT ...) ; x-compiling (DEFUN (SETF BIT) ...) ; x-compiling (DEFUN SBIT ...) ; x-compiling (DEFUN (SETF SBIT) ...) ; x-compiling (DEFUN ARRAY-ELEMENT-TYPE ...) ; x-compiling (DEFUN ARRAY-RANK ...) ; x-compiling (DEFUN ARRAY-DIMENSION ...) ; x-compiling (DEFUN ARRAY-DIMENSIONS ...) ; x-compiling (DEFUN ARRAY-TOTAL-SIZE ...) ; x-compiling (DEFUN ARRAY-DISPLACEMENT ...) ; x-compiling (DEFUN ADJUSTABLE-ARRAY-P ...) ; x-compiling (DECLAIM (INLINE ARRAY-HAS-FILL-POINTER-P)) ; x-compiling (DEFUN ARRAY-HAS-FILL-POINTER-P ...) ; x-compiling (DEFUN FILL-POINTER-ERROR ...) ; x-compiling (DECLAIM (INLINE FILL-POINTER)) ; x-compiling (DEFUN FILL-POINTER ...) ; x-compiling (DEFUN %SET-FILL-POINTER ...) ; x-compiling (DEFUN VECTOR-PUSH ...) ; x-compiling (DEFUN VECTOR-PUSH-EXTEND ...) ; x-compiling (DEFUN VECTOR-POP ...) ; x-compiling (DEFUN ADJUST-ARRAY ...) ; x-compiling (DEFUN GET-NEW-FILL-POINTER ...) ; x-compiling (DEFUN %SHRINK-VECTOR ...) ; x-compiling (DEFUN SHRINK-VECTOR ...) ; x-compiling (DEFUN %SAVE-DISPLACED-ARRAY-BACKPOINTER ...) ; x-compiling (DEFUN %WALK-DISPLACED-ARRAY-BACKPOINTERS ...) ; x-compiling (DEFUN SET-ARRAY-HEADER ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN ARRAY-STORAGE-VECTOR ...) ; x-compiling (DEFUN ZAP-ARRAY-DATA ...) ; x-compiling (DEFUN ZAP-ARRAY-DATA-AUX ...) ; x-compiling (DEFUN ROW-MAJOR-INDEX-FROM-DIMS ...) ; x-compiling (DEFUN BIT-ARRAY-SAME-DIMENSIONS-P ...) ; x-compiling (DEFUN PICK-RESULT-ARRAY ...) ; x-compiling (DEFMACRO DEF-BIT-ARRAY-OP ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-AND ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-IOR ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-XOR ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-EQV ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-NAND ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-NOR ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-ANDC1 ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-ANDC2 ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-ORC1 ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-ORC2 ...) ; x-compiling (DEFUN BIT-NOT ...) ; x-compiling (DEFMACRO DEFINE-ARRAY-DISPATCH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/array.lisp ; in: DEF !FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS ; (SB!IMPL::DEF SB!IMPL::!FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS ; SB!IMPL::%%DATA-VECTOR-SETTERS/CHECK-BOUNDS%%) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::%%DATA-VECTOR-SETTERS/CHECK-BOUNDS%% ; (UNLESS #:BOUNDP (MAKE-ARRAY 256)) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEF !FIND-DATA-VECTOR-SETTER ; (SB!IMPL::DEF SB!IMPL::!FIND-DATA-VECTOR-SETTER ; SB!IMPL::%%DATA-VECTOR-SETTERS%%) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::%%DATA-VECTOR-SETTERS%% ; (UNLESS #:BOUNDP (MAKE-ARRAY 256)) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFGLOBAL %%SIMPLE-ARRAY-N-BITS%% ; (SB!EXT:DEFGLOBAL SB!IMPL::%%SIMPLE-ARRAY-N-BITS%% ; (MAKE-ARRAY (1+ SB!VM:WIDETAG-MASK))) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::%%SIMPLE-ARRAY-N-BITS%% ; (UNLESS #:BOUNDP (MAKE-ARRAY (1+ SB!VM:WIDETAG-MASK))) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; ; caught STYLE-WARNING: ; 2 more uses of undefined function %DEFGLOBAL ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/array.lisp ; in: DEFUN MAKE-STATIC-VECTOR ; (SB!KERNEL:ALLOCATE-STATIC-VECTOR TYPE LENGTH ; (CEILING (* LENGTH SB!IMPL::N-BITS) SB!VM:N-WORD-BITS)) ; ; caught STYLE-WARNING: ; undefined function: ALLOCATE-STATIC-VECTOR ; in: DEFUN ZAP-ARRAY-DATA-AUX ; (MAPCAR ; (LAMBDA (SB!IMPL::X SB!IMPL::Y) ; (DECLARE (FIXNUM SB!IMPL::X SB!IMPL::Y)) ; (1- (THE FIXNUM (MIN SB!IMPL::X SB!IMPL::Y)))) ; SB!IMPL::OLD-DIMS SB!IMPL::NEW-DIMS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN %VECTOR-WIDETAG-AND-N-BITS ; (SB!KERNEL:CSUBTYPEP SB!KERNEL:CTYPE ; (SB!KERNEL:SPECIFIER-TYPE '(COMPLEX DOUBLE-FLOAT))) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN DATA-VECTOR-FROM-INITS ; (SB!IMPL::FILL-DATA-VECTOR SB!IMPL::DATA SB!IMPL::DIMENSIONS ; SB!IMPL::INITIAL-DATA) ; ; caught STYLE-WARNING: ; undefined function: FILL-DATA-VECTOR ; in: DEFUN %VECTOR-WIDETAG-AND-N-BITS ; (SB!KERNEL:NUMERIC-TYPE-FORMAT SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE-FORMAT ; #'SB!KERNEL:NUMERIC-TYPE-HIGH ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE-HIGH ; #'SB!KERNEL:NUMERIC-TYPE-LOW ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE-LOW ; #'SB!KERNEL:NUMERIC-TYPE-P ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE-P ; (SB!KERNEL:SPECIFIER-TYPE '(COMPLEX DOUBLE-FLOAT)) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; (SB!KERNEL:TYPE-SPECIFIER SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; in: DEFUN %SHRINK-VECTOR ; (SB!IMPL::FROB VECTOR ((SIMPLE-ARRAY BASE-CHAR (*)) (CODE-CHAR 0)) ; ((SIMPLE-ARRAY CHARACTER (*)) (CODE-CHAR 0)) ; ((SIMPLE-ARRAY SINGLE-FLOAT (*)) 0.0) ; ((SIMPLE-ARRAY DOUBLE-FLOAT (*)) 0.0d0) ((SIMPLE-ARRAY BIT (*)) 0) ; ((SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) 0) ; ((SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) 0) ; ((SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) 0) ; ((SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) 0) ; ((SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) 0) ...) ; --> ETYPECASE LET COND IF COND IF COND IF COND IF COND IF COND IF PROGN ; ==> ; (FILL (SB!EXT:TRULY-THE (SIMPLE-ARRAY BIT (*)) VECTOR) 0 :START ; SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: UB1-BASH-FILL ; --> ETYPECASE LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; --> COND IF COND IF COND IF COND IF PROGN ; ==> ; (FILL (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) VECTOR) 0 ; :START SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: UB16-BASH-FILL ; --> ETYPECASE LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; --> PROGN ; ==> ; (FILL (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) VECTOR) 0 :START ; SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: UB2-BASH-FILL ; --> ETYPECASE LET COND IF COND IF COND IF COND IF PROGN ; ==> ; (FILL (SB!EXT:TRULY-THE (SIMPLE-ARRAY SINGLE-FLOAT (*)) VECTOR) 0.0 :START ; SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; --> ETYPECASE LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; --> COND IF PROGN ; ==> ; (FILL (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) VECTOR) 0 :START ; SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: UB4-BASH-FILL ; --> ETYPECASE LET COND IF COND IF COND IF COND IF COND IF PROGN ; ==> ; (FILL (SB!EXT:TRULY-THE (SIMPLE-ARRAY DOUBLE-FLOAT (*)) VECTOR) 0.0d0 :START ; SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: UB64-BASH-FILL ; --> ETYPECASE LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; --> COND IF COND IF PROGN ; ==> ; (FILL (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) VECTOR) 0 :START ; SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; in: DEFUN %VECTOR-WIDETAG-AND-N-BITS ; (SB!KERNEL:UNION-TYPE-P SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: UNION-TYPE-P ; (SB!KERNEL:UNION-TYPE-TYPES SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: UNION-TYPE-TYPES ; in: DEFUN SHRINK-VECTOR ; (SUBSEQ VECTOR 0 SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: VECTOR-SUBSEQ* ; in: DEFUN %WALK-DISPLACED-ARRAY-BACKPOINTERS ; (SB!EXT:WEAK-POINTER-VALUE SB!IMPL::P) ; ; caught STYLE-WARNING: ; undefined function: WEAK-POINTER-VALUE ; in: DEFUN %SAVE-DISPLACED-ARRAY-BACKPOINTER ; #'SB!EXT:WEAK-POINTER-VALUE ; ; caught STYLE-WARNING: ; undefined function: WEAK-POINTER-VALUE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; %DEFGLOBAL ALLOCATE-STATIC-VECTOR CSUBTYPEP FILL-DATA-VECTOR NUMERIC-TYPE-FORMAT NUMERIC-TYPE-HIGH NUMERIC-TYPE-LOW NUMERIC-TYPE-P SPECIFIER-TYPE TYPE-SPECIFIER UB1-BASH-FILL UB16-BASH-FILL UB2-BASH-FILL UB32-BASH-FILL UB4-BASH-FILL UB64-BASH-FILL UB8-BASH-FILL UNION-TYPE-P UNION-TYPE-TYPES VECTOR-SUBSEQ* WEAK-POINTER-VALUE ; caught 26 STYLE-WARNING conditions ; printed 26 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/array.lisp-obj-tmp written ; compilation finished in 0:00:03.245 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-float.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN SINGLE-FROM-BITS ...) ; x-compiling (DEFUN DOUBLE-FROM-BITS ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-SINGLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-SHORT-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-SINGLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-SHORT-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-DOUBLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-LONG-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-DOUBLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-LONG-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-POSITIVE-SINGLE-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-POSITIVE-SHORT-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-NEGATIVE-SINGLE-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-NEGATIVE-SHORT-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-POSITIVE-DOUBLE-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-POSITIVE-LONG-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-NEGATIVE-DOUBLE-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-NEGATIVE-LONG-FLOAT ...) ; x-compiling (LET NIL ...) ; x-compiling (DEFCONSTANT SINGLE-FLOAT-EPSILON ...) ; x-compiling (DEFCONSTANT SHORT-FLOAT-EPSILON ...) ; x-compiling (DEFCONSTANT SINGLE-FLOAT-NEGATIVE-EPSILON ...) ; x-compiling (DEFCONSTANT SHORT-FLOAT-NEGATIVE-EPSILON ...) ; x-compiling (DEFCONSTANT DOUBLE-FLOAT-EPSILON ...) ; x-compiling (DEFCONSTANT LONG-FLOAT-EPSILON ...) ; x-compiling (DEFCONSTANT DOUBLE-FLOAT-NEGATIVE-EPSILON ...) ; x-compiling (DEFCONSTANT LONG-FLOAT-NEGATIVE-EPSILON ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-float.lisp-obj-tmp written ; compilation finished in 0:00:00.071 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-sxhash.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN POINTER-HASH ...) ; x-compiling (DEFCONSTANT +MAX-HASH-DEPTHOID+ ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DECLAIM (INLINE MIX)) ; x-compiling (DEFUN MIX ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-sxhash.lisp ; in: DEFUN MIX ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; x-compiling (DECLAIM (INLINE %SXHASH-SUBSTRING)) ; x-compiling (DEFUN %SXHASH-SUBSTRING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-sxhash.lisp ; in: DEFUN %SXHASH-SUBSTRING ; (AREF STRING SB!IMPL::I) ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (VECTOR CHARACTER) ; BASE-STRING), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR (VECTOR CHARACTER) ; BASE-STRING), not a SIMPLE-ARRAY. ; x-compiling (DEFUN %SXHASH-SIMPLE-STRING ...) ; x-compiling (DEFUN %SXHASH-SIMPLE-SUBSTRING ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SXHASH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-sxhash.lisp ; in: DEFUN SXHASH ; (TYPECASE SB!IMPL::X ; (PATHNAME ; (LET ((SB!INT:HASH #)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (LET (#) ; (SB!INT:MIXF SB!INT:HASH #)))) ; (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X)) ; ((OR STRUCTURE-OBJECT CONDITION) ; (LOGXOR 422371266 (SXHASH (SB!KERNEL:CLASSOID-NAME #)))) ; (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))) ; --> LET COND IF COND IF COND IF TYPEP LET SB!C::%TYPEP-WRAPPER LET OR LET IF ; --> OR THE ; ==> ; (TYPEP #:N-OBJ42 'CONDITION) ; ; note: can't open-code test of unknown type CONDITION ; (TYPECASE SB!IMPL::X ; (LIST ; (IF (NULL SB!IMPL::X) ; (SXHASH SB!IMPL::X) ; (IF (PLUSP SB!IMPL::DEPTHOID) ; (SB!INT:MIX # #) ; 261835505))) ; (SB!KERNEL:INSTANCE ; (TYPECASE SB!IMPL::X ; (PATHNAME ; (LET # ; # ; # ; # ; # ; #)) ; (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X)) ; ((OR STRUCTURE-OBJECT CONDITION) (LOGXOR 422371266 #)) ; (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X)))) ; (SYMBOL (SXHASH SB!IMPL::X)) ; (ARRAY ; (TYPECASE SB!IMPL::X ; (SIMPLE-STRING (SXHASH SB!IMPL::X)) ; (STRING (SB!IMPL::%SXHASH-SUBSTRING SB!IMPL::X)) ; (SIMPLE-BIT-VECTOR (SXHASH SB!IMPL::X)) ; (BIT-VECTOR (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (T (LOGXOR 191020317 #)))) ; (CHARACTER (LOGXOR 72185131 (SXHASH (CHAR-CODE SB!IMPL::X)))) ; (NUMBER (SB!IMPL::SXHASH-NUMBER SB!IMPL::X)) ; (GENERIC-FUNCTION (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X)) ; (T 42)) ; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G7539 'GENERIC-FUNCTION) ; ; note: can't open-code test of unknown type GENERIC-FUNCTION ; (SB!INT:MIX (SB!IMPL::SXHASH-RECURSE (CAR SB!IMPL::X) (1- SB!IMPL::DEPTHOID)) ; (SB!IMPL::SXHASH-RECURSE (CDR SB!IMPL::X) (1- SB!IMPL::DEPTHOID))) ; --> BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (SB!INT:MIXF SB!INT:HASH ; (SB!IMPL::SXHASH-RECURSE (PATHNAME-DEVICE SB!IMPL::X) SB!IMPL::DEPTHOID)) ; --> LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (SB!INT:MIXF SB!INT:HASH ; (SB!IMPL::SXHASH-RECURSE (PATHNAME-DIRECTORY SB!IMPL::X) SB!IMPL::DEPTHOID)) ; --> LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (SB!INT:MIXF SB!INT:HASH ; (SB!IMPL::SXHASH-RECURSE (PATHNAME-NAME SB!IMPL::X) SB!IMPL::DEPTHOID)) ; --> LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (SB!INT:MIXF SB!INT:HASH ; (SB!IMPL::SXHASH-RECURSE (PATHNAME-TYPE SB!IMPL::X) SB!IMPL::DEPTHOID)) ; --> LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (SB!INT:MIXF SB!INT:HASH ; (SB!IMPL::SXHASH-RECURSE ; (IF (EQ SB!IMPL::VERSION :NEWEST) ; NIL ; SB!IMPL::VERSION) ; SB!IMPL::DEPTHOID)) ; --> LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (SB!INT:MIXF SB!IMPL::RESULT ; (SB!IMPL::SXHASH-NUMBER (DENOMINATOR SB!IMPL::X))) ; --> LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (REALPART SB!IMPL::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a COMPLEX, not a (COMPLEX RATIONAL). ; (IMAGPART SB!IMPL::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a COMPLEX, not a (COMPLEX RATIONAL). ; (SB!INT:MIXF SB!IMPL::RESULT (SB!IMPL::SXHASH-NUMBER (IMAGPART SB!IMPL::X))) ; --> LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (SB!IMPL::%SXHASH-SUBSTRING SB!IMPL::X) ; --> BLOCK MACROLET LET UNLESS IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> SB!IMPL::SET-RESULT SETF SETQ THE SB-XC:LDB SB!KERNEL:%LDB + CHAR-CODE ; --> AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (SXHASH SB!IMPL::X) ; --> LET LET COND IF COND THE PROGN DO* BLOCK LET* TAGBODY RETURN-FROM PROGN ; --> LET SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; --> LET LET COND IF COND THE PROGN DO* BLOCK LET* TAGBODY TAGBODY LET ; --> SB!INT:MIXF LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (REALPART SB!IMPL::X) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; (IMAGPART SB!IMPL::X) ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float imagpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; x-compiling (DEFUN PSXHASH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-sxhash.lisp ; in: DEFUN PSXHASH ; (TYPECASE SB!IMPL::KEY ; (ARRAY (SB!IMPL::ARRAY-PSXHASH SB!IMPL::KEY SB!IMPL::DEPTHOID)) ; (HASH-TABLE (SB!IMPL::HASH-TABLE-PSXHASH SB!IMPL::KEY)) ; (STRUCTURE-OBJECT ; (SB!IMPL::STRUCTURE-OBJECT-PSXHASH SB!IMPL::KEY SB!IMPL::DEPTHOID)) ; (CONS (SB!IMPL::LIST-PSXHASH SB!IMPL::KEY SB!IMPL::DEPTHOID)) ; (NUMBER (SB!IMPL::NUMBER-PSXHASH SB!IMPL::KEY)) ; (CHARACTER (CHAR-CODE (CHAR-UPCASE SB!IMPL::KEY))) ; (T (SXHASH SB!IMPL::KEY))) ; --> LET COND IF COND IF COND IF COND IF TYPEP LET SB!C::%TYPEP-WRAPPER CONSP ; --> IF ; ==> ; (CONSP #:OBJECT7584) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; (CHAR-UPCASE SB!IMPL::KEY) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SXHASH SB!IMPL::KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a FIXNUM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SIMPLE-BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SIMPLE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SYMBOL. ; x-compiling (DEFUN ARRAY-PSXHASH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-sxhash.lisp ; in: DEFUN ARRAY-PSXHASH ; (SB!IMPL::MAKE-DISPATCH ; (SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*)) SIMPLE-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (SIMPLE-ARRAY FIXNUM (*)) T)) ; --> TYPECASE LET COND IF PROGN SB!IMPL::FROB LET WHEN IF PROGN DOTIMES DO ; --> BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; --> TYPECASE LET COND IF COND IF PROGN SB!IMPL::FROB LET WHEN IF PROGN ; --> DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* SB!INT:MIX ; --> SB!INT:PSXHASH CHAR-CODE ; ==> ; (CHAR-UPCASE SB!C::X) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; --> TYPECASE LET COND IF COND IF PROGN SB!IMPL::FROB LET WHEN IF PROGN ; --> DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* SB!INT:MIX BLOCK ; --> LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; --> TYPECASE LET COND IF COND IF COND IF PROGN SB!IMPL::FROB LET WHEN IF ; --> PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* SB!INT:MIX ; ==> ; (SB!INT:PSXHASH (AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a CHARACTER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a INTEGER. ; --> TYPECASE LET COND IF COND IF COND IF PROGN SB!IMPL::FROB LET WHEN IF ; --> PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* SB!INT:MIX ; --> BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; --> TYPECASE LET COND IF COND IF COND IF COND IF PROGN SB!IMPL::FROB LET WHEN ; --> IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* SB!INT:MIX ; --> BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; --> TYPECASE LET COND IF COND IF COND IF COND IF COND IF PROGN SB!IMPL::FROB ; --> LET WHEN IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* ; --> SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; --> TYPECASE LET COND IF COND IF COND IF COND IF COND IF COND THE PROGN ; --> SB!IMPL::FROB LET WHEN IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> SB!INT:MIXF LET* SB!INT:MIX SB!INT:PSXHASH AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> TYPECASE LET COND IF COND IF COND IF COND IF COND IF COND THE PROGN ; --> SB!IMPL::FROB LET WHEN IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> SB!INT:MIXF LET* SB!INT:MIX ; ==> ; (SB!INT:PSXHASH (AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a CHARACTER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a INTEGER. ; --> TYPECASE LET COND IF COND IF COND IF COND IF COND IF COND THE PROGN ; --> SB!IMPL::FROB LET WHEN IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> SB!INT:MIXF LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (ARRAY-TOTAL-SIZE SB!IMPL::KEY) ; ; note: unable to optimize because: can't tell the rank at compile time ; (ROW-MAJOR-AREF SB!IMPL::KEY SB!IMPL::I) ; --> SB!KERNEL:HAIRY-DATA-VECTOR-REF SB!KERNEL:%CHECK-BOUND ; ==> ; (ARRAY-TOTAL-SIZE ARRAY) ; ; note: unable to optimize because: can't tell the rank at compile time ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-TOTAL-SIZE ARRAY) SB!INT:INDEX)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a ARRAY, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a ARRAY, not a SIMPLE-ARRAY. ; (SB!INT:PSXHASH (ROW-MAJOR-AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a CHARACTER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a INTEGER. ; (SB!INT:MIXF SB!IMPL::RESULT ; (SB!INT:PSXHASH (ROW-MAJOR-AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID)) ; --> LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (ARRAY-DIMENSION SB!IMPL::KEY SB!IMPL::I) ; ; note: unable to optimize because: The axis is not constant. ; (SB!INT:MIXF SB!IMPL::RESULT (ARRAY-DIMENSION SB!IMPL::KEY SB!IMPL::I)) ; --> LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; x-compiling (DEFUN STRUCTURE-OBJECT-PSXHASH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-sxhash.lisp ; in: DEFUN STRUCTURE-OBJECT-PSXHASH ; (SB!INT:MIX (SXHASH SB!IMPL::NAME) (THE FIXNUM 79867)) ; --> BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (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. ; (SB!INT:MIXF SB!IMPL::RESULT ; (SB!INT:PSXHASH (SB!KERNEL:%INSTANCE-REF SB!IMPL::KEY SB!IMPL::J) ; (1- SB!IMPL::DEPTHOID))) ; --> LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; x-compiling (DEFUN LIST-PSXHASH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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. ; (SB!INT:MIX (SB!INT:PSXHASH (CAR SB!IMPL::KEY) (1- SB!IMPL::DEPTHOID)) ; (SB!INT:PSXHASH (CDR SB!IMPL::KEY) (1- SB!IMPL::DEPTHOID))) ; --> BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; x-compiling (DEFUN HASH-TABLE-PSXHASH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-sxhash.lisp ; in: DEFUN HASH-TABLE-PSXHASH ; (SB!INT:MIXF SB!IMPL::RESULT (SXHASH (HASH-TABLE-TEST SB!IMPL::KEY))) ; --> LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; x-compiling (DEFUN NUMBER-PSXHASH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-sxhash.lisp ; in: DEFUN NUMBER-PSXHASH ; (SB!IMPL::FROB DOUBLE-FLOAT) ; --> COND IF COND THE PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; --> IF ; ==> ; (SXHASH SB!IMPL::Q) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a FIXNUM. ; (SB!IMPL::FROB SINGLE-FLOAT) ; --> COND IF COND THE PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; --> IF ; ==> ; (SXHASH SB!IMPL::Q) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a FIXNUM. ; (SB!IMPL::FROB DOUBLE-FLOAT) ; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF ; ==> ; (SXHASH SB!IMPL::Q) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a FIXNUM. ; (SXHASH SB!IMPL::KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a FIXNUM. ; (= (COERCE SB!IMPL::KEY 'DOUBLE-FLOAT) SB!IMPL::KEY) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; because: ; The RATIONAL value isn't known at compile time. ; ; note: unable to open code because: The operands might not be the same type. ; (SXHASH SB!IMPL::KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a RATIONAL, not a FIXNUM. ; (IMAGPART SB!IMPL::KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a COMPLEX, not a (COMPLEX RATIONAL). ; (ZEROP (IMAGPART SB!IMPL::KEY)) ; ==> ; (= (IMAGPART SB!IMPL::KEY) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (REALPART SB!IMPL::KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a COMPLEX, not a (COMPLEX RATIONAL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a COMPLEX, not a (COMPLEX RATIONAL). ; (IMAGPART SB!IMPL::KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a COMPLEX, not a (COMPLEX RATIONAL). ; (SB!INT:MIXF SB!IMPL::RESULT ; (SB!IMPL::NUMBER-PSXHASH (IMAGPART SB!IMPL::KEY))) ; --> LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (SB!IMPL::FROB SINGLE-FLOAT) ; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF ; ==> ; (SXHASH SB!IMPL::Q) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a FIXNUM. ; (COERCE SB!IMPL::KEY 'DOUBLE-FLOAT) ; --> THE ; ==> ; (SB!KERNEL:%DOUBLE-FLOAT SB!C::X) ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a RATIONAL, not a (SIGNED-BYTE 64). ; ; 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 64). ; (IMAGPART SB!IMPL::KEY) ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float imagpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; (REALPART SB!IMPL::KEY) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; (IMAGPART SB!IMPL::KEY) ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float imagpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; (REALPART SB!IMPL::KEY) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; in: DEFUN SXHASH ; (SB!IMPL::%PATHNAME-VERSION SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: %PATHNAME-VERSION ; (DEFUN SXHASH (SB!IMPL::X) ; (DECLARE (OPTIMIZE SPEED)) ; (LABELS ((SB!IMPL::SXHASH-NUMBER (SB!IMPL::X) ; (ETYPECASE SB!IMPL::X # # # # # #)) ; (SB!IMPL::SXHASH-RECURSE (SB!IMPL::X SB!IMPL::DEPTHOID) ; (DECLARE #) ; (TYPECASE SB!IMPL::X # # # # # # # #))) ; (SB!IMPL::SXHASH-RECURSE SB!IMPL::X SB!IMPL::+MAX-HASH-DEPTHOID+))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SXHASH ; (LAMBDA (SB!IMPL::X) ; (DECLARE (OPTIMIZE SPEED)) ; (BLOCK SXHASH ; (LABELS (# #) ; (SB!IMPL::SXHASH-RECURSE SB!IMPL::X ; SB!IMPL::+MAX-HASH-DEPTHOID+))))) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; (TYPECASE SB!IMPL::X ; (PATHNAME ; (LET ((SB!INT:HASH #)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (LET (#) ; (SB!INT:MIXF SB!INT:HASH #)))) ; (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X)) ; ((OR STRUCTURE-OBJECT CONDITION) ; (LOGXOR 422371266 (SXHASH (SB!KERNEL:CLASSOID-NAME #)))) ; (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))) ; --> LET COND IF COND IF COND IF ; ==> ; (TYPEP #:G7542 '(OR STRUCTURE-OBJECT CONDITION)) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; (TYPECASE SB!IMPL::X ; (LIST ; (IF (NULL SB!IMPL::X) ; (SXHASH SB!IMPL::X) ; (IF (PLUSP SB!IMPL::DEPTHOID) ; (SB!INT:MIX # #) ; 261835505))) ; (SB!KERNEL:INSTANCE ; (TYPECASE SB!IMPL::X ; (PATHNAME ; (LET # ; # ; # ; # ; # ; #)) ; (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X)) ; ((OR STRUCTURE-OBJECT CONDITION) (LOGXOR 422371266 #)) ; (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X)))) ; (SYMBOL (SXHASH SB!IMPL::X)) ; (ARRAY ; (TYPECASE SB!IMPL::X ; (SIMPLE-STRING (SXHASH SB!IMPL::X)) ; (STRING (SB!IMPL::%SXHASH-SUBSTRING SB!IMPL::X)) ; (SIMPLE-BIT-VECTOR (SXHASH SB!IMPL::X)) ; (BIT-VECTOR (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (T (LOGXOR 191020317 #)))) ; (CHARACTER (LOGXOR 72185131 (SXHASH (CHAR-CODE SB!IMPL::X)))) ; (NUMBER (SB!IMPL::SXHASH-NUMBER SB!IMPL::X)) ; (GENERIC-FUNCTION (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X)) ; (T 42)) ; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G7539 'GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; undefined type: GENERIC-FUNCTION ; in: DEFUN STRUCTURE-OBJECT-PSXHASH ; (SB!KERNEL:LAYOUT-CLASSOID SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN SXHASH ; (SB!KERNEL:LAYOUT-CLASSOID (SB!KERNEL:%INSTANCE-LAYOUT SB!IMPL::X)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLOS-HASH ; in: DEFUN STRUCTURE-OBJECT-PSXHASH ; (SB!KERNEL:LAYOUT-LENGTH SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-LENGTH ; (SB!KERNEL:LAYOUT-N-UNTAGGED-SLOTS SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-N-UNTAGGED-SLOTS ; in: DEFUN SXHASH ; (COPY-SEQ SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: VECTOR-SUBSEQ* ; ; compilation unit finished ; Undefined types: ; CONDITION GENERIC-FUNCTION ; Undefined functions: ; %PATHNAME-VERSION LAYOUT-CLASSOID LAYOUT-CLOS-HASH LAYOUT-LENGTH LAYOUT-N-UNTAGGED-SLOTS VECTOR-SUBSEQ* ; caught 10 STYLE-WARNING conditions ; printed 105 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-sxhash.lisp-obj-tmp written ; compilation finished in 0:00:00.365 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/list.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (MAYBE-INLINE TREE-EQUAL ...)) ; x-compiling (DEFUN CAR ...) ; x-compiling (DEFUN CDR ...) ; x-compiling (DEFUN CADR ...) ; x-compiling (DEFUN CDAR ...) ; x-compiling (DEFUN CAAR ...) ; x-compiling (DEFUN CDDR ...) ; x-compiling (DEFUN CADDR ...) ; x-compiling (DEFUN CAADR ...) ; x-compiling (DEFUN CAAAR ...) ; x-compiling (DEFUN CDAAR ...) ; x-compiling (DEFUN CDDAR ...) ; x-compiling (DEFUN CDDDR ...) ; x-compiling (DEFUN CADAR ...) ; x-compiling (DEFUN CDADR ...) ; x-compiling (DEFUN CAAAAR ...) ; x-compiling (DEFUN CAAADR ...) ; x-compiling (DEFUN CAADDR ...) ; x-compiling (DEFUN CADDDR ...) ; x-compiling (DEFUN CDDDDR ...) ; x-compiling (DEFUN CDAAAR ...) ; x-compiling (DEFUN CDDAAR ...) ; x-compiling (DEFUN CDDDAR ...) ; x-compiling (DEFUN CAADAR ...) ; x-compiling (DEFUN CADAAR ...) ; x-compiling (DEFUN CADADR ...) ; x-compiling (DEFUN CADDAR ...) ; x-compiling (DEFUN CDAADR ...) ; x-compiling (DEFUN CDADAR ...) ; x-compiling (DEFUN CDADDR ...) ; x-compiling (DEFUN CDDADR ...) ; x-compiling (DEFUN CONS ...) ; x-compiling (DECLAIM (MAYBE-INLINE TREE-EQUAL-TEST ...)) ; x-compiling (DEFUN TREE-EQUAL-TEST-NOT ...) ; x-compiling (DEFUN TREE-EQUAL-TEST ...) ; x-compiling (DEFUN TREE-EQUAL ...) ; x-compiling (DEFUN ENDP ...) ; x-compiling (DEFUN LIST-LENGTH ...) ; x-compiling (DEFUN NTH ...) ; x-compiling (DEFUN FIRST ...) ; x-compiling (DEFUN SECOND ...) ; x-compiling (DEFUN THIRD ...) ; x-compiling (DEFUN FOURTH ...) ; x-compiling (DEFUN FIFTH ...) ; x-compiling (DEFUN SIXTH ...) ; x-compiling (DEFUN SEVENTH ...) ; x-compiling (DEFUN EIGHTH ...) ; x-compiling (DEFUN NINTH ...) ; x-compiling (DEFUN TENTH ...) ; x-compiling (DEFUN REST ...) ; x-compiling (DEFUN NTHCDR ...) ; x-compiling (DEFUN %LAST0 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/list.lisp ; in: DEFUN %LAST0 ; (SB!IMPL::LAST0-MACRO) ; --> LET LOOP BLOCK TAGBODY PROGN UNLESS IF ; ==> ; (CONSP REST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; x-compiling (DEFUN %LAST1 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/list.lisp ; in: DEFUN %LAST1 ; (SB!IMPL::LAST1-MACRO) ; --> LET LOOP BLOCK TAGBODY PROGN UNLESS IF ; ==> ; (CONSP REST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; x-compiling (DEFUN %LASTN/FIXNUM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/list.lisp ; in: DEFUN %LASTN/FIXNUM ; (SB!IMPL::LAST1-MACRO) ; --> LET LOOP BLOCK TAGBODY PROGN UNLESS IF ; ==> ; (CONSP REST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; (SB!IMPL::LAST0-MACRO) ; --> LET LOOP BLOCK TAGBODY PROGN UNLESS IF ; ==> ; (CONSP REST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; (SB!IMPL::LASTN-MACRO FIXNUM) ; --> LET TAGBODY WHEN IF ATOM NOT IF ; ==> ; (CONSP SB!IMPL::CHECKED-LIST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; --> LET TAGBODY IF ATOM NOT IF ; ==> ; (CONSP SB!IMPL::CHECKED-LIST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; --> LET TAGBODY IF ZEROP = SB!EXT:TRULY-THE DECF LET* SETQ ; ==> ; (THE FIXNUM #:NEW143) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; x-compiling (DEFUN %LASTN/BIGNUM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/list.lisp ; in: DEFUN %LASTN/BIGNUM ; (SB!IMPL::LASTN-MACRO UNSIGNED-BYTE) ; --> LET TAGBODY WHEN IF ATOM NOT IF ; ==> ; (CONSP SB!IMPL::CHECKED-LIST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; --> LET TAGBODY IF ATOM NOT IF ; ==> ; (CONSP SB!IMPL::CHECKED-LIST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; --> LET TAGBODY IF ZEROP = SB!EXT:TRULY-THE DECF LET* ; ==> ; (- SB!IMPL::N #:G7808) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> LET TAGBODY IF ZEROP = SB!EXT:TRULY-THE DECF LET* SETQ THE ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER LET OR ; --> LET IF OR LET IF OR THE TYPEP LET SB!C::%TYPEP-WRAPPER LET AND IF AND THE ; --> LOCALLY AND THE >= IF ; ==> ; (< SB!C::X SB!C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; etc. ; (DEFUN SB!KERNEL:%LASTN/BIGNUM (LIST SB!IMPL::N) ; (DECLARE (OPTIMIZE SPEED (SB!C:VERIFY-ARG-COUNT 0)) ; (TYPE (AND UNSIGNED-BYTE BIGNUM) SB!IMPL::N)) ; (SB!IMPL::LASTN-MACRO UNSIGNED-BYTE)) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF ; ==> ; (< SB!C::X SB!C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline (unsigned-byte 64) comparison (cost 5) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; unable to do inline (signed-byte 64) comparison (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; x-compiling (DEFUN LAST ...) ; x-compiling (DEFINE-COMPILER-MACRO LAST ...) ; x-compiling (DEFUN LIST ...) ; x-compiling (DEFUN LIST* ...) ; x-compiling (DEFUN MAKE-LIST ...) ; x-compiling (DEFUN APPEND ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/list.lisp ; in: DEFUN APPEND ; (CONSP SB!IMPL::CURRENT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a LIST, not a (NOT NULL). ; x-compiling (DEFUN APPEND2 ...) ; x-compiling (DEFINE-COMPILER-MACRO APPEND ...) ; x-compiling (SB-XC:DEFMACRO !COPY-LIST-MACRO ...) ; x-compiling (DEFUN COPY-LIST ...) ; x-compiling (DEFUN COPY-ALIST ...) ; x-compiling (DEFUN COPY-TREE ...) ; x-compiling (DEFUN REVAPPEND ...) ; x-compiling (DEFUN NCONC ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/list.lisp ; in: DEFUN NCONC ; (TYPECASE SB!IMPL::TOP-OF-TOP ; (CONS ; (LET* ((SB!IMPL::RESULT SB!IMPL::TOP-OF-TOP) ; (SB!IMPL::SPLICE SB!IMPL::RESULT)) ; (DO (#) ; (#) ; (LET # ; #)) ; (RETURN SB!IMPL::RESULT))) ; (NULL) ; (ATOM ; (IF (CDR SB!IMPL::TOP) ; (SB!IMPL::FAIL SB!IMPL::TOP-OF-TOP) ; (RETURN SB!IMPL::TOP-OF-TOP)))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER CONSP IF ; ==> ; (CONSP #:OBJECT7897) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; (TYPECASE SB!IMPL::ELE ; (CONS ; (RPLACD (LAST SB!IMPL::SPLICE) SB!IMPL::ELE) ; (SETF SB!IMPL::SPLICE SB!IMPL::ELE)) ; (NULL (RPLACD (LAST SB!IMPL::SPLICE) NIL)) ; (ATOM ; (IF (CDR SB!IMPL::ELEMENTS) ; (SB!IMPL::FAIL SB!IMPL::ELE) ; (RPLACD (LAST SB!IMPL::SPLICE) SB!IMPL::ELE)))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER CONSP IF ; ==> ; (CONSP #:OBJECT7901) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; --> LET COND IF COND IF COND IF TYPEP LET SB!C::%TYPEP-WRAPPER NOT IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER CONSP IF ; ==> ; (CONSP #:OBJECT7904) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; (TYPECASE SB!IMPL::TOP-OF-TOP ; (CONS ; (LET* ((SB!IMPL::RESULT SB!IMPL::TOP-OF-TOP) ; (SB!IMPL::SPLICE SB!IMPL::RESULT)) ; (DO (#) ; (#) ; (LET # ; #)) ; (RETURN SB!IMPL::RESULT))) ; (NULL) ; (ATOM ; (IF (CDR SB!IMPL::TOP) ; (SB!IMPL::FAIL SB!IMPL::TOP-OF-TOP) ; (RETURN SB!IMPL::TOP-OF-TOP)))) ; --> LET COND IF COND IF COND IF TYPEP LET SB!C::%TYPEP-WRAPPER NOT IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER CONSP IF ; ==> ; (CONSP #:OBJECT7907) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; x-compiling (DEFUN NRECONC ...) ; x-compiling (DEFUN BUTLAST ...) ; x-compiling (DEFUN NBUTLAST ...) ; x-compiling (DEFUN LDIFF ...) ; x-compiling (DEFUN RPLACA ...) ; x-compiling (DEFUN RPLACD ...) ; x-compiling (DEFUN %RPLACA ...) ; x-compiling (DEFUN %RPLACD ...) ; x-compiling (DEFUN %SETNTH ...) ; x-compiling (DEFMACRO APPLY-KEY ...) ; x-compiling (DEFMACRO WITH-SET-KEYS ...) ; x-compiling (DEFMACRO SATISFIES-THE-TEST ...) ; x-compiling (DEFUN SUBST ...) ; x-compiling (DEFUN SUBST-IF ...) ; x-compiling (DEFUN SUBST-IF-NOT ...) ; x-compiling (DEFUN NSUBST ...) ; x-compiling (DEFUN NSUBST-IF ...) ; x-compiling (DEFUN NSUBST-IF-NOT ...) ; x-compiling (DEFUN SUBLIS ...) ; x-compiling (DEFMACRO NSUBLIS-MACRO ...) ; x-compiling (DEFUN NSUBLIS ...) ; x-compiling (DEFUN MEMBER ...) ; x-compiling (DEFUN MEMBER-IF ...) ; x-compiling (DEFUN MEMBER-IF-NOT ...) ; x-compiling (DEFUN TAILP ...) ; x-compiling (DEFUN ADJOIN ...) ; x-compiling (DEFCONSTANT +LIST-BASED-UNION-LIMIT+ ...) ; x-compiling (DEFUN UNION ...) ; x-compiling (DEFMACRO STEVE-SPLICE ...) ; x-compiling (DEFUN NUNION ...) ; x-compiling (DEFUN INTERSECTION ...) ; x-compiling (DEFUN NINTERSECTION ...) ; x-compiling (DEFUN SET-DIFFERENCE ...) ; x-compiling (DEFUN NSET-DIFFERENCE ...) ; x-compiling (DEFUN SET-EXCLUSIVE-OR ...) ; x-compiling (DEFUN NSET-EXCLUSIVE-OR ...) ; x-compiling (DEFUN SUBSETP ...) ; x-compiling (DEFUN ACONS ...) ; x-compiling (DEFUN PAIRLIS ...) ; x-compiling (DEFUN ASSOC ...) ; x-compiling (DEFUN ASSOC-IF ...) ; x-compiling (DEFUN ASSOC-IF-NOT ...) ; x-compiling (DEFUN RASSOC ...) ; x-compiling (DEFUN RASSOC-IF ...) ; x-compiling (DEFUN RASSOC-IF-NOT ...) ; x-compiling (DEFUN MAP1 ...) ; x-compiling (DEFUN MAPC ...) ; x-compiling (DEFUN MAPCAR ...) ; x-compiling (DEFUN MAPCAN ...) ; x-compiling (DEFUN MAPL ...) ; x-compiling (DEFUN MAPLIST ...) ; x-compiling (DEFUN MAPCON ...) ; x-compiling (DEF NIL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/list.lisp ; in: DEF () ; (EQL SB!IMPL::X SB!IMPL::TARGET) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; x-compiling (DEF NIL ...) ; x-compiling (DEF (KEY) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/list.lisp ; in: DEF (KEY) ; (EQL SB!IMPL::X (FUNCALL SB!IMPL::KEY SB!IMPL::TARGET)) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; x-compiling (DEF (KEY) ...) ; x-compiling (DEF (KEY TEST) ...) ; x-compiling (DEF (KEY TEST-NOT) ...) ; x-compiling (DEF (TEST) ...) ; x-compiling (DEF (TEST-NOT) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/list.lisp ; in: DEFINE-COMPILER-MACRO LAST ; (SB!INT:CONSTANT-FORM-VALUE SB!IMPL::N SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-FORM-VALUE ; ; compilation unit finished ; Undefined function: ; CONSTANT-FORM-VALUE ; caught 1 STYLE-WARNING condition ; printed 26 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/list.lisp-obj-tmp written ; compilation finished in 0:00:02.510 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/seq.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN %CHECK-GENERIC-SEQUENCE-BOUNDS ...) ; x-compiling (DEFPARAMETER *SEQUENCE-KEYWORD-INFO* ...) ; x-compiling (SB-XC:DEFMACRO DEFINE-SEQUENCE-TRAVERSER ...) ; x-compiling (SB-XC:DEFMACRO SEQ-DISPATCH ...) ; x-compiling (SB-XC:DEFMACRO %MAKE-SEQUENCE-LIKE ...) ; x-compiling (SB-XC:DEFMACRO BAD-SEQUENCE-TYPE-ERROR ...) ; x-compiling (SB-XC:DEFMACRO SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR ...) ; x-compiling (SB-XC:DEFMACRO SEQUENCE-TYPE-TOO-HAIRY ...) ; x-compiling (DEFUN IS-A-VALID-SEQUENCE-TYPE-SPECIFIER-P ...) ; x-compiling (DEFUN VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH ...) ; x-compiling (DEFUN SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SIGNAL-INDEX-TOO-LARGE-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN ARRAY-BOUNDING-INDICES-BAD-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CIRCULAR-LIST-ERROR ...) ; x-compiling (DEFUN EMPTYP ...) ; x-compiling (DEFUN ELT ...) ; x-compiling (DEFUN %SETELT ...) ; x-compiling (DEFUN LENGTH ...) ; x-compiling (DEFUN MAKE-SEQUENCE ...) ; x-compiling (DEFINE-ARRAY-DISPATCH VECTOR-SUBSEQ-DISPATCH ...) ; x-compiling (DEFUN VECTOR-SUBSEQ* ...) ; x-compiling (DEFUN LIST-SUBSEQ* ...) ; x-compiling (DEFUN SUBSEQ ...) ; x-compiling (DEFUN COPY-SEQ ...) ; x-compiling (DEFUN LIST-COPY-SEQ* ...) ; x-compiling (DEFUN LIST-FILL* ...) ; x-compiling (DEFUN VECTOR-FILL* ...) ; x-compiling (DEFUN STRING-FILL* ...) ; x-compiling (DEFUN FILL ...) ; x-compiling (DEFUN LIST-REPLACE-FROM-LIST* ...) ; x-compiling (DEFUN LIST-REPLACE-FROM-VECTOR* ...) ; x-compiling (DEFUN VECTOR-REPLACE-FROM-LIST* ...) ; x-compiling (DEFUN VECTOR-REPLACE-FROM-VECTOR* ...) ; x-compiling (DEFUN SIMPLE-CHARACTER-STRING-REPLACE-FROM-SIMPLE-CHARACTER-STRING* ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER REPLACE ...) ; x-compiling (DEFUN REVERSE ...) ; x-compiling (DEFUN LIST-REVERSE* ...) ; x-compiling (DEFUN VECTOR-REVERSE* ...) ; x-compiling (DEFUN LIST-NREVERSE* ...) ; x-compiling (DEFUN VECTOR-NREVERSE* ...) ; x-compiling (DEFUN NREVERSE ...) ; x-compiling (DEFMACRO SB!SEQUENCE:DOSEQUENCE ...) ; x-compiling (DEFUN CONCATENATE ...) ; x-compiling (DEF %CONCATENATE-TO-STRING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/seq.lisp ; in: DEF %CONCATENATE-TO-STRING ; (SB!IMPL::DEF SB!KERNEL:%CONCATENATE-TO-STRING CHARACTER) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS ; --> IF PROGN LET TAGBODY SB!IMPL::STRING-DISPATCH FLET ETYPECASE LET COND IF ; --> COND IF COND IF PROGN #:STRING-DISPATCH-FUN1800 BLOCK ; ==> ; (REPLACE SB!IMPL::RESULT SB!IMPL::SEQ :START1 SB!IMPL::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK LET* MAPCAR LET LET ; --> SB!INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY SB!KERNEL:%RPLACD SETQ THE ; --> LIST CONS SB!C::%FUNCALL ; ==> ; (LENGTH #:G1844) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; x-compiling (DEF %CONCATENATE-TO-BASE-STRING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/seq.lisp ; in: DEF %CONCATENATE-TO-BASE-STRING ; (SB!IMPL::DEF SB!KERNEL:%CONCATENATE-TO-BASE-STRING BASE-CHAR) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS ; --> IF PROGN LET TAGBODY SB!IMPL::STRING-DISPATCH FLET ETYPECASE LET COND IF ; --> COND IF COND IF PROGN #:STRING-DISPATCH-FUN1887 BLOCK ; ==> ; (REPLACE SB!IMPL::RESULT SB!IMPL::SEQ :START1 SB!IMPL::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK LET* MAPCAR LET LET ; --> SB!INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY SB!KERNEL:%RPLACD SETQ THE ; --> LIST CONS SB!C::%FUNCALL ; ==> ; (LENGTH #:G1921) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; x-compiling (DEFUN %MAP-TO-LIST-ARITY-1 ...) ; x-compiling (DEFUN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...) ; x-compiling (DEFUN %MAP-FOR-EFFECT-ARITY-1 ...) ; x-compiling (DECLAIM (MAYBE-INLINE %MAP-FOR-EFFECT)) ; x-compiling (DEFUN %MAP-FOR-EFFECT ...) ; x-compiling (DEFUN %MAP-TO-LIST ...) ; x-compiling (DEFUN %MAP-TO-VECTOR ...) ; x-compiling (DEFUN %MAP-TO-SEQUENCE ...) ; x-compiling (DEFUN %MAP ...) ; x-compiling (DEFUN MAP ...) ; x-compiling (DEFMACRO MAP-INTO-LAMBDA ...) ; x-compiling (DEFINE-ARRAY-DISPATCH VECTOR-MAP-INTO ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/seq.lisp ; in: DEFINE-ARRAY-DISPATCH VECTOR-MAP-INTO ; (INCF SB!INT:INDEX) ; --> LET* + ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; x-compiling (DEFUN MAP-INTO ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/seq.lisp ; in: DEFUN MAP-INTO ; (DEFUN MAP-INTO (SB!IMPL::RESULT-SEQUENCE FUNCTION &REST SB!IMPL::SEQUENCES) ; (LET ((SB!IMPL::REALLY-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION))) ; (ETYPECASE SB!IMPL::RESULT-SEQUENCE ; (VECTOR ; (SB!KERNEL:WITH-ARRAY-DATA # ; #)) ; (LIST ; (LET # ; # ; #)) ; (SEQUENCE (MULTIPLE-VALUE-BIND # # #)))) ; SB!IMPL::RESULT-SEQUENCE) ; --> PROGN SB!INT:COLD-FSET ; ==> ; (BLOCK MAP-INTO ; (LET ((SB!IMPL::REALLY-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION))) ; (ETYPECASE SB!IMPL::RESULT-SEQUENCE ; (VECTOR ; (SB!KERNEL:WITH-ARRAY-DATA # ; #)) ; (LIST ; (LET # ; # ; #)) ; (SEQUENCE (MULTIPLE-VALUE-BIND # # #)))) ; SB!IMPL::RESULT-SEQUENCE) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM MAP-INTO RESULT-SEQUENCE). Use GO/RETURN-FROM with SAFETY 0, or ; declare the exit function DYNAMIC-EXTENT to avoid. ; x-compiling (DEFQUANTIFIER SOME ...) ; x-compiling (DEFQUANTIFIER EVERY ...) ; x-compiling (DEFQUANTIFIER NOTANY ...) ; x-compiling (DEFQUANTIFIER NOTEVERY ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER REDUCE ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-IF ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-IF-NOT ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-IF ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-IF-NOT ...) ; x-compiling (DEFUN LIST-REMOVE-DUPLICATES* ...) ; x-compiling (DEFUN VECTOR-REMOVE-DUPLICATES* ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/seq.lisp ; in: DEFUN VECTOR-REMOVE-DUPLICATES* ; (SB!IMPL::%MAKE-SEQUENCE-LIKE VECTOR LENGTH) ; --> SB!IMPL::SEQ-DISPATCH IF LET SB!EXT:TRULY-THE ; ==> ; VECTOR ; ; note: deleting unreachable code ; --> SB!IMPL::SEQ-DISPATCH IF LET MAKE-LIST ; ==> ; LENGTH ; ; note: deleting unreachable code ; --> SB!IMPL::SEQ-DISPATCH IF IF SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; ==> ; VECTOR ; ; note: deleting unreachable code ; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-DUPLICATES ...) ; x-compiling (DEFUN LIST-DELETE-DUPLICATES* ...) ; x-compiling (DEFUN VECTOR-DELETE-DUPLICATES* ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-DUPLICATES ...) ; x-compiling (DEFUN LIST-SUBSTITUTE* ...) ; x-compiling (DEFUN VECTOR-SUBSTITUTE* ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF-NOT ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE ...) ; x-compiling (DEFUN NLIST-SUBSTITUTE* ...) ; x-compiling (DEFUN NVECTOR-SUBSTITUTE* ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF ...) ; x-compiling (DEFUN NLIST-SUBSTITUTE-IF* ...) ; x-compiling (DEFUN NVECTOR-SUBSTITUTE-IF* ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF-NOT ...) ; x-compiling (DEFUN NLIST-SUBSTITUTE-IF-NOT* ...) ; x-compiling (DEFUN NVECTOR-SUBSTITUTE-IF-NOT* ...) ; x-compiling (DEFUN EFFECTIVE-FIND-POSITION-TEST ...) ; x-compiling (DEFUN EFFECTIVE-FIND-POSITION-KEY ...) ; x-compiling (DEFUN %FIND-POSITION ...) ; x-compiling (DEFUN %FIND-POSITION-IF ...) ; x-compiling (DEFUN %FIND-POSITION-IF-NOT ...) ; x-compiling (DEFUN FIND ...) ; x-compiling (DEFUN POSITION ...) ; x-compiling (DEFUN FIND-IF ...) ; x-compiling (DEFUN POSITION-IF ...) ; x-compiling (DEFUN FIND-IF-NOT ...) ; x-compiling (DEFUN POSITION-IF-NOT ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER COUNT-IF ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER COUNT-IF-NOT ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER COUNT ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER MISMATCH ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER SEARCH ...) ; x-compiling (DEFUN FILL-DATA-VECTOR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/seq.lisp ; in: DEFUN %FIND-POSITION ; (SB!IMPL::FROBS T) ; --> SB!IMPL::SEQ-DISPATCH IF LET SB!KERNEL:WITH-ARRAY-DATA LET LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL MACROLET TYPECASE LET COND IF COND IF COND IF PROGN ; --> IF LET ; ==> ; (SB!KERNEL:%BIT-POSITION SB!IMPL::ITEM SEQUENCE SB!IMPL::FROM-END ; SB!IMPL::START SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: %BIT-POSITION ; in: DEFINE-ARRAY-DISPATCH VECTOR-MAP-INTO ; (SB!IMPL::DEFINE-ARRAY-DISPATCH SB!IMPL::VECTOR-MAP-INTO ; (SB!IMPL::DATA SB!IMPL::START SB!IMPL::END SB!IMPL::FUN SB!IMPL::SEQUENCES) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (TYPE SB!INT:INDEX SB!IMPL::START SB!IMPL::END) ; (TYPE FUNCTION SB!IMPL::FUN) ; (TYPE LIST SB!IMPL::SEQUENCES)) ; (LET ((SB!INT:INDEX SB!IMPL::START)) ; (DECLARE (TYPE SB!INT:INDEX SB!INT:INDEX)) ; (BLOCK SB!IMPL::MAPPING ; (SB!IMPL::MAP-INTO-LAMBDA SB!IMPL::SEQUENCES (&REST SB!IMPL::ARGS) ; (DECLARE #) (WHEN # #) (SETF #) (INCF SB!INT:INDEX))) ; SB!INT:INDEX)) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::%%VECTOR-MAP-INTO-FUNS%% ; (UNLESS #:BOUNDP ; (MAKE-ARRAY 256 :INITIAL-ELEMENT ; #'SB!IMPL::HAIRY-VECTOR-MAP-INTO-ERROR)) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFINE-ARRAY-DISPATCH VECTOR-SUBSEQ-DISPATCH ; (SB!IMPL::DEFINE-ARRAY-DISPATCH SB!IMPL::VECTOR-SUBSEQ-DISPATCH ; (ARRAY SB!IMPL::START SB!IMPL::END) (DECLARE (OPTIMIZE SPEED (SAFETY 0))) ; (DECLARE (TYPE SB!INT:INDEX SB!IMPL::START SB!IMPL::END)) ; (SUBSEQ ARRAY SB!IMPL::START SB!IMPL::END)) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::%%VECTOR-SUBSEQ-DISPATCH-FUNS%% ; (UNLESS #:BOUNDP ; (MAKE-ARRAY 256 :INITIAL-ELEMENT ; #'SB!IMPL::HAIRY-VECTOR-SUBSEQ-DISPATCH-ERROR)) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFUN %SETELT ; (SETF (SB!SEQUENCE:ELT SEQUENCE SB!INT:INDEX) SB!IMPL::NEWVAL) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!SEQUENCE:ELT) #:NEW355 #:SEQUENCE357 #:INDEX356) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!SEQUENCE:ELT) ; in: DEFUN MAP-INTO ; (SETF (SB!SEQUENCE:ITERATOR-ELEMENT SB!IMPL::RESULT-SEQUENCE SB!IMPL::ITER) ; (APPLY SB!IMPL::REALLY-FUN SB!IMPL::ARGS)) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!SEQUENCE:ITERATOR-ELEMENT) #:NEW2915 ; #:RESULT-SEQUENCE2917 #:ITER2916) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!SEQUENCE:ITERATOR-ELEMENT) ; in: DEFUN MAKE-SEQUENCE ; (TYPEP TYPE 'SB!KERNEL:ARRAY-TYPE) ; ; caught STYLE-WARNING: ; undefined type: ARRAY-TYPE ; in: DEFUN CONCATENATE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE ; (REDUCE #'+ SB!IMPL::SEQUENCES :KEY #'LENGTH)) ; --> ERROR COND IF PROGN SB!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: DEF %CONCATENATE-TO-BASE-STRING ; (SB!IMPL::DEF SB!KERNEL:%CONCATENATE-TO-BASE-STRING BASE-CHAR) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK LET* MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEF %CONCATENATE-TO-STRING ; (SB!IMPL::DEF SB!KERNEL:%CONCATENATE-TO-STRING CHARACTER) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK LET* MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFPARAMETER *SEQUENCE-KEYWORD-INFO* ; (MAPCAN ; (LAMBDA (SB!IMPL::NAMES) ; (DESTRUCTURING-BIND ; (SB!IMPL::START SB!IMPL::END LENGTH SEQUENCE) ; SB!IMPL::NAMES ; (LIST (SB!IMPL::BACKQ-LIST* SB!IMPL::START 0 NIL # '#) ; (SB!IMPL::BACKQ-LIST* SB!IMPL::END NIL NIL # '#)))) ; '((SB!IMPL::START SB!IMPL::END LENGTH SEQUENCE) ; (SB!IMPL::START1 SB!IMPL::END1 SB!IMPL::LENGTH1 SB!IMPL::SEQUENCE1) ; (SB!IMPL::START2 SB!IMPL::END2 SB!IMPL::LENGTH2 SB!IMPL::SEQUENCE2))) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 1 more use of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/seq.lisp ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/seq.lisp ; in: DEFINE-SEQUENCE-TRAVERSER DELETE ; #'SB!SEQUENCE:DELETE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:DELETE ; in: DEFINE-SEQUENCE-TRAVERSER DELETE-DUPLICATES ; #'SB!SEQUENCE:DELETE-DUPLICATES ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:DELETE-DUPLICATES ; in: DEFINE-SEQUENCE-TRAVERSER DELETE-IF ; #'SB!SEQUENCE:DELETE-IF ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:DELETE-IF ; in: DEFINE-SEQUENCE-TRAVERSER DELETE-IF-NOT ; #'SB!SEQUENCE:DELETE-IF-NOT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:DELETE-IF-NOT ; in: DEFUN ELT ; (SB!SEQUENCE:ELT SEQUENCE SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:ELT ; in: DEFUN EMPTYP ; (SB!SEQUENCE:EMPTYP SEQUENCE) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:EMPTYP ; 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 MAP-INTO ; (SB!SEQUENCE:ITERATOR-ENDP SB!IMPL::RESULT-SEQUENCE SB!IMPL::ITER ; SB!IMPL::LIMIT SB!IMPL::FROM-END) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:ITERATOR-ENDP ; (SB!SEQUENCE:ITERATOR-STEP SB!IMPL::RESULT-SEQUENCE SB!IMPL::ITER ; SB!IMPL::FROM-END) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:ITERATOR-STEP ; in: DEFUN LENGTH ; (SB!SEQUENCE:LENGTH SEQUENCE) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:LENGTH ; in: DEFUN %CHECK-GENERIC-SEQUENCE-BOUNDS ; (SB!SEQUENCE:LENGTH SB!IMPL::SEQ) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:LENGTH ; in: DEFUN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ; (SB!SEQUENCE:DOSEQUENCE (SB!IMPL::ELEMENT SEQUENCE) ; (SETF (AREF SB!IMPL::RESULT SB!INT:INDEX) ; (FUNCALL SB!IMPL::REALLY-FUN SB!IMPL::ELEMENT)) ; (INCF SB!INT:INDEX)) ; --> BLOCK LET SB!IMPL::SEQ-DISPATCH IF IF MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR #:SEQUENCE9767) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR ; in: DEFUN %MAP-TO-LIST-ARITY-1 ; (SB!SEQUENCE:DOSEQUENCE (SB!IMPL::ELEMENT SEQUENCE) ; (PUSH (FUNCALL SB!IMPL::REALLY-FUN SB!IMPL::ELEMENT) ; SB!IMPL::REVERSED-RESULT)) ; --> BLOCK LET SB!IMPL::SEQ-DISPATCH IF IF MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR #:SEQUENCE9742) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR ; in: DEFUN CONCATENATE ; (SB!SEQUENCE:DOSEQUENCE (SB!IMPL::E SEQUENCE) ; (SETQ SB!IMPL::SPLICE (CDR (RPLACD SB!IMPL::SPLICE #)))) ; --> BLOCK LET SB!IMPL::SEQ-DISPATCH IF IF MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR #:SEQUENCE9552) ; ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/seq.lisp ; in: DEFINE-SEQUENCE-TRAVERSER REMOVE ; (SB!IMPL::NORMAL-MUMBLE-REMOVE) ; --> SB!IMPL::MUMBLE-REMOVE SB!IMPL::MUMBLE-REMOVE-MACRO DO BLOCK LET DO BLOCK ; --> LET SB!IMPL::%MAKE-SEQUENCE-LIKE SB!IMPL::SEQ-DISPATCH IF IF ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-LIKE SEQUENCE LENGTH) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; in: DEFUN VECTOR-REVERSE* ; (SB!IMPL::VECTOR-REVERSE SEQUENCE) ; --> LET DO BLOCK LET SB!IMPL::%MAKE-SEQUENCE-LIKE SB!IMPL::SEQ-DISPATCH IF IF ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-LIKE SEQUENCE LENGTH) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; in: DEFUN MAKE-SEQUENCE ; (SB!SEQUENCE:MAKE-SEQUENCE-LIKE (SB!MOP:CLASS-PROTOTYPE CLASS) LENGTH ; :INITIAL-ELEMENT SB!IMPL::INITIAL-ELEMENT) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; ; caught STYLE-WARNING: ; 4 more uses of undefined function SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/seq.lisp ; in: DEFINE-SEQUENCE-TRAVERSER MISMATCH ; #'SB!SEQUENCE:MISMATCH ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MISMATCH ; in: DEFUN NREVERSE ; (SB!SEQUENCE:NREVERSE SEQUENCE) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:NREVERSE ; in: DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE ; #'SB!SEQUENCE:NSUBSTITUTE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:NSUBSTITUTE ; in: DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF ; #'SB!SEQUENCE:NSUBSTITUTE-IF ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:NSUBSTITUTE-IF ; in: DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF-NOT ; #'SB!SEQUENCE:NSUBSTITUTE-IF-NOT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:NSUBSTITUTE-IF-NOT ; in: DEFUN POSITION ; #'SB!SEQUENCE:POSITION ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:POSITION ; in: DEFUN POSITION-IF ; #'SB!SEQUENCE:POSITION-IF ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:POSITION-IF ; in: DEFUN POSITION-IF-NOT ; #'SB!SEQUENCE:POSITION-IF-NOT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:POSITION-IF-NOT ; in: DEFINE-SEQUENCE-TRAVERSER REDUCE ; #'SB!SEQUENCE:REDUCE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REDUCE ; in: DEFINE-SEQUENCE-TRAVERSER REMOVE ; #'SB!SEQUENCE:REMOVE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REMOVE ; in: DEFINE-SEQUENCE-TRAVERSER REMOVE-DUPLICATES ; #'SB!SEQUENCE:REMOVE-DUPLICATES ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REMOVE-DUPLICATES ; in: DEFINE-SEQUENCE-TRAVERSER REMOVE-IF ; #'SB!SEQUENCE:REMOVE-IF ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REMOVE-IF ; in: DEFINE-SEQUENCE-TRAVERSER REMOVE-IF-NOT ; #'SB!SEQUENCE:REMOVE-IF-NOT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REMOVE-IF-NOT ; in: DEFINE-SEQUENCE-TRAVERSER REPLACE ; #'SB!SEQUENCE:REPLACE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REPLACE ; in: DEFUN REVERSE ; (SB!SEQUENCE:REVERSE SEQUENCE) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REVERSE ; in: DEFINE-SEQUENCE-TRAVERSER SEARCH ; (SB!IMPL::LIST-SEARCH SB!IMPL::SEQUENCE2 SB!IMPL::SEQUENCE1) ; --> DO BLOCK LET TAGBODY TAGBODY IF SB!IMPL::SEARCH-COMPARE ; --> SB!IMPL::SEQ-DISPATCH IF IF RETURN-FROM APPLY MULTIPLE-VALUE-CALL ; ==> ; #'SB!SEQUENCE:SEARCH ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SEARCH ; in: DEFUN MAKE-SEQUENCE ; (SB!KERNEL:SPECIFIER-TYPE 'LIST) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: DEFUN SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE ; (SB!KERNEL:SPECIFIER-TYPE SB!IMPL::RESULT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: DEFUN IS-A-VALID-SEQUENCE-TYPE-SPECIFIER-P ; (SB!KERNEL:SPECIFIER-TYPE 'VECTOR) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; 2 more uses of undefined function SPECIFIER-TYPE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/seq.lisp ; in: DEFUN SUBSEQ ; (SB!SEQUENCE:SUBSEQ SEQUENCE SB!IMPL::START SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SUBSEQ ; in: DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE ; (SB!IMPL::SUBST-DISPATCH 'SB!IMPL::NORMAL) ; --> SB!IMPL::SEQ-DISPATCH IF IF APPLY MULTIPLE-VALUE-CALL ; ==> ; #'SB!SEQUENCE:SUBSTITUTE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SUBSTITUTE ; in: DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF ; (SB!IMPL::SUBST-DISPATCH 'IF) ; --> SB!IMPL::SEQ-DISPATCH IF IF APPLY MULTIPLE-VALUE-CALL ; ==> ; #'SB!SEQUENCE:SUBSTITUTE-IF ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SUBSTITUTE-IF ; in: DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF-NOT ; (SB!IMPL::SUBST-DISPATCH 'SB!IMPL::IF-NOT) ; --> SB!IMPL::SEQ-DISPATCH IF IF APPLY MULTIPLE-VALUE-CALL ; ==> ; #'SB!SEQUENCE:SUBSTITUTE-IF-NOT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SUBSTITUTE-IF-NOT ; in: DEFUN CONCATENATE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE ; (REDUCE #'+ SB!IMPL::SEQUENCES :KEY #'LENGTH)) ; --> ERROR LIST ; ==> ; (SB!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; in: DEFUN MAKE-SEQUENCE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE LENGTH) ; --> ERROR LIST ; ==> ; (SB!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; in: DEFUN CONCATENATE ; (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; in: DEFUN MAKE-SEQUENCE ; (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; (SB!EXT:TYPEXPAND TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPEXPAND ; in: DEFUN STRING-FILL* ; (FILL SB!IMPL::DATA SB!IMPL::ITEM :START SB!IMPL::START :END SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; ; compilation unit finished ; Undefined types: ; ARRAY-TYPE COMPILER-NOTE ; Undefined functions: ; %BIT-POSITION %DEFGLOBAL (SETF SB!SEQUENCE:ELT) (SETF SB!SEQUENCE:ITERATOR-ELEMENT) ARRAY-TYPE-DIMENSIONS ARRAY-TYPE-P ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE SB!MOP:CLASS-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:EMPTYP SB!SEQUENCE:FILL SB!MOP:FINALIZE-INHERITANCE SB!SEQUENCE:FIND FIND-CLASS SB!SEQUENCE:FIND-IF SB!SEQUENCE:FIND-IF-NOT SB!SEQUENCE:ITERATOR-ENDP SB!SEQUENCE:ITERATOR-STEP 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= TYPEXPAND UB32-BASH-FILL UB8-BASH-FILL ; caught 88 STYLE-WARNING conditions ; printed 13 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/seq.lisp-obj-tmp written ; compilation finished in 0:00:04.325 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/coerce.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF LIST-TO-VECTOR* ...) ; x-compiling (DEF VECTOR-TO-VECTOR* ...) ; x-compiling (DEF SEQUENCE-TO-VECTOR* ...) ; x-compiling (DEFUN VECTOR-TO-LIST* ...) ; x-compiling (DEFUN SEQUENCE-TO-LIST ...) ; x-compiling (DECLAIM (INLINE COERCE-TO-LIST)) ; x-compiling (DECLAIM (INLINE COERCE-TO-VECTOR)) ; x-compiling (DEFUN COERCE-SYMBOL-TO-FUN ...) ; x-compiling (DEFUN COERCE-TO-FUN ...) ; x-compiling (DEFUN COERCE-TO-LIST ...) ; x-compiling (DEFUN COERCE-TO-VECTOR ...) ; x-compiling (DEFUN COERCE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/coerce.lisp ; in: DEFUN COERCE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE (LENGTH SB!IMPL::OBJECT)) ; --> ERROR COND IF PROGN SB!IMPL::BACKQ-LIST CAR ; ==> ; (SB!KERNEL:ARRAY-TYPE-DIMENSIONS TYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-DIMENSIONS ; --> ERROR COND IF ; ==> ; (SB!KERNEL:ARRAY-TYPE-P TYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-P ; (SB!MOP:CLASS-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 ; (SB!KERNEL::CONS-TYPE-LENGTH-INFO TYPE) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::CONS-TYPE-LENGTH-INFO ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE (LENGTH SB!IMPL::OBJECT)) ; --> ERROR COND IF COND IF COND IF ; ==> ; (SB!KERNEL:CONS-TYPE-P TYPE) ; ; caught STYLE-WARNING: ; undefined function: CONS-TYPE-P ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'SINGLE-FLOAT)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; (SB!MOP:FINALIZE-INHERITANCE CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:FINALIZE-INHERITANCE ; (FIND-CLASS SB!IMPL::OUTPUT-TYPE-SPEC NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASS ; in: DEFUN SEQUENCE-TO-LIST ; (SB!SEQUENCE:DOSEQUENCE (SB!IMPL::I SEQUENCE) ; (RPLACD SB!IMPL::SPLICE (LIST SB!IMPL::I)) ; (SETF SB!IMPL::SPLICE (CDR SB!IMPL::SPLICE))) ; --> BLOCK LET SB!IMPL::SEQ-DISPATCH IF IF MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR #:SEQUENCE12776) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR ; in: DEFUN COERCE ; (SB!SEQUENCE:MAKE-SEQUENCE-LIKE NIL (LENGTH SB!IMPL::OBJECT) ; :INITIAL-CONTENTS SB!IMPL::OBJECT) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; (SB!KERNEL:SPECIFIER-TYPE 'CHARACTER) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE (LENGTH SB!IMPL::OBJECT)) ; --> ERROR LIST ; ==> ; (SB!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'CHARACTER)) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined functions: ; ARRAY-TYPE-DIMENSIONS ARRAY-TYPE-P SB!MOP:CLASS-FINALIZED-P SB!MOP:CLASS-PROTOTYPE SB!KERNEL::CONS-TYPE-LENGTH-INFO CONS-TYPE-P CSUBTYPEP SB!MOP:FINALIZE-INHERITANCE FIND-CLASS SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR SB!SEQUENCE:MAKE-SEQUENCE-LIKE SPECIFIER-TYPE TYPE-SPECIFIER TYPE= ; caught 14 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/coerce.lisp-obj-tmp written ; compilation finished in 0:00:00.163 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/string.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN STRING ...) ; x-compiling (DEFUN %CHECK-VECTOR-SEQUENCE-BOUNDS ...) ; x-compiling (DEFUN CHAR ...) ; x-compiling (DEFUN %CHARSET ...) ; x-compiling (DEFUN SCHAR ...) ; x-compiling (DEFUN %SCHARSET ...) ; x-compiling (DEFUN STRING=* ...) ; x-compiling (DEFUN STRING/=* ...) ; x-compiling (DEFUN STRING<* ...) ; x-compiling (DEFUN STRING>* ...) ; x-compiling (DEFUN STRING<=* ...) ; x-compiling (DEFUN STRING>=* ...) ; x-compiling (DEFUN STRING< ...) ; x-compiling (DEFUN STRING> ...) ; x-compiling (DEFUN STRING<= ...) ; x-compiling (DEFUN STRING>= ...) ; x-compiling (DEFUN STRING= ...) ; x-compiling (DEFUN STRING/= ...) ; x-compiling (DEFUN STRING-EQUAL ...) ; x-compiling (DEFUN STRING-NOT-EQUAL ...) ; x-compiling (DEFUN STRING-LESSP* ...) ; x-compiling (DEFUN STRING-GREATERP* ...) ; x-compiling (DEFUN STRING-NOT-LESSP* ...) ; x-compiling (DEFUN STRING-NOT-GREATERP* ...) ; x-compiling (DEFUN STRING-LESSP ...) ; x-compiling (DEFUN STRING-GREATERP ...) ; x-compiling (DEFUN STRING-NOT-LESSP ...) ; x-compiling (DEFUN STRING-NOT-GREATERP ...) ; x-compiling (DEFUN MAKE-STRING ...) ; x-compiling (FLET (#) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/string.lisp ; in: DEFUN STRING-UPCASE ; (DEFUN STRING-UPCASE (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (SB!IMPL::%UPCASE (COPY-SEQ (STRING STRING)) SB!IMPL::START SB!IMPL::END)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET STRING-UPCASE ; (LAMBDA (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (BLOCK STRING-UPCASE ; (SB!IMPL::%UPCASE (COPY-SEQ #) SB!IMPL::START ; SB!IMPL::END)))) ; ; caught STYLE-WARNING: ; 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: ; 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 #)))) ; --> LET SB!IMPL::%STRING IF STRING ; ==> ; STRING ; ; note: deleting unreachable code ; x-compiling (FLET (#) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/string.lisp ; in: DEFUN STRING-DOWNCASE ; (DEFUN STRING-DOWNCASE (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (SB!IMPL::%DOWNCASE (COPY-SEQ (STRING STRING)) SB!IMPL::START SB!IMPL::END)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET STRING-DOWNCASE ; (LAMBDA (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (BLOCK STRING-DOWNCASE ; (SB!IMPL::%DOWNCASE (COPY-SEQ #) SB!IMPL::START ; SB!IMPL::END)))) ; ; caught STYLE-WARNING: ; 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: ; 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 #)))) ; --> LET SB!IMPL::%STRING IF STRING ; ==> ; STRING ; ; note: deleting unreachable code ; x-compiling (FLET (#) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/string.lisp ; in: DEFUN STRING-CAPITALIZE ; (DEFUN STRING-CAPITALIZE (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (SB!IMPL::%CAPITALIZE (COPY-SEQ (STRING STRING)) SB!IMPL::START ; SB!IMPL::END)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET STRING-CAPITALIZE ; (LAMBDA (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (BLOCK STRING-CAPITALIZE ; (SB!IMPL::%CAPITALIZE (COPY-SEQ #) SB!IMPL::START ; SB!IMPL::END)))) ; ; caught STYLE-WARNING: ; 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: ; 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? (SETF #) (SETQ #)) ; (T (SETF #))))) ; --> LET SB!IMPL::%STRING IF STRING ; ==> ; STRING ; ; note: deleting unreachable code ; x-compiling (DEFUN GENERIC-STRING-TRIM ...) ; x-compiling (DEFUN STRING-LEFT-TRIM ...) ; x-compiling (DEFUN STRING-RIGHT-TRIM ...) ; x-compiling (DEFUN STRING-TRIM ...); ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; printed 3 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/string.lisp-obj-tmp written ; compilation finished in 0:00:01.885 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/mipsstrops.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN %SP-STRING-COMPARE ...) ; x-compiling (DEFUN %SP-REVERSE-STRING-COMPARE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/mipsstrops.lisp-obj-tmp written ; compilation finished in 0:00:01.225 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-time.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFCONSTANT SB-XC:INTERNAL-TIME-UNITS-PER-SECOND ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-time.lisp-obj-tmp written ; compilation finished in 0:00:00.018 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!UNIX") ; x-compiling (/SHOW0 "unix.lisp 21") ; x-compiling (DEFUN C-STRINGS->STRING-LIST ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFUN C-STRINGS->STRING-LIST ; (ERROR "argh! can't happen") ; ==> ; "argh! can't happen" ; ; note: deleting unreachable code ; x-compiling (DEFTYPE UNIX-PATHNAME ...) ; x-compiling (DEFTYPE UNIX-FD ...) ; x-compiling (DEFTYPE UNIX-FILE-MODE ...) ; x-compiling (DEFTYPE UNIX-PID ...) ; x-compiling (DEFTYPE UNIX-UID ...) ; x-compiling (DEFTYPE UNIX-GID ...) ; x-compiling (/SHOW0 "unix.lisp 74") ; x-compiling (DEFMACRO SYSCALL ...) ; x-compiling (DEFMACRO SYSCALL* ...) ; x-compiling (DEFMACRO INT-SYSCALL ...) ; x-compiling (DEFMACRO WITH-RESTARTED-SYSCALL ...) ; x-compiling (DEFMACRO VOID-SYSCALL ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("getenv" POSIX-GETENV) ...) ; x-compiling (DEFUN UNIX-RENAME ...) ; x-compiling (/SHOW0 "unix.lisp 220") ; x-compiling (DEFINE-ALIEN-TYPE FD-MASK ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (/SHOW0 "unix.lisp 304") ; x-compiling (DEFUN UNIX-OPEN ...) ; x-compiling (/SHOW0 "unix.lisp 391") ; x-compiling (DEFUN UNIX-CLOSE ...) ; x-compiling (DEFUN SB-MKSTEMP ...) ; x-compiling (DEFCONSTANT RUSAGE_SELF ...) ; x-compiling (DEFCONSTANT RUSAGE_CHILDREN ...) ; x-compiling (DEFCONSTANT RUSAGE_BOTH ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (DEFUN UNIX-ACCESS ...) ; x-compiling (DEFCONSTANT L_SET ...) ; x-compiling (DEFCONSTANT L_INCR ...) ; x-compiling (DEFCONSTANT L_XTND ...) ; x-compiling (DEFINE-ALIEN-TYPE UNIX-OFFSET ...) ; x-compiling (DEFUN UNIX-ISATTY ...) ; x-compiling (DEFUN UNIX-LSEEK ...) ; x-compiling (DECLAIM (MAYBE-INLINE UNIX-READ)) ; x-compiling (DEFUN UNIX-READ ...) ; x-compiling (DEFUN UNIX-WRITE ...) ; x-compiling (DEFUN UNIX-PIPE ...) ; x-compiling (DEFUN UNIX-MKDIR ...) ; x-compiling (DEFUN NEWCHARSTAR-STRING ...) ; x-compiling (DEFUN POSIX-GETCWD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFUN POSIX-GETCWD ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "getcwd" ; (FUNCTION (* CHAR) (* CHAR) SB!ALIEN:SIZE-T)) ; NIL 0) ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN POSIX-GETCWD/ ...) ; x-compiling (DEFUN UNIX-DUP ...) ; x-compiling (DEFTYPE EXIT-CODE ...) ; x-compiling (DEFUN OS-EXIT ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("getpid" UNIX-GETPID) ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("getuid" UNIX-GETUID) ...) ; x-compiling (DEFUN UID-USERNAME ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFUN UID-USERNAME ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "uid_username" (FUNCTION (* CHAR) SB!ALIEN:INT)) ; SB!UNIX::UID) ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN UID-HOMEDIR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFUN UID-HOMEDIR ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "uid_homedir" (FUNCTION (* CHAR) SB!ALIEN:INT)) ; SB!UNIX::UID) ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN USER-HOMEDIR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFUN USER-HOMEDIR ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "user_homedir" (FUNCTION (* CHAR) SB!ALIEN:C-STRING)) ; SB!UNIX::UID) ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN UNIX-READLINK ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 LET LET SB!UNIX::PTR ; --> SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN UNIX-REALPATH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 LET LET SB!UNIX::PTR ; --> SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN UNIX-UNLINK ...) ; x-compiling (DEFUN UNIX-GETHOSTNAME ...) ; x-compiling (DEFUN UNIX-SETSID ...) ; x-compiling (DEFUN UNIX-IOCTL ...) ; x-compiling (DECLAIM (INLINE UNIX-FAST-GETRUSAGE)) ; x-compiling (DEFUN UNIX-FAST-GETRUSAGE ...) ; x-compiling (DEFUN UNIX-GETRUSAGE ...) ; x-compiling (DEFVAR *ON-DANGEROUS-WAIT* ...) ; x-compiling (DEFUN NOTE-DANGEROUS-WAIT ...) ; x-compiling (DEFMACRO WITH-FD-SETSIZE ...) ; x-compiling (DECLAIM (INLINE UNIX-FAST-SELECT)) ; x-compiling (DEFUN UNIX-FAST-SELECT ...) ; x-compiling (DECLAIM (INLINE NUM-TO-FD-SET ...)) ; x-compiling (DEFUN NUM-TO-FD-SET ...) ; x-compiling (DEFUN FD-SET-TO-NUM ...) ; x-compiling (DEFUN UNIX-SELECT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFUN UNIX-SELECT ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; --> SB!UNIX::RDF SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; --> SB!UNIX::WRF SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; --> SB!UNIX::XPF SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF) ; --> SB!UNIX::RDF SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF) ; --> SB!UNIX::WRF SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF) ; --> SB!UNIX::XPF SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::WITH-FD-SETSIZE (SB!UNIX::NFDS) ; (SB!ALIEN:WITH-ALIEN ; ((SB!UNIX::TV (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL)) ; (SB!UNIX::RDF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)) ; (SB!UNIX::WRF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)) ; (SB!UNIX::XPF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))) ; (COND (SB!UNIX::TO-SECS (SETF #)) ; ((NOT SB!SYS:*INTERRUPTS-ENABLED*) ; (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)"))) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; (MACROLET ((SB!UNIX::FROB # ; #)) ; (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT # # # #) ; (VALUES SB!UNIX::RESULT # # #) SB!UNIX::NFDS ; (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF) ; (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF) ; (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF) ; (IF SB!UNIX::TO-SECS ; # ; #))))) ; --> LET IF < ; --> (LAMBDA (#:G15157 #:G15156 #:G15155) (DECLARE (TYPE REAL #:G15157 #:G15156 #:G15155)) (IF (< #:G15157 #:G15156) (IF (< #:G15156 #:G15155) T NIL) NIL)) ; --> SB!C::%FUNCALL IF < > IF ; ==> ; (> SB!C::Y SB!C::X) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; --> LET IF < ; --> (LAMBDA (#:G15157 #:G15156 #:G15155) (DECLARE (TYPE REAL #:G15157 #:G15156 #:G15155)) (IF (< #:G15157 #:G15156) (IF (< #:G15156 #:G15155) T NIL) NIL)) ; --> SB!C::%FUNCALL IF IF ; ==> ; (< #:G15156 #:G15155) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; etc. ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; --> BLOCK TYPECASE LET COND IF COND THE PROGN LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY SETF LET* MULTIPLE-VALUE-BIND LET SB-XC:LDB ; --> SB!KERNEL:%LDB LOGAND ; ==> ; (ASH SB!ALIEN:INT (- SB!C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 4) because: ; The first argument is a (INTEGER 4611686018427387904), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -960 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; unable to do inline ASH (cost 4) because: ; The first argument is a (INTEGER 4611686018427387904), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -960 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; ==> ; (LOGAND SB!C::X '18446744073709551615) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; etc. ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; --> BLOCK TYPECASE LET COND IF COND THE PROGN LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY SETF LET* MULTIPLE-VALUE-BIND LET SB-XC:LDB ; --> SB!KERNEL:%LDB LOGAND ; ==> ; (ASH SB!ALIEN:INT (- SB!C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 4) because: ; The first argument is a (INTEGER 4611686018427387904), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -960 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; unable to do inline ASH (cost 4) because: ; The first argument is a (INTEGER 4611686018427387904), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -960 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; ==> ; (LOGAND SB!C::X '18446744073709551615) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; etc. ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; --> BLOCK TYPECASE LET COND IF COND THE PROGN LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY SETF LET* MULTIPLE-VALUE-BIND LET SB-XC:LDB ; --> SB!KERNEL:%LDB LOGAND ; ==> ; (ASH SB!ALIEN:INT (- SB!C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 4) because: ; The first argument is a (INTEGER 4611686018427387904), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -960 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; unable to do inline ASH (cost 4) because: ; The first argument is a (INTEGER 4611686018427387904), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -960 0), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; ==> ; (LOGAND SB!C::X '18446744073709551615) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; etc. ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF) ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE + ; ==> ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 64), 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 64), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-15160 ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF) ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE + ; ==> ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 64), 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 64), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-15162 ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF) ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE + ; ==> ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 64), 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 64), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-15154 ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; (SB!UNIX::WITH-FD-SETSIZE (SB!UNIX::NFDS) ; (SB!ALIEN:WITH-ALIEN ; ((SB!UNIX::TV (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL)) ; (SB!UNIX::RDF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)) ; (SB!UNIX::WRF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)) ; (SB!UNIX::XPF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))) ; (COND (SB!UNIX::TO-SECS (SETF #)) ; ((NOT SB!SYS:*INTERRUPTS-ENABLED*) ; (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)"))) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; (MACROLET ((SB!UNIX::FROB # ; #)) ; (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT # # # #) ; (VALUES SB!UNIX::RESULT # # #) SB!UNIX::NFDS ; (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF) ; (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF) ; (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF) ; (IF SB!UNIX::TO-SECS ; # ; #))))) ; --> LET IF ERROR 1- ; ==> ; (- SB!UNIX::NFDS 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (SB!ALIEN:WITH-ALIEN ; ((SB!UNIX::TV (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL)) ; (SB!UNIX::RDF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)) ; (SB!UNIX::WRF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)) ; (SB!UNIX::XPF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))) ; (COND ; (SB!UNIX::TO-SECS ; (SETF # SB!UNIX::TO-SECS ; # SB!UNIX::TO-USECS)) ; ((NOT SB!SYS:*INTERRUPTS-ENABLED*) ; (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)"))) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; (MACROLET ((SB!UNIX::FROB (SB!UNIX::LISPVAR SB!UNIX::ALIENVAR) ; (SB!IMPL::BACKQ-LIST 'IF # '# #))) ; (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT (* #) (* #) (* #) (* #)) ; (VALUES SB!UNIX::RESULT ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF)) ; SB!UNIX::NFDS (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF) ; (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF) ; (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF) ; (IF SB!UNIX::TO-SECS ; (SB!ALIEN:ALIEN-SAP #) ; (SB!SYS:INT-SAP 0))))) ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET ; ==> ; (LET ((#:VAR831 ; (SB!ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; '#))) ; (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE ; '# ; #:VAR831) ; (SYMBOL-MACROLET ((SB!UNIX::RDF ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN '# #:VAR831))) ; (LET ((#:VAR830 #)) ; (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE ; '# #:VAR830) ; (SYMBOL-MACROLET (#) ; (LET # ; # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to #:VAR831 ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET ; ==> ; (LET ((#:VAR830 ; (SB!ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; '#))) ; (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE ; '# ; #:VAR830) ; (SYMBOL-MACROLET ((SB!UNIX::WRF ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN '# #:VAR830))) ; (LET ((#:VAR829 #)) ; (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE ; '# #:VAR829) ; (SYMBOL-MACROLET (#) ; (COND # #) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; (MACROLET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to #:VAR830 ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET LET SYMBOL-MACROLET ; ==> ; (LET ((#:VAR829 ; (SB!ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; '#))) ; (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE ; '# ; #:VAR829) ; (SYMBOL-MACROLET ((SB!UNIX::XPF ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN '# #:VAR829))) ; (COND (SB!UNIX::TO-SECS (SETF #)) ; ((NOT SB!SYS:*INTERRUPTS-ENABLED*) ; (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)"))) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; (MACROLET ((SB!UNIX::FROB # ; #)) ; (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT # # # #) ; (VALUES SB!UNIX::RESULT # # #) SB!UNIX::NFDS ; (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF) ; (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF) ; (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF) ; (IF SB!UNIX::TO-SECS ; # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to #:VAR829 ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF) ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE + ; ==> ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)) ; ; note: doing unsigned word to integer coercion (cost 20) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF) ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE + ; ==> ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)) ; ; note: doing unsigned word to integer coercion (cost 20) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF) ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE + ; ==> ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)) ; ; note: doing unsigned word to integer coercion (cost 20) ; --> BLOCK IF SB!ALIEN:DEREF SB!ALIEN-INTERNALS:%ALIEN-VALUE ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; SB!ALIEN:ALIEN ; ; note: doing unsigned word to integer coercion (cost 20) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF) ; --> BLOCK IF SB!ALIEN:DEREF SB!ALIEN-INTERNALS:%ALIEN-VALUE ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; SB!ALIEN:ALIEN ; ; note: doing unsigned word to integer coercion (cost 20) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF) ; --> BLOCK IF SB!ALIEN:DEREF SB!ALIEN-INTERNALS:%ALIEN-VALUE ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; SB!ALIEN:ALIEN ; ; note: doing unsigned word to integer coercion (cost 20) ; x-compiling (DECLAIM (INLINE FD-SET ...)) ; x-compiling (DEFUN FD-SET ...) ; x-compiling (DEFUN FD-CLR ...) ; x-compiling (DEFUN FD-ISSET ...) ; x-compiling (DEFUN FD-ZERO ...) ; x-compiling (DEFUN UNIX-SIMPLE-POLL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFUN UNIX-SIMPLE-POLL ; (SB!UNIX:FD-SET SB!UNIX::FD SB!UNIX::FDS) ; --> SB!UNIX::FDS SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:ADDR SB!UNIX::FDS) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (DECLAIM (INLINE %EXTRACT-STAT-RESULTS)) ; x-compiling (DEFUN %EXTRACT-STAT-RESULTS ...) ; x-compiling (DEFUN UNIX-STAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFUN UNIX-STAT ; (SB!ALIEN:ADDR SB!UNIX::BUF) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN UNIX-LSTAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFUN UNIX-LSTAT ; (SB!ALIEN:ADDR SB!UNIX::BUF) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN UNIX-FSTAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFUN UNIX-FSTAT ; (SB!ALIEN:ADDR SB!UNIX::BUF) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN FD-TYPE ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (DEFINE-ALIEN-ROUTINE GET-TIMEZONE ...) ; x-compiling (DEFUN NANOSLEEP ...) ; x-compiling (DEFUN UNIX-GET-SECONDS-WEST ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (DEFCONSTANT ITIMER-REAL ...) ; x-compiling (DEFCONSTANT ITIMER-VIRTUAL ...) ; x-compiling (DEFCONSTANT ITIMER-PROF ...) ; x-compiling (DEFUN UNIX-GETITIMER ...) ; x-compiling (DEFUN UNIX-SETITIMER ...) ; x-compiling (DEFCONSTANT MICRO-SECONDS-PER-INTERNAL-TIME-UNIT ...) ; x-compiling (DECLAIM (INLINE GET-TIME-OF-DAY)) ; x-compiling (DEFUN GET-TIME-OF-DAY ...) ; x-compiling (DECLAIM (INLINE SYSTEM-INTERNAL-RUN-TIME ...)) ; x-compiling (DEFUN SYSTEM-REAL-TIME-VALUES ...) ; x-compiling (LET (# # ...) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 # # ; SB!UNIX::C-SEC 0 ; SB!UNIX::C-MSEC 0)))) ; ; caught STYLE-WARNING: ; 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: ; COLD-FSET GET-INTERNAL-REAL-TIME not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; x-compiling (DEFUN SYSTEM-INTERNAL-RUN-TIME ...) ; x-compiling (DEFUN UNIX-GETTIMEOFDAY ...) ; x-compiling (DECLAIM (INLINE UNIX-OPENDIR)) ; x-compiling (DEFUN UNIX-OPENDIR ...) ; x-compiling (DECLAIM (INLINE UNIX-READDIR)) ; x-compiling (DEFUN UNIX-READDIR ...) ; x-compiling (DECLAIM (INLINE UNIX-CLOSEDIR)) ; x-compiling (DEFUN UNIX-CLOSEDIR ...) ; x-compiling (DECLAIM (INLINE UNIX-DIRENT-NAME)) ; x-compiling (DEFUN UNIX-DIRENT-NAME ...) ; x-compiling (DEFCONSTANT WSTOPPED ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFINE-ALIEN-TYPE () ; (SB!ALIEN:DEFINE-ALIEN-TYPE NIL ; (SB!ALIEN:STRUCT SB!UNIX::WRAPPED_STAT ; (SB!UNIX:ST-DEV SB!UNIX::WST-DEV-T) ; (SB!UNIX::ST-INO SB!UNIX::WST-INO-T) ; (SB!UNIX:ST-MODE SB!UNIX::MODE-T) ; (SB!UNIX:ST-NLINK SB!UNIX::WST-NLINK-T) ; (SB!UNIX:ST-UID SB!UNIX::WST-UID-T) ; (SB!UNIX:ST-GID SB!UNIX::WST-GID-T) ; (SB!UNIX:ST-RDEV SB!UNIX::WST-DEV-T) ; (SB!UNIX:ST-SIZE SB!UNIX::WST-OFF-T) ; (SB!UNIX:ST-BLKSIZE SB!UNIX::WST-BLKSIZE-T) ; (SB!UNIX:ST-BLOCKS SB!UNIX::WST-BLKCNT-T) ...)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!UNIX::WRAPPED_STAT ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; (SB!ALIEN:DEFINE-ALIEN-TYPE NIL ; (SB!ALIEN:STRUCT SB!UNIX::RUSAGE ; (SB!UNIX:RU-UTIME ; (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL)) ; (SB!UNIX:RU-STIME ; (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL)) ; (SB!UNIX:RU-MAXRSS SB!ALIEN:LONG) ; (SB!UNIX:RU-IXRSS SB!ALIEN:LONG) ; (SB!UNIX:RU-IDRSS SB!ALIEN:LONG) ; (SB!UNIX:RU-ISRSS SB!ALIEN:LONG) ; (SB!UNIX:RU-MINFLT SB!ALIEN:LONG) ; (SB!UNIX:RU-MAJFLT SB!ALIEN:LONG) ; (SB!UNIX:RU-NSWAP SB!ALIEN:LONG) ; (SB!UNIX:RU-INBLOCK SB!ALIEN:LONG) ...)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!UNIX::RUSAGE ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; (SB!ALIEN:DEFINE-ALIEN-TYPE NIL ; (SB!ALIEN:STRUCT SB!UNIX:FD-SET ; (SB!UNIX::FDS-BITS (ARRAY SB!UNIX::FD-MASK 16)))) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!UNIX:FD-SET ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ; caught STYLE-WARNING: ; 3 more uses of undefined function SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFINE-ALIEN-TYPE UNIX-OFFSET ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!UNIX:UNIX-OFFSET SB!ALIEN:OFF-T) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!UNIX:UNIX-OFFSET ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; in: DEFINE-ALIEN-TYPE FD-MASK ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!UNIX::FD-MASK SB!ALIEN:UNSIGNED) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!UNIX::FD-MASK ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!INT:DEFINE-DEPRECATED-FUNCTION :EARLY ; "1.0.56.55" ; SB!UNIX:UNIX-EXIT ; SB!SYS:OS-EXIT ; (SB!UNIX::CODE) ; (SB!SYS:OS-EXIT SB!UNIX::CODE)) ; --> PROGN SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF COMPILER-MACRO-FUNCTION) #:NEW565 'SB!UNIX:UNIX-EXIT) ; ; caught STYLE-WARNING: ; undefined function: (SETF COMPILER-MACRO-FUNCTION) ; in: DEFUN NEWCHARSTAR-STRING ; (SB!ALIEN:CAST SB!UNIX::NEWCHARSTAR SB!ALIEN:C-STRING) ; --> SB!ALIEN-INTERNALS:%CAST ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE (SB!ALIEN:ALIEN-SAP SB!ALIEN:ALIEN) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; in: DEFINE-ALIEN-ROUTINE ("getenv" POSIX-GETENV) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("getenv" SB!EXT:POSIX-GETENV) ; SB!ALIEN:C-STRING ; "Return the \"value\" part of the environment string \"name=value\" which ; corresponds to NAME, or NIL if there is none." ; (SB!UNIX::NAME (SB!ALIEN:C-STRING :NOT-NULL T))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE ; (LET ((#:G14499 (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G14499 '#))) ; (SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS (#:G14499) ; (#) ; (SB!C:%ALIEN-FUNCALL (SB!ALIEN-INTERNALS:DEPORT FUNCTION '#) ; '# ; (SB!ALIEN-INTERNALS:DEPORT #:G14499 '#)))) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; in: DEFUN C-STRINGS->STRING-LIST ; (SB!ALIEN:DEREF SB!UNIX::C-STRINGS SB!UNIX::I) ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE ; (SB!SYS:SAP-REF-SAP SB!ALIEN::SAP (/ SB!ALIEN::OFFSET SB!VM:N-BYTE-BITS)) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; ; caught STYLE-WARNING: ; 4 more uses of undefined function SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFUN NOTE-DANGEROUS-WAIT ; (SB!DEBUG:BACKTRACE) ; ; caught STYLE-WARNING: ; undefined function: SB!DEBUG:BACKTRACE ; in: DEFUN UNIX-RENAME ; (SB!UNIX::VOID-SYSCALL ; ("rename" (SB!ALIEN:C-STRING :NOT-NULL T) (SB!ALIEN:C-STRING :NOT-NULL T)) ; SB!UNIX::NAME1 SB!UNIX::NAME2) ; --> SB!UNIX::SYSCALL LOCALLY LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:NATURALIZE LET ; ==> ; (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G14529 ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; in: DEFINE-ALIEN-ROUTINE ("getenv" POSIX-GETENV) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("getenv" SB!EXT:POSIX-GETENV) ; SB!ALIEN:C-STRING ; "Return the \"value\" part of the environment string \"name=value\" which ; corresponds to NAME, or NIL if there is none." ; (SB!UNIX::NAME (SB!ALIEN:C-STRING :NOT-NULL T))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:NATURALIZE LET ; ==> ; (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G14499 ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; in: DEFUN C-STRINGS->STRING-LIST ; (SB!ALIEN:DEREF SB!UNIX::C-STRINGS SB!UNIX::I) ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE ; (SB!SYS:SAP-REF-SAP SB!ALIEN::SAP (/ SB!ALIEN::OFFSET SB!VM:N-BYTE-BITS)) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; ; caught STYLE-WARNING: ; 13 more uses of undefined function SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFUN UNIX-RENAME ; (SB!UNIX::VOID-SYSCALL ; ("rename" (SB!ALIEN:C-STRING :NOT-NULL T) (SB!ALIEN:C-STRING :NOT-NULL T)) ; SB!UNIX::NAME1 SB!UNIX::NAME2) ; --> SB!UNIX::SYSCALL LOCALLY LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "rename" ; (FUNCTION SB!ALIEN:INT (SB!ALIEN:C-STRING :NOT-NULL T) ; (SB!ALIEN:C-STRING :NOT-NULL T))) ; SB!UNIX::NAME1 SB!UNIX::NAME2) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE ("getenv" POSIX-GETENV) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("getenv" SB!EXT:POSIX-GETENV) ; SB!ALIEN:C-STRING ; "Return the \"value\" part of the environment string \"name=value\" which ; corresponds to NAME, or NIL if there is none." ; (SB!UNIX::NAME (SB!ALIEN:C-STRING :NOT-NULL T))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!EXT:POSIX-GETENV SB!UNIX::NAME) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO SYSCALL ; (CONCATENATE 'STRING (SUBSEQ SB!UNIX::NAME 3)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 19 more uses of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix.lisp ; in: DEFUN UNIX-RENAME ; (SB!UNIX::VOID-SYSCALL ; ("rename" (SB!ALIEN:C-STRING :NOT-NULL T) (SB!ALIEN:C-STRING :NOT-NULL T)) ; SB!UNIX::NAME1 SB!UNIX::NAME2) ; --> SB!UNIX::SYSCALL LOCALLY LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:NATURALIZE LET ; ==> ; (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G14529 ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::NULL-ERROR ; in: DEFINE-ALIEN-ROUTINE ("getenv" POSIX-GETENV) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("getenv" SB!EXT:POSIX-GETENV) ; SB!ALIEN:C-STRING ; "Return the \"value\" part of the environment string \"name=value\" which ; corresponds to NAME, or NIL if there is none." ; (SB!UNIX::NAME (SB!ALIEN:C-STRING :NOT-NULL T))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:NATURALIZE LET ; ==> ; (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G14499 ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::NULL-ERROR ; in: DEFUN SB-MKSTEMP ; (SB!EXT:OCTETS-TO-STRING SB!UNIX::TEMPLATE-BUFFER) ; ; caught STYLE-WARNING: ; undefined function: OCTETS-TO-STRING ; (SB!EXT:STRING-TO-OCTETS SB!UNIX::TEMPLATE-STRING :NULL-TERMINATE T) ; ; caught STYLE-WARNING: ; undefined function: STRING-TO-OCTETS ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES SB!ALIEN::%DEFINE-ALIEN-TYPE (SETF COMPILER-MACRO-FUNCTION) SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE SB!DEBUG:BACKTRACE SB!ALIEN::C-STRING-EXTERNAL-FORMAT SB!ALIEN::NULL-ERROR OCTETS-TO-STRING STRING-TO-OCTETS ; caught 26 STYLE-WARNING conditions ; printed 43 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/unix.lisp-obj-tmp written ; compilation finished in 0:00:02.120 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/common-os.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!SYS") ; x-compiling (DEFVAR *SOFTWARE-VERSION* ...) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("posix_argv" *NATIVE-POSIX-ARGV*) ...) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("core_string" *NATIVE-CORE-STRING*) ...) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE OS-GET-RUNTIME-EXECUTABLE-PATH ...) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("saved_runtime_path" *NATIVE-SAVED-RUNTIME-PATH*) ...) ; x-compiling (DEFMACRO INIT-VAR-IGNORING-ERRORS ...) ; x-compiling (DEFUN OS-DEINIT ...) ; x-compiling (DEFUN OS-COLD-INIT-OR-REINIT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/common-os.lisp ; in: DEFUN OS-COLD-INIT-OR-REINIT ; (SB!ALIEN:DEREF SB!SYS::*NATIVE-POSIX-ARGV* SB!SYS::I) ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: DEFUN OS-DEINIT ; (SB!IMPL::%MAKUNBOUND 'SB!SYS:*MACHINE-VERSION*) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%MAKUNBOUND ; in: DEFUN OS-COLD-INIT-OR-REINIT ; (SB!ALIEN:CAST SB!SYS::*NATIVE-SAVED-RUNTIME-PATH* SB!ALIEN:C-STRING) ; --> SB!ALIEN-INTERNALS:%CAST ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE (SB!ALIEN:ALIEN-SAP SB!ALIEN:ALIEN) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; in: SB!ALIEN:DEFINE-ALIEN-ROUTINE OS-GET-RUNTIME-EXECUTABLE-PATH ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!SYS::OS-GET-RUNTIME-EXECUTABLE-PATH ; SB!ALIEN:C-STRING (SB!SYS::EXTERNAL-PATH BOOLEAN)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE ; (LET ((#:G15599 (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G15599 '#))) ; (SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS (#:G15599) ; (#) ; (SB!C:%ALIEN-FUNCALL (SB!ALIEN-INTERNALS:DEPORT FUNCTION '#) ; '# ; (SB!ALIEN-INTERNALS:DEPORT #:G15599 '#)))) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; in: DEFUN OS-COLD-INIT-OR-REINIT ; (SB!ALIEN:CAST SB!SYS::*NATIVE-SAVED-RUNTIME-PATH* SB!ALIEN:C-STRING) ; --> SB!ALIEN-INTERNALS:%CAST ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE (SB!ALIEN:ALIEN-SAP SB!ALIEN:ALIEN) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; in: SB!ALIEN:DEFINE-ALIEN-ROUTINE OS-GET-RUNTIME-EXECUTABLE-PATH ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!SYS::OS-GET-RUNTIME-EXECUTABLE-PATH ; SB!ALIEN:C-STRING (SB!SYS::EXTERNAL-PATH BOOLEAN)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE ; (LET ((#:G15599 (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G15599 '#))) ; (SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS (#:G15599) ; (#) ; (SB!C:%ALIEN-FUNCALL (SB!ALIEN-INTERNALS:DEPORT FUNCTION '#) ; '# ; (SB!ALIEN-INTERNALS:DEPORT #:G15599 '#)))) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; in: DEFUN OS-COLD-INIT-OR-REINIT ; (SB!INT:MAKE-TRIVIAL-DEFAULT-PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: MAKE-TRIVIAL-DEFAULT-PATHNAME ; in: DEFUN OS-DEINIT ; (SB!INT:MAKE-TRIVIAL-DEFAULT-PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: MAKE-TRIVIAL-DEFAULT-PATHNAME ; in: DEFUN OS-COLD-INIT-OR-REINIT ; (SB!EXT:NATIVE-PATHNAME SB!INT:*CORE-STRING*) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-PATHNAME ; (SB!EXT:PARSE-NATIVE-NAMESTRING (SB!UNIX:POSIX-GETCWD/)) ; ; caught STYLE-WARNING: ; undefined function: PARSE-NATIVE-NAMESTRING ; ; compilation unit finished ; Undefined functions: ; SB!IMPL::%MAKUNBOUND SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE SB!ALIEN::C-STRING-EXTERNAL-FORMAT MAKE-TRIVIAL-DEFAULT-PATHNAME NATIVE-PATHNAME PARSE-NATIVE-NAMESTRING ; caught 9 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/common-os.lisp-obj-tmp written ; compilation finished in 0:00:01.246 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bsd-os.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-ALIEN-ROUTINE ("sysctl" %SYSCTL) ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("sysctlbyname" %SYSCTLBYNAME) ...) ; x-compiling (DEFUN SYSCTL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bsd-os.lisp ; in: DEFUN SYSCTL ; (SB!ALIEN:CAST SB!IMPL::NAME-ARRAY (* SB!ALIEN:INT)) ; --> SB!ALIEN-INTERNALS:%CAST SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:ADDR SB!IMPL::RESULT) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:ADDR SB!IMPL::RESULT-LEN) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:CAST SB!IMPL::NAME-ARRAY (* SB!ALIEN:INT)) ; --> SB!ALIEN-INTERNALS:%CAST SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:ADDR SB!IMPL::RESULT-LEN) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:CAST SB!IMPL::NAME-ARRAY (* SB!ALIEN:INT)) ; --> SB!ALIEN-INTERNALS:%CAST SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!IMPL::%SYSCTL (SB!ALIEN:CAST SB!IMPL::NAME-ARRAY (* SB!ALIEN:INT)) ; SB!IMPL::NAME-LEN SB!IMPL::RESULT (SB!ALIEN:ADDR SB!IMPL::RESULT-LEN) NIL 0) ; --> SB!IMPL::RESULT SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:ADDR SB!IMPL::RESULT-LEN) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::NEWCHARSTAR-STRING SB!IMPL::RESULT) ; --> SB!IMPL::RESULT SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN SYSCTLBYNAME ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bsd-os.lisp ; in: DEFUN SYSCTLBYNAME ; (SB!ALIEN:ADDR SB!IMPL::RESULT) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:ADDR SB!IMPL::RESULT-LEN) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!IMPL::%SYSCTLBYNAME SB!IMPL::NAME SB!IMPL::RESULT ; (SB!ALIEN:ADDR SB!IMPL::RESULT-LEN) NIL 0) ; --> SB!IMPL::RESULT SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:ADDR SB!IMPL::RESULT-LEN) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::NEWCHARSTAR-STRING SB!IMPL::RESULT) ; --> SB!IMPL::RESULT SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN SOFTWARE-TYPE ...) ; x-compiling (DEFUN SOFTWARE-VERSION ...) ; x-compiling (DEFUN GET-SYSTEM-INFO ...) ; x-compiling (DEFUN GET-PAGE-SIZE ...) ; x-compiling (DEFUN GET-MACHINE-VERSION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bsd-os.lisp ; in: DEFINE-ALIEN-ROUTINE ("sysctlbyname" %SYSCTLBYNAME) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("sysctlbyname" SB!IMPL::%SYSCTLBYNAME) ; SB!ALIEN:INT (SB!IMPL::NAME SB!ALIEN:C-STRING) (SB!IMPL::OLDP (* T)) ; (SB!IMPL::OLDLENP (* SB!ALIEN:SIZE-T)) (SB!IMPL::NEWP (* T)) ; (SB!IMPL::NEWLEN SB!ALIEN:SIZE-T)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:NATURALIZE LET LET LET LET LET ; ==> ; (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G15696 ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; in: DEFUN SYSCTLBYNAME ; (SB!ALIEN:MAKE-ALIEN CHAR SB!IMPL::RESULT-LEN) ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) ; (SB!ALIEN-INTERNALS:%SAP-ALIEN ; (SB!ALIEN::%MAKE-ALIEN (* 1 (THE SB!INT:INDEX SB!IMPL::RESULT-LEN))) ; '#)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SYSCTL ; (SB!ALIEN:MAKE-ALIEN CHAR SB!IMPL::RESULT-LEN) ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) ; (SB!ALIEN-INTERNALS:%SAP-ALIEN ; (SB!ALIEN::%MAKE-ALIEN (* 1 (THE SB!INT:INDEX SB!IMPL::RESULT-LEN))) ; '#)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE ("sysctlbyname" %SYSCTLBYNAME) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("sysctlbyname" SB!IMPL::%SYSCTLBYNAME) ; SB!ALIEN:INT (SB!IMPL::NAME SB!ALIEN:C-STRING) (SB!IMPL::OLDP (* T)) ; (SB!IMPL::OLDLENP (* SB!ALIEN:SIZE-T)) (SB!IMPL::NEWP (* T)) ; (SB!IMPL::NEWLEN SB!ALIEN:SIZE-T)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!IMPL::%SYSCTLBYNAME SB!IMPL::NAME SB!IMPL::OLDP ; SB!IMPL::OLDLENP SB!IMPL::NEWP SB!IMPL::NEWLEN) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined function: ; SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; caught 4 STYLE-WARNING conditions ; printed 15 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/bsd-os.lisp-obj-tmp written ; compilation finished in 0:00:00.160 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/sc-offset.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFCONSTANT-EQX SC-OFFSET-SCN-BYTE ...) ; x-compiling (DEFCONSTANT-EQX SC-OFFSET-OFFSET-BYTE ...) ; x-compiling (DEF!TYPE SC-OFFSET ...) ; x-compiling (DEFMACRO MAKE-SC-OFFSET ...) ; x-compiling (DEFMACRO SC-OFFSET-SCN ...) ; x-compiling (DEFMACRO SC-OFFSET-OFFSET ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/sc-offset.lisp-obj-tmp written ; compilation finished in 0:00:00.038 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/x86-64-vm.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-ALIEN-TYPE OS-CONTEXT-T ...) ; x-compiling (DEFUN MACHINE-TYPE ...) ; x-compiling (DEFUN FIXUP-CODE-OBJECT ...) ; x-compiling (DECLAIM (INLINE CONTEXT-PC-ADDR)) ; x-compiling (DEFINE-ALIEN-ROUTINE ("os_context_pc_addr" CONTEXT-PC-ADDR) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/x86-64-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) (SB!VM::CONTEXT (* SB!SYS:OS-CONTEXT-T))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DECLAIM (INLINE CONTEXT-PC)) ; x-compiling (DEFUN CONTEXT-PC ...) ; x-compiling (DECLAIM (INLINE CONTEXT-REGISTER-ADDR)) ; x-compiling (DEFINE-ALIEN-ROUTINE ("os_context_register_addr" CONTEXT-REGISTER-ADDR) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/x86-64-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) (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 LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DECLAIM (INLINE CONTEXT-REGISTER)) ; x-compiling (DEFUN CONTEXT-REGISTER ...) ; x-compiling (DEFUN %SET-CONTEXT-REGISTER ...) ; x-compiling (DEFUN CONTEXT-FLOAT-REGISTER ...) ; x-compiling (DEFUN %SET-CONTEXT-FLOAT-REGISTER ...) ; x-compiling (DEFUN CONTEXT-FLOATING-POINT-MODES ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("arch_get_fp_modes" FLOATING-POINT-MODES) ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("arch_set_fp_modes" %FLOATING-POINT-MODES-SETTER) ...) ; x-compiling (DEFUN (SETF FLOATING-POINT-MODES) ...) ; x-compiling (DEFUN INTERNAL-ERROR-ARGS ...) ; x-compiling (DEFVAR *ALIEN-STACK-POINTER*) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/x86-64-vm.lisp ; in: DEFINE-ALIEN-TYPE OS-CONTEXT-T ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!SYS:OS-CONTEXT-T ; (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!VM::OS-CONTEXT-T-STRUCT ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!SYS:OS-CONTEXT-T ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; ; compilation unit finished ; Undefined functions: ; SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES SB!ALIEN::%DEFINE-ALIEN-TYPE ; caught 2 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/x86-64-vm.lisp-obj-tmp written ; compilation finished in 0:00:00.134 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-signal.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!UNIX") ; x-compiling (DEFMACRO WITH-INTERRUPT-BINDINGS ...) ; x-compiling (DEFMACRO NLX-PROTECT ...) ; x-compiling (DEFUN INVOKE-INTERRUPTION ...) ; x-compiling (DEFMACRO IN-INTERRUPTION ...) ; x-compiling (DECLAIM (INLINE UNIX-KILL)) ; x-compiling (DEFINE-ALIEN-ROUTINE ("kill" UNIX-KILL) ...) ; x-compiling (DECLAIM (INLINE UNIX-KILLPG)) ; x-compiling (DEFINE-ALIEN-ROUTINE ("killpg" UNIX-KILLPG) ...) ; x-compiling (DECLAIM (INLINE %UNBLOCK-DEFERRABLE-SIGNALS ...)) ; x-compiling (DEFINE-ALIEN-ROUTINE ("unblock_deferrable_signals" %UNBLOCK-DEFERRABLE-SIGNALS) ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("unblock_gc_signals" %UNBLOCK-GC-SIGNALS) ...) ; x-compiling (DEFUN UNBLOCK-DEFERRABLE-SIGNALS ...) ; x-compiling (DEFUN UNBLOCK-GC-SIGNALS ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("install_handler" INSTALL-HANDLER) ...) ; x-compiling (DEFUN ENABLE-INTERRUPT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-signal.lisp ; in: DEFUN ENABLE-INTERRUPT ; (THE (OR FUNCTION FIXNUM) (SB!KERNEL:MAKE-LISP-OBJ SB!UNIX::RESULT)) ; ; note: type assertion too complex to check: ; (VALUES (OR FUNCTION FIXNUM) &REST T). ; x-compiling (DEFUN DEFAULT-INTERRUPT ...) ; x-compiling (DEFUN IGNORE-INTERRUPT ...) ; x-compiling (DEFINE-SIGNAL-HANDLER SIGILL-HANDLER ...) ; x-compiling (DEFINE-SIGNAL-HANDLER SIGEMT-HANDLER ...) ; x-compiling (DEFINE-SIGNAL-HANDLER SIGBUS-HANDLER ...) ; x-compiling (DEFINE-SIGNAL-HANDLER SIGSYS-HANDLER ...) ; x-compiling (DEFUN SIGINT-HANDLER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-signal.lisp ; in: DEFUN SIGINT-HANDLER ; (MAKE-CONDITION 'SB!SYS:INTERACTIVE-INTERRUPT :CONTEXT SB!UNIX::CONTEXT ; :ADDRESS (SB!SYS:SAP-INT (SB!VM:CONTEXT-PC SB!UNIX::CONTEXT))) ; --> SB!UNIX::CONTEXT SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN SIGALRM-HANDLER ...) ; x-compiling (DEFUN SIGTERM-HANDLER ...) ; x-compiling (DEFUN SIGPIPE-HANDLER ...) ; x-compiling (DEFUN SIGCHLD-HANDLER ...) ; x-compiling (DEFUN SB!KERNEL:SIGNAL-COLD-INIT-OR-REINIT ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("siginfo_code" SIGINFO-CODE) ...) ; x-compiling (DEFUN RECEIVE-PENDING-INTERRUPT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-signal.lisp ; in: DEFUN INVOKE-INTERRUPTION ; (SB!THREAD::WITHOUT-THREAD-WAITING-FOR (:ALREADY-WITHOUT-INTERRUPTS T) ; (SB!SYS:ALLOW-WITH-INTERRUPTS ; (SB!UNIX::NLX-PROTECT (FUNCALL FUNCTION) ; (WHEN SB!UNIX::*UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ; (SB!UNIX::UNBLOCK-DEFERRABLE-SIGNALS))))) ; --> LET* FLET IF PROGN UNWIND-PROTECT FLET BLOCK WHEN IF PROGN SETF LET* ; --> MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!THREAD::THREAD-WAITING-FOR) #:NEW67 #:THREAD3468) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!THREAD::THREAD-WAITING-FOR) ; in: DEFUN SIGTERM-HANDLER ; (SB!EXT:EXIT) ; ; caught STYLE-WARNING: ; undefined function: EXIT ; in: DEFUN SIGINT-HANDLER ; (SB!THREAD::FOREGROUND-THREAD) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::FOREGROUND-THREAD ; in: DEFUN SIGCHLD-HANDLER ; (SB!IMPL::GET-PROCESSES-STATUS-CHANGES) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::GET-PROCESSES-STATUS-CHANGES ; in: DEFUN SIGINT-HANDLER ; (SB!THREAD:INTERRUPT-THREAD (SB!THREAD::FOREGROUND-THREAD) ; #'SB!UNIX::INTERRUPT-IT) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:INTERRUPT-THREAD ; in: DEFUN ENABLE-INTERRUPT ; (SB!KERNEL:MAKE-LISP-OBJ SB!UNIX::RESULT) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:MAKE-LISP-OBJ ; in: DEFUN SIGALRM-HANDLER ; (SB!IMPL::RUN-EXPIRED-TIMERS) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::RUN-EXPIRED-TIMERS ; in: DEFUN SIGPIPE-HANDLER ; (SB!THREAD::RUN-INTERRUPTION) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::RUN-INTERRUPTION ; in: DEFUN SB!KERNEL:SIGNAL-COLD-INIT-OR-REINIT ; #'SB!VM:SIGFPE-HANDLER ; ; caught STYLE-WARNING: ; undefined function: SB!VM:SIGFPE-HANDLER ; in: DEFUN INVOKE-INTERRUPTION ; (SB!THREAD::WITHOUT-THREAD-WAITING-FOR (:ALREADY-WITHOUT-INTERRUPTS T) ; (SB!SYS:ALLOW-WITH-INTERRUPTS ; (SB!UNIX::NLX-PROTECT (FUNCALL FUNCTION) ; (WHEN SB!UNIX::*UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ; (SB!UNIX::UNBLOCK-DEFERRABLE-SIGNALS))))) ; --> LET* PROGN ; ==> ; (SB!THREAD::THREAD-WAITING-FOR #:THREAD34) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::THREAD-WAITING-FOR ; ; compilation unit finished ; Undefined functions: ; (SETF SB!THREAD::THREAD-WAITING-FOR) EXIT SB!THREAD::FOREGROUND-THREAD SB!IMPL::GET-PROCESSES-STATUS-CHANGES SB!THREAD:INTERRUPT-THREAD SB!KERNEL:MAKE-LISP-OBJ SB!IMPL::RUN-EXPIRED-TIMERS SB!THREAD::RUN-INTERRUPTION SB!VM:SIGFPE-HANDLER SB!THREAD::THREAD-WAITING-FOR ; caught 10 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-signal.lisp-obj-tmp written ; compilation finished in 0:00:00.189 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/symbol.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (MAYBE-INLINE GET ...)) ; x-compiling (DEFUN SYMBOL-VALUE ...) ; x-compiling (DEFINE-COMPILER-MACRO SYMBOL-VALUE ...) ; x-compiling (DEFUN BOUNDP ...) ; x-compiling (DEFUN SET ...) ; x-compiling (DEFUN %SET-SYMBOL-VALUE ...) ; x-compiling (DEFUN SYMBOL-GLOBAL-VALUE ...) ; x-compiling (DEFUN SET-SYMBOL-GLOBAL-VALUE ...) ; x-compiling (DECLAIM (INLINE %MAKUNBOUND)) ; x-compiling (DEFUN %MAKUNBOUND ...) ; x-compiling (DEFUN MAKUNBOUND ...) ; x-compiling (DEFUN SYMBOL-HASH ...) ; x-compiling (DEFUN SYMBOL-FUNCTION ...) ; x-compiling (DEFUN (SETF SYMBOL-FUNCTION) ...) ; x-compiling (DEFUN SYMBOL-INFO ...) ; x-compiling (DEFUN (SETF SYMBOL-INFO) ...) ; x-compiling (DEFUN UPDATE-SYMBOL-INFO ...) ; x-compiling (DEFUN SYMBOL-PLIST ...) ; x-compiling (DECLAIM (FTYPE # ...) ...) ; x-compiling (DEFUN %ENSURE-PLIST-HOLDER ...) ; x-compiling (DECLAIM (INLINE %COMPARE-AND-SWAP-SYMBOL-PLIST ...)) ; x-compiling (DEFUN %COMPARE-AND-SWAP-SYMBOL-PLIST ...) ; x-compiling (DEFUN %%COMPARE-AND-SWAP-SYMBOL-PLIST ...) ; x-compiling (DEFUN %SET-SYMBOL-PLIST ...) ; x-compiling (DEFUN %%SET-SYMBOL-PLIST ...) ; x-compiling (DEFUN SYMBOL-NAME ...) ; x-compiling (DEFUN SYMBOL-PACKAGE ...) ; x-compiling (DEFUN %SET-SYMBOL-PACKAGE ...) ; x-compiling (DEFUN MAKE-SYMBOL ...) ; x-compiling (DEFUN GET ...) ; x-compiling (DEFUN GET3 ...) ; x-compiling (DEFUN %PUT ...) ; x-compiling (DEFUN REMPROP ...) ; x-compiling (DEFUN GETF ...) ; x-compiling (DEFUN %PUTF ...) ; x-compiling (DEFUN GET-PROPERTIES ...) ; x-compiling (DEFUN COPY-SYMBOL ...) ; x-compiling (DECLAIM (SPECIAL *KEYWORD-PACKAGE*)) ; x-compiling (DEFUN KEYWORDP ...) ; x-compiling (DEFUN %MAKE-SYMBOL-NAME ...) ; x-compiling (DEFVAR *GENSYM-COUNTER* ...) ; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; x-compiling (DEFUN GENSYM ...) ; x-compiling (DEFVAR *GENTEMP-COUNTER* ...) ; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; x-compiling (DEFUN GENTEMP ...) ; x-compiling (DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/symbol.lisp ; in: DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ; (SB!KERNEL::%%TYPEP SB!IMPL::NEW-VALUE TYPE NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%%TYPEP ; in: DEFUN %MAKE-SYMBOL-NAME ; (SB!IMPL::%OUTPUT-INTEGER-IN-BASE SB!IMPL::COUNTER 10 SB!IMPL::S) ; ; caught STYLE-WARNING: ; undefined function: %OUTPUT-INTEGER-IN-BASE ; in: DEFINE-COMPILER-MACRO SYMBOL-VALUE ; (SB!INT:CONSTANT-FORM-VALUE SYMBOL SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-FORM-VALUE ; in: DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ; (SB!INT:INFO :VARIABLE :TYPE SYMBOL) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SYMBOL 16) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; in: DEFUN MAKUNBOUND ; (SB!INT:INFO :VARIABLE :ALWAYS-BOUND SYMBOL) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SYMBOL 14) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; in: DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ; (SB!INT:INFO :VARIABLE :TYPE SYMBOL) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN MAKUNBOUND ; (SB!INT:INFO :VARIABLE :ALWAYS-BOUND SYMBOL) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN %MAKE-SYMBOL-NAME ; (DEFUN SB!IMPL::%MAKE-SYMBOL-NAME (SB!IMPL::PREFIX SB!IMPL::COUNTER) ; (WITH-OUTPUT-TO-STRING (SB!IMPL::S) ; (WRITE-STRING SB!IMPL::PREFIX SB!IMPL::S) ; (SB!IMPL::%OUTPUT-INTEGER-IN-BASE SB!IMPL::COUNTER 10 SB!IMPL::S))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::%MAKE-SYMBOL-NAME ; (LAMBDA (SB!IMPL::PREFIX SB!IMPL::COUNTER) ; (BLOCK SB!IMPL::%MAKE-SYMBOL-NAME ; (WITH-OUTPUT-TO-STRING (SB!IMPL::S) ; (WRITE-STRING SB!IMPL::PREFIX SB!IMPL::S) ; (SB!IMPL::%OUTPUT-INTEGER-IN-BASE SB!IMPL::COUNTER 10 ; SB!IMPL::S))))) ; ; caught STYLE-WARNING: ; undefined type: SB!C::STRING-OUTPUT-STREAM ; in: DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ; (SB!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; ; compilation unit finished ; Undefined type: ; SB!C::STRING-OUTPUT-STREAM ; Undefined functions: ; SB!KERNEL::%%TYPEP %OUTPUT-INTEGER-IN-BASE CONSTANT-FORM-VALUE SB!C::GET-INFO-VALUE INFO TYPE-SPECIFIER ; caught 9 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/symbol.lisp-obj-tmp written ; compilation finished in 0:00:00.169 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!BIGNUM") ; x-compiling (DEFCONSTANT DIGIT-SIZE ...) ; x-compiling (DEFCONSTANT MAXIMUM-BIGNUM-LENGTH ...) ; x-compiling (DEFCONSTANT ALL-ONES-DIGIT ...) ; x-compiling (DEFUN %ALLOCATE-BIGNUM ...) ; x-compiling (DEFUN %BIGNUM-LENGTH ...) ; x-compiling (DEFUN %BIGNUM-REF ...) ; x-compiling (DEFUN %BIGNUM-SET ...) ; x-compiling (DEFUN %DIGIT-0-OR-PLUSP ...) ; x-compiling (DECLAIM (INLINE %BIGNUM-0-OR-PLUSP)) ; x-compiling (DEFUN %BIGNUM-0-OR-PLUSP ...) ; x-compiling (DEFUN %ADD-WITH-CARRY ...) ; x-compiling (DEFUN %SUBTRACT-WITH-BORROW ...) ; x-compiling (DEFUN %MULTIPLY ...) ; x-compiling (DEFUN %MULTIPLY-AND-ADD ...) ; x-compiling (DEFUN %LOGNOT ...) ; x-compiling (DECLAIM (INLINE %LOGAND ...)) ; x-compiling (DEFUN %LOGAND ...) ; x-compiling (DEFUN %LOGIOR ...) ; x-compiling (DEFUN %LOGXOR ...) ; x-compiling (DEFUN %FIXNUM-TO-DIGIT ...) ; x-compiling (DEFUN %BIGFLOOR ...) ; x-compiling (DEFUN %FIXNUM-DIGIT-WITH-CORRECT-SIGN ...) ; x-compiling (DEFUN %ASHR ...) ; x-compiling (DEFUN %ASHL ...) ; x-compiling (DEFUN %DIGIT-LOGICAL-SHIFT-RIGHT ...) ; x-compiling (DEFUN %BIGNUM-SET-LENGTH ...) ; x-compiling (DECLAIM (INLINE %SIGN-DIGIT)) ; x-compiling (DEFUN %SIGN-DIGIT ...) ; x-compiling (DECLAIM (INLINE %DIGIT-COMPARE ...)) ; x-compiling (DEFUN %DIGIT-COMPARE ...) ; x-compiling (DEFUN %DIGIT-GREATER ...) ; x-compiling (DECLAIM (OPTIMIZE # ...)) ; x-compiling (DEFUN ADD-BIGNUMS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN ADD-BIGNUMS ; (SB!BIGNUM::FINISH-ADD SB!BIGNUM::A SB!BIGNUM::RES SB!BIGNUM::CARRY ; (SB!BIGNUM::%SIGN-DIGIT SB!BIGNUM::B SB!BIGNUM::LEN-B) SB!BIGNUM::LEN-B ; SB!BIGNUM::LEN-A) ; ; note: doing unsigned word to integer coercion (cost 20) ; x-compiling (DEFUN FINISH-ADD ...) ; x-compiling (DEFUN SUBTRACT-BIGNUM ...) ; x-compiling (DEFUN SUBTRACT-BIGNUM-BUFFERS-WITH-LEN ...) ; x-compiling (DEFUN SUBTRACT-BIGNUM-BUFFERS ...) ; x-compiling (DEFUN MULTIPLY-BIGNUMS ...) ; x-compiling (DEFUN MULTIPLY-BIGNUM-AND-FIXNUM ...) ; x-compiling (DEFUN MULTIPLY-FIXNUMS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN MULTIPLY-FIXNUMS ; (DEFUN SB!BIGNUM:MULTIPLY-FIXNUMS (SB!BIGNUM::A SB!BIGNUM::B) ; (DECLARE (FIXNUM SB!BIGNUM::A SB!BIGNUM::B)) ; (LET* ((SB!BIGNUM::A-MINUSP (MINUSP SB!BIGNUM::A)) ; (SB!BIGNUM::B-MINUSP (MINUSP SB!BIGNUM::B))) ; (MULTIPLE-VALUE-BIND (SB!BIGNUM::HIGH SB!BIGNUM::LOW) ; (SB!BIGNUM:%MULTIPLY ; (IF SB!BIGNUM::A-MINUSP ; # ; SB!BIGNUM::A) ; (IF SB!BIGNUM::B-MINUSP ; # ; SB!BIGNUM::B)) ; (DECLARE ; (TYPE SB!BIGNUM:BIGNUM-ELEMENT-TYPE SB!BIGNUM::HIGH SB!BIGNUM::LOW)) ; (IF (AND # #) ; (LET # ; #) ; (LET # ; # ; # ; # ; #))))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!BIGNUM:MULTIPLY-FIXNUMS ; (LAMBDA (SB!BIGNUM::A SB!BIGNUM::B) ; (DECLARE (FIXNUM SB!BIGNUM::A SB!BIGNUM::B)) ; (BLOCK SB!BIGNUM:MULTIPLY-FIXNUMS ; (LET* (# #) ; (MULTIPLE-VALUE-BIND # # # #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; x-compiling (SB-XC:DEFMACRO GCD-ASSERT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: SB-XC:DEFMACRO GCD-ASSERT ; 'ASSERT ; ; note: deleting unreachable code ; x-compiling (SB-XC:DEFMACRO MODULARLY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BIGNUM-FACTORS-OF-TWO ...) ; x-compiling (DECLAIM (INLINE MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER)) ; x-compiling (DEFUN MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER ; (MINUSP SB!BIGNUM::SMALLNUM) ; ==> ; (< SB!BIGNUM::SMALLNUM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- SB!BIGNUM::SMALLNUM) ; ==> ; (SB!KERNEL:%NEGATE (THE NUMBER SB!BIGNUM::SMALLNUM)) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (MINUSP SB!BIGNUM::SMALLNUM) ; ==> ; (< SB!BIGNUM::SMALLNUM 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (- SB!BIGNUM::SMALLNUM) ; ==> ; (SB!KERNEL:%NEGATE (THE NUMBER SB!BIGNUM::SMALLNUM)) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST T). ; x-compiling (DECLAIM (INLINE BMOD)) ; x-compiling (DEFUN BMOD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN BMOD ; (DEFUN SB!BIGNUM::BMOD (SB!BIGNUM::U SB!BIGNUM::V) ; (LET ((SB!BIGNUM::UD (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::U 0)) ; (SB!BIGNUM::VD (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::V 0)) ; (SB!BIGNUM::UMASK 0) ; (SB!BIGNUM::IMASK 1) ; (SB!BIGNUM::M 0)) ; (DECLARE ; (TYPE (UNSIGNED-BYTE 64) SB!BIGNUM::UD SB!BIGNUM::VD SB!BIGNUM::UMASK ; SB!BIGNUM::IMASK SB!BIGNUM::M)) ; (DOTIMES (SB!BIGNUM::I SB!BIGNUM::DIGIT-SIZE) ; (SETF SB!BIGNUM::UMASK #) ; (WHEN (LOGTEST SB!BIGNUM::UD SB!BIGNUM::UMASK) (SETF #) (SETF #)) ; (SETF SB!BIGNUM::IMASK #) ; (SETF SB!BIGNUM::VD #)) ; SB!BIGNUM::M)) ; --> PROGN ; ==> ; (SB!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 "" ; x-compiling (DEFUN DMOD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN DMOD ; (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN) ; SB!BIGNUM::DIGIT-SIZE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN) ; SB!BIGNUM::DIGIT-SIZE)) ; ; note: unable to ; 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. ; (+ 1 ; (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V ; SB!BIGNUM::V-LEN))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN) ; SB!BIGNUM::DIGIT-SIZE) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN) ; SB!BIGNUM::DIGIT-SIZE)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (+ 1 ; (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V ; SB!BIGNUM::V-LEN))) ; ; 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) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (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), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; etc. ; x-compiling (DEFCONSTANT LOWER-ONES-DIGIT ...) ; x-compiling (DEFUN REDUCED-RATIO-MOD ...) ; x-compiling (DEFUN COPY-BIGNUM ...) ; x-compiling (DECLAIM (INLINE MAKE-SMALL-BIGNUM)) ; x-compiling (DEFUN MAKE-SMALL-BIGNUM ...) ; x-compiling (DEFPARAMETER *ACCELERATED-GCD-CUTOFF* ...) ; x-compiling (DEFUN BIGNUM-GCD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN BIGNUM-GCD ; (ZEROP SB!BIGNUM::V1) ; ==> ; (= SB!BIGNUM::V1 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to 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) ; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB!C::DIVISOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR DOUBLE-FLOAT SINGLE-FLOAT INTEGER). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; --> LET IF AND IF NOT IF ZEROP ; ==> ; (= REM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET IF ; ==> ; (+ REM SB!C::DIVISOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; The second argument is a REAL, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; --> LET IF AND IF AND THE IF MINUSP ; ==> ; (< SB!C::DIVISOR 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LET IF AND IF AND THE IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LET IF AND IF AND THE IF MINUSP ; ==> ; (< NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (+ 16 (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 FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (+ 16 ; (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 SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; (MOD SB!BIGNUM::V1 SB!BIGNUM::U1) ; --> LET IF AND IF AND THE IF MINUSP ; ==> ; (< SB!C::DIVISOR 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ==> ; (< NUMBER 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> LET IF AND IF AND THE IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> LET IF ; ==> ; (+ REM SB!C::DIVISOR) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; (< SB!BIGNUM::U-LEN SB!BIGNUM::*ACCELERATED-GCD-CUTOFF*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (+ 16 (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (+ 16 ; (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V ; SB!BIGNUM::V-LEN))) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; (ASH ; (SB!BIGNUM::BIGNUM-MOD-GCD SB!BIGNUM::U1 ; (IF (SB!INT:FIXNUMP SB!BIGNUM::N) ; (SB!BIGNUM:MAKE-SMALL-BIGNUM SB!BIGNUM::N) ; SB!BIGNUM::N)) ; SB!BIGNUM::FACTORS-OF-TWO) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; x-compiling (DEFUN BIGNUM-MOD-GCD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN BIGNUM-MOD-GCD ; (MOD SB!BIGNUM::A SB!BIGNUM::B) ; --> LET IF AND IF NOT IF ZEROP ; ==> ; (= REM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET IF ; ==> ; (+ REM SB!C::DIVISOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LET IF AND IF AND THE IF MINUSP ; ==> ; (< SB!C::DIVISOR 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline (unsigned-byte 64) comparison (cost 5) because: ; The first argument is a BIGNUM, not a (UNSIGNED-BYTE 64). ; unable to do inline (signed-byte 64) comparison (cost 5) because: ; The first argument is a BIGNUM, not a (SIGNED-BYTE 64). ; ==> ; (< NUMBER 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline (unsigned-byte 64) comparison (cost 5) because: ; The first argument is a BIGNUM, not a (UNSIGNED-BYTE 64). ; unable to do inline (signed-byte 64) comparison (cost 5) because: ; The first argument is a BIGNUM, not a (SIGNED-BYTE 64). ; --> LET IF AND IF AND THE IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline (unsigned-byte 64) comparison (cost 5) because: ; The first argument is a BIGNUM, not a (UNSIGNED-BYTE 64). ; unable to do inline (signed-byte 64) comparison (cost 5) because: ; The first argument is a BIGNUM, not a (SIGNED-BYTE 64). ; --> LET IF ; ==> ; (+ REM SB!C::DIVISOR) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a BIGNUM, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a BIGNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; x-compiling (DEFUN BIGNUM-BINARY-GCD ...) ; x-compiling (DEFUN BIGNUM-GCD-ORDER-AND-SUBTRACT ...) ; x-compiling (DEFUN MAKE-GCD-BIGNUM-ODD ...) ; x-compiling (DEFUN NEGATE-BIGNUM ...) ; x-compiling (DEFUN NEGATE-BIGNUM-BUFFER-IN-PLACE ...) ; x-compiling (DEFUN NEGATE-BIGNUM-IN-PLACE ...) ; x-compiling (DEFUN BIGNUM-ABS-BUFFER ...) ; x-compiling (DEFUN BIGNUM-ASHIFT-RIGHT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN BIGNUM-ASHIFT-RIGHT ; (ERROR "bignum overflow: can't shift right by ~S" COUNT) ; ==> ; "bignum overflow: can't shift right by ~S" ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DEFUN BIGNUM-ASHIFT-RIGHT-DIGITS ...) ; x-compiling (DEFUN BIGNUM-BUFFER-ASHIFT-RIGHT ...) ; x-compiling (DEFUN BIGNUM-ASHIFT-LEFT ...) ; x-compiling (DEFUN BIGNUM-ASHIFT-LEFT-DIGITS ...) ; x-compiling (DEFUN BIGNUM-ASHIFT-LEFT-UNALIGNED ...) ; x-compiling (DEFUN BIGNUM-PLUS-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BIGNUM-COMPARE ...) ; x-compiling (DEFUN SINGLE-FLOAT-FROM-BITS ...) ; x-compiling (DEFUN DOUBLE-FLOAT-FROM-BITS ...) ; x-compiling (DEFUN BIGNUM-TO-FLOAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN BIGNUM-TO-FLOAT ; (> EXP MAX) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (INTEGER-LENGTH SB!BIGNUM::ROUNDED) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (+ 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 64) arithmetic (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (> EXP MAX) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; x-compiling (DEFUN BIGNUM-BUFFER-INTEGER-LENGTH ...) ; x-compiling (DEFUN BIGNUM-INTEGER-LENGTH ...) ; x-compiling (DEFUN BIGNUM-LOGBITP ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN BIGNUM-LOGBITP ; (FLOOR SB!INT:INDEX SB!BIGNUM::DIGIT-SIZE) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB!C::DIVISOR) ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP ; ==> ; (= REM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES ; ==> ; (+ REM SB!C::DIVISOR) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF AND THE IF ; --> MINUSP ; ==> ; (< NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; 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. ; --> 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. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES ; ==> ; (+ REM SB!C::DIVISOR) ; ; 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 NUMBER &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 NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (>= 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. ; x-compiling (DEFUN BIGNUM-LOGCOUNT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN BIGNUM-LOGCOUNT ; (- (* LENGTH SB!BIGNUM::DIGIT-SIZE) SB!BIGNUM::RESULT) ; ; note: doing signed word to integer coercion (cost 20) to "", for: ; the first result of inline (signed-byte 64) arithmetic ; x-compiling (DEFUN BIGNUM-LOGICAL-NOT ...) ; x-compiling (DEFUN BIGNUM-LOGICAL-AND ...) ; x-compiling (DEFUN LOGAND-SHORTER-POSITIVE ...) ; x-compiling (DEFUN LOGAND-SHORTER-NEGATIVE ...) ; x-compiling (DEFUN BIGNUM-LOGICAL-IOR ...) ; x-compiling (DEFUN LOGIOR-SHORTER-POSITIVE ...) ; x-compiling (DEFUN LOGIOR-SHORTER-NEGATIVE ...) ; x-compiling (DEFUN BIGNUM-LOGICAL-XOR ...) ; x-compiling (DEFUN BIGNUM-LOGICAL-XOR-AUX ...) ; x-compiling (DEFUN BIGNUM-TRUNCATE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN BIGNUM-TRUNCATE ; (VALUES ; (SB!BIGNUM::SHIFT-RIGHT-UNALIGNED SB!BIGNUM::X 0 SB!BIGNUM::N-BITS ; SB!BIGNUM::LEN-X ; ((= SB!BIGNUM::J SB!BIGNUM::RES-LEN-1) (SETF # #) SB!BIGNUM::RES) ; SB!BIGNUM::RES) ; (LOGAND (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::X 0) (1- SB!BIGNUM::Y))) ; ; note: doing unsigned word to integer coercion (cost 20) ; x-compiling (DECLAIM (MAYBE-INLINE %NORMALIZE-BIGNUM-BUFFER)) ; x-compiling (DEFUN %NORMALIZE-BIGNUM-BUFFER ...) ; x-compiling (DEFUN %NORMALIZE-BIGNUM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN %NORMALIZE-BIGNUM ; (SB!BIGNUM:%FIXNUM-DIGIT-WITH-CORRECT-SIGN SB!BIGNUM::DIGIT) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of SIGNIFY-DIGIT ; x-compiling (DEFUN %MOSTLY-NORMALIZE-BIGNUM ...) ; x-compiling (DEFUN SXHASH-BIGNUM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum.lisp ; in: DEFUN SXHASH-BIGNUM ; (SB!INT:MIXF SB!BIGNUM::RESULT ; (LOGAND MOST-POSITIVE-FIXNUM (LOGXOR SB!BIGNUM::XI (ASH SB!BIGNUM::XI -7)))) ; --> LET* SB!INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; in: DEFUN BIGNUM-TO-FLOAT ; (SB!KERNEL:FLOAT-FORMAT-DIGITS FORMAT) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-FORMAT-DIGITS ; ; compilation unit finished ; Undefined function: ; FLOAT-FORMAT-DIGITS ; caught 1 STYLE-WARNING condition ; printed 92 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/bignum.lisp-obj-tmp written ; compilation finished in 0:00:00.576 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN PARSE-NUMBER-DISPATCH ...) ; x-compiling (DEFPARAMETER *TYPE-TEST-ORDERING* ...) ; x-compiling (DEFUN TYPE-TEST-ORDER ...) ; x-compiling (DEFUN GENERATE-NUMBER-DISPATCH ...) ; x-compiling (DEFMACRO NUMBER-DISPATCH ...) ; x-compiling (DECLAIM (INLINE CANONICAL-COMPLEX)) ; x-compiling (DEFUN CANONICAL-COMPLEX ...) ; x-compiling (DECLAIM (INLINE BUILD-RATIO)) ; x-compiling (DEFUN BUILD-RATIO ...) ; x-compiling (DECLAIM (INLINE MAYBE-TRUNCATE)) ; x-compiling (DEFUN MAYBE-TRUNCATE ...) ; x-compiling (DEFUN COMPLEX ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN COMPLEX ; (SB!KERNEL::CANONICAL-COMPLEX REALPART IMAGPART) ; --> BLOCK IF COND IF COND IF PROGN SB!EXT:TRULY-THE COMPLEX ; ==> ; IMAGPART ; ; note: deleting unreachable code ; --> BLOCK IF COND IF PROGN SB!EXT:TRULY-THE COMPLEX ; ==> ; IMAGPART ; ; note: deleting unreachable code ; ==> ; REALPART ; ; note: deleting unreachable code ; --> BLOCK IF COND IF COND IF PROGN SB!EXT:TRULY-THE COMPLEX ; ==> ; REALPART ; ; note: deleting unreachable code ; x-compiling (DEFUN REALPART ...) ; x-compiling (DEFUN IMAGPART ...) ; x-compiling (DEFUN CONJUGATE ...) ; x-compiling (DEFUN SIGNUM ...) ; x-compiling (DEFUN NUMERATOR ...) ; x-compiling (DEFUN DENOMINATOR ...) ; x-compiling (DEFINE-ARITH + ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFINE-ARITH + ; (SB!KERNEL::DEFINE-ARITH + 0 ; "Return the sum of its arguments. With no args, returns 0.") ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK IF DO BLOCK LET NTH SB!C::%REST-REF ; --> AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a NUMBER: ; NIL ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK IF DO BLOCK LET TAGBODY PSETQ PSETF ; --> LET* MULTIPLE-VALUE-BIND LET + NTH SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a NUMBER: ; NIL ; x-compiling (DEFINE-ARITH * ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFINE-ARITH * ; (SB!KERNEL::DEFINE-ARITH * 1 ; "Return the product of its arguments. With no args, returns 1.") ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK IF DO BLOCK LET NTH SB!C::%REST-REF ; --> AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a NUMBER: ; NIL ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK IF DO BLOCK LET TAGBODY PSETQ PSETF ; --> LET* MULTIPLE-VALUE-BIND LET * NTH SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a NUMBER: ; NIL ; x-compiling (DEFUN - ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN - ; (NTH SB!KERNEL::I SB!KERNEL::MORE-NUMBERS) ; --> SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a NUMBER: ; NIL ; x-compiling (DEFUN / ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN / ; (NTH SB!KERNEL::I SB!KERNEL::MORE-NUMBERS) ; --> SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a NUMBER: ; NIL ; x-compiling (DEFUN 1+ ...) ; x-compiling (DEFUN 1- ...) ; x-compiling (TWO-ARG-+/- TWO-ARG-+ ...) ; x-compiling (TWO-ARG-+/- TWO-ARG-- ...) ; x-compiling (DEFUN TWO-ARG-* ...) ; x-compiling (DEFUN INTEGER-/-INTEGER ...) ; x-compiling (DEFUN TWO-ARG-/ ...) ; x-compiling (DEFUN %NEGATE ...) ; x-compiling (DEFUN TRUNCATE ...) ; x-compiling (DEFUN %MULTIPLY-HIGH ...) ; x-compiling (DEFUN FLOOR ...) ; x-compiling (DEFUN CEILING ...) ; x-compiling (DEFUN REM ...) ; x-compiling (DEFUN MOD ...) ; x-compiling (DEFUN ROUND ...) ; x-compiling (DEFMACRO !DEFINE-FLOAT-ROUNDING-FUNCTION ...) ; x-compiling (DECLAIM (INLINE FCEILING ...)) ; x-compiling (DEFUN FTRUNCATE ...) ; x-compiling (DEFUN FFLOOR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN FFLOOR ; (FTRUNCATE NUMBER SB!KERNEL::DIVISOR) ; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR ; --> LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR ; ==> ; SB!KERNEL::DIVISOR ; ; note: deleting unreachable code ; x-compiling (DEFUN FCEILING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN FCEILING ; (FTRUNCATE NUMBER SB!KERNEL::DIVISOR) ; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR ; --> LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR ; ==> ; SB!KERNEL::DIVISOR ; ; note: deleting unreachable code ; x-compiling (DEFUN FROUND ...) ; x-compiling (DEFUN = ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN = ; (NTH SB!KERNEL::I SB!KERNEL::MORE-NUMBERS) ; --> SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a NUMBER: ; NIL ; x-compiling (DEFUN /= ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN /= ; (NTH SB!KERNEL::J SB!KERNEL::MORE-NUMBERS) ; --> SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a NUMBER: ; NIL ; x-compiling (DEF < ...) ; x-compiling (DEF > ...) ; x-compiling (DEF <= ...) ; x-compiling (DEF >= ...) ; x-compiling (DEFUN MAX ...) ; x-compiling (DEFUN MIN ...) ; x-compiling (DEF-TWO-ARG- TWO-ARG-< ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; 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 ; x-compiling (DEF-TWO-ARG- TWO-ARG-> ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; 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 ; x-compiling (DEFUN TWO-ARG-= ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN TWO-ARG-= ; (SB!KERNEL::NUMBER-DISPATCH ((SB!KERNEL::X NUMBER) (SB!KERNEL::Y NUMBER)) ; (SB!KERNEL::BASIC-COMPARE = :INFINITE-X-FINITE-Y NIL :INFINITE-Y-FINITE-X ; NIL) ; ((FIXNUM (OR BIGNUM RATIO)) NIL) ((BIGNUM (OR FIXNUM RATIO)) NIL) ; ((BIGNUM BIGNUM) ; (ZEROP (SB!BIGNUM:BIGNUM-COMPARE SB!KERNEL::X SB!KERNEL::Y))) ; ((RATIO INTEGER) NIL) ; ((RATIO RATIO) ; (AND (EQL (NUMERATOR SB!KERNEL::X) (NUMERATOR SB!KERNEL::Y)) ; (EQL (DENOMINATOR SB!KERNEL::X) (DENOMINATOR SB!KERNEL::Y)))) ; ((COMPLEX COMPLEX) ; (AND (= (REALPART SB!KERNEL::X) (REALPART SB!KERNEL::Y)) ; (= (IMAGPART SB!KERNEL::X) (IMAGPART SB!KERNEL::Y)))) ; (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO SINGLE-FLOAT DOUBLE-FLOAT) ; COMPLEX) ; (AND (= SB!KERNEL::X (REALPART SB!KERNEL::Y)) ; (ZEROP (IMAGPART SB!KERNEL::Y)))) ; ((COMPLEX (OR FLOAT RATIONAL)) ; (AND (= (REALPART SB!KERNEL::X) SB!KERNEL::Y) ; (ZEROP (IMAGPART SB!KERNEL::X))))) ; --> BLOCK TAGBODY RETURN-FROM TYPECASE LET COND IF PROGN TYPECASE LET COND IF ; --> COND IF COND IF COND IF COND IF COND IF PROGN IF = IF = ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; x-compiling (DEF LOGIOR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEF LOGIOR ; (SB!KERNEL::DEF LOGIOR 0 ; "Return the bit-wise or of its arguments. Args must be integers.") ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK IF DO BLOCK LET NTH SB!C::%REST-REF ; --> AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a INTEGER: ; NIL ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK IF DO BLOCK LET TAGBODY PSETQ PSETF ; --> LET* MULTIPLE-VALUE-BIND LET LOGIOR NTH SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a INTEGER: ; NIL ; x-compiling (DEF LOGXOR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEF LOGXOR ; (SB!KERNEL::DEF LOGXOR 0 ; "Return the bit-wise exclusive or of its arguments. Args must be integers.") ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK IF DO BLOCK LET NTH SB!C::%REST-REF ; --> AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a INTEGER: ; NIL ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK IF DO BLOCK LET TAGBODY PSETQ PSETF ; --> LET* MULTIPLE-VALUE-BIND LET LOGXOR NTH SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a INTEGER: ; NIL ; x-compiling (DEF LOGAND ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEF LOGAND ; (SB!KERNEL::DEF LOGAND -1 ; "Return the bit-wise and of its arguments. Args must be integers.") ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK IF DO BLOCK LET NTH SB!C::%REST-REF ; --> AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a INTEGER: ; NIL ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK IF DO BLOCK LET TAGBODY PSETQ PSETF ; --> LET* MULTIPLE-VALUE-BIND LET LOGAND NTH SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a INTEGER: ; NIL ; x-compiling (DEF LOGEQV ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEF LOGEQV ; (SB!KERNEL::DEF LOGEQV -1 ; "Return the bit-wise equivalence of its arguments. Args must be integers.") ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK IF DO BLOCK LET NTH SB!C::%REST-REF ; --> AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a INTEGER: ; NIL ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK IF DO BLOCK LET TAGBODY PSETQ PSETF ; --> LET* MULTIPLE-VALUE-BIND LET LOGEQV LOGNOT LOGXOR NTH SB!C::%REST-REF AND ; --> IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a INTEGER: ; NIL ; x-compiling (DEFUN LOGNOT ...) ; x-compiling (DEF TWO-ARG-AND ...) ; x-compiling (DEF TWO-ARG-IOR ...) ; x-compiling (DEF TWO-ARG-XOR ...) ; x-compiling (DEF TWO-ARG-EQV ...) ; x-compiling (DEF LOGNAND ...) ; x-compiling (DEF LOGNOR ...) ; x-compiling (DEF LOGANDC1 ...) ; x-compiling (DEF LOGANDC2 ...) ; x-compiling (DEF LOGORC1 ...) ; x-compiling (DEF LOGORC2 ...) ; x-compiling (DEFUN LOGCOUNT ...) ; x-compiling (DEFUN LOGTEST ...) ; x-compiling (DEFUN LOGBITP ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN LOGBITP ; (SB!KERNEL::NUMBER-DISPATCH ((SB!INT:INDEX INTEGER) (INTEGER INTEGER)) ; ((FIXNUM FIXNUM) ; (IF (< SB!INT:INDEX SB!VM:N-POSITIVE-FIXNUM-BITS) ; (NOT (ZEROP #)) ; (MINUSP INTEGER))) ; ((FIXNUM BIGNUM) (SB!BIGNUM:BIGNUM-LOGBITP SB!INT:INDEX INTEGER)) ; ((BIGNUM (SB!KERNEL::FOREACH FIXNUM BIGNUM)) (MINUSP INTEGER))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; INTEGER ; ; note: deleting unreachable code ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; --> BLOCK TAGBODY RETURN-FROM ERROR ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; ==> ; INTEGER ; ; note: deleting unreachable code ; x-compiling (DEFUN ASH ...) ; x-compiling (DEFUN INTEGER-LENGTH ...) ; x-compiling (DEFUN BYTE ...) ; x-compiling (DEFUN BYTE-SIZE ...) ; x-compiling (DEFUN BYTE-POSITION ...) ; x-compiling (DEFUN LDB ...) ; x-compiling (DEFUN LDB-TEST ...) ; x-compiling (DEFUN MASK-FIELD ...) ; x-compiling (DEFUN DPB ...) ; x-compiling (DEFUN DEPOSIT-FIELD ...) ; x-compiling (DEFUN %LDB ...) ; x-compiling (DEFUN %MASK-FIELD ...) ; x-compiling (DEFUN %DPB ...) ; x-compiling (DEFUN %DEPOSIT-FIELD ...) ; x-compiling (DEFUN SB!C::MASK-SIGNED-FIELD ...) ; x-compiling (DEFCONSTANT BOOLE-CLR ...) ; x-compiling (DEFCONSTANT BOOLE-SET ...) ; x-compiling (DEFCONSTANT BOOLE-1 ...) ; x-compiling (DEFCONSTANT BOOLE-2 ...) ; x-compiling (DEFCONSTANT BOOLE-C1 ...) ; x-compiling (DEFCONSTANT BOOLE-C2 ...) ; x-compiling (DEFCONSTANT BOOLE-AND ...) ; x-compiling (DEFCONSTANT BOOLE-IOR ...) ; x-compiling (DEFCONSTANT BOOLE-XOR ...) ; x-compiling (DEFCONSTANT BOOLE-EQV ...) ; x-compiling (DEFCONSTANT BOOLE-NAND ...) ; x-compiling (DEFCONSTANT BOOLE-NOR ...) ; x-compiling (DEFCONSTANT BOOLE-ANDC1 ...) ; x-compiling (DEFCONSTANT BOOLE-ANDC2 ...) ; x-compiling (DEFCONSTANT BOOLE-ORC1 ...) ; x-compiling (DEFCONSTANT BOOLE-ORC2 ...) ; x-compiling (DEFUN BOOLE ...) ; x-compiling (DEFUN GCD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN GCD ; (NTH 0 SB!KERNEL::INTEGERS) ; --> SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a INTEGER: ; NIL ; (NTH SB!KERNEL::I SB!KERNEL::INTEGERS) ; --> SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a INTEGER: ; NIL ; x-compiling (DEFUN LCM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN LCM ; (NTH 0 SB!KERNEL::INTEGERS) ; --> SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a INTEGER: ; NIL ; (NTH SB!KERNEL::I SB!KERNEL::INTEGERS) ; --> SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a INTEGER: ; NIL ; x-compiling (DEFUN TWO-ARG-LCM ...) ; x-compiling (DEFUN TWO-ARG-GCD ...) ; x-compiling (DEFUN ISQRT ...) ; x-compiling (DEF ZEROP ...) ; x-compiling (DEF PLUSP ...) ; x-compiling (DEF MINUSP ...) ; x-compiling (DEF ODDP ...) ; x-compiling (DEF EVENP ...) ; x-compiling (DEFUN SB!VM::%NEGATE-MOD64 ...) ; x-compiling (DEFUN SB!VM::%NEGATE-MODFX ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN SB!VM::%NEGATE-MODFX ; (SB!C::MASK-SIGNED-FIELD 63 SB!KERNEL::X) ; ; note: deleting unreachable code ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; x-compiling (DEFUN SB!VM::*-MOD64 ...) ; x-compiling (DEFUN SB!VM::*-MODFX ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN SB!VM::*-MODFX ; (SB!C::MASK-SIGNED-FIELD 63 SB!KERNEL::X) ; ; note: deleting unreachable code ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; x-compiling (DEFUN SB!VM::+-MOD64 ...) ; x-compiling (DEFUN SB!VM::+-MODFX ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN SB!VM::+-MODFX ; (SB!C::MASK-SIGNED-FIELD 63 SB!KERNEL::X) ; ; note: deleting unreachable code ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; x-compiling (DEFUN SB!VM::--MOD64 ...) ; x-compiling (DEFUN SB!VM::--MODFX ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFUN SB!VM::--MODFX ; (SB!C::MASK-SIGNED-FIELD 63 SB!KERNEL::X) ; ; note: deleting unreachable code ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; x-compiling (DEFUN SB!VM::LOGNOT-MOD64 ...) ; x-compiling (DEFUN SB!VM::ASH-LEFT-MOD64 ...) ; x-compiling (DEFUN SB!VM::ASH-LEFT-MODFX ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/numbers.lisp ; in: DEFMACRO NUMBER-DISPATCH ; (MAPCAR #'CAR SB!KERNEL::VAR-SPECS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN GENERATE-NUMBER-DISPATCH ; (MAPCAR ; (LAMBDA (CASE) ; (SB!IMPL::BACKQ-CONS (FIRST CASE) ; (SB!KERNEL::GENERATE-NUMBER-DISPATCH ; (REST SB!KERNEL::VARS) (REST SB!KERNEL::ERROR-TAGS) ; (CDR CASE)))) ; SB!KERNEL::CASES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN TWO-ARG-= ; (SB!KERNEL::NUMBER-DISPATCH ((SB!KERNEL::X NUMBER) (SB!KERNEL::Y NUMBER)) ; (SB!KERNEL::BASIC-COMPARE = :INFINITE-X-FINITE-Y NIL :INFINITE-Y-FINITE-X ; NIL) ; ((FIXNUM (OR BIGNUM RATIO)) NIL) ((BIGNUM (OR FIXNUM RATIO)) NIL) ; ((BIGNUM BIGNUM) ; (ZEROP (SB!BIGNUM:BIGNUM-COMPARE SB!KERNEL::X SB!KERNEL::Y))) ; ((RATIO INTEGER) NIL) ; ((RATIO RATIO) ; (AND (EQL (NUMERATOR SB!KERNEL::X) (NUMERATOR SB!KERNEL::Y)) ; (EQL (DENOMINATOR SB!KERNEL::X) (DENOMINATOR SB!KERNEL::Y)))) ; ((COMPLEX COMPLEX) ; (AND (= (REALPART SB!KERNEL::X) (REALPART SB!KERNEL::Y)) ; (= (IMAGPART SB!KERNEL::X) (IMAGPART SB!KERNEL::Y)))) ; (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO SINGLE-FLOAT DOUBLE-FLOAT) ; COMPLEX) ; (AND (= SB!KERNEL::X (REALPART SB!KERNEL::Y)) ; (ZEROP (IMAGPART SB!KERNEL::Y)))) ; ((COMPLEX (OR FLOAT RATIONAL)) ; (AND (= (REALPART SB!KERNEL::X) SB!KERNEL::Y) ; (ZEROP (IMAGPART SB!KERNEL::X))))) ; --> BLOCK TAGBODY RETURN-FROM TYPECASE LET COND IF PROGN TYPECASE LET COND IF ; --> COND IF PROGN IF ; ==> ; (SB!EXT:FLOAT-INFINITY-P SB!KERNEL::Y) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-INFINITY-P ; in: DEF-TWO-ARG- TWO-ARG-> ; (SB!KERNEL::DEF-TWO-ARG- SB!KERNEL:TWO-ARG-> > CEILING FLOOR ; ((FIXNUM BIGNUM) (NOT (SB!BIGNUM:BIGNUM-PLUS-P SB!KERNEL::Y))) ; ((BIGNUM FIXNUM) (SB!BIGNUM:BIGNUM-PLUS-P SB!KERNEL::X)) ; ((BIGNUM BIGNUM) ; (PLUSP (SB!BIGNUM:BIGNUM-COMPARE SB!KERNEL::X SB!KERNEL::Y)))) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK ; --> TAGBODY RETURN-FROM TYPECASE LET COND IF PROGN TYPECASE LET COND IF COND ; --> IF PROGN IF ; ==> ; (SB!EXT:FLOAT-INFINITY-P SB!KERNEL::Y) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-INFINITY-P ; in: DEF-TWO-ARG- TWO-ARG-< ; (SB!KERNEL::DEF-TWO-ARG- SB!KERNEL:TWO-ARG-< < FLOOR CEILING ; ((FIXNUM BIGNUM) (SB!BIGNUM:BIGNUM-PLUS-P SB!KERNEL::Y)) ; ((BIGNUM FIXNUM) (NOT (SB!BIGNUM:BIGNUM-PLUS-P SB!KERNEL::X))) ; ((BIGNUM BIGNUM) ; (MINUSP (SB!BIGNUM:BIGNUM-COMPARE SB!KERNEL::X SB!KERNEL::Y)))) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK ; --> TAGBODY RETURN-FROM TYPECASE LET COND IF PROGN TYPECASE LET COND IF COND ; --> IF PROGN IF ; ==> ; (SB!EXT:FLOAT-INFINITY-P SB!KERNEL::Y) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-INFINITY-P ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined function: ; FLOAT-INFINITY-P ; caught 25 STYLE-WARNING conditions ; printed 25 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/numbers.lisp-obj-tmp written ; compilation finished in 0:00:02.182 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/float-trap.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFPARAMETER *FLOAT-TRAP-ALIST* ...) ; x-compiling (DEFPARAMETER *ROUNDING-MODE-ALIST* ...) ; x-compiling (DEFUN FLOAT-TRAP-MASK ...) ; x-compiling (DEFUN SET-FLOATING-POINT-MODES ...) ; x-compiling (DEFUN GET-FLOATING-POINT-MODES ...) ; x-compiling (DEFVAR *SAVED-FLOATING-POINT-MODES* ...) ; x-compiling (DEFUN FLOAT-COLD-INIT-OR-REINIT ...) ; x-compiling (DEFUN FLOAT-DEINIT ...) ; x-compiling (DEFMACRO CURRENT-FLOAT-TRAP ...) ; x-compiling (DEFPARAMETER *SIGFPE-CODE-ERROR-ALIST* ...) ; x-compiling (DEFUN SIGFPE-HANDLER ...) ; x-compiling (DEFMACRO WITH-FLOAT-TRAPS-MASKED ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/float-trap.lisp ; in: DEFUN FLOAT-TRAP-MASK ; (MAPCAR ; (LAMBDA (SB!VM::X) ; (OR (CDR (ASSOC SB!VM::X SB!VM::*FLOAT-TRAP-ALIST*)) ; (ERROR "unknown float trap kind: ~S" SB!VM::X))) ; SB!VM::NAMES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/float-trap.lisp-obj-tmp written ; compilation finished in 0:00:00.497 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/float.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DECLAIM (MAYBE-INLINE FLOAT-DENORMALIZED-P ...)) ; x-compiling (DEFUN FLOAT-DENORMALIZED-P ...) ; x-compiling (DEFMACRO !DEFINE-FLOAT-DISPATCHING-FUNCTION ...) ; x-compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-INFINITY-P ...) ; x-compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-NAN-P ...) ; x-compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-TRAPPING-NAN-P ...) ; x-compiling (DECLAIM (MAYBE-INLINE FLOAT-PRECISION)) ; x-compiling (DEFUN FLOAT-PRECISION ...) ; x-compiling (DEFUN FLOAT-SIGN ...) ; x-compiling (DEFUN FLOAT-FORMAT-DIGITS ...) ; x-compiling (DECLAIM (INLINE FLOAT-DIGITS ...)) ; x-compiling (DEFUN FLOAT-DIGITS ...) ; x-compiling (DEFUN FLOAT-RADIX ...) ; x-compiling (DECLAIM (MAYBE-INLINE INTEGER-DECODE-SINGLE-FLOAT ...)) ; x-compiling (DEFUN INTEGER-DECODE-SINGLE-DENORM ...) ; x-compiling (DEFUN INTEGER-DECODE-SINGLE-FLOAT ...) ; x-compiling (DEFUN INTEGER-DECODE-DOUBLE-DENORM ...) ; x-compiling (DEFUN INTEGER-DECODE-DOUBLE-FLOAT ...) ; x-compiling (DEFUN INTEGER-DECODE-FLOAT ...) ; x-compiling (DECLAIM (MAYBE-INLINE DECODE-SINGLE-FLOAT ...)) ; x-compiling (DEFUN DECODE-SINGLE-DENORM ...) ; x-compiling (DEFUN DECODE-SINGLE-FLOAT ...) ; x-compiling (DEFUN DECODE-DOUBLE-DENORM ...) ; x-compiling (DEFUN DECODE-DOUBLE-FLOAT ...) ; x-compiling (DEFUN DECODE-FLOAT ...) ; x-compiling (DECLAIM (MAYBE-INLINE SCALE-SINGLE-FLOAT ...)) ; x-compiling (DEFUN SCALE-FLOAT-MAYBE-UNDERFLOW ...) ; x-compiling (DEFUN SCALE-FLOAT-MAYBE-OVERFLOW ...) ; x-compiling (DEFUN SCALE-SINGLE-FLOAT ...) ; x-compiling (DEFUN SCALE-DOUBLE-FLOAT ...) ; x-compiling (DEFUN SCALE-FLOAT ...) ; x-compiling (DEFUN FLOAT ...) ; x-compiling (FROB %SINGLE-FLOAT ...) ; x-compiling (FROB %DOUBLE-FLOAT ...) ; x-compiling (DEFUN FLOAT-RATIO ...) ; x-compiling (DEFUN %UNARY-TRUNCATE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/float.lisp ; in: DEFUN %UNARY-TRUNCATE ; (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL)) ((INTEGER) NUMBER) ; ((RATIO) (VALUES (TRUNCATE (NUMERATOR NUMBER) (DENOMINATOR NUMBER)))) ; (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT)) ; (IF (< (FLOAT MOST-NEGATIVE-FIXNUM NUMBER) NUMBER ; (FLOAT MOST-POSITIVE-FIXNUM NUMBER)) ; (SB!EXT:TRULY-THE FIXNUM (SB!KERNEL:%UNARY-TRUNCATE NUMBER)) ; (MULTIPLE-VALUE-BIND (SB!KERNEL::BITS EXP) ; (INTEGER-DECODE-FLOAT NUMBER) ; (LET # ; #))))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; x-compiling (DEF SINGLE-FLOAT ...) ; x-compiling (DEF DOUBLE-FLOAT ...) ; x-compiling (DEFUN %UNARY-ROUND ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/float.lisp ; in: DEFUN %UNARY-ROUND ; (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL)) ((INTEGER) NUMBER) ; ((RATIO) (VALUES (ROUND (NUMERATOR NUMBER) (DENOMINATOR NUMBER)))) ; (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT)) ; (IF (< (FLOAT MOST-NEGATIVE-FIXNUM NUMBER) NUMBER ; (FLOAT MOST-POSITIVE-FIXNUM NUMBER)) ; (SB!EXT:TRULY-THE FIXNUM (SB!KERNEL:%UNARY-ROUND NUMBER)) ; (MULTIPLE-VALUE-BIND (SB!KERNEL::BITS EXP) ; (INTEGER-DECODE-FLOAT NUMBER) ; (LET* # ; #))))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; x-compiling (DEFUN %UNARY-FTRUNCATE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/float.lisp ; in: DEFUN %UNARY-FTRUNCATE ; (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL)) ((INTEGER) (FLOAT NUMBER)) ; ((RATIO) (FLOAT (TRUNCATE (NUMERATOR NUMBER) (DENOMINATOR NUMBER)))) ; (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT)) ; (SB!KERNEL:%UNARY-FTRUNCATE NUMBER))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; x-compiling (DEFUN RATIONAL ...) ; x-compiling (DEFUN RATIONALIZE ...); ; compilation unit finished ; printed 3 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/float.lisp-obj-tmp written ; compilation finished in 0:00:00.347 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/irrat.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFCONSTANT PI ...) ; x-compiling (DEF %SQRT ...) ; x-compiling (DEF-MATH-RTN "sin" ...) ; x-compiling (DEF-MATH-RTN "cos" ...) ; x-compiling (DEF-MATH-RTN "tan" ...) ; x-compiling (DEF-MATH-RTN "atan" ...) ; x-compiling (DEF-MATH-RTN "atan2" ...) ; x-compiling (DEF-MATH-RTN "acos" ...) ; x-compiling (DEF-MATH-RTN "asin" ...) ; x-compiling (DEF-MATH-RTN "cosh" ...) ; x-compiling (DEF-MATH-RTN "sinh" ...) ; x-compiling (DEF-MATH-RTN "tanh" ...) ; x-compiling (DEF-MATH-RTN "asinh" ...) ; x-compiling (DEF-MATH-RTN "acosh" ...) ; x-compiling (DEF-MATH-RTN "atanh" ...) ; x-compiling (DEF-MATH-RTN "exp" ...) ; x-compiling (DEF-MATH-RTN "log" ...) ; x-compiling (DEF-MATH-RTN "log10" ...) ; x-compiling (DEF-MATH-RTN "pow" ...) ; x-compiling (DEF-MATH-RTN "hypot" ...) ; x-compiling (DEF-MATH-RTN "log1p" ...) ; x-compiling (DEFUN EXP ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFPARAMETER *INTEXP-MAXIMUM-EXPONENT* ...) ; x-compiling (DEFUN INTEXP ...) ; x-compiling (DEFUN EXPT ...) ; x-compiling (DEFUN LOG2 ...) ; x-compiling (DEFUN LOG ...) ; x-compiling (DEFUN SQRT ...) ; x-compiling (DEFUN ABS ...) ; x-compiling (DEFUN PHASE ...) ; x-compiling (DEFUN SIN ...) ; x-compiling (DEFUN COS ...) ; x-compiling (DEFUN TAN ...) ; x-compiling (DEFUN CIS ...) ; x-compiling (DEFUN ASIN ...) ; x-compiling (DEFUN ACOS ...) ; x-compiling (DEFUN ATAN ...) ; x-compiling (DEFUN SINH ...) ; x-compiling (DEFUN COSH ...) ; x-compiling (DEFUN TANH ...) ; x-compiling (DEFUN ASINH ...) ; x-compiling (DEFUN ACOSH ...) ; x-compiling (DEFUN ATANH ...) ; x-compiling (DECLAIM (INLINE SQUARE)) ; x-compiling (DEFUN SQUARE ...) ; x-compiling (DECLAIM (INLINE SCALB)) ; x-compiling (DEFUN SCALB ...) ; x-compiling (DECLAIM (INLINE LOGB-FINITE)) ; x-compiling (DEFUN LOGB-FINITE ...) ; x-compiling (DEFUN LOGB ...) ; x-compiling (DECLAIM (INLINE COERCE-TO-COMPLEX-TYPE)) ; x-compiling (DEFUN COERCE-TO-COMPLEX-TYPE ...) ; x-compiling (DEFUN CSSQS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/irrat.lisp ; in: DEFUN CSSQS ; (SB!KERNEL::LOGB-FINITE (MAX (ABS SB!KERNEL::X) (ABS SB!KERNEL::Y))) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL DECODE-FLOAT ; ==> ; (SB!KERNEL:DECODE-DOUBLE-FLOAT SB!C::X) ; ; note: doing float to pointer coercion (cost 13) to X ; (VALUES ; (+ (SB!KERNEL::SQUARE (SB!KERNEL::SCALB SB!KERNEL::X SB!KERNEL::K)) ; (SB!KERNEL::SQUARE (SB!KERNEL::SCALB SB!KERNEL::Y SB!KERNEL::K))) ; (- SB!KERNEL::K)) ; ; note: doing float to pointer coercion (cost 13) to "" ; (VALUES SB!KERNEL::RHO 0) ; ; note: doing float to pointer coercion (cost 13) to "" ; x-compiling (DEFUN COMPLEX-SQRT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/irrat.lisp ; in: DEFUN COMPLEX-SQRT ; (SB!EXT:FLOAT-NAN-P SB!KERNEL::X) ; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET ; --> COND IF PROGN LET SB!KERNEL:SINGLE-FLOAT-BITS ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE SB!KERNEL::ETA SB!KERNEL::NU SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX ; RATIONAL). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX ; SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; --> BLOCK IF ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: forced to do full call ; unable to do inline complex single-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: forced to do full call ; unable to do inline complex double-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (SB!KERNEL::SCALB (SQRT SB!KERNEL::RHO) SB!KERNEL::K) ; --> BLOCK SCALE-FLOAT ; ==> ; (SB!KERNEL:SCALE-DOUBLE-FLOAT SB!C::F SB!C::EX) ; ; note: doing float to pointer coercion (cost 13) to X ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE SB!KERNEL::ETA SB!KERNEL::NU SB!KERNEL::Z) ; --> BLOCK IF ; ==> ; (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 ; (SB!KERNEL::SCALB (ABS SB!KERNEL::X) (- SB!KERNEL::K)) ; --> BLOCK SCALE-FLOAT ; ==> ; (SB!KERNEL:SCALE-DOUBLE-FLOAT SB!C::F SB!C::EX) ; ; note: doing float to pointer coercion (cost 13) to X ; x-compiling (DEFUN COMPLEX-LOG-SCALED ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 ; convert to multiplication by reciprocal ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; (+ (/ (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. ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE ; (IF (AND (ZEROP SB!KERNEL::K) (< SB!KERNEL::T0 SB!KERNEL::BETA) ; (OR (<= SB!KERNEL::BETA SB!KERNEL::T1) ; (< SB!KERNEL::RHO SB!KERNEL::T2))) ; (/ (SB!KERNEL:%LOG1P (+ # #)) 2.0d0) ; (+ (/ (LOG SB!KERNEL::RHO) 2.0d0) ; (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))) ; (ATAN SB!KERNEL::Y SB!KERNEL::X) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; (/ (LOG SB!KERNEL::RHO) 2.0d0) ; ; note: forced to do static-fun Two-arg-/ (cost 53) ; unable to do inline float arithmetic (cost 19) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 19) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (+ (/ (LOG SB!KERNEL::RHO) 2.0d0) ; (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2)) ; ; note: 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). ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE ; (IF (AND (ZEROP SB!KERNEL::K) (< SB!KERNEL::T0 SB!KERNEL::BETA) ; (OR (<= SB!KERNEL::BETA SB!KERNEL::T1) ; (< SB!KERNEL::RHO SB!KERNEL::T2))) ; (/ (SB!KERNEL:%LOG1P (+ # #)) 2.0d0) ; (+ (/ (LOG SB!KERNEL::RHO) 2.0d0) ; (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))) ; (ATAN SB!KERNEL::Y SB!KERNEL::X) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; --> BLOCK IF ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: forced to do full call ; unable to do inline complex single-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: forced to do full call ; unable to do inline complex double-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (+ (/ (LOG SB!KERNEL::RHO) 2.0d0) ; (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2)) ; ; note: doing float to pointer coercion (cost 13), for: ; the second argument of GENERIC-+ ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE ; (IF (AND (ZEROP SB!KERNEL::K) (< SB!KERNEL::T0 SB!KERNEL::BETA) ; (OR (<= SB!KERNEL::BETA SB!KERNEL::T1) ; (< SB!KERNEL::RHO SB!KERNEL::T2))) ; (/ (SB!KERNEL:%LOG1P (+ # #)) 2.0d0) ; (+ (/ (LOG SB!KERNEL::RHO) 2.0d0) ; (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))) ; (ATAN SB!KERNEL::Y SB!KERNEL::X) SB!KERNEL::Z) ; --> BLOCK IF ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: doing float to pointer coercion (cost 13) ; (/ ; (SB!KERNEL:%LOG1P ; (+ (* (- SB!KERNEL::BETA 1.0d0) (+ SB!KERNEL::BETA 1.0d0)) ; (* SB!KERNEL::THETA SB!KERNEL::THETA))) ; 2.0d0) ; ==> ; (* SB!C::X 0.5d0) ; ; note: doing float to pointer coercion (cost 13) ; x-compiling (DEFUN COMPLEX-LOG ...) ; x-compiling (DEFUN COMPLEX-ATANH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/irrat.lisp ; in: DEFUN COMPLEX-ATANH ; (SQRT SB!KERNEL::T1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; (SQRT (SQRT SB!KERNEL::T1)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; (SQRT SB!KERNEL::T2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; (/ (SQRT (SQRT SB!KERNEL::T1)) (SQRT SB!KERNEL::T2)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; (LOG (/ (SQRT (SQRT SB!KERNEL::T1)) (SQRT SB!KERNEL::T2))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; (* SB!KERNEL::BETA SB!KERNEL::ETA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR SINGLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) ; DOUBLE-FLOAT), not a SINGLE-FLOAT. ; (- (* SB!KERNEL::BETA SB!KERNEL::NU)) ; ==> ; (SB!KERNEL:%NEGATE (THE NUMBER (* SB!KERNEL::BETA SB!KERNEL::NU))) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (* SB!KERNEL::BETA SB!KERNEL::ETA) ; (- (* SB!KERNEL::BETA SB!KERNEL::NU)) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; (/ (SQRT (SQRT SB!KERNEL::T1)) (SQRT SB!KERNEL::T2)) ; ; note: forced to do static-fun Two-arg-/ (cost 53) ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; 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 ; (COMPLEX SINGLE-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). ; etc. ; (* SB!KERNEL::BETA SB!KERNEL::ETA) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 5) because: ; The second argument is a (OR SINGLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) DOUBLE-FLOAT), not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 5) because: ; The second argument is a (OR SINGLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) DOUBLE-FLOAT), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (* SB!KERNEL::BETA SB!KERNEL::NU) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (- (* SB!KERNEL::BETA SB!KERNEL::NU)) ; ==> ; (SB!KERNEL:%NEGATE (THE NUMBER (* 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 (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; etc. ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (* SB!KERNEL::BETA SB!KERNEL::ETA) ; (- (* SB!KERNEL::BETA SB!KERNEL::NU)) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; --> BLOCK IF ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: forced to do full call ; unable to do inline complex single-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: forced to do full call ; unable to do inline complex double-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (SETF SB!KERNEL::ETA ; (LET* ((SB!KERNEL::X-BIGGER #) (SB!KERNEL::R #) (SB!KERNEL::D #)) ; (IF SB!KERNEL::X-BIGGER ; (/ # SB!KERNEL::D) ; (/ # SB!KERNEL::D)))) ; ==> ; (SETQ SB!KERNEL::ETA ; (LET* ((SB!KERNEL::X-BIGGER #) (SB!KERNEL::R #) (SB!KERNEL::D #)) ; (IF SB!KERNEL::X-BIGGER ; (/ # SB!KERNEL::D) ; (/ # SB!KERNEL::D)))) ; ; note: doing float to pointer coercion (cost 13) to ETA ; (* SB!KERNEL::BETA SB!KERNEL::NU) ; ; note: doing float to pointer coercion (cost 13) from NU, for: ; the second argument of GENERIC-* ; (SETF SB!KERNEL::ETA (* 0.25d0 (SB!KERNEL:%LOG1P (/ # #)))) ; ==> ; (SETQ SB!KERNEL::ETA (* 0.25d0 (SB!KERNEL:%LOG1P (/ # #)))) ; ; note: doing float to pointer coercion (cost 13) to ETA ; (SQRT SB!KERNEL::T1) ; ; note: doing float to pointer coercion (cost 13) ; (SQRT SB!KERNEL::T2) ; ; note: doing float to pointer coercion (cost 13) from T2 ; x-compiling (DEFUN COMPLEX-TANH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/irrat.lisp ; in: DEFUN COMPLEX-TANH ; (SQRT (+ 1.0d0 (* SB!KERNEL::S SB!KERNEL::S))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; (/ SB!KERNEL::RHO SB!KERNEL::S) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (/ SB!KERNEL::RHO SB!KERNEL::S) ; (/ SB!KERNEL::TV) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) ; --> * ; ==> ; (* SB!KERNEL::BETA SB!KERNEL::RHO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a SINGLE-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. ; (/ (* 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. ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE ; (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN) ; (/ SB!KERNEL::TV SB!KERNEL::DEN) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (FLOAT-SIGN SB!KERNEL::X) ; (FLOAT-SIGN SB!KERNEL::Y) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; --> BLOCK IF ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: forced to do full call ; unable to do inline complex single-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: forced to do full call ; unable to do inline complex double-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (/ SB!KERNEL::RHO SB!KERNEL::S) ; ; note: forced to do static-fun Two-arg-/ (cost 53) ; unable to do inline float arithmetic (cost 19) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 19) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (/ SB!KERNEL::RHO SB!KERNEL::S) ; (/ SB!KERNEL::TV) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; --> BLOCK IF ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: forced to do full call ; unable to do inline complex single-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: forced to do full call ; unable to do inline complex double-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) ; --> * ; ==> ; (* SB!KERNEL::BETA SB!KERNEL::RHO) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 5) because: ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 5) because: ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX 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 5) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 5) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN) ; ; note: forced to do static-fun Two-arg-/ (cost 53) ; unable to do inline float arithmetic (cost 19) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 19) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE ; (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN) ; (/ SB!KERNEL::TV SB!KERNEL::DEN) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; --> BLOCK IF ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: forced to do full call ; unable to do inline complex single-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: forced to do full call ; unable to do inline complex double-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (SINH SB!KERNEL::X) ; --> SB!KERNEL:%SINH BLOCK SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:NATURALIZE LET ; --> SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN ; ==> ; (SB!C:%ALIEN-FUNCALL ; (SB!ALIEN-INTERNALS:DEPORT FUNCTION ; '#) ; '# ; (SB!ALIEN-INTERNALS:DEPORT #:G19321 ; '#)) ; ; note: doing float to pointer coercion (cost 13) ; (SQRT (+ 1.0d0 (* SB!KERNEL::S SB!KERNEL::S))) ; ; note: doing float to pointer coercion (cost 13) ; (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) ; --> * ; ==> ; (* SB!KERNEL::BETA SB!KERNEL::RHO) ; ; note: doing float to pointer coercion (cost 13), for: ; the first argument of GENERIC-* ; (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN) ; ; note: doing float to pointer coercion (cost 13), for: ; the second argument of static-fun Two-arg-/ ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE ; (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN) ; (/ SB!KERNEL::TV SB!KERNEL::DEN) SB!KERNEL::Z) ; --> BLOCK IF ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: doing float to pointer coercion (cost 13) ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (/ SB!KERNEL::RHO SB!KERNEL::S) ; (/ SB!KERNEL::TV) SB!KERNEL::Z) ; --> BLOCK IF ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: doing float to pointer coercion (cost 13) ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (FLOAT-SIGN SB!KERNEL::X) ; (FLOAT-SIGN SB!KERNEL::Y) SB!KERNEL::Z) ; --> BLOCK IF ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: doing float to pointer coercion (cost 13) ; ; note: doing float to pointer coercion (cost 13) ; x-compiling (DEFUN COMPLEX-ACOS ...) ; x-compiling (DEFUN COMPLEX-ACOSH ...) ; x-compiling (DEFUN COMPLEX-ASIN ...) ; x-compiling (DEFUN COMPLEX-ASINH ...) ; x-compiling (DEFUN COMPLEX-ATAN ...) ; x-compiling (DEFUN COMPLEX-TAN ...); ; compilation unit finished ; printed 85 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/irrat.lisp-obj-tmp written ; compilation finished in 0:00:02.169 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/char.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!CONSTANT SB-XC:CHAR-CODE-LIMIT ...) ; x-compiling (DEF!CONSTANT BASE-CHAR-CODE-LIMIT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/char.lisp-obj-tmp written ; compilation finished in 0:00:00.914 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/huffman.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFSTRUCT (HUFFMAN-NODE #) ...) ; x-compiling (DEFSTRUCT (HUFFMAN-PAIR # ...) ...) ; x-compiling (DEFUN HUFFMAN-WEIGHTS ...) ; x-compiling (DEFUN MAKE-HUFFMAN-TREE ...) ; x-compiling (DEFUN HUFFMAN-DECODE ...) ; x-compiling (DEFUN HUFFMAN-MATCH ...) ; x-compiling (DEFUN HUFFMAN-ENCODE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/huffman.lisp ; in: DEFSTRUCT HUFFMAN-PAIR ; (DEFSTRUCT ; (SB!IMPL::HUFFMAN-PAIR (:INCLUDE SB!IMPL::HUFFMAN-NODE) ; (:CONSTRUCTOR SB!IMPL::MAKE-HUFFMAN-PAIR ; (SB!IMPL::LEFT SB!IMPL::RIGHT &AUX (SB!IMPL::KEY #) ; (SB!IMPL::WEIGHT #)))) ; SB!IMPL::LEFT ; SB!IMPL::RIGHT) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT HUFFMAN-NODE ; (DEFSTRUCT ; (SB!IMPL::HUFFMAN-NODE ; (:CONSTRUCTOR SB!IMPL::MAKE-HUFFMAN-NODE ; (SB!IMPL::KEY SB!IMPL::WEIGHT))) ; SB!IMPL::KEY ; SB!IMPL::WEIGHT) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFUN HUFFMAN-DECODE ; (CONCATENATE 'STRING SB!IMPL::NEXT (SB!IMPL::DECODE SB!IMPL::TREE)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFSTRUCT HUFFMAN-PAIR ; (CONCATENATE 'STRING (SB!IMPL::HUFFMAN-NODE-KEY SB!IMPL::LEFT) ; (SB!IMPL::HUFFMAN-NODE-KEY SB!IMPL::RIGHT)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined function: ; SB!KERNEL::%TARGET-DEFSTRUCT ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/huffman.lisp-obj-tmp written ; compilation finished in 0:00:01.497 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-char.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE STANDARD-CHAR-P ...)) ; x-compiling (DECLAIM (MAYBE-INLINE DIGIT-CHAR-P)) ; x-compiling (DEFTYPE CHAR-CODE ...) ; x-compiling (DEFVAR *UNICODE-CHARACTER-NAME-DATABASE*) ; x-compiling (DEFVAR *UNICODE-CHARACTER-NAME-HUFFMAN-TREE*) ; x-compiling (FROB) ; x-compiling (DEFPARAMETER *BASE-CHAR-NAME-ALIST* ...) ; x-compiling (DEFUN UCD-INDEX ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN UCD-VALUE-0 ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN UCD-VALUE-1 ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN UCD-GENERAL-CATEGORY ...) ; x-compiling (DEFUN UCD-DECIMAL-DIGIT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN UCD-CCC ...) ; x-compiling (DEFUN CHAR-CODE ...) ; x-compiling (DEFUN CHAR-INT ...) ; x-compiling (DEFUN CODE-CHAR ...) ; x-compiling (DEFUN CHARACTER ...) ; x-compiling (DEFUN CHAR-NAME ...) ; x-compiling (DEFUN NAME-CHAR ...) ; x-compiling (DEFUN STANDARD-CHAR-P ...) ; x-compiling (DEFUN %STANDARD-CHAR-P ...) ; x-compiling (DEFUN GRAPHIC-CHAR-P ...) ; x-compiling (DEFUN ALPHA-CHAR-P ...) ; x-compiling (DEFUN UPPER-CASE-P ...) ; x-compiling (DEFUN LOWER-CASE-P ...) ; x-compiling (DEFUN BOTH-CASE-P ...) ; x-compiling (DEFUN DIGIT-CHAR-P ...) ; x-compiling (DEFUN ALPHANUMERICP ...) ; x-compiling (DEFUN CHAR= ...) ; x-compiling (DEFUN CHAR/= ...) ; x-compiling (DEFUN CHAR< ...) ; x-compiling (DEFUN CHAR> ...) ; x-compiling (DEFUN CHAR<= ...) ; x-compiling (DEFUN CHAR>= ...) ; x-compiling (DEFMACRO EQUAL-CHAR-CODE ...) ; x-compiling (DEFUN TWO-ARG-CHAR-EQUAL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-char.lisp ; in: DEFUN TWO-ARG-CHAR-EQUAL ; (< SB!IMPL::SUM 461) ; ==> ; SB!IMPL::SUM ; ; note: deleting unreachable code ; (< SB!IMPL::SUM 477) ; ==> ; SB!IMPL::SUM ; ; note: deleting unreachable code ; x-compiling (DEFUN CHAR-EQUAL-CONSTANT ...) ; x-compiling (DEFUN CHAR-EQUAL ...) ; x-compiling (DEFUN TWO-ARG-CHAR-NOT-EQUAL ...) ; x-compiling (DEFUN CHAR-NOT-EQUAL ...) ; x-compiling (DEFUN TWO-ARG-CHAR-LESSP ...) ; x-compiling (DEFUN CHAR-LESSP ...) ; x-compiling (DEFUN TWO-ARG-CHAR-GREATERP ...) ; x-compiling (DEFUN CHAR-GREATERP ...) ; x-compiling (DEFUN TWO-ARG-CHAR-NOT-GREATERP ...) ; x-compiling (DEFUN CHAR-NOT-GREATERP ...) ; x-compiling (DEFUN TWO-ARG-CHAR-NOT-LESSP ...) ; x-compiling (DEFUN CHAR-NOT-LESSP ...) ; x-compiling (DEFUN CHAR-UPCASE ...) ; x-compiling (DEFUN CHAR-DOWNCASE ...) ; x-compiling (DEFUN DIGIT-CHAR ...) ; x-compiling (DEFUN CHAR-DECOMPOSITION-INFO ...) ; x-compiling (DEFUN CHAR-DECOMPOSITION ...) ; x-compiling (DEFUN DECOMPOSE-CHAR ...) ; x-compiling (DEFUN DECOMPOSE-STRING ...) ; x-compiling (DEFUN SORT-COMBINERS ...) ; x-compiling (DEFUN PRIMARY-COMPOSITION ...) ; x-compiling (DEFUN LREF ...) ; x-compiling (DEFUN (SETF LREF) ...) ; x-compiling (DEFUN LLENGTH ...) ; x-compiling (DEFUN LSTRING ...) ; x-compiling (DEFUN LDELETE ...) ; x-compiling (DEFUN CANONICALLY-COMPOSE ...) ; x-compiling (DEFUN NORMALIZE-STRING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-char.lisp ; in: ; MACROLET ((FROB NIL ; (FLET (# #) ; (LET # ; #)))) ; (SB!IMPL::FROB) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::**CHARACTER-DATABASE** ; (UNLESS #:BOUNDP #(0 8 0 255 255 0 0 0 0 8 0 255 ...)) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFUN LDELETE ; (MAPCAR ; (LAMBDA (SB!IMPL::X) ; (LIST (1- (FIRST SB!IMPL::X)) (1- (SECOND SB!IMPL::X)) ; (THIRD SB!IMPL::X))) ; (CDR SB!IMPL::LS)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined function: ; %DEFGLOBAL ; caught 2 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-char.lisp-obj-tmp written ; compilation finished in 0:00:03.465 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-misc.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN %FUN-FUN ...) ; x-compiling (DEFUN %FUN-LAMBDA-LIST ...) ; x-compiling (DEFUN (SETF %FUN-LAMBDA-LIST) ...) ; x-compiling (DEFUN %FUN-TYPE ...) ; x-compiling (DEFUN %FUN-NAME ...) ; x-compiling (DEFUN (SETF %FUN-NAME) ...) ; x-compiling (DEFUN %FUN-DOC ...) ; x-compiling (DEFUN (SETF %FUN-DOC) ...) ; x-compiling (DEFVAR *FEATURES* ...) ; x-compiling (DEFUN MACHINE-INSTANCE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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). ; x-compiling (DEFVAR *MACHINE-VERSION*) ; x-compiling (DEFUN MACHINE-VERSION ...) ; x-compiling (DEFVAR *SHORT-SITE-NAME* ...) ; x-compiling (DEFVAR *LONG-SITE-NAME* ...) ; x-compiling (DEFUN SHORT-SITE-NAME ...) ; x-compiling (DEFUN LONG-SITE-NAME ...) ; x-compiling (DEFVAR *ED-FUNCTIONS* ...) ; x-compiling (DEFUN ED ...) ; x-compiling (DEFVAR *PREVIOUS-DRIBBLE-STREAMS* ...) ; x-compiling (DEFVAR *DRIBBLE-STREAM* ...) ; x-compiling (DEFUN DRIBBLE ...) ; x-compiling (DEFUN %BYTE-BLT ...) ; x-compiling (DEFVAR *LOAD-PRINT* ...) ; x-compiling (DEFVAR *LOAD-VERBOSE* ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-misc.lisp ; in: DEFUN %FUN-NAME ; (TYPECASE FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME FUNCTION)) ; (T (SB!KERNEL:%SIMPLE-FUN-NAME (SB!KERNEL:%FUN-FUN FUNCTION)))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20051 'SB!EVAL:INTERPRETED-FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN (SETF %FUN-LAMBDA-LIST) ; (TYPECASE FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION ; (SETF (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST FUNCTION) ; SB!IMPL::NEW-VALUE)) ; ((OR SB!KERNEL:SIMPLE-FUN SB!KERNEL:CLOSURE) ; (SETF (SB!KERNEL:%SIMPLE-FUN-ARGLIST #) SB!IMPL::NEW-VALUE))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20038 'SB!EVAL:INTERPRETED-FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN %FUN-LAMBDA-LIST ; (TYPECASE FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST FUNCTION)) ; (T (SB!KERNEL:%SIMPLE-FUN-ARGLIST (SB!KERNEL:%FUN-FUN FUNCTION)))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20030 'SB!EVAL:INTERPRETED-FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; ; caught STYLE-WARNING: ; 4 more uses of undefined function %FUNCALLABLE-INSTANCE-LAYOUT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-misc.lisp ; in: DEFUN (SETF %FUN-LAMBDA-LIST) ; (SETF (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST FUNCTION) ; SB!IMPL::NEW-VALUE) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST) ; #:NEW3 #:FUNCTION4) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST) ; in: DEFUN (SETF %FUN-NAME) ; (SETF (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME FUNCTION) SB!IMPL::NEW-VALUE) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME) #:NEW15 ; #:FUNCTION16) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME) ; in: DEFUN (SETF %FUN-DOC) ; (SETF (SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION FUNCTION) ; SB!IMPL::NEW-VALUE) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION) #:NEW25 ; #:FUNCTION26) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION) ; in: DEFUN %BYTE-BLT ; (SB!KERNEL:%BYTE-BLT SB!IMPL::SRC SB!IMPL::SRC-START SB!IMPL::DST ; SB!IMPL::DST-START SB!IMPL::DST-END) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN %FUN-LAMBDA-LIST ; (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST ; in: DEFUN %FUN-NAME ; (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME ; in: DEFUN %FUN-DOC ; (SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION ; in: DEFUN %FUN-NAME ; (TYPECASE FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME FUNCTION)) ; (T (SB!KERNEL:%SIMPLE-FUN-NAME (SB!KERNEL:%FUN-FUN FUNCTION)))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20051 'SB!EVAL:INTERPRETED-FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN (SETF %FUN-LAMBDA-LIST) ; (TYPECASE FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION ; (SETF (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST FUNCTION) ; SB!IMPL::NEW-VALUE)) ; ((OR SB!KERNEL:SIMPLE-FUN SB!KERNEL:CLOSURE) ; (SETF (SB!KERNEL:%SIMPLE-FUN-ARGLIST #) SB!IMPL::NEW-VALUE))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20038 'SB!EVAL:INTERPRETED-FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN %FUN-LAMBDA-LIST ; (TYPECASE FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST FUNCTION)) ; (T (SB!KERNEL:%SIMPLE-FUN-ARGLIST (SB!KERNEL:%FUN-FUN FUNCTION)))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20030 'SB!EVAL:INTERPRETED-FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; ; caught STYLE-WARNING: ; 4 more uses of undefined function LAYOUT-INVALID ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-misc.lisp ; in: DEFUN %FUN-NAME ; (TYPECASE FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME FUNCTION)) ; (T (SB!KERNEL:%SIMPLE-FUN-NAME (SB!KERNEL:%FUN-FUN FUNCTION)))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20051 'SB!EVAL:INTERPRETED-FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN (SETF %FUN-LAMBDA-LIST) ; (TYPECASE FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION ; (SETF (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST FUNCTION) ; SB!IMPL::NEW-VALUE)) ; ((OR SB!KERNEL:SIMPLE-FUN SB!KERNEL:CLOSURE) ; (SETF (SB!KERNEL:%SIMPLE-FUN-ARGLIST #) SB!IMPL::NEW-VALUE))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20038 'SB!EVAL:INTERPRETED-FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN %FUN-LAMBDA-LIST ; (TYPECASE FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST FUNCTION)) ; (T (SB!KERNEL:%SIMPLE-FUN-ARGLIST (SB!KERNEL:%FUN-FUN FUNCTION)))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20030 'SB!EVAL:INTERPRETED-FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; 4 more uses of undefined function UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST) (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME) (SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION) SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION LAYOUT-INVALID UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 19 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-misc.lisp-obj-tmp written ; compilation finished in 0:00:00.250 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/misc.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE ...) ; x-compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/misc.lisp-obj-tmp written ; compilation finished in 0:00:00.035 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/room.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEF!STRUCT (ROOM-INFO #) ...) ; x-compiling (DEFUN ROOM-INFO-TYPE-NAME ...) ; x-compiling (DEFPARAMETER *ROOM-INFO* ...) ; x-compiling (DEFTYPE SPACES ...) ; x-compiling (DECLAIM (TYPE FIXNUM ...)) ; x-compiling (DEFUN SPACE-BOUNDS ...) ; x-compiling (DEFUN SPACE-BYTES ...) ; x-compiling (DECLAIM (INLINE ROUND-TO-DUALWORD)) ; x-compiling (DEFUN ROUND-TO-DUALWORD ...) ; x-compiling (DEFUN RECONSTITUTE-VECTOR ...) ; x-compiling (DEFUN RECONSTITUTE-OBJECT ...) ; x-compiling (DEFUN MAP-OBJECTS-IN-RANGE ...) ; x-compiling (DEFINE-ALIEN-TYPE (STRUCT PAGE) ...) ; x-compiling (DECLAIM (INLINE FIND-PAGE-INDEX)) ; x-compiling (DEFINE-ALIEN-ROUTINE "find_page_index" ...) ; x-compiling (DEFINE-ALIEN-VARIABLE "last_free_page" ...) ; x-compiling (DEFINE-ALIEN-VARIABLE "heap_base" ...) ; x-compiling (DEFINE-ALIEN-VARIABLE "page_table" ...) ; x-compiling (DECLAIM (MAYBE-INLINE MAP-ALLOCATED-OBJECTS)) ; x-compiling (DEFUN MAP-ALLOCATED-OBJECTS ...) ; x-compiling (DEFUN TYPE-BREAKDOWN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/room.lisp ; in: DEFUN TYPE-BREAKDOWN ; (INCF (AREF SB!VM::SIZES TYPE) SB!VM::SIZE) ; --> LET* ; ==> ; (+ (AREF #:SIZES485 #:TYPE484) #:G20434) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (MOD 36893488147419103231) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 64). ; The second argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 64). ; The result is a (VALUES (MOD 36893488147419103231) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; (INCF (AREF SB!VM::COUNTS TYPE)) ; --> LET* ; ==> ; (+ (AREF #:COUNTS488 #:TYPE487) #:G20435) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; (INCF (AREF SB!VM::SIZES TYPE) SB!VM::SIZE) ; --> LET* ; ==> ; (+ (AREF #:SIZES485 #:TYPE484) #:G20434) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; (INCF (AREF SB!VM::COUNTS TYPE)) ; --> LET* ; ==> ; (+ (AREF #:COUNTS488 #:TYPE487) #:G20435) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; --> LET* FUNCALL SB!C::%FUNCALL (SETF AREF) ; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS SB!EXT:TRULY-THE ; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (ARRAY) (SB!INT:INDEX) &REST #:G522) ; (DECLARE (IGNORE #:G522)) ; (DECLARE (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) 1) ARRAY) ; (TYPE (UNSIGNED-BYTE 64) SB!C::NEW-VALUE)) ; (SB!KERNEL:DATA-VECTOR-SET ARRAY SB!INT:INDEX SB!C::NEW-VALUE)) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; x-compiling (DEFUN PRINT-SUMMARY ...) ; x-compiling (DEFUN REPORT-SPACE-TOTAL ...) ; x-compiling (DEFUN MEMORY-USAGE ...) ; x-compiling (DEFUN INSTANCE-USAGE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/room.lisp ; in: DEFUN INSTANCE-USAGE ; (INCF SB!VM::TOTAL-OBJECTS) ; --> LET* ; ==> ; (+ SB!VM::TOTAL-OBJECTS #:G20591) ; ; 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 #:G20592) ; ; 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 -4611686018427387904) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER -4611686018427387904) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; --> LET* SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER LET OR LET IF OR LET IF OR THE TYPEP LET ; --> SB!C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF ; ==> ; (< SB!C::X SB!C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER -4611686018427387904), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -4611686018427387904), not a FIXNUM. ; etc. ; (INCF (THE FIXNUM (CAR SB!VM::FOUND))) ; --> LET* MULTIPLE-VALUE-BIND LET ; ==> ; (THE FIXNUM (VALUES #:NEW639)) ; ; 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 #:NEW641)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; x-compiling (DEFUN PRINT-ALLOCATED-OBJECTS ...) ; x-compiling (DEFVAR *IGNORE-AFTER* ...) ; x-compiling (DEFUN VALID-OBJ ...) ; x-compiling (DEFUN MAYBE-CONS ...) ; x-compiling (DEFUN LIST-ALLOCATED-OBJECTS ...) ; x-compiling (DEFUN MAP-STACK-REFERENCES ...) ; x-compiling (DEFUN MAP-REFERENCING-OBJECTS ...) ; x-compiling (DEFUN LIST-REFERENCING-OBJECTS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/room.lisp ; in: DEFINE-ALIEN-TYPE (STRUCT PAGE) ; (SB!ALIEN:DEFINE-ALIEN-TYPE (SB!ALIEN:STRUCT SB!VM::PAGE) ; (SB!ALIEN:STRUCT SB!VM::PAGE ; (SB!VM::START SB!ALIEN:SIGNED) ; (SB!VM::BYTES-USED (SB!ALIEN:UNSIGNED 16)) ; (SB!VM::FLAGS (SB!ALIEN:UNSIGNED 8)) ; (SB!VM::GEN (SB!ALIEN:SIGNED 8)))) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!VM::PAGE ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE '(SB!ALIEN:STRUCT SB!VM::PAGE) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; in: DEFUN PRINT-ALLOCATED-OBJECTS ; (DEFUN SB!VM:PRINT-ALLOCATED-OBJECTS ; (SPACE ; &KEY (SB!VM::PERCENT 0) (SB!VM::PAGES 5) TYPE SB!VM::LARGER ; SB!VM::SMALLER COUNT (STREAM *STANDARD-OUTPUT*)) ; (DECLARE (TYPE (INTEGER 0 99) SB!VM::PERCENT) ; (TYPE SB!INT:INDEX SB!VM::PAGES) ; (TYPE STREAM STREAM) ; (TYPE SB!VM::SPACES SPACE) ; (TYPE (OR SB!INT:INDEX NULL) TYPE SB!VM::LARGER SB!VM::SMALLER ; COUNT)) ; (MULTIPLE-VALUE-BIND (SB!VM::START-SAP SB!VM::END-SAP) ; (SB!VM::SPACE-BOUNDS SPACE) ; (LET* ((SB!VM::SPACE-START #) ; (SB!VM::SPACE-END #) ; (SB!VM::SPACE-SIZE #) ; (SB!VM::PAGESIZE #) ; (SB!VM::START #) ; (SB!VM::PRINTED-CONSES #) ; (SB!VM::PAGES-SO-FAR 0) ; (SB!VM::COUNT-SO-FAR 0) ; (SB!VM::LAST-PAGE 0)) ; (DECLARE (TYPE # SB!VM::LAST-PAGE SB!VM::START) ; (FIXNUM SB!VM::PAGES-SO-FAR SB!VM::COUNT-SO-FAR ; SB!VM::PAGESIZE)) ; (LABELS (#) ; (SB!VM::MAP-ALLOCATED-OBJECTS # SPACE)))) ; (VALUES)) ; --> PROGN SB!INT:COLD-FSET MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20703 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEF!STRUCT (ROOM-INFO (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)) ; (SB!INT:DEF!STRUCT ; (SB!VM::ROOM-INFO (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)) ; (SB!VM::NAME NIL :TYPE SYMBOL) ; (SB!VM::KIND (SB!INT:MISSING-ARG) :TYPE ; (MEMBER :OTHER :SMALL-OTHER :CLOSURE :INSTANCE :LIST :CODE :VECTOR-NIL ; :WEAK-POINTER))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFUN INSTANCE-USAGE ; (SB!KERNEL:CLASSOID-PROPER-NAME SB!KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-PROPER-NAME ; in: DEFUN PRINT-ALLOCATED-OBJECTS ; (SB!C::COMPILED-DEBUG-INFO-NAME SB!VM::DINFO) ; ; caught STYLE-WARNING: ; undefined function: SB!C::COMPILED-DEBUG-INFO-NAME ; in: DEFUN REPORT-SPACE-TOTAL ; (MAPCAR #'FIRST SB!VM::TYPES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR #'SECOND SB!VM::TYPES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN PRINT-SUMMARY ; (MAPCAR #'CDR (SORT (SB!VM::SUMMARY-TOTALS) #'> :KEY #'CAR)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 1 more use of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/room.lisp ; in: DEFUN SPACE-BOUNDS ; (SB!KERNEL:CURRENT-DYNAMIC-SPACE-START) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-DYNAMIC-SPACE-START ; in: DEFUN MAP-STACK-REFERENCES ; (SB!DI::DESCRIPTOR-SAP SB!VM:*CONTROL-STACK-END*) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::DESCRIPTOR-SAP ; in: DEFUN INSTANCE-USAGE ; (SB!KERNEL:LAYOUT-CLASSOID (SB!KERNEL:%INSTANCE-REF SB!VM::OBJ 0)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN PRINT-ALLOCATED-OBJECTS ; (DEFUN SB!VM:PRINT-ALLOCATED-OBJECTS ; (SPACE ; &KEY (SB!VM::PERCENT 0) (SB!VM::PAGES 5) TYPE SB!VM::LARGER ; SB!VM::SMALLER COUNT (STREAM *STANDARD-OUTPUT*)) ; (DECLARE (TYPE (INTEGER 0 99) SB!VM::PERCENT) ; (TYPE SB!INT:INDEX SB!VM::PAGES) ; (TYPE STREAM STREAM) ; (TYPE SB!VM::SPACES SPACE) ; (TYPE (OR SB!INT:INDEX NULL) TYPE SB!VM::LARGER SB!VM::SMALLER ; COUNT)) ; (MULTIPLE-VALUE-BIND (SB!VM::START-SAP SB!VM::END-SAP) ; (SB!VM::SPACE-BOUNDS SPACE) ; (LET* ((SB!VM::SPACE-START #) ; (SB!VM::SPACE-END #) ; (SB!VM::SPACE-SIZE #) ; (SB!VM::PAGESIZE #) ; (SB!VM::START #) ; (SB!VM::PRINTED-CONSES #) ; (SB!VM::PAGES-SO-FAR 0) ; (SB!VM::COUNT-SO-FAR 0) ; (SB!VM::LAST-PAGE 0)) ; (DECLARE (TYPE # SB!VM::LAST-PAGE SB!VM::START) ; (FIXNUM SB!VM::PAGES-SO-FAR SB!VM::COUNT-SO-FAR ; SB!VM::PAGESIZE)) ; (LABELS (#) ; (SB!VM::MAP-ALLOCATED-OBJECTS # SPACE)))) ; (VALUES)) ; --> PROGN SB!INT:COLD-FSET MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20703 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN MAP-REFERENCING-OBJECTS ; (SB!KERNEL:LAYOUT-N-UNTAGGED-SLOTS (SB!KERNEL:%INSTANCE-LAYOUT SB!VM::OBJ)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-N-UNTAGGED-SLOTS ; in: DEFUN MAP-STACK-REFERENCES ; (SB!KERNEL:MAKE-LISP-OBJ (SB!SYS:SAP-REF-WORD SB!VM::SP 0) NIL) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LISP-OBJ ; in: DEFUN PRINT-ALLOCATED-OBJECTS ; (DEFUN SB!VM:PRINT-ALLOCATED-OBJECTS ; (SPACE ; &KEY (SB!VM::PERCENT 0) (SB!VM::PAGES 5) TYPE SB!VM::LARGER ; SB!VM::SMALLER COUNT (STREAM *STANDARD-OUTPUT*)) ; (DECLARE (TYPE (INTEGER 0 99) SB!VM::PERCENT) ; (TYPE SB!INT:INDEX SB!VM::PAGES) ; (TYPE STREAM STREAM) ; (TYPE SB!VM::SPACES SPACE) ; (TYPE (OR SB!INT:INDEX NULL) TYPE SB!VM::LARGER SB!VM::SMALLER ; COUNT)) ; (MULTIPLE-VALUE-BIND (SB!VM::START-SAP SB!VM::END-SAP) ; (SB!VM::SPACE-BOUNDS SPACE) ; (LET* ((SB!VM::SPACE-START #) ; (SB!VM::SPACE-END #) ; (SB!VM::SPACE-SIZE #) ; (SB!VM::PAGESIZE #) ; (SB!VM::START #) ; (SB!VM::PRINTED-CONSES #) ; (SB!VM::PAGES-SO-FAR 0) ; (SB!VM::COUNT-SO-FAR 0) ; (SB!VM::LAST-PAGE 0)) ; (DECLARE (TYPE # SB!VM::LAST-PAGE SB!VM::START) ; (FIXNUM SB!VM::PAGES-SO-FAR SB!VM::COUNT-SO-FAR ; SB!VM::PAGESIZE)) ; (LABELS (#) ; (SB!VM::MAP-ALLOCATED-OBJECTS # SPACE)))) ; (VALUES)) ; --> PROGN SB!INT:COLD-FSET MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20703 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES SB!ALIEN::%DEFINE-ALIEN-TYPE %FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::%TARGET-DEFSTRUCT CLASSOID-PROPER-NAME SB!C::COMPILED-DEBUG-INFO-NAME CURRENT-DYNAMIC-SPACE-START SB!DI::DESCRIPTOR-SAP LAYOUT-CLASSOID LAYOUT-INVALID LAYOUT-N-UNTAGGED-SLOTS MAKE-LISP-OBJ UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 17 STYLE-WARNING conditions ; printed 10 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/room.lisp-obj-tmp written ; compilation finished in 0:00:00.689 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/stream.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *TERMINAL-IO* ...) ; x-compiling (DEFVAR *STANDARD-INPUT* ...) ; x-compiling (DEFVAR *STANDARD-OUTPUT* ...) ; x-compiling (DEFVAR *ERROR-OUTPUT* ...) ; x-compiling (DEFVAR *QUERY-IO* ...) ; x-compiling (DEFVAR *TRACE-OUTPUT* ...) ; x-compiling (DEFVAR *DEBUG-IO* ...) ; x-compiling (DEFUN ILL-IN ...) ; x-compiling (DEFUN ILL-OUT ...) ; x-compiling (DEFUN ILL-BIN ...) ; x-compiling (DEFUN ILL-BOUT ...) ; x-compiling (DEFUN CLOSED-FLAME ...) ; x-compiling (DEFUN NO-OP-PLACEHOLDER ...) ; x-compiling (DEFUN ANSI-STREAM-INPUT-STREAM-P ...) ; x-compiling (DEFUN INPUT-STREAM-P ...) ; x-compiling (DEFUN ANSI-STREAM-OUTPUT-STREAM-P ...) ; x-compiling (DEFUN OUTPUT-STREAM-P ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-OPEN-STREAM-P)) ; x-compiling (DEFUN ANSI-STREAM-OPEN-STREAM-P ...) ; x-compiling (DEFUN OPEN-STREAM-P ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-ELEMENT-TYPE)) ; x-compiling (DEFUN ANSI-STREAM-ELEMENT-TYPE ...) ; x-compiling (DEFUN STREAM-ELEMENT-TYPE ...) ; x-compiling (DEFUN STREAM-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN INTERACTIVE-STREAM-P ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-CLOSE)) ; x-compiling (DEFUN ANSI-STREAM-CLOSE ...) ; x-compiling (DEFUN CLOSE ...) ; x-compiling (DEFUN SET-CLOSED-FLAME ...) ; x-compiling (DEFUN EXTERNAL-FORMAT-CHAR-SIZE ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-FILE-POSITION)) ; x-compiling (DEFUN ANSI-STREAM-FILE-POSITION ...) ; x-compiling (DEFUN FILE-POSITION ...) ; x-compiling (DEFUN STREAM-ASSOCIATED-WITH-FILE-P ...) ; x-compiling (DEFUN STREAM-MUST-BE-ASSOCIATED-WITH-FILE ...) ; x-compiling (DEFUN FILE-LENGTH ...) ; x-compiling (DEFUN FILE-STRING-LENGTH ...) ; x-compiling (DEFUN ANSI-STREAM-READ-LINE-FROM-FRC-BUFFER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/stream.lisp ; in: DEFUN ANSI-STREAM-READ-LINE-FROM-FRC-BUFFER ; (REPLACE SB!IMPL::RES SB!IMPL::%FRC-BUFFER% :START1 SB!IMPL::START :START2 ; SB!IMPL::%FRC-INDEX% :END2 SB!IMPL::POS) ; ==> ; SB!IMPL::RES ; ; note: deleting unreachable code ; (OR SB!IMPL::POS SB!IMPL::%FRC-INDEX%) ; --> LET IF OR THE ; ==> ; SB!IMPL::%FRC-INDEX% ; ; note: deleting unreachable code ; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-LINE)) ; x-compiling (DEFUN ANSI-STREAM-READ-LINE ...) ; x-compiling (DEFUN READ-LINE ...) ; x-compiling (DECLAIM (INLINE READ-CHAR ...)) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-CHAR)) ; x-compiling (DEFUN ANSI-STREAM-READ-CHAR ...) ; x-compiling (DEFUN READ-CHAR ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-UNREAD-CHAR)) ; x-compiling (DEFUN ANSI-STREAM-UNREAD-CHAR ...) ; x-compiling (DEFUN UNREAD-CHAR ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-LISTEN)) ; x-compiling (DEFUN ANSI-STREAM-LISTEN ...) ; x-compiling (DEFUN LISTEN ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-CHAR-NO-HANG)) ; x-compiling (DEFUN ANSI-STREAM-READ-CHAR-NO-HANG ...) ; x-compiling (DEFUN READ-CHAR-NO-HANG ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-CLEAR-INPUT)) ; x-compiling (DEFUN ANSI-STREAM-CLEAR-INPUT ...) ; x-compiling (DEFUN CLEAR-INPUT ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-BYTE)) ; x-compiling (DEFUN ANSI-STREAM-READ-BYTE ...) ; x-compiling (DEFUN READ-BYTE ...) ; x-compiling (DECLAIM (INLINE READ-N-BYTES)) ; x-compiling (DEFUN READ-N-BYTES ...) ; x-compiling (DEFUN ANSI-STREAM-READ-N-BYTES ...) ; x-compiling (DEFCONSTANT +ANSI-STREAM-IN-BUFFER-EXTRA+ ...) ; x-compiling (DEFUN FAST-READ-CHAR-REFILL ...) ; x-compiling (DEFUN FAST-READ-BYTE-REFILL ...) ; x-compiling (DEFUN WRITE-CHAR ...) ; x-compiling (DEFUN TERPRI ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-FRESH-LINE)) ; x-compiling (DEFUN ANSI-STREAM-FRESH-LINE ...) ; x-compiling (DEFUN FRESH-LINE ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-WRITE-STRING)) ; x-compiling (DEFUN ANSI-STREAM-WRITE-STRING ...) ; x-compiling (DEFUN %WRITE-STRING ...) ; x-compiling (DEFUN WRITE-STRING ...) ; x-compiling (DECLAIM (INLINE WRITE-STRING-NO-KEY)) ; x-compiling (DEFUN WRITE-STRING-NO-KEY ...) ; x-compiling (DEFUN WRITE-LINE ...) ; x-compiling (DEFUN CHARPOS ...) ; x-compiling (DEFUN LINE-LENGTH ...) ; x-compiling (DEFUN FINISH-OUTPUT ...) ; x-compiling (DEFUN FORCE-OUTPUT ...) ; x-compiling (DEFUN CLEAR-OUTPUT ...) ; x-compiling (DEFUN WRITE-BYTE ...) ; x-compiling (DECLAIM (NOTINLINE READ-CHAR ...)) ; x-compiling (DEFUN STREAM-MISC-DISPATCH ...) ; x-compiling (DEFSTRUCT (BROADCAST-STREAM # ...) ...) ; x-compiling (DEFUN MAKE-BROADCAST-STREAM ...) ; x-compiling (OUT-FUN BROADCAST-OUT ...) ; x-compiling (OUT-FUN BROADCAST-BOUT ...) ; x-compiling (OUT-FUN BROADCAST-SOUT ...) ; x-compiling (DEFUN BROADCAST-MISC ...) ; x-compiling (DEFSTRUCT (SYNONYM-STREAM # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (OUT-FUN SYNONYM-OUT ...) ; x-compiling (OUT-FUN SYNONYM-BOUT ...) ; x-compiling (OUT-FUN SYNONYM-SOUT ...) ; x-compiling (IN-FUN SYNONYM-IN ...) ; x-compiling (IN-FUN SYNONYM-BIN ...) ; x-compiling (IN-FUN SYNONYM-N-BIN ...) ; x-compiling (DEFUN SYNONYM-MISC ...) ; x-compiling (DEFSTRUCT (TWO-WAY-STREAM # ...) ...) ; x-compiling (DEFPRINTER (TWO-WAY-STREAM) ...) ; x-compiling (DEFUN MAKE-TWO-WAY-STREAM ...) ; x-compiling (OUT-FUN TWO-WAY-OUT ...) ; x-compiling (OUT-FUN TWO-WAY-BOUT ...) ; x-compiling (OUT-FUN TWO-WAY-SOUT ...) ; x-compiling (IN-FUN TWO-WAY-IN ...) ; x-compiling (IN-FUN TWO-WAY-BIN ...) ; x-compiling (IN-FUN TWO-WAY-N-BIN ...) ; x-compiling (DEFUN TWO-WAY-MISC ...) ; x-compiling (DEFSTRUCT (CONCATENATED-STREAM # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN MAKE-CONCATENATED-STREAM ...) ; x-compiling (IN-FUN CONCATENATED-IN ...) ; x-compiling (IN-FUN CONCATENATED-BIN ...) ; x-compiling (DEFUN CONCATENATED-N-BIN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/stream.lisp ; in: DEFUN CONCATENATED-N-BIN ; (SB!SYS:READ-N-BYTES STREAM SB!IMPL::BUFFER SB!IMPL::CURRENT-START ; SB!IMPL::REMAINING-BYTES NIL) ; --> BLOCK IF LET* SB!IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFUN CONCATENATED-MISC ...) ; x-compiling (DEFSTRUCT (ECHO-STREAM # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN MAKE-ECHO-STREAM ...) ; x-compiling (IN-FUN ECHO-IN ...) ; x-compiling (IN-FUN ECHO-BIN ...) ; x-compiling (DEFUN ECHO-N-BIN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/stream.lisp ; in: DEFUN ECHO-N-BIN ; (SB!SYS:READ-N-BYTES (ECHO-STREAM-INPUT-STREAM STREAM) SB!IMPL::BUFFER ; SB!IMPL::START SB!IMPL::NUMBYTES NIL) ; --> BLOCK IF LET* SB!IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFSTRUCT (STRING-INPUT-STREAM # ...) ...) ; x-compiling (DEFUN STRING-INCH ...) ; x-compiling (DEFUN STRING-BINCH ...) ; x-compiling (DEFUN STRING-STREAM-READ-N-BYTES ...) ; x-compiling (DEFUN STRING-IN-MISC ...) ; x-compiling (DEFUN MAKE-STRING-INPUT-STREAM ...) ; x-compiling (DEFPARAMETER *STRING-OUTPUT-STREAM-BUFFER-INITIAL-SIZE* ...) ; x-compiling (DEFSTRUCT (STRING-OUTPUT-STREAM # ...) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN STRING-OUTPUT-STREAM-NEW-BUFFER ...) ; x-compiling (DEFUN STRING-OUTPUT-STREAM-NEXT-BUFFER ...) ; x-compiling (DEFUN STRING-OUTPUT-STREAM-PREV-BUFFER ...) ; x-compiling (DEFUN STRING-OUCH ...) ; x-compiling (DEFUN STRING-SOUT ...) ; x-compiling (DEFUN SET-STRING-OUTPUT-STREAM-FILE-POSITION ...) ; x-compiling (DEFUN STRING-OUT-MISC ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/stream.lisp ; in: DEFUN STRING-OUT-MISC ; (+ SB!IMPL::BASE ; (IF SB!IMPL::POS ; (- SB!IMPL::POINTER SB!IMPL::POS 1) ; SB!IMPL::POINTER)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; (+ SB!IMPL::BASE SB!IMPL::POINTER) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; (LENGTH SB!IMPL::BUFFER) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL ; (SIMPLE-ARRAY CHARACTER ; (*))), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL (SIMPLE-ARRAY CHARACTER (*))), not a VECTOR. ; (+ SB!IMPL::BASE SB!IMPL::POINTER) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ SB!IMPL::BASE ; (IF SB!IMPL::POS ; (- SB!IMPL::POINTER SB!IMPL::POS 1) ; SB!IMPL::POINTER)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; x-compiling (DEFUN GET-OUTPUT-STREAM-STRING ...) ; x-compiling (DECLAIM (INLINE VECTOR-WITH-FILL-POINTER-P)) ; x-compiling (DEFUN VECTOR-WITH-FILL-POINTER-P ...) ; x-compiling (DEFTYPE STRING-WITH-FILL-POINTER ...) ; x-compiling (DEFSTRUCT (FILL-POINTER-OUTPUT-STREAM # ...) ...) ; x-compiling (DEFUN FILL-POINTER-OUCH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/stream.lisp ; in: DEFUN FILL-POINTER-OUCH ; (MAKE-STRING SB!IMPL::NEW-LENGTH :ELEMENT-TYPE 'CHARACTER) ; ==> ; SB!IMPL::NEW-LENGTH ; ; note: deleting unreachable code ; (MAKE-STRING SB!IMPL::NEW-LENGTH :ELEMENT-TYPE 'BASE-CHAR) ; ==> ; SB!IMPL::NEW-LENGTH ; ; note: deleting unreachable code ; x-compiling (DEFUN FILL-POINTER-SOUT ...) ; x-compiling (DEFUN FILL-POINTER-MISC ...) ; x-compiling (DEFSTRUCT (CASE-FROB-STREAM # ...) ...) ; x-compiling (DEFUN MAKE-CASE-FROB-STREAM ...) ; x-compiling (DEFUN CASE-FROB-MISC ...) ; x-compiling (DEFUN CASE-FROB-UPCASE-OUT ...) ; x-compiling (DEFUN CASE-FROB-UPCASE-SOUT ...) ; x-compiling (DEFUN CASE-FROB-DOWNCASE-OUT ...) ; x-compiling (DEFUN CASE-FROB-DOWNCASE-SOUT ...) ; x-compiling (DEFUN CASE-FROB-CAPITALIZE-OUT ...) ; x-compiling (DEFUN CASE-FROB-CAPITALIZE-SOUT ...) ; x-compiling (DEFUN CASE-FROB-CAPITALIZE-AUX-OUT ...) ; x-compiling (DEFUN CASE-FROB-CAPITALIZE-AUX-SOUT ...) ; x-compiling (DEFUN CASE-FROB-CAPITALIZE-FIRST-OUT ...) ; x-compiling (DEFUN CASE-FROB-CAPITALIZE-FIRST-SOUT ...) ; x-compiling (DEFUN READ-SEQUENCE ...) ; x-compiling (DECLAIM (INLINE COMPATIBLE-VECTOR-AND-STREAM-ELEMENT-TYPES-P)) ; x-compiling (DEFUN COMPATIBLE-VECTOR-AND-STREAM-ELEMENT-TYPES-P ...) ; x-compiling (DEFUN ANSI-STREAM-READ-SEQUENCE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/stream.lisp ; in: DEFUN ANSI-STREAM-READ-SEQUENCE ; (SB!SYS:READ-N-BYTES STREAM SB!IMPL::DATA SB!IMPL::OFFSET-START ; SB!IMPL::NUMBYTES NIL) ; --> BLOCK IF LET* SB!IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; --> BLOCK IF LET* + ; ==> ; SB!IMPL::NUMBYTES ; ; note: deleting unreachable code ; (DEFUN SB!IMPL::ANSI-STREAM-READ-SEQUENCE ; (SB!IMPL::SEQ STREAM SB!IMPL::START SB!IMPL::%END) ; (DECLARE (TYPE SEQUENCE SB!IMPL::SEQ) ; (TYPE SB!KERNEL:ANSI-STREAM STREAM) ; (TYPE SB!INT:INDEX SB!IMPL::START) ; (TYPE SB!KERNEL:SEQUENCE-END SB!IMPL::%END) ; (VALUES SB!INT:INDEX)) ; (LET ((SB!IMPL::END (OR SB!IMPL::%END #))) ; (DECLARE (TYPE SB!INT:INDEX SB!IMPL::END)) ; (ETYPECASE SB!IMPL::SEQ ; (LIST ; (LET # ; #)) ; (VECTOR ; (SB!KERNEL:WITH-ARRAY-DATA # ; #))))) ; --> PROGN SB!INT:COLD-FSET ; ==> ; (THE (VALUES (MOD 4611686018427387901) &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 4611686018427387901) &REST T). ; x-compiling (DEFUN ANSI-STREAM-READ-STRING-FROM-FRC-BUFFER ...) ; x-compiling (DEFUN WRITE-SEQUENCE ...) ; x-compiling (DEFUN ANSI-STREAM-WRITE-SEQUENCE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/stream.lisp ; in: DEFUN OPEN-STREAM-P ; (DEFUN OPEN-STREAM-P (STREAM) (SB!KERNEL:ANSI-STREAM-OPEN-STREAM-P STREAM)) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20879 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN OUTPUT-STREAM-P ; (DEFUN OUTPUT-STREAM-P (STREAM) ; (DECLARE (TYPE STREAM STREAM)) ; (AND (SB!IMPL::ANSI-STREAM-P STREAM) ; (SB!KERNEL:ANSI-STREAM-OUTPUT-STREAM-P STREAM))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20865 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN INPUT-STREAM-P ; (DEFUN INPUT-STREAM-P (STREAM) ; (DECLARE (TYPE STREAM STREAM)) ; (AND (SB!IMPL::ANSI-STREAM-P STREAM) ; (SB!KERNEL:ANSI-STREAM-INPUT-STREAM-P STREAM))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20850 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; ; caught STYLE-WARNING: ; 21 more uses of undefined function %FUNCALLABLE-INSTANCE-LAYOUT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/stream.lisp ; in: DEFSTRUCT TWO-WAY-STREAM ; (DEFSTRUCT ; (TWO-WAY-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!IMPL::IN #'SB!IMPL::TWO-WAY-IN) ; (SB!IMPL::BIN #'SB!IMPL::TWO-WAY-BIN) ; (SB!IMPL::N-BIN #'SB!IMPL::TWO-WAY-N-BIN) ; (SB!IMPL::OUT #'SB!IMPL::TWO-WAY-OUT) ; (SB!IMPL::BOUT #'SB!IMPL::TWO-WAY-BOUT) ; (SB!IMPL::SOUT #'SB!IMPL::TWO-WAY-SOUT) ; (SB!IMPL::MISC #'SB!IMPL::TWO-WAY-MISC)) ; (:CONSTRUCTOR SB!IMPL::%MAKE-TWO-WAY-STREAM ; (SB!IMPL::INPUT-STREAM SB!IMPL::OUTPUT-STREAM)) ; (:COPIER NIL)) ; (SB!IMPL::INPUT-STREAM (SB!INT:MISSING-ARG) :TYPE STREAM :READ-ONLY T) ; (SB!IMPL::OUTPUT-STREAM (SB!INT:MISSING-ARG) :TYPE STREAM :READ-ONLY T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT SYNONYM-STREAM ; (DEFSTRUCT ; (SYNONYM-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!IMPL::IN #'SB!IMPL::SYNONYM-IN) ; (SB!IMPL::BIN #'SB!IMPL::SYNONYM-BIN) ; (SB!IMPL::N-BIN #'SB!IMPL::SYNONYM-N-BIN) ; (SB!IMPL::OUT #'SB!IMPL::SYNONYM-OUT) ; (SB!IMPL::BOUT #'SB!IMPL::SYNONYM-BOUT) ; (SB!IMPL::SOUT #'SB!IMPL::SYNONYM-SOUT) ; (SB!IMPL::MISC #'SB!IMPL::SYNONYM-MISC)) ; (:CONSTRUCTOR MAKE-SYNONYM-STREAM (SYMBOL)) (:COPIER NIL)) ; (SYMBOL NIL :TYPE SYMBOL :READ-ONLY T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT BROADCAST-STREAM ; (DEFSTRUCT ; (BROADCAST-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!IMPL::OUT #'SB!IMPL::BROADCAST-OUT) ; (SB!IMPL::BOUT #'SB!IMPL::BROADCAST-BOUT) ; (SB!IMPL::SOUT #'SB!IMPL::BROADCAST-SOUT) ; (SB!IMPL::MISC #'SB!IMPL::BROADCAST-MISC)) ; (:CONSTRUCTOR SB!IMPL::%MAKE-BROADCAST-STREAM (&REST SB!IMPL::STREAMS)) ; (:COPIER NIL)) ; (SB!IMPL::STREAMS NIL :TYPE LIST :READ-ONLY T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 6 more uses of undefined function SB!KERNEL::%TARGET-DEFSTRUCT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/stream.lisp ; in: SETF (FDOCUMENTATION 'MAKE-STRING-OUTPUT-STREAM 'FUNCTION) ; (SETF (SB!KERNEL:FDOCUMENTATION 'MAKE-STRING-OUTPUT-STREAM 'FUNCTION) ; "Return an output stream which will accumulate all output given it for the ; benefit of the function GET-OUTPUT-STREAM-STRING.") ; --> LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW2261 ; 'MAKE-STRING-OUTPUT-STREAM 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFUN ANSI-STREAM-WRITE-SEQUENCE ; (SB!IMPL::BUFFER-OUTPUT STREAM SB!IMPL::DATA SB!IMPL::OFFSET-START ; SB!IMPL::OFFSET-END) ; ; caught STYLE-WARNING: ; undefined function: BUFFER-OUTPUT ; in: DEFUN STRING-STREAM-READ-N-BYTES ; (SB!SYS:WITH-PINNED-OBJECTS (STRING SB!IMPL::BUFFER) ; (SB!KERNEL:SYSTEM-AREA-UB8-COPY (SB!SYS:VECTOR-SAP STRING) SB!INT:INDEX ; (IF (TYPEP SB!IMPL::BUFFER 'SB!SYS:SYSTEM-AREA-POINTER) ; SB!IMPL::BUFFER ; (SB!SYS:VECTOR-SAP SB!IMPL::BUFFER)) ; SB!IMPL::START SB!IMPL::COPY)) ; ==> ; (FLET ((#:WITH-PINNED-OBJECTS-THUNK2028 () ; (PROGN ; (SB!KERNEL:SYSTEM-AREA-UB8-COPY # SB!INT:INDEX # SB!IMPL::START ; SB!IMPL::COPY)))) ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) ; (SB!INT:DX-LET ((#:G2026 STRING) (#:G2027 SB!IMPL::BUFFER)) ; (MULTIPLE-VALUE-PROG1 (#:WITH-PINNED-OBJECTS-THUNK2028) ; (SB!VM::TOUCH-OBJECT #:G2026) ; (SB!VM::TOUCH-OBJECT #:G2027)))) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN ANSI-STREAM-READ-N-BYTES ; (SB!KERNEL:%BYTE-BLT SB!IMPL::IN-BUFFER SB!INT:INDEX SB!IMPL::BUFFER ; SB!IMPL::START SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (SB!KERNEL:%BYTE-BLT SB!IMPL::IN-BUFFER SB!INT:INDEX SB!IMPL::BUFFER ; SB!IMPL::START (+ SB!IMPL::START SB!IMPL::NUMBYTES)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFSTRUCT ECHO-STREAM ; #'SB!IMPL::ECHO-MISC ; ; caught STYLE-WARNING: ; undefined function: ECHO-MISC ; in: DEFUN EXTERNAL-FORMAT-CHAR-SIZE ; (SB!IMPL::EF-CHAR-SIZE ; (SB!IMPL::GET-EXTERNAL-FORMAT SB!IMPL::EXTERNAL-FORMAT)) ; ; caught STYLE-WARNING: ; undefined function: EF-CHAR-SIZE ; in: DEFUN FILE-POSITION ; (SB!KERNEL:ANSI-STREAM-FILE-POSITION STREAM POSITION) ; --> BLOCK COND IF COND THE PROGN LET WHEN IF PROGN LET IF ; ==> ; (SB!IMPL::FD-STREAM-CHAR-SIZE STREAM) ; ; caught STYLE-WARNING: ; undefined function: FD-STREAM-CHAR-SIZE ; in: DEFUN ANSI-STREAM-FILE-POSITION ; (SB!IMPL::FD-STREAM-CHAR-SIZE STREAM) ; ; caught STYLE-WARNING: ; undefined function: FD-STREAM-CHAR-SIZE ; in: DEFUN ANSI-STREAM-WRITE-SEQUENCE ; (SB!SYS:FD-STREAM-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: FD-STREAM-P ; in: DEFUN FILE-POSITION ; (SB!KERNEL:ANSI-STREAM-FILE-POSITION STREAM POSITION) ; --> BLOCK COND IF COND THE PROGN LET WHEN IF PROGN LET IF ; ==> ; (SB!SYS:FD-STREAM-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: FD-STREAM-P ; in: DEFUN ANSI-STREAM-FILE-POSITION ; (SB!SYS:FD-STREAM-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: FD-STREAM-P ; in: DEFUN EXTERNAL-FORMAT-CHAR-SIZE ; (SB!IMPL::GET-EXTERNAL-FORMAT SB!IMPL::EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: GET-EXTERNAL-FORMAT ; in: DEFUN OPEN-STREAM-P ; (DEFUN OPEN-STREAM-P (STREAM) (SB!KERNEL:ANSI-STREAM-OPEN-STREAM-P STREAM)) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20879 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN OUTPUT-STREAM-P ; (DEFUN OUTPUT-STREAM-P (STREAM) ; (DECLARE (TYPE STREAM STREAM)) ; (AND (SB!IMPL::ANSI-STREAM-P STREAM) ; (SB!KERNEL:ANSI-STREAM-OUTPUT-STREAM-P STREAM))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20865 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN INPUT-STREAM-P ; (DEFUN INPUT-STREAM-P (STREAM) ; (DECLARE (TYPE STREAM STREAM)) ; (AND (SB!IMPL::ANSI-STREAM-P STREAM) ; (SB!KERNEL:ANSI-STREAM-INPUT-STREAM-P STREAM))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20850 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; ; caught STYLE-WARNING: ; 21 more uses of undefined function LAYOUT-INVALID ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/stream.lisp ; in: DEFUN FILE-POSITION ; (SB!GRAY:STREAM-FILE-POSITION STREAM POSITION) ; ; caught STYLE-WARNING: ; undefined function: STREAM-FILE-POSITION ; in: ; MACROLET ((IN-FUN (NAME FUN &REST ARGS) ; (BACKQ-LIST 'DEFUN NAME (BACKQ-CONS 'STREAM ARGS) ; (BACKQ-LIST* FUN '# ARGS)))) ; (SB!IMPL::IN-FUN SB!IMPL::TWO-WAY-N-BIN SB!SYS:READ-N-BYTES SB!IMPL::BUFFER ; SB!IMPL::START SB!IMPL::NUMBYTES SB!IMPL::EOF-ERROR-P) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!SYS:READ-N-BYTES BLOCK IF LET* ; ==> ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: STREAM-READ-SEQUENCE ; in: ; MACROLET ((IN-FUN (NAME FUN &REST ARGS) ; (BACKQ-LIST 'DEFUN NAME (BACKQ-CONS 'STREAM ARGS) '(DECLARE #) ; ...))) ; (SB!IMPL::IN-FUN SB!IMPL::SYNONYM-N-BIN SB!SYS:READ-N-BYTES SB!IMPL::BUFFER ; SB!IMPL::START SB!IMPL::NUMBYTES SB!IMPL::EOF-ERROR-P) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!SYS:READ-N-BYTES BLOCK IF LET* ; ==> ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: STREAM-READ-SEQUENCE ; in: DEFUN READ-N-BYTES ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: STREAM-READ-SEQUENCE ; ; caught STYLE-WARNING: ; 4 more uses of undefined function STREAM-READ-SEQUENCE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/stream.lisp ; in: DEFUN WRITE-SEQUENCE ; (SB!GRAY:STREAM-WRITE-SEQUENCE STREAM SB!IMPL::SEQ SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: STREAM-WRITE-SEQUENCE ; in: DEFUN ECHO-N-BIN ; (SB!EXT:STRING-TO-OCTETS (STRING CHAR) :EXTERNAL-FORMAT ; (STREAM-EXTERNAL-FORMAT (ECHO-STREAM-INPUT-STREAM STREAM))) ; ; caught STYLE-WARNING: ; undefined function: STRING-TO-OCTETS ; in: DEFUN OPEN-STREAM-P ; (DEFUN OPEN-STREAM-P (STREAM) (SB!KERNEL:ANSI-STREAM-OPEN-STREAM-P STREAM)) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20879 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN OUTPUT-STREAM-P ; (DEFUN OUTPUT-STREAM-P (STREAM) ; (DECLARE (TYPE STREAM STREAM)) ; (AND (SB!IMPL::ANSI-STREAM-P STREAM) ; (SB!KERNEL:ANSI-STREAM-OUTPUT-STREAM-P STREAM))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20865 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN INPUT-STREAM-P ; (DEFUN INPUT-STREAM-P (STREAM) ; (DECLARE (TYPE STREAM STREAM)) ; (AND (SB!IMPL::ANSI-STREAM-P STREAM) ; (SB!KERNEL:ANSI-STREAM-INPUT-STREAM-P STREAM))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT20850 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; 21 more uses of undefined function UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::%TARGET-DEFSTRUCT (SETF FDOCUMENTATION) BUFFER-OUTPUT ECHO-MISC EF-CHAR-SIZE FD-STREAM-CHAR-SIZE FD-STREAM-P GET-EXTERNAL-FORMAT LAYOUT-INVALID STREAM-FILE-POSITION STREAM-READ-SEQUENCE STREAM-WRITE-SEQUENCE STRING-TO-OCTETS UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 36 STYLE-WARNING conditions ; printed 15 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/stream.lisp-obj-tmp written ; compilation finished in 0:00:04.143 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/print.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *PRINT-READABLY* ...) ; x-compiling (DEFVAR *PRINT-ESCAPE* ...) ; x-compiling (DEFVAR *PRINT-PRETTY* ...) ; x-compiling (DEFVAR *PRINT-BASE* ...) ; x-compiling (DEFVAR *PRINT-RADIX* ...) ; x-compiling (DEFVAR *PRINT-LEVEL* ...) ; x-compiling (DEFVAR *PRINT-LENGTH* ...) ; x-compiling (DEFVAR *PRINT-CIRCLE* ...) ; x-compiling (DEFVAR *PRINT-CASE* ...) ; x-compiling (DEFVAR *PRINT-ARRAY* ...) ; x-compiling (DEFVAR *PRINT-GENSYM* ...) ; x-compiling (DEFVAR *PRINT-LINES* ...) ; x-compiling (DEFVAR *PRINT-RIGHT-MARGIN* ...) ; x-compiling (DEFVAR *PRINT-MISER-WIDTH* ...) ; x-compiling (DEFVAR *PRINT-PPRINT-DISPATCH*) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFVAR *SUPPRESS-PRINT-ERRORS* ...) ; x-compiling (DEFMACRO WITH-STANDARD-IO-SYNTAX ...) ; x-compiling (DEFGLOBAL *STANDARD-READTABLE* ...) ; x-compiling (DEFUN %WITH-STANDARD-IO-SYNTAX ...) ; x-compiling (DEFVAR *PRINTER-KEYWORD-VARIABLES* ...) ; x-compiling (DEFUN WRITE ...) ; x-compiling (DEFINE-COMPILER-MACRO WRITE ...) ; x-compiling (DEFUN PRIN1 ...) ; x-compiling (DEFUN PRINC ...) ; x-compiling (DEFUN PRINT ...) ; x-compiling (DEFUN PPRINT ...) ; x-compiling (DEFUN WRITE-TO-STRING ...) ; x-compiling (DEFINE-COMPILER-MACRO WRITE-TO-STRING ...) ; x-compiling (DEFUN PRIN1-TO-STRING ...) ; x-compiling (DEFUN PRINC-TO-STRING ...) ; x-compiling (DEFUN STRINGIFY-OBJECT ...) ; x-compiling (DEFUN PRINT-NOT-READABLE-ERROR ...) ; x-compiling (DEFUN %PRINT-UNREADABLE-OBJECT ...) ; x-compiling (DEFUN UNIQUELY-IDENTIFIED-BY-PRINT-P ...) ; x-compiling (DEFVAR *IN-PRINT-ERROR* ...) ; x-compiling (DEFUN OUTPUT-OBJECT ...) ; x-compiling (DEFVAR *PRINT-OBJECT-IS-DISABLED-P*) ; x-compiling (DEFUN OUTPUT-UGLY-OBJECT ...) ; x-compiling (DEFVAR *PREVIOUS-CASE* ...) ; x-compiling (DEFVAR *PREVIOUS-READTABLE-CASE* ...) ; x-compiling (DEFVAR *INTERNAL-SYMBOL-OUTPUT-FUN* ...) ; x-compiling (DEFUN SETUP-PRINTER-STATE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/print.lisp ; in: DEFUN SETUP-PRINTER-STATE ; (SETQ *PRINT-CASE* :UPCASE) ; ; note: deleting unreachable code ; x-compiling (DEFUN OUTPUT-QUOTED-SYMBOL-NAME ...) ; x-compiling (DEFUN OUTPUT-SYMBOL ...) ; x-compiling (DEFUN OUTPUT-SYMBOL-NAME ...) ; x-compiling (DEFVAR *CHARACTER-ATTRIBUTES* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFCONSTANT OTHER-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT NUMBER-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT UPPERCASE-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT LOWERCASE-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT SIGN-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT EXTENSION-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT DOT-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT SLASH-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT FUNNY-ATTRIBUTE ...) ; x-compiling (DEFPARAMETER *ATTRIBUTE-NAMES* ...) ; x-compiling (FLET (#) ...) ; x-compiling (DEFVAR *DIGIT-BASES* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DOTIMES (I 36) ...) ; x-compiling (DEFUN SYMBOL-QUOTEP ...) ; x-compiling (DEFUN OUTPUT-PRESERVE-SYMBOL ...) ; x-compiling (DEFUN OUTPUT-LOWERCASE-SYMBOL ...) ; x-compiling (DEFUN OUTPUT-UPPERCASE-SYMBOL ...) ; x-compiling (DEFUN OUTPUT-CAPITALIZE-SYMBOL ...) ; x-compiling (DEFUN OUTPUT-INVERT-SYMBOL ...) ; x-compiling (DEFUN OUTPUT-LIST ...) ; x-compiling (DEFUN OUTPUT-UNREADABLE-VECTOR-READABLY ...) ; x-compiling (DEFUN OUTPUT-VECTOR ...) ; x-compiling (DEFUN QUOTE-STRING ...) ; x-compiling (DEFUN ARRAY-READABLY-PRINTABLE-P ...) ; x-compiling (DEFUN OUTPUT-ARRAY ...) ; x-compiling (DEFUN OUTPUT-TERSE-ARRAY ...) ; x-compiling (DEFUN LISTIFY-ARRAY ...) ; x-compiling (DEFUN OUTPUT-UNREADABLE-ARRAY-READABLY ...) ; x-compiling (DEFUN OUTPUT-ARRAY-GUTS ...) ; x-compiling (DEFUN SUB-OUTPUT-ARRAY-GUTS ...) ; x-compiling (DEFUN PRINT-OBJECT ...) ; x-compiling (DEFUN %OUTPUT-RADIX ...) ; x-compiling (DEFUN %OUTPUT-REASONABLE-INTEGER-IN-BASE ...) ; x-compiling (DEFVAR *POWER-CACHE* ...) ; x-compiling (DEFCONSTANT +POWER-CACHE-INTEGER-LENGTH-LIMIT+ ...) ; x-compiling (DEFUN SCRUB-POWER-CACHE ...) ; x-compiling (DEFUN POWERS-FOR-BASE ...) ; x-compiling (DEFUN %OUTPUT-HUGE-INTEGER-IN-BASE ...) ; x-compiling (DEFUN %OUTPUT-INTEGER-IN-BASE ...) ; x-compiling (DEFUN OUTPUT-INTEGER ...) ; x-compiling (DEFUN OUTPUT-RATIO ...) ; x-compiling (DEFUN OUTPUT-COMPLEX ...) ; x-compiling (DEFUN FLONUM-TO-STRING ...) ; x-compiling (DEFCONSTANT SINGLE-FLOAT-MIN-E ...) ; x-compiling (DEFCONSTANT DOUBLE-FLOAT-MIN-E ...) ; x-compiling (DEFUN FLONUM-TO-DIGITS ...) ; x-compiling (DEFUN SCALE-EXPONENT ...) ; x-compiling (DEFUN PRINT-FLOAT-EXPONENT ...) ; x-compiling (DEFUN OUTPUT-FLOAT-INFINITY ...) ; x-compiling (DEFUN OUTPUT-FLOAT-NAN ...) ; x-compiling (DEFUN OUTPUT-FLOAT ...) ; x-compiling (DEFUN OUTPUT-FLOAT-AUX ...) ; x-compiling (DEFUN OUTPUT-CHARACTER ...) ; x-compiling (DEFUN OUTPUT-SAP ...) ; x-compiling (DEFUN OUTPUT-WEAK-POINTER ...) ; x-compiling (DEFUN OUTPUT-CODE-COMPONENT ...) ; x-compiling (DEFUN OUTPUT-LRA ...) ; x-compiling (DEFUN OUTPUT-FDEFN ...) ; x-compiling (DEFUN OUTPUT-SIMD-PACK ...) ; x-compiling (DEFUN PRINTED-AS-FUNCALLABLE-STANDARD-CLASS ...) ; x-compiling (DEFUN OUTPUT-FUN ...) ; x-compiling (DEFUN OUTPUT-RANDOM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/print.lisp ; in: DEFGLOBAL *STANDARD-READTABLE* ; (SB!EXT:DEFGLOBAL SB!IMPL::*STANDARD-READTABLE* NIL) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::*STANDARD-READTABLE* (UNLESS #:BOUNDP NIL) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFUN OUTPUT-FLOAT-INFINITY ; (DEFUN SB!IMPL::OUTPUT-FLOAT-INFINITY (SB!IMPL::X STREAM) ; (DECLARE (FLOAT SB!IMPL::X) ; (STREAM STREAM)) ; (COND (*READ-EVAL* (WRITE-STRING "#." STREAM)) ; (*PRINT-READABLY* ; (RETURN-FROM SB!IMPL::OUTPUT-FLOAT-INFINITY ; (SB!INT:PRINT-NOT-READABLE-ERROR SB!IMPL::X STREAM))) ; (T (WRITE-STRING "#<" STREAM))) ; (WRITE-STRING "SB-EXT:" STREAM) ; (WRITE-STRING (SYMBOL-NAME (SB!KERNEL:FLOAT-FORMAT-NAME SB!IMPL::X)) ; STREAM) ; (WRITE-STRING ; (IF (PLUSP SB!IMPL::X) ; "-POSITIVE-" ; "-NEGATIVE-") ; STREAM) ; (WRITE-STRING "INFINITY" STREAM) ; (UNLESS *READ-EVAL* (WRITE-STRING ">" STREAM))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT25117 'STREAM) ; ; 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 SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT25105 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN OUTPUT-UGLY-OBJECT ; (SB!KERNEL:LAYOUT-OF SB!IMPL::OBJECT) ; --> BLOCK COND IF COND IF PROGN ; ==> ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: SETF (FDOCUMENTATION '*PRINT-PPRINT-DISPATCH* 'VARIABLE) ; (SETF (SB!KERNEL:FDOCUMENTATION '*PRINT-PPRINT-DISPATCH* 'VARIABLE) ; "The pprint-dispatch-table that controls how to pretty-print objects.") ; --> LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW0 ; '*PRINT-PPRINT-DISPATCH* 'VARIABLE) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFUN SETUP-PRINTER-STATE ; (SETF (READTABLE-CASE *READTABLE*) :UPCASE) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF READTABLE-CASE) #:NEW423 #:*READTABLE*424) ; ; caught STYLE-WARNING: ; undefined function: (SETF READTABLE-CASE) ; in: DEFUN OUTPUT-OBJECT ; (WITH-SIMPLE-RESTART (CONTINUE "Suppress the error.") (SIGNAL CONDITION)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION CONDITION (LIST) 'SIMPLE-CONDITION 'SIGNAL) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN PRINT-NOT-READABLE-ERROR ; (RESTART-CASE (ERROR 'PRINT-NOT-READABLE :OBJECT SB!IMPL::OBJECT) ; (SB!EXT:PRINT-UNREADABLY NIL :REPORT "Print unreadably." ; (LET ((*PRINT-READABLY* NIL)) ; (SB!KERNEL:OUTPUT-OBJECT SB!IMPL::OBJECT STREAM) ; SB!IMPL::OBJECT)) ; (USE-VALUE (SB!IMPL::O) :REPORT "Supply an object to be printed instead." ; :INTERACTIVE ; (LAMBDA () ; (SB!INT:READ-EVALUATED-FORM ; "~@")) ; (SB!KERNEL:OUTPUT-OBJECT SB!IMPL::O STREAM) SB!IMPL::O)) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION 'PRINT-NOT-READABLE ; (LIST :OBJECT SB!IMPL::OBJECT) 'SIMPLE-ERROR ; 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN OUTPUT-CODE-COMPONENT ; (SB!C::DEBUG-INFO-NAME SB!IMPL::DINFO) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-INFO-NAME ; in: DEFUN PRINT-OBJECT => DEFAULT-STRUCTURE-PRINT INSTANCE ; (SB!KERNEL:DEFAULT-STRUCTURE-PRINT SB!KERNEL:INSTANCE STREAM ; SB!KERNEL:*CURRENT-LEVEL-IN-PRINT*) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-STRUCTURE-PRINT ; in: DEFUN OUTPUT-UGLY-OBJECT => DEFAULT-STRUCTURE-PRINT OBJECT ; (SB!KERNEL:DEFAULT-STRUCTURE-PRINT SB!IMPL::OBJECT STREAM ; SB!KERNEL:*CURRENT-LEVEL-IN-PRINT*) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-STRUCTURE-PRINT ; in: DEFUN %PRINT-UNREADABLE-OBJECT ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "#<" :SUFFIX ">") ; (SB!IMPL::PRINT-DESCRIPTION)) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET BLOCK SB!KERNEL:DESCEND-INTO ; --> FLET BLOCK LET ; ==> ; (SB!PRETTY::END-LOGICAL-BLOCK STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!PRETTY::END-LOGICAL-BLOCK ; in: DEFUN OUTPUT-SYMBOL ; (SB!IMPL::FIND-EXTERNAL-SYMBOL SB!IMPL::NAME PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: FIND-EXTERNAL-SYMBOL ; in: DEFUN OUTPUT-FLOAT-NAN ; (SB!KERNEL:FLOAT-FORMAT-NAME SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-FORMAT-NAME ; in: DEFUN OUTPUT-FLOAT-INFINITY ; (SB!KERNEL:FLOAT-FORMAT-NAME SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-FORMAT-NAME ; in: DEFUN %PRINT-UNREADABLE-OBJECT ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "#<" :SUFFIX ">") ; (SB!IMPL::PRINT-DESCRIPTION)) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK ; --> SB!C::%WITHIN-CLEANUP LET ; ==> ; (SB!PRETTY::FORCE-PRETTY-OUTPUT STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!PRETTY::FORCE-PRETTY-OUTPUT ; in: DEFUN OUTPUT-UGLY-OBJECT ; (SB!KERNEL:LAYOUT-CLASSOID (SB!KERNEL:LAYOUT-OF SB!IMPL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN OUTPUT-FLOAT-INFINITY ; (DEFUN SB!IMPL::OUTPUT-FLOAT-INFINITY (SB!IMPL::X STREAM) ; (DECLARE (FLOAT SB!IMPL::X) ; (STREAM STREAM)) ; (COND (*READ-EVAL* (WRITE-STRING "#." STREAM)) ; (*PRINT-READABLY* ; (RETURN-FROM SB!IMPL::OUTPUT-FLOAT-INFINITY ; (SB!INT:PRINT-NOT-READABLE-ERROR SB!IMPL::X STREAM))) ; (T (WRITE-STRING "#<" STREAM))) ; (WRITE-STRING "SB-EXT:" STREAM) ; (WRITE-STRING (SYMBOL-NAME (SB!KERNEL:FLOAT-FORMAT-NAME SB!IMPL::X)) ; STREAM) ; (WRITE-STRING ; (IF (PLUSP SB!IMPL::X) ; "-POSITIVE-" ; "-NEGATIVE-") ; STREAM) ; (WRITE-STRING "INFINITY" STREAM) ; (UNLESS *READ-EVAL* (WRITE-STRING ">" STREAM))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT25117 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN PRINT-FLOAT-EXPONENT ; (DEFUN SB!IMPL::PRINT-FLOAT-EXPONENT (SB!IMPL::X EXP STREAM) ; (DECLARE (TYPE FLOAT SB!IMPL::X) ; (TYPE INTEGER EXP) ; (TYPE STREAM STREAM)) ; (LET ((*PRINT-RADIX* NIL)) ; (IF (TYPEP SB!IMPL::X *READ-DEFAULT-FLOAT-FORMAT*) ; (UNLESS (EQL EXP 0) (FORMAT STREAM "e~D" EXP)) ; (FORMAT STREAM "~C~D" (ETYPECASE SB!IMPL::X # # # #) EXP)))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT25105 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN %PRINT-UNREADABLE-OBJECT ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "#<" :SUFFIX ">") ; (SB!IMPL::PRINT-DESCRIPTION)) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK ; --> SB!C::%WITHIN-CLEANUP LET ; ==> ; (SB!PRETTY::MAKE-PRETTY-STREAM STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!PRETTY::MAKE-PRETTY-STREAM ; in: DEFUN OUTPUT-OBJECT ; (SB!PRETTY:OUTPUT-PRETTY-OBJECT SB!IMPL::OBJECT STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!PRETTY:OUTPUT-PRETTY-OBJECT ; in: DEFUN OUTPUT-SYMBOL ; (SB!IMPL::PACKAGE-%LOCAL-NICKNAMES SB!IMPL::CURRENT) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-%LOCAL-NICKNAMES ; in: DEFUN %PRINT-UNREADABLE-OBJECT ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "#<" :SUFFIX ">") ; (SB!IMPL::PRINT-DESCRIPTION)) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET LET IF ; ==> ; (SB!PRETTY:PRETTY-STREAM-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!PRETTY:PRETTY-STREAM-P ; (SB!INT:PRINT-PRETTY-ON-STREAM-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: PRINT-PRETTY-ON-STREAM-P ; in: DEFUN OUTPUT-CAPITALIZE-SYMBOL ; (READTABLE-CASE *READTABLE*) ; ; caught STYLE-WARNING: ; undefined function: READTABLE-CASE ; in: DEFUN SYMBOL-QUOTEP ; (READTABLE-CASE *READTABLE*) ; ; caught STYLE-WARNING: ; undefined function: READTABLE-CASE ; in: DEFUN SETUP-PRINTER-STATE ; (READTABLE-CASE *READTABLE*) ; ; caught STYLE-WARNING: ; undefined function: READTABLE-CASE ; in: DEFUN %PRINT-UNREADABLE-OBJECT ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "#<" :SUFFIX ">") ; (SB!IMPL::PRINT-DESCRIPTION)) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET BLOCK SB!KERNEL:DESCEND-INTO ; --> FLET BLOCK LET ; ==> ; (SB!PRETTY::START-LOGICAL-BLOCK STREAM #:PREFIX-VAR362 NIL #:SUFFIX-VAR363) ; ; caught STYLE-WARNING: ; undefined function: SB!PRETTY::START-LOGICAL-BLOCK ; in: DEFVAR *DIGIT-BASES* ; (MAKE-ARRAY 128 :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :INITIAL-ELEMENT 36) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (128)) ; (SB!KERNEL:ALLOCATE-VECTOR 145 (THE SB!INT:INDEX LENGTH) ; 16)) ; (THE (UNSIGNED-BYTE 8) '36)) ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; in: DEFUN OUTPUT-FLOAT-INFINITY ; (DEFUN SB!IMPL::OUTPUT-FLOAT-INFINITY (SB!IMPL::X STREAM) ; (DECLARE (FLOAT SB!IMPL::X) ; (STREAM STREAM)) ; (COND (*READ-EVAL* (WRITE-STRING "#." STREAM)) ; (*PRINT-READABLY* ; (RETURN-FROM SB!IMPL::OUTPUT-FLOAT-INFINITY ; (SB!INT:PRINT-NOT-READABLE-ERROR SB!IMPL::X STREAM))) ; (T (WRITE-STRING "#<" STREAM))) ; (WRITE-STRING "SB-EXT:" STREAM) ; (WRITE-STRING (SYMBOL-NAME (SB!KERNEL:FLOAT-FORMAT-NAME SB!IMPL::X)) ; STREAM) ; (WRITE-STRING ; (IF (PLUSP SB!IMPL::X) ; "-POSITIVE-" ; "-NEGATIVE-") ; STREAM) ; (WRITE-STRING "INFINITY" STREAM) ; (UNLESS *READ-EVAL* (WRITE-STRING ">" STREAM))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT25117 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN PRINT-FLOAT-EXPONENT ; (DEFUN SB!IMPL::PRINT-FLOAT-EXPONENT (SB!IMPL::X EXP STREAM) ; (DECLARE (TYPE FLOAT SB!IMPL::X) ; (TYPE INTEGER EXP) ; (TYPE STREAM STREAM)) ; (LET ((*PRINT-RADIX* NIL)) ; (IF (TYPEP SB!IMPL::X *READ-DEFAULT-FLOAT-FORMAT*) ; (UNLESS (EQL EXP 0) (FORMAT STREAM "e~D" EXP)) ; (FORMAT STREAM "~C~D" (ETYPECASE SB!IMPL::X # # # #) EXP)))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT25105 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN OUTPUT-WEAK-POINTER ; (SB!EXT:WEAK-POINTER-VALUE SB!EXT:WEAK-POINTER) ; ; caught STYLE-WARNING: ; undefined function: WEAK-POINTER-VALUE ; ; compilation unit finished ; Undefined type: ; CONDITION ; Undefined functions: ; %DEFGLOBAL %FUNCALLABLE-INSTANCE-LAYOUT (SETF FDOCUMENTATION) (SETF READTABLE-CASE) SB!C::DEBUG-INFO-NAME DEFAULT-STRUCTURE-PRINT SB!PRETTY::END-LOGICAL-BLOCK FIND-EXTERNAL-SYMBOL FLOAT-FORMAT-NAME SB!PRETTY::FORCE-PRETTY-OUTPUT LAYOUT-CLASSOID LAYOUT-INVALID SB!PRETTY::MAKE-PRETTY-STREAM SB!PRETTY:OUTPUT-PRETTY-OBJECT PACKAGE-%LOCAL-NICKNAMES SB!PRETTY:PRETTY-STREAM-P PRINT-PRETTY-ON-STREAM-P READTABLE-CASE SB!PRETTY::START-LOGICAL-BLOCK UB8-BASH-FILL UPDATE-OBJECT-LAYOUT-OR-INVALID WEAK-POINTER-VALUE ; caught 32 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/print.lisp-obj-tmp written ; compilation finished in 0:00:01.811 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pprint.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!PRETTY") ; x-compiling (DEFTYPE COLUMN ...) ; x-compiling (DEFTYPE POSN ...) ; x-compiling (DEFCONSTANT INITIAL-BUFFER-SIZE ...) ; x-compiling (DEFCONSTANT DEFAULT-LINE-LENGTH ...) ; x-compiling (DEFSTRUCT (PRETTY-STREAM # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DECLAIM (INLINE INDEX-POSN ...)) ; x-compiling (DEFUN INDEX-POSN ...) ; x-compiling (DEFUN POSN-INDEX ...) ; x-compiling (DEFUN POSN-COLUMN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pprint.lisp ; in: DEFUN POSN-COLUMN ; (DEFUN SB!PRETTY::POSN-COLUMN (SB!PRETTY::POSN STREAM) ; (DECLARE (TYPE SB!PRETTY::POSN SB!PRETTY::POSN) ; (TYPE SB!PRETTY:PRETTY-STREAM STREAM) ; (VALUES SB!PRETTY::POSN)) ; (SB!PRETTY::INDEX-COLUMN (SB!PRETTY::POSN-INDEX SB!PRETTY::POSN STREAM) ; STREAM)) ; --> PROGN SB!INT:COLD-FSET ; ==> ; (THE (VALUES FIXNUM &REST T) ; (PROGN ; (BLOCK SB!PRETTY::POSN-COLUMN ; (SB!PRETTY::INDEX-COLUMN ; (SB!PRETTY::POSN-INDEX SB!PRETTY::POSN STREAM) STREAM)))) ; ; note: type assertion too complex to check: ; (VALUES FIXNUM &REST T). ; x-compiling (DEFUN PRINT-PRETTY-ON-STREAM-P ...) ; x-compiling (DEFUN PRETTY-OUT ...) ; x-compiling (DEFUN PRETTY-SOUT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pprint.lisp ; in: DEFUN PRETTY-SOUT ; (LOOP SB!PRETTY::FOR SB!PRETTY::I SB!PRETTY::FROM FILL-POINTER SB!PRETTY::BELOW SB!PRETTY::NEW-FILL-PTR ; SB!PRETTY::FOR SB!PRETTY::J SB!PRETTY::FROM SB!PRETTY::START ; SB!PRETTY::WITH ...) ; --> BLOCK LET ; ==> ; FILL-POINTER ; ; note: deleting unreachable code ; --> BLOCK LET LET ; ==> ; SB!PRETTY::START ; ; note: deleting unreachable code ; (SB!PRETTY::PRETTY-STREAM-BUFFER STREAM) ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; STREAM ; ; note: deleting unreachable code ; (LOOP SB!PRETTY::FOR SB!PRETTY::I SB!PRETTY::FROM FILL-POINTER SB!PRETTY::BELOW SB!PRETTY::NEW-FILL-PTR ; SB!PRETTY::FOR SB!PRETTY::J SB!PRETTY::FROM SB!PRETTY::START ; SB!PRETTY::WITH ...) ; --> BLOCK LET LET LET SB!LOOP::LOOP-BODY TAGBODY WHEN IF >= ; ==> ; SB!PRETTY::I ; ; note: deleting unreachable code ; --> BLOCK LET LET LET SB!LOOP::LOOP-BODY TAGBODY SB!LOOP::LOOP-REALLY-DESETQ ; --> SETQ THE 1+ + ; ==> ; SB!PRETTY::I ; ; note: deleting unreachable code ; ==> ; SB!PRETTY::J ; ; note: deleting unreachable code ; (SETF (AREF SB!PRETTY::TARGET SB!PRETTY::I) (AREF STRING SB!PRETTY::J)) ; --> LET* ; ==> ; SB!PRETTY::TARGET ; ; note: deleting unreachable code ; ==> ; SB!PRETTY::I ; ; note: deleting unreachable code ; (AREF STRING SB!PRETTY::J) ; ==> ; STRING ; ; note: deleting unreachable code ; (SB!PRETTY::PRETTY-STREAM-BUFFER STREAM) ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFUN PRETTY-MISC ...) ; x-compiling (DEFSTRUCT (LOGICAL-BLOCK #) ...) ; x-compiling (DEFUN REALLY-START-LOGICAL-BLOCK ...) ; x-compiling (DEFUN SET-INDENTATION ...) ; x-compiling (DEFUN REALLY-END-LOGICAL-BLOCK ...) ; x-compiling (DEFSTRUCT (QUEUED-OP # ...) ...) ; x-compiling (DEFMACRO ENQUEUE ...) ; x-compiling (DEFSTRUCT (SECTION-START # ...) ...) ; x-compiling (DEFSTRUCT (NEWLINE # ...) ...) ; x-compiling (DEFUN ENQUEUE-NEWLINE ...) ; x-compiling (DEFSTRUCT (INDENTATION # ...) ...) ; x-compiling (DEFUN ENQUEUE-INDENT ...) ; x-compiling (DEFSTRUCT (BLOCK-START # ...) ...) ; x-compiling (DEFUN START-LOGICAL-BLOCK ...) ; x-compiling (DEFSTRUCT (BLOCK-END # ...) ...) ; x-compiling (DEFUN END-LOGICAL-BLOCK ...) ; x-compiling (DEFSTRUCT (TAB # ...) ...) ; x-compiling (DEFUN ENQUEUE-TAB ...) ; x-compiling (DEFUN COMPUTE-TAB-SIZE ...) ; x-compiling (DEFUN INDEX-COLUMN ...) ; x-compiling (DEFUN EXPAND-TABS ...) ; x-compiling (DEFUN ENSURE-SPACE-IN-BUFFER ...) ; x-compiling (DEFUN MAYBE-OUTPUT ...) ; x-compiling (DEFUN MISERING-P ...) ; x-compiling (DEFUN FITS-ON-LINE-P ...) ; x-compiling (DEFUN OUTPUT-LINE ...) ; x-compiling (DEFUN OUTPUT-PARTIAL-LINE ...) ; x-compiling (DEFUN FORCE-PRETTY-OUTPUT ...) ; x-compiling (DEFUN PPRINT-NEWLINE ...) ; x-compiling (DEFUN PPRINT-INDENT ...) ; x-compiling (DEFUN PPRINT-TAB ...) ; x-compiling (DEFUN PPRINT-FILL ...) ; x-compiling (DEFUN PPRINT-LINEAR ...) ; x-compiling (DEFUN PPRINT-TABULAR ...) ; x-compiling (DEFVAR *STANDARD-PPRINT-DISPATCH-TABLE*) ; x-compiling (DEFVAR *INITIAL-PPRINT-DISPATCH-TABLE*) ; x-compiling (DEFVAR *BUILDING-INITIAL-TABLE* ...) ; x-compiling (DEFSTRUCT (PPRINT-DISPATCH-ENTRY #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN CONS-TYPE-SPECIFIER-P ...) ; x-compiling (DEFUN ENTRY< ...) ; x-compiling (DEFVAR *PRECOMPILED-PPRINT-DISPATCH-FUNS* ...) ; x-compiling (DEFUN COMPUTE-TEST-FN ...) ; x-compiling (DEFUN COPY-PPRINT-DISPATCH ...) ; x-compiling (DEFUN PPRINT-DISPATCH ...) ; x-compiling (DEFUN ASSERT-NOT-STANDARD-PPRINT-DISPATCH-TABLE ...) ; x-compiling (DEFUN SET-PPRINT-DISPATCH ...) ; x-compiling (DEFUN PPRINT-ARRAY ...) ; x-compiling (DEFUN PPRINT-VECTOR ...) ; x-compiling (DEFUN PPRINT-MULTI-DIM-ARRAY ...) ; x-compiling (DEFUN PPRINT-LAMBDA-LIST ...) ; x-compiling (DEFUN PPRINT-LAMBDA ...) ; x-compiling (DEFUN PPRINT-BLOCK ...) ; x-compiling (DEFUN PPRINT-FLET ...) ; x-compiling (DEFUN PPRINT-LET ...) ; x-compiling (DEFUN PPRINT-PROGN ...) ; x-compiling (DEFUN PPRINT-PROGV ...) ; x-compiling (DEFUN PPRINT-PROG2 ...) ; x-compiling (DEFVAR *PPRINT-QUOTE-WITH-SYNTACTIC-SUGAR* ...) ; x-compiling (DEFUN PPRINT-QUOTE ...) ; x-compiling (DEFUN PPRINT-DECLARE ...) ; x-compiling (DEFUN PPRINT-SETQ ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pprint.lisp ; in: DEFUN PPRINT-SETQ ; (PPRINT-LOGICAL-BLOCK (STREAM LIST :PREFIX "(" :SUFFIX ")") ; (PPRINT-EXIT-IF-LIST-EXHAUSTED) ; (SB!KERNEL:OUTPUT-OBJECT (PPRINT-POP) STREAM) ; (PPRINT-EXIT-IF-LIST-EXHAUSTED) ; (WRITE-CHAR #\ STREAM) ; (UNLESS (LISTP (CDR LIST)) (WRITE-STRING ". " STREAM)) ; (PPRINT-NEWLINE :MISER STREAM) ; (PPRINT-LOGICAL-BLOCK (STREAM (CDR LIST) :PREFIX "" :SUFFIX "") ; (LOOP (PPRINT-INDENT :BLOCK 2 STREAM) ; (SB!KERNEL:OUTPUT-OBJECT (PPRINT-POP) STREAM) ; (PPRINT-EXIT-IF-LIST-EXHAUSTED) ; (WRITE-CHAR #\ STREAM) ; (PPRINT-NEWLINE :FILL STREAM) ; (PPRINT-INDENT :BLOCK 0 STREAM) ; (SB!KERNEL:OUTPUT-OBJECT (PPRINT-POP) STREAM) ; (PPRINT-EXIT-IF-LIST-EXHAUSTED) ; (WRITE-CHAR #\ STREAM) ; (PPRINT-NEWLINE :MANDATORY STREAM)))) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF ; --> SB!KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB!KERNEL:DESCEND-INTO ; --> FLET BLOCK LET BLOCK FLET BLOCK WHEN IF PROGN WRITE-STRING ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFMACRO PPRINT-TAGBODY-GUTS ...) ; x-compiling (DEFUN PPRINT-TAGBODY ...) ; x-compiling (DEFUN PPRINT-CASE ...) ; x-compiling (DEFUN PPRINT-DEFUN ...) ; x-compiling (DEFUN PPRINT-DEFMETHOD ...) ; x-compiling (DEFUN PPRINT-DEFPACKAGE ...) ; x-compiling (DEFUN PPRINT-DESTRUCTURING-BIND ...) ; x-compiling (DEFUN PPRINT-DO ...) ; x-compiling (DEFUN PPRINT-DOLIST ...) ; x-compiling (DEFUN PPRINT-TYPECASE ...) ; x-compiling (DEFUN PPRINT-PROG ...) ; x-compiling (DEFVAR *LOOP-SEPERATING-CLAUSES* ...) ; x-compiling (DEFUN PPRINT-EXTENDED-LOOP ...) ; x-compiling (DEFUN PPRINT-LOOP ...) ; x-compiling (DEFUN PPRINT-IF ...) ; x-compiling (DEFUN PPRINT-FUN-CALL ...) ; x-compiling (DEFUN PPRINT-SPREAD-FUN-CALL ...) ; x-compiling (DEFUN PPRINT-DATA-LIST ...) ; x-compiling (DEFUN MACRO-INDENTATION ...) ; x-compiling (DEFUN PPRINT-MACRO-CALL ...) ; x-compiling (DEFUN OUTPUT-PRETTY-OBJECT ...) ; x-compiling (DEFUN MBOUNDP ...) ; x-compiling (DEFUN !PPRINT-COLD-INIT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pprint.lisp ; in: DEFUN !PPRINT-COLD-INIT ; (SB!IMPL::!BACKQ-PP-COLD-INIT) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::!BACKQ-PP-COLD-INIT ; in: DEFUN PPRINT-INDENT ; (DEFUN PPRINT-INDENT (SB!PRETTY::RELATIVE-TO SB!PRETTY::N &OPTIONAL STREAM) ; "Specify the indentation to use in the current logical block if ; STREAM (which defaults to *STANDARD-OUTPUT*) is 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 SB!C::%TYPEP-WRAPPER LET OR ; --> LET TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26502 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN PPRINT-NEWLINE ; (DEFUN PPRINT-NEWLINE (SB!PRETTY::KIND &OPTIONAL STREAM) ; "Output a conditional newline to STREAM (which defaults to ; *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do ; nothing if not. KIND can be one of: ; :LINEAR - A line break is inserted if and only if the immediately ; containing section cannot be printed on one line. ; :MISER - Same as LINEAR, but only if ``miser-style'' is in effect. ; (See *PRINT-MISER-WIDTH*.) ; :FILL - A line break is inserted if and only if either: ; (a) the following section cannot be printed on the end of the ; current line, ; (b) the preceding section was not printed on a single line, or ; (c) the immediately containing section cannot be printed on one ; line and miser-style is in effect. ; :MANDATORY - A line break is always inserted. ; When a line break is inserted by any type of conditional newline, any ; blanks that immediately precede the conditional newline are omitted ; from the output and indentation is introduced at the beginning of the ; next line. (See PPRINT-INDENT.)" ; (DECLARE (TYPE (MEMBER :LINEAR :MISER :FILL :MANDATORY) SB!PRETTY::KIND) ; (TYPE (OR STREAM (MEMBER T NIL)) STREAM) ; (VALUES NULL)) ; (LET ((STREAM (CASE STREAM # # #))) ; (WHEN (SB!INT:PRINT-PRETTY-ON-STREAM-P STREAM) ; (SB!PRETTY::ENQUEUE-NEWLINE STREAM SB!PRETTY::KIND))) ; NIL) ; --> PROGN SB!INT:COLD-FSET COND IF COND IF PROGN SB!C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER LET OR ; --> LET TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26480 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFSTRUCT PRETTY-STREAM ; (DEFSTRUCT ; (SB!PRETTY:PRETTY-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!PRETTY::OUT #'SB!PRETTY::PRETTY-OUT) ; (SB!PRETTY::SOUT #'SB!PRETTY::PRETTY-SOUT) ; (SB!PRETTY::MISC #'SB!PRETTY::PRETTY-MISC)) ; (:CONSTRUCTOR SB!PRETTY::MAKE-PRETTY-STREAM (SB!PRETTY::TARGET)) ; (:COPIER NIL)) ; (SB!PRETTY::TARGET (SB!INT:MISSING-ARG) :TYPE STREAM) ; (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::CHAR-OUT-ONESHOT-HOOK NIL :TYPE (OR NULL FUNCTION)) ; (SB!PRETTY::BUFFER (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE ; (SIMPLE-ARRAY CHARACTER (*))) ; (SB!PRETTY::BUFFER-FILL-POINTER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::BUFFER-OFFSET 0 :TYPE SB!PRETTY::POSN) ; (SB!PRETTY::BUFFER-START-COLUMN ; (OR (SB!KERNEL:CHARPOS SB!PRETTY::TARGET) 0) :TYPE SB!PRETTY::COLUMN) ; (SB!PRETTY::LINE-NUMBER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::PRINT-LINES *PRINT-LINES* :TYPE (OR SB!INT:INDEX NULL) ; :READ-ONLY T) ; (SB!PRETTY::BLOCKS (LIST (SB!PRETTY::MAKE-LOGICAL-BLOCK)) :TYPE LIST) ; ...) ; --> PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK SETF SB!KERNEL:%INSTANCE-SET THE ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT25311 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; ; caught STYLE-WARNING: ; 4 more uses of undefined function %FUNCALLABLE-INSTANCE-LAYOUT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pprint.lisp ; in: DEFSTRUCT QUEUED-OP ; (DEFSTRUCT (SB!PRETTY::QUEUED-OP (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!PRETTY::POSN 0 :TYPE SB!PRETTY::POSN)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT LOGICAL-BLOCK ; (DEFSTRUCT (SB!PRETTY::LOGICAL-BLOCK (:COPIER NIL)) ; (SB!PRETTY::START-COLUMN 0 :TYPE SB!PRETTY::COLUMN) ; (SB!PRETTY::SECTION-COLUMN 0 :TYPE SB!PRETTY::COLUMN) ; (SB!PRETTY::PER-LINE-PREFIX-END 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::PREFIX-LENGTH 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::SUFFIX-LENGTH 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::SECTION-START-LINE 0 :TYPE SB!INT:INDEX)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT PRETTY-STREAM ; (DEFSTRUCT ; (SB!PRETTY:PRETTY-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!PRETTY::OUT #'SB!PRETTY::PRETTY-OUT) ; (SB!PRETTY::SOUT #'SB!PRETTY::PRETTY-SOUT) ; (SB!PRETTY::MISC #'SB!PRETTY::PRETTY-MISC)) ; (:CONSTRUCTOR SB!PRETTY::MAKE-PRETTY-STREAM (SB!PRETTY::TARGET)) ; (:COPIER NIL)) ; (SB!PRETTY::TARGET (SB!INT:MISSING-ARG) :TYPE STREAM) ; (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::CHAR-OUT-ONESHOT-HOOK NIL :TYPE (OR NULL FUNCTION)) ; (SB!PRETTY::BUFFER (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE ; (SIMPLE-ARRAY CHARACTER (*))) ; (SB!PRETTY::BUFFER-FILL-POINTER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::BUFFER-OFFSET 0 :TYPE SB!PRETTY::POSN) ; (SB!PRETTY::BUFFER-START-COLUMN ; (OR (SB!KERNEL:CHARPOS SB!PRETTY::TARGET) 0) :TYPE SB!PRETTY::COLUMN) ; (SB!PRETTY::LINE-NUMBER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::PRINT-LINES *PRINT-LINES* :TYPE (OR SB!INT:INDEX NULL) ; :READ-ONLY T) ; (SB!PRETTY::BLOCKS (LIST (SB!PRETTY::MAKE-LOGICAL-BLOCK)) :TYPE LIST) ; ...) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 7 more uses of undefined function SB!KERNEL::%TARGET-DEFSTRUCT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pprint.lisp ; in: DEFUN SET-PPRINT-DISPATCH ; (SETF (SB!PRETTY::PPRINT-DISPATCH-TABLE-ENTRIES SB!PRETTY::TABLE) LIST) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!PRETTY::PPRINT-DISPATCH-TABLE-ENTRIES) #:NEW2586 ; #:TABLE2587) ; ; caught STYLE-WARNING: ; undefined function: (SETF PPRINT-DISPATCH-TABLE-ENTRIES) ; in: DEFUN COMPUTE-TEST-FN ; (MAPCAR (LAMBDA (TYPE) (SB!PRETTY::COMPUTE-TEST-EXPR TYPE SB!PRETTY::OBJECT)) ; (CDR TYPE)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; 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 SB!C::%TYPEP-WRAPPER LET OR ; --> LET TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26502 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN PPRINT-NEWLINE ; (DEFUN PPRINT-NEWLINE (SB!PRETTY::KIND &OPTIONAL STREAM) ; "Output a conditional newline to STREAM (which defaults to ; *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do ; nothing if not. KIND can be one of: ; :LINEAR - A line break is inserted if and only if the immediately ; containing section cannot be printed on one line. ; :MISER - Same as LINEAR, but only if ``miser-style'' is in effect. ; (See *PRINT-MISER-WIDTH*.) ; :FILL - A line break is inserted if and only if either: ; (a) the following section cannot be printed on the end of the ; current line, ; (b) the preceding section was not printed on a single line, or ; (c) the immediately containing section cannot be printed on one ; line and miser-style is in effect. ; :MANDATORY - A line break is always inserted. ; When a line break is inserted by any type of conditional newline, any ; blanks that immediately precede the conditional newline are omitted ; from the output and indentation is introduced at the beginning of the ; next line. (See PPRINT-INDENT.)" ; (DECLARE (TYPE (MEMBER :LINEAR :MISER :FILL :MANDATORY) SB!PRETTY::KIND) ; (TYPE (OR STREAM (MEMBER T NIL)) STREAM) ; (VALUES NULL)) ; (LET ((STREAM (CASE STREAM # # #))) ; (WHEN (SB!INT:PRINT-PRETTY-ON-STREAM-P STREAM) ; (SB!PRETTY::ENQUEUE-NEWLINE STREAM SB!PRETTY::KIND))) ; NIL) ; --> PROGN SB!INT:COLD-FSET COND IF COND IF PROGN SB!C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER LET OR ; --> LET TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26480 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFSTRUCT PRETTY-STREAM ; (DEFSTRUCT ; (SB!PRETTY:PRETTY-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!PRETTY::OUT #'SB!PRETTY::PRETTY-OUT) ; (SB!PRETTY::SOUT #'SB!PRETTY::PRETTY-SOUT) ; (SB!PRETTY::MISC #'SB!PRETTY::PRETTY-MISC)) ; (:CONSTRUCTOR SB!PRETTY::MAKE-PRETTY-STREAM (SB!PRETTY::TARGET)) ; (:COPIER NIL)) ; (SB!PRETTY::TARGET (SB!INT:MISSING-ARG) :TYPE STREAM) ; (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::CHAR-OUT-ONESHOT-HOOK NIL :TYPE (OR NULL FUNCTION)) ; (SB!PRETTY::BUFFER (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE ; (SIMPLE-ARRAY CHARACTER (*))) ; (SB!PRETTY::BUFFER-FILL-POINTER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::BUFFER-OFFSET 0 :TYPE SB!PRETTY::POSN) ; (SB!PRETTY::BUFFER-START-COLUMN ; (OR (SB!KERNEL:CHARPOS SB!PRETTY::TARGET) 0) :TYPE SB!PRETTY::COLUMN) ; (SB!PRETTY::LINE-NUMBER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::PRINT-LINES *PRINT-LINES* :TYPE (OR SB!INT:INDEX NULL) ; :READ-ONLY T) ; (SB!PRETTY::BLOCKS (LIST (SB!PRETTY::MAKE-LOGICAL-BLOCK)) :TYPE LIST) ; ...) ; --> PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK SETF SB!KERNEL:%INSTANCE-SET THE ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT25311 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; ; caught STYLE-WARNING: ; 4 more uses of undefined function LAYOUT-INVALID ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pprint.lisp ; in: DEFUN !PPRINT-COLD-INIT ; (SB!PRETTY::MAKE-PPRINT-DISPATCH-TABLE) ; ; caught STYLE-WARNING: ; undefined function: MAKE-PPRINT-DISPATCH-TABLE ; in: DEFUN COPY-PPRINT-DISPATCH ; (SB!PRETTY::MAKE-PPRINT-DISPATCH-TABLE :ENTRIES ; (COPY-LIST ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-ENTRIES ; SB!PRETTY::ORIG))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-PPRINT-DISPATCH-TABLE ; in: DEFUN SET-PPRINT-DISPATCH ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-CONS-ENTRIES SB!PRETTY::TABLE) ; ; caught STYLE-WARNING: ; undefined function: PPRINT-DISPATCH-TABLE-CONS-ENTRIES ; in: DEFUN PPRINT-DISPATCH ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-CONS-ENTRIES SB!PRETTY::TABLE) ; ; caught STYLE-WARNING: ; undefined function: PPRINT-DISPATCH-TABLE-CONS-ENTRIES ; in: DEFUN COPY-PPRINT-DISPATCH ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-CONS-ENTRIES SB!PRETTY::ORIG) ; ; caught STYLE-WARNING: ; undefined function: PPRINT-DISPATCH-TABLE-CONS-ENTRIES ; in: DEFUN SET-PPRINT-DISPATCH ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-ENTRIES SB!PRETTY::TABLE) ; ; caught STYLE-WARNING: ; undefined function: PPRINT-DISPATCH-TABLE-ENTRIES ; in: DEFUN PPRINT-DISPATCH ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-ENTRIES SB!PRETTY::TABLE) ; ; caught STYLE-WARNING: ; undefined function: PPRINT-DISPATCH-TABLE-ENTRIES ; in: DEFUN COPY-PPRINT-DISPATCH ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-ENTRIES SB!PRETTY::ORIG) ; ; caught STYLE-WARNING: ; undefined function: PPRINT-DISPATCH-TABLE-ENTRIES ; in: DEFUN EXPAND-TABS ; (FILL SB!PRETTY::NEW-BUFFER #\ :START ; (- SB!PRETTY::DSTPOS SB!PRETTY::AMOUNT) :END SB!PRETTY::DSTPOS) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; in: DEFUN REALLY-END-LOGICAL-BLOCK ; (FILL (SB!PRETTY::PRETTY-STREAM-PREFIX STREAM) #\ :START ; SB!PRETTY::OLD-INDENT :END SB!PRETTY::NEW-INDENT) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; in: DEFUN SET-INDENTATION ; (FILL SB!PRETTY::PREFIX #\ :START SB!PRETTY::CURRENT :END SB!PRETTY::COLUMN) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; in: DEFUN PPRINT-INDENT ; (DEFUN PPRINT-INDENT (SB!PRETTY::RELATIVE-TO SB!PRETTY::N &OPTIONAL STREAM) ; "Specify the indentation to use in the current logical block if ; STREAM (which defaults to *STANDARD-OUTPUT*) is a pretty-printing ; stream and do nothing if not. (See PPRINT-LOGICAL-BLOCK.) N is the ; indentation to use (in ems, the width of an ``m'') and RELATIVE-TO can ; be either: ; ; :BLOCK - Indent relative to the column the current logical block ; started on. ; ; :CURRENT - Indent relative to the current column. ; ; The new indentation value does not take effect until the following ; line break." ; (DECLARE (TYPE (MEMBER :BLOCK :CURRENT) SB!PRETTY::RELATIVE-TO) ; (TYPE REAL SB!PRETTY::N) ; (TYPE (OR STREAM (MEMBER T NIL)) STREAM) ; (VALUES NULL)) ; (LET ((STREAM (CASE STREAM # # #))) ; (WHEN (SB!INT:PRINT-PRETTY-ON-STREAM-P STREAM) ; (SB!PRETTY::ENQUEUE-INDENT STREAM SB!PRETTY::RELATIVE-TO ; (TRUNCATE SB!PRETTY::N)))) ; NIL) ; --> PROGN SB!INT:COLD-FSET COND IF COND IF PROGN SB!C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER LET OR ; --> LET TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26502 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN PPRINT-NEWLINE ; (DEFUN PPRINT-NEWLINE (SB!PRETTY::KIND &OPTIONAL STREAM) ; "Output a conditional newline to STREAM (which defaults to ; *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do ; nothing if not. KIND can be one of: ; :LINEAR - A line break is inserted if and only if the immediately ; containing section cannot be printed on one line. ; :MISER - Same as LINEAR, but only if ``miser-style'' is in effect. ; (See *PRINT-MISER-WIDTH*.) ; :FILL - A line break is inserted if and only if either: ; (a) the following section cannot be printed on the end of the ; current line, ; (b) the preceding section was not printed on a single line, or ; (c) the immediately containing section cannot be printed on one ; line and miser-style is in effect. ; :MANDATORY - A line break is always inserted. ; When a line break is inserted by any type of conditional newline, any ; blanks that immediately precede the conditional newline are omitted ; from the output and indentation is introduced at the beginning of the ; next line. (See PPRINT-INDENT.)" ; (DECLARE (TYPE (MEMBER :LINEAR :MISER :FILL :MANDATORY) SB!PRETTY::KIND) ; (TYPE (OR STREAM (MEMBER T NIL)) STREAM) ; (VALUES NULL)) ; (LET ((STREAM (CASE STREAM # # #))) ; (WHEN (SB!INT:PRINT-PRETTY-ON-STREAM-P STREAM) ; (SB!PRETTY::ENQUEUE-NEWLINE STREAM SB!PRETTY::KIND))) ; NIL) ; --> PROGN SB!INT:COLD-FSET COND IF COND IF PROGN SB!C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER LET OR ; --> LET TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26480 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFSTRUCT PRETTY-STREAM ; (DEFSTRUCT ; (SB!PRETTY:PRETTY-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!PRETTY::OUT #'SB!PRETTY::PRETTY-OUT) ; (SB!PRETTY::SOUT #'SB!PRETTY::PRETTY-SOUT) ; (SB!PRETTY::MISC #'SB!PRETTY::PRETTY-MISC)) ; (:CONSTRUCTOR SB!PRETTY::MAKE-PRETTY-STREAM (SB!PRETTY::TARGET)) ; (:COPIER NIL)) ; (SB!PRETTY::TARGET (SB!INT:MISSING-ARG) :TYPE STREAM) ; (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::CHAR-OUT-ONESHOT-HOOK NIL :TYPE (OR NULL FUNCTION)) ; (SB!PRETTY::BUFFER (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE ; (SIMPLE-ARRAY CHARACTER (*))) ; (SB!PRETTY::BUFFER-FILL-POINTER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::BUFFER-OFFSET 0 :TYPE SB!PRETTY::POSN) ; (SB!PRETTY::BUFFER-START-COLUMN ; (OR (SB!KERNEL:CHARPOS SB!PRETTY::TARGET) 0) :TYPE SB!PRETTY::COLUMN) ; (SB!PRETTY::LINE-NUMBER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::PRINT-LINES *PRINT-LINES* :TYPE (OR SB!INT:INDEX NULL) ; :READ-ONLY T) ; (SB!PRETTY::BLOCKS (LIST (SB!PRETTY::MAKE-LOGICAL-BLOCK)) :TYPE LIST) ; ...) ; --> PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK SETF SB!KERNEL:%INSTANCE-SET THE ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT25311 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; 4 more uses of undefined function UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!IMPL::!BACKQ-PP-COLD-INIT %FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::%TARGET-DEFSTRUCT (SETF PPRINT-DISPATCH-TABLE-ENTRIES) LAYOUT-INVALID MAKE-PPRINT-DISPATCH-TABLE PPRINT-DISPATCH-TABLE-CONS-ENTRIES PPRINT-DISPATCH-TABLE-ENTRIES UB32-BASH-FILL UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 31 STYLE-WARNING conditions ; printed 12 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/pprint.lisp-obj-tmp written ; compilation finished in 0:00:02.718 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-format.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!FORMAT") ; x-compiling (DEFPARAMETER *FORMAT-WHITESPACE-CHARS* ...) ; x-compiling (DEFVAR *FORMAT-DIRECTIVE-EXPANDERS* ...) ; x-compiling (DEFVAR *FORMAT-DIRECTIVE-INTERPRETERS* ...) ; x-compiling (DEFVAR *DEFAULT-FORMAT-ERROR-CONTROL-STRING* ...) ; x-compiling (DEFVAR *DEFAULT-FORMAT-ERROR-OFFSET* ...) ; x-compiling (DEFVAR *UP-UP-AND-OUT-ALLOWED* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *LOGICAL-BLOCK-POPPER* ...) ; x-compiling (DEFVAR *EXPANDER-NEXT-ARG-MACRO* ...) ; x-compiling (DEFVAR *ONLY-SIMPLE-ARGS*) ; x-compiling (DEFVAR *ORIG-ARGS-AVAILABLE* ...) ; x-compiling (DEFVAR *SIMPLE-ARGS*) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-format.lisp-obj-tmp written ; compilation finished in 0:00:00.567 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-format.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!FORMAT") ; x-compiling (DEFUN FORMAT ...) ; x-compiling (DEFINE-COMPILER-MACRO FORMAT ...) ; x-compiling (DEFUN %FORMAT ...) ; x-compiling (DEFUN INTERPRET-DIRECTIVE-LIST ...) ; x-compiling (DEFUN FORMAT-WRITE-FIELD ...) ; x-compiling (DEFUN FORMAT-PRINC ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\A ...) ; x-compiling (DEFUN FORMAT-PRIN1 ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\S ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\C ...) ; x-compiling (DEFUN CHAR-PRINTING-P ...) ; x-compiling (DEFUN FORMAT-PRINT-NAMED-CHARACTER ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\W ...) ; x-compiling (DEFUN FORMAT-PRINT-INTEGER ...) ; x-compiling (DEFUN FORMAT-ADD-COMMAS ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\D ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\B ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\O ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\X ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\R ...) ; x-compiling (DEFPARAMETER *CARDINAL-ONES* ...) ; x-compiling (DEFPARAMETER *CARDINAL-TENS* ...) ; x-compiling (DEFPARAMETER *CARDINAL-TEENS* ...) ; x-compiling (DEFPARAMETER *CARDINAL-PERIODS* ...) ; x-compiling (DEFPARAMETER *ORDINAL-ONES* ...) ; x-compiling (DEFPARAMETER *ORDINAL-TENS* ...) ; x-compiling (DEFUN FORMAT-PRINT-SMALL-CARDINAL ...) ; x-compiling (DEFUN FORMAT-PRINT-CARDINAL ...) ; x-compiling (DEFUN FORMAT-PRINT-CARDINAL-AUX ...) ; x-compiling (DEFUN FORMAT-PRINT-ORDINAL ...) ; x-compiling (DEFUN FORMAT-PRINT-OLD-ROMAN ...) ; x-compiling (DEFUN FORMAT-PRINT-ROMAN ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\P ...) ; x-compiling (DEFUN DECIMAL-STRING ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\F ...) ; x-compiling (DEFUN FORMAT-FIXED ...) ; x-compiling (DEFUN FORMAT-FIXED-AUX ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\E ...) ; x-compiling (DEFUN FORMAT-EXPONENTIAL ...) ; x-compiling (DEFUN FORMAT-EXPONENT-MARKER ...) ; x-compiling (DEFUN FORMAT-EXP-AUX ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\G ...) ; x-compiling (DEFUN FORMAT-GENERAL ...) ; x-compiling (DEFUN FORMAT-GENERAL-AUX ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\$ ...) ; x-compiling (DEFUN FORMAT-DOLLARS ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\% ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\& ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\| ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\~ ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\Newline ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\T ...) ; x-compiling (DEFUN OUTPUT-SPACES ...) ; x-compiling (DEFUN FORMAT-RELATIVE-TAB ...) ; x-compiling (DEFUN FORMAT-ABSOLUTE-TAB ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\_ ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\I ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\* ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\? ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\( ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\) ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\[ ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\; ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\] ...) ; x-compiling (DEFVAR *OUTSIDE-ARGS*) ; x-compiling (DEF-FORMAT-INTERPRETER #\^ ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\{ ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\} ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\< ...) ; x-compiling (DEFUN INTERPRET-FORMAT-JUSTIFICATION ...) ; x-compiling (DEFUN FORMAT-JUSTIFICATION ...) ; x-compiling (DEFUN INTERPRET-FORMAT-LOGICAL-BLOCK ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\/ ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-format.lisp ; in: DEFUN FORMAT ; (ETYPECASE SB!FORMAT::DESTINATION ; (NULL ; (WITH-OUTPUT-TO-STRING (STREAM) ; (SB!FORMAT::%FORMAT STREAM SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS))) ; (STRING ; (WITH-OUTPUT-TO-STRING (STREAM SB!FORMAT::DESTINATION) ; (SB!FORMAT::%FORMAT STREAM SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS))) ; ((MEMBER T) ; (SB!FORMAT::%FORMAT *STANDARD-OUTPUT* SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS) ; NIL) ; (STREAM ; (SB!FORMAT::%FORMAT SB!FORMAT::DESTINATION SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS) ; NIL)) ; --> LET COND IF COND IF COND IF COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT27977 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS NIL SB!FORMAT::PARAMS ; (LET ((SB!FORMAT::ARG #)) ; (UNLESS (TYPEP SB!FORMAT::ARG 'CHARACTER) ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "~s is not of type CHARACTER." :ARGS #)) ; (COND (SB!FORMAT::COLONP #) (SB!FORMAT::ATSIGNP #) (T #))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN ; --> SB!FORMAT::%SET-FORMAT-DIRECTIVE-INTERPRETER ; ==> ; (SB!FORMAT::%SET-FORMAT-DIRECTIVE-INTERPRETER #\C ; #'SB!FORMAT::C-FORMAT-DIRECTIVE-INTERPRETER) ; ; caught STYLE-WARNING: ; undefined function: %SET-FORMAT-DIRECTIVE-INTERPRETER ; in: DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (COND ; (SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS (# # # #) SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRIN1 STREAM # SB!FORMAT::COLONP SB!FORMAT::ATSIGNP ; SB!FORMAT::MINCOL SB!FORMAT::COLINC SB!FORMAT::MINPAD ; SB!FORMAT::PADCHAR))) ; (SB!FORMAT::COLONP ; (LET (#) ; (IF SB!FORMAT::ARG ; # ; #))) ; (T (PRIN1 (SB!FORMAT::NEXT-ARG) STREAM)))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN ; --> SB!FORMAT::%SET-FORMAT-DIRECTIVE-INTERPRETER ; ==> ; (SB!FORMAT::%SET-FORMAT-DIRECTIVE-INTERPRETER #\S ; #'SB!FORMAT::S-FORMAT-DIRECTIVE-INTERPRETER) ; ; caught STYLE-WARNING: ; undefined function: %SET-FORMAT-DIRECTIVE-INTERPRETER ; in: DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (IF SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS ; ((SB!FORMAT::MINCOL 0) (SB!FORMAT::COLINC 1) (SB!FORMAT::MINPAD 0) ; (SB!FORMAT::PADCHAR #\ )) ; SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRINC STREAM (SB!FORMAT::NEXT-ARG) SB!FORMAT::COLONP ; SB!FORMAT::ATSIGNP SB!FORMAT::MINCOL SB!FORMAT::COLINC ; SB!FORMAT::MINPAD SB!FORMAT::PADCHAR)) ; (PRINC ; (IF SB!FORMAT::COLONP ; (OR # "()") ; (SB!FORMAT::NEXT-ARG)) ; STREAM))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN ; --> SB!FORMAT::%SET-FORMAT-DIRECTIVE-INTERPRETER ; ==> ; (SB!FORMAT::%SET-FORMAT-DIRECTIVE-INTERPRETER #\A ; #'SB!FORMAT::A-FORMAT-DIRECTIVE-INTERPRETER) ; ; caught STYLE-WARNING: ; undefined function: %SET-FORMAT-DIRECTIVE-INTERPRETER ; ; caught STYLE-WARNING: ; 31 more uses of undefined function %SET-FORMAT-DIRECTIVE-INTERPRETER ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-format.lisp ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\< ; (MAPCAR ; (LAMBDA (SB!FORMAT::X) ; (COUNT-IF #'SB!FORMAT::ILLEGAL-INSIDE-JUSTIFICATION-P SB!FORMAT::X)) ; SB!FORMAT::SEGMENTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN FORMAT-PRINT-INTEGER ; (CONCATENATE 'STRING "+" SB!FORMAT::COMMAED) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (CONCATENATE 'STRING "-" SB!FORMAT::COMMAED) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEF-FORMAT-INTERPRETER #\/ ; (SB!FORMAT::EXTRACT-USER-FUN-NAME STRING SB!FORMAT::START SB!FORMAT::END) ; ; caught STYLE-WARNING: ; undefined function: EXTRACT-USER-FUN-NAME ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\{ ; (SB!FORMAT::FIND-DIRECTIVE SB!FORMAT::DIRECTIVES #\} NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-DIRECTIVE ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\( ; (SB!FORMAT::FIND-DIRECTIVE SB!FORMAT::DIRECTIVES #\) NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-DIRECTIVE ; in: DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS NIL SB!FORMAT::PARAMS ; (LET ((SB!FORMAT::ARG #)) ; (UNLESS (TYPEP SB!FORMAT::ARG 'CHARACTER) ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "~s is not of type CHARACTER." :ARGS #)) ; (COND (SB!FORMAT::COLONP #) (SB!FORMAT::ATSIGNP #) (T #))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP #:DIRECTIVE134) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-ATSIGNP ; in: DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (COND ; (SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS (# # # #) SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRIN1 STREAM # SB!FORMAT::COLONP SB!FORMAT::ATSIGNP ; SB!FORMAT::MINCOL SB!FORMAT::COLINC SB!FORMAT::MINPAD ; SB!FORMAT::PADCHAR))) ; (SB!FORMAT::COLONP ; (LET (#) ; (IF SB!FORMAT::ARG ; # ; #))) ; (T (PRIN1 (SB!FORMAT::NEXT-ARG) STREAM)))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP #:DIRECTIVE114) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-ATSIGNP ; in: DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (IF SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS ; ((SB!FORMAT::MINCOL 0) (SB!FORMAT::COLINC 1) (SB!FORMAT::MINPAD 0) ; (SB!FORMAT::PADCHAR #\ )) ; SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRINC STREAM (SB!FORMAT::NEXT-ARG) SB!FORMAT::COLONP ; SB!FORMAT::ATSIGNP SB!FORMAT::MINCOL SB!FORMAT::COLINC ; SB!FORMAT::MINPAD SB!FORMAT::PADCHAR)) ; (PRINC ; (IF SB!FORMAT::COLONP ; (OR # "()") ; (SB!FORMAT::NEXT-ARG)) ; STREAM))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP #:DIRECTIVE86) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-ATSIGNP ; ; caught STYLE-WARNING: ; 27 more uses of undefined function FORMAT-DIRECTIVE-ATSIGNP ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-format.lisp ; in: DEFUN INTERPRET-DIRECTIVE-LIST ; (SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!FORMAT::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-CHARACTER ; in: DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS NIL SB!FORMAT::PARAMS ; (LET ((SB!FORMAT::ARG #)) ; (UNLESS (TYPEP SB!FORMAT::ARG 'CHARACTER) ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "~s is not of type CHARACTER." :ARGS #)) ; (COND (SB!FORMAT::COLONP #) (SB!FORMAT::ATSIGNP #) (T #))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-COLONP #:DIRECTIVE134) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-COLONP ; in: DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (COND ; (SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS (# # # #) SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRIN1 STREAM # SB!FORMAT::COLONP SB!FORMAT::ATSIGNP ; SB!FORMAT::MINCOL SB!FORMAT::COLINC SB!FORMAT::MINPAD ; SB!FORMAT::PADCHAR))) ; (SB!FORMAT::COLONP ; (LET (#) ; (IF SB!FORMAT::ARG ; # ; #))) ; (T (PRIN1 (SB!FORMAT::NEXT-ARG) STREAM)))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-COLONP #:DIRECTIVE114) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-COLONP ; in: DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (IF SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS ; ((SB!FORMAT::MINCOL 0) (SB!FORMAT::COLINC 1) (SB!FORMAT::MINPAD 0) ; (SB!FORMAT::PADCHAR #\ )) ; SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRINC STREAM (SB!FORMAT::NEXT-ARG) SB!FORMAT::COLONP ; SB!FORMAT::ATSIGNP SB!FORMAT::MINCOL SB!FORMAT::COLINC ; SB!FORMAT::MINPAD SB!FORMAT::PADCHAR)) ; (PRINC ; (IF SB!FORMAT::COLONP ; (OR # "()") ; (SB!FORMAT::NEXT-ARG)) ; STREAM))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-COLONP #:DIRECTIVE86) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-COLONP ; ; caught STYLE-WARNING: ; 28 more uses of undefined function FORMAT-DIRECTIVE-COLONP ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-format.lisp ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\{ ; (SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER #\{ ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS STRING ; SB!FORMAT::END SB!FORMAT::DIRECTIVES) ; (LET ((CLOSE (SB!FORMAT::FIND-DIRECTIVE SB!FORMAT::DIRECTIVES #\} NIL))) ; (UNLESS CLOSE ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "no corresponding close brace")) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS ((SB!FORMAT::MAX-COUNT NIL)) ; SB!FORMAT::PARAMS ; (LET* (# # # #) ; (LABELS # ; # ; #))))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-END #:DIRECTIVE1052) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-END ; in: DEF-FORMAT-INTERPRETER #\? ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\? ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS STRING ; SB!FORMAT::END) ; (WHEN SB!FORMAT::COLONP ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "cannot specify the colon modifier")) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS NIL SB!FORMAT::PARAMS ; (HANDLER-BIND ((SB!FORMAT:FORMAT-ERROR #)) ; (IF SB!FORMAT::ATSIGNP ; (SETF #) ; (SB!FORMAT::%FORMAT STREAM # #))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-END #:DIRECTIVE970) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-END ; in: DEFUN INTERPRET-DIRECTIVE-LIST ; (SB!FORMAT::FORMAT-DIRECTIVE-END SB!FORMAT::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-END ; ; caught STYLE-WARNING: ; 2 more uses of undefined function FORMAT-DIRECTIVE-END ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-format.lisp ; in: DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS NIL SB!FORMAT::PARAMS ; (LET ((SB!FORMAT::ARG #)) ; (UNLESS (TYPEP SB!FORMAT::ARG 'CHARACTER) ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "~s is not of type CHARACTER." :ARGS #)) ; (COND (SB!FORMAT::COLONP #) (SB!FORMAT::ATSIGNP #) (T #))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS #:DIRECTIVE134) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-PARAMS ; in: DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (COND ; (SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS (# # # #) SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRIN1 STREAM # SB!FORMAT::COLONP SB!FORMAT::ATSIGNP ; SB!FORMAT::MINCOL SB!FORMAT::COLINC SB!FORMAT::MINPAD ; SB!FORMAT::PADCHAR))) ; (SB!FORMAT::COLONP ; (LET (#) ; (IF SB!FORMAT::ARG ; # ; #))) ; (T (PRIN1 (SB!FORMAT::NEXT-ARG) STREAM)))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS #:DIRECTIVE114) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-PARAMS ; in: DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (IF SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS ; ((SB!FORMAT::MINCOL 0) (SB!FORMAT::COLINC 1) (SB!FORMAT::MINPAD 0) ; (SB!FORMAT::PADCHAR #\ )) ; SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRINC STREAM (SB!FORMAT::NEXT-ARG) SB!FORMAT::COLONP ; SB!FORMAT::ATSIGNP SB!FORMAT::MINCOL SB!FORMAT::COLINC ; SB!FORMAT::MINPAD SB!FORMAT::PADCHAR)) ; (PRINC ; (IF SB!FORMAT::COLONP ; (OR # "()") ; (SB!FORMAT::NEXT-ARG)) ; STREAM))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS #:DIRECTIVE86) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-PARAMS ; ; caught STYLE-WARNING: ; 28 more uses of undefined function FORMAT-DIRECTIVE-PARAMS ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-format.lisp ; in: DEF-FORMAT-INTERPRETER #\/ ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\/ ; (STRING SB!FORMAT::START SB!FORMAT::END SB!FORMAT::COLONP SB!FORMAT::ATSIGNP ; SB!FORMAT::PARAMS) ; (LET ((SYMBOL ; (SB!FORMAT::EXTRACT-USER-FUN-NAME STRING SB!FORMAT::START ; SB!FORMAT::END))) ; (SB!INT:COLLECT ((SB!FORMAT::ARGS)) ; (DOLIST (SB!FORMAT::PARAM-AND-OFFSET SB!FORMAT::PARAMS) ; (LET # ; #)) ; (APPLY (FDEFINITION SYMBOL) STREAM (SB!FORMAT::NEXT-ARG) ; SB!FORMAT::COLONP SB!FORMAT::ATSIGNP (SB!FORMAT::ARGS))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-START #:DIRECTIVE1222) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-START ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\< ; (SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER #\< ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS STRING ; SB!FORMAT::END SB!FORMAT::DIRECTIVES) ; (MULTIPLE-VALUE-BIND ; (SB!FORMAT::SEGMENTS SB!FORMAT::FIRST-SEMI CLOSE SB!FORMAT::REMAINING) ; (SB!FORMAT::PARSE-FORMAT-JUSTIFICATION SB!FORMAT::DIRECTIVES) ; (SETF SB!FORMAT::ARGS ; (IF # ; # ; #)) ; SB!FORMAT::REMAINING)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-STRING #:DIRECTIVE1080) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-STRING ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\{ ; (SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER #\{ ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS STRING ; SB!FORMAT::END SB!FORMAT::DIRECTIVES) ; (LET ((CLOSE (SB!FORMAT::FIND-DIRECTIVE SB!FORMAT::DIRECTIVES #\} NIL))) ; (UNLESS CLOSE ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "no corresponding close brace")) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS ((SB!FORMAT::MAX-COUNT NIL)) ; SB!FORMAT::PARAMS ; (LET* (# # # #) ; (LABELS # ; # ; #))))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-STRING #:DIRECTIVE1052) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-STRING ; in: DEF-FORMAT-INTERPRETER #\? ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\? ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS STRING ; SB!FORMAT::END) ; (WHEN SB!FORMAT::COLONP ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "cannot specify the colon modifier")) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS NIL SB!FORMAT::PARAMS ; (HANDLER-BIND ((SB!FORMAT:FORMAT-ERROR #)) ; (IF SB!FORMAT::ATSIGNP ; (SETF #) ; (SB!FORMAT::%FORMAT STREAM # #))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-STRING #:DIRECTIVE970) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-STRING ; ; caught STYLE-WARNING: ; 1 more use of undefined function FORMAT-DIRECTIVE-STRING ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-format.lisp ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\< ; #'SB!FORMAT::ILLEGAL-INSIDE-JUSTIFICATION-P ; ; caught STYLE-WARNING: ; undefined function: ILLEGAL-INSIDE-JUSTIFICATION-P ; in: DEFUN FORMAT ; (ETYPECASE SB!FORMAT::DESTINATION ; (NULL ; (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 LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT27977 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\[ ; (SB!FORMAT::PARSE-CONDITIONAL-DIRECTIVE SB!FORMAT::DIRECTIVES) ; ; caught STYLE-WARNING: ; undefined function: PARSE-CONDITIONAL-DIRECTIVE ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\< ; (SB!FORMAT::PARSE-FORMAT-JUSTIFICATION SB!FORMAT::DIRECTIVES) ; ; caught STYLE-WARNING: ; undefined function: PARSE-FORMAT-JUSTIFICATION ; (SB!FORMAT::PARSE-FORMAT-LOGICAL-BLOCK SB!FORMAT::SEGMENTS SB!FORMAT::COLONP ; SB!FORMAT::FIRST-SEMI CLOSE ; SB!FORMAT::PARAMS STRING ; SB!FORMAT::END) ; ; caught STYLE-WARNING: ; undefined function: PARSE-FORMAT-LOGICAL-BLOCK ; in: DEFUN %FORMAT ; (SB!FORMAT::TOKENIZE-CONTROL-STRING STRING) ; ; caught STYLE-WARNING: ; undefined function: TOKENIZE-CONTROL-STRING ; in: DEFUN FORMAT ; (ETYPECASE SB!FORMAT::DESTINATION ; (NULL ; (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 LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT27977 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT %SET-FORMAT-DIRECTIVE-INTERPRETER EXTRACT-USER-FUN-NAME FIND-DIRECTIVE FORMAT-DIRECTIVE-ATSIGNP FORMAT-DIRECTIVE-CHARACTER FORMAT-DIRECTIVE-COLONP FORMAT-DIRECTIVE-END FORMAT-DIRECTIVE-PARAMS FORMAT-DIRECTIVE-START FORMAT-DIRECTIVE-STRING ILLEGAL-INSIDE-JUSTIFICATION-P LAYOUT-INVALID PARSE-CONDITIONAL-DIRECTIVE PARSE-FORMAT-JUSTIFICATION PARSE-FORMAT-LOGICAL-BLOCK TOKENIZE-CONTROL-STRING UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 40 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-format.lisp-obj-tmp written ; compilation finished in 0:00:02.007 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defpackage.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO DEFPACKAGE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defpackage.lisp ; in: DEFMACRO DEFPACKAGE ; (DEFMACRO DEFPACKAGE (PACKAGE &REST SB!IMPL::OPTIONS) ; "Defines a new package called PACKAGE. Each of OPTIONS should be one of the ; following: ; (USE {package-name}*) ; (EXPORT {symbol-name}*) ; (IMPORT-FROM {symbol-name}*) ; (SHADOW {symbol-name}*) ; (SHADOWING-IMPORT-FROM {symbol-name}*) ; (LOCAL-NICKNAMES {local-nickname actual-package-name}*) ; (LOCK boolean) ; (IMPLEMENT {package-name}*) ; (DOCUMENTATION doc-string) ; (INTERN {symbol-name}*) ; (SIZE ) ; (NICKNAMES {package-name}*) ; All options except SIZE, LOCK, and :DOCUMENTATION can be used multiple ; times." ; (LET ((SB!IMPL::NICKNAMES NIL) ; (SB!IMPL::LOCAL-NICKNAMES NIL) ; (SB!IMPL::SIZE NIL) ; (SB!IMPL::SHADOWS NIL) ; (SB!IMPL::SHADOWING-IMPORTS NIL) ; (SB!IMPL::USE NIL) ; (SB!IMPL::USE-P NIL) ; (SB!IMPL::IMPORTS NIL) ; (SB!IMPL::INTERNS NIL) ; (SB!IMPL::EXPORTS NIL) ; (SB!IMPL::IMPLEMENT (SB!IMPL::STRINGIFY-PACKAGE-DESIGNATORS #)) ; (SB!IMPL::IMPLEMENT-P NIL) ; ...) ; (DOLIST (SB!IMPL::OPTION SB!IMPL::OPTIONS) ; (UNLESS (CONSP SB!IMPL::OPTION) ; (ERROR 'SB!INT:SIMPLE-PROGRAM-ERROR :FORMAT-CONTROL ; "bogus DEFPACKAGE option: ~S" :FORMAT-ARGUMENTS #)) ; (CASE (CAR SB!IMPL::OPTION) ; (:NICKNAMES #) ; (:LOCAL-NICKNAMES #) ; (:SIZE #) ; (:SHADOW #) ; (:SHADOWING-IMPORT-FROM #) ; (:USE #) ; (:IMPORT-FROM #) ; (:INTERN #) ; (:EXPORT #) ; (:IMPLEMENT # #) ; ...)) ; (SB!IMPL::CHECK-DISJOINT (SB!IMPL::BACKQ-CONS ':INTERN SB!IMPL::INTERNS) ; (SB!IMPL::BACKQ-CONS ':EXPORT SB!IMPL::EXPORTS)) ; (SB!IMPL::CHECK-DISJOINT (SB!IMPL::BACKQ-CONS ':INTERN SB!IMPL::INTERNS) ; (SB!IMPL::BACKQ-CONS ':IMPORT-FROM (APPLY #'APPEND #)) ; (SB!IMPL::BACKQ-CONS ':SHADOW SB!IMPL::SHADOWS) ; (SB!IMPL::BACKQ-CONS ':SHADOWING-IMPORT-FROM (APPLY #'APPEND #))) ; (SB!IMPL::BACKQ-LIST 'EVAL-WHEN ; '(:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) ; (SB!IMPL::BACKQ-LIST* 'SB!IMPL::%DEFPACKAGE ; (SB!IMPL::STRINGIFY-STRING-DESIGNATOR ; PACKAGE) ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!IMPL::NICKNAMES) ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!IMPL::SIZE) ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!IMPL::SHADOWS) ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!IMPL::SHADOWING-IMPORTS) ; (SB!IMPL::BACKQ-LIST 'QUOTE #) ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!IMPL::IMPORTS) ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!IMPL::INTERNS) ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!IMPL::EXPORTS) ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!IMPL::IMPLEMENT) ; ...)))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFMACRO 'DEFPACKAGE ; #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.) ; (DECLARE (IGNORE #:.ENVIRONMENT.)) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# #) ; (BLOCK DEFPACKAGE #)))) ; '(PACKAGE &REST SB!IMPL::OPTIONS) ; "Defines a new package called PACKAGE. Each of OPTIONS should be one of the ; following: ; (USE {package-name}*) ; (EXPORT {symbol-name}*) ; (IMPORT-FROM {symbol-name}*) ; (SHADOW {symbol-name}*) ; (SHADOWING-IMPORT-FROM {symbol-name}*) ; (LOCAL-NICKNAMES {local-nickname actual-package-name}*) ; (LOCK boolean) ; (IMPLEMENT {package-name}*) ; (DOCUMENTATION doc-string) ; (INTERN {symbol-name}*) ; (SIZE ) ; (NICKNAMES {package-name}*) ; All options except SIZE, LOCK, and :DOCUMENTATION can be used multiple ; times." ; '(MACRO-FUNCTION DEFPACKAGE) (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: CHECK-DISJOINT ; ; caught STYLE-WARNING: ; undefined function: STRINGIFY-PACKAGE-DESIGNATOR ; ; caught STYLE-WARNING: ; undefined function: STRINGIFY-PACKAGE-DESIGNATORS ; ; caught STYLE-WARNING: ; undefined function: STRINGIFY-STRING-DESIGNATOR ; ; caught STYLE-WARNING: ; undefined function: STRINGIFY-STRING-DESIGNATORS ; x-compiling (DEFUN CHECK-DISJOINT ...) ; x-compiling (DEFUN STRINGIFY-STRING-DESIGNATOR ...) ; x-compiling (DEFUN STRINGIFY-STRING-DESIGNATORS ...) ; x-compiling (DEFUN STRINGIFY-PACKAGE-DESIGNATOR ...) ; x-compiling (DEFUN STRINGIFY-PACKAGE-DESIGNATORS ...) ; x-compiling (DEFUN IMPORT-LIST-SYMBOLS ...) ; x-compiling (DEFUN USE-LIST-PACKAGES ...) ; x-compiling (DEFUN UPDATE-PACKAGE ...) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *ON-PACKAGE-VARIANCE* ...) ; x-compiling (DEFUN NOTE-PACKAGE-VARIANCE ...) ; x-compiling (DEFUN UPDATE-PACKAGE-WITH-VARIANCE ...) ; x-compiling (DEFUN %DEFPACKAGE ...) ; x-compiling (DEFUN FIND-OR-MAKE-SYMBOL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defpackage.lisp ; in: DEFUN UPDATE-PACKAGE ; (SB!IMPL::%ENTER-NEW-NICKNAMES PACKAGE SB!IMPL::NICKNAMES) ; ; caught STYLE-WARNING: ; undefined function: %ENTER-NEW-NICKNAMES ; (SETF (SB!IMPL::PACKAGE-%LOCAL-NICKNAMES PACKAGE) NIL) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!IMPL::PACKAGE-%LOCAL-NICKNAMES) #:NEW140 ; #:PACKAGE141) ; ; caught STYLE-WARNING: ; undefined function: (SETF PACKAGE-%LOCAL-NICKNAMES) ; (SETF (SB!KERNEL:PACKAGE-DOC-STRING PACKAGE) SB!IMPL::DOC-STRING) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:PACKAGE-DOC-STRING) #:NEW132 #:PACKAGE133) ; ; caught STYLE-WARNING: ; undefined function: (SETF PACKAGE-DOC-STRING) ; (SETF (SB!IMPL::PACKAGE-LOCK PACKAGE) SB!IMPL::LOCK) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!IMPL::PACKAGE-LOCK) #:NEW136 #:PACKAGE137) ; ; caught STYLE-WARNING: ; undefined function: (SETF PACKAGE-LOCK) ; (SETF (SB!IMPL::PACKAGE-SOURCE-LOCATION PACKAGE) SB!IMPL::SOURCE-LOCATION) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!IMPL::PACKAGE-SOURCE-LOCATION) #:NEW124 ; #:PACKAGE125) ; ; caught STYLE-WARNING: ; undefined function: (SETF PACKAGE-SOURCE-LOCATION) ; (SB!EXT:ADD-IMPLEMENTATION-PACKAGE PACKAGE SB!IMPL::P) ; ; caught STYLE-WARNING: ; undefined function: ADD-IMPLEMENTATION-PACKAGE ; (SB!EXT:ADD-PACKAGE-LOCAL-NICKNAME (CAR SB!IMPL::SPEC) (CDR SB!IMPL::SPEC) ; PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: ADD-PACKAGE-LOCAL-NICKNAME ; in: DEFUN %DEFPACKAGE ; (SB!IMPL::WITH-PACKAGE-GRAPH NIL ; (LET* ((SB!IMPL::EXISTING-PACKAGE (FIND-PACKAGE SB!IMPL::NAME)) ; (SB!IMPL::USE ; (SB!IMPL::USE-LIST-PACKAGES SB!IMPL::EXISTING-PACKAGE SB!IMPL::USE)) ; (SB!IMPL::SHADOWING-IMPORTS ; (SB!IMPL::IMPORT-LIST-SYMBOLS SB!IMPL::SHADOWING-IMPORTS)) ; (SB!IMPL::IMPORTS (SB!IMPL::IMPORT-LIST-SYMBOLS SB!IMPL::IMPORTS))) ; (IF SB!IMPL::EXISTING-PACKAGE ; (SB!IMPL::UPDATE-PACKAGE-WITH-VARIANCE SB!IMPL::EXISTING-PACKAGE ; SB!IMPL::NAME SB!IMPL::NICKNAMES SB!IMPL::SOURCE-LOCATION ; SB!IMPL::SHADOWS SB!IMPL::SHADOWING-IMPORTS SB!IMPL::USE ; SB!IMPL::IMPORTS SB!IMPL::INTERNS SB!IMPL::EXPORTS SB!IMPL::IMPLEMENT ; ...) ; (LET (#) ; (SB!IMPL::UPDATE-PACKAGE PACKAGE SB!IMPL::NICKNAMES ; SB!IMPL::SOURCE-LOCATION SB!IMPL::SHADOWS ; SB!IMPL::SHADOWING-IMPORTS SB!IMPL::USE SB!IMPL::IMPORTS ; SB!IMPL::INTERNS SB!IMPL::EXPORTS SB!IMPL::IMPLEMENT ; SB!IMPL::LOCAL-NICKNAMES ...))))) ; --> FLET ; ==> ; (SB!IMPL::CALL-WITH-PACKAGE-GRAPH #'SB!IMPL::THUNK) ; ; caught STYLE-WARNING: ; undefined function: CALL-WITH-PACKAGE-GRAPH ; in: DEFMACRO DEFPACKAGE ; (MAPCAR #'REST SB!IMPL::SHADOWING-IMPORTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR #'REST SB!IMPL::IMPORTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR ; (LAMBDA (SB!IMPL::SPEC) ; (DESTRUCTURING-BIND ; (SB!IMPL::NICK SB!IMPL::NAME) ; SB!IMPL::SPEC ; (CONS (SB!IMPL::STRINGIFY-PACKAGE-DESIGNATOR SB!IMPL::NICK) ; (SB!IMPL::STRINGIFY-PACKAGE-DESIGNATOR SB!IMPL::NAME)))) ; (CDR SB!IMPL::OPTION)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 7 more uses of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defpackage.lisp ; in: DEFUN FIND-OR-MAKE-SYMBOL ; (WITH-SIMPLE-RESTART (CONTINUE "INTERN it.") ; (ERROR 'SB!KERNEL:SIMPLE-PACKAGE-ERROR :PACKAGE PACKAGE :FORMAT-CONTROL ; "no symbol named ~S in ~S" :FORMAT-ARGUMENTS ; (LIST SB!IMPL::NAME (PACKAGE-NAME PACKAGE)))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION 'SB!KERNEL:SIMPLE-PACKAGE-ERROR ; (LIST :PACKAGE PACKAGE :FORMAT-CONTROL ; "no symbol named ~S in ~S" ; :FORMAT-ARGUMENTS ; (LIST SB!IMPL::NAME ; (PACKAGE-NAME PACKAGE))) ; 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN UPDATE-PACKAGE ; (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 ; in: DEFUN UPDATE-PACKAGE-WITH-VARIANCE ; (SB!IMPL::PACKAGE-%SHADOWING-SYMBOLS PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-%SHADOWING-SYMBOLS ; (DO-EXTERNAL-SYMBOLS (SB!IMPL::S PACKAGE) ; (PUSH SB!IMPL::S SB!IMPL::OLD-EXPORTS)) ; --> BLOCK FLET LET* ; ==> ; (SB!KERNEL:PACKAGE-EXTERNAL-SYMBOLS PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-EXTERNAL-SYMBOLS ; ==> ; (SB!IMPL::PACKAGE-HASHTABLE-HASH SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-HASHTABLE-HASH ; ==> ; (SB!IMPL::PACKAGE-HASHTABLE-TABLE SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-HASHTABLE-TABLE ; (SB!EXT:PACKAGE-IMPLEMENTS-LIST PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-IMPLEMENTS-LIST ; (SB!EXT:REMOVE-IMPLEMENTATION-PACKAGE PACKAGE SB!IMPL::P) ; ; caught STYLE-WARNING: ; undefined function: REMOVE-IMPLEMENTATION-PACKAGE ; ; compilation unit finished ; Undefined types: ; COMPILER-NOTE CONDITION ; Undefined functions: ; %ENTER-NEW-NICKNAMES (SETF PACKAGE-%LOCAL-NICKNAMES) (SETF PACKAGE-DOC-STRING) (SETF PACKAGE-LOCK) (SETF PACKAGE-SOURCE-LOCATION) ADD-IMPLEMENTATION-PACKAGE ADD-PACKAGE-LOCAL-NICKNAME CALL-WITH-PACKAGE-GRAPH SB!C::MAKE-DEFINITION-SOURCE-LOCATION PACKAGE-%SHADOWING-SYMBOLS PACKAGE-EXTERNAL-SYMBOLS PACKAGE-HASHTABLE-HASH PACKAGE-HASHTABLE-TABLE PACKAGE-IMPLEMENTS-LIST REMOVE-IMPLEMENTATION-PACKAGE ; caught 25 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/defpackage.lisp-obj-tmp written ; compilation finished in 0:00:01.201 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pp-backq.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFSTRUCT (BACKQ-COMMA # ...) ...) ; x-compiling (DEFSTRUCT (BACKQ-COMMA-AT # ...)) ; x-compiling (DEFSTRUCT (BACKQ-COMMA-DOT # ...)) ; x-compiling (DEFUN BACKQ-UNPARSE-EXPR ...) ; x-compiling (DEFUN BACKQ-UNPARSE ...) ; x-compiling (DEFUN PPRINT-BACKQUOTE ...) ; x-compiling (DEFUN PPRINT-BACKQ-COMMA ...) ; x-compiling (DEFUN !BACKQ-PP-COLD-INIT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pp-backq.lisp ; in: DEFSTRUCT BACKQ-COMMA-DOT ; (DEFSTRUCT ; (SB!IMPL::BACKQ-COMMA-DOT (:INCLUDE SB!IMPL::BACKQ-COMMA) ; (:CONSTRUCTOR SB!IMPL::MAKE-BACKQ-COMMA-DOT (SB!KERNEL:FORM)) ; (:COPIER NIL) (:PREDICATE NIL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT BACKQ-COMMA-AT ; (DEFSTRUCT ; (SB!IMPL::BACKQ-COMMA-AT (:INCLUDE SB!IMPL::BACKQ-COMMA) ; (:CONSTRUCTOR SB!IMPL::MAKE-BACKQ-COMMA-AT (SB!KERNEL:FORM)) ; (:COPIER NIL) (:PREDICATE NIL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT BACKQ-COMMA ; (DEFSTRUCT ; (SB!IMPL::BACKQ-COMMA ; (:CONSTRUCTOR SB!IMPL::MAKE-BACKQ-COMMA (SB!KERNEL:FORM)) (:COPIER NIL) ; (:PREDICATE NIL)) ; SB!KERNEL:FORM) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFUN BACKQ-UNPARSE ; (MAPCAR (LAMBDA (SB!IMPL::EL) (SB!IMPL::BACKQ-UNPARSE SB!IMPL::EL :NCONC)) ; (CDR SB!KERNEL:FORM)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR (LAMBDA (SB!IMPL::EL) (SB!IMPL::BACKQ-UNPARSE SB!IMPL::EL T)) ; (CDR SB!KERNEL:FORM)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR #'SB!IMPL::BACKQ-UNPARSE (CDR SB!KERNEL:FORM)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined function: ; SB!KERNEL::%TARGET-DEFSTRUCT ; caught 6 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/pp-backq.lisp-obj-tmp written ; compilation finished in 0:00:00.092 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/error-error.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *ERROR-ERROR-DEPTH* ...) ; x-compiling (DEFUN ERROR-ERROR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/error-error.lisp ; in: DEFUN ERROR-ERROR ; (SB!DEBUG:BACKTRACE :STREAM *TERMINAL-IO*) ; ; caught STYLE-WARNING: ; undefined function: BACKTRACE ; (SB!KERNEL:STREAM-COLD-INIT-OR-RESET) ; ; caught STYLE-WARNING: ; undefined function: STREAM-COLD-INIT-OR-RESET ; ; compilation unit finished ; Undefined functions: ; BACKTRACE STREAM-COLD-INIT-OR-RESET ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/error-error.lisp-obj-tmp written ; compilation finished in 0:00:00.017 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/deadline.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *DEADLINE*) ; x-compiling (!COLD-INIT-FORMS (SETQ *DEADLINE* ...)) ; x-compiling (DEFVAR *DEADLINE-SECONDS*) ; x-compiling (!COLD-INIT-FORMS (SETQ *DEADLINE-SECONDS* ...)) ; x-compiling (DECLAIM (INLINE SECONDS-TO-INTERNAL-TIME)) ; x-compiling (DEFUN SECONDS-TO-INTERNAL-TIME ...) ; x-compiling (DEFMACRO WITH-DEADLINE ...) ; x-compiling (DECLAIM (INLINE DECODE-INTERNAL-TIME)) ; x-compiling (DEFUN DECODE-INTERNAL-TIME ...) ; x-compiling (DEFUN SIGNAL-TIMEOUT ...) ; x-compiling (DEFUN SIGNAL-DEADLINE ...) ; x-compiling (DEFUN DEFER-DEADLINE ...) ; x-compiling (DEFUN CANCEL-DEADLINE ...) ; x-compiling (DECLAIM (INLINE RELATIVE-DECODED-TIMES)) ; x-compiling (DEFUN RELATIVE-DECODED-TIMES ...) ; x-compiling (DEFUN DECODE-TIMEOUT ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !DEADLINE-COLD-INIT) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/deadline.lisp ; in: DEFUN SIGNAL-DEADLINE ; (RESTART-CASE (ERROR 'SB!SYS:DEADLINE-TIMEOUT :SECONDS ; SB!IMPL::*DEADLINE-SECONDS*) ; (SB!SYS:DEFER-DEADLINE ; (&OPTIONAL (SB!IMPL::SECONDS SB!IMPL::*DEADLINE-SECONDS*)) :REPORT ; "Defer the deadline for SECONDS more." :INTERACTIVE ; (LAMBDA () ; (SB!INT:READ-EVALUATED-FORM "By how many seconds shall the deadline ~ ; be deferred?: ")) ; (LET* ((SB!IMPL::NEW-DEADLINE-SECONDS #) (SB!IMPL::NEW-DEADLINE #)) ; (SETF SB!IMPL::*DEADLINE* SB!IMPL::NEW-DEADLINE ; SB!IMPL::*DEADLINE-SECONDS* SB!IMPL::NEW-DEADLINE-SECONDS))) ; (SB!SYS:CANCEL-DEADLINE NIL :REPORT "Cancel the deadline and continue." ; (SETF SB!IMPL::*DEADLINE* NIL ; SB!IMPL::*DEADLINE-SECONDS* NIL))) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION 'SB!SYS:DEADLINE-TIMEOUT ; (LIST :SECONDS SB!IMPL::*DEADLINE-SECONDS*) ; 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN CANCEL-DEADLINE ; (SB!INT:TRY-RESTART 'SB!SYS:CANCEL-DEADLINE CONDITION) ; ; caught STYLE-WARNING: ; undefined function: TRY-RESTART ; in: DEFUN DEFER-DEADLINE ; (SB!INT:TRY-RESTART 'SB!SYS:DEFER-DEADLINE CONDITION SB!IMPL::SECONDS) ; ; caught STYLE-WARNING: ; undefined function: TRY-RESTART ; ; compilation unit finished ; Undefined type: ; CONDITION ; Undefined function: ; TRY-RESTART ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/deadline.lisp-obj-tmp written ; compilation finished in 0:00:00.091 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/serve-event.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFSTRUCT (HANDLER # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFVAR *DESCRIPTOR-HANDLERS* ...) ; x-compiling (SB-XC:DEFMACRO WITH-DESCRIPTOR-HANDLERS ...) ; x-compiling (DEFUN LIST-ALL-DESCRIPTOR-HANDLERS ...) ; x-compiling (DEFUN SELECT-DESCRIPTOR-HANDLERS ...) ; x-compiling (DEFUN MAP-DESCRIPTOR-HANDLERS ...) ; x-compiling (DEFUN ADD-FD-HANDLER ...) ; x-compiling (DEFUN REMOVE-FD-HANDLER ...) ; x-compiling (DEFUN INVALIDATE-DESCRIPTOR ...) ; x-compiling (DEFMACRO WITH-FD-HANDLER ...) ; x-compiling (DEFUN HANDLER-DESCRIPTORS-ERROR ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *PERIODIC-POLLING-FUNCTION* ...) ; x-compiling (DECLAIM (REAL *PERIODIC-POLLING-PERIOD*)) ; x-compiling (DEFVAR *PERIODIC-POLLING-PERIOD* ...) ; x-compiling (DEFUN WAIT-UNTIL-FD-USABLE ...) ; x-compiling (DEFUN SERVE-ALL-EVENTS ...) ; x-compiling (DEFUN SERVE-EVENT ...) ; x-compiling (DEFUN SUB-SERVE-EVENT ...) ; x-compiling (DEFUN SUB-SUB-SERVE-EVENT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 ; '#) ; ; 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 ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX:FD-SET SB!IMPL::FD SB!IMPL::READ-FDS) ; --> SB!IMPL::READ-FDS SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX:FD-SET SB!IMPL::FD SB!IMPL::WRITE-FDS) ; --> SB!IMPL::WRITE-FDS SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; 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::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; compilation unit finished ; Undefined function: ; SB!KERNEL::%TARGET-DEFSTRUCT ; caught 1 STYLE-WARNING condition ; printed 4 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/serve-event.lisp-obj-tmp written ; compilation finished in 0:00:00.336 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fd-stream.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE BUFFER-SAP ...)) ; x-compiling (DEFSTRUCT (BUFFER #) ...) ; x-compiling (DEFVAR *AVAILABLE-BUFFERS* ...) ; x-compiling (DEFVAR *AVAILABLE-BUFFERS-LOCK* ...) ; x-compiling (DEFMACRO WITH-AVAILABLE-BUFFERS-LOCK ...) ; x-compiling (DEFCONSTANT +BYTES-PER-BUFFER+ ...) ; x-compiling (DEFUN ALLOC-BUFFER ...) ; x-compiling (DEFUN GET-BUFFER ...) ; x-compiling (DECLAIM (INLINE RESET-BUFFER)) ; x-compiling (DEFUN RESET-BUFFER ...) ; x-compiling (DEFUN RELEASE-BUFFER ...) ; x-compiling (DEFSTRUCT (FD-STREAM # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN RELEASE-FD-STREAM-BUFFERS ...) ; x-compiling (DEFUN BUFFER-OUTPUT ...) ; x-compiling (DEFUN FLUSH-OUTPUT-BUFFER ...) ; x-compiling (DEFUN %QUEUE-AND-REPLACE-OUTPUT-BUFFER ...) ; x-compiling (DEFUN WRITE-OUTPUT-FROM-QUEUE ...) ; x-compiling (DEFUN WRITE-OR-BUFFER-OUTPUT ...) ; x-compiling (DECLAIM (INLINE OUTPUT-RAW-BYTES)) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :LATE ...) ; x-compiling (DEFVAR *OUTPUT-ROUTINES* ...) ; x-compiling (DEFUN SIMPLE-STREAM-PERROR ...) ; x-compiling (DEFUN SIMPLE-FILE-PERROR ...) ; x-compiling (DEFUN C-STRING-ENCODING-ERROR ...) ; x-compiling (DEFUN C-STRING-DECODING-ERROR ...) ; x-compiling (DEFUN STREAM-DECODING-ERROR-AND-HANDLE ...) ; x-compiling (DEFUN STREAM-ENCODING-ERROR-AND-HANDLE ...) ; x-compiling (DEFUN EXTERNAL-FORMAT-ENCODING-ERROR ...) ; x-compiling (DEFUN SYNCHRONIZE-STREAM-OUTPUT ...) ; x-compiling (DEFUN FD-STREAM-OUTPUT-FINISHED-P ...) ; x-compiling (DEFMACRO OUTPUT-WRAPPER/VARIABLE-WIDTH ...) ; x-compiling (DEFMACRO OUTPUT-WRAPPER ...) ; x-compiling (DEFMACRO DEF-OUTPUT-ROUTINES/VARIABLE-WIDTH ...) ; x-compiling (DEFMACRO DEF-OUTPUT-ROUTINES ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-CHAR-~A-BUFFERED" 1 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-BYTE-~A-BUFFERED" 1 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-BYTE-~A-BUFFERED" 1 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-SHORT-~A-BUFFERED" 2 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-SHORT-~A-BUFFERED" 2 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-LONG-~A-BUFFERED" 4 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-LONG-~A-BUFFERED" 4 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-LONG-LONG-~A-BUFFERED" 8 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-LONG-LONG-~A-BUFFERED" 8 ...) ...) ; x-compiling (DEFUN FD-SOUT ...) ; x-compiling (DEFSTRUCT (EXTERNAL-FORMAT # ...) ...) ; x-compiling (DEFUN EF-CHAR-SIZE ...) ; x-compiling (DEFUN WRAP-EXTERNAL-FORMAT-FUNCTIONS ...) ; x-compiling (DEFVAR *EXTERNAL-FORMATS* ...) ; x-compiling (DEFUN GET-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN GET-EXTERNAL-FORMAT-OR-LOSE ...) ; x-compiling (DEFUN EXTERNAL-FORMAT-KEYWORD ...) ; x-compiling (DEFUN FD-STREAM-EXTERNAL-FORMAT-KEYWORD ...) ; x-compiling (DEFUN CANONIZE-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN PICK-OUTPUT-ROUTINE ...) ; x-compiling (DEFVAR *INPUT-ROUTINES* ...) ; x-compiling (DEFUN SYSREAD-MAY-BLOCK-P ...) ; x-compiling (DEFUN REFILL-INPUT-BUFFER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fd-stream.lisp ; in: DEFUN REFILL-INPUT-BUFFER ; (SB!SYS:FD-STREAM-FD STREAM) ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:%INSTANCE-REF (THE SB!SYS:FD-STREAM STREAM) 17) ; ; note: could not stack allocate: (FD-STREAM-FD STREAM) ; x-compiling (DEFMACRO INPUT-AT-LEAST ...) ; x-compiling (DEFMACRO INPUT-WRAPPER/VARIABLE-WIDTH ...) ; x-compiling (DEFMACRO INPUT-WRAPPER ...) ; x-compiling (DEFMACRO DEF-INPUT-ROUTINE/VARIABLE-WIDTH ...) ; x-compiling (DEFMACRO DEF-INPUT-ROUTINE ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-CHARACTER ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-8BIT-BYTE ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-8BIT-NUMBER ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-16BIT-BYTE ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-16BIT-BYTE ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-32BIT-BYTE ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-32BIT-BYTE ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-64BIT-BYTE ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-64BIT-BYTE ...) ; x-compiling (DEFUN PICK-INPUT-ROUTINE ...) ; x-compiling (DEFUN FD-STREAM-READ-N-BYTES ...) ; x-compiling (DEFUN FD-STREAM-RESYNC ...) ; x-compiling (DEFUN GET-FD-STREAM-CHARACTER-SIZER ...) ; x-compiling (DEFUN FD-STREAM-CHARACTER-SIZE ...) ; x-compiling (DEFUN FD-STREAM-STRING-SIZE ...) ; x-compiling (DEFUN FIND-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN VARIABLE-WIDTH-EXTERNAL-FORMAT-P ...) ; x-compiling (DEFUN BYTES-FOR-CHAR-FUN ...) ; x-compiling (DEFMACRO DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT ...) ; x-compiling (DEFMACRO DEFINE-UNIBYTE-EXTERNAL-FORMAT ...) ; x-compiling (DEFMACRO DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH ...) ; x-compiling (DEFUN SET-FD-STREAM-ROUTINES ...) ; x-compiling (DEFUN RELEASE-FD-STREAM-RESOURCES ...) ; x-compiling (DEFUN FLUSH-INPUT-BUFFER ...) ; x-compiling (DEFUN FD-STREAM-CLEAR-INPUT ...) ; x-compiling (DEFUN FD-STREAM-MISC-ROUTINE ...) ; x-compiling (DEFUN FINISH-FD-STREAM-OUTPUT ...) ; x-compiling (DEFUN FD-STREAM-GET-FILE-POSITION ...) ; x-compiling (DEFUN FD-STREAM-SET-FILE-POSITION ...) ; x-compiling (DEFUN MAKE-FD-STREAM ...) ; x-compiling (DEFUN PICK-BACKUP-NAME ...) ; x-compiling (DEFUN ENSURE-ONE-OF ...) ; x-compiling (DEFUN RENAME-THE-OLD-ONE ...) ; x-compiling (DEFUN OPEN ...) ; x-compiling (DEFVAR *TTY*) ; x-compiling (DEFVAR *STDIN*) ; x-compiling (DEFVAR *STDOUT*) ; x-compiling (DEFVAR *STDERR*) ; x-compiling (DEFUN STREAM-COLD-INIT-OR-RESET ...) ; x-compiling (DEFUN STREAM-DEINIT ...) ; x-compiling (DEFUN STDSTREAM-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN STREAM-REINIT ...) ; x-compiling (DEFUN BEEP ...) ; x-compiling (DEFUN FILE-NAME ...) ; x-compiling (DEFUN STREAM-OUTPUT-STREAM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fd-stream.lisp ; in: DEFUN OPEN ; (DEFUN OPEN ; (SB!KERNEL:FILENAME ; &KEY (SB!IMPL::DIRECTION :INPUT) (SB!IMPL::ELEMENT-TYPE 'BASE-CHAR) ; (SB!IMPL::IF-EXISTS NIL SB!IMPL::IF-EXISTS-GIVEN) ; (SB!IMPL::IF-DOES-NOT-EXIST NIL SB!IMPL::IF-DOES-NOT-EXIST-GIVEN) ; (SB!IMPL::EXTERNAL-FORMAT :DEFAULT) ; &AUX (SB!IMPL::DIRECTION SB!IMPL::DIRECTION) ; (SB!IMPL::IF-DOES-NOT-EXIST SB!IMPL::IF-DOES-NOT-EXIST) ; (SB!IMPL::IF-EXISTS SB!IMPL::IF-EXISTS)) ; "Return a stream which reads from or writes to FILENAME. ; Defined keywords: ; :DIRECTION - one of :INPUT, :OUTPUT, :IO, or :PROBE ; :ELEMENT-TYPE - the type of object to read or write, default BASE-CHAR ; :IF-EXISTS - one of :ERROR, :NEW-VERSION, :RENAME, :RENAME-AND-DELETE, ; :OVERWRITE, :APPEND, :SUPERSEDE or NIL ; :IF-DOES-NOT-EXIST - one of :ERROR, :CREATE or NIL ; See the manual for details." ; (MULTIPLE-VALUE-BIND (SB!IMPL::INPUT SB!IMPL::OUTPUT SB!IMPL::MASK) ; (ECASE SB!IMPL::DIRECTION ; (:INPUT (VALUES T NIL SB!UNIX:O_RDONLY)) ; (:OUTPUT (VALUES NIL T SB!UNIX:O_WRONLY)) ; (:IO (VALUES T T SB!UNIX:O_RDWR)) ; (:PROBE (VALUES T NIL SB!UNIX:O_RDONLY))) ; (DECLARE (TYPE SB!INT:INDEX SB!IMPL::MASK)) ; (LET* ((PATHNAME #) (SB!IMPL::PHYSICAL #) (TRUENAME #) (NAMESTRING #)) ; (FLET (#) ; (COND # #) ; (UNLESS SB!IMPL::IF-DOES-NOT-EXIST-GIVEN #) ; (SB!IMPL::ENSURE-ONE-OF SB!IMPL::IF-DOES-NOT-EXIST '# ; :IF-DOES-NOT-EXIST) ; (COND # # # # # # # #) ; (LET # ; # ; #))))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER LET OR LET IF OR LET IF OR THE TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT31706 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN EXTERNAL-FORMAT-ENCODING-ERROR ; (STREAMP STREAM) ; --> BLOCK TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT30273 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFSTRUCT EXTERNAL-FORMAT ; (DEFSTRUCT ; (SB!IMPL::EXTERNAL-FORMAT (:CONSTRUCTOR SB!IMPL::%MAKE-EXTERNAL-FORMAT) ; (:CONC-NAME SB!IMPL::EF-) (:PREDICATE SB!IMPL::EXTERNAL-FORMAT-P) ; (:COPIER SB!IMPL::%COPY-EXTERNAL-FORMAT)) ; (SB!IMPL::NAMES (SB!INT:MISSING-ARG) :TYPE LIST :READ-ONLY T) ; (SB!IMPL::DEFAULT-REPLACEMENT-CHARACTER (SB!INT:MISSING-ARG) :TYPE ; CHARACTER) ; (SB!IMPL::READ-N-CHARS-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::READ-CHAR-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::WRITE-N-BYTES-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::WRITE-CHAR-NONE-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::WRITE-CHAR-LINE-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::WRITE-CHAR-FULL-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::RESYNC-FUN NIL :TYPE (OR FUNCTION NULL)) ; (SB!IMPL::BYTES-FOR-CHAR-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; ...) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT FD-STREAM ; (DEFSTRUCT ; (SB!SYS:FD-STREAM (:CONSTRUCTOR SB!IMPL::%MAKE-FD-STREAM) ; (:CONC-NAME SB!IMPL::FD-STREAM-) (:PREDICATE SB!SYS:FD-STREAM-P) ; (:INCLUDE SB!KERNEL:ANSI-STREAM ; (SB!IMPL::MISC #'SB!IMPL::FD-STREAM-MISC-ROUTINE)) ; (:COPIER NIL)) ; (SB!IMPL::NAME NIL) ; (SB!IMPL::FILE NIL) ; (SB!IMPL::ORIGINAL NIL :TYPE (OR SIMPLE-STRING NULL)) ; (SB!IMPL::DELETE-ORIGINAL NIL) ; (SB!IMPL::ELEMENT-SIZE 1 :TYPE SB!INT:INDEX) ; (SB!IMPL::ELEMENT-TYPE 'BASE-CHAR) ; (SB!IMPL::FD -1 :TYPE FIXNUM) ; (SB!IMPL::FD-TYPE :UNKNOWN :TYPE KEYWORD) ; (SB!IMPL::BUFFERING :FULL :TYPE (MEMBER :FULL :LINE :NONE)) ; (SB!IMPL::DUAL-CHANNEL-P NIL) ; ...) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT BUFFER ; (DEFSTRUCT ; (SB!IMPL::BUFFER ; (:CONSTRUCTOR SB!IMPL::%MAKE-BUFFER (SB!IMPL::SAP LENGTH))) ; (SB!IMPL::SAP (SB!INT:MISSING-ARG) :TYPE SB!SYS:SYSTEM-AREA-POINTER ; :READ-ONLY T) ; (LENGTH (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!IMPL::HEAD 0 :TYPE SB!INT:INDEX) ; (SB!IMPL::TAIL 0 :TYPE SB!INT:INDEX)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFINE-DEPRECATED-FUNCTION :LATE ; (SB!INT:DEFINE-DEPRECATED-FUNCTION :LATE ; "1.0.8.16" ; SB!SYS:OUTPUT-RAW-BYTES ; WRITE-SEQUENCE ; (STREAM SB!IMPL::THING &OPTIONAL SB!IMPL::START SB!IMPL::END) ; (SB!IMPL::WRITE-OR-BUFFER-OUTPUT STREAM SB!IMPL::THING ; (OR SB!IMPL::START 0) (OR SB!IMPL::END (LENGTH SB!IMPL::THING)))) ; --> PROGN SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF COMPILER-MACRO-FUNCTION) #:NEW830 ; 'SB!SYS:OUTPUT-RAW-BYTES) ; ; caught STYLE-WARNING: ; undefined function: (SETF COMPILER-MACRO-FUNCTION) ; in: DEFUN RELEASE-FD-STREAM-BUFFERS ; (SB!IMPL::WITH-AVAILABLE-BUFFERS-LOCK NIL ; (SETF SB!IMPL::*AVAILABLE-BUFFERS* ; (NCONC SB!IMPL::QUEUE SB!IMPL::*AVAILABLE-BUFFERS*))) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK ; SB!IMPL::*AVAILABLE-BUFFERS-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; in: DEFUN RELEASE-BUFFER ; (SB!IMPL::WITH-AVAILABLE-BUFFERS-LOCK NIL ; (PUSH SB!IMPL::BUFFER SB!IMPL::*AVAILABLE-BUFFERS*)) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK ; SB!IMPL::*AVAILABLE-BUFFERS-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; in: DEFUN GET-BUFFER ; (SB!IMPL::WITH-AVAILABLE-BUFFERS-LOCK NIL (POP SB!IMPL::*AVAILABLE-BUFFERS*)) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK ; SB!IMPL::*AVAILABLE-BUFFERS-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; ; caught STYLE-WARNING: ; 2 more uses of undefined function SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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: DEFMACRO DEF-OUTPUT-ROUTINES ; (MAPCAR ; (LAMBDA (SB!IMPL::BUFFERING) ; (LET ((FUNCTION #)) ; (SB!IMPL::BACKQ-LIST 'PROGN (SB!IMPL::BACKQ-LIST 'DEFUN FUNCTION '# #) ; (SB!IMPL::BACKQ-LIST 'SETF ; 'SB!IMPL::*OUTPUT-ROUTINES* ; #)))) ; SB!IMPL::BUFFERINGS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO DEF-OUTPUT-ROUTINES/VARIABLE-WIDTH ; (MAPCAR ; (LAMBDA (TYPE) ; (LIST TYPE (CAR SB!IMPL::BUFFERING) FUNCTION 1 SB!IMPL::EXTERNAL-FORMAT)) ; (CDR SB!IMPL::BUFFERING)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR ; (LAMBDA (SB!IMPL::BUFFERING) ; (LET ((FUNCTION #)) ; (SB!IMPL::BACKQ-LIST 'PROGN ; (SB!IMPL::BACKQ-LIST 'DEFUN FUNCTION '# '# #) ; (SB!IMPL::BACKQ-LIST 'SETF ; 'SB!IMPL::*OUTPUT-ROUTINES* ; #)))) ; SB!IMPL::BUFFERINGS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 8 more uses of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fd-stream.lisp ; in: DEFUN GET-EXTERNAL-FORMAT ; (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN STREAM-ENCODING-ERROR-AND-HANDLE ; (RESTART-CASE (ERROR 'SB!INT:STREAM-ENCODING-ERROR :EXTERNAL-FORMAT ; (STREAM-EXTERNAL-FORMAT STREAM) :STREAM STREAM :CODE ; SB!IMPL::CODE) ; (SB!IMPL::OUTPUT-NOTHING NIL :REPORT ; (LAMBDA (STREAM) (FORMAT STREAM "~@")) ; (THROW 'SB!IMPL::OUTPUT-NOTHING NIL)) ; (SB!IMPL::OUTPUT-REPLACEMENT (STRING) :REPORT ; (LAMBDA (STREAM) (FORMAT STREAM "~@")) ; :INTERACTIVE ; (LAMBDA () ; (FORMAT *QUERY-IO* "~@") ; (FINISH-OUTPUT *QUERY-IO*) ; (LIST (READ *QUERY-IO*))) ; (LET ((STRING #)) ; (SB!IMPL::FD-SOUT STREAM (STRING STRING) 0 (LENGTH STRING))) ; (THROW 'SB!IMPL::OUTPUT-NOTHING NIL))) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION 'SB!INT:STREAM-ENCODING-ERROR ; (LIST :EXTERNAL-FORMAT ; (STREAM-EXTERNAL-FORMAT STREAM) :STREAM ; STREAM :CODE SB!IMPL::CODE) ; 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN STREAM-DECODING-ERROR-AND-HANDLE ; (RESTART-CASE (ERROR 'SB!INT:STREAM-DECODING-ERROR :EXTERNAL-FORMAT ; (STREAM-EXTERNAL-FORMAT STREAM) :STREAM STREAM :OCTETS ; (LET ((SB!IMPL::BUFFER #)) ; (SB!SYS:SAP-REF-OCTETS ; (SB!IMPL::BUFFER-SAP SB!IMPL::BUFFER) ; (SB!IMPL::BUFFER-HEAD SB!IMPL::BUFFER) ; SB!IMPL::OCTET-COUNT))) ; (SB!INT:ATTEMPT-RESYNC NIL :REPORT ; (LAMBDA (STREAM) ; (FORMAT STREAM "~@")) ; (SB!IMPL::FD-STREAM-RESYNC STREAM) NIL) ; (SB!INT:FORCE-END-OF-FILE NIL :REPORT ; (LAMBDA (STREAM) (FORMAT STREAM "~@")) ; (SETF (SB!IMPL::FD-STREAM-EOF-FORCED-P STREAM) T)) ; (SB!IMPL::INPUT-REPLACEMENT (STRING) :REPORT ; (LAMBDA (STREAM) ; (FORMAT STREAM "~@")) ; :INTERACTIVE ; (LAMBDA () ; (FORMAT *QUERY-IO* "~@") ; (FINISH-OUTPUT *QUERY-IO*) ; (LIST (READ *QUERY-IO*))) ; (LET ((STRING #) (SB!IMPL::INSTEAD #)) ; (DOTIMES (SB!IMPL::I #) (VECTOR-PUSH-EXTEND # SB!IMPL::INSTEAD)) ; (SB!IMPL::FD-STREAM-RESYNC STREAM) ; (WHEN (> # 0) (SETF #))) ; NIL)) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION 'SB!INT:STREAM-DECODING-ERROR ; (LIST :EXTERNAL-FORMAT ; (STREAM-EXTERNAL-FORMAT STREAM) :STREAM ; STREAM :OCTETS ; (LET ((SB!IMPL::BUFFER #)) ; (SB!SYS:SAP-REF-OCTETS ; (SB!IMPL::BUFFER-SAP SB!IMPL::BUFFER) ; (SB!IMPL::BUFFER-HEAD ; SB!IMPL::BUFFER) ; SB!IMPL::OCTET-COUNT))) ; 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN STDSTREAM-EXTERNAL-FORMAT => DEFAULT-EXTERNAL-FORMAT ; (SB!IMPL::DEFAULT-EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-EXTERNAL-FORMAT ; in: DEFUN SET-FD-STREAM-ROUTINES => DEFAULT-EXTERNAL-FORMAT ; (SB!IMPL::DEFAULT-EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-EXTERNAL-FORMAT ; in: DEFUN MAKE-FD-STREAM ; (SB!EXT:FINALIZE STREAM (LAMBDA () (SB!UNIX:UNIX-CLOSE SB!IMPL::FD)) ; :DONT-SAVE T) ; ; caught STYLE-WARNING: ; undefined function: FINALIZE ; in: DEFUN ALLOC-BUFFER ; (SB!EXT:FINALIZE SB!IMPL::BUFFER ; (LAMBDA () (SB!SYS:DEALLOCATE-SYSTEM-MEMORY SB!IMPL::SAP SB!IMPL::SIZE)) ; :DONT-SAVE T) ; ; caught STYLE-WARNING: ; undefined function: FINALIZE ; in: DEFUN OPEN ; (DEFUN OPEN ; (SB!KERNEL:FILENAME ; &KEY (SB!IMPL::DIRECTION :INPUT) (SB!IMPL::ELEMENT-TYPE 'BASE-CHAR) ; (SB!IMPL::IF-EXISTS NIL SB!IMPL::IF-EXISTS-GIVEN) ; (SB!IMPL::IF-DOES-NOT-EXIST NIL SB!IMPL::IF-DOES-NOT-EXIST-GIVEN) ; (SB!IMPL::EXTERNAL-FORMAT :DEFAULT) ; &AUX (SB!IMPL::DIRECTION SB!IMPL::DIRECTION) ; (SB!IMPL::IF-DOES-NOT-EXIST SB!IMPL::IF-DOES-NOT-EXIST) ; (SB!IMPL::IF-EXISTS SB!IMPL::IF-EXISTS)) ; "Return a stream which reads from or writes to FILENAME. ; Defined keywords: ; :DIRECTION - one of :INPUT, :OUTPUT, :IO, or :PROBE ; :ELEMENT-TYPE - the type of object to read or write, default BASE-CHAR ; :IF-EXISTS - one of :ERROR, :NEW-VERSION, :RENAME, :RENAME-AND-DELETE, ; :OVERWRITE, :APPEND, :SUPERSEDE or NIL ; :IF-DOES-NOT-EXIST - one of :ERROR, :CREATE or NIL ; See the manual for details." ; (MULTIPLE-VALUE-BIND (SB!IMPL::INPUT SB!IMPL::OUTPUT SB!IMPL::MASK) ; (ECASE SB!IMPL::DIRECTION ; (:INPUT (VALUES T NIL SB!UNIX:O_RDONLY)) ; (:OUTPUT (VALUES NIL T SB!UNIX:O_WRONLY)) ; (:IO (VALUES T T SB!UNIX:O_RDWR)) ; (:PROBE (VALUES T NIL SB!UNIX:O_RDONLY))) ; (DECLARE (TYPE SB!INT:INDEX SB!IMPL::MASK)) ; (LET* ((PATHNAME #) (SB!IMPL::PHYSICAL #) (TRUENAME #) (NAMESTRING #)) ; (FLET (#) ; (COND # #) ; (UNLESS SB!IMPL::IF-DOES-NOT-EXIST-GIVEN #) ; (SB!IMPL::ENSURE-ONE-OF SB!IMPL::IF-DOES-NOT-EXIST '# ; :IF-DOES-NOT-EXIST) ; (COND # # # # # # # #) ; (LET # ; # ; #))))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER LET OR LET IF OR LET IF OR THE TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT31706 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN EXTERNAL-FORMAT-ENCODING-ERROR ; (STREAMP STREAM) ; --> BLOCK TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT30273 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFVAR *AVAILABLE-BUFFERS-LOCK* ; (SB!THREAD:MAKE-MUTEX :NAME "lock for *AVAILABLE-BUFFERS*") ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; in: DEFUN FILE-NAME ; (SB!EXT:NATIVE-NAMESTRING (SB!INT:PHYSICALIZE-PATHNAME SB!IMPL::NEW-NAME) ; :AS-FILE T) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-NAMESTRING ; in: DEFUN OPEN ; (SB!EXT:NATIVE-NAMESTRING TRUENAME :AS-FILE T) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-NAMESTRING ; in: DEFUN STREAM-DECODING-ERROR-AND-HANDLE ; (SB!SYS:SAP-REF-OCTETS (SB!IMPL::BUFFER-SAP SB!IMPL::BUFFER) ; (SB!IMPL::BUFFER-HEAD SB!IMPL::BUFFER) SB!IMPL::OCTET-COUNT) ; ; caught STYLE-WARNING: ; undefined function: SAP-REF-OCTETS ; in: DEFUN C-STRING-DECODING-ERROR ; (SB!SYS:SAP-REF-OCTETS SB!IMPL::SAP SB!IMPL::OFFSET COUNT) ; ; caught STYLE-WARNING: ; undefined function: SAP-REF-OCTETS ; in: DEFUN OPEN ; (DEFUN OPEN ; (SB!KERNEL:FILENAME ; &KEY (SB!IMPL::DIRECTION :INPUT) (SB!IMPL::ELEMENT-TYPE 'BASE-CHAR) ; (SB!IMPL::IF-EXISTS NIL SB!IMPL::IF-EXISTS-GIVEN) ; (SB!IMPL::IF-DOES-NOT-EXIST NIL SB!IMPL::IF-DOES-NOT-EXIST-GIVEN) ; (SB!IMPL::EXTERNAL-FORMAT :DEFAULT) ; &AUX (SB!IMPL::DIRECTION SB!IMPL::DIRECTION) ; (SB!IMPL::IF-DOES-NOT-EXIST SB!IMPL::IF-DOES-NOT-EXIST) ; (SB!IMPL::IF-EXISTS SB!IMPL::IF-EXISTS)) ; "Return a stream which reads from or writes to FILENAME. ; Defined keywords: ; :DIRECTION - one of :INPUT, :OUTPUT, :IO, or :PROBE ; :ELEMENT-TYPE - the type of object to read or write, default BASE-CHAR ; :IF-EXISTS - one of :ERROR, :NEW-VERSION, :RENAME, :RENAME-AND-DELETE, ; :OVERWRITE, :APPEND, :SUPERSEDE or NIL ; :IF-DOES-NOT-EXIST - one of :ERROR, :CREATE or NIL ; See the manual for details." ; (MULTIPLE-VALUE-BIND (SB!IMPL::INPUT SB!IMPL::OUTPUT SB!IMPL::MASK) ; (ECASE SB!IMPL::DIRECTION ; (:INPUT (VALUES T NIL SB!UNIX:O_RDONLY)) ; (:OUTPUT (VALUES NIL T SB!UNIX:O_WRONLY)) ; (:IO (VALUES T T SB!UNIX:O_RDWR)) ; (:PROBE (VALUES T NIL SB!UNIX:O_RDONLY))) ; (DECLARE (TYPE SB!INT:INDEX SB!IMPL::MASK)) ; (LET* ((PATHNAME #) (SB!IMPL::PHYSICAL #) (TRUENAME #) (NAMESTRING #)) ; (FLET (#) ; (COND # #) ; (UNLESS SB!IMPL::IF-DOES-NOT-EXIST-GIVEN #) ; (SB!IMPL::ENSURE-ONE-OF SB!IMPL::IF-DOES-NOT-EXIST '# ; :IF-DOES-NOT-EXIST) ; (COND # # # # # # # #) ; (LET # ; # ; #))))) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER LET OR LET IF OR LET IF OR THE TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT31706 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN EXTERNAL-FORMAT-ENCODING-ERROR ; (STREAMP STREAM) ; --> BLOCK TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT30273 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined types: ; COMPILER-NOTE CONDITION ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::%TARGET-DEFSTRUCT (SETF COMPILER-MACRO-FUNCTION) SB!THREAD::CALL-WITH-SYSTEM-MUTEX CANCEL-FINALIZATION DEFAULT-EXTERNAL-FORMAT FINALIZE LAYOUT-INVALID SB!THREAD:MAKE-MUTEX NATIVE-NAMESTRING SAP-REF-OCTETS UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 31 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/fd-stream.lisp-obj-tmp written ; compilation finished in 0:00:03.041 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/module.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *MODULES* ...) ; x-compiling (DEFVAR *MODULE-PROVIDER-FUNCTIONS* ...) ; x-compiling (DEFUN PROVIDE ...) ; x-compiling (DEFVAR *REQUIRING* ...) ; x-compiling (DEFUN REQUIRE-ERROR ...) ; x-compiling (DEFUN REQUIRE ...) ; x-compiling (DEFUN MODULE-PROVIDE-CONTRIB ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/module.lisp ; in: DEFUN MODULE-PROVIDE-CONTRIB ; (SB!INT:SBCL-HOMEDIR-PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: SBCL-HOMEDIR-PATHNAME ; ; compilation unit finished ; Undefined function: ; SBCL-HOMEDIR-PATHNAME ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/module.lisp-obj-tmp written ; compilation finished in 0:00:00.118 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/interr.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFVAR *INTERNAL-ERRORS* ...) ; x-compiling (DEFERR UNDEFINED-FUN-ERROR ...) ; x-compiling (DEFERR UNDEFINED-ALIEN-FUN-ERROR ...) ; x-compiling (DEFERR INVALID-ARG-COUNT-ERROR ...) ; x-compiling (DEFERR BOGUS-ARG-TO-VALUES-LIST-ERROR ...) ; x-compiling (DEFERR UNBOUND-SYMBOL-ERROR ...) ; x-compiling (DEFERR INVALID-UNWIND-ERROR ...) ; x-compiling (DEFERR UNSEEN-THROW-TAG-ERROR ...) ; x-compiling (DEFERR NIL-FUN-RETURNED-ERROR ...) ; x-compiling (DEFERR NIL-ARRAY-ACCESSED-ERROR ...) ; x-compiling (DEFERR DIVISION-BY-ZERO-ERROR ...) ; x-compiling (DEFERR OBJECT-NOT-TYPE-ERROR ...) ; x-compiling (DEFERR LAYOUT-INVALID-ERROR ...) ; x-compiling (DEFERR ODD-KEY-ARGS-ERROR ...) ; x-compiling (DEFERR UNKNOWN-KEY-ARG-ERROR ...) ; x-compiling (DEFERR INVALID-ARRAY-INDEX-ERROR ...) ; x-compiling (DEFERR TLS-EXHAUSTED-ERROR ...) ; x-compiling (DEFVAR *FINDING-NAME* ...) ; x-compiling (DEFUN FIND-CALLER-NAME-AND-FRAME ...) ; x-compiling (DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ...) ; x-compiling (DEFUN FIND-CALLER-OF-NAMED-FRAME ...) ; x-compiling (DEFUN INTERNAL-ERROR-ARGS-OK ...) ; x-compiling (DEFUN INTERNAL-ERROR ...) ; x-compiling (DEFUN CONTROL-STACK-EXHAUSTED-ERROR ...) ; x-compiling (DEFUN BINDING-STACK-EXHAUSTED-ERROR ...) ; x-compiling (DEFUN ALIEN-STACK-EXHAUSTED-ERROR ...) ; x-compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-CONDITION*) ; x-compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-AVAILABLE-BYTES*) ; x-compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-REQUESTED-BYTES*) ; x-compiling (DEFUN HEAP-EXHAUSTED-ERROR ...) ; x-compiling (DEFUN UNDEFINED-ALIEN-VARIABLE-ERROR ...) ; x-compiling (DEFINE-ALIEN-VARIABLE CURRENT-MEMORY-FAULT-ADDRESS ...) ; x-compiling (DEFUN MEMORY-FAULT-ERROR ...) ; x-compiling (DEFUN UNHANDLED-TRAP-ERROR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/interr.lisp ; in: DEFUN UNHANDLED-TRAP-ERROR ; (SB!ALIEN:SAP-ALIEN SB!KERNEL::CONTEXT-SAP (* SB!SYS:OS-CONTEXT-T)) ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!KERNEL::CONTEXT-SAP ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI::COMPILED-FRAME-ESCAPED SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::COMPILED-FRAME-ESCAPED ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (SB!DI::COMPILED-FRAME-P SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::COMPILED-FRAME-P ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI::COMPILED-FRAME-P SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::COMPILED-FRAME-P ; in: DEFUN INTERNAL-ERROR ; (MAPCAR ; (LAMBDA (SB!KERNEL::SC-OFFSET) ; (SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT SB!KERNEL::FP SB!KERNEL::SC-OFFSET ; SB!KERNEL::ALIEN-CONTEXT)) ; SB!KERNEL::ARGUMENTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (SB!DI:DEBUG-FUN-NAME (SB!DI:FRAME-DEBUG-FUN SB!KERNEL::FRAME)) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:DEBUG-FUN-NAME ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI:DEBUG-FUN-NAME (SB!DI:FRAME-DEBUG-FUN SB!KERNEL::FRAME)) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:DEBUG-FUN-NAME ; in: DEFUN FIND-CALLER-NAME-AND-FRAME ; (SB!DI:DEBUG-FUN-NAME (SB!DI:FRAME-DEBUG-FUN SB!KERNEL::FRAME)) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:DEBUG-FUN-NAME ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::CALLER) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FLUSH-FRAMES-ABOVE ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FLUSH-FRAMES-ABOVE ; in: DEFUN FIND-CALLER-NAME-AND-FRAME ; (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FLUSH-FRAMES-ABOVE ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (SB!DI:FRAME-DEBUG-FUN SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FRAME-DEBUG-FUN ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI:FRAME-DEBUG-FUN SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FRAME-DEBUG-FUN ; in: DEFUN FIND-CALLER-NAME-AND-FRAME ; (SB!DI:FRAME-DEBUG-FUN SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FRAME-DEBUG-FUN ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (SB!DI:FRAME-DOWN SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FRAME-DOWN ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI:FRAME-DOWN SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FRAME-DOWN ; in: DEFUN FIND-CALLER-NAME-AND-FRAME ; (SB!DI:FRAME-DOWN (SB!DI:FRAME-DOWN (SB!DI:TOP-FRAME))) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FRAME-DOWN ; in: DEFERR LAYOUT-INVALID-ERROR ; (SB!KERNEL:LAYOUT-CLASSOID SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFERR OBJECT-NOT-TYPE-ERROR ; (SB!KERNEL:LAYOUT-INVALID (SB!KERNEL:%INSTANCE-LAYOUT SB!KERNEL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN INTERNAL-ERROR-ARGS-OK ; (SB!INT:PARSE-LAMBDA-LIST (SB!KERNEL:%SIMPLE-FUN-ARGLIST SB!KERNEL::HANDLER) ; :SILENT T) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST ; in: DEFERR UNDEFINED-ALIEN-FUN-ERROR ; (SB!SYS:SAP-FOREIGN-SYMBOL (SB!SYS:INT-SAP SB!KERNEL::ADDRESS)) ; ; caught STYLE-WARNING: ; undefined function: SAP-FOREIGN-SYMBOL ; in: DEFUN INTERNAL-ERROR ; (SB!KERNEL::ARG 0) ; ==> ; (SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT SB!KERNEL::FP (NTH 0 SB!KERNEL::ARGUMENTS) ; SB!KERNEL::ALIEN-CONTEXT) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (SB!DI:TOP-FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:TOP-FRAME ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI:TOP-FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:TOP-FRAME ; in: DEFUN FIND-CALLER-NAME-AND-FRAME ; (SB!DI:TOP-FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:TOP-FRAME ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!DI::COMPILED-FRAME-ESCAPED SB!DI::COMPILED-FRAME-P SB!DI:DEBUG-FUN-NAME SB!DI:FLUSH-FRAMES-ABOVE SB!DI:FRAME-DEBUG-FUN SB!DI:FRAME-DOWN LAYOUT-CLASSOID LAYOUT-INVALID PARSE-LAMBDA-LIST SAP-FOREIGN-SYMBOL SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT SB!DI:TOP-FRAME ; caught 25 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/interr.lisp-obj-tmp written ; compilation finished in 0:00:00.177 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/query.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN QUERY-READ-CHAR ...) ; x-compiling (DEFUN QUERY-READ-LINE ...) ; x-compiling (DEFUN MAYBE-PRINT-QUERY ...) ; x-compiling (DEFUN CLARIFY-LEGAL-QUERY-INPUT ...) ; x-compiling (DEFUN Y-OR-N-P ...) ; x-compiling (DEFUN YES-OR-NO-P ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/query.lisp-obj-tmp written ; compilation finished in 0:00:00.040 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/sort.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN SORT-VECTOR ...) ; x-compiling (DECLAIM (MAYBE-INLINE SORT ...)) ; x-compiling (DEFUN SORT ...) ; x-compiling (DEFUN STABLE-SORT ...) ; x-compiling (DECLAIM (MAYBE-INLINE MERGE-LISTS* ...)) ; x-compiling (DEFUN MERGE-LISTS* ...) ; x-compiling (DECLAIM (INLINE MERGE-LISTS)) ; x-compiling (DEFUN MERGE-LISTS ...) ; x-compiling (DECLAIM (INLINE STABLE-SORT-LIST-2 ...)) ; x-compiling (DEFUN STABLE-SORT-LIST-2 ...) ; x-compiling (DEFUN STABLE-SORT-LIST-3 ...) ; x-compiling (DEFCONSTANT +STABLE-SORT-FAST-MERGE-LIMIT+ ...) ; x-compiling (DEFUN STABLE-SORT-LIST ...) ; x-compiling (DEFUN STABLE-SORT-SIMPLE-VECTOR ...) ; x-compiling (DEFUN STABLE-SORT-VECTOR ...) ; x-compiling (DEFUN MERGE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/sort.lisp ; in: DEFUN MERGE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE ; (+ (LENGTH SB!IMPL::S1) (LENGTH SB!IMPL::S2))) ; --> ERROR COND IF PROGN SB!IMPL::BACKQ-LIST CAR ; ==> ; (SB!KERNEL:ARRAY-TYPE-DIMENSIONS TYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-DIMENSIONS ; --> ERROR COND IF ; ==> ; (SB!KERNEL:ARRAY-TYPE-P TYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-P ; (SB!KERNEL::CONS-TYPE-LENGTH-INFO TYPE) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::CONS-TYPE-LENGTH-INFO ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE ; (+ (LENGTH SB!IMPL::S1) (LENGTH SB!IMPL::S2))) ; --> ERROR COND IF COND IF COND IF ; ==> ; (SB!KERNEL:CONS-TYPE-P TYPE) ; ; caught STYLE-WARNING: ; undefined function: CONS-TYPE-P ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; (FIND-CLASS SB!IMPL::RESULT-TYPE NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASS ; in: DEFUN SORT ; #'SB!SEQUENCE:SORT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SORT ; in: DEFUN MERGE ; (SB!KERNEL:SPECIFIER-TYPE 'LIST) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: DEFUN STABLE-SORT ; #'SB!SEQUENCE:STABLE-SORT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:STABLE-SORT ; in: DEFUN MERGE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE ; (+ (LENGTH SB!IMPL::S1) (LENGTH SB!IMPL::S2))) ; --> ERROR LIST ; ==> ; (SB!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined functions: ; 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= ; caught 11 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/sort.lisp-obj-tmp written ; compilation finished in 0:00:00.572 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/time.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN TIME-REINIT ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN GET-INTERNAL-RUN-TIME ...) ; x-compiling (DEFCONSTANT SECONDS-IN-WEEK ...) ; x-compiling (DEFCONSTANT WEEKS-OFFSET ...) ; x-compiling (DEFCONSTANT SECONDS-OFFSET ...) ; x-compiling (DEFCONSTANT MINUTES-PER-DAY ...) ; x-compiling (DEFCONSTANT QUARTER-DAYS-PER-YEAR ...) ; x-compiling (DEFCONSTANT QUARTER-DAYS-PER-CENTURY ...) ; x-compiling (DEFCONSTANT NOVEMBER-17-1858 ...) ; x-compiling (DEFCONSTANT WEEKDAY-NOVEMBER-17-1858 ...) ; x-compiling (DEFCONSTANT UNIX-TO-UNIVERSAL-TIME ...) ; x-compiling (DEFUN GET-UNIVERSAL-TIME ...) ; x-compiling (DEFUN GET-DECODED-TIME ...) ; x-compiling (DEFCONSTANT +MAR-1-2000+ ...) ; x-compiling (DEFCONSTANT +MAR-1-2035+ ...) ; x-compiling (DEFCONSTANT +MAR-1-1903+ ...) ; x-compiling (DEFUN YEARS-SINCE-MAR-2000 ...) ; x-compiling (DEFUN TRUNCATE-TO-UNIX-RANGE ...) ; x-compiling (DEFUN DECODE-UNIVERSAL-TIME ...) ; x-compiling (DEFUN PICK-OBVIOUS-YEAR ...) ; x-compiling (DEFUN LEAP-YEARS-BEFORE ...) ; x-compiling (DEFVAR *DAYS-BEFORE-MONTH* ...) ; x-compiling (DEFUN ENCODE-UNIVERSAL-TIME ...) ; x-compiling (DEFVAR *GC-RUN-TIME* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFUN PRINT-TIME ...) ; x-compiling (DEFMACRO TIME ...) ; x-compiling (DEFUN TIME-GET-SYS-INFO ...) ; x-compiling (DEFUN ELAPSED-CYCLES ...) ; x-compiling (DECLAIM (INLINE READ-CYCLE-COUNTER)) ; x-compiling (DEFUN READ-CYCLE-COUNTER ...) ; x-compiling (DEFUN FORMAT-MICROSECONDS ...) ; x-compiling (DEFUN FORMAT-MILLISECONDS ...) ; x-compiling (DEFUN %FORMAT-DECIMAL ...) ; x-compiling (DEFUN CALL-WITH-TIMING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/time.lisp ; in: DEFUN %FORMAT-DECIMAL ; (DEFUN SB!IMPL::%FORMAT-DECIMAL (STREAM NUMBER SB!IMPL::POWER) ; (DECLARE (STREAM STREAM) ; (INTEGER NUMBER SB!IMPL::POWER)) ; (WHEN (MINUSP NUMBER) (WRITE-CHAR #\- STREAM) (SETF NUMBER (- NUMBER))) ; (LET ((SB!IMPL::SCALE (EXPT 10 SB!IMPL::POWER))) ; (LABELS ((SB!IMPL::%FRACTION # ; # ; #) ; (SB!IMPL::%ZEROES # ; #)) ; (COND (# # #) (# # #) (# # #) (# #)))) ; NIL) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT32473 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: SETF (FDOCUMENTATION 'GET-INTERNAL-REAL-TIME 'FUNCTION) ; (SETF (SB!KERNEL:FDOCUMENTATION 'GET-INTERNAL-REAL-TIME 'FUNCTION) ; "Return the real time (\"wallclock time\") since startup in the internal ; time format. (See INTERNAL-TIME-UNITS-PER-SECOND.)") ; --> LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW0 ; 'GET-INTERNAL-REAL-TIME 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFUN %FORMAT-DECIMAL ; (DEFUN SB!IMPL::%FORMAT-DECIMAL (STREAM NUMBER SB!IMPL::POWER) ; (DECLARE (STREAM STREAM) ; (INTEGER NUMBER SB!IMPL::POWER)) ; (WHEN (MINUSP NUMBER) (WRITE-CHAR #\- STREAM) (SETF NUMBER (- NUMBER))) ; (LET ((SB!IMPL::SCALE (EXPT 10 SB!IMPL::POWER))) ; (LABELS ((SB!IMPL::%FRACTION # ; # ; #) ; (SB!IMPL::%ZEROES # ; #)) ; (COND (# # #) (# # #) (# # #) (# #)))) ; NIL) ; --> PROGN SB!INT:COLD-FSET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT32473 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT (SETF FDOCUMENTATION) LAYOUT-INVALID UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/time.lisp-obj-tmp written ; compilation finished in 0:00:00.312 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/timer.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE HEAP-PARENT ...)) ; x-compiling (DEFUN HEAP-PARENT ...) ; x-compiling (DEFUN HEAP-LEFT ...) ; x-compiling (DEFUN HEAP-RIGHT ...) ; x-compiling (DEFUN HEAPIFY ...) ; x-compiling (DEFUN HEAP-INSERT ...) ; x-compiling (DEFUN HEAP-MAXIMUM ...) ; x-compiling (DEFUN HEAP-EXTRACT ...) ; x-compiling (DEFUN HEAP-EXTRACT-MAXIMUM ...) ; x-compiling (DEFSTRUCT (PRIORITY-QUEUE # ...) ...) ; x-compiling (DEFUN MAKE-PRIORITY-QUEUE ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN PRIORITY-QUEUE-MAXIMUM ...) ; x-compiling (DEFUN PRIORITY-QUEUE-EXTRACT-MAXIMUM ...) ; x-compiling (DEFUN PRIORITY-QUEUE-INSERT ...) ; x-compiling (DEFUN PRIORITY-QUEUE-EMPTY-P ...) ; x-compiling (DEFUN PRIORITY-QUEUE-REMOVE ...) ; x-compiling (DEFSTRUCT (TIMER # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN MAKE-TIMER ...) ; x-compiling (DEFUN TIMER-NAME ...) ; x-compiling (DEFUN TIMER-SCHEDULED-P ...) ; x-compiling (DEFVAR *SCHEDULER-LOCK* ...) ; x-compiling (DEFMACRO WITH-SCHEDULER-LOCK ...) ; x-compiling (DEFUN UNDER-SCHEDULER-LOCK-P ...) ; x-compiling (DEFPARAMETER *SCHEDULE* ...) ; x-compiling (DEFUN PEEK-SCHEDULE ...) ; x-compiling (DEFUN TIME-LEFT ...) ; x-compiling (DEFUN DELTA->REAL ...) ; x-compiling (DEFUN MAKE-CANCELLABLE-INTERRUPTOR ...) ; x-compiling (DEFUN %SCHEDULE-TIMER ...) ; x-compiling (DEFUN SCHEDULE-TIMER ...) ; x-compiling (DEFUN UNSCHEDULE-TIMER ...) ; x-compiling (DEFUN LIST-ALL-TIMERS ...) ; x-compiling (DEFUN RESCHEDULE-TIMER ...) ; x-compiling (DEFUN REAL-TIME->SEC-AND-NSEC ...) ; x-compiling (DEFUN %SET-SYSTEM-TIMER ...) ; x-compiling (DEFUN %CLEAR-SYSTEM-TIMER ...) ; x-compiling (DEFUN SET-SYSTEM-TIMER ...) ; x-compiling (DEFUN RUN-TIMER ...) ; x-compiling (DEFUN RUN-EXPIRED-TIMERS ...) ; x-compiling (DEFUN TIMEOUT-CERROR ...) ; x-compiling (DEFMACRO WITH-TIMEOUT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/timer.lisp ; in: DEFSTRUCT TIMER ; (DEFSTRUCT ; (SB!EXT:TIMER (:CONC-NAME SB!IMPL::%TIMER-) ; (:CONSTRUCTOR SB!IMPL::%MAKE-TIMER)) ; "Timer type. Do not rely on timers being structs as it may change in ; future versions." ; SB!IMPL::NAME ; FUNCTION ; SB!IMPL::EXPIRE-TIME ; SB!IMPL::REPEAT-INTERVAL ; (SB!IMPL::THREAD NIL :TYPE (OR SB!THREAD:THREAD (MEMBER T NIL))) ; SB!IMPL::INTERRUPT-FUNCTION ; SB!IMPL::CANCEL-FUNCTION) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT PRIORITY-QUEUE ; (DEFSTRUCT ; (SB!IMPL::PRIORITY-QUEUE (:CONC-NAME SB!IMPL::%PQUEUE-) ; (:CONSTRUCTOR SB!IMPL::%MAKE-PRIORITY-QUEUE)) ; SB!IMPL::CONTENTS ; SB!IMPL::KEYFUN) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFUN MAKE-CANCELLABLE-INTERRUPTOR ; (SB!THREAD:WITH-RECURSIVE-LOCK (SB!IMPL::MUTEX) ; (UNLESS SB!IMPL::CANCELLEDP ; (SB!SYS:ALLOW-WITH-INTERRUPTS ; (FUNCALL FUNCTION)))) ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-LOCK #'SB!THREAD::WITH-RECURSIVE-LOCK-THUNK ; SB!IMPL::MUTEX T NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-LOCK ; in: DEFUN LIST-ALL-TIMERS ; (SB!IMPL::WITH-SCHEDULER-LOCK NIL ; (CONCATENATE 'LIST (SB!IMPL::%PQUEUE-CONTENTS SB!IMPL::*SCHEDULE*))) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK ; SB!IMPL::*SCHEDULER-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; in: DEFUN UNSCHEDULE-TIMER ; (SB!IMPL::WITH-SCHEDULER-LOCK NIL ; (SETF (SB!IMPL::%TIMER-EXPIRE-TIME SB!EXT:TIMER) NIL ; (SB!IMPL::%TIMER-REPEAT-INTERVAL SB!EXT:TIMER) NIL) ; (LET ((SB!IMPL::OLD-POSITION ; (SB!IMPL::PRIORITY-QUEUE-REMOVE SB!IMPL::*SCHEDULE* SB!EXT:TIMER))) ; (WHEN SB!IMPL::OLD-POSITION ; (FUNCALL (SB!IMPL::%TIMER-CANCEL-FUNCTION SB!EXT:TIMER))) ; (WHEN (EQL 0 SB!IMPL::OLD-POSITION) (SB!IMPL::SET-SYSTEM-TIMER)))) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK ; SB!IMPL::*SCHEDULER-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; in: DEFUN SCHEDULE-TIMER ; (SB!IMPL::WITH-SCHEDULER-LOCK NIL ; (SETF (SB!IMPL::%TIMER-EXPIRE-TIME SB!EXT:TIMER) ; (+ (GET-INTERNAL-REAL-TIME) (SB!IMPL::DELTA->REAL #)) ; (SB!IMPL::%TIMER-REPEAT-INTERVAL SB!EXT:TIMER) ; (IF SB!IMPL::REPEAT-INTERVAL ; (SB!IMPL::DELTA->REAL SB!IMPL::REPEAT-INTERVAL) ; NIL)) ; (SB!IMPL::%SCHEDULE-TIMER SB!EXT:TIMER)) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK ; SB!IMPL::*SCHEDULER-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; ; caught STYLE-WARNING: ; 2 more uses of undefined function SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/timer.lisp ; in: DEFUN UNDER-SCHEDULER-LOCK-P ; (SB!THREAD:HOLDING-MUTEX-P SB!IMPL::*SCHEDULER-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:HOLDING-MUTEX-P ; in: DEFUN RUN-TIMER ; (SB!THREAD:INTERRUPT-THREAD SB!IMPL::THREAD FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:INTERRUPT-THREAD ; in: DEFUN MAKE-CANCELLABLE-INTERRUPTOR ; (SB!THREAD:MAKE-MUTEX) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; in: DEFVAR *SCHEDULER-LOCK* ; (SB!THREAD:MAKE-MUTEX :NAME "Scheduler lock") ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; in: DEFUN RUN-TIMER ; (SB!THREAD:MAKE-THREAD ; (SB!SYS:WITHOUT-INTERRUPTS ; (SB!SYS:ALLOW-WITH-INTERRUPTS ; FUNCTION)) ; :NAME (FORMAT NIL "Timer ~A" (SB!IMPL::%TIMER-NAME SB!EXT:TIMER))) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-THREAD ; in: DEFUN RESCHEDULE-TIMER ; (SB!THREAD:THREAD-ALIVE-P SB!IMPL::THREAD) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:THREAD-ALIVE-P ; ; compilation unit finished ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT SB!THREAD::CALL-WITH-RECURSIVE-LOCK SB!THREAD::CALL-WITH-SYSTEM-MUTEX SB!THREAD:HOLDING-MUTEX-P SB!THREAD:INTERRUPT-THREAD SB!THREAD:MAKE-MUTEX SB!THREAD:MAKE-THREAD SB!THREAD:THREAD-ALIVE-P ; caught 13 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/timer.lisp-obj-tmp written ; compilation finished in 0:00:00.343 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/weak.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN MAKE-WEAK-POINTER ...) ; x-compiling (DECLAIM (INLINE WEAK-POINTER-VALUE)) ; x-compiling (DEFUN WEAK-POINTER-VALUE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/weak.lisp-obj-tmp written ; compilation finished in 0:00:00.041 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/final.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFGLOBAL **FINALIZER-STORE** ...) ; x-compiling (DEFGLOBAL **FINALIZER-STORE-LOCK** ...) ; x-compiling (DEFMACRO WITH-FINALIZER-STORE-LOCK ...) ; x-compiling (DEFUN FINALIZE ...) ; x-compiling (DEFUN DEINIT-FINALIZERS ...) ; x-compiling (DEFUN CANCEL-FINALIZATION ...) ; x-compiling (DEFUN RUN-PENDING-FINALIZERS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/final.lisp ; in: DEFGLOBAL **FINALIZER-STORE-LOCK** ; (SB!EXT:DEFGLOBAL SB!IMPL::**FINALIZER-STORE-LOCK** ; (SB!THREAD:MAKE-MUTEX :NAME "Finalizer store lock.")) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::**FINALIZER-STORE-LOCK** ; (UNLESS #:BOUNDP ; (SB!THREAD:MAKE-MUTEX :NAME "Finalizer store lock.")) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFGLOBAL **FINALIZER-STORE** ; (SB!EXT:DEFGLOBAL SB!IMPL::**FINALIZER-STORE** NIL) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::**FINALIZER-STORE** (UNLESS #:BOUNDP NIL) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFUN CANCEL-FINALIZATION ; (SB!IMPL::WITH-FINALIZER-STORE-LOCK ; (SETF SB!IMPL::**FINALIZER-STORE** ; (DELETE SB!IMPL::OBJECT SB!IMPL::**FINALIZER-STORE** :KEY ; (LAMBDA # #)))) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK SB!IMPL::**FINALIZER-STORE-LOCK**) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; in: DEFUN DEINIT-FINALIZERS ; (SB!IMPL::WITH-FINALIZER-STORE-LOCK ; (SETF SB!IMPL::**FINALIZER-STORE** ; (DELETE-IF #'THIRD SB!IMPL::**FINALIZER-STORE**))) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK SB!IMPL::**FINALIZER-STORE-LOCK**) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; in: DEFUN FINALIZE ; (SB!IMPL::WITH-FINALIZER-STORE-LOCK ; (PUSH ; (LIST (SB!EXT:MAKE-WEAK-POINTER SB!IMPL::OBJECT) FUNCTION ; SB!IMPL::DONT-SAVE) ; SB!IMPL::**FINALIZER-STORE**)) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK SB!IMPL::**FINALIZER-STORE-LOCK**) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/final.lisp ; in: DEFGLOBAL **FINALIZER-STORE-LOCK** ; (SB!THREAD:MAKE-MUTEX :NAME "Finalizer store lock.") ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; ; compilation unit finished ; Undefined functions: ; %DEFGLOBAL SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING SB!THREAD:MAKE-MUTEX ; caught 7 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/final.lisp-obj-tmp written ; compilation finished in 0:00:00.208 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/setf-funs.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFINE-SETTERS ("COMMON-LISP") ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/setf-funs.lisp ; in: DEFINE-SETTERS ("COMMON-LISP") ; (SB!KERNEL::DEFINE-SETTERS ("COMMON-LISP") GETF APPLY SB-XC:LDB ; SB-XC:MASK-FIELD LOGBITP SUBSEQ VALUES SETF BIT SBIT ...) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CAAAAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAAAAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CAAAAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G1 #:G2) ; (DECLARE (TYPE T #:G1) ; (TYPE LIST #:G2)) ; (BLOCK CAAAAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAAAAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAAAAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CAAADR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAAADR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CAAADR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G3 #:G4) ; (DECLARE (TYPE T #:G3) ; (TYPE LIST #:G4)) ; (BLOCK CAAADR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAAADR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAAADR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CAAAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAAAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CAAAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G5 #:G6) ; (DECLARE (TYPE T #:G5) ; (TYPE LIST #:G6)) ; (BLOCK CAAAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAAAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAAAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CAADAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAADAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CAADAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G7 #:G8) ; (DECLARE (TYPE T #:G7) ; (TYPE LIST #:G8)) ; (BLOCK CAADAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAADAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAADAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CAADDR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAADDR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CAADDR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G9 #:G10) ; (DECLARE (TYPE T #:G9) ; (TYPE LIST #:G10)) ; (BLOCK CAADDR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAADDR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAADDR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CAADR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAADR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CAADR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G11 #:G12) ; (DECLARE (TYPE T #:G11) ; (TYPE LIST #:G12)) ; (BLOCK CAADR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAADR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAADR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CAAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CAAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G13 #:G14) ; (DECLARE (TYPE T #:G13) ; (TYPE LIST #:G14)) ; (BLOCK CAAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CADAAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADAAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CADAAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G15 #:G16) ; (DECLARE (TYPE T #:G15) ; (TYPE LIST #:G16)) ; (BLOCK CADAAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADAAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADAAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CADADR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADADR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CADADR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G17 #:G18) ; (DECLARE (TYPE T #:G17) ; (TYPE LIST #:G18)) ; (BLOCK CADADR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADADR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADADR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CADAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CADAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G19 #:G20) ; (DECLARE (TYPE T #:G19) ; (TYPE LIST #:G20)) ; (BLOCK CADAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CADDAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADDAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CADDAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G21 #:G22) ; (DECLARE (TYPE T #:G21) ; (TYPE LIST #:G22)) ; (BLOCK CADDAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADDAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADDAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CADDDR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADDDR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CADDDR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G23 #:G24) ; (DECLARE (TYPE T #:G23) ; (TYPE LIST #:G24)) ; (BLOCK CADDDR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADDDR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADDDR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CADDR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADDR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CADDR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G25 #:G26) ; (DECLARE (TYPE T #:G25) ; (TYPE LIST #:G26)) ; (BLOCK CADDR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADDR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADDR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CADR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CADR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G27 #:G28) ; (DECLARE (TYPE T #:G27) ; (TYPE LIST #:G28)) ; (BLOCK CADR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CADR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G29 #:G30) ; (DECLARE (TYPE T #:G29) ; (TYPE LIST #:G30)) ; (BLOCK CAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDAAAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDAAAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDAAAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G31 #:G32) ; (DECLARE (TYPE T #:G31) ; (TYPE LIST #:G32)) ; (BLOCK CDAAAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDAAAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDAAAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDAADR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDAADR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDAADR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G33 #:G34) ; (DECLARE (TYPE T #:G33) ; (TYPE LIST #:G34)) ; (BLOCK CDAADR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDAADR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDAADR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDAAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDAAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDAAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G35 #:G36) ; (DECLARE (TYPE T #:G35) ; (TYPE LIST #:G36)) ; (BLOCK CDAAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDAAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDAAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDADAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDADAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDADAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G37 #:G38) ; (DECLARE (TYPE T #:G37) ; (TYPE LIST #:G38)) ; (BLOCK CDADAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDADAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDADAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDADDR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDADDR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDADDR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G39 #:G40) ; (DECLARE (TYPE T #:G39) ; (TYPE LIST #:G40)) ; (BLOCK CDADDR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDADDR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDADDR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDADR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDADR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDADR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G41 #:G42) ; (DECLARE (TYPE T #:G41) ; (TYPE LIST #:G42)) ; (BLOCK CDADR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDADR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDADR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G43 #:G44) ; (DECLARE (TYPE T #:G43) ; (TYPE LIST #:G44)) ; (BLOCK CDAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDDAAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDAAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDDAAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G45 #:G46) ; (DECLARE (TYPE T #:G45) ; (TYPE LIST #:G46)) ; (BLOCK CDDAAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDAAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDAAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDDADR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDADR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDDADR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G47 #:G48) ; (DECLARE (TYPE T #:G47) ; (TYPE LIST #:G48)) ; (BLOCK CDDADR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDADR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDADR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDDAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDDAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G49 #:G50) ; (DECLARE (TYPE T #:G49) ; (TYPE LIST #:G50)) ; (BLOCK CDDAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDDDAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDDAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDDDAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G51 #:G52) ; (DECLARE (TYPE T #:G51) ; (TYPE LIST #:G52)) ; (BLOCK CDDDAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDDAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDDAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDDDDR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDDDR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDDDDR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G53 #:G54) ; (DECLARE (TYPE T #:G53) ; (TYPE LIST #:G54)) ; (BLOCK CDDDDR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDDDR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDDDR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDDDR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDDR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDDDR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G55 #:G56) ; (DECLARE (TYPE T #:G55) ; (TYPE LIST #:G56)) ; (BLOCK CDDDR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDDR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDDR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDDR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDDR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G57 #:G58) ; (DECLARE (TYPE T #:G57) ; (TYPE LIST #:G58)) ; (BLOCK CDDR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDDR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CDR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CDR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G59 #:G60) ; (DECLARE (TYPE T #:G59) ; (TYPE LIST #:G60)) ; (BLOCK CDR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CDR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF CHAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CHAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF CHAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL ; (#:G61 #:G62 #:G63) ; (DECLARE (TYPE CHARACTER #:G61) ; (TYPE STRING #:G62) ; (TYPE # #:G63)) ; (BLOCK CHAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CHAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF CHAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF EIGHTH))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF EIGHTH) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF EIGHTH) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G64 #:G65) ; (DECLARE (TYPE T #:G64) ; (TYPE LIST #:G65)) ; (BLOCK EIGHTH (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF EIGHTH) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF EIGHTH) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF ELT))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF ELT) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF ELT) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL ; (#:G66 #:G67 #:G68) ; (DECLARE (TYPE T #:G66) ; (TYPE SEQUENCE #:G67) ; (TYPE # #:G68)) ; (BLOCK ELT (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF ELT) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF ELT) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF FDEFINITION))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FDEFINITION) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF FDEFINITION) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G69 #:G70) ; (DECLARE (TYPE FUNCTION #:G69) ; (TYPE # #:G70)) ; (BLOCK FDEFINITION (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FDEFINITION) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FDEFINITION) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF FIFTH))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FIFTH) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF FIFTH) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G71 #:G72) ; (DECLARE (TYPE T #:G71) ; (TYPE LIST #:G72)) ; (BLOCK FIFTH (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FIFTH) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FIFTH) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF FILL-POINTER))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FILL-POINTER) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF FILL-POINTER) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G73 #:G74) ; (DECLARE (TYPE # #:G73) ; (TYPE # #:G74)) ; (BLOCK FILL-POINTER (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FILL-POINTER) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FILL-POINTER) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF FIRST))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FIRST) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF FIRST) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G75 #:G76) ; (DECLARE (TYPE T #:G75) ; (TYPE LIST #:G76)) ; (BLOCK FIRST (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FIRST) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FIRST) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF FOURTH))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FOURTH) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF FOURTH) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G77 #:G78) ; (DECLARE (TYPE T #:G77) ; (TYPE LIST #:G78)) ; (BLOCK FOURTH (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FOURTH) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF FOURTH) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF LDB))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF COMMON-LISP:LDB) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF LDB) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL ; (#:G79 #:G80 #:G81) ; (DECLARE (TYPE UNSIGNED-BYTE #:G79) ; (TYPE CONS #:G80) ; (TYPE INTEGER #:G81)) ; (BLOCK LDB (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF COMMON-LISP:LDB) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF COMMON-LISP:LDB) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF MASK-FIELD))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF COMMON-LISP:MASK-FIELD) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF MASK-FIELD) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL ; (#:G82 #:G83 #:G84) ; (DECLARE (TYPE UNSIGNED-BYTE #:G82) ; (TYPE CONS #:G83) ; (TYPE INTEGER #:G84)) ; (BLOCK MASK-FIELD (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF COMMON-LISP:MASK-FIELD) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF COMMON-LISP:MASK-FIELD) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF NINTH))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF NINTH) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF NINTH) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G85 #:G86) ; (DECLARE (TYPE T #:G85) ; (TYPE LIST #:G86)) ; (BLOCK NINTH (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF NINTH) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF NINTH) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF NTH))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF NTH) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF NTH) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL ; (#:G87 #:G88 #:G89) ; (DECLARE (TYPE T #:G87) ; (TYPE UNSIGNED-BYTE #:G88) ; (TYPE LIST #:G89)) ; (BLOCK NTH (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF NTH) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF NTH) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF REST))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF REST) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF REST) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G90 #:G91) ; (DECLARE (TYPE T #:G90) ; (TYPE LIST #:G91)) ; (BLOCK REST (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF REST) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF REST) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF ROW-MAJOR-AREF))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF ROW-MAJOR-AREF) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF ROW-MAJOR-AREF) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL ; (#:G92 #:G93 #:G94) ; (DECLARE (TYPE T #:G92) ; (TYPE ARRAY #:G93) ; (TYPE # #:G94)) ; (BLOCK ROW-MAJOR-AREF (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF ROW-MAJOR-AREF) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF ROW-MAJOR-AREF) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF SCHAR))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SCHAR) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF SCHAR) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL ; (#:G95 #:G96 #:G97) ; (DECLARE (TYPE CHARACTER #:G95) ; (TYPE SIMPLE-STRING #:G96) ; (TYPE # #:G97)) ; (BLOCK SCHAR (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SCHAR) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SCHAR) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF SECOND))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SECOND) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF SECOND) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G98 #:G99) ; (DECLARE (TYPE T #:G98) ; (TYPE LIST #:G99)) ; (BLOCK SECOND (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SECOND) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SECOND) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF SEVENTH))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SEVENTH) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF SEVENTH) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G100 #:G101) ; (DECLARE (TYPE T #:G100) ; (TYPE LIST #:G101)) ; (BLOCK SEVENTH (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SEVENTH) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SEVENTH) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF SIXTH))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SIXTH) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF SIXTH) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G102 #:G103) ; (DECLARE (TYPE T #:G102) ; (TYPE LIST #:G103)) ; (BLOCK SIXTH (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SIXTH) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SIXTH) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF SVREF))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SVREF) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF SVREF) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL ; (#:G104 #:G105 #:G106) ; (DECLARE (TYPE T #:G104) ; (TYPE SIMPLE-VECTOR #:G105) ; (TYPE # #:G106)) ; (BLOCK SVREF (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SVREF) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SVREF) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF SYMBOL-PLIST))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SYMBOL-PLIST) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF SYMBOL-PLIST) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G107 #:G108) ; (DECLARE (TYPE LIST #:G107) ; (TYPE SYMBOL #:G108)) ; (BLOCK SYMBOL-PLIST (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SYMBOL-PLIST) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SYMBOL-PLIST) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF SYMBOL-VALUE))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SYMBOL-VALUE) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF SYMBOL-VALUE) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G109 #:G110) ; (DECLARE (TYPE T #:G109) ; (TYPE SYMBOL #:G110)) ; (BLOCK SYMBOL-VALUE (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SYMBOL-VALUE) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF SYMBOL-VALUE) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF TENTH))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF TENTH) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF TENTH) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G111 #:G112) ; (DECLARE (TYPE T #:G111) ; (TYPE LIST #:G112)) ; (BLOCK TENTH (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF TENTH) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF TENTH) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE (SETF THIRD))) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF THIRD) ; --> PROGN DEFUN PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (SB!C:%COMPILER-DEFUN '(SETF THIRD) ; '(SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (#:G113 #:G114) ; (DECLARE (TYPE T #:G113) ; (TYPE LIST #:G114)) ; (BLOCK THIRD (SETF #))) ; T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF THIRD) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF THIRD) ; ; compilation unit finished ; caught 159 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/setf-funs.lisp-obj-tmp written ; compilation finished in 0:00:00.269 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/stubs.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF %CALLER-FRAME ...) ; x-compiling (DEF %CALLER-PC ...) ; x-compiling (DEF %CODE-CODE-SIZE) ; x-compiling (DEF %CODE-DEBUG-INFO) ; x-compiling (DEF %CODE-ENTRY-POINTS) ; x-compiling (DEF %FUNCALLABLE-INSTANCE-LAYOUT) ; x-compiling (DEF %SET-FUNCALLABLE-INSTANCE-LAYOUT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/stubs.lisp-obj-tmp written ; compilation finished in 0:00:00.034 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/exhaust.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFINE-ALIEN-ROUTINE RESET-CONTROL-STACK-GUARD-PAGE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/exhaust.lisp-obj-tmp written ; compilation finished in 0:00:00.022 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/early-c.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!CONSTANT SB-XC:CALL-ARGUMENTS-LIMIT ...) ; x-compiling (DEF!CONSTANT SB-XC:LAMBDA-PARAMETERS-LIMIT ...) ; x-compiling (DEF!CONSTANT SB-XC:MULTIPLE-VALUES-LIMIT ...) ; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME*) ; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME*) ; x-compiling (DEFVAR SB-XC:*COMPILE-PRINT*) ; x-compiling (DEFVAR SB-XC:*COMPILE-VERBOSE*) ; x-compiling (DEF!TYPE LAYOUT-DEPTHOID ...) ; x-compiling (DEFTYPE INLINEP ...) ; x-compiling (DEFPARAMETER *INLINEP-TRANSLATIONS* ...) ; x-compiling (DEFVAR *LEXENV*) ; x-compiling (DECLAIM (TYPE LEXENV ...)) ; x-compiling (DEFVAR *FREE-VARS*) ; x-compiling (DEFVAR *FREE-FUNS*) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *CONSTANTS*) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *ALLOW-INSTRUMENTING*) ; x-compiling (DEFVAR *CODE-SEGMENT*) ; x-compiling (DEFVAR *COMPONENT-BEING-COMPILED*) ; x-compiling (DEFVAR *COMPILER-ERROR-CONTEXT*) ; x-compiling (DEFVAR *COMPILER-ERROR-COUNT*) ; x-compiling (DEFVAR *COMPILER-WARNING-COUNT*) ; x-compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*) ; x-compiling (DEFVAR *COMPILER-NOTE-COUNT*) ; x-compiling (DEFVAR *COMPILER-TRACE-OUTPUT*) ; x-compiling (DEFVAR *CONSTRAINT-UNIVERSE*) ; x-compiling (DEFVAR *COUNT-VOP-USAGES*) ; x-compiling (DEFVAR *CURRENT-PATH*) ; x-compiling (DEFVAR *CURRENT-COMPONENT*) ; x-compiling (DEFVAR *DELAYED-IR1-TRANSFORMS*) ; x-compiling (DEFVAR *EVAL-TLF-INDEX*) ; x-compiling (DEFVAR *HANDLED-CONDITIONS*) ; x-compiling (DEFVAR *DISABLED-PACKAGE-LOCKS*) ; x-compiling (DEFVAR *POLICY*) ; x-compiling (DEFVAR *DYNAMIC-COUNTS-TN*) ; x-compiling (DEFVAR *ELSEWHERE*) ; x-compiling (DEFVAR *EVENT-INFO*) ; x-compiling (DEFVAR *EVENT-NOTE-THRESHOLD*) ; x-compiling (DEFVAR *FAILURE-P*) ; x-compiling (DEFVAR *FIXUP-NOTES*) ; x-compiling (DEFVAR *IN-PACK*) ; x-compiling (DEFVAR *CONSTANT-SEGMENT*) ; x-compiling (DEFVAR *CONSTANT-TABLE*) ; x-compiling (DEFVAR *CONSTANT-VECTOR*) ; x-compiling (DEFVAR *LEXENV*) ; x-compiling (DEFVAR *SOURCE-INFO*) ; x-compiling (DEFVAR *SOURCE-PLIST*) ; x-compiling (DEFVAR *SOURCE-NAMESTRING*) ; x-compiling (DEFVAR *UNDEFINED-WARNINGS*) ; x-compiling (DEFVAR *WARNINGS-P*) ; x-compiling (DEFVAR *LAMBDA-CONVERSIONS*) ; x-compiling (DEFVAR *STACK-ALLOCATE-DYNAMIC-EXTENT* ...) ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFGLOBAL **WORLD-LOCK** ...) ; x-compiling (!COLD-INIT-FORMS (SETF **WORLD-LOCK** ...)) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !WORLD-LOCK-COLD-INIT) ; x-compiling (DEFMACRO WITH-WORLD-LOCK ...) ; x-compiling (DECLAIM (TYPE FIXNUM ...)) ; x-compiling (DEFVAR *COMPILER-SSET-COUNTER* ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NOTE-NAME-DEFINED ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NOTE-LEXICAL-BINDING ...) ; x-compiling (DEF!STRUCT (DEBUG-NAME-MARKER # ...)) ; x-compiling (DEFVAR *DEBUG-NAME-LEVEL* ...) ; x-compiling (DEFVAR *DEBUG-NAME-LENGTH* ...) ; x-compiling (DEFVAR *DEBUG-NAME-PUNT*) ; x-compiling (DEFVAR *DEBUG-NAME-SHARP*) ; x-compiling (DEFVAR *DEBUG-NAME-ELLIPSIS*) ; x-compiling (DEFUN DUMP-DEBUG-NAME-MARKER ...) ; x-compiling (DEFUN PRINT-DEBUG-NAME-MARKER ...) ; x-compiling (SETF *DEBUG-NAME-SHARP* ...) ; x-compiling (DEFUN DEBUG-NAME ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/early-c.lisp ; in: DEFGLOBAL **WORLD-LOCK** ; (SB!EXT:DEFGLOBAL SB!C::**WORLD-LOCK** NIL) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!C::**WORLD-LOCK** (UNLESS #:BOUNDP NIL) #:BOUNDP ; 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: ; DEF!STRUCT (DEBUG-NAME-MARKER (:MAKE-LOAD-FORM-FUN DUMP-DEBUG-NAME-MARKER) ; (:PRINT-FUNCTION PRINT-DEBUG-NAME-MARKER)) ; (SB!INT:DEF!STRUCT ; (SB!C::DEBUG-NAME-MARKER (:MAKE-LOAD-FORM-FUN SB!C::DUMP-DEBUG-NAME-MARKER) ; (:PRINT-FUNCTION SB!C::PRINT-DEBUG-NAME-MARKER))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !WORLD-LOCK-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!WORLD-LOCK-COLD-INIT) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SETF SETQ THE ; ==> ; (SB!THREAD:MAKE-MUTEX :NAME "World Lock") ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; in: DEFUN DEBUG-NAME ; (SB!C::NAME-CONTEXT) ; ; caught STYLE-WARNING: ; undefined function: NAME-CONTEXT ; in: DEFUN NOTE-NAME-DEFINED ; (SB!C::UNDEFINED-WARNING-KIND SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: UNDEFINED-WARNING-KIND ; (SB!C::UNDEFINED-WARNING-NAME SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: UNDEFINED-WARNING-NAME ; ; compilation unit finished ; Undefined functions: ; SB!IMPL::%DEFGLOBAL SB!KERNEL::%TARGET-DEFSTRUCT SB!THREAD:MAKE-MUTEX NAME-CONTEXT UNDEFINED-WARNING-KIND UNDEFINED-WARNING-NAME ; caught 6 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/early-c.lisp-obj-tmp written ; compilation finished in 0:00:00.123 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/policy.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!TYPE POLICY-QUALITY ...) ; x-compiling (DEFVAR *POLICY-RESTRICTIONS* ...) ; x-compiling (DEFUN RESTRICT-COMPILER-POLICY ...) ; x-compiling (DEF!TYPE POLICY ...) ; x-compiling (DEFSTRUCT POLICY-DEPENDENT-QUALITY ...) ; x-compiling (DEFVAR *POLICY-QUALITIES*) ; x-compiling (DEFVAR *POLICY-DEPENDENT-QUALITIES* ...) ; x-compiling (DEFUN POLICY-QUALITY-NAME-P ...) ; x-compiling (DEFUN POLICY-QUALITY-DEPRECATION-WARNING ...) ; x-compiling (DECLAIM (TYPE POLICY ...)) ; x-compiling (DEFVAR *POLICY*) ; x-compiling (DEFUN SORT-POLICY ...) ; x-compiling (DEFUN !POLICY-COLD-INIT-OR-RESANIFY ...) ; x-compiling (DEFUN POLICY-QUALITY ...) ; x-compiling (DEFUN %POLICY-QUALITY ...) ; x-compiling (DEFMACRO POLICY ...) ; x-compiling (DEFMACRO DEFINE-OPTIMIZATION-QUALITY ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/policy.lisp ; in: DEFSTRUCT POLICY-DEPENDENT-QUALITY ; (DEFSTRUCT SB!C::POLICY-DEPENDENT-QUALITY ; SB!C::NAME ; SB!C::EXPRESSION ; SB!C::GETTER ; SB!C::VALUES-DOCUMENTATION) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFMACRO POLICY ; (MAPCAR ; (LAMBDA (SB!C::NAME) ; (SB!IMPL::BACKQ-LIST SB!C::NAME ; (SB!IMPL::BACKQ-LIST 'SB!C::POLICY-QUALITY ; SB!C::N-POLICY ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!C::NAME)))) ; SB!C::*POLICY-QUALITIES*) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN !POLICY-COLD-INIT-OR-RESANIFY ; (MAPCAR (LAMBDA (SB!C::NAME) (CONS SB!C::NAME 1)) SB!C::*POLICY-QUALITIES*) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined function: ; SB!KERNEL::%TARGET-DEFSTRUCT ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/policy.lisp-obj-tmp written ; compilation finished in 0:00:00.149 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/policies.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY LET-CONVERSION ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY ALIEN-FUNCALL-SAVES-FP-AND-PC ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY VERIFY-ARG-COUNT ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-DEBUG-CATCH ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY RECOGNIZE-SELF-CALLS ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY FLOAT-ACCURACY ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-STEP-CONDITIONS ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY COMPUTE-DEBUG-FUN ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY PRESERVE-SINGLE-USE-DEBUG-VARIABLES ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-ARRAY-BOUNDS-CHECKS ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY STORE-XREF-DATA ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY STORE-COVERAGE-DATA ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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: ; 12 more uses of undefined function %COERCE-TO-POLICY ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/policies.lisp ; in: DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-TAG-EXISTENCE ; (COND ((= SAFETY 0) 0) (T 3)) ; ("no" "maybe" "yes" "yes") ; "Control whether GO and RETURN-FROM check liveness of the destination tag. ; Enabling this option can increase heap consing of closures.") ; --> EVAL-WHEN SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW56 ; 'SB!C::CHECK-TAG-EXISTENCE 'OPTIMIZE) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::TYPE-CHECK ; (COND ((= SAFETY 0) 0) ; ((AND (< SAFETY 2) (< SAFETY SPEED)) ; 2) ; (T 3)) ; ("no" "maybe" "weak" "full") ; "Control the way to perform runtime type checking: ; 0: declared types are simply trusted; no runtime checks are performed; ; 2: fast checks are performed: declared types are weakened to ; FIXNUM/SINGLE-FLOAT/FLOAT/NUMBER/structure/specialized array etc.; ; 3: declared types are fully checked (several exceptions exist; ; see \"SBCL User Manual\", Compiler->Handling of Types-> ; Implementation Limitations for details).") ; --> EVAL-WHEN SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW37 'SB!C::TYPE-CHECK ; 'OPTIMIZE) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-CONSTANT-MODIFICATION SAFETY ; ("no" "maybe" "yes" "yes") ; "Control whether the compiler should check for constant ; modification. Defaults to SAFETY.") ; --> EVAL-WHEN SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW18 ; 'SB!C::CHECK-CONSTANT-MODIFICATION 'OPTIMIZE) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; ; caught STYLE-WARNING: ; 6 more uses of undefined function (SETF FDOCUMENTATION) ; ; compilation unit finished ; Undefined functions: ; %COERCE-TO-POLICY (SETF FDOCUMENTATION) ; caught 8 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/policies.lisp-obj-tmp written ; compilation finished in 0:00:00.154 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/typedefs.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFMACRO !DEF-TYPE-TRANSLATOR ...) ; x-compiling (DEFVAR *TYPE-RANDOM-STATE*) ; x-compiling (DEF!STRUCT (CTYPE # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN MAKE-TYPE-LOAD-FORM ...) ; x-compiling (DEFUN HIERARCHICAL-INTERSECTION2 ...) ; x-compiling (DEFUN HIERARCHICAL-UNION2 ...) ; x-compiling (DECLAIM (INLINE TYPE-CACHE-HASH)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN TYPE-CACHE-HASH ...) ; x-compiling (DECLAIM (INLINE TYPE-LIST-CACHE-HASH)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN TYPE-LIST-CACHE-HASH ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPEDEFS-COLD-INIT) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/typedefs.lisp ; in: ; DEF!STRUCT (CTYPE (:CONC-NAME TYPE-) (:CONSTRUCTOR NIL) ; (:MAKE-LOAD-FORM-FUN MAKE-TYPE-LOAD-FORM) (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:CTYPE (:CONC-NAME SB!KERNEL::TYPE-) (:CONSTRUCTOR NIL) ; (:MAKE-LOAD-FORM-FUN SB!KERNEL::MAKE-TYPE-LOAD-FORM) (:PURE T)) ; (SB!KERNEL::CLASS-INFO (SB!INT:MISSING-ARG) :TYPE SB!KERNEL::TYPE-CLASS) ; (SB!KERNEL::ENUMERABLE NIL :READ-ONLY T) ; (SB!KERNEL::HASH-VALUE ; (RANDOM 268435456 ; (IF (BOUNDP 'SB!KERNEL::*TYPE-RANDOM-STATE*) ; SB!KERNEL::*TYPE-RANDOM-STATE* ; (SETF #))) ; :TYPE (AND FIXNUM UNSIGNED-BYTE) :READ-ONLY T) ; (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P NIL :READ-ONLY T)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET ; --> FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW72 #:G73) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!KERNEL:CTYPE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFUN HIERARCHICAL-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 ; ; compilation unit finished ; Undefined functions: ; %TARGET-DEFSTRUCT (SETF LAYOUT-PURE) CLASSOID-LAYOUT CSUBTYPEP TYPE-SPECIFIER ; caught 6 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/typedefs.lisp-obj-tmp written ; compilation finished in 0:00:00.106 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/macros.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*)) ; x-compiling (DEFTYPE INLINEP ...) ; x-compiling (DEFMACRO DEF-IR1-TRANSLATOR ...) ; x-compiling (DEFMACRO SOURCE-TRANSFORM-LAMBDA ...) ; x-compiling (DEFMACRO DEFINE-SOURCE-TRANSFORM ...) ; x-compiling (DEFTYPE ATTRIBUTES ...) ; x-compiling (DEFUN COMPUTE-ATTRIBUTE-MASK ...) ; x-compiling (DEFMACRO ATTRIBUTES-UNION ...) ; x-compiling (DEFMACRO ATTRIBUTES-INTERSECTION ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DECLAIM (INLINE ATTRIBUTES=)) ; x-compiling (DEFUN ATTRIBUTES= ...) ; x-compiling (DEFUN PARSE-DEFTRANSFORM ...) ; x-compiling (DEFMACRO DEFTRANSFORM ...) ; x-compiling (DEFMACRO DEFKNOWN ...) ; x-compiling (DEFMACRO DEFOPTIMIZER ...) ; x-compiling (DEFMACRO DO-BLOCKS ...) ; x-compiling (DEFMACRO DO-BLOCKS-BACKWARDS ...) ; x-compiling (DEFMACRO DO-USES ...) ; x-compiling (DEFMACRO DO-NODES ...) ; x-compiling (DEFMACRO DO-NODES-BACKWARDS ...) ; x-compiling (DEFMACRO DO-NODES-CAREFULLY ...) ; x-compiling (DEFMACRO WITH-IR1-ENVIRONMENT-FROM-NODE ...) ; x-compiling (DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ...) ; x-compiling (DEFMACRO WITH-SOURCE-PATHS ...) ; x-compiling (DEFMACRO WITH-IR1-NAMESPACE ...) ; x-compiling (DEFMACRO LEXENV-FIND ...) ; x-compiling (DEFMACRO WITH-COMPONENT-LAST-BLOCK ...) ; x-compiling (DEFSTRUCT (EVENT-INFO #) ...) ; x-compiling (DEFVAR *EVENT-INFO* ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EVENT-INFO-OR-LOSE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EVENT-COUNT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EVENT-ACTION ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %SET-EVENT-ACTION ...) ; x-compiling (DEFSETF EVENT-ACTION ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EVENT-LEVEL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %SET-EVENT-LEVEL ...) ; x-compiling (DEFSETF EVENT-LEVEL ...) ; x-compiling (DEFMACRO DEFEVENT ...) ; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; x-compiling (DEFVAR *EVENT-NOTE-THRESHOLD* ...) ; x-compiling (DEFMACRO EVENT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EVENT-STATISTICS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CLEAR-EVENT-STATISTICS ...) ; x-compiling (DECLAIM (INLINE FIND-IN ...)) ; x-compiling (DEFUN FIND-IN ...) ; x-compiling (DEFUN POSITION-IN ...) ; x-compiling (DEF!MACRO DELETEF-IN ...) ; x-compiling (DEF!MACRO PUSH-IN ...) ; x-compiling (DEFMACRO POSITION-OR-LOSE ...) ; x-compiling (DEFVAR *COMPILER-PRINT-VARIABLE-ALIST* ...) ; x-compiling (DEFMACRO WITH-COMPILER-IO-SYNTAX ...) ; x-compiling (DEFMACRO COMPILER-DESTRUCTURING-BIND ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/macros.lisp ; in: DEFSTRUCT EVENT-INFO ; (DEFSTRUCT (SB!C::EVENT-INFO (:COPIER NIL)) ; (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL) ; (SB!C::DESCRIPTION (SB!INT:MISSING-ARG) :TYPE STRING) ; (SB!C::VAR (SB!INT:MISSING-ARG) :TYPE SYMBOL) ; (COUNT 0 :TYPE FIXNUM) ; (SB!C::LEVEL (SB!INT:MISSING-ARG) :TYPE UNSIGNED-BYTE) ; (SB!C::ACTION NIL :TYPE (OR FUNCTION NULL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSETF EVENT-LEVEL ; (DEFSETF SB!C::EVENT-LEVEL SB!C::%SET-EVENT-LEVEL) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!C::EVENT-LEVEL NIL NIL ; 'SB!C::%SET-EVENT-LEVEL NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFSETF EVENT-ACTION ; (DEFSETF SB!C::EVENT-ACTION SB!C::%SET-EVENT-ACTION) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!C::EVENT-ACTION NIL NIL ; 'SB!C::%SET-EVENT-ACTION NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ; (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: AVER-LIVE-COMPONENT ; in: DEFUN PARSE-DEFTRANSFORM ; (MAPCAR #'CDR SB!C::KEYS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO ATTRIBUTES-INTERSECTION ; (MAPCAR ; (LAMBDA (SB!C::X) (SB!IMPL::BACKQ-LIST 'THE 'SB!C:ATTRIBUTES SB!C::X)) ; SB!C:ATTRIBUTES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO ATTRIBUTES-UNION ; (MAPCAR ; (LAMBDA (SB!C::X) (SB!IMPL::BACKQ-LIST 'THE 'SB!C:ATTRIBUTES SB!C::X)) ; SB!C:ATTRIBUTES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 8 more uses of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/macros.lisp ; in: DEF!MACRO PUSH-IN ; (GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-SETF-EXPANSION ; in: DEF!MACRO DELETEF-IN ; (GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-SETF-EXPANSION ; in: DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ; (SB!C::NODE-COMPONENT SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; (SB!C::NODE-LEXENV SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: NODE-LEXENV ; (SB!C::NODE-SOURCE-PATH SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: NODE-SOURCE-PATH ; in: DEFUN PARSE-DEFTRANSFORM ; (SB!INT:PARSE-LAMBDA-LIST SB!C::LAMBDA-LIST) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT SB!IMPL::ASSIGN-SETF-MACRO AVER-LIVE-COMPONENT GET-SETF-EXPANSION NODE-COMPONENT NODE-LEXENV NODE-SOURCE-PATH PARSE-LAMBDA-LIST ; caught 14 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/macros.lisp-obj-tmp written ; compilation finished in 0:00:00.484 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-macs.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFMACRO PAD-DATA-BLOCK ...) ; x-compiling (DEFUN REMOVE-KEYWORDS ...) ; x-compiling (DEF!STRUCT (PRIM-OBJECT-SLOT # ...) ...) ; x-compiling (DEF!STRUCT (PRIMITIVE-OBJECT #) ...) ; x-compiling (DEFVAR *PRIMITIVE-OBJECTS* ...) ; x-compiling (DEFUN %DEFINE-PRIMITIVE-OBJECT ...) ; x-compiling (DEFVAR *!LATE-PRIMITIVE-OBJECT-FORMS* ...) ; x-compiling (DEFMACRO DEFINE-PRIMITIVE-OBJECT ...) ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFMACRO DEF-REFFER ...) ; x-compiling (DEFMACRO DEF-SETTER ...) ; x-compiling (DEFMACRO DEF-ALLOC ...) ; x-compiling (DEFMACRO DEF-CASSER ...) ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!CONSTANT SC-NUMBER-LIMIT ...) ; x-compiling (DEFSTRUCT MODULAR-CLASS ...) ; x-compiling (DEFVAR *UNTAGGED-UNSIGNED-MODULAR-CLASS* ...) ; x-compiling (DEFVAR *UNTAGGED-SIGNED-MODULAR-CLASS* ...) ; x-compiling (DEFVAR *TAGGED-MODULAR-CLASS* ...) ; x-compiling (DEFUN FIND-MODULAR-CLASS ...) ; x-compiling (DEFSTRUCT MODULAR-FUN-INFO ...) ; x-compiling (DEFUN FIND-MODULAR-VERSION ...) ; x-compiling (DEFUN MODULAR-VERSION-INFO ...) ; x-compiling (DEFUN %DEFINE-MODULAR-FUN ...) ; x-compiling (DEFMACRO DEFINE-MODULAR-FUN ...) ; x-compiling (DEFUN %DEFINE-GOOD-MODULAR-FUN ...) ; x-compiling (DEFMACRO DEFINE-GOOD-MODULAR-FUN ...) ; x-compiling (DEFMACRO DEFINE-MODULAR-FUN-OPTIMIZER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-macs.lisp ; in: DEFSTRUCT MODULAR-CLASS ; (DEFSTRUCT SB!C::MODULAR-CLASS ; (SB!C::FUNS (MAKE-HASH-TABLE :TEST 'EQ)) ; (SB!C::VERSIONS (MAKE-HASH-TABLE :TEST 'EQ)) ; (SB!C::WIDTHS NIL)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (SB!VM:PRIMITIVE-OBJECT (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)) ; (SB!INT:DEF!STRUCT ; (SB!VM:PRIMITIVE-OBJECT ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)) ; (SB!VM::NAME NIL :TYPE SYMBOL) (SB!VM::WIDETAG NIL :TYPE SYMBOL) ; (SB!VM::LOWTAG NIL :TYPE SYMBOL) (SB!VM::OPTIONS NIL :TYPE LIST) ; (SB!VM::SLOTS NIL :TYPE LIST) (SB!VM::SIZE 0 :TYPE FIXNUM) ; (SB!VM::VARIABLE-LENGTH-P NIL :TYPE (MEMBER T NIL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (SB!VM::PRIM-OBJECT-SLOT ; (:CONSTRUCTOR SB!VM::MAKE-SLOT ; (SB!VM::NAME SB!VM::DOCS SB!VM::REST-P SB!VM::OFFSET SPECIAL ; ...)) ; (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) ; (:CONC-NAME SB!VM::SLOT-)) ; (SB!INT:DEF!STRUCT ; (SB!VM::PRIM-OBJECT-SLOT ; (:CONSTRUCTOR SB!VM::MAKE-SLOT ; (SB!VM::NAME SB!VM::DOCS SB!VM::REST-P SB!VM::OFFSET SPECIAL ; SB!VM::OPTIONS)) ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:CONC-NAME SB!VM::SLOT-)) ; (SB!VM::NAME NIL :TYPE SYMBOL) ; (SB!VM::DOCS NIL :TYPE (OR NULL SIMPLE-STRING)) ; (SB!VM::REST-P NIL :TYPE (MEMBER T NIL)) (SB!VM::OFFSET 0 :TYPE FIXNUM) ; (SB!VM::OPTIONS NIL :TYPE LIST) (SPECIAL NIL :TYPE SYMBOL)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!KERNEL::%TARGET-DEFSTRUCT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-macs.lisp ; in: DEFMACRO DEFINE-MODULAR-FUN ; (MAPCAR (CONSTANTLY 'INTEGER) SB!C::LAMBDA-LIST) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined function: ; SB!KERNEL::%TARGET-DEFSTRUCT ; caught 5 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/vm-macs.lisp-obj-tmp written ; compilation finished in 0:00:00.428 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/objdef.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-PRIMITIVE-OBJECT (CONS :TYPE ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (INSTANCE :LOWTAG ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (BIGNUM :LOWTAG ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (RATIO :TYPE ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (DOUBLE-FLOAT :LOWTAG ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (COMPLEX :TYPE ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (ARRAY :LOWTAG ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (VECTOR :TYPE ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (CODE :TYPE ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (FDEFN :TYPE ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (SIMPLE-FUN :TYPE ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (RETURN-PC :LOWTAG ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (CLOSURE :LOWTAG ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (FUNCALLABLE-INSTANCE :LOWTAG ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (VALUE-CELL :LOWTAG ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (SAP :LOWTAG ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (WEAK-POINTER :TYPE ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (BINDING) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (UNWIND-BLOCK) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (CATCH-BLOCK) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (SYMBOL :LOWTAG ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (COMPLEX-SINGLE-FLOAT :LOWTAG ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (COMPLEX-DOUBLE-FLOAT :LOWTAG ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (SIMD-PACK :LOWTAG ...) ...) ; x-compiling (DEFINE-PRIMITIVE-OBJECT (THREAD) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/objdef.lisp-obj-tmp written ; compilation finished in 0:00:00.138 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/sset.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!STRUCT (SSET-ELEMENT # ...) ...) ; x-compiling (DEFSTRUCT (SSET #) ...) ; x-compiling (DEFPRINTER (SSET) ...) ; x-compiling (DEFMACRO DO-SSET-ELEMENTS ...) ; x-compiling (DECLAIM (INLINE SSET-HASH1)) ; x-compiling (DEFUN SSET-HASH1 ...) ; x-compiling (DECLAIM (INLINE SSET-HASH2)) ; x-compiling (DEFUN SSET-HASH2 ...) ; x-compiling (DEFUN SSET-GROW ...) ; x-compiling (DEFCONSTANT +SSET-REHASH-THRESHOLD+ ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET-ADJOIN ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET-DELETE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET-MEMBER ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET= ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET-EMPTY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN COPY-SSET ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET-UNION ...) ; x-compiling (DEFUN SSET-INTERSECTION ...) ; x-compiling (DEFUN SSET-DIFFERENCE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET-UNION-OF-DIFFERENCE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/sset.lisp ; in: DEFSTRUCT SSET ; (DEFSTRUCT (SB!ASSEM:SSET (:COPIER NIL)) ; (VECTOR #() :TYPE SIMPLE-VECTOR) ; (SB!C::FREE 0 :TYPE SB!INT:INDEX) ; (COUNT 0 :TYPE SB!INT:INDEX)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEF!STRUCT (SSET-ELEMENT (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!INT:DEF!STRUCT (SB!ASSEM:SSET-ELEMENT (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (NUMBER NIL :TYPE (OR SB!INT:INDEX NULL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; compilation unit finished ; Undefined function: ; SB!KERNEL::%TARGET-DEFSTRUCT ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/sset.lisp-obj-tmp written ; compilation finished in 0:00:00.266 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/node.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!STRUCT (CTRAN # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!STRUCT (LVAR # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!STRUCT (NODE # ...) ...) ; x-compiling (DEF!STRUCT (VALUED-NODE # ...) ...) ; x-compiling (!DEF-BOOLEAN-ATTRIBUTE BLOCK ...) ; x-compiling (DEFATTR BLOCK-REOPTIMIZE) ; x-compiling (DEFATTR BLOCK-FLUSH-P) ; x-compiling (DEFATTR BLOCK-TYPE-CHECK) ; x-compiling (DEFATTR BLOCK-DELETE-P) ; x-compiling (DEFATTR BLOCK-TYPE-ASSERTED) ; x-compiling (DEFATTR BLOCK-TEST-MODIFIED) ; x-compiling (DEF!STRUCT (CBLOCK # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!STRUCT (BLOCK-ANNOTATION # ...) ...) ; x-compiling (DEF!STRUCT (COMPONENT # ...) ...) ; x-compiling (DEFPRINTER (COMPONENT :IDENTITY ...) ...) ; x-compiling (DEFUN AVER-LIVE-COMPONENT ...) ; x-compiling (DEFUN LAMBDA-TOPLEVELISH-P ...) ; x-compiling (DEFUN COMPONENT-TOPLEVELISH-P ...) ; x-compiling (DEF!STRUCT (CLEANUP #) ...) ; x-compiling (DEFPRINTER (CLEANUP :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (PHYSENV #) ...) ; x-compiling (DEFPRINTER (PHYSENV :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (TAIL-SET) ...) ; x-compiling (DEFPRINTER (TAIL-SET :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (NLX-INFO # ...) ...) ; x-compiling (DEFPRINTER (NLX-INFO :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (LEAF # ...) ...) ; x-compiling (DEFUN LEAF-DYNAMIC-EXTENT ...) ; x-compiling (DEFUN LEAF-HAS-SOURCE-NAME-P ...) ; x-compiling (DEFUN LEAF-SOURCE-NAME ...) ; x-compiling (DEFUN LEAF-DEBUG-NAME ...) ; x-compiling (DEFUN LEAF-%DEBUG-NAME ...) ; x-compiling (DEF!STRUCT (CONSTANT # ...) ...) ; x-compiling (DEFPRINTER (CONSTANT :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (BASIC-VAR # ...) ...) ; x-compiling (DEF!STRUCT (GLOBAL-VAR #) ...) ; x-compiling (DEFPRINTER (GLOBAL-VAR :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (DEFINED-FUN #) ...) ; x-compiling (DEFPRINTER (DEFINED-FUN :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (FUNCTIONAL #) ...) ; x-compiling (DEFPRINTER (FUNCTIONAL :IDENTITY ...) ...) ; x-compiling (DEFUN FUNCTIONAL-LETLIKE-P ...) ; x-compiling (DEFUN FUNCTIONAL-SOMEWHAT-LETLIKE-P ...) ; x-compiling (DEFUN FUNCTIONAL-DEBUG-NAME ...) ; x-compiling (DEF!STRUCT (CLAMBDA # ...) ...) ; x-compiling (DEFPRINTER (CLAMBDA :CONC-NAME ...) ...) ; x-compiling (DEF!STRUCT (OPTIONAL-DISPATCH #) ...) ; x-compiling (DEFPRINTER (OPTIONAL-DISPATCH :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT ARG-INFO ...) ; x-compiling (DEFPRINTER (ARG-INFO :IDENTITY ...) ...) ; x-compiling (!DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ...) ; x-compiling (DEF!STRUCT (LAMBDA-VAR #) ...) ; x-compiling (DEFPRINTER (LAMBDA-VAR :IDENTITY ...) ...) ; x-compiling (DEFMACRO LAMBDA-VAR-IGNOREP ...) ; x-compiling (DEFMACRO LAMBDA-VAR-INDIRECT ...) ; x-compiling (DEFMACRO LAMBDA-VAR-DELETED ...) ; x-compiling (DEFMACRO LAMBDA-VAR-EXPLICIT-VALUE-CELL ...) ; x-compiling (DEF!STRUCT (REF # ...) ...) ; x-compiling (DEFPRINTER (REF :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (CIF # ...) ...) ; x-compiling (DEFPRINTER (CIF :CONC-NAME ...) ...) ; x-compiling (DEF!STRUCT (CSET # ...) ...) ; x-compiling (DEFPRINTER (CSET :CONC-NAME ...) ...) ; x-compiling (DEF!STRUCT (BASIC-COMBINATION # ...) ...) ; x-compiling (DEF!STRUCT (COMBINATION # ...)) ; x-compiling (DEFPRINTER (COMBINATION :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (MV-COMBINATION # ...)) ; x-compiling (DEFPRINTER (MV-COMBINATION) ...) ; x-compiling (DEF!STRUCT (BIND # ...) ...) ; x-compiling (DEFPRINTER (BIND) ...) ; x-compiling (DEF!STRUCT (CRETURN # ...) ...) ; x-compiling (DEFPRINTER (CRETURN :CONC-NAME ...) ...) ; x-compiling (DEF!STRUCT (CAST # ...) ...) ; x-compiling (DEFPRINTER (CAST :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (ENTRY # ...) ...) ; x-compiling (DEFPRINTER (ENTRY :IDENTITY ...)) ; x-compiling (DEF!STRUCT (EXIT # ...) ...) ; x-compiling (DEFPRINTER (EXIT :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (UNDEFINED-WARNING # ...) ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %COERCE-TO-POLICY ...) ; x-compiling (DECLAIM (FREEZE-TYPE NODE ...)) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (LVAR (:MAKE-LOAD-FORM-FUN IGNORE-IT) ; (:CONSTRUCTOR MAKE-LVAR (&OPTIONAL DEST))) ; (SB!INT:DEF!STRUCT ; (SB!C::LVAR (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT) ; (:CONSTRUCTOR SB!C::MAKE-LVAR (&OPTIONAL SB!C::DEST))) ; (SB!C::DEST NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::%DERIVED-TYPE NIL :TYPE (OR SB!KERNEL:CTYPE NULL)) ; (SB!C::USES NIL :TYPE (OR SB!C::NODE LIST)) ; (SB!C::REOPTIMIZE T :TYPE BOOLEAN) ; (SB!C::%EXTERNALLY-CHECKABLE-TYPE NIL :TYPE (OR NULL SB!KERNEL:CTYPE)) ; (DYNAMIC-EXTENT NIL :TYPE (OR NULL SB!C::CLEANUP)) (SB!INT:INFO NIL)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (CTRAN (:MAKE-LOAD-FORM-FUN IGNORE-IT) (:CONSTRUCTOR MAKE-CTRAN)) ; (SB!INT:DEF!STRUCT ; (SB!C::CTRAN (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT) ; (:CONSTRUCTOR SB!C::MAKE-CTRAN)) ; (SB!C::KIND :UNUSED :TYPE (MEMBER :UNUSED :INSIDE-BLOCK :BLOCK-START)) ; (SB!C::NEXT NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::USE NIL :TYPE (OR SB!C::NODE NULL)) ; (BLOCK NIL :TYPE (OR SB!C::CBLOCK NULL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 30 more uses of undefined function SB!KERNEL::%TARGET-DEFSTRUCT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/node.lisp ; in: !DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::LAMBDA-VAR IGNORE SB!C::INDIRECT ; SB!C::DELETED SB!C::EXPLICIT-VALUE-CELL) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!C::LAMBDA-VAR-ATTRIBUTEP ; (LAMBDA (#:WHOLE4076 #:ENVIRONMENT4077) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!C::LAMBDA-VAR-ATTRIBUTEP #)))) ; '(SB!C::PLACE &REST SB!C:ATTRIBUTES &ENVIRONMENT ; SB!C::ENV) ; NIL ; '"Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE.") ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: !DEF-BOOLEAN-ATTRIBUTE BLOCK ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE BLOCK SB!C::REOPTIMIZE SB!C::FLUSH-P ; SB!C::TYPE-CHECK SB!C::DELETE-P ; SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!C::BLOCK-ATTRIBUTEP ; (LAMBDA (#:WHOLE320 #:ENVIRONMENT321) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!C::BLOCK-ATTRIBUTEP #)))) ; '(SB!C::PLACE &REST SB!C:ATTRIBUTES &ENVIRONMENT ; SB!C::ENV) ; NIL ; '"Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE.") ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: ; DEF!STRUCT (COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR MAKE-COMPONENT ; (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #)))) ; (SB!INT:DEF!STRUCT ; (SB!C:COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "" :TYPE T) ; (SB!INT:INFO :NO-IR2-YET :TYPE ; (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))) ; ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) ; (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) ; (SB!C::NAME "" :TYPE T) ; (SB!INT:INFO :NO-IR2-YET :TYPE ; (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))) ; ...) ; ; caught STYLE-WARNING: ; undefined type: CLOOP ; in: ; DEF!STRUCT (CBLOCK (:INCLUDE SSET-ELEMENT) (:CONSTRUCTOR MAKE-BLOCK (START)) ; (:CONSTRUCTOR MAKE-BLOCK-KEY) (:CONC-NAME BLOCK-) ...) ; (SB!INT:DEF!STRUCT ; (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START)) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-) ; (:PREDICATE SB!C::BLOCK-P)) ; (SB!C::PRED NIL :TYPE LIST) (SB!C::SUCC NIL :TYPE LIST) ; (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL)) ; (LAST NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::FLAGS ; (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK ; SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED) ; :TYPE SB!C:ATTRIBUTES) ; (SB!C::KILL NIL) (SB!C::GEN NIL) (SB!C::IN NIL) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START)) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-) ; (:PREDICATE SB!C::BLOCK-P)) ; (SB!C::PRED NIL :TYPE LIST) ; (SB!C::SUCC NIL :TYPE LIST) ; (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL)) ; (LAST NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::FLAGS ; (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK ; SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED) ; :TYPE SB!C:ATTRIBUTES) ; (SB!C::KILL NIL) ; (SB!C::GEN NIL) ; (SB!C::IN NIL) ; ...) ; ; caught STYLE-WARNING: ; undefined type: CLOOP ; in: ; DEF!STRUCT (MV-COMBINATION (:INCLUDE BASIC-COMBINATION) ; (:CONSTRUCTOR MAKE-MV-COMBINATION (FUN)) (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::MV-COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION) ; (:CONSTRUCTOR SB!C::MAKE-MV-COMBINATION (SB!C::FUN)) (:COPIER NIL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB!INT:COLD-FSET BLOCK ; ==> ; (SB!EXT:TRULY-THE (OR SB!C::FUN-INFO NULL) ; (SB!KERNEL:%INSTANCE-REF ; (THE SB!C::MV-COMBINATION SB!KERNEL:INSTANCE) 13)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: ; DEF!STRUCT (COMBINATION (:INCLUDE BASIC-COMBINATION) ; (:CONSTRUCTOR MAKE-COMBINATION (FUN)) (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION) ; (:CONSTRUCTOR SB!C::MAKE-COMBINATION (SB!C::FUN)) (:COPIER NIL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB!INT:COLD-FSET BLOCK ; ==> ; (SB!EXT:TRULY-THE (OR SB!C::FUN-INFO NULL) ; (SB!KERNEL:%INSTANCE-REF ; (THE SB!C::COMBINATION SB!KERNEL:INSTANCE) 13)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: ; DEF!STRUCT (BASIC-COMBINATION (:INCLUDE VALUED-NODE) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR) ; (SB!C::ARGS NIL :TYPE LIST) ; (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN)) ; (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL)) ; (SB!C::TYPE-VALIDATED-FOR-LEAF NIL) (SB!INT:INFO NIL) (SB!C::STEP-INFO)) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR) ; (SB!C::ARGS NIL :TYPE LIST) ; (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN)) ; (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL)) ; (SB!C::TYPE-VALIDATED-FOR-LEAF NIL) ; (SB!INT:INFO NIL) ; (SB!C::STEP-INFO)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: !DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::LAMBDA-VAR IGNORE SB!C::INDIRECT ; SB!C::DELETED SB!C::EXPLICIT-VALUE-CELL) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION ; --> LET* LET* BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; in: !DEF-BOOLEAN-ATTRIBUTE BLOCK ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE BLOCK SB!C::REOPTIMIZE SB!C::FLUSH-P ; SB!C::TYPE-CHECK SB!C::DELETE-P ; SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION ; --> LET* LET* BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; in: DEFUN AVER-LIVE-COMPONENT ; (EQL (SB!C:COMPONENT-INFO SB!C:COMPONENT) :DEAD) ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; (DEFUN SB!C::AVER-LIVE-COMPONENT (SB!C:COMPONENT) ; (SB!INT:AVER (NOT (EQL (SB!C:COMPONENT-INFO SB!C:COMPONENT) :DEAD)))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!C::AVER-LIVE-COMPONENT ; (LAMBDA (SB!C:COMPONENT) ; (BLOCK SB!C::AVER-LIVE-COMPONENT (SB!INT:AVER (NOT #))))) ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; in: ; DEF!STRUCT (COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR MAKE-COMPONENT ; (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #)))) ; (SB!INT:DEF!STRUCT ; (SB!C:COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "" :TYPE T) ; (SB!INT:INFO :NO-IR2-YET :TYPE ; (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))) ; ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) ; (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) ; (SB!C::NAME "" :TYPE T) ; (SB!INT:INFO :NO-IR2-YET :TYPE ; (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))) ; ...) ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; in: DEFUN %COERCE-TO-POLICY ; (SB!C::LEXENV-POLICY SB!C::THING) ; ; caught STYLE-WARNING: ; undefined function: LEXENV-POLICY ; in: ; DEF!STRUCT (COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR MAKE-COMPONENT ; (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #)))) ; (SB!C::MAKE-LOOP :KIND :OUTER :HEAD SB!C::HEAD) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LOOP ; in: ; DEF!STRUCT (CSET ; (:INCLUDE VALUED-NODE ; (DERIVED-TYPE (MAKE-SINGLE-VALUE-TYPE *UNIVERSAL-TYPE*))) ; (:CONC-NAME SET-) (:PREDICATE SET-P) (:CONSTRUCTOR MAKE-SET) ...) ; (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!KERNEL:*UNIVERSAL-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-SINGLE-VALUE-TYPE ; in: ; DEF!STRUCT (REF (:INCLUDE VALUED-NODE (REOPTIMIZE NIL)) ; (:CONSTRUCTOR MAKE-REF ; (LEAF &OPTIONAL (%SOURCE-NAME '.ANONYMOUS.) &AUX (LEAF-TYPE #) ; ...)) ; (:COPIER NIL)) ; (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!C::LEAF-TYPE) ; ; caught STYLE-WARNING: ; undefined function: MAKE-SINGLE-VALUE-TYPE ; in: ; DEF!STRUCT (NLX-INFO ; (:CONSTRUCTOR MAKE-NLX-INFO (CLEANUP EXIT &AUX (BLOCK #))) ; (:MAKE-LOAD-FORM-FUN IGNORE-IT)) ; (SB!C::NODE-BLOCK SB!EXT:EXIT) ; ; caught STYLE-WARNING: ; undefined function: NODE-BLOCK ; in: DEF!STRUCT (OPTIONAL-DISPATCH (:INCLUDE FUNCTIONAL)) ; (SB!INT:DEF!STRUCT (SB!C::OPTIONAL-DISPATCH (:INCLUDE SB!C::FUNCTIONAL)) ; (SB!C::ARGLIST NIL :TYPE LIST) ; (SB!C::ALLOWP NIL :TYPE BOOLEAN) ; (SB!C::KEYP NIL :TYPE BOOLEAN) ; (SB!C::MIN-ARGS 0 :TYPE UNSIGNED-BYTE) ; (SB!C::MAX-ARGS 0 :TYPE UNSIGNED-BYTE) ; (SB!C::ENTRY-POINTS NIL :TYPE LIST) ; (SB!C::MORE-ENTRY NIL :TYPE (OR SB!C::CLAMBDA NULL)) ; (SB!C::MAIN-ENTRY NIL :TYPE (OR SB!C::CLAMBDA NULL))) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET IF ; ==> ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: ; DEF!STRUCT (CLAMBDA (:INCLUDE FUNCTIONAL) (:CONC-NAME LAMBDA-) ; (:PREDICATE LAMBDA-P) (:CONSTRUCTOR MAKE-LAMBDA) ...) ; (SB!INT:DEF!STRUCT ; (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-) ; (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA) ; (:COPIER SB!C::COPY-LAMBDA)) ; (SB!C::VARS NIL :TYPE LIST :READ-ONLY T) ; (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL)) ; (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL)) ; (RETURN NIL :TYPE (OR SB!C::CRETURN NULL)) ; (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL)) (SB!C::LETS NIL :TYPE LIST) ; (SB!C::ENTRIES NIL :TYPE LIST) ; (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET)) ; (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL)) ; (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL)) ...) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET IF ; ==> ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: ; DEF!STRUCT (FUNCTIONAL ; (:INCLUDE LEAF (%SOURCE-NAME '.ANONYMOUS.) (WHERE-FROM :DEFINED) ; (TYPE (SPECIFIER-TYPE 'FUNCTION)))) ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; compilation unit finished ; Undefined types: ; CLOOP FUN-INFO IR2-COMPONENT ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT SB!IMPL::ASSIGN-SETF-MACRO SB-XC:GET-SETF-EXPANSION LEXENV-POLICY MAKE-LOOP MAKE-SINGLE-VALUE-TYPE NODE-BLOCK SPECIFIER-TYPE ; caught 24 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/node.lisp-obj-tmp written ; compilation finished in 0:00:05.097 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/vop.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!CONSTANT LOCAL-TN-LIMIT ...) ; x-compiling (DEFTYPE LOCAL-TN-NUMBER ...) ; x-compiling (DEFTYPE LOCAL-TN-COUNT ...) ; x-compiling (DEFTYPE LOCAL-TN-VECTOR ...) ; x-compiling (DEFTYPE LOCAL-TN-BIT-VECTOR ...) ; x-compiling (DEFTYPE SC-NUMBER ...) ; x-compiling (DEFTYPE SC-VECTOR ...) ; x-compiling (DEFTYPE SC-BIT-VECTOR ...) ; x-compiling (DEFTYPE LTN-POLICY ...) ; x-compiling (DEFSTRUCT (PRIMITIVE-TYPE #) ...) ; x-compiling (DEFPRINTER (PRIMITIVE-TYPE) ...) ; x-compiling (DEFSTRUCT (IR2-BLOCK # ...) ...) ; x-compiling (DEFPRINTER (IR2-BLOCK) ...) ; x-compiling (DEFSTRUCT (IR2-LVAR # ...) ...) ; x-compiling (DEFPRINTER (IR2-LVAR) ...) ; x-compiling (DEFSTRUCT (IR2-COMPONENT #) ...) ; x-compiling (DEFSTRUCT (ENTRY-INFO #) ...) ; x-compiling (DEFSTRUCT (IR2-PHYSENV #) ...) ; x-compiling (DEFPRINTER (IR2-PHYSENV) ...) ; x-compiling (DEFSTRUCT (RETURN-INFO #) ...) ; x-compiling (DEFPRINTER (RETURN-INFO) ...) ; x-compiling (DEFSTRUCT (IR2-NLX-INFO #) ...) ; x-compiling (DEFPRINTER (IR2-NLX-INFO) ...) ; x-compiling (DEFSTRUCT (CLOOP # ...) ...) ; x-compiling (DEFPRINTER (CLOOP :CONC-NAME ...) ...) ; x-compiling (DEF!STRUCT (VOP # ...) ...) ; x-compiling (DEFPRINTER (VOP) ...) ; x-compiling (DEF!STRUCT (TN-REF # ...) ...) ; x-compiling (DEFPRINTER (TN-REF) ...) ; x-compiling (DEF!STRUCT (TEMPLATE # ...) ...) ; x-compiling (DEFPRINTER (TEMPLATE) ...) ; x-compiling (DEF!STRUCT (VOP-INFO # ...) ...) ; x-compiling (DEF!STRUCT (SB #) ...) ; x-compiling (DEFPRINTER (SB) ...) ; x-compiling (DEF!STRUCT (FINITE-SB #) ...) ; x-compiling (DEF!STRUCT (SC #) ...) ; x-compiling (DEFPRINTER (SC) ...) ; x-compiling (DEF!STRUCT (TN # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (GLOBAL-CONFLICTS # ...) ...) ; x-compiling (DEFPRINTER (GLOBAL-CONFLICTS) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/vop.lisp ; in: DEFSTRUCT IR2-LVAR ; (DEFSTRUCT ; (SB!C::IR2-LVAR (:CONSTRUCTOR SB!C::MAKE-IR2-LVAR (SB!C:PRIMITIVE-TYPE)) ; (:COPIER NIL)) ; (SB!C::KIND :FIXED :TYPE (MEMBER :DELAYED :FIXED :UNKNOWN :UNUSED)) ; (SB!C:PRIMITIVE-TYPE NIL :TYPE (OR SB!C:PRIMITIVE-TYPE NULL)) ; (SB!C::LOCS NIL :TYPE LIST) ; (SB!C::STACK-POINTER NIL :TYPE (OR SB!C:TN NULL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT IR2-BLOCK ; (DEFSTRUCT ; (SB!C::IR2-BLOCK (:INCLUDE SB!C::BLOCK-ANNOTATION) ; (:CONSTRUCTOR SB!C::MAKE-IR2-BLOCK (BLOCK)) (:COPIER NIL)) ; (NUMBER NIL :TYPE (OR SB!INT:INDEX NULL)) ; (SB!C::PUSHED NIL :TYPE LIST) ; (SB!C::POPPED NIL :TYPE LIST) ; (SB!C::START-STACK NIL :TYPE LIST) ; (SB!C::END-STACK NIL :TYPE LIST) ; (SB!C::START-VOP NIL :TYPE (OR SB!C::VOP NULL)) ; (SB!C::LAST-VOP NIL :TYPE (OR SB!C::VOP NULL)) ; (SB!C::LOCAL-TN-COUNT 0 :TYPE SB!C::LOCAL-TN-COUNT) ; (SB!C::LOCAL-TNS (MAKE-ARRAY SB!C::LOCAL-TN-LIMIT) :TYPE ; SB!C::LOCAL-TN-VECTOR) ; (SB!C::WRITTEN ; (MAKE-ARRAY SB!C::LOCAL-TN-LIMIT :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0) ; :TYPE SB!C::LOCAL-TN-BIT-VECTOR) ; ...) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT PRIMITIVE-TYPE ; (DEFSTRUCT (SB!C:PRIMITIVE-TYPE (:COPIER NIL)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (SB!C::SCS NIL :TYPE LIST) ; (SB!C::SPECIFIER (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:TYPE-SPECIFIER) ; (SB!C::CHECK NIL :TYPE (OR SB!C::TEMPLATE NULL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 15 more uses of undefined function SB!KERNEL::%TARGET-DEFSTRUCT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/vop.lisp ; in: ; DEF!STRUCT (VOP-INFO (:INCLUDE TEMPLATE) (:MAKE-LOAD-FORM-FUN IGNORE-IT)) ; (SB!INT:DEF!STRUCT ; (SB!C::VOP-INFO (:INCLUDE SB!C::TEMPLATE) ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT)) ; (SB!C::EFFECTS (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES) ; (SB!C::AFFECTED (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES) ; (SB!C::SAVE-P NIL :TYPE (MEMBER T NIL :FORCE-TO-STACK :COMPUTE-ONLY)) ; (SB!C::MOVE-ARGS NIL :TYPE ; (MEMBER NIL :FULL-CALL :LOCAL-CALL :KNOWN-RETURN)) ; (SB!C::ARG-COSTS NIL :TYPE LIST) (SB!C::RESULT-COSTS NIL :TYPE LIST) ; (SB!C::MORE-ARG-COSTS NIL :TYPE (OR SB!C::SC-VECTOR NULL)) ; (SB!C::MORE-RESULT-COSTS NIL :TYPE (OR SB!C::SC-VECTOR NULL)) ; (SB!C::ARG-LOAD-SCS NIL :TYPE LIST) (SB!C::RESULT-LOAD-SCS NIL :TYPE LIST) ; ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET ; --> FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW1985 #:G1986) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; in: DEF!STRUCT (TEMPLATE (:CONSTRUCTOR NIL) (:PURE T)) ; (SB!INT:DEF!STRUCT (SB!C::TEMPLATE (:CONSTRUCTOR NIL) (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE) ; (SB!C::ARG-TYPES NIL :TYPE LIST) ; (SB!C::RESULT-TYPES NIL :TYPE ; (OR LIST (MEMBER :CONDITIONAL) ; (CONS (EQL :CONDITIONAL)))) ; (SB!C::MORE-ARGS-TYPE NIL :TYPE (OR (MEMBER NIL *) CONS)) ; (SB!C::MORE-RESULTS-TYPE NIL :TYPE ; (OR (MEMBER NIL *) CONS)) ; (SB!C::GUARD NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::LTN-POLICY (SB!INT:MISSING-ARG) :TYPE ; SB!C::LTN-POLICY) ; (SB!C::COST (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX) ; (SB!C::NOTE NIL :TYPE (OR STRING NULL)) ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET ; --> FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW1515 #:G1516) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; in: ; DEF!STRUCT (VOP-INFO (:INCLUDE TEMPLATE) (:MAKE-LOAD-FORM-FUN IGNORE-IT)) ; (SB!INT:DEF!STRUCT ; (SB!C::VOP-INFO (:INCLUDE SB!C::TEMPLATE) ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT)) ; (SB!C::EFFECTS (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES) ; (SB!C::AFFECTED (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES) ; (SB!C::SAVE-P NIL :TYPE (MEMBER T NIL :FORCE-TO-STACK :COMPUTE-ONLY)) ; (SB!C::MOVE-ARGS NIL :TYPE ; (MEMBER NIL :FULL-CALL :LOCAL-CALL :KNOWN-RETURN)) ; (SB!C::ARG-COSTS NIL :TYPE LIST) (SB!C::RESULT-COSTS NIL :TYPE LIST) ; (SB!C::MORE-ARG-COSTS NIL :TYPE (OR SB!C::SC-VECTOR NULL)) ; (SB!C::MORE-RESULT-COSTS NIL :TYPE (OR SB!C::SC-VECTOR NULL)) ; (SB!C::ARG-LOAD-SCS NIL :TYPE LIST) (SB!C::RESULT-LOAD-SCS NIL :TYPE LIST) ; ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!C::VOP-INFO)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEF!STRUCT (TEMPLATE (:CONSTRUCTOR NIL) (:PURE T)) ; (SB!INT:DEF!STRUCT (SB!C::TEMPLATE (:CONSTRUCTOR NIL) (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE) ; (SB!C::ARG-TYPES NIL :TYPE LIST) ; (SB!C::RESULT-TYPES NIL :TYPE ; (OR LIST (MEMBER :CONDITIONAL) ; (CONS (EQL :CONDITIONAL)))) ; (SB!C::MORE-ARGS-TYPE NIL :TYPE (OR (MEMBER NIL *) CONS)) ; (SB!C::MORE-RESULTS-TYPE NIL :TYPE ; (OR (MEMBER NIL *) CONS)) ; (SB!C::GUARD NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::LTN-POLICY (SB!INT:MISSING-ARG) :TYPE ; SB!C::LTN-POLICY) ; (SB!C::COST (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX) ; (SB!C::NOTE NIL :TYPE (OR STRING NULL)) ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!C::TEMPLATE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFSTRUCT IR2-NLX-INFO ; (SB!ASSEM:GEN-LABEL) ; ; caught STYLE-WARNING: ; undefined function: GEN-LABEL ; (SB!C:MAKE-DYNAMIC-STATE-TNS) ; ; caught STYLE-WARNING: ; undefined function: MAKE-DYNAMIC-STATE-TNS ; (SB!C:MAKE-STACK-POINTER-TN) ; ; caught STYLE-WARNING: ; undefined function: MAKE-STACK-POINTER-TN ; ; compilation unit finished ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT (SETF LAYOUT-PURE) CLASSOID-LAYOUT GEN-LABEL MAKE-DYNAMIC-STATE-TNS MAKE-STACK-POINTER-TN ; caught 11 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/vop.lisp-obj-tmp written ; compilation finished in 0:00:02.173 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/backend.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *BACKEND-REGISTER-SAVE-PENALTY* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFVAR *BACKEND-BYTE-ORDER*) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *BACKEND-SC-NUMBERS* ...) ; x-compiling (DECLAIM (TYPE SC-VECTOR ...)) ; x-compiling (DEFVAR *BACKEND-SB-LIST* ...) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *BACKEND-TEMPLATE-NAMES* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *BACKEND-SC-NAMES* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-NAMES* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-ALIASES* ...) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *BACKEND-T-PRIMITIVE-TYPE*) ; x-compiling (DECLAIM (TYPE PRIMITIVE-TYPE ...)) ; x-compiling (DEFVAR *BACKEND-PARSED-VOPS* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *BACKEND-PREDICATE-TYPES* ...) ; x-compiling (DEFVAR *BACKEND-TYPE-PREDICATES* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *BACKEND-INTERNAL-ERRORS* ...) ; x-compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; x-compiling (DEFVAR *BACKEND-SUBFEATURES* ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/backend.lisp ; in: DEFVAR *BACKEND-SUBFEATURES* ; 'NIL ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/backend.lisp-obj-tmp written ; compilation finished in 0:00:00.070 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/vmdef.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN TEMPLATE-OR-LOSE ...) ; x-compiling (DEFUN SC-OR-LOSE ...) ; x-compiling (DEFUN SB-OR-LOSE ...) ; x-compiling (DEFUN SC-NUMBER-OR-LOSE ...) ; x-compiling (!DEF-BOOLEAN-ATTRIBUTE VOP ...) ; x-compiling (DEFUN COMPUTE-MOVE-COSTS ...) ; x-compiling (DEFUN PRIMITIVE-TYPE-OR-LOSE ...) ; x-compiling (DEFUN SC-ALLOWED-BY-PRIMITIVE-TYPE ...) ; x-compiling (DEF!CONSTANT MAX-VOP-TN-REFS ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *VOP-TN-REFS* ...) ; x-compiling (DEF!CONSTANT SC-BITS ...) ; x-compiling (DEFUN EMIT-VOP ...) ; x-compiling (DEFUN ADJOIN-TEMPLATE ...) ; x-compiling (DEFUN TEMPLATE-TYPE-SPECIFIER ...) ; x-compiling (DECLAIM (INLINE TEMPLATE-CONDITIONAL-P)) ; x-compiling (DEFUN TEMPLATE-CONDITIONAL-P ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/vmdef.lisp ; in: !DEF-BOOLEAN-ATTRIBUTE VOP ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::VOP SB!C:ANY) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!C::VOP-ATTRIBUTEP ; (LAMBDA (#:WHOLE18 #:ENVIRONMENT19) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!C::VOP-ATTRIBUTEP #)))) ; '(SB!C::PLACE &REST SB!C:ATTRIBUTES &ENVIRONMENT ; SB!C::ENV) ; NIL ; '"Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE.") ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFUN TEMPLATE-TYPE-SPECIFIER ; (MAPCAR #'SB!C::FROB SB!C::TYPES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR #'SB!C::PRIMITIVE-TYPE-SPECIFIER (REST SB!C::X)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: !DEF-BOOLEAN-ATTRIBUTE VOP ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::VOP SB!C:ANY) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION ; --> LET* LET* BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; in: DEFUN EMIT-VOP ; (SB!C:MAKE-RESTRICTED-TN NIL (ASH SB!C::TEMP -1)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-RESTRICTED-TN ; (SB!C:MAKE-WIRED-TN NIL (SB-XC:LDB (SB-XC:BYTE SB!C::SC-BITS 1) SB!C::TEMP) ; (ASH SB!C::TEMP (- (1+ SB!C::SC-BITS)))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-WIRED-TN ; (SB!C::REFERENCE-TN SB!C:TN NIL) ; ; caught STYLE-WARNING: ; undefined function: REFERENCE-TN ; (SB!REGALLOC:TARGET-IF-DESIRABLE ; (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 8) SB!C::TARGET)) ; (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 0) SB!C::TARGET))) ; ; caught STYLE-WARNING: ; undefined function: SB!REGALLOC:TARGET-IF-DESIRABLE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!IMPL::ASSIGN-SETF-MACRO SB-XC:GET-SETF-EXPANSION MAKE-RESTRICTED-TN MAKE-WIRED-TN REFERENCE-TN SB!REGALLOC:TARGET-IF-DESIRABLE ; caught 8 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/vmdef.lisp-obj-tmp written ; compilation finished in 0:00:00.197 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/backend-parms.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEF!CONSTANT +BACKEND-FASL-FILE-IMPLEMENTATION+ ...) ; x-compiling (SETF *BACKEND-REGISTER-SAVE-PENALTY* ...) ; x-compiling (SETF *BACKEND-BYTE-ORDER* ...) ; x-compiling (SETF *BACKEND-PAGE-BYTES* ...) ; x-compiling (DEF!CONSTANT GENCGC-CARD-BYTES ...) ; x-compiling (DEF!CONSTANT GENCGC-ALLOC-GRANULARITY ...) ; x-compiling (DEF!CONSTANT GENCGC-RELEASE-GRANULARITY ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/backend-parms.lisp-obj-tmp written ; compilation finished in 0:00:00.035 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/globaldb.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFUN GLOBALDB-SXHASHOID ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/globaldb.lisp ; in: DEFUN GLOBALDB-SXHASHOID ; (SB!INT:MIX (SB!C::RECURSE (CAR SB!C::X) (1- SB!C::DEPTHOID)) ; (SB!C::RECURSE (CDR SB!C::X) (1- SB!C::DEPTHOID))) ; --> BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (SB!INT:MIX (SB!C::RECURSE (CAR SB!C::X) 4) SB!C::ACCUMULATOR) ; --> BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; (SB!INT:MIX (SXHASH SB!C::X) SB!C::ACCUMULATOR) ; --> BLOCK LET* LOGAND + ; ==> ; (* SB!IMPL::X SB!IMPL::MUL) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES FIXNUM &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to recode as leas, shifts and adds due to type uncertainty: ; x-compiling (DEFUN PRIMIFY ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFGLOBAL *INFO-TYPES* ...) ; x-compiling (DEFSTRUCT (TYPE-INFO # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE TYPE-INFO)) ; x-compiling (DEFCONSTANT +INFO-METAINFO-TYPE-NUM+ ...) ; x-compiling (DEFUN %GET-TYPE-INFO-METADATA ...) ; x-compiling (DEFUN REGISTER-INFO-METADATA ...) ; x-compiling (DEFUN FIND-TYPE-INFO ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN TYPE-INFO-OR-LOSE ...) ; x-compiling (DEFUN INFO ...) ; x-compiling (DEFUN (SETF INFO) ...) ; x-compiling (DEFUN CLEAR-INFO ...) ; x-compiling (DEFUN CLEAR-INFO-VALUE ...) ; x-compiling (!COLD-INIT-FORMS (SETQ *INFO-ENVIRONMENT* ...) ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN GET-INFO-VALUE ...) ; x-compiling (DEF!MACRO GET-INFO-VALUE-INITIALIZING ...) ; x-compiling (DEFUN CALL-WITH-EACH-GLOBALDB-NAME ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :DEFINITION) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :KIND) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :TYPE) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :ASSUMED-TYPE) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :WHERE-FROM) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINE-EXPANSION-DESIGNATOR) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINEP) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :SOURCE-TRANSFORM) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :MACRO-FUNCTION) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :COMPILER-MACRO-FUNCTION) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :IR1-CONVERT) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :INFO) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :STRUCTURE-ACCESSOR) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :KIND) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :ALWAYS-BOUND) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :DEPRECATED) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :TYPE) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :WHERE-FROM) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :MACRO-EXPANSION) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :ALIEN-INFO) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :DOCUMENTATION) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :WIRED-TLS) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :KIND) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :EXPANDER) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :DOCUMENTATION) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :TRANSLATOR) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :BUILTIN) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :CLASSOID-CELL) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :LAMBDA-LIST) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :SOURCE-LOCATION) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :INFO) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :DOCUMENTATION) ...) ; x-compiling (DEFGLOBAL *RECOGNIZED-DECLARATIONS* ...) ; x-compiling (DEFINE-INFO-TYPE (:DECLARATION :RECOGNIZED) ...) ; x-compiling (DEFINE-INFO-TYPE (:DECLARATION :HANDLER) ...) ; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :KIND) ...) ; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :TRANSLATOR) ...) ; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :DEFINITION) ...) ; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :STRUCT) ...) ; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :UNION) ...) ; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :ENUM) ...) ; x-compiling (DEFINE-INFO-TYPE (:SETF :INVERSE) ...) ; x-compiling (DEFINE-INFO-TYPE (:SETF :DOCUMENTATION) ...) ; x-compiling (DEFINE-INFO-TYPE (:SETF :EXPANDER) ...) ; x-compiling (DEFINE-INFO-TYPE (:CAS :EXPANDER) ...) ; x-compiling (DEFINE-INFO-TYPE (:RANDOM-DOCUMENTATION :STUFF) ...) ; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :VARIABLE) ...) ; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :CONSTANT) ...) ; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :TYPED-STRUCTURE) ...) ; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :SYMBOL-MACRO) ...) ; x-compiling (DECLAIM (FREEZE-TYPE BASIC-INFO-ENV)) ; x-compiling (DEFUN CALL-WITH-EACH-INFO ...) ; x-compiling (DEFUN SHOW-INFO ...) ; x-compiling (!COLD-INIT-FORMS (/SHOW0 "beginning *INFO-TYPES* initialization") ...) ; x-compiling (FROB) ; x-compiling (DEF INFO ...) ; x-compiling (DEF (SETF INFO) ...) ; x-compiling (DEF CLEAR-INFO ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/globaldb.lisp ; in: DEFGLOBAL *RECOGNIZED-DECLARATIONS* ; (SB!EXT:DEFGLOBAL SB!C::*RECOGNIZED-DECLARATIONS* NIL) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!C::*RECOGNIZED-DECLARATIONS* (UNLESS #:BOUNDP NIL) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFGLOBAL *INFO-TYPES* ; (SB!EXT:DEFGLOBAL SB!C::*INFO-TYPES* ; (MAKE-ARRAY (ASH 1 SB!C::TYPE-NUMBER-BITS) :INITIAL-ELEMENT ; NIL)) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!C::*INFO-TYPES* ; (UNLESS #:BOUNDP ; (MAKE-ARRAY (ASH 1 SB!C::TYPE-NUMBER-BITS) ; :INITIAL-ELEMENT NIL)) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFSTRUCT TYPE-INFO ; (DEFSTRUCT ; (SB!C::TYPE-INFO ; (:PRINT-OBJECT (LAMBDA (SB!C::X SB!C::S) (PRINT-UNREADABLE-OBJECT # #))) ; (:CONSTRUCTOR SB!C::MAKE-GLOBALDB-INFO-METADATA ; (NUMBER CLASS SB!C::NAME SB!C::TYPE-SPEC)) ; (:COPIER NIL)) ; (SB!C::NAME NIL :TYPE KEYWORD) ; (CLASS NIL :TYPE KEYWORD) ; (NUMBER NIL :TYPE SB!C::TYPE-NUMBER) ; (SB!C::TYPE-SPEC NIL :TYPE T) ; (SB!C::DEFAULT NIL) ; (SB!C::TYPE-CHECKER #'IDENTITY :TYPE FUNCTION) ; (SB!C::VALIDATE-FUNCTION NIL :TYPE (OR FUNCTION NULL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DECLAIM (FREEZE-TYPE BASIC-INFO-ENV) ; (DECLAIM (SB!EXT:FREEZE-TYPE SB!C::BASIC-INFO-ENV)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(SB!EXT:FREEZE-TYPE SB!C::BASIC-INFO-ENV)) ; ; caught STYLE-WARNING: ; undefined type: BASIC-INFO-ENV ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!GLOBALDB-COLD-INIT) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SETF PROGN SETF LET* ; --> MULTIPLE-VALUE-BIND LET LAMBDA FUNCTION LET WHEN IF PROGN ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT CLASS) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SETF LET* ; --> MULTIPLE-VALUE-BIND LET LAMBDA ; ==> ; #'(LAMBDA (SB!C::X) (DECLARE (TYPE (OR SB!C::FUN-INFO NULL) SB!C::X)) SB!C::X) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: DEFUN CALL-WITH-EACH-GLOBALDB-NAME ; (DO-SYMBOLS (SYMBOL PACKAGE) ; (WHEN (EQ (SYMBOL-PACKAGE SYMBOL) PACKAGE) ; (LET ((VECTOR #)) ; (WHEN VECTOR (WHEN # #) (SB!C::DO-PACKED-INFO-VECTOR-AUX-KEY # #))))) ; --> BLOCK FLET LET* ; ==> ; (SB!IMPL::PACKAGE-%SHADOWING-SYMBOLS PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::PACKAGE-%SHADOWING-SYMBOLS ; --> BLOCK FLET LET* FLET DOLIST BLOCK LET ; ==> ; (SB!IMPL::PACKAGE-%USE-LIST PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::PACKAGE-%USE-LIST ; --> BLOCK FLET LET* FLET SB!IMPL::ITERATE-OVER-HASH-TABLE ; ==> ; (SB!KERNEL:PACKAGE-EXTERNAL-SYMBOLS PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-EXTERNAL-SYMBOLS ; --> BLOCK FLET LET* FLET BLOCK LET ; ==> ; (SB!IMPL::PACKAGE-HASHTABLE-HASH SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::PACKAGE-HASHTABLE-HASH ; ==> ; (SB!IMPL::PACKAGE-HASHTABLE-TABLE SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::PACKAGE-HASHTABLE-TABLE ; --> BLOCK FLET LET* FLET SB!IMPL::ITERATE-OVER-HASH-TABLE ; ==> ; (SB!KERNEL:PACKAGE-INTERNAL-SYMBOLS PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-INTERNAL-SYMBOLS ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!GLOBALDB-COLD-INIT) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SETF PROGN SETF LET* ; --> MULTIPLE-VALUE-BIND LET LAMBDA FUNCTION IF HANDLER-BIND ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET LET PROGN PROGN ; ==> ; (SB!KERNEL:SPECIFIER-TYPE (SB!IMPL::%FUN-TYPE (FDEFINITION SB!C::NAME))) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; compilation unit finished ; Undefined types: ; BASIC-INFO-ENV FUN-INFO ; Undefined functions: ; SB!IMPL::%DEFGLOBAL SB!KERNEL::%TARGET-DEFSTRUCT CLASSOID-LAYOUT SB!IMPL::PACKAGE-%SHADOWING-SYMBOLS SB!IMPL::PACKAGE-%USE-LIST PACKAGE-EXTERNAL-SYMBOLS SB!IMPL::PACKAGE-HASHTABLE-HASH SB!IMPL::PACKAGE-HASHTABLE-TABLE PACKAGE-INTERNAL-SYMBOLS SPECIFIER-TYPE ; caught 13 STYLE-WARNING conditions ; printed 6 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/globaldb.lisp-obj-tmp written ; compilation finished in 0:00:00.568 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/info-functions.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN CHECK-FUN-NAME ...) ; x-compiling (DEFUN PROCLAIM-AS-FUN-NAME ...) ; x-compiling (DEFUN NOTE-IF-SETF-FUN-AND-MACRO ...) ; x-compiling (DEFUN UNDEFINE-FUN-NAME ...) ; x-compiling (DEFUN BECOME-DEFINED-FUN-NAME ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FUN-NAME-INLINE-EXPANSION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/info-functions.lisp ; in: DEFUN FUN-NAME-INLINE-EXPANSION ; (DEFUN SB!INT:FUN-NAME-INLINE-EXPANSION (SB!C::FUN-NAME) ; (LET ((SB!INT:INFO ; (SB!INT:INFO :FUNCTION :INLINE-EXPANSION-DESIGNATOR SB!C::FUN-NAME))) ; (IF (FUNCTIONP SB!INT:INFO) ; (FUNCALL SB!INT:INFO) ; SB!INT:INFO))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!INT:FUN-NAME-INLINE-EXPANSION ; (LAMBDA (SB!C::FUN-NAME) ; (BLOCK SB!INT:FUN-NAME-INLINE-EXPANSION ; (LET (#) ; (IF # ; # ; SB!INT:INFO))))) ; ; note: type assertion too complex to check: ; (VALUES &OPTIONAL LIST &REST T). ; x-compiling (DEFUN SB-XC:MACRO-FUNCTION ...) ; x-compiling (DEFUN (SETF SB-XC:MACRO-FUNCTION) ...) ; x-compiling (DEFUN FUN-LOCALLY-DEFINED-P ...) ; x-compiling (DEFUN SB-XC:COMPILER-MACRO-FUNCTION ...) ; x-compiling (DEFUN (SETF SB-XC:COMPILER-MACRO-FUNCTION) ...) ; x-compiling (DEFUN FDOCUMENTATION ...) ; x-compiling (DEFUN (SETF FDOCUMENTATION) ...) ; x-compiling (DEFUN RANDOM-DOCUMENTATION ...) ; x-compiling (DEFUN (SETF RANDOM-DOCUMENTATION) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/info-functions.lisp ; in: DEFUN FDOCUMENTATION ; (CLASS-NAME SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: CLASS-NAME ; in: DEFUN FUN-LOCALLY-DEFINED-P ; (SB!C::LEXENV-FUNS SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: LEXENV-FUNS ; in: DEFUN SB-XC:MACRO-FUNCTION ; (SB!C::LEXENV-FUNS SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: LEXENV-FUNS ; in: DEFUN FDOCUMENTATION ; (SB!KERNEL:PACKAGE-DOC-STRING SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-DOC-STRING ; (TYPECASE SB!C::X ; (FUNCTION (SB!KERNEL:%FUN-DOC SB!C::X)) ; (PACKAGE (SB!KERNEL:PACKAGE-DOC-STRING SB!C::X)) ; (STRUCTURE-CLASS ; (VALUES (SB!INT:INFO :TYPE :DOCUMENTATION (CLASS-NAME SB!C::X)))) ; ((OR SYMBOL CONS) (SB!KERNEL:RANDOM-DOCUMENTATION SB!C::X SB!C::DOC-TYPE))) ; --> LET COND IF COND IF COND IF ; ==> ; (TYPEP #:G43729 'STRUCTURE-CLASS) ; ; caught STYLE-WARNING: ; undefined type: STRUCTURE-CLASS ; (TYPECASE SB!C::X ; (STRUCTURE-CLASS ; (VALUES (SB!INT:INFO :TYPE :DOCUMENTATION (CLASS-NAME SB!C::X)))) ; (T ; (AND (TYPEP SB!C::X 'SYMBOL) ; (VALUES (SB!INT:INFO :TYPE :DOCUMENTATION SB!C::X))))) ; --> LET COND IF ; ==> ; (TYPEP #:G43723 'STRUCTURE-CLASS) ; ; caught STYLE-WARNING: ; undefined type: STRUCTURE-CLASS ; ; compilation unit finished ; Undefined type: ; STRUCTURE-CLASS ; Undefined functions: ; CLASS-NAME LEXENV-FUNS PACKAGE-DOC-STRING ; caught 6 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/info-functions.lisp-obj-tmp written ; compilation finished in 0:00:01.131 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/force-delayed-defbangconstants.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/force-delayed-defbangconstants.lisp-obj-tmp written ; compilation finished in 0:00:00.024 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defmacro.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN %EXPANDER-FOR-DEFMACRO ...) ; x-compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...) ; x-compiling (DEF NIL ...) ; x-compiling (DEFMACRO SB-XC:DEFMACRO ...) ; x-compiling (DEF!MACRO DEFMACRO-MUNDANELY ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/defmacro.lisp-obj-tmp written ; compilation finished in 0:00:00.038 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/force-delayed-defbangmacros.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/force-delayed-defbangmacros.lisp-obj-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/late-macros.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/late-macros.lisp-obj-tmp written ; compilation finished in 0:00:00.021 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/meta-vmdef.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFMACRO DEFINE-STORAGE-BASE ...) ; x-compiling (DEFMACRO DEFINE-STORAGE-CLASS ...) ; x-compiling (DEFMACRO DO-SC-PAIRS ...) ; x-compiling (DEFMACRO DEFINE-MOVE-FUN ...) ; x-compiling (DEFPARAMETER *SC-VOP-SLOTS* ...) ; x-compiling (DEFMACRO DEFINE-MOVE-VOP ...) ; x-compiling (DEFMACRO !DEF-PRIMITIVE-TYPE ...) ; x-compiling (DEFMACRO !DEF-PRIMITIVE-TYPE-ALIAS ...) ; x-compiling (DEFPARAMETER *PRIMITIVE-TYPE-SLOT-ALIST* ...) ; x-compiling (DEFMACRO PRIMITIVE-TYPE-VOP ...) ; x-compiling (DEF!STRUCT (VOP-PARSE # ...) ...) ; x-compiling (DEFPRINTER (VOP-PARSE) ...) ; x-compiling (DEF!STRUCT (OPERAND-PARSE # ...) ...) ; x-compiling (DEFPRINTER (OPERAND-PARSE) ...) ; x-compiling (DEFUN FIND-OPERAND ...) ; x-compiling (DEFUN VOP-PARSE-OR-LOSE ...) ; x-compiling (DEFUN ACCESS-OPERANDS ...) ; x-compiling (DEFUN IGNORE-UNREFERENCED-TEMPS ...) ; x-compiling (DEFUN VOP-SPEC-ARG ...) ; x-compiling (DEFUN PARSE-TIME-SPEC ...) ; x-compiling (DEFUN TIME-SPEC-ORDER ...) ; x-compiling (DEFUN COMPUTE-TEMPORARIES-DESCRIPTION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/meta-vmdef.lisp ; in: DEFUN COMPUTE-TEMPORARIES-DESCRIPTION ; (SB!KERNEL:MAKE-SPECIALIZABLE-ARRAY (LENGTH SB!C::TEMPS) :ELEMENT-TYPE ; SB!C::ELEMENT-TYPE) ; --> BLOCK APPLY MULTIPLE-VALUE-CALL ; ==> ; (SB!C::%FUNCALL ; # ; :DEFINED-TYPE # ; :WHERE-FROM :DECLARED ; :KIND :GLOBAL-FUNCTION {1009BE5E93}> ; #:G1305 #:G1306 #:G1307) ; ; note: The second argument (in keyword position) is not a constant, weakening keyword ; argument checking. ; x-compiling (DEFUN COMPUTE-REF-ORDERING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/meta-vmdef.lisp ; in: DEFUN COMPUTE-REF-ORDERING ; (SB!KERNEL:MAKE-SPECIALIZABLE-ARRAY (LENGTH SB!C::SORTED) :ELEMENT-TYPE ; SB!C::OE-TYPE) ; --> BLOCK APPLY MULTIPLE-VALUE-CALL ; ==> ; (SB!C::%FUNCALL ; # ; :DEFINED-TYPE # ; :WHERE-FROM :DECLARED ; :KIND :GLOBAL-FUNCTION {1002A5A253}> ; #:G1489 #:G1490 #:G1491) ; ; note: The second argument (in keyword position) is not a constant, weakening keyword ; argument checking. ; x-compiling (DEFUN MAKE-EMIT-FUNCTION-AND-FRIENDS ...) ; x-compiling (DEFUN FIND-MOVE-FUNS ...) ; x-compiling (DEFUN CALL-MOVE-FUN ...) ; x-compiling (DEFUN DECIDE-TO-LOAD ...) ; x-compiling (DEFUN MAKE-GENERATOR-FUNCTION ...) ; x-compiling (DEFVAR *PARSE-VOP-OPERAND-COUNT*) ; x-compiling (DEFUN MAKE-OPERAND-PARSE-TEMP ...) ; x-compiling (DEFUN MAKE-OPERAND-PARSE-LOAD-TN ...) ; x-compiling (DEFUN PARSE-VOP-OPERANDS ...) ; x-compiling (DEFUN PARSE-TEMPORARY ...) ; x-compiling (DEFUN COMPUTE-PARSE-VOP-OPERAND-COUNT ...) ; x-compiling (DEFUN PARSE-DEFINE-VOP ...) ; x-compiling (DEFUN COMPUTE-LOADING-COSTS ...) ; x-compiling (DEFPARAMETER *NO-COSTS* ...) ; x-compiling (DEFPARAMETER *NO-LOADS* ...) ; x-compiling (DEFUN COMPUTE-LOADING-COSTS-IF-ANY ...) ; x-compiling (DEFUN COMPUTE-COSTS-AND-RESTRICTIONS-LIST ...) ; x-compiling (DEFUN MAKE-COSTS-AND-RESTRICTIONS ...) ; x-compiling (DEFUN PARSE-VOP-OPERAND-TYPES ...) ; x-compiling (DEFUN CHECK-OPERAND-TYPE-SCS ...) ; x-compiling (DEFUN CHECK-OPERAND-TYPES ...) ; x-compiling (DEFUN !GROVEL-VOP-OPERANDS ...) ; x-compiling (DEFUN !SET-UP-FUN-TRANSLATION ...) ; x-compiling (DEFUN MAKE-OPERAND-TYPE ...) ; x-compiling (DEFUN SPECIFY-OPERAND-TYPES ...) ; x-compiling (DEFUN MAKE-VOP-INFO-TYPES ...) ; x-compiling (DEFPARAMETER *SLOT-INHERIT-ALIST* ...) ; x-compiling (DEFMACRO INHERIT-VOP-INFO ...) ; x-compiling (DEFUN SET-UP-VOP-INFO ...) ; x-compiling (DEF!MACRO DEFINE-VOP ...) ; x-compiling (DEFUN MAKE-OPERAND-LIST ...) ; x-compiling (DEFMACRO EMIT-TEMPLATE ...) ; x-compiling (DEFMACRO VOP ...) ; x-compiling (DEFMACRO VOP* ...) ; x-compiling (DEF!MACRO SC-CASE ...) ; x-compiling (DEFMACRO SC-IS ...) ; x-compiling (DEFMACRO DO-IR2-BLOCKS ...) ; x-compiling (DEFMACRO DO-LIVE-TNS ...) ; x-compiling (DEFMACRO DO-PHYSENV-IR2-BLOCKS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/meta-vmdef.lisp ; in: ; DEF!STRUCT (OPERAND-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!C::OPERAND-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (SB!C::KIND (SB!INT:MISSING-ARG) :TYPE ; (MEMBER :ARGUMENT :RESULT :TEMPORARY :MORE-ARGUMENT :MORE-RESULT)) ; (SB!C::TARGET NIL :TYPE (OR SYMBOL NULL)) ; (SB!C::TEMP (SB!C::MAKE-OPERAND-PARSE-TEMP) :TYPE SYMBOL) SB!C::BORN ; SB!C::DIES (SB!C::SCS NIL :TYPE LIST) ; (SB!C::LOAD-TN (SB!C::MAKE-OPERAND-PARSE-LOAD-TN) :TYPE SYMBOL) (LOAD T) ; (SB!C:SC NIL :TYPE (OR SYMBOL NULL)) ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (VOP-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!C::VOP-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) (SB!C::INHERITS NIL :TYPE (OR SYMBOL NULL)) ; (SB!C::ARGS NIL :TYPE LIST) (SB!C::RESULTS NIL :TYPE LIST) ; (SB!C::TEMPS NIL :TYPE LIST) ; (SB!C::MORE-ARGS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL)) ; (SB!C::MORE-RESULTS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL)) ; (SB!C::OPERANDS NIL :TYPE LIST) (SB!C::IGNORES NIL :TYPE LIST) ; (SB!C::CONDITIONAL-P NIL) ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (OPERAND-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!C::OPERAND-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (SB!C::KIND (SB!INT:MISSING-ARG) :TYPE ; (MEMBER :ARGUMENT :RESULT :TEMPORARY :MORE-ARGUMENT :MORE-RESULT)) ; (SB!C::TARGET NIL :TYPE (OR SYMBOL NULL)) ; (SB!C::TEMP (SB!C::MAKE-OPERAND-PARSE-TEMP) :TYPE SYMBOL) SB!C::BORN ; SB!C::DIES (SB!C::SCS NIL :TYPE LIST) ; (SB!C::LOAD-TN (SB!C::MAKE-OPERAND-PARSE-LOAD-TN) :TYPE SYMBOL) (LOAD T) ; (SB!C:SC NIL :TYPE (OR SYMBOL NULL)) ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET ; --> FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW1164 #:G1165) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; in: ; DEF!STRUCT (VOP-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!C::VOP-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) (SB!C::INHERITS NIL :TYPE (OR SYMBOL NULL)) ; (SB!C::ARGS NIL :TYPE LIST) (SB!C::RESULTS NIL :TYPE LIST) ; (SB!C::TEMPS NIL :TYPE LIST) ; (SB!C::MORE-ARGS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL)) ; (SB!C::MORE-RESULTS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL)) ; (SB!C::OPERANDS NIL :TYPE LIST) (SB!C::IGNORES NIL :TYPE LIST) ; (SB!C::CONDITIONAL-P NIL) ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET ; --> FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW988 #:G989) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; in: ; DEF!STRUCT (OPERAND-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!C::OPERAND-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (SB!C::KIND (SB!INT:MISSING-ARG) :TYPE ; (MEMBER :ARGUMENT :RESULT :TEMPORARY :MORE-ARGUMENT :MORE-RESULT)) ; (SB!C::TARGET NIL :TYPE (OR SYMBOL NULL)) ; (SB!C::TEMP (SB!C::MAKE-OPERAND-PARSE-TEMP) :TYPE SYMBOL) SB!C::BORN ; SB!C::DIES (SB!C::SCS NIL :TYPE LIST) ; (SB!C::LOAD-TN (SB!C::MAKE-OPERAND-PARSE-LOAD-TN) :TYPE SYMBOL) (LOAD T) ; (SB!C:SC NIL :TYPE (OR SYMBOL NULL)) ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!C::OPERAND-PARSE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: ; DEF!STRUCT (VOP-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!C::VOP-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) (SB!C::INHERITS NIL :TYPE (OR SYMBOL NULL)) ; (SB!C::ARGS NIL :TYPE LIST) (SB!C::RESULTS NIL :TYPE LIST) ; (SB!C::TEMPS NIL :TYPE LIST) ; (SB!C::MORE-ARGS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL)) ; (SB!C::MORE-RESULTS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL)) ; (SB!C::OPERANDS NIL :TYPE LIST) (SB!C::IGNORES NIL :TYPE LIST) ; (SB!C::CONDITIONAL-P NIL) ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!C::VOP-PARSE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFMACRO PRIMITIVE-TYPE-VOP ; (MAPCAR ; (LAMBDA (TYPE) ; (SB!IMPL::BACKQ-LIST* 'LET ; (SB!IMPL::BACKQ-LIST ; (SB!IMPL::BACKQ-LIST SB!C::N-TYPE #)) ; (MAPCAR (LAMBDA # #) SB!C::KINDS))) ; SB!C::TYPES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO !DEF-PRIMITIVE-TYPE ; (MAPCAR #'SB!C:SC-NUMBER-OR-LOSE SB!C::SCS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO DEFINE-STORAGE-CLASS ; (MAPCAR #'SB!C:SC-OR-LOSE SB!C::ALTERNATE-SCS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 12 more uses of undefined type COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT (SETF LAYOUT-PURE) CLASSOID-LAYOUT ; caught 10 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/meta-vmdef.lisp-obj-tmp written ; compilation finished in 0:00:01.680 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/vm.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFTYPE SAP-INT ...) ; x-compiling (DEFVAR *BYTE-REGISTER-NAMES* ...) ; x-compiling (DEFVAR *WORD-REGISTER-NAMES* ...) ; x-compiling (DEFVAR *DWORD-REGISTER-NAMES* ...) ; x-compiling (DEFVAR *QWORD-REGISTER-NAMES* ...) ; x-compiling (DEFVAR *FLOAT-REGISTER-NAMES* ...) ; x-compiling (DEFREG AL ...) ; x-compiling (DEFREG CL ...) ; x-compiling (DEFREG DL ...) ; x-compiling (DEFREG BL ...) ; x-compiling (DEFREG SIL ...) ; x-compiling (DEFREG DIL ...) ; x-compiling (DEFREG R8B ...) ; x-compiling (DEFREG R9B ...) ; x-compiling (DEFREG R10B ...) ; x-compiling (DEFREG R11B ...) ; x-compiling (DEFREG R12B ...) ; x-compiling (DEFREG R13B ...) ; x-compiling (DEFREG R14B ...) ; x-compiling (DEFREG R15B ...) ; x-compiling (DEFREGSET *BYTE-REGS* ...) ; x-compiling (DEFREG AX ...) ; x-compiling (DEFREG CX ...) ; x-compiling (DEFREG DX ...) ; x-compiling (DEFREG BX ...) ; x-compiling (DEFREG SP ...) ; x-compiling (DEFREG BP ...) ; x-compiling (DEFREG SI ...) ; x-compiling (DEFREG DI ...) ; x-compiling (DEFREG R8W ...) ; x-compiling (DEFREG R9W ...) ; x-compiling (DEFREG R10W ...) ; x-compiling (DEFREG R11W ...) ; x-compiling (DEFREG R12W ...) ; x-compiling (DEFREG R13W ...) ; x-compiling (DEFREG R14W ...) ; x-compiling (DEFREG R15W ...) ; x-compiling (DEFREGSET *WORD-REGS* ...) ; x-compiling (DEFREG EAX ...) ; x-compiling (DEFREG ECX ...) ; x-compiling (DEFREG EDX ...) ; x-compiling (DEFREG EBX ...) ; x-compiling (DEFREG ESP ...) ; x-compiling (DEFREG EBP ...) ; x-compiling (DEFREG ESI ...) ; x-compiling (DEFREG EDI ...) ; x-compiling (DEFREG R8D ...) ; x-compiling (DEFREG R9D ...) ; x-compiling (DEFREG R10D ...) ; x-compiling (DEFREG R11D ...) ; x-compiling (DEFREG R12D ...) ; x-compiling (DEFREG R13D ...) ; x-compiling (DEFREG R14D ...) ; x-compiling (DEFREG R15D ...) ; x-compiling (DEFREGSET *DWORD-REGS* ...) ; x-compiling (DEFREG RAX ...) ; x-compiling (DEFREG RCX ...) ; x-compiling (DEFREG RDX ...) ; x-compiling (DEFREG RBX ...) ; x-compiling (DEFREG RSP ...) ; x-compiling (DEFREG RBP ...) ; x-compiling (DEFREG RSI ...) ; x-compiling (DEFREG RDI ...) ; x-compiling (DEFREG R8 ...) ; x-compiling (DEFREG R9 ...) ; x-compiling (DEFREG R10 ...) ; x-compiling (DEFREG R11 ...) ; x-compiling (DEFREG R12 ...) ; x-compiling (DEFREG R13 ...) ; x-compiling (DEFREG R14 ...) ; x-compiling (DEFREG R15 ...) ; x-compiling (DEFREGSET *QWORD-REGS* ...) ; x-compiling (DEFREG FLOAT0 ...) ; x-compiling (DEFREG FLOAT1 ...) ; x-compiling (DEFREG FLOAT2 ...) ; x-compiling (DEFREG FLOAT3 ...) ; x-compiling (DEFREG FLOAT4 ...) ; x-compiling (DEFREG FLOAT5 ...) ; x-compiling (DEFREG FLOAT6 ...) ; x-compiling (DEFREG FLOAT7 ...) ; x-compiling (DEFREG FLOAT8 ...) ; x-compiling (DEFREG FLOAT9 ...) ; x-compiling (DEFREG FLOAT10 ...) ; x-compiling (DEFREG FLOAT11 ...) ; x-compiling (DEFREG FLOAT12 ...) ; x-compiling (DEFREG FLOAT13 ...) ; x-compiling (DEFREG FLOAT14 ...) ; x-compiling (DEFREG FLOAT15 ...) ; x-compiling (DEFREGSET *FLOAT-REGS* ...) ; x-compiling (DEF!CONSTANT REGISTER-ARG-COUNT ...) ; x-compiling (DEFPARAMETER *REGISTER-ARG-NAMES* ...) ; x-compiling (DEFREGSET *REGISTER-ARG-OFFSETS* ...) ; x-compiling (DEFREGSET *C-CALL-REGISTER-ARG-OFFSETS* ...) ; x-compiling (DEFINE-STORAGE-BASE REGISTERS ...) ; x-compiling (DEFINE-STORAGE-BASE FLOAT-REGISTERS ...) ; x-compiling (DEFINE-STORAGE-BASE STACK ...) ; x-compiling (DEFINE-STORAGE-BASE CONSTANT ...) ; x-compiling (DEFINE-STORAGE-BASE IMMEDIATE-CONSTANT ...) ; x-compiling (DEFINE-STORAGE-BASE NOISE ...) ; x-compiling (DEFMACRO !DEFINE-STORAGE-CLASSES ...) ; x-compiling (!DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ...) ; x-compiling (DEFPARAMETER *BYTE-SC-NAMES* ...) ; x-compiling (DEFPARAMETER *WORD-SC-NAMES* ...) ; x-compiling (DEFPARAMETER *DWORD-SC-NAMES* ...) ; x-compiling (DEFPARAMETER *QWORD-SC-NAMES* ...) ; x-compiling (DEFPARAMETER *FLOAT-SC-NAMES* ...) ; x-compiling (DEFPARAMETER *DOUBLE-SC-NAMES* ...) ; x-compiling (DEFPARAMETER *COMPLEX-SC-NAMES* ...) ; x-compiling (DEFPARAMETER *OWORD-SC-NAMES* ...) ; x-compiling (DEF-MISC-REG-TNS UNSIGNED-REG ...) ; x-compiling (DEF-MISC-REG-TNS DWORD-REG ...) ; x-compiling (DEF-MISC-REG-TNS WORD-REG ...) ; x-compiling (DEF-MISC-REG-TNS BYTE-REG ...) ; x-compiling (DEF-MISC-REG-TNS SINGLE-REG ...) ; x-compiling (DEFUN REG-IN-SIZE ...) ; x-compiling (DEFPARAMETER TEMP-REG-TN ...) ; x-compiling (DEFPARAMETER *REGISTER-ARG-TNS* ...) ; x-compiling (DEFPARAMETER THREAD-BASE-TN ...) ; x-compiling (DEFUN IMMEDIATE-CONSTANT-SC ...) ; x-compiling (DEFUN BOXED-IMMEDIATE-SC-P ...) ; x-compiling (DEF!CONSTANT RETURN-PC-SAVE-OFFSET ...) ; x-compiling (DEF!CONSTANT OCFP-SAVE-OFFSET ...) ; x-compiling (DEF!CONSTANT CODE-SAVE-OFFSET ...) ; x-compiling (DEF!CONSTANT SP->FP-OFFSET ...) ; x-compiling (DECLAIM (INLINE FRAME-WORD-OFFSET)) ; x-compiling (DEFUN FRAME-WORD-OFFSET ...) ; x-compiling (DECLAIM (INLINE FRAME-BYTE-OFFSET)) ; x-compiling (DEFUN FRAME-BYTE-OFFSET ...) ; x-compiling (DEF!CONSTANT LRA-SAVE-OFFSET ...) ; x-compiling (DEF!CONSTANT SINGLE-VALUE-RETURN-BYTE-OFFSET ...) ; x-compiling (DEFUN LOCATION-PRINT-NAME ...) ; x-compiling (DEFUN DWORDS-FOR-QUAD ...) ; x-compiling (DEFUN WORDS-FOR-DWORD ...) ; x-compiling (DEF!CONSTANT CFP-OFFSET ...) ; x-compiling (DEFUN COMBINATION-IMPLEMENTATION-STYLE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/vm.lisp ; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE ; (SB!C::COMBINATION-FUN-SOURCE-NAME SB!VM::NODE) ; ; caught STYLE-WARNING: ; undefined function: SB!C::COMBINATION-FUN-SOURCE-NAME ; in: DEFPARAMETER *REGISTER-ARG-TNS* ; (MAPCAR ; (LAMBDA (SB!VM::REGISTER-ARG-NAME) ; (SYMBOL-VALUE (SB!INT:SYMBOLICATE SB!VM::REGISTER-ARG-NAME "-TN"))) ; SB!VM::*REGISTER-ARG-NAMES*) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ; (SB!VM::!DEFINE-STORAGE-CLASSES (SB!KERNEL:CONSTANT SB!KERNEL:CONSTANT) ; (SB!VM::FP-SINGLE-ZERO ; SB!VM::IMMEDIATE-CONSTANT) ; (SB!VM::FP-DOUBLE-ZERO ; SB!VM::IMMEDIATE-CONSTANT) ; (SB!VM::FP-COMPLEX-SINGLE-ZERO ; SB!VM::IMMEDIATE-CONSTANT) ; (SB!VM::FP-COMPLEX-DOUBLE-ZERO ; SB!VM::IMMEDIATE-CONSTANT) ; (SB!VM::FP-SINGLE-IMMEDIATE ; SB!VM::IMMEDIATE-CONSTANT) ; (SB!VM::FP-DOUBLE-IMMEDIATE ; SB!VM::IMMEDIATE-CONSTANT) ; (SB!VM::FP-COMPLEX-SINGLE-IMMEDIATE ; SB!VM::IMMEDIATE-CONSTANT) ; (SB!VM::FP-COMPLEX-DOUBLE-IMMEDIATE ; SB!VM::IMMEDIATE-CONSTANT) ; (SB!VM::INT-SSE-IMMEDIATE ; SB!VM::IMMEDIATE-CONSTANT) ; (SB!VM::DOUBLE-SSE-IMMEDIATE ; SB!VM::IMMEDIATE-CONSTANT) ; ...) ; --> PROGN SB!C:DEFINE-STORAGE-CLASS PROGN EVAL-WHEN LET LET SB!C::MAKE-SC ; --> MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE ; (SB!C::CONSTANT-LVAR-P (FIRST (SB!C::BASIC-COMBINATION-ARGS SB!VM::NODE))) ; ; caught STYLE-WARNING: ; undefined function: SB!C::CONSTANT-LVAR-P ; (SB!KERNEL:SPECIFIER-TYPE ; (SB!IMPL::BACKQ-LIST 'FUNCTION SB!VM::ARGS SB!VM::RESULT)) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: DEFUN IMMEDIATE-CONSTANT-SC ; (SB!VM:STATIC-SYMBOL-P SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: STATIC-SYMBOL-P ; in: DEFUN 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 ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!C::COMBINATION-FUN-SOURCE-NAME SB!C::CONSTANT-LVAR-P SPECIFIER-TYPE STATIC-SYMBOL-P SB!C::VALID-FUN-USE ; caught 7 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/vm.lisp-obj-tmp written ; compilation finished in 0:00:02.030 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/xset.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DECLAIM (INLINE ALLOC-XSET ...)) ; x-compiling (DEFSTRUCT (XSET # ...) ...) ; x-compiling (DEFUN XSET-COUNT ...) ; x-compiling (DEFUN MAP-XSET ...) ; x-compiling (DEFCONSTANT +XSET-LIST-SIZE-LIMIT+ ...) ; x-compiling (DEFUN ADD-TO-XSET ...) ; x-compiling (DEFUN XSET-UNION ...) ; x-compiling (DEFUN XSET-MEMBER-P ...) ; x-compiling (DEFUN XSET-MEMBERS ...) ; x-compiling (DEFUN XSET-INTERSECTION ...) ; x-compiling (DEFUN XSET-SUBSET-P ...) ; x-compiling (DECLAIM (INLINE XSET-EMPTY-P)) ; x-compiling (DEFUN XSET-EMPTY-P ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/xset.lisp ; in: DEFSTRUCT XSET ; (DEFSTRUCT ; (SB!INT:XSET (:CONSTRUCTOR SB!INT:ALLOC-XSET) (:COPIER NIL) ; (:PREDICATE NIL)) ; (SB!KERNEL::LIST-SIZE 0 :TYPE SB!INT:INDEX) ; (SB!KERNEL::DATA NIL :TYPE (OR LIST HASH-TABLE))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; ; compilation unit finished ; Undefined function: ; %TARGET-DEFSTRUCT ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/xset.lisp-obj-tmp written ; compilation finished in 0:00:00.999 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFSTRUCT (HAIRY-TYPE # ...) ...) ; x-compiling (!DEFINE-TYPE-CLASS HAIRY) ; x-compiling (DEFSTRUCT (UNKNOWN-TYPE # ...)) ; x-compiling (DEFUN MAYBE-REPARSE-SPECIFIER ...) ; x-compiling (DEFMACRO MAYBE-REPARSE-SPECIFIER! ...) ; x-compiling (DEFSTRUCT (NEGATION-TYPE # ...) ...) ; x-compiling (!DEFINE-TYPE-CLASS NEGATION) ; x-compiling (DEFSTRUCT (ARGS-TYPE # ...) ...) ; x-compiling (DEFUN CANONICALIZE-ARGS-TYPE-ARGS ...) ; x-compiling (DEFUN PARSE-ARGS-TYPES ...) ; x-compiling (DEFSTRUCT (VALUES-TYPE # ...)) ; x-compiling (DECLAIM (INLINE VALUES-TYPE-P)) ; x-compiling (DEFUN VALUES-TYPE-P ...) ; x-compiling (DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS ...) ...) ; x-compiling (DEFUN MAKE-VALUES-TYPE ...) ; x-compiling (!DEFINE-TYPE-CLASS VALUES) ; x-compiling (DEFSTRUCT (FUN-TYPE # ...) ...) ; x-compiling (DEFSTRUCT (CONSTANT-TYPE # ...) ...) ; x-compiling (DEFSTRUCT (NAMED-TYPE # ...) ...) ; x-compiling (DEFPARAMETER *FLOAT-FORMATS* ...) ; x-compiling (DEFTYPE FLOAT-FORMAT ...) ; x-compiling (DEFSTRUCT (NUMERIC-TYPE # ...) ...) ; x-compiling (DEFUN MAKE-NUMERIC-TYPE ...) ; x-compiling (DEFUN MODIFIED-NUMERIC-TYPE ...) ; x-compiling (DEFSTRUCT (CHARACTER-SET-TYPE # ...) ...) ; x-compiling (DEFUN MAKE-CHARACTER-SET-TYPE ...) ; x-compiling (DEFSTRUCT (ARRAY-TYPE # ...) ...) ; x-compiling (DEFINE-CACHED-SYNONYM MAKE-ARRAY-TYPE) ; x-compiling (DEFSTRUCT (MEMBER-TYPE # ...) ...) ; x-compiling (DEFUN MAKE-MEMBER-TYPE ...) ; x-compiling (DEFUN MEMBER-TYPE-SIZE ...) ; x-compiling (DEFUN MEMBER-TYPE-MEMBER-P ...) ; x-compiling (DEFUN MAPCAR-MEMBER-TYPE-MEMBERS ...) ; x-compiling (DEFUN MAPC-MEMBER-TYPE-MEMBERS ...) ; x-compiling (DEFUN MEMBER-TYPE-MEMBERS ...) ; x-compiling (DEFSTRUCT (COMPOUND-TYPE # ...) ...) ; x-compiling (DEFSTRUCT (UNION-TYPE # ...)) ; x-compiling (DEFINE-CACHED-SYNONYM MAKE-UNION-TYPE) ; x-compiling (DEFSTRUCT (INTERSECTION-TYPE # ...)) ; x-compiling (DEFUN TYPE-*-TO-T ...) ; x-compiling (DEFSTRUCT (CONS-TYPE # ...) ...) ; x-compiling (DEFUN MAKE-CONS-TYPE ...) ; x-compiling (DEFUN CONS-TYPE-LENGTH-INFO ...) ; x-compiling (DEFSTRUCT (SIMD-PACK-TYPE # ...) ...) ; x-compiling (DEFUN MAKE-SIMD-PACK-TYPE ...) ; x-compiling (DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN SPECIFIER-TYPE ...) ; x-compiling (DEFUN SINGLE-VALUE-SPECIFIER-TYPE ...) ; x-compiling (DEFUN TYPEXPAND-1 ...) ; x-compiling (DEFUN TYPEXPAND ...) ; x-compiling (DEFUN TYPEXPAND-ALL ...) ; x-compiling (DEFUN DEFINED-TYPE-NAME-P ...) ; x-compiling (DEFUN VALID-TYPE-SPECIFIER-P ...) ; x-compiling (DEFUN %NOTE-TYPE-DEFINED ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-TYPE-COLD-INIT) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-type.lisp ; in: DEFINE-CACHED-SYNONYM MAKE-UNION-TYPE ; (SB!INT:DEFINE-CACHED-SYNONYM SB!KERNEL::MAKE-UNION-TYPE) ; --> PROGN SB!INT:DEFUN-CACHED PROGN SB!INT:DEFINE-HASH-CACHE PROGN ; --> SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::**%%MAKE-UNION-TYPE-CACHED-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFINE-CACHED-SYNONYM MAKE-ARRAY-TYPE ; (SB!INT:DEFINE-CACHED-SYNONYM SB!KERNEL:MAKE-ARRAY-TYPE) ; --> PROGN SB!INT:DEFUN-CACHED PROGN SB!INT:DEFINE-HASH-CACHE PROGN ; --> SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::**%%MAKE-ARRAY-TYPE-CACHED-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: ; DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS 8 :HASH-FUNCTION ; (LAMBDA (REQ OPT REST ALLOWP) ; (LOGXOR (TYPE-LIST-CACHE-HASH REQ) ; (TYPE-LIST-CACHE-HASH OPT) ; (IF REST ; # ; 42) ; (IF ALLOWP ; 194 ; 11)))) ; (SB!INT:DEFUN-CACHED (SB!KERNEL::MAKE-VALUES-TYPE-CACHED :HASH-BITS 8 ; :HASH-FUNCTION ; (LAMBDA ; (SB!KERNEL::REQ ; SB!KERNEL::OPT ; REST ; SB!KERNEL::ALLOWP) ; (LOGXOR ; (SB!KERNEL::TYPE-LIST-CACHE-HASH ; SB!KERNEL::REQ) ; (SB!KERNEL::TYPE-LIST-CACHE-HASH ; SB!KERNEL::OPT) ; (IF REST ; # ; 42) ; (IF SB!KERNEL::ALLOWP ; 194 ; 11)))) ; ((SB!KERNEL::REQUIRED SB!INT:EQUAL-BUT-NO-CAR-RECURSION) ; (SB!KERNEL::OPTIONAL SB!INT:EQUAL-BUT-NO-CAR-RECURSION) (REST EQ) ; (SB!KERNEL::ALLOWP EQ)) ; (SB!KERNEL::%MAKE-VALUES-TYPE :REQUIRED SB!KERNEL::REQUIRED :OPTIONAL ; SB!KERNEL::OPTIONAL :REST REST :ALLOWP ; SB!KERNEL::ALLOWP)) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::**MAKE-VALUES-TYPE-CACHED-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!IMPL::%DEFGLOBAL ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-type.lisp ; in: DEFSTRUCT NEGATION-TYPE ; (DEFSTRUCT ; (SB!KERNEL:NEGATION-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::NEGATION)) ; (SB!KERNEL::ENUMERABLE T) (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P T)) ; (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFSTRUCT UNKNOWN-TYPE ; (DEFSTRUCT ; (SB!KERNEL:UNKNOWN-TYPE (:INCLUDE SB!KERNEL:HAIRY-TYPE) (:COPIER NIL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFSTRUCT HAIRY-TYPE ; (DEFSTRUCT ; (SB!KERNEL:HAIRY-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::HAIRY)) ; (SB!KERNEL::ENUMERABLE T) (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P T)) ; (:COPIER NIL)) ; (SB!KERNEL::SPECIFIER NIL :TYPE T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 14 more uses of undefined function %TARGET-DEFSTRUCT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-type.lisp ; in: DEFSTRUCT NEGATION-TYPE ; (DEFSTRUCT ; (SB!KERNEL:NEGATION-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::NEGATION)) ; (SB!KERNEL::ENUMERABLE T) (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P T)) ; (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE)) ; --> PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW223 #:G224) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; in: DEFSTRUCT UNKNOWN-TYPE ; (DEFSTRUCT ; (SB!KERNEL:UNKNOWN-TYPE (:INCLUDE SB!KERNEL:HAIRY-TYPE) (:COPIER NIL))) ; --> PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW127 #:G128) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; in: DEFSTRUCT HAIRY-TYPE ; (DEFSTRUCT ; (SB!KERNEL:HAIRY-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::HAIRY)) ; (SB!KERNEL::ENUMERABLE T) (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P T)) ; (:COPIER NIL)) ; (SB!KERNEL::SPECIFIER NIL :TYPE T)) ; --> PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW60 #:G61) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; ; caught STYLE-WARNING: ; 13 more uses of undefined function (SETF LAYOUT-PURE) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-type.lisp ; in: ; DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION #'SXHASH :HASH-BITS 10 ...) ; (SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION SB!KERNEL::SPEC) ; ; caught STYLE-WARNING: ; undefined function: BUILT-IN-CLASSOID-TRANSLATION ; in: DEFSTRUCT NEGATION-TYPE ; (DEFSTRUCT ; (SB!KERNEL:NEGATION-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::NEGATION)) ; (SB!KERNEL::ENUMERABLE T) (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P T)) ; (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE)) ; --> PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!KERNEL:NEGATION-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFSTRUCT UNKNOWN-TYPE ; (DEFSTRUCT ; (SB!KERNEL:UNKNOWN-TYPE (:INCLUDE SB!KERNEL:HAIRY-TYPE) (:COPIER NIL))) ; --> PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!KERNEL:UNKNOWN-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFSTRUCT HAIRY-TYPE ; (DEFSTRUCT ; (SB!KERNEL:HAIRY-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::HAIRY)) ; (SB!KERNEL::ENUMERABLE T) (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P T)) ; (:COPIER NIL)) ; (SB!KERNEL::SPECIFIER NIL :TYPE T)) ; --> PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!KERNEL:HAIRY-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; ; caught STYLE-WARNING: ; 13 more uses of undefined function CLASSOID-LAYOUT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-type.lisp ; in: DEFUN PARSE-ARGS-TYPES ; (MAPCAR #'SB!KERNEL:SINGLE-VALUE-SPECIFIER-TYPE SB!KERNEL::OPTIONAL) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR #'SB!KERNEL:SINGLE-VALUE-SPECIFIER-TYPE SB!KERNEL::REQUIRED) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN MAKE-SIMD-PACK-TYPE ; (SB!KERNEL:CSUBTYPEP SB!KERNEL::ELEMENT-TYPE ; (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::PACK-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:CSUBTYPEP CDR (SB!KERNEL:SPECIFIER-TYPE 'NULL)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN PARSE-ARGS-TYPES ; #'SB!KERNEL:KEY-INFO-NAME ; ; caught STYLE-WARNING: ; undefined function: KEY-INFO-NAME ; (SB!KERNEL:MAKE-KEY-INFO :NAME SB!KERNEL::KWD :TYPE ; (SB!KERNEL:SINGLE-VALUE-SPECIFIER-TYPE ; (SECOND SB!KERNEL::KEY))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-KEY-INFO ; (SB!INT:PARSE-LAMBDA-LIST-LIKE-THING SB!KERNEL::LAMBDA-LIST-LIKE-THING ; :SILENT T) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST-LIKE-THING ; in: 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 268435456 ; (IF (BOUNDP 'SB!KERNEL::*TYPE-RANDOM-STATE*) ; SB!KERNEL::*TYPE-RANDOM-STATE* ; (SETF SB!KERNEL::*TYPE-RANDOM-STATE* (MAKE-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 268435456 ; (IF (BOUNDP 'SB!KERNEL::*TYPE-RANDOM-STATE*) ; SB!KERNEL::*TYPE-RANDOM-STATE* ; (SETF SB!KERNEL::*TYPE-RANDOM-STATE* (MAKE-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 268435456 ; (IF (BOUNDP 'SB!KERNEL::*TYPE-RANDOM-STATE*) ; SB!KERNEL::*TYPE-RANDOM-STATE* ; (SETF SB!KERNEL::*TYPE-RANDOM-STATE* (MAKE-RANDOM-STATE)))) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; ; caught STYLE-WARNING: ; 12 more uses of undefined function RANDOM-CHUNK ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-type.lisp ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR) ; ; caught STYLE-WARNING: ; undefined function: TYPE-INTERSECTION ; in: DEFUN TYPEXPAND-ALL ; (SB!KERNEL:TYPE-SPECIFIER ; (SB!KERNEL:VALUES-SPECIFIER-TYPE SB!KERNEL:TYPE-SPECIFIER)) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:TYPE/= ; (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR) ; SB!KERNEL:*EMPTY-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: TYPE/= ; in: DEFUN TYPE-*-TO-T ; (SB!KERNEL:TYPE= TYPE SB!KERNEL:*WILD-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!IMPL::%DEFGLOBAL %TARGET-DEFSTRUCT (SETF LAYOUT-PURE) BUILT-IN-CLASSOID-TRANSLATION CLASSOID-LAYOUT CSUBTYPEP KEY-INFO-NAME MAKE-KEY-INFO PARSE-LAMBDA-LIST-LIKE-THING RANDOM-CHUNK TYPE-INTERSECTION TYPE-SPECIFIER TYPE/= TYPE= ; caught 32 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-type.lisp-obj-tmp written ; compilation finished in 0:00:02.276 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/class.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEF!STRUCT (CLASSOID # ...) ...) ; x-compiling (DEFUN CLASSOID-MAKE-LOAD-FORM-FUN ...) ; x-compiling (DEF!CONSTANT LAYOUT-CLOS-HASH-LIMIT ...) ; x-compiling (DEF!TYPE LAYOUT-CLOS-HASH ...) ; x-compiling (DEFVAR *!INITIAL-LAYOUTS*) ; x-compiling (DEFVAR *FORWARD-REFERENCED-LAYOUTS*) ; x-compiling (!COLD-INIT-FORMS (SETQ *FORWARD-REFERENCED-LAYOUTS* ...) ...) ; x-compiling (DEF!STRUCT (LAYOUT #) ...) ; x-compiling (DECLAIM (FREEZE-TYPE LAYOUT)) ; x-compiling (DECLAIM (INLINE LAYOUT-FOR-STD-CLASS-P)) ; x-compiling (DEFUN LAYOUT-FOR-STD-CLASS-P ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN LAYOUT-PROPER-NAME ...) ; x-compiling (DEFVAR *LAYOUT-CLOS-HASH-RANDOM-STATE*) ; x-compiling (DEFUN RANDOM-LAYOUT-CLOS-HASH ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-LAYOUT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %INIT-OR-CHECK-LAYOUT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN REDEFINE-LAYOUT-WARNING ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-LAYOUT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/class.lisp ; in: DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT ; (DEFUN SB!KERNEL:FIND-AND-INIT-OR-CHECK-LAYOUT ; (SB!KERNEL::NAME LENGTH SB!KERNEL::INHERITS SB!KERNEL::DEPTHOID ; SB!KERNEL::NUNTAGGED) ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (LET ((SB!KERNEL:LAYOUT #)) ; (SB!KERNEL::%INIT-OR-CHECK-LAYOUT SB!KERNEL:LAYOUT (OR # #) LENGTH ; SB!KERNEL::INHERITS ; SB!KERNEL::DEPTHOID ; SB!KERNEL::NUNTAGGED)))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!KERNEL:FIND-AND-INIT-OR-CHECK-LAYOUT ; (LAMBDA ; (SB!KERNEL::NAME LENGTH SB!KERNEL::INHERITS ; SB!KERNEL::DEPTHOID SB!KERNEL::NUNTAGGED) ; (BLOCK SB!KERNEL:FIND-AND-INIT-OR-CHECK-LAYOUT ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (LET # ; #))))) ; ; note: type assertion too complex to check: ; (VALUES LAYOUT &REST T). ; x-compiling (DEFUN REGISTER-LAYOUT ...) ; x-compiling (DEFUN ORDER-LAYOUT-INHERITS ...) ; x-compiling (DEFUN TOPOLOGICAL-SORT ...) ; x-compiling (DEFUN STD-COMPUTE-CLASS-PRECEDENCE-LIST ...) ; x-compiling (DEF!STRUCT (UNDEFINED-CLASSOID # ...)) ; x-compiling (DEF!STRUCT (BUILT-IN-CLASSOID # ...) ...) ; x-compiling (DEF!STRUCT (STRUCTURE-CLASSOID # ...)) ; x-compiling (DEF!STRUCT (CLASSOID-CELL # ...) ...) ; x-compiling (DEFUN FIND-CLASSOID-CELL ...) ; x-compiling (DEFUN FIND-CLASSOID ...) ; x-compiling (DEFUN (SETF FIND-CLASSOID) ...) ; x-compiling (DEFUN %CLEAR-CLASSOID ...) ; x-compiling (DEFUN INSURED-FIND-CLASSOID ...) ; x-compiling (DEFUN CLASSOID-PROPER-NAME ...) ; x-compiling (!DEFINE-TYPE-CLASS CLASSOID) ; x-compiling (DEFUN %ENSURE-CLASSOID-VALID ...) ; x-compiling (DEFUN %ENSURE-BOTH-CLASSOIDS-VALID ...) ; x-compiling (DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ...) ; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP) ...) ; x-compiling (DEFUN SEALED-CLASS-INTERSECTION2 ...) ; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-INTERSECTION2) ...) ; x-compiling (DEFVAR *NON-INSTANCE-CLASSOID-TYPES* ...) ; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :UNPARSE) ...) ; x-compiling (DEF!STRUCT (STANDARD-CLASSOID # ...)) ; x-compiling (DEF!STRUCT (STATIC-CLASSOID # ...)) ; x-compiling (DEFVAR *BUILT-IN-CLASSES*) ; x-compiling (!COLD-INIT-FORMS (/SHOW0 "setting *BUILT-IN-CLASSES*") ...) ; x-compiling (!COLD-INIT-FORMS (DOLIST # ...) ...) ; x-compiling (!COLD-INIT-FORMS (/SHOW0 "about to define temporary STANDARD-CLASSes") ...) ; x-compiling (!COLD-INIT-FORMS (DOLIST # ...)) ; x-compiling (DEFUN %MODIFY-CLASSOID ...) ; x-compiling (DEFUN %INVALIDATE-LAYOUT ...) ; x-compiling (DEFUN !CLASS-FINALIZE ...) ; x-compiling (!COLD-INIT-FORMS (/SHOW0 "about to set *BUILT-IN-CLASS-CODES*") ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CLASSES-COLD-INIT) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/class.lisp ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!PCL::%FORCE-CACHE-FLUSHES CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::%FORCE-CACHE-FLUSHES ; in: ; DEF!STRUCT (UNDEFINED-CLASSOID (:INCLUDE CLASSOID) ; (:CONSTRUCTOR MAKE-UNDEFINED-CLASSOID (NAME))) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL::UNDEFINED-CLASSOID (:INCLUDE SB!KERNEL:CLASSOID) ; (:CONSTRUCTOR SB!KERNEL:MAKE-UNDEFINED-CLASSOID (SB!KERNEL::NAME)))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEF!STRUCT (LAYOUT (:MAKE-LOAD-FORM-FUN IGNORE-IT)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:LAYOUT (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT)) ; (SB!KERNEL::CLOS-HASH (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!KERNEL:LAYOUT-CLOS-HASH) ; (SB!KERNEL:CLASSOID (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CLASSOID) ; (SB!KERNEL::INVALID :UNINITIALIZED :TYPE ; (OR CONS (MEMBER NIL T :UNINITIALIZED))) ; (SB!KERNEL::INHERITS #() :TYPE SIMPLE-VECTOR) ; (SB!KERNEL::DEPTHOID -1 :TYPE SB!KERNEL:LAYOUT-DEPTHOID) ; (LENGTH 0 :TYPE SB!INT:INDEX) (SB!INT:INFO NIL) ; (SB!KERNEL::PURE NIL :TYPE (MEMBER T NIL 0)) ; (SB!KERNEL::N-UNTAGGED-SLOTS 0 :TYPE SB!INT:INDEX) ; (SB!KERNEL::SOURCE-LOCATION NIL) ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (CLASSOID (:MAKE-LOAD-FORM-FUN CLASSOID-MAKE-LOAD-FORM-FUN) ; (:INCLUDE CTYPE (CLASS-INFO (TYPE-CLASS-OR-LOSE 'CLASSOID))) ; (:CONSTRUCTOR NIL) ; (:PRINT-OBJECT ; (LAMBDA (CLASS STREAM) ; (LET # ; #))) ; ...) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:CLASSOID ; (:MAKE-LOAD-FORM-FUN SB!KERNEL::CLASSOID-MAKE-LOAD-FORM-FUN) ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL:CLASSOID))) ; (:CONSTRUCTOR NIL) ; (:PRINT-OBJECT ; (LAMBDA (CLASS STREAM) ; (LET # ; #))) ; (:PURE NIL)) ; (SB!KERNEL::NAME NIL :TYPE SYMBOL) ; (SB!KERNEL:LAYOUT NIL :TYPE (OR SB!KERNEL:LAYOUT NULL)) ; (SB!KERNEL::STATE NIL :TYPE (MEMBER NIL :READ-ONLY :SEALED)) ; (SB!KERNEL::DIRECT-SUPERCLASSES NIL :TYPE LIST) ; (SB!KERNEL::SUBCLASSES NIL :TYPE (OR NULL HASH-TABLE)) ; (SB!KERNEL::PCL-CLASS NIL)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 5 more uses of undefined function %TARGET-DEFSTRUCT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/class.lisp ; in: DEFUN RANDOM-LAYOUT-CLOS-HASH ; (RANDOM (1- SB!KERNEL:LAYOUT-CLOS-HASH-LIMIT) ; (IF (BOUNDP 'SB!KERNEL::*LAYOUT-CLOS-HASH-RANDOM-STATE*) ; SB!KERNEL::*LAYOUT-CLOS-HASH-RANDOM-STATE* ; (SETF SB!KERNEL::*LAYOUT-CLOS-HASH-RANDOM-STATE* ; (MAKE-RANDOM-STATE)))) ; ; caught STYLE-WARNING: ; undefined function: BIG-RANDOM-CHUNK ; in: DEFUN REGISTER-LAYOUT ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (LET* ((SB!KERNEL:CLASSOID (SB!KERNEL:LAYOUT-CLASSOID SB!KERNEL:LAYOUT)) ; (SB!KERNEL:CLASSOID-LAYOUT ; (SB!KERNEL:CLASSOID-LAYOUT SB!KERNEL:CLASSOID)) ; (SB!KERNEL::SUBCLASSES ; (SB!KERNEL:CLASSOID-SUBCLASSES SB!KERNEL:CLASSOID))) ; (SB!INT:AVER (NOT (SB!KERNEL::UNDEFINED-CLASSOID-P SB!KERNEL:CLASSOID))) ; (SB!INT:AVER (NOT (EQ SB!KERNEL:CLASSOID-LAYOUT SB!KERNEL:LAYOUT))) ; (WHEN SB!KERNEL:CLASSOID-LAYOUT ; (SB!KERNEL::%MODIFY-CLASSOID SB!KERNEL:CLASSOID) ; (WHEN SB!KERNEL::SUBCLASSES ; (SB!INT:DOHASH # ; # ; #)) ; (WHEN SB!KERNEL::INVALIDATE ; (SB!KERNEL::%INVALIDATE-LAYOUT SB!KERNEL:CLASSOID-LAYOUT) ; (SETF #))) ; (IF SB!KERNEL::DESTRUCT-LAYOUT ; (SETF # NIL ; # # ; # # ; # # ; # # ; # # ; ...) ; (SETF # NIL ; # SB!KERNEL:LAYOUT)) ; (SB!INT:DOVECTOR (SB!KERNEL::SUPER-LAYOUT ; (SB!KERNEL:LAYOUT-INHERITS SB!KERNEL:LAYOUT)) ; (LET* (# #) ; (WHEN # # #) ; (SETF #))))) ; --> SB!THREAD:WITH-RECURSIVE-LOCK SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-LOCK #'SB!THREAD::WITH-RECURSIVE-LOCK-THUNK ; SB!C::**WORLD-LOCK** T NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-LOCK ; in: DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (LET ((SB!KERNEL:LAYOUT (SB!KERNEL:FIND-LAYOUT SB!KERNEL::NAME))) ; (SB!KERNEL::%INIT-OR-CHECK-LAYOUT SB!KERNEL:LAYOUT ; (OR ; (SB!KERNEL:FIND-CLASSOID ; SB!KERNEL::NAME NIL) ; (SB!KERNEL:LAYOUT-CLASSOID ; SB!KERNEL:LAYOUT)) ; LENGTH SB!KERNEL::INHERITS ; SB!KERNEL::DEPTHOID ; SB!KERNEL::NUNTAGGED))) ; --> SB!THREAD:WITH-RECURSIVE-LOCK SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-LOCK #'SB!THREAD::WITH-RECURSIVE-LOCK-THUNK ; SB!C::**WORLD-LOCK** T NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-LOCK ; in: DEFUN FIND-LAYOUT ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (LET ((SB!KERNEL:CLASSOID (SB!KERNEL:FIND-CLASSOID SB!KERNEL::NAME NIL))) ; (OR ; (AND SB!KERNEL:CLASSOID (SB!KERNEL:CLASSOID-LAYOUT SB!KERNEL:CLASSOID)) ; (GETHASH SB!KERNEL::NAME SB!KERNEL::TABLE) (SETF # #)))) ; --> SB!THREAD:WITH-RECURSIVE-LOCK SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-LOCK #'SB!THREAD::WITH-RECURSIVE-LOCK-THUNK ; SB!C::**WORLD-LOCK** T NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-LOCK ; ; caught STYLE-WARNING: ; 3 more uses of undefined function SB!THREAD::CALL-WITH-RECURSIVE-LOCK ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/class.lisp ; in: DEFUN SEALED-CLASS-INTERSECTION2 ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL:LAYOUT) SB!KERNEL::S-SUB ; :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (WHEN (GETHASH SB!KERNEL::SUBCLASS SB!KERNEL::O-SUB) ; (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; #'SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK-THUNK ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-1214)) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; in: DEFUN INSURED-FIND-CLASSOID ; (SB!INT:WITH-LOCKED-SYSTEM-TABLE (SB!KERNEL::TABLE) ; (LET* ((SB!KERNEL::OLD (SB!KERNEL:FIND-CLASSOID SB!KERNEL::NAME NIL)) ; (SB!KERNEL::RES ; (IF # ; SB!KERNEL::OLD ; #)) ; (SB!KERNEL::FOUND (OR # #))) ; (WHEN SB!KERNEL::FOUND (SETF # SB!KERNEL::RES)) ; (VALUES SB!KERNEL::RES SB!KERNEL::FOUND))) ; --> SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; #'SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK-THUNK ; (SB!IMPL::HASH-TABLE-LOCK SB!KERNEL::TABLE)) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; in: DEFUN REGISTER-LAYOUT ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL::SUBCLASS-LAYOUT) ; SB!KERNEL::SUBCLASSES :LOCKED T) ; (SB!KERNEL::%MODIFY-CLASSOID SB!KERNEL::SUBCLASS) ; (WHEN SB!KERNEL::INVALIDATE ; (SB!KERNEL::%INVALIDATE-LAYOUT SB!KERNEL::SUBCLASS-LAYOUT))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; #'SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK-THUNK ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-428)) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!MOP:CLASS-FINALIZED-P CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:CLASS-FINALIZED-P ; in: !DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP) ; (SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; (SB!KERNEL:CLASSOID-PCL-CLASS SB!KERNEL::CLASS2)) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CLASSES-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!CLASSES-COLD-INIT) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK DOLIST BLOCK LET TAGBODY UNLESS ; --> IF PROGN LET TAGBODY DESTRUCTURING-BIND LET LET* LET* LET ; --> SB!KERNEL::MAKE-BUILT-IN-CLASSOID IF MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!MOP:FINALIZE-INHERITANCE CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:FINALIZE-INHERITANCE ; in: DEFUN SEALED-CLASS-INTERSECTION2 ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL:LAYOUT) SB!KERNEL::S-SUB ; :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (WHEN (GETHASH SB!KERNEL::SUBCLASS SB!KERNEL::O-SUB) ; (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; ==> ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-1214) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-LOCK ; in: DEFUN INSURED-FIND-CLASSOID ; (SB!INT:WITH-LOCKED-SYSTEM-TABLE (SB!KERNEL::TABLE) ; (LET* ((SB!KERNEL::OLD (SB!KERNEL:FIND-CLASSOID SB!KERNEL::NAME NIL)) ; (SB!KERNEL::RES ; (IF # ; SB!KERNEL::OLD ; #)) ; (SB!KERNEL::FOUND (OR # #))) ; (WHEN SB!KERNEL::FOUND (SETF # SB!KERNEL::RES)) ; (VALUES SB!KERNEL::RES SB!KERNEL::FOUND))) ; --> SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET ; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; ==> ; (SB!IMPL::HASH-TABLE-LOCK SB!KERNEL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-LOCK ; in: DEFUN REGISTER-LAYOUT ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL::SUBCLASS-LAYOUT) ; SB!KERNEL::SUBCLASSES :LOCKED T) ; (SB!KERNEL::%MODIFY-CLASSOID SB!KERNEL::SUBCLASS) ; (WHEN SB!KERNEL::INVALIDATE ; (SB!KERNEL::%INVALIDATE-LAYOUT SB!KERNEL::SUBCLASS-LAYOUT))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; ==> ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-428) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-LOCK ; in: DEFUN SEALED-CLASS-INTERSECTION2 ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL:LAYOUT) SB!KERNEL::S-SUB ; :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (WHEN (GETHASH SB!KERNEL::SUBCLASS SB!KERNEL::O-SUB) ; (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LENGTH ; ==> ; (SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-NEXT-VECTOR ; in: DEFUN TOPOLOGICAL-SORT ; (SB!INT:DOHASH ((SB!KERNEL::OBJ SB!INT:INFO) SB!KERNEL::OBJ-INFO) ; (UNLESS (ZEROP (FIRST SB!INT:INFO)) ; (ERROR "Topological sort failed due to constraint on ~S." ; SB!KERNEL::OBJ))) ; --> LET WITH-HASH-TABLE-ITERATOR LET LET* LENGTH ; ==> ; (SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-NEXT-VECTOR ; in: DEFUN REGISTER-LAYOUT ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL::SUBCLASS-LAYOUT) ; SB!KERNEL::SUBCLASSES :LOCKED T) ; (SB!KERNEL::%MODIFY-CLASSOID SB!KERNEL::SUBCLASS) ; (WHEN SB!KERNEL::INVALIDATE ; (SB!KERNEL::%INVALIDATE-LAYOUT SB!KERNEL::SUBCLASS-LAYOUT))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LENGTH ; ==> ; (SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-NEXT-VECTOR ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!IMPL::HASH-TABLE-NEXT-VECTOR ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/class.lisp ; in: DEFUN SEALED-CLASS-INTERSECTION2 ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL:LAYOUT) SB!KERNEL::S-SUB ; :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (WHEN (GETHASH SB!KERNEL::SUBCLASS SB!KERNEL::O-SUB) ; (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LABELS BLOCK ; --> LET ; ==> ; (SB!IMPL::HASH-TABLE-TABLE SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-TABLE ; in: DEFUN TOPOLOGICAL-SORT ; (SB!INT:DOHASH ((SB!KERNEL::OBJ SB!INT:INFO) SB!KERNEL::OBJ-INFO) ; (UNLESS (ZEROP (FIRST SB!INT:INFO)) ; (ERROR "Topological sort failed due to constraint on ~S." ; SB!KERNEL::OBJ))) ; --> LET WITH-HASH-TABLE-ITERATOR LET LET* LABELS BLOCK LET ; ==> ; (SB!IMPL::HASH-TABLE-TABLE SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-TABLE ; in: DEFUN REGISTER-LAYOUT ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL::SUBCLASS-LAYOUT) ; SB!KERNEL::SUBCLASSES :LOCKED T) ; (SB!KERNEL::%MODIFY-CLASSOID SB!KERNEL::SUBCLASS) ; (WHEN SB!KERNEL::INVALIDATE ; (SB!KERNEL::%INVALIDATE-LAYOUT SB!KERNEL::SUBCLASS-LAYOUT))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LABELS BLOCK ; --> LET ; ==> ; (SB!IMPL::HASH-TABLE-TABLE SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-TABLE ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!IMPL::HASH-TABLE-TABLE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/class.lisp ; in: ; DEF!STRUCT (STRUCTURE-CLASSOID (:INCLUDE CLASSOID) ; (:CONSTRUCTOR MAKE-STRUCTURE-CLASSOID)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:STRUCTURE-CLASSOID (:INCLUDE SB!KERNEL:CLASSOID) ; (:CONSTRUCTOR SB!KERNEL::MAKE-STRUCTURE-CLASSOID))) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET IF ; ==> ; (RANDOM 268435456 ; (IF (BOUNDP 'SB!KERNEL::*TYPE-RANDOM-STATE*) ; SB!KERNEL::*TYPE-RANDOM-STATE* ; (SETF SB!KERNEL::*TYPE-RANDOM-STATE* (MAKE-RANDOM-STATE)))) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; 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 268435456 ; (IF (BOUNDP 'SB!KERNEL::*TYPE-RANDOM-STATE*) ; SB!KERNEL::*TYPE-RANDOM-STATE* ; (SETF SB!KERNEL::*TYPE-RANDOM-STATE* (MAKE-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 268435456 ; (IF (BOUNDP 'SB!KERNEL::*TYPE-RANDOM-STATE*) ; SB!KERNEL::*TYPE-RANDOM-STATE* ; (SETF SB!KERNEL::*TYPE-RANDOM-STATE* (MAKE-RANDOM-STATE)))) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; ; caught STYLE-WARNING: ; 2 more uses of undefined function RANDOM-CHUNK ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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-49068) ; ; caught STYLE-WARNING: ; undefined function: TYPE-UNION ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!PCL::%FORCE-CACHE-FLUSHES %TARGET-DEFSTRUCT BIG-RANDOM-CHUNK SB!THREAD::CALL-WITH-RECURSIVE-LOCK SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK SB!MOP:CLASS-FINALIZED-P SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P SB!MOP:FINALIZE-INHERITANCE SB!IMPL::HASH-TABLE-LOCK SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::HASH-TABLE-TABLE RANDOM-CHUNK TYPE-UNION ; caught 34 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/class.lisp-obj-tmp written ; compilation finished in 0:00:02.131 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/condition.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "condition.lisp 20") ; x-compiling (/SHOW0 "condition.lisp 24") ; x-compiling (DEF!STRUCT (CONDITION-CLASSOID # ...) ...) ; x-compiling (/SHOW0 "condition.lisp 49") ; x-compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS CONDITION ...) ; x-compiling (DEFSTRUCT (CONDITION-SLOT #) ...) ; x-compiling (/SHOW0 "condition.lisp 103") ; x-compiling (LET (#) ...) ; x-compiling (/SHOW0 "condition.lisp 103") ; x-compiling (SETF (CONDITION-CLASSOID-REPORT #) ...) ; x-compiling (DEFUN FIND-CONDITION-LAYOUT ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFVAR *EMPTY-CONDITION-SLOT* ...) ; x-compiling (DEFUN FIND-SLOT-DEFAULT ...) ; x-compiling (DEFUN FIND-CONDITION-CLASS-SLOT ...) ; x-compiling (DEFUN CONDITION-WRITER-FUNCTION ...) ; x-compiling (DEFUN CONDITION-READER-FUNCTION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/condition.lisp ; in: DEFUN CONDITION-READER-FUNCTION ; (ERROR "missing slot ~S of ~S" SB!KERNEL::NAME CONDITION) ; ==> ; "missing slot ~S of ~S" ; ; note: deleting unreachable code ; x-compiling (DEFUN ALLOCATE-CONDITION ...) ; x-compiling (DEFUN MAKE-CONDITION ...) ; x-compiling (DEFUN %COMPILER-DEFINE-CONDITION ...) ; x-compiling (DEFUN COMPUTE-EFFECTIVE-SLOTS ...) ; x-compiling (DECLAIM (NOTINLINE INSTALL-CONDITION-SLOT-READER ...)) ; x-compiling (DEFUN INSTALL-CONDITION-SLOT-READER ...) ; x-compiling (DEFUN INSTALL-CONDITION-SLOT-WRITER ...) ; x-compiling (DEFVAR *DEFINE-CONDITION-HOOKS* ...) ; x-compiling (DEFUN %SET-CONDITION-REPORT ...) ; x-compiling (DEFUN %DEFINE-CONDITION ...) ; x-compiling (DEFMACRO DEFINE-CONDITION ...) ; x-compiling (DEFINE-CONDITION SERIOUS-CONDITION ...) ; x-compiling (DEFINE-CONDITION ERROR ...) ; x-compiling (DEFINE-CONDITION WARNING ...) ; x-compiling (DEFINE-CONDITION STYLE-WARNING ...) ; x-compiling (DEFUN SIMPLE-CONDITION-PRINTER ...) ; x-compiling (DEFINE-CONDITION SIMPLE-CONDITION ...) ; x-compiling (DEFINE-CONDITION SIMPLE-WARNING ...) ; x-compiling (DEFINE-CONDITION SIMPLE-ERROR ...) ; x-compiling (DEFINE-CONDITION STORAGE-CONDITION ...) ; x-compiling (DEFINE-CONDITION TYPE-ERROR ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...) ; x-compiling (DEFINE-CONDITION SIMPLE-TYPE-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BAD-TYPE ...) ; x-compiling (DEFINE-CONDITION PROGRAM-ERROR ...) ; x-compiling (DEFINE-CONDITION PARSE-ERROR ...) ; x-compiling (DEFINE-CONDITION CONTROL-ERROR ...) ; x-compiling (DEFINE-CONDITION STREAM-ERROR ...) ; x-compiling (DEFINE-CONDITION END-OF-FILE ...) ; x-compiling (DEFINE-CONDITION CLOSED-STREAM-ERROR ...) ; x-compiling (DEFINE-CONDITION FILE-ERROR ...) ; x-compiling (DEFINE-CONDITION PACKAGE-ERROR ...) ; x-compiling (DEFINE-CONDITION CELL-ERROR ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION UNBOUND-VARIABLE ...) ; x-compiling (DEFINE-CONDITION UNDEFINED-FUNCTION ...) ; x-compiling (DEFINE-CONDITION SPECIAL-FORM-FUNCTION ...) ; x-compiling (DEFINE-CONDITION ARITHMETIC-ERROR ...) ; x-compiling (DEFINE-CONDITION DIVISION-BY-ZERO ...) ; x-compiling (DEFINE-CONDITION FLOATING-POINT-OVERFLOW ...) ; x-compiling (DEFINE-CONDITION FLOATING-POINT-UNDERFLOW ...) ; x-compiling (DEFINE-CONDITION FLOATING-POINT-INEXACT ...) ; x-compiling (DEFINE-CONDITION FLOATING-POINT-INVALID-OPERATION ...) ; x-compiling (DEFINE-CONDITION PRINT-NOT-READABLE ...) ; x-compiling (DEFINE-CONDITION READER-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-READER-ERROR ...) ; x-compiling (DEFUN %REPORT-READER-ERROR ...) ; x-compiling (DEFINE-CONDITION BUG ...) ; x-compiling (DEFINE-CONDITION SIMPLE-STORAGE-CONDITION ...) ; x-compiling (DEFINE-CONDITION UNSUPPORTED-OPERATOR ...) ; x-compiling (DEFUN PRINT-REFERENCE ...) ; x-compiling (DEFINE-CONDITION REFERENCE-CONDITION ...) ; x-compiling (DEFVAR *PRINT-CONDITION-REFERENCES* ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION SIMPLE-REFERENCE-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-REFERENCE-WARNING ...) ; x-compiling (DEFINE-CONDITION ARGUMENTS-OUT-OF-DOMAIN-ERROR ...) ; x-compiling (DEFINE-CONDITION DUPLICATE-DEFINITION ...) ; x-compiling (DEFINE-CONDITION CONSTANT-MODIFIED ...) ; x-compiling (DEFINE-CONDITION PACKAGE-AT-VARIANCE ...) ; x-compiling (DEFINE-CONDITION PACKAGE-AT-VARIANCE-ERROR ...) ; x-compiling (DEFINE-CONDITION DEFCONSTANT-UNEQL ...) ; x-compiling (DEFINE-CONDITION ARRAY-INITIAL-ELEMENT-MISMATCH ...) ; x-compiling (DEFINE-CONDITION TYPE-WARNING ...) ; x-compiling (DEFINE-CONDITION TYPE-STYLE-WARNING ...) ; x-compiling (DEFINE-CONDITION LOCAL-ARGUMENT-MISMATCH ...) ; x-compiling (DEFINE-CONDITION FORMAT-ARGS-MISMATCH ...) ; x-compiling (DEFINE-CONDITION FORMAT-TOO-FEW-ARGS-WARNING ...) ; x-compiling (DEFINE-CONDITION FORMAT-TOO-MANY-ARGS-WARNING ...) ; x-compiling (DEFINE-CONDITION IMPLICIT-GENERIC-FUNCTION-WARNING ...) ; x-compiling (DEFINE-CONDITION EXTENSION-FAILURE ...) ; x-compiling (DEFINE-CONDITION STRUCTURE-INITARG-NOT-KEYWORD ...) ; x-compiling (DEFINE-CONDITION PACKAGE-LOCK-VIOLATION ...) ; x-compiling (DEFINE-CONDITION PACKAGE-LOCKED-ERROR ...) ; x-compiling (DEFINE-CONDITION SYMBOL-PACKAGE-LOCKED-ERROR ...) ; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-ERROR ...) ; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-VARIABLE-ERROR ...) ; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-FUNCTION-ERROR ...) ; x-compiling (DEFINE-CONDITION ENCAPSULATED-CONDITION ...) ; x-compiling (DEFINE-CONDITION FLOATING-POINT-EXCEPTION ...) ; x-compiling (DEFINE-CONDITION INVALID-ARRAY-INDEX-ERROR ...) ; x-compiling (DEFINE-CONDITION INVALID-ARRAY-ERROR ...) ; x-compiling (DEFINE-CONDITION INDEX-TOO-LARGE-ERROR ...) ; x-compiling (DEFINE-CONDITION BOUNDING-INDICES-BAD-ERROR ...) ; x-compiling (DEFINE-CONDITION NIL-ARRAY-ACCESSED-ERROR ...) ; x-compiling (DEFINE-CONDITION NAMESTRING-PARSE-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-PACKAGE-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-READER-PACKAGE-ERROR ...) ; x-compiling (DEFINE-CONDITION READER-EOF-ERROR ...) ; x-compiling (DEFINE-CONDITION READER-IMPOSSIBLE-NUMBER-ERROR ...) ; x-compiling (DEFINE-CONDITION STANDARD-READTABLE-MODIFIED-ERROR ...) ; x-compiling (DEFINE-CONDITION STANDARD-PPRINT-DISPATCH-TABLE-MODIFIED-ERROR ...) ; x-compiling (DEFINE-CONDITION TIMEOUT ...) ; x-compiling (DEFINE-CONDITION IO-TIMEOUT ...) ; x-compiling (DEFINE-CONDITION DEADLINE-TIMEOUT ...) ; x-compiling (DEFINE-CONDITION DECLARATION-TYPE-CONFLICT-ERROR ...) ; x-compiling (DEFINE-CONDITION STEP-CONDITION ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFINE-CONDITION STEP-FORM-CONDITION ...) ; x-compiling (DEFINE-CONDITION STEP-RESULT-CONDITION ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFINE-CONDITION STEP-VALUES-CONDITION ...) ; x-compiling (DEFINE-CONDITION STEP-FINISHED-CONDITION ...) ; x-compiling (DEFVAR *MUFFLED-WARNINGS* ...) ; x-compiling (DEFINE-CONDITION REDEFINITION-WARNING ...) ; x-compiling (DEFINE-CONDITION FUNCTION-REDEFINITION-WARNING ...) ; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFUN ...) ; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFMACRO ...) ; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFGENERIC ...) ; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFMETHOD ...) ; x-compiling (DEFUN FUNCTION-FILE-NAMESTRING ...) ; x-compiling (DEFUN INTERESTING-FUNCTION-REDEFINITION-WARNING-P ...) ; x-compiling (DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/condition.lisp ; in: DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P ; (MACRO-FUNCTION SB!KERNEL::NAME) ; ==> ; SB!KERNEL::NAME ; ; note: deleting unreachable code ; x-compiling (DEFUN UNINTERESTING-MACRO-REDEFINITION-P ...) ; x-compiling (DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P ...) ; x-compiling (DEFUN UNINTERESTING-METHOD-REDEFINITION-P ...) ; x-compiling (DEFTYPE UNINTERESTING-REDEFINITION ...) ; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFTRANSFORM ...) ; x-compiling (DEFINE-CONDITION DUBIOUS-ASTERISKS-AROUND-VARIABLE-NAME ...) ; x-compiling (DEFINE-CONDITION ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME ...) ; x-compiling (DEFINE-CONDITION ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME ...) ; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-STYLE-WARNING ...) ; x-compiling (DEFINE-CONDITION LEXICAL-ENVIRONMENT-TOO-COMPLEX ...) ; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-COMMENT ...) ; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-MACRO-CHAR-COMMENT ...) ; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-DISPATCH-MACRO-CHAR-COMMENT ...) ; x-compiling (DEFUN DECODING-ERROR-IN-COMMENT-MACRO ...) ; x-compiling (DEFINE-CONDITION DEPRECATED-EVAL-WHEN-SITUATIONS ...) ; x-compiling (DEFINE-CONDITION PROCLAMATION-MISMATCH ...) ; x-compiling (DEFINE-CONDITION TYPE-PROCLAMATION-MISMATCH ...) ; x-compiling (DEFINE-CONDITION TYPE-PROCLAMATION-MISMATCH-WARNING ...) ; x-compiling (DEFUN TYPE-PROCLAMATION-MISMATCH-WARN ...) ; x-compiling (DEFINE-CONDITION FTYPE-PROCLAMATION-MISMATCH ...) ; x-compiling (DEFINE-CONDITION FTYPE-PROCLAMATION-MISMATCH-WARNING ...) ; x-compiling (DEFUN FTYPE-PROCLAMATION-MISMATCH-WARN ...) ; x-compiling (DEFINE-CONDITION FTYPE-PROCLAMATION-MISMATCH-ERROR ...) ; x-compiling (DEFINE-CONDITION DEPRECATION-CONDITION ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION EARLY-DEPRECATION-WARNING ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION LATE-DEPRECATION-WARNING ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION FINAL-DEPRECATION-WARNING ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION DEPRECATION-ERROR ...) ; x-compiling (DEFINE-CONDITION ABORT-FAILURE ...) ; x-compiling (DEFUN ABORT ...) ; x-compiling (DEFUN MUFFLE-WARNING ...) ; x-compiling (DEFUN TRY-RESTART ...) ; x-compiling (DEFINE-NIL-RETURNING-RESTART CONTINUE ...) ; x-compiling (DEFINE-NIL-RETURNING-RESTART STORE-VALUE ...) ; x-compiling (DEFINE-NIL-RETURNING-RESTART USE-VALUE ...) ; x-compiling (DEFINE-NIL-RETURNING-RESTART PRINT-UNREADABLY ...) ; x-compiling (DEF STEP-CONTINUE ...) ; x-compiling (DEF STEP-NEXT ...) ; x-compiling (DEF STEP-INTO ...) ; x-compiling (DEFINE-CONDITION COMPILER-MACRO-KEYWORD-PROBLEM ...) ; x-compiling (/SHOW0 "condition.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/condition.lisp ; in: !DEFSTRUCT-WITH-ALTERNATE-METACLASS CONDITION ; (SB!KERNEL:!DEFSTRUCT-WITH-ALTERNATE-METACLASS CONDITION :SLOT-NAMES ; (SB!KERNEL::ACTUAL-INITARGS ; SB!KERNEL::ASSIGNED-SLOTS) ; :BOA-CONSTRUCTOR ; SB!KERNEL::%MAKE-CONDITION-OBJECT ; :SUPERCLASS-NAME T ; :METACLASS-NAME ; SB!KERNEL::CONDITION-CLASSOID ; :METACLASS-CONSTRUCTOR ; SB!KERNEL::MAKE-CONDITION-CLASSOID ; ...) ; --> PROGN EVAL-WHEN SB!KERNEL::%COMPILER-SET-UP-LAYOUT ; ==> ; (SB!KERNEL::%COMPILER-SET-UP-LAYOUT ; '# ; '#(#)) ; ; caught STYLE-WARNING: ; undefined function: %COMPILER-SET-UP-LAYOUT ; in: DEFSTRUCT CONDITION-SLOT ; (DEFSTRUCT (SB!KERNEL::CONDITION-SLOT (:COPIER NIL)) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL) ; (SB!KERNEL::INITARGS (SB!INT:MISSING-ARG) :TYPE LIST) ; (SB!KERNEL::READERS (SB!INT:MISSING-ARG) :TYPE LIST) ; (SB!KERNEL::WRITERS (SB!INT:MISSING-ARG) :TYPE LIST) ; (SB!KERNEL::INITFORM-P (SB!INT:MISSING-ARG) :TYPE (MEMBER T NIL)) ; (SB!KERNEL::INITFORM NIL :TYPE T) ; (SB!KERNEL::INITFUNCTION (SB!INT:MISSING-ARG) :TYPE T) ; (SB!KERNEL::ALLOCATION NIL :TYPE (MEMBER :INSTANCE :CLASS NIL)) ; (SB!KERNEL::CELL NIL :TYPE (OR CONS NULL)) ; (DOCUMENTATION NIL :TYPE (OR STRING NULL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (CONDITION-CLASSOID (:INCLUDE CLASSOID) ; (:CONSTRUCTOR MAKE-CONDITION-CLASSOID)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL::CONDITION-CLASSOID (:INCLUDE SB!KERNEL:CLASSOID) ; (:CONSTRUCTOR SB!KERNEL::MAKE-CONDITION-CLASSOID)) ; (SB!KERNEL::SLOTS NIL :TYPE LIST) (SB!KERNEL::CLASS-SLOTS NIL :TYPE LIST) ; (SB!KERNEL::REPORT NIL :TYPE (OR FUNCTION NULL)) ; (SB!KERNEL::DIRECT-DEFAULT-INITARGS NIL :TYPE LIST) ; (SB!KERNEL::CPL NIL :TYPE LIST) (SB!KERNEL::HAIRY-SLOTS NIL :TYPE LIST)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFUN ALLOCATE-CONDITION ; (TYPECASE SB!KERNEL:CLASSOID ; (SB!KERNEL::CONDITION-CLASSOID SB!KERNEL:CLASSOID) ; (CLASS ; (RETURN-FROM SB!KERNEL:ALLOCATE-CONDITION ; (APPLY #'SB!KERNEL:ALLOCATE-CONDITION (CLASS-NAME SB!KERNEL:CLASSOID) ; SB!KERNEL::INITARGS))) ; (SB!KERNEL:CLASSOID ; (ERROR 'SIMPLE-TYPE-ERROR :DATUM SB!KERNEL:CLASSOID :EXPECTED-TYPE ; 'SB!KERNEL::CONDITION-CLASS :FORMAT-CONTROL ; "~S is not a condition class." :FORMAT-ARGUMENTS (LIST TYPE))) ; (T ; (ERROR 'SIMPLE-TYPE-ERROR :DATUM TYPE :EXPECTED-TYPE ; 'SB!KERNEL::CONDITION-CLASS :FORMAT-CONTROL ; "~S does not designate a condition class." :FORMAT-ARGUMENTS ; (LIST TYPE)))) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G49946 'CLASS) ; ; caught STYLE-WARNING: ; undefined type: CLASS ; in: DEFUN %REPORT-READER-ERROR ; (CLASS-NAME (CLASS-OF CONDITION)) ; ; caught STYLE-WARNING: ; undefined function: CLASS-NAME ; in: DEFUN ALLOCATE-CONDITION ; (CLASS-NAME SB!KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; undefined function: CLASS-NAME ; in: DEFUN %REPORT-READER-ERROR ; (CLASS-OF CONDITION) ; ; caught STYLE-WARNING: ; undefined function: CLASS-OF ; in: DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P ; (TYPEP WARNING 'SB!KERNEL:REDEFINITION-WITH-DEFGENERIC) ; --> LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT50337 'SB!KERNEL:REDEFINITION-WITH-DEFGENERIC) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-CELL-TYPEP ; in: DEFUN UNINTERESTING-MACRO-REDEFINITION-P ; (TYPEP WARNING 'SB!KERNEL:REDEFINITION-WITH-DEFMACRO) ; --> LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT50334 'SB!KERNEL:REDEFINITION-WITH-DEFMACRO) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-CELL-TYPEP ; in: DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P ; (TYPEP WARNING 'SB!KERNEL:REDEFINITION-WITH-DEFUN) ; --> LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT50331 'SB!KERNEL:REDEFINITION-WITH-DEFUN) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-CELL-TYPEP ; ; caught STYLE-WARNING: ; 2 more uses of undefined function CLASSOID-CELL-TYPEP ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/condition.lisp ; in: DEFUN %COMPILER-DEFINE-CONDITION ; (MAPCAR #'SB!KERNEL:FIND-CLASSOID SB!KERNEL::DIRECT-SUPERS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN FIND-CONDITION-LAYOUT ; (MAPCAR ; (LAMBDA (SB!KERNEL::X) ; (SB!KERNEL::CONDITION-CLASSOID-CPL ; (SB!KERNEL:FIND-CLASSOID SB!KERNEL::X))) ; SB!KERNEL::PARENT-TYPES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR #'SB!KERNEL:CLASSOID-LAYOUT SB!KERNEL::CPL) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 1 more use of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/condition.lisp ; in: DEFUN FUNCTION-FILE-NAMESTRING ; (SB!C::DEBUG-INFO-SOURCE SB!KERNEL::DEBUG-INFO) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-INFO-SOURCE ; (SB!C::DEBUG-SOURCE-NAMESTRING SB!KERNEL::DEBUG-SOURCE) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-SOURCE-NAMESTRING ; in: DEFUN UNINTERESTING-METHOD-REDEFINITION-P => SB!PCL::DEFINITION-SOURCE OLD-METHOD ; (SB!PCL::DEFINITION-SOURCE SB!KERNEL::OLD-METHOD) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::DEFINITION-SOURCE ; in: DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P => SB!PCL::DEFINITION-SOURCE OLD ; (SB!PCL::DEFINITION-SOURCE SB!KERNEL::OLD) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::DEFINITION-SOURCE ; in: DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P => SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING NEW-LOCATION ; (SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING SB!KERNEL::NEW-LOCATION) ; ; caught STYLE-WARNING: ; undefined function: SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING ; in: DEFUN INTERESTING-FUNCTION-REDEFINITION-WARNING-P => SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING SOURCE-LOCATION ; (SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING SB!KERNEL::SOURCE-LOCATION) ; ; caught STYLE-WARNING: ; undefined function: SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING ; in: DEFUN FUNCTION-FILE-NAMESTRING => ; SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING (SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION ; FUNCTION) ; (SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING ; (SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION FUNCTION)) ; ; caught STYLE-WARNING: ; undefined function: SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/condition.lisp ; in: DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P ; (TYPEP SB!KERNEL::OLD 'GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; undefined type: GENERIC-FUNCTION ; in: DEFUN INTERESTING-FUNCTION-REDEFINITION-WARNING-P ; (TYPEP SB!KERNEL::OLD 'COMPILED-FUNCTION) ; --> LET SB!C::%TYPEP-WRAPPER COMPILED-FUNCTION-P LET AND IF AND THE NOT IF ; ==> ; (SB!EVAL:INTERPRETED-FUNCTION-P #:X1173) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-P ; in: DEFUN FUNCTION-FILE-NAMESTRING => ; SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING (SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION ; FUNCTION) ; (SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION ; in: 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: ; DEF!STRUCT (CONDITION-CLASSOID (:INCLUDE CLASSOID) ; (:CONSTRUCTOR MAKE-CONDITION-CLASSOID)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL::CONDITION-CLASSOID (:INCLUDE SB!KERNEL:CLASSOID) ; (:CONSTRUCTOR SB!KERNEL::MAKE-CONDITION-CLASSOID)) ; (SB!KERNEL::SLOTS NIL :TYPE LIST) (SB!KERNEL::CLASS-SLOTS NIL :TYPE LIST) ; (SB!KERNEL::REPORT NIL :TYPE (OR FUNCTION NULL)) ; (SB!KERNEL::DIRECT-DEFAULT-INITARGS NIL :TYPE LIST) ; (SB!KERNEL::CPL NIL :TYPE LIST) (SB!KERNEL::HAIRY-SLOTS NIL :TYPE LIST)) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET IF ; ==> ; (RANDOM 268435456 ; (IF (BOUNDP 'SB!KERNEL::*TYPE-RANDOM-STATE*) ; SB!KERNEL::*TYPE-RANDOM-STATE* ; (SETF SB!KERNEL::*TYPE-RANDOM-STATE* (MAKE-RANDOM-STATE)))) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; in: DEFINE-CONDITION UNDEFINED-ALIEN-FUNCTION-ERROR ; (SLOT-BOUNDP CONDITION 'SB!KERNEL::NAME) ; ; caught STYLE-WARNING: ; undefined function: SLOT-BOUNDP ; in: DEFINE-CONDITION UNDEFINED-ALIEN-ERROR ; (SLOT-BOUNDP CONDITION 'SB!KERNEL::NAME) ; ; caught STYLE-WARNING: ; undefined function: SLOT-BOUNDP ; ; compilation unit finished ; Undefined types: ; CLASS COMPILER-NOTE GENERIC-FUNCTION ; Undefined functions: ; %COMPILER-SET-UP-LAYOUT %TARGET-DEFSTRUCT CLASS-NAME CLASS-OF CLASSOID-CELL-TYPEP SB!C::DEBUG-INFO-SOURCE SB!C::DEBUG-SOURCE-NAMESTRING SB!PCL::DEFINITION-SOURCE SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING SB!EVAL:INTERPRETED-FUNCTION-P SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION SB!C::MAKE-DEFINITION-SOURCE-LOCATION RANDOM-CHUNK SLOT-BOUNDP ; caught 30 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/condition.lisp-obj-tmp written ; compilation finished in 0:00:02.768 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/primtype.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (/SHOW0 "primtype.lisp 17") ; x-compiling (!DEF-PRIMITIVE-TYPE T ...) ; x-compiling (/SHOW0 "primtype.lisp 20") ; x-compiling (SETF *BACKEND-T-PRIMITIVE-TYPE* ...) ; x-compiling (/SHOW0 "primtype.lisp 24") ; x-compiling (!DEF-PRIMITIVE-TYPE POSITIVE-FIXNUM ...) ; x-compiling (/SHOW0 "primtype.lisp 27") ; x-compiling (/SHOW0 "primtype.lisp 31") ; x-compiling (/SHOW0 "primtype.lisp 35") ; x-compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-63 ...) ; x-compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-64 ...) ; x-compiling (!DEF-PRIMITIVE-TYPE FIXNUM ...) ; x-compiling (!DEF-PRIMITIVE-TYPE SIGNED-BYTE-64 ...) ; x-compiling (DEFVAR *FIXNUM-PRIMITIVE-TYPE* ...) ; x-compiling (/SHOW0 "primtype.lisp 53") ; x-compiling (!DEF-PRIMITIVE-TYPE-ALIAS TAGGED-NUM ...) ; x-compiling (MULTIPLE-VALUE-BIND (UNSIGNED SIGNED) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/primtype.lisp ; in: MULTIPLE-VALUE-BIND (UNSIGNED SIGNED) ; '(SB!VM::UNSIGNED-BYTE-32 SB!VM::UNSIGNED-BYTE-31 SB!VM::POSITIVE-FIXNUM) ; ; note: deleting unreachable code ; x-compiling (/SHOW0 "primtype.lisp 68") ; x-compiling (!DEF-PRIMITIVE-TYPE CHARACTER ...) ; x-compiling (/SHOW0 "primtype.lisp 73") ; x-compiling (!DEF-PRIMITIVE-TYPE FUNCTION ...) ; x-compiling (!DEF-PRIMITIVE-TYPE LIST ...) ; x-compiling (!DEF-PRIMITIVE-TYPE INSTANCE ...) ; x-compiling (/SHOW0 "primtype.lisp 77") ; x-compiling (!DEF-PRIMITIVE-TYPE FUNCALLABLE-INSTANCE ...) ; x-compiling (/SHOW0 "primtype.lisp 81") ; x-compiling (!DEF-PRIMITIVE-TYPE BIGNUM ...) ; x-compiling (!DEF-PRIMITIVE-TYPE RATIO ...) ; x-compiling (!DEF-PRIMITIVE-TYPE COMPLEX ...) ; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE SINGLE-FLOAT") ; x-compiling (!DEF-PRIMITIVE-TYPE SINGLE-FLOAT ...) ; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE DOUBLE-FLOAT") ; x-compiling (!DEF-PRIMITIVE-TYPE DOUBLE-FLOAT ...) ; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT") ; x-compiling (!DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT ...) ; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT") ; x-compiling (!DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT ...) ; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE SIMD-PACK") ; x-compiling (!DEF-PRIMITIVE-TYPE SIMD-PACK-SINGLE ...) ; x-compiling (!DEF-PRIMITIVE-TYPE SIMD-PACK-DOUBLE ...) ; x-compiling (!DEF-PRIMITIVE-TYPE SIMD-PACK-INT ...) ; x-compiling (!DEF-PRIMITIVE-TYPE-ALIAS SIMD-PACK ...) ; x-compiling (/SHOW0 "primtype.lisp 96") ; x-compiling (DEFINE-SIMPLE-ARRAY-PRIMITIVE-TYPES) ; x-compiling (!DEF-PRIMITIVE-TYPE SYSTEM-AREA-POINTER ...) ; x-compiling (!DEF-PRIMITIVE-TYPE WEAK-POINTER ...) ; x-compiling (!DEF-PRIMITIVE-TYPE CATCH-BLOCK ...) ; x-compiling (/SHOW0 "primtype.lisp 147") ; x-compiling (DEFUN PRIMITIVE-TYPE-OF ...) ; x-compiling (/SHOW0 "primtype.lisp 188") ; x-compiling (DEFUN PRIMITIVE-TYPE ...) ; x-compiling (/SHOW0 "primtype.lisp 191") ; x-compiling (DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ...) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/primtype.lisp ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9 ; ...) ; 'SB!VM::SIGNED-BYTE-32 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-31 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-32 ; ; note: deleting unreachable code ; 'SB!VM::SIGNED-BYTE-32 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-31 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-32 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-31 ; ; note: deleting unreachable code ; 'SB!VM::SIGNED-BYTE-32 ; ; note: deleting unreachable code ; x-compiling (/SHOW0 "primtype.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/primtype.lisp ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9 ; ...) ; (SB!INT:DEFUN-CACHED (SB!VM::PRIMITIVE-TYPE-AUX :HASH-FUNCTION ; #'SB!KERNEL:TYPE-HASH-VALUE ; :HASH-BITS 9 :VALUES 2 ; :DEFAULT (VALUES NIL :EMPTY)) ; ((TYPE EQ)) ; (DECLARE (TYPE SB!KERNEL:CTYPE TYPE)) ; (MACROLET ((SB!C:ANY () ; '(VALUES SB!C:*BACKEND-T-PRIMITIVE-TYPE* NIL)) ; (SB!VM::EXACTLY (TYPE) ; (SB!IMPL::BACKQ-LIST* 'VALUES # '#)) ; (SB!VM::PART-OF (TYPE) ; (SB!IMPL::BACKQ-LIST* 'VALUES # '#))) ; (FLET ((SB!VM::MAYBE-NUMERIC-TYPE-UNION # ; #)) ; (ETYPECASE TYPE ; (SB!KERNEL:NUMERIC-TYPE #) ; (SB!KERNEL:ARRAY-TYPE #) ; (SB!KERNEL:UNION-TYPE #) ; (SB!KERNEL:INTERSECTION-TYPE #) ; (SB!KERNEL:MEMBER-TYPE #) ; (SB!KERNEL:NAMED-TYPE #) ; (SB!KERNEL:CHARACTER-SET-TYPE #) ; (SB!KERNEL:SIMD-PACK-TYPE #) ; (SB!KERNEL:BUILT-IN-CLASSOID #) ; (SB!KERNEL:FUN-TYPE #) ; ...)))) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!VM::**PRIMITIVE-TYPE-AUX-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; (SB!KERNEL:TYPE-SPECIFIER SB!VM::ETYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined functions: ; SB!IMPL::%DEFGLOBAL CSUBTYPEP TYPE-SPECIFIER TYPE= ; caught 4 STYLE-WARNING conditions ; printed 9 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/primtype.lisp-obj-tmp written ; compilation finished in 0:00:01.090 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/parse-lambda-list.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (/SHOW0 "parse-lambda-list.lisp 12") ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PARSE-LAMBDA-LIST-LIKE-THING ...) ; x-compiling (DEFUN PARSE-LAMBDA-LIST ...) ; x-compiling (/SHOW0 "parse-lambda-list.lisp end of file") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/parse-lambda-list.lisp-obj-tmp written ; compilation finished in 0:00:00.109 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (/SHOW0 "host-alieneval.lisp 15") ; x-compiling (DEFUN ALIGN-OFFSET ...) ; x-compiling (DEFUN GUESS-ALIGNMENT ...) ; x-compiling (DEFSTRUCT (ALIEN-TYPE-CLASS #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN ALIEN-TYPE-CLASS-OR-LOSE ...) ; x-compiling (DEFUN CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY ...) ; x-compiling (DEFPARAMETER *METHOD-SLOT-ALIST* ...) ; x-compiling (DEFUN METHOD-SLOT ...) ; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE-CLASS ...) ; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE-METHOD ...) ; x-compiling (DEF!MACRO INVOKE-ALIEN-TYPE-METHOD ...) ; x-compiling (DEFUN AUXILIARY-TYPE-DEFINITIONS ...) ; x-compiling (DEF!MACRO WITH-AUXILIARY-ALIEN-TYPES ...) ; x-compiling (DEFUN PARSE-ALIEN-TYPE ...) ; x-compiling (DEFUN AUXILIARY-ALIEN-TYPE ...) ; x-compiling (DEFUN (SETF AUXILIARY-ALIEN-TYPE) ...) ; x-compiling (DEFUN VERIFY-LOCAL-AUXILIARIES-OKAY ...) ; x-compiling (DEFUN UNPARSE-ALIEN-TYPE ...) ; x-compiling (DEFUN %UNPARSE-ALIEN-TYPE ...) ; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE-TRANSLATOR ...) ; x-compiling (DEFUN %DEFINE-ALIEN-TYPE-TRANSLATOR ...) ; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE ...) ; x-compiling (DEFUN %DEF-AUXILIARY-ALIEN-TYPES ...) ; x-compiling (DEFUN %DEFINE-ALIEN-TYPE ...) ; x-compiling (CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY (QUOTE ROOT) ...) ; x-compiling (DEF!STRUCT (ALIEN-TYPE # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (SYSTEM-AREA-POINTER)) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!SYS:SYSTEM-AREA-POINTER ; NIL ; (SB!ALIEN::MAKE-ALIEN-SYSTEM-AREA-POINTER-TYPE :BITS SB!VM:N-WORD-BITS)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-SYSTEM-AREA-POINTER-TYPE-TRANSLATOR ; (#:WHOLE744 #:ENV745) ; (DECLARE (IGNORABLE #:ENV745)) ; (DECLARE (IGNORE #:ENV745)) ; (BLOCK SB!SYS:SYSTEM-AREA-POINTER ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* () ; (BLOCK SB!SYS:SYSTEM-AREA-POINTER #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-SYSTEM-AREA-POINTER-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ALIEN-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :EXTRACT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (ALIEN-VALUE :INCLUDE ...)) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :DEPORT-GEN) ...) ; x-compiling (DEF!STRUCT (HEAP-ALIEN-INFO #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN HEAP-ALIEN-INFO-SAP-FORM ...) ; x-compiling (DEFUN HEAP-ALIEN-INFO-SAP ...) ; x-compiling (DEFUN ALIEN-TYPE-= ...) ; x-compiling (DEFUN ALIEN-SUBTYPE-P ...) ; x-compiling (DEFUN COMPUTE-NATURALIZE-LAMBDA ...) ; x-compiling (DEFUN COMPUTE-DEPORT-LAMBDA ...) ; x-compiling (DEFUN COMPUTE-DEPORT-ALLOC-LAMBDA ...) ; x-compiling (DEFUN COMPUTE-EXTRACT-LAMBDA ...) ; x-compiling (DEF!MACRO MAYBE-WITH-PINNED-OBJECTS ...) ; x-compiling (DEFUN COMPUTE-DEPOSIT-LAMBDA ...) ; x-compiling (DEFUN COMPUTE-LISP-REP-TYPE ...) ; x-compiling (DEFUN COMPUTE-ALIEN-REP-TYPE ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :TYPE=) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :SUBTYPEP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ALIEN-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-ALLOC-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-PIN-P) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :EXTRACT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPOSIT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ARG-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :RESULT-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (INTEGER) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:SIGNED ; (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS)) ; (SB!ALIEN::MAKE-ALIEN-INTEGER-TYPE :BITS SB!ALIEN::BITS)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-SIGNED-TYPE-TRANSLATOR (#:WHOLE1318 #:ENV1319) ; (DECLARE (IGNORABLE #:ENV1319)) ; (DECLARE (IGNORE #:ENV1319)) ; (BLOCK SB!ALIEN:SIGNED ; (LET* ((#:SUPPLIEDP-51812 #)) ; (LET (#) ; (UNLESS # #)) ; (LET* (#) ; (BLOCK SB!ALIEN:SIGNED #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-SIGNED-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ; (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS)) ; (SB!ALIEN::MAKE-ALIEN-INTEGER-TYPE :BITS SB!ALIEN::BITS)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-INTEGER-TYPE-TRANSLATOR (#:WHOLE1323 #:ENV1324) ; (DECLARE (IGNORABLE #:ENV1324)) ; (DECLARE (IGNORE #:ENV1324)) ; (BLOCK INTEGER ; (LET* ((#:SUPPLIEDP-51815 #)) ; (LET (#) ; (UNLESS # #)) ; (LET* (#) ; (BLOCK INTEGER #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-INTEGER-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:UNSIGNED ; (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS)) ; (SB!ALIEN::MAKE-ALIEN-INTEGER-TYPE :BITS SB!ALIEN::BITS :SIGNED NIL)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-UNSIGNED-TYPE-TRANSLATOR (#:WHOLE1328 #:ENV1329) ; (DECLARE (IGNORABLE #:ENV1329)) ; (DECLARE (IGNORE #:ENV1329)) ; (BLOCK SB!ALIEN:UNSIGNED ; (LET* ((#:SUPPLIEDP-51818 #)) ; (LET (#) ; (UNLESS # #)) ; (LET* (#) ; (BLOCK SB!ALIEN:UNSIGNED #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-UNSIGNED-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :TYPE=) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ALIEN-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :EXTRACT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (BOOLEAN :INCLUDE ...)) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN ; (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS)) ; (SB!ALIEN::MAKE-ALIEN-BOOLEAN-TYPE :BITS SB!ALIEN::BITS :SIGNED NIL)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-BOOLEAN-TYPE-TRANSLATOR (#:WHOLE1490 #:ENV1491) ; (DECLARE (IGNORABLE #:ENV1491)) ; (DECLARE (IGNORE #:ENV1491)) ; (BLOCK BOOLEAN ; (LET* ((#:SUPPLIEDP-51953 #)) ; (LET (#) ; (UNLESS # #)) ; (LET* (#) ; (BLOCK BOOLEAN #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-BOOLEAN-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (ENUM :INCLUDE ...) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:ENUM ; (&WHOLE TYPE SB!ALIEN::NAME &REST SB!ALIEN::MAPPINGS &ENVIRONMENT ; SB!ALIEN::ENV) ; (COND ; (SB!ALIEN::MAPPINGS ; (LET (#) ; (WHEN SB!ALIEN::NAME #) ; SB!ALIEN::RESULT)) ; (SB!ALIEN::NAME ; (MULTIPLE-VALUE-BIND (SB!ALIEN::RESULT SB!ALIEN::FOUND) ; (SB!ALIEN::AUXILIARY-ALIEN-TYPE :ENUM SB!ALIEN::NAME SB!ALIEN::ENV) ; (UNLESS SB!ALIEN::FOUND #) ; SB!ALIEN::RESULT)) ; (T (ERROR "empty enum type: ~S" TYPE)))) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-ENUM-TYPE-TRANSLATOR (#:WHOLE1677 #:ENV1678) ; (DECLARE (IGNORABLE #:ENV1678)) ; (BLOCK SB!ALIEN:ENUM ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # # #) ; (BLOCK SB!ALIEN:ENUM #))))) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-FROM) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-KIND) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-OFFSET) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-SIGNED) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-TO) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-FROM ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-KIND ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-OFFSET ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-SIGNED ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-TO ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-ENUM-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFUN PARSE-ENUM ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :TYPE=) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (FLOAT) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :ALIEN-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (SINGLE-FLOAT :INCLUDE ...)) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT ; NIL ; (SB!ALIEN::MAKE-ALIEN-SINGLE-FLOAT-TYPE :TYPE 'SINGLE-FLOAT)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-SINGLE-FLOAT-TYPE-TRANSLATOR (#:WHOLE2019 #:ENV2020) ; (DECLARE (IGNORABLE #:ENV2020)) ; (DECLARE (IGNORE #:ENV2020)) ; (BLOCK SINGLE-FLOAT ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* () ; (BLOCK SINGLE-FLOAT #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-SINGLE-FLOAT-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :EXTRACT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (DOUBLE-FLOAT :INCLUDE ...)) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT ; NIL ; (SB!ALIEN::MAKE-ALIEN-DOUBLE-FLOAT-TYPE :TYPE 'DOUBLE-FLOAT)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-DOUBLE-FLOAT-TYPE-TRANSLATOR (#:WHOLE2109 #:ENV2110) ; (DECLARE (IGNORABLE #:ENV2110)) ; (DECLARE (IGNORE #:ENV2110)) ; (BLOCK DOUBLE-FLOAT ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* () ; (BLOCK DOUBLE-FLOAT #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-DOUBLE-FLOAT-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :EXTRACT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (POINTER :INCLUDE ...) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR * ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR * ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR * ; (SB!ALIEN::TO &ENVIRONMENT SB!ALIEN::ENV) ; (SB!ALIEN-INTERNALS:MAKE-ALIEN-POINTER-TYPE :TO ; (IF (EQ SB!ALIEN::TO T) ; NIL ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE ; SB!ALIEN::TO ; SB!ALIEN::ENV)))) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-*-TYPE-TRANSLATOR (#:WHOLE2201 #:ENV2202) ; (DECLARE (IGNORABLE #:ENV2202)) ; (BLOCK * ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# #) ; (BLOCK * #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-*-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :TYPE=) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :SUBTYPEP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (MEM-BLOCK :INCLUDE ...)) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :EXTRACT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :DEPOSIT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (ARRAY :INCLUDE ...) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY ; (SB!ALIEN::ELE-TYPE &REST SB!ALIEN::DIMS &ENVIRONMENT SB!ALIEN::ENV) ; (WHEN SB!ALIEN::DIMS ; (UNLESS (TYPEP (FIRST SB!ALIEN::DIMS) '(OR SB!INT:INDEX NULL)) ; (ERROR "The first dimension is not a non-negative fixnum or NIL: ~S" ; (FIRST SB!ALIEN::DIMS))) ; (LET ((SB!ALIEN::LOSER #)) ; (WHEN SB!ALIEN::LOSER ; (ERROR "A dimension is not a non-negative fixnum: ~S" ; SB!ALIEN::LOSER)))) ; (LET ((SB!ALIEN::PARSED-ELE-TYPE ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE SB!ALIEN::ELE-TYPE ; SB!ALIEN::ENV))) ; (SB!ALIEN::MAKE-ALIEN-ARRAY-TYPE :ELEMENT-TYPE SB!ALIEN::PARSED-ELE-TYPE ; :DIMENSIONS SB!ALIEN::DIMS :ALIGNMENT ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-ALIGNMENT ; SB!ALIEN::PARSED-ELE-TYPE) ; :BITS ; (IF (AND # #) ; (* # #))))) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-ARRAY-TYPE-TRANSLATOR (#:WHOLE2439 #:ENV2440) ; (DECLARE (IGNORABLE #:ENV2440)) ; (BLOCK ARRAY ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK ARRAY # #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-ARRAY-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :TYPE=) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :SUBTYPEP) ...) ; x-compiling (DEF!STRUCT (ALIEN-RECORD-FIELD #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (RECORD :INCLUDE ...) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR STRUCT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR STRUCT ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:STRUCT ; (SB!ALIEN::NAME &REST SB!ALIEN::FIELDS &ENVIRONMENT SB!ALIEN::ENV) ; (SB!ALIEN::PARSE-ALIEN-RECORD-TYPE :STRUCT SB!ALIEN::NAME SB!ALIEN::FIELDS ; SB!ALIEN::ENV)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-STRUCT-TYPE-TRANSLATOR (#:WHOLE2685 #:ENV2686) ; (DECLARE (IGNORABLE #:ENV2686)) ; (BLOCK SB!ALIEN:STRUCT ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!ALIEN:STRUCT #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-STRUCT-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR UNION ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR UNION ; (SB!ALIEN::NAME &REST SB!ALIEN::FIELDS &ENVIRONMENT SB!ALIEN::ENV) ; (SB!ALIEN::PARSE-ALIEN-RECORD-TYPE :UNION SB!ALIEN::NAME SB!ALIEN::FIELDS ; SB!ALIEN::ENV)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-UNION-TYPE-TRANSLATOR (#:WHOLE2690 #:ENV2691) ; (DECLARE (IGNORABLE #:ENV2691)) ; (BLOCK UNION ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK UNION #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-UNION-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFUN PARSE-ALIEN-RECORD-TYPE ...) ; x-compiling (DEFUN PARSE-ALIEN-RECORD-FIELDS ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :UNPARSE) ...) ; x-compiling (DEFUN UNPARSE-ALIEN-RECORD-KIND ...) ; x-compiling (DEFUN UNPARSE-ALIEN-RECORD-FIELD ...) ; x-compiling (DEFUN RECORD-FIELDS-MATCH-P ...) ; x-compiling (DEFVAR *ALIEN-TYPE-MATCHES* ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :TYPE=) ...) ; x-compiling (DEF!TYPE CALLING-CONVENTION ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (FUN :INCLUDE ...) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION ; (SB!ALIEN::RESULT-TYPE &REST SB!ALIEN::ARG-TYPES &ENVIRONMENT ; SB!ALIEN::ENV) ; (MULTIPLE-VALUE-BIND ; (SB!ALIEN::BARE-RESULT-TYPE SB!ALIEN::CALLING-CONVENTION) ; (TYPECASE SB!ALIEN::RESULT-TYPE ; ((CONS SB!ALIEN::CALLING-CONVENTION *) (VALUES # #)) ; (T SB!ALIEN::RESULT-TYPE)) ; (SB!ALIEN-INTERNALS:MAKE-ALIEN-FUN-TYPE :CONVENTION ; SB!ALIEN::CALLING-CONVENTION ; :RESULT-TYPE ; (LET (#) ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE ; SB!ALIEN::BARE-RESULT-TYPE ; SB!ALIEN::ENV)) ; :ARG-TYPES ; (MAPCAR (LAMBDA # #) ; SB!ALIEN::ARG-TYPES)))) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-FUNCTION-TYPE-TRANSLATOR (#:WHOLE2977 #:ENV2978) ; (DECLARE (IGNORABLE #:ENV2978)) ; (BLOCK FUNCTION ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK FUNCTION #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-FUNCTION-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :TYPE=) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (VALUES) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR VALUES ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR VALUES ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR VALUES ; (&REST VALUES &ENVIRONMENT SB!ALIEN::ENV) ; (UNLESS SB!ALIEN-INTERNALS:*VALUES-TYPE-OKAY* ; (ERROR "cannot use values types here")) ; (LET ((SB!ALIEN-INTERNALS:*VALUES-TYPE-OKAY* NIL)) ; (SB!ALIEN::MAKE-ALIEN-VALUES-TYPE :VALUES (MAPCAR (LAMBDA # #) VALUES)))) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-VALUES-TYPE-TRANSLATOR (#:WHOLE3109 #:ENV3110) ; (DECLARE (IGNORABLE #:ENV3110)) ; (BLOCK VALUES ; (LET* () ; (LET* (# #) ; (BLOCK VALUES # #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-VALUES-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :TYPE=) ...) ; x-compiling (DEF!STRUCT (LOCAL-ALIEN-INFO # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFMACRO-MUNDANELY ADDR ...) ; x-compiling (/SHOW0 "host-alieneval.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-CLASS (SYSTEM-AREA-POINTER) ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-CLASS (SB!SYS:SYSTEM-AREA-POINTER)) ; --> PROGN SB!INT:DEF!STRUCT PROGN DEFSTRUCT PROGN ; --> SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (ALIEN-TYPE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:CONSTRUCTOR MAKE-ALIEN-TYPE ; (&KEY CLASS BITS ALIGNMENT &AUX ...))) ; (SB!INT:DEF!STRUCT ; (SB!ALIEN-INTERNALS:ALIEN-TYPE ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:CONSTRUCTOR SB!ALIEN::MAKE-ALIEN-TYPE ; (&KEY CLASS SB!ALIEN::BITS SB!ALIEN::ALIGNMENT &AUX ; (SB!ALIEN::ALIGNMENT #)))) ; (CLASS 'SB!ALIEN::ROOT :TYPE SYMBOL) ; (SB!ALIEN::BITS NIL :TYPE (OR NULL UNSIGNED-BYTE)) ; (SB!ALIEN::ALIGNMENT NIL :TYPE (OR NULL UNSIGNED-BYTE))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT ALIEN-TYPE-CLASS ; (DEFSTRUCT (SB!ALIEN::ALIEN-TYPE-CLASS (:COPIER NIL)) ; (SB!ALIEN::NAME NIL :TYPE SYMBOL) ; (SB!ALIEN::DEFSTRUCT-NAME NIL :TYPE SYMBOL) ; (SB!ALIEN::INCLUDE NIL :TYPE (OR NULL SB!ALIEN::ALIEN-TYPE-CLASS)) ; (SB!ALIEN::UNPARSE NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::TYPE= NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::LISP-REP NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::ALIEN-REP NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::EXTRACT-GEN NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::DEPOSIT-GEN NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::NATURALIZE-GEN NIL :TYPE (OR NULL FUNCTION)) ; ...) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 16 more uses of undefined function SB!KERNEL::%TARGET-DEFSTRUCT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ; (SETF (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::RESULT)) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-FROM) #:NEW1681 #:OLD1682) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-FROM) ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-KIND) #:NEW1685 #:OLD1686) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-KIND) ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-OFFSET) #:NEW1687 #:OLD1688) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-OFFSET) ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-SIGNED) #:NEW1689 #:OLD1690) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-SIGNED) ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-TO) #:NEW1683 #:OLD1684) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-TO) ; (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-FROM ; (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-KIND ; (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-OFFSET ; (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-SIGNED ; (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-TO ; in: DEFINE-ALIEN-TYPE-METHOD (ENUM :UNPARSE) ; (MAPCAR ; (LAMBDA (SB!ALIEN::MAPPING) ; (LET ((SB!ALIEN::SYM #) (SB!ALIEN::VALUE #)) ; (PROG1 ; (IF # ; SB!ALIEN::SYM ; #) ; (SETF #)))) ; (SB!ALIEN::ALIEN-ENUM-TYPE-FROM TYPE)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN PARSE-ENUM ; (MAPCAR (LAMBDA (SB!ALIEN::X) (CONS (CDR SB!ALIEN::X) (CAR SB!ALIEN::X))) ; SB!ALIEN::FROM-ALIST) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEF!MACRO DEFINE-ALIEN-TYPE-CLASS ; (MAPCAR ; (LAMBDA (SB!ALIEN::X) ; (IF (ATOM SB!ALIEN::X) ; SB!ALIEN::X ; (CAR SB!ALIEN::X))) ; SB!ALIEN::SLOTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 9 more uses of undefined type COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT (SETF ALIEN-TYPE-FROM) (SETF ALIEN-TYPE-KIND) (SETF ALIEN-TYPE-OFFSET) (SETF ALIEN-TYPE-SIGNED) (SETF ALIEN-TYPE-TO) ALIEN-TYPE-FROM ALIEN-TYPE-KIND ALIEN-TYPE-OFFSET ALIEN-TYPE-SIGNED ALIEN-TYPE-TO ; caught 42 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/host-alieneval.lisp-obj-tmp written ; compilation finished in 0:00:02.104 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-c-call.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (/SHOW0 "host-c-call.lisp 12") ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE ...) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-c-call.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:C-STRING ; (&KEY (SB!ALIEN::EXTERNAL-FORMAT :DEFAULT) ; (SB!ALIEN::ELEMENT-TYPE 'CHARACTER) (SB!ALIEN::NOT-NULL NIL)) ; (SB!ALIEN::MAKE-ALIEN-C-STRING-TYPE :TO ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE ; 'CHAR (SB!KERNEL:MAKE-NULL-LEXENV)) ; :ELEMENT-TYPE SB!ALIEN::ELEMENT-TYPE ; :EXTERNAL-FORMAT ; SB!ALIEN::EXTERNAL-FORMAT :NOT-NULL ; SB!ALIEN::NOT-NULL)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-C-STRING-TYPE-TRANSLATOR (#:WHOLE163 #:ENV164) ; (DECLARE (IGNORABLE #:ENV164)) ; (DECLARE (IGNORE #:ENV164)) ; (BLOCK SB!ALIEN:C-STRING ; (LET* ((#:KEYWORDS-53510 #) ; (#:SUPPLIEDP-53511 #) ; (#:SUPPLIEDP-53512 #) ; (#:SUPPLIEDP-53513 #)) ; (DECLARE (IGNORABLE #:KEYWORDS-53510)) ; (MULTIPLE-VALUE-BIND (#:PROBLEM165 #:INFO166) ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-53510 '# 'NIL NIL) ; (WHEN #:PROBLEM165 #)) ; (LET* (# # #) ; (BLOCK SB!ALIEN:C-STRING #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-C-STRING-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFUN C-STRING-EXTERNAL-FORMAT ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-PIN-P) ...) ; x-compiling (DEFUN C-STRING-NEEDS-CONVERSION-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NULL-ERROR ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-c-call.lisp ; in: DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ; 'SB!ALIEN::%NATURALIZE-C-STRING ; ; note: deleting unreachable code ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-ALLOC-GEN) ...) ; x-compiling (/SHOW0 "host-c-call.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-c-call.lisp ; in: ; DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE POINTER :INCLUDE-ARGS (TO)) ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-CLASS ; (SB!ALIEN:C-STRING :INCLUDE SB!ALIEN::POINTER :INCLUDE-ARGS (SB!ALIEN::TO)) ; (SB!ALIEN::EXTERNAL-FORMAT :DEFAULT :TYPE KEYWORD) ; (SB!ALIEN::ELEMENT-TYPE 'CHARACTER :TYPE (MEMBER CHARACTER BASE-CHAR)) ; (SB!ALIEN::NOT-NULL NIL :TYPE BOOLEAN)) ; --> PROGN SB!INT:DEF!STRUCT PROGN DEFSTRUCT PROGN ; --> SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:MAKE-NULL-LEXENV ; ; compilation unit finished ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT SB!KERNEL:MAKE-NULL-LEXENV ; caught 3 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/host-c-call.lisp-obj-tmp written ; compilation finished in 0:00:01.077 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/compiler-deftype.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (/SHOW0 "compiler-deftype.lisp 14") ; x-compiling (DEFUN %COMPILER-DEFTYPE ...) ; x-compiling (/SHOW0 "compiler-deftype.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/compiler-deftype.lisp ; in: DEFUN %COMPILER-DEFTYPE ; (SB!C:WITH-SOURCE-LOCATION (SB!IMPL::SOURCE-LOCATION) ; (SETF (SB!INT:INFO :TYPE :SOURCE-LOCATION 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!KERNEL:UNDECLARE-STRUCTURE (SB!KERNEL:FIND-CLASSOID SB!IMPL::NAME) T) ; ; caught STYLE-WARNING: ; undefined function: UNDECLARE-STRUCTURE ; ; compilation unit finished ; Undefined functions: ; SB!C::MAKE-DEFINITION-SOURCE-LOCATION UNDECLARE-STRUCTURE ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/compiler-deftype.lisp-obj-tmp written ; compilation finished in 0:00:00.045 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "late-type.lisp 19") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFINE-CONDITION PARSE-UNKNOWN-TYPE ...) ; x-compiling (DEFUN DELEGATE-COMPLEX-SUBTYPEP-ARG2 ...) ; x-compiling (DEFUN DELEGATE-COMPLEX-INTERSECTION2 ...) ; x-compiling (DEFUN CONTAINS-UNKNOWN-TYPE-P ...) ; x-compiling (DEFUN !HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1 ...) ; x-compiling (DEFMACRO !DEFINE-SUPERCLASSES ...) ; x-compiling (DEFSTRUCT (KEY-INFO # ...) ...) ; x-compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-SUBTYPEP ...) ...) ; x-compiling (!DEFINE-TYPE-METHOD (VALUES :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (VALUES :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (VALUES :UNPARSE) ...) ; x-compiling (DEFUN TYPE=-LIST ...) ; x-compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-CLASS FUNCTION) ; x-compiling (DEFVAR *UNPARSE-FUN-TYPE-SIMPLIFY*) ; x-compiling (DEFVAR *UNPARSE-ALLOW-NEGATION*) ; x-compiling (!COLD-INIT-FORMS (SETQ *UNPARSE-FUN-TYPE-SIMPLIFY* ...)) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-SUPERCLASSES FUNCTION ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-INTERSECTION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-INTERSECTION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-CLASS CONSTANT ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONSTANT :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONSTANT :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONSTANT :SIMPLE-=) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR CONSTANT-ARG ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN UNPARSE-ARGS-TYPES ...) ; x-compiling (!DEF-TYPE-TRANSLATOR FUNCTION ...) ; x-compiling (!DEF-TYPE-TRANSLATOR VALUES ...) ; x-compiling (DEFUN VALUES-TYPE-MIN-VALUE-COUNT ...) ; x-compiling (DEFUN VALUES-TYPE-MAX-VALUE-COUNT ...) ; x-compiling (DEFUN VALUES-TYPE-MAY-BE-SINGLE-VALUE-P ...) ; x-compiling (DEFUN TYPE-SINGLE-VALUE-P ...) ; x-compiling (DECLAIM (FREEZE-TYPE VALUES-TYPE)) ; x-compiling (DEFUN SINGLE-VALUE-TYPE ...) ; x-compiling (DEFUN FUN-TYPE-NARGS ...) ; x-compiling (DEFUN VALUES-TYPES ...) ; x-compiling (DEFUN VALUES-TYPE-TYPES ...) ; x-compiling (DEFUN VALUES-TYPE-OUT ...) ; x-compiling (DEFUN VALUES-TYPE-IN ...) ; x-compiling (DEFUN FIXED-VALUES-OP ...) ; x-compiling (DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS ...) ...) ; x-compiling (DEFUN COERCE-TO-VALUES ...) ; x-compiling (DEFUN MAKE-SHORT-VALUES-TYPE ...) ; x-compiling (DEFUN MAKE-SINGLE-VALUE-TYPE ...) ; x-compiling (DEFUN ARGS-TYPE-OP ...) ; x-compiling (DEFUN VALUES-TYPE-OP ...) ; x-compiling (DEFUN COMPARE-KEY-ARGS ...) ; x-compiling (DEFUN TYPE=-ARGS ...) ; x-compiling (DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN VALUES-TYPES-EQUAL-OR-INTERSECT ...) ; x-compiling (DEFUN-CACHED (VALUES-SUBTYPEP :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN-CACHED (CSUBTYPEP :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN SB-XC:SUBTYPEP ...) ; x-compiling (DEFUN-CACHED (TYPE= :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN TYPE/= ...) ; x-compiling (DEFUN %TYPE-UNION2 ...) ; x-compiling (DEFUN-CACHED (TYPE-UNION2 :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN %TYPE-INTERSECTION2 ...) ; x-compiling (DEFUN-CACHED (TYPE-INTERSECTION2 :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN TYPE-APPROX-INTERSECTION2 ...) ; x-compiling (DEFUN TYPES-EQUAL-OR-INTERSECT ...) ; x-compiling (DEFUN TYPE-SPECIFIER ...) ; x-compiling (DEFUN-CACHED (TYPE-NEGATION :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN-CACHED (TYPE-SINGLETON-P :HASH-FUNCTION ...) ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PRECOMPUTE-TYPES ...) ; x-compiling (DEF SIMPLIFY-INTERSECTIONS ...) ; x-compiling (DEF SIMPLIFY-UNIONS ...) ; x-compiling (DEFUN MAYBE-DISTRIBUTE-ONE-UNION ...) ; x-compiling (DEFUN TYPE-INTERSECTION ...) ; x-compiling (DEFUN-CACHED (%TYPE-INTERSECTION :HASH-BITS ...) ...) ; x-compiling (DEFUN TYPE-UNION ...) ; x-compiling (DEFUN-CACHED (%TYPE-UNION :HASH-BITS ...) ...) ; x-compiling (!DEFINE-TYPE-CLASS NAMED) ; x-compiling (!COLD-INIT-FORMS (MACROLET # ...) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-=) ...) ; x-compiling (DEFUN CONS-TYPE-MIGHT-BE-EMPTY-TYPE ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG1) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-INTERSECTION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG1) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-INTERSECTION2 ...) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-=) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR SATISFIES ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG1) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-INTERSECTION2) ...) ; x-compiling (DEFUN MAYBE-COMPLEX-ARRAY-REFINEMENT ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-INTERSECTION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-=) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR NOT ...) ; x-compiling (!DEFINE-TYPE-CLASS NUMBER) ; x-compiling (DECLAIM (INLINE NUMERIC-TYPE-EQUAL)) ; x-compiling (DEFUN NUMERIC-TYPE-EQUAL ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SINGLETON-P) ...) ; x-compiling (DEFMACRO NUMERIC-BOUND-TEST ...) ; x-compiling (DEFMACRO NUMERIC-BOUND-TEST* ...) ; x-compiling (DEFMACRO NUMERIC-BOUND-MAX ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-SUPERCLASSES NUMBER ...) ; x-compiling (DEFUN NUMERIC-TYPES-ADJACENT ...) ; x-compiling (DEFVAR *APPROXIMATE-NUMERIC-UNIONS* ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-UNION2) ...) ; x-compiling (!COLD-INIT-FORMS (SETF # ...) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR COMPLEX ...) ; x-compiling (DECLAIM (INLINE CANONICALIZED-BOUND)) ; x-compiling (DEFUN CANONICALIZED-BOUND ...) ; x-compiling (!DEF-TYPE-TRANSLATOR INTEGER ...) ; x-compiling (DEFMACRO !DEF-BOUNDED-TYPE ...) ; x-compiling (!DEF-BOUNDED-TYPE RATIONAL ...) ; x-compiling (DEFUN COERCE-BOUND ...) ; x-compiling (DEFUN INNER-COERCE-REAL-BOUND ...) ; x-compiling (DEFUN INNER-COERCE-FLOAT-BOUND ...) ; x-compiling (DEFUN COERCED-REAL-BOUND ...) ; x-compiling (DEFUN COERCED-FLOAT-BOUND ...) ; x-compiling (!DEF-TYPE-TRANSLATOR REAL ...) ; x-compiling (!DEF-TYPE-TRANSLATOR FLOAT ...) ; x-compiling (DEFMACRO !DEFINE-FLOAT-FORMAT ...) ; x-compiling (!DEFINE-FLOAT-FORMAT SHORT-FLOAT) ; x-compiling (!DEFINE-FLOAT-FORMAT SINGLE-FLOAT) ; x-compiling (!DEFINE-FLOAT-FORMAT DOUBLE-FLOAT) ; x-compiling (!DEFINE-FLOAT-FORMAT LONG-FLOAT) ; x-compiling (DEFUN NUMERIC-TYPES-INTERSECT ...) ; x-compiling (DEFUN ROUND-NUMERIC-BOUND ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-INTERSECTION2) ...) ; x-compiling (DEFUN FLOAT-FORMAT-MAX ...) ; x-compiling (DEFUN NUMERIC-CONTAGION ...) ; x-compiling (!DEFINE-TYPE-CLASS ARRAY) ; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-SUPERCLASSES ARRAY ...) ; x-compiling (DEFUN ARRAY-TYPES-INTERSECT ...) ; x-compiling (DEFUN UNITE-ARRAY-TYPES-COMPLEXP ...) ; x-compiling (DEFUN UNITE-ARRAY-TYPES-DIMENSIONS ...) ; x-compiling (DEFUN UNITE-ARRAY-TYPES-ELEMENT-TYPES ...) ; x-compiling (DEFUN UNITE-ARRAY-TYPES-SUPERTYPES-COMPATIBLE-P ...) ; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-INTERSECTION2) ...) ; x-compiling (DEFUN CANONICAL-ARRAY-DIMENSIONS ...) ; x-compiling (!DEFINE-TYPE-CLASS MEMBER) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SINGLETON-P) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-INTERSECTION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-=) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR MEMBER ...) ; x-compiling (!DEFINE-TYPE-CLASS INTERSECTION) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :UNPARSE) ...) ; x-compiling (DEFUN TYPE=-SET ...) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-=) ...) ; x-compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG1 ...) ; x-compiling (DEFUN %INTERSECTION-SIMPLE-SUBTYPEP ...) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG1) ...) ; x-compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG2 ...) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-UNION2 ...) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR AND ...) ; x-compiling (!DEFINE-TYPE-CLASS UNION) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-=) ...) ; x-compiling (DEFUN UNION-SIMPLE-SUBTYPEP ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-SUBTYPEP) ...) ; x-compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG1 ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG1) ...) ; x-compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG2 ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-INTERSECTION2 ...) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR OR ...) ; x-compiling (!DEFINE-TYPE-CLASS CONS) ; x-compiling (!DEF-TYPE-TRANSLATOR CONS ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONS :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONS :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-INTERSECTION2) ...) ; x-compiling (!DEFINE-SUPERCLASSES CONS ...) ; x-compiling (!DEFINE-TYPE-CLASS CHARACTER-SET) ; x-compiling (!DEF-TYPE-TRANSLATOR CHARACTER-SET ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SINGLETON-P) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-INTERSECTION2) ...) ; x-compiling (DEFUN INTERSECT-TYPE-PAIRS ...) ; x-compiling (DEFUN TYPE-DIFFERENCE ...) ; x-compiling (!DEF-TYPE-TRANSLATOR ARRAY ...) ; x-compiling (!DEF-TYPE-TRANSLATOR SIMPLE-ARRAY ...) ; x-compiling (!DEFINE-TYPE-CLASS SIMD-PACK) ; x-compiling (!DEF-TYPE-TRANSLATOR SIMD-PACK ...) ; x-compiling (!DEFINE-TYPE-METHOD (SIMD-PACK :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (SIMD-PACK :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (SIMD-PACK :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (SIMD-PACK :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (SIMD-PACK :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (SIMD-PACK :SIMPLE-INTERSECTION2) ...) ; x-compiling (!DEFINE-SUPERCLASSES SIMD-PACK ...) ; x-compiling (DEFUN DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P ...) ; x-compiling (DEFUN CTYPE-OF-NUMBER ...) ; x-compiling (DECLAIM (INLINE GENERIC-ABSTRACT-TYPE-FUNCTION)) ; x-compiling (DEFUN GENERIC-ABSTRACT-TYPE-FUNCTION ...) ; x-compiling (DECLAIM (NOTINLINE GENERIC-ABSTRACT-TYPE-FUNCTION)) ; x-compiling (DEFUN LIST-ABSTRACT-TYPE-FUNCTION ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-TYPE-COLD-INIT) ; x-compiling (/SHOW0 "late-type.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-type.lisp ; in: ; DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION #'TYPE-CACHE-HASH ; :HASH-BITS 8 ...) ; (SB!INT:DEFUN-CACHED (SB!KERNEL:VALUES-TYPE-INTERSECTION :HASH-FUNCTION ; #'SB!KERNEL::TYPE-CACHE-HASH ; :HASH-BITS 8 ; :DEFAULT ; (VALUES NIL) ; :INIT-WRAPPER ; SB!INT:!COLD-INIT-FORMS) ; ((SB!KERNEL::TYPE1 EQ) (SB!KERNEL::TYPE2 EQ)) ; (DECLARE (TYPE SB!KERNEL:CTYPE SB!KERNEL::TYPE1 SB!KERNEL::TYPE2)) ; (COND ; ((EQ SB!KERNEL::TYPE1 SB!KERNEL:*WILD-TYPE*) ; (SB!KERNEL:COERCE-TO-VALUES SB!KERNEL::TYPE2)) ; ((OR (EQ SB!KERNEL::TYPE2 SB!KERNEL:*WILD-TYPE*) ; (EQ SB!KERNEL::TYPE2 SB!KERNEL:*UNIVERSAL-TYPE*)) ; SB!KERNEL::TYPE1) ; ((OR (EQ SB!KERNEL::TYPE1 SB!KERNEL:*EMPTY-TYPE*) ; (EQ SB!KERNEL::TYPE2 SB!KERNEL:*EMPTY-TYPE*)) ; SB!KERNEL:*EMPTY-TYPE*) ; ((AND (NOT #) (SB!KERNEL:VALUES-TYPE-REQUIRED SB!KERNEL::TYPE1)) ; (LET (#) ; (SB!KERNEL:MAKE-VALUES-TYPE :REQUIRED # :OPTIONAL # :REST # :ALLOWP ; #))) ; (T ; (VALUES ; (SB!KERNEL::VALUES-TYPE-OP SB!KERNEL::TYPE1 # ; #'SB!KERNEL:TYPE-INTERSECTION #'MAX))))) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::**VALUES-TYPE-INTERSECTION-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: ; DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION #'TYPE-CACHE-HASH :HASH-BITS 8 ; ...) ; (SB!INT:DEFUN-CACHED (SB!KERNEL:VALUES-TYPE-UNION :HASH-FUNCTION ; #'SB!KERNEL::TYPE-CACHE-HASH ; :HASH-BITS 8 :DEFAULT NIL ; :INIT-WRAPPER ; SB!INT:!COLD-INIT-FORMS) ; ((SB!KERNEL::TYPE1 EQ) (SB!KERNEL::TYPE2 EQ)) ; (DECLARE (TYPE SB!KERNEL:CTYPE SB!KERNEL::TYPE1 SB!KERNEL::TYPE2)) ; (COND ; ((OR (EQ SB!KERNEL::TYPE1 SB!KERNEL:*WILD-TYPE*) ; (EQ SB!KERNEL::TYPE2 SB!KERNEL:*WILD-TYPE*)) ; SB!KERNEL:*WILD-TYPE*) ; ((EQ SB!KERNEL::TYPE1 SB!KERNEL:*EMPTY-TYPE*) SB!KERNEL::TYPE2) ; ((EQ SB!KERNEL::TYPE2 SB!KERNEL:*EMPTY-TYPE*) SB!KERNEL::TYPE1) ; (T ; (VALUES ; (SB!KERNEL::VALUES-TYPE-OP SB!KERNEL::TYPE1 SB!KERNEL::TYPE2 ; #'SB!KERNEL:TYPE-UNION #'MIN))))) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::**VALUES-TYPE-UNION-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: ; DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS 8 :HASH-FUNCTION #'TYPE-HASH-VALUE) ; (SB!INT:DEFUN-CACHED (SB!KERNEL::%COERCE-TO-VALUES :HASH-BITS 8 ; :HASH-FUNCTION ; #'SB!KERNEL:TYPE-HASH-VALUE) ; ((TYPE EQ)) ; (COND ; ((MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::SURE) ; (SB!KERNEL:CSUBTYPEP # TYPE) ; (AND # SB!KERNEL::SURE)) ; (SB!KERNEL:MAKE-VALUES-TYPE :REQUIRED (LIST TYPE) :REST ; SB!KERNEL:*UNIVERSAL-TYPE*)) ; (T ; (SB!KERNEL:MAKE-VALUES-TYPE :OPTIONAL (LIST TYPE) :REST ; SB!KERNEL:*UNIVERSAL-TYPE*)))) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::**%COERCE-TO-VALUES-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; ; caught STYLE-WARNING: ; 9 more uses of undefined function SB!IMPL::%DEFGLOBAL ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-type.lisp ; in: DEFSTRUCT KEY-INFO ; (DEFSTRUCT (SB!KERNEL:KEY-INFO (:PURE T) (:COPIER NIL)) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!LATE-TYPE-COLD-INIT) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET LAMBDA FUNCTION BLOCK ; --> DESTRUCTURING-BIND LET LET* LET* LET SB!KERNEL:MAKE-ARRAY-TYPE ; ==> ; (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::ELTYPE) ; ; caught STYLE-WARNING: ; undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE ; in: !DEFINE-TYPE-METHOD (ARRAY :UNPARSE) ; (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::DTYPE) ; ; caught STYLE-WARNING: ; undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE ; in: DEFUN UNITE-ARRAY-TYPES-DIMENSIONS ; (MAPCAR ; (LAMBDA (SB!KERNEL::DIM1 SB!KERNEL::DIM2) ; (COND ((EQUAL SB!KERNEL::DIM1 SB!KERNEL::DIM2) SB!KERNEL::DIM1) ; ((EQ SB!KERNEL::DIM1 '*) (SETF #) '*) ; ((EQ SB!KERNEL::DIM2 '*) (SETF #) '*) (T (SETF #)))) ; SB!KERNEL::DIMS1 SB!KERNEL::DIMS2) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN MAYBE-DISTRIBUTE-ONE-UNION ; (MAPCAR ; (LAMBDA (SB!KERNEL::X) ; (SB!KERNEL:TYPE-INTERSECTION SB!KERNEL::X INTERSECTION)) ; (SB!KERNEL:UNION-TYPE-TYPES SB!KERNEL:UNION-TYPE)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN FIXED-VALUES-OP ; (MAPCAR ; (LAMBDA (SB!KERNEL::T1 SB!KERNEL::T2) ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN) ; (FUNCALL SB!KERNEL::OPERATION SB!KERNEL::T1 SB!KERNEL::T2) ; (UNLESS SB!KERNEL::WIN (SETQ #)) ; SB!KERNEL::RES)) ; SB!KERNEL::TYPES1 ; (APPEND SB!KERNEL::TYPES2 ; (MAKE-LIST (- (LENGTH SB!KERNEL::TYPES1) (LENGTH SB!KERNEL::TYPES2)) ; :INITIAL-ELEMENT SB!KERNEL::REST2))) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 17 more uses of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-type.lisp ; in: DEFUN CTYPE-OF-NUMBER ; (SB!KERNEL:FLOAT-FORMAT-NAME SB!KERNEL::NUM) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-FORMAT-NAME ; in: DEFUN LIST-ABSTRACT-TYPE-FUNCTION ; (INLINE SB!KERNEL::GENERIC-ABSTRACT-WALK-TYPE) ; ; caught STYLE-WARNING: ; undefined function: GENERIC-ABSTRACT-WALK-TYPE ; in: LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!LATE-TYPE-COLD-INIT) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET LAMBDA FUNCTION BLOCK ; --> DESTRUCTURING-BIND LET LET* LET* LET IF ; ==> ; (SB!KERNEL::SIMPLIFY-ARRAY-UNIONS TYPE) ; ; caught STYLE-WARNING: ; undefined function: SIMPLIFY-ARRAY-UNIONS ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!IMPL::%DEFGLOBAL %TARGET-DEFSTRUCT %UPGRADED-ARRAY-ELEMENT-TYPE FLOAT-FORMAT-NAME GENERIC-ABSTRACT-WALK-TYPE SIMPLIFY-ARRAY-UNIONS ; caught 14 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/late-type.lisp-obj-tmp written ; compilation finished in 0:00:02.404 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/deftypes-for-target.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "deftypes-for-target.lisp 14") ; x-compiling (SB-XC:DEFTYPE BOOLEAN ...) ; x-compiling (SB-XC:DEFTYPE MOD ...) ; x-compiling (SB-XC:DEFTYPE SIGNED-BYTE ...) ; x-compiling (SB-XC:DEFTYPE UNSIGNED-BYTE ...) ; x-compiling (SB-XC:DEFTYPE UNSIGNED-BYTE* ...) ; x-compiling (SB-XC:DEFTYPE BIT ...) ; x-compiling (SB-XC:DEFTYPE ATOM ...) ; x-compiling (SB-XC:DEFTYPE BASE-CHAR ...) ; x-compiling (SB-XC:DEFTYPE EXTENDED-CHAR ...) ; x-compiling (SB-XC:DEFTYPE STANDARD-CHAR ...) ; x-compiling (SB-XC:DEFTYPE KEYWORD ...) ; x-compiling (SB-XC:DEFTYPE EQL ...) ; x-compiling (SB-XC:DEFTYPE VECTOR ...) ; x-compiling (SB-XC:DEFTYPE SIMPLE-VECTOR ...) ; x-compiling (SB-XC:DEFTYPE BASE-STRING ...) ; x-compiling (SB-XC:DEFTYPE SIMPLE-BASE-STRING ...) ; x-compiling (SB-XC:DEFTYPE STRING ...) ; x-compiling (SB-XC:DEFTYPE SIMPLE-STRING ...) ; x-compiling (SB-XC:DEFTYPE BIT-VECTOR ...) ; x-compiling (SB-XC:DEFTYPE SIMPLE-BIT-VECTOR ...) ; x-compiling (SB-XC:DEFTYPE GENERALIZED-BOOLEAN ...) ; x-compiling (SB-XC:DEFTYPE FORMAT-CONTROL ...) ; x-compiling (SB-XC:DEFTYPE RESTART-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE ARRAY-RANK ...) ; x-compiling (SB-XC:DEFTYPE ARRAY-TOTAL-SIZE ...) ; x-compiling (SB-XC:DEFTYPE FORM ...) ; x-compiling (SB-XC:DEFTYPE STRING-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE FILENAME ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE LOGICAL-HOST-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE PACKAGE-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE SYMBOLS-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE IRRATIONAL ...) ; x-compiling (SB-XC:DEFTYPE CHAR-CODE ...) ; x-compiling (SB-XC:DEFTYPE CONSED-SEQUENCE ...) ; x-compiling (SB-XC:DEFTYPE SEQUENCE-END ...) ; x-compiling (SB-XC:DEFTYPE SEQUENCE-COUNT ...) ; x-compiling (SB-XC:DEFTYPE STREAM-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE EXTERNAL-FORMAT-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE LEXENV-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE CALLABLE ...) ; x-compiling (SB-XC:DEFTYPE SINGLE-FLOAT-EXPONENT ...) ; x-compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-EXPONENT ...) ; x-compiling (SB-XC:DEFTYPE SINGLE-FLOAT-INT-EXPONENT ...) ; x-compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-INT-EXPONENT ...) ; x-compiling (SB-XC:DEFTYPE SINGLE-FLOAT-SIGNIFICAND ...) ; x-compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-SIGNIFICAND ...) ; x-compiling (/SHOW0 "deftypes-for-target.lisp end of file") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/deftypes-for-target.lisp-obj-tmp written ; compilation finished in 0:00:00.214 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/knownfun.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (/SHOW0 "knownfun.lisp 17") ; x-compiling (!DEF-BOOLEAN-ATTRIBUTE IR1 ...) ; x-compiling (DEFSTRUCT (FUN-INFO #) ...) ; x-compiling (DEFPRINTER (FUN-INFO) ...) ; x-compiling (DEFSTRUCT (TRANSFORM #) ...) ; x-compiling (DEFPRINTER (TRANSFORM) ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %DEFTRANSFORM ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %DEFKNOWN ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FUN-INFO-OR-LOSE ...) ; x-compiling (DEFUN RESULT-TYPE-FIRST-ARG ...) ; x-compiling (DEFUN RESULT-TYPE-LAST-ARG ...) ; x-compiling (DEFUN RESULT-TYPE-FLOAT-CONTAGION ...) ; x-compiling (DEFUN SEQUENCE-RESULT-NTH-ARG ...) ; x-compiling (DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ...) ; x-compiling (DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ...) ; x-compiling (DEFUN REMOVE-NON-CONSTANTS-AND-NILS ...) ; x-compiling (DEFUN NTH-CONSTANT-ARGS ...) ; x-compiling (DEFUN NTH-CONSTANT-NONEMPTY-SEQUENCE-ARGS ...) ; x-compiling (DEFUN READ-ELT-TYPE-DERIVER ...) ; x-compiling (/SHOW0 "knownfun.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/knownfun.lisp ; in: DEFSTRUCT TRANSFORM ; (DEFSTRUCT (SB!C::TRANSFORM (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE) ; (FUNCTION (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!C::NOTE (SB!INT:MISSING-ARG) :TYPE STRING) ; (SB!C::IMPORTANT NIL :TYPE (MEMBER T NIL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT FUN-INFO ; (DEFSTRUCT (SB!C::FUN-INFO (:PURE T)) ; (SB!C:ATTRIBUTES (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES) ; (SB!C::TRANSFORMS NIL :TYPE LIST) ; (SB!C:DERIVE-TYPE NIL :TYPE (OR FUNCTION NULL)) ; (SB!C:OPTIMIZER NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::DESTROYED-CONSTANT-ARGS NIL :TYPE (OR FUNCTION NULL)) ; (SB!C:LTN-ANNOTATE NIL :TYPE (OR FUNCTION NULL)) ; (SB!C:IR2-CONVERT NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::STACK-ALLOCATE-RESULT NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::CONSTRAINT-PROPAGATE NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::CONSTRAINT-PROPAGATE-IF NIL :TYPE (OR FUNCTION NULL)) ; ...) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: !DEF-BOOLEAN-ATTRIBUTE IR1 ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::IR1 SB!C:CALL SB!C:UNWIND SB!C:ANY ; SB!C::DX-SAFE SB!C:FOLDABLE SB!ASSEM:FLUSHABLE ; SB!C:UNSAFELY-FLUSHABLE SB!C::IMPORTANT-RESULT ; SB!C:MOVABLE SB!C::PREDICATE ...) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!C::IR1-ATTRIBUTEP ; (LAMBDA (#:WHOLE11 #:ENVIRONMENT12) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!C::IR1-ATTRIBUTEP #)))) ; '(SB!C::PLACE &REST SB!C:ATTRIBUTES &ENVIRONMENT ; SB!C::ENV) ; NIL ; '"Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE.") ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CAREFUL-SPECIFIER-TYPE ; (SB!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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/knownfun.lisp ; in: !DEF-BOOLEAN-ATTRIBUTE IR1 ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::IR1 SB!C:CALL SB!C:UNWIND SB!C:ANY ; SB!C::DX-SAFE SB!C:FOLDABLE SB!ASSEM:FLUSHABLE ; SB!C:UNSAFELY-FLUSHABLE SB!C::IMPORTANT-RESULT ; SB!C:MOVABLE SB!C::PREDICATE ...) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION ; --> LET* LET* BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; in: DEFUN RESULT-TYPE-FLOAT-CONTAGION ; #'SB!C::LVAR-TYPE ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN RESULT-TYPE-LAST-ARG ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN RESULT-TYPE-FIRST-ARG ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; ; caught STYLE-WARNING: ; 2 more uses of undefined function LVAR-TYPE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/knownfun.lisp ; in: DEFUN REMOVE-NON-CONSTANTS-AND-NILS ; #'SB!C::LVAR-VALUE ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; ; caught STYLE-WARNING: ; 1 more use of undefined function LVAR-VALUE ; ; compilation unit finished ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT SB!IMPL::ASSIGN-SETF-MACRO CAREFUL-SPECIFIER-TYPE CONSTANT-LVAR-P SB-XC:GET-SETF-EXPANSION LVAR-TYPE LVAR-VALUE ; caught 18 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/knownfun.lisp-obj-tmp written ; compilation finished in 0:00:00.309 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/constantp.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFVAR *SPECIAL-FORM-CONSTANTP-FUNS*) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (!COLD-INIT-FORMS (SETF *SPECIAL-FORM-CONSTANTP-FUNS* ...)) ; x-compiling (DEFVAR *SPECIAL-FORM-CONSTANT-FORM-VALUE-FUNS*) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (!COLD-INIT-FORMS (SETF *SPECIAL-FORM-CONSTANT-FORM-VALUE-FUNS* ...)) ; x-compiling (DEFVAR *SPECIAL-CONSTANT-VARIABLES*) ; x-compiling (!COLD-INIT-FORMS (SETF *SPECIAL-CONSTANT-VARIABLES* ...)) ; x-compiling (DEFUN %CONSTANTP ...) ; x-compiling (DEFUN %CONSTANT-FORM-VALUE ...) ; x-compiling (DEFUN CONSTANT-SPECIAL-FORM-P ...) ; x-compiling (DEFUN CONSTANT-SPECIAL-FORM-VALUE ...) ; x-compiling (DEFUN CONSTANT-SPECIAL-VARIABLE-P ...) ; x-compiling (DEFUN CONSTANT-FUNCTION-CALL-P ...) ; x-compiling (DEFUN CONSTANT-FUNCTION-CALL-VALUE ...) ; x-compiling (DECLAIM (INLINE SB-XC:CONSTANTP)) ; x-compiling (DEFUN SB-XC:CONSTANTP ...) ; x-compiling (DECLAIM (INLINE CONSTANT-FORM-VALUE)) ; x-compiling (DEFUN CONSTANT-FORM-VALUE ...) ; x-compiling (DECLAIM (INLINE CONSTANT-TYPEP)) ; x-compiling (DEFUN CONSTANT-TYPEP ...) ; x-compiling (DEFMACRO DEFCONSTANTP ...) ; x-compiling (!COLD-INIT-FORMS (DEFCONSTANTP QUOTE ...) ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CONSTANTP-COLD-INIT) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/constantp.lisp ; in: DEFUN CONSTANT-FUNCTION-CALL-VALUE ; (MAPCAR ; (LAMBDA (SB!C::ARG) ; (SB!C::%CONSTANT-FORM-VALUE SB!C::ARG SB!C::ENVIRONMENT SB!C::ENVP)) ; (CDR SB!KERNEL:FORM)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/constantp.lisp-obj-tmp written ; compilation finished in 0:00:00.206 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fun-info-funs.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN %DEF-REFFER ...) ; x-compiling (DEFUN %DEF-SETTER ...) ; x-compiling (DEFUN %DEF-ALLOC ...) ; x-compiling (DEFUN %DEF-CASSER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fun-info-funs.lisp ; in: DEFUN %DEF-CASSER ; (SB!C::IR2-CONVERT-CASSER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-CASSER ; in: DEFUN %DEF-ALLOC ; (SB!C::IR2-CONVERT-FIXED-ALLOCATION SB!C::NODE BLOCK SB!C::NAME SB!SYS:WORDS ; SB!C::HEADER SB!C::LOWTAG SB!C::INITS) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-FIXED-ALLOCATION ; in: DEFUN %DEF-REFFER ; (SB!C::IR2-CONVERT-REFFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-REFFER ; in: DEFUN %DEF-SETTER ; (SB!C::IR2-CONVERT-SETFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-SETFER ; (SB!C::IR2-CONVERT-SETTER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-SETTER ; in: DEFUN %DEF-ALLOC ; (SB!C::IR2-CONVERT-STRUCTURE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME ; SB!SYS:WORDS SB!C::HEADER ; SB!C::LOWTAG SB!C::INITS) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-STRUCTURE-ALLOCATION ; (SB!C::IR2-CONVERT-VARIABLE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME ; SB!SYS:WORDS SB!C::HEADER SB!C::LOWTAG ; SB!C::INITS) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-VARIABLE-ALLOCATION ; ; compilation unit finished ; Undefined functions: ; IR2-CONVERT-CASSER IR2-CONVERT-FIXED-ALLOCATION IR2-CONVERT-REFFER IR2-CONVERT-SETFER IR2-CONVERT-SETTER IR2-CONVERT-STRUCTURE-ALLOCATION IR2-CONVERT-VARIABLE-ALLOCATION ; caught 7 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/fun-info-funs.lisp-obj-tmp written ; compilation finished in 0:00:01.239 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (SETF (INFO :TYPE ...) ...) ; x-compiling (SB-XC:DEFTYPE LONG-FLOAT ...) ; x-compiling (SETF (INFO :TYPE ...) ...) ; x-compiling (SB-XC:DEFTYPE SHORT-FLOAT ...) ; x-compiling (SB-XC:DEFTYPE BIT-INDEX ...) ; x-compiling (SB-XC:DEFTYPE FLOAT-EXPONENT ...) ; x-compiling (SB-XC:DEFTYPE FLOAT-DIGITS ...) ; x-compiling (SB-XC:DEFTYPE FLOAT-RADIX ...) ; x-compiling (SB-XC:DEFTYPE FLOAT-INT-EXPONENT ...) ; x-compiling (SB-XC:DEFTYPE BOOLE-CODE ...) ; x-compiling (SB-XC:DEFTYPE BYTE-SPECIFIER ...) ; x-compiling (SB-XC:DEFTYPE CHAR-INT ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-HOST ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-DEVICE ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-DIRECTORY ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-NAME ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-TYPE ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-VERSION ...) ; x-compiling (SB-XC:DEFTYPE INTERNAL-TIME ...) ; x-compiling (SB-XC:DEFTYPE BIGNUM-ELEMENT-TYPE ...) ; x-compiling (SB-XC:DEFTYPE BIGNUM-TYPE ...) ; x-compiling (SB-XC:DEFTYPE BIGNUM-INDEX ...) ; x-compiling (SB-XC:DEFTYPE UNBOXED-ARRAY ...) ; x-compiling (SB-XC:DEFTYPE SIMPLE-UNBOXED-ARRAY ...) ; x-compiling (SB-XC:DEFTYPE COMPLEX-VECTOR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FLOAT-FORMAT-NAME ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %UPGRADED-ARRAY-ELEMENT-TYPE ...) ; x-compiling (DEFUN SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE ...) ; x-compiling (DEFUN SB-XC:UPGRADED-COMPLEX-PART-TYPE ...) ; x-compiling (DEFUN CONTAINING-INTEGER-TYPE ...) ; x-compiling (DEFUN HAIRY-TYPE-CHECK-TEMPLATE-NAME ...) ; x-compiling (DEFUN SIMPLIFY-ARRAY-UNIONS ...) ; x-compiling (DEFUN WIDETAGS-FROM-UNION-TYPE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-type.lisp ; in: DEFUN SIMPLIFY-ARRAY-UNIONS ; (MAPCAR ; (LAMBDA (SB!KERNEL::X) ; (SB!IMPL::BACKQ-LIST 'NOT (SB!IMPL::BACKQ-LIST 'ARRAY SB!KERNEL::X))) ; SB!KERNEL::EXCLUDE) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/vm-type.lisp-obj-tmp written ; compilation finished in 0:00:00.193 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/proclaim.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *UNDEFINED-WARNINGS*) ; x-compiling (DECLAIM (LIST *UNDEFINED-WARNINGS*)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN GET-OLD-VARS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PROCESS-OPTIMIZE-DECL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PROCESS-HANDLE-CONDITIONS-DECL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PROCESS-MUFFLE-CONDITIONS-DECL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PROCESS-UNHANDLE-CONDITIONS-DECL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PROCESS-UNMUFFLE-CONDITIONS-DECL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PROCESS-PACKAGE-LOCK-DECL ...) ; x-compiling (DEFVAR *QUEUED-PROCLAIMS*) ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (!COLD-INIT-FORMS (SETF *QUEUED-PROCLAIMS* ...)) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-PROCLAIM-COLD-INIT) ; x-compiling (DEFUN PROCESS-VARIABLE-DECLARATION ...) ; x-compiling (DEFUN PROCLAIM-TYPE ...) ; x-compiling (DEFUN PROCLAIM-FTYPE ...) ; x-compiling (DEFUN SEAL-CLASS ...) ; x-compiling (DEFUN PROCESS-FREEZE-TYPE-DECLARATION ...) ; x-compiling (DEFUN PROCESS-INLINE-DECLARATION ...) ; x-compiling (DEFUN PROCESS-DECLARATION-DECLARATION ...) ; x-compiling (DEFUN CANONIZED-DECL-SPEC ...) ; x-compiling (DEFUN SB-XC:PROCLAIM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/proclaim.lisp ; in: DEFUN SEAL-CLASS ; (SB!INT:DOHASH ((SB!C::SUBCLASS SB!KERNEL:LAYOUT) SB!C::SUBCLASSES :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (SETF (SB!KERNEL:CLASSOID-STATE SB!C::SUBCLASS) :SEALED)) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; #'SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK-THUNK ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-263)) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; in: DEFUN CANONIZED-DECL-SPEC ; (TYPEP SB!C::ID 'CLASS) ; ; caught STYLE-WARNING: ; undefined type: CLASS ; in: DEFUN PROCESS-UNMUFFLE-CONDITIONS-DECL ; (MAPCAR (LAMBDA (SB!C::X) (LIST SB!C::X 'MUFFLE-WARNING)) (CDR SB!C::SPEC)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN PROCESS-MUFFLE-CONDITIONS-DECL ; (MAPCAR (LAMBDA (SB!C::X) (LIST SB!C::X 'MUFFLE-WARNING)) (CDR SB!C::SPEC)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SEAL-CLASS ; (SB!INT:DOHASH ((SB!C::SUBCLASS SB!KERNEL:LAYOUT) SB!C::SUBCLASSES :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (SETF (SB!KERNEL:CLASSOID-STATE SB!C::SUBCLASS) :SEALED)) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; ==> ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-263) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-LOCK ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LENGTH ; ==> ; (SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-NEXT-VECTOR ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LABELS BLOCK ; --> LET ; ==> ; (SB!IMPL::HASH-TABLE-TABLE SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-TABLE ; ; compilation unit finished ; Undefined types: ; CLASS COMPILER-NOTE ; Undefined functions: ; SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK SB!IMPL::HASH-TABLE-LOCK SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::HASH-TABLE-TABLE ; caught 7 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/proclaim.lisp-obj-tmp written ; compilation finished in 0:00:00.171 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/class-init.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "beginning class-init.lisp") ; x-compiling (DOLIST (X *BUILT-IN-CLASSES*) ...) ; x-compiling (/SHOW0 "done with class-init.lisp") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/class-init.lisp-obj-tmp written ; compilation finished in 0:00:00.028 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defstruct.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "code/defstruct.lisp 15") ; x-compiling (DEFUN COMPILER-LAYOUT-OR-LOSE ...) ; x-compiling (DEFUN COMPILER-LAYOUT-READY-P ...) ; x-compiling (SB-XC:DEFMACRO %MAKE-STRUCTURE-INSTANCE-MACRO ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %MAKE-STRUCTURE-INSTANCE-ALLOCATOR ...) ; x-compiling (DEFUN %MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR ...) ; x-compiling (SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT ...) ; x-compiling (DEF!STRUCT (DEFSTRUCT-DESCRIPTION # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-DESCRIPTION)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN DD-CLASS-P ...) ; x-compiling (DEFUN DD-DECLARABLE-TYPE ...) ; x-compiling (DEFUN DD-LAYOUT-OR-LOSE ...) ; x-compiling (DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-SLOT-DESCRIPTION)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN DD-LISP-TYPE ...) ; x-compiling (DEFUN CLASS-METHOD-DEFINITIONS ...) ; x-compiling (SB-XC:DEFMACRO DELAY-DEFSTRUCT-FUNCTIONS ...) ; x-compiling (DEFUN %EXPANDER-FOR-DEFSTRUCT ...) ; x-compiling (SB-XC:DEFMACRO DEFSTRUCT ...) ; x-compiling (DEFUN ACCESSOR-INHERITED-DATA ...) ; x-compiling (DEFUN TYPED-PREDICATE-DEFINITIONS ...) ; x-compiling (DEFUN TYPED-COPIER-DEFINITIONS ...) ; x-compiling (DEFUN TYPED-ACCESSOR-DEFINITIONS ...) ; x-compiling (DEFUN REQUIRE-NO-PRINT-OPTIONS-SO-FAR ...) ; x-compiling (DEFUN PARSE-1-DD-OPTION ...) ; x-compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS ...) ; x-compiling (DEFUN DETERMINE-UNSAFE-SLOTS ...) ; x-compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS-AND-SLOT-DESCRIPTIONS ...) ; x-compiling (DEFUN PARSE-1-DSD ...) ; x-compiling (DEFUN STRUCTURE-RAW-SLOT-DATA ...) ; x-compiling (DEFUN ALLOCATE-1-SLOT ...) ; x-compiling (DEFUN TYPED-STRUCTURE-INFO-OR-LOSE ...) ; x-compiling (DEFUN FROB-DD-INCLUSION-STUFF ...) ; x-compiling (DEFUN INHERITS-FOR-STRUCTURE ...) ; x-compiling (DEFUN %DEFSTRUCT ...) ; x-compiling (DEFUN %ACCESSOR-PLACE-FORM ...) ; x-compiling (DEFUN SLOT-ACCESSOR-TRANSFORMS ...) ; x-compiling (DEFUN SLOT-SETTER-LAMBDA-FORM ...) ; x-compiling (DEFUN UNDECLARE-STRUCTURE ...) ; x-compiling (DEFUN %COMPILER-SET-UP-LAYOUT ...) ; x-compiling (DEFUN %COMPILER-DEFSTRUCT ...) ; x-compiling (DEFUN COMPARE-SLOTS ...) ; x-compiling (DEFUN REDEFINE-STRUCTURE-WARNING ...) ; x-compiling (DEFUN %REDEFINE-DEFSTRUCT ...) ; x-compiling (DECLAIM (INLINE DD-LAYOUT-LENGTH)) ; x-compiling (DEFUN DD-LAYOUT-LENGTH ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN DD-INSTANCE-LENGTH ...) ; x-compiling (DEFUN ENSURE-STRUCTURE-CLASS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defstruct.lisp ; in: DEFUN ENSURE-STRUCTURE-CLASS ; (VALUES CLASS SB!KERNEL::NEW-LAYOUT SB!KERNEL::OLD-LAYOUT) ; ==> ; CLASS ; ; note: deleting unreachable code ; x-compiling (DEFUN FIND-NAME-INDICES ...) ; x-compiling (DEFUN CREATE-VECTOR-CONSTRUCTOR ...) ; x-compiling (DEFUN CREATE-LIST-CONSTRUCTOR ...) ; x-compiling (DEFUN CREATE-STRUCTURE-CONSTRUCTOR ...) ; x-compiling (DEFUN CREATE-KEYWORD-CONSTRUCTOR ...) ; x-compiling (DEFUN CREATE-BOA-CONSTRUCTOR ...) ; x-compiling (DEFUN CONSTRUCTOR-DEFINITIONS ...) ; x-compiling (DEFUN ACCESSOR-DEFINITIONS ...) ; x-compiling (DEFUN COPIER-DEFINITION ...) ; x-compiling (DEFUN PREDICATE-DEFINITION ...) ; x-compiling (DEFUN MAKE-DD-WITH-ALTERNATE-METACLASS ...) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS ...) ; x-compiling (DEFUN !SET-UP-STRUCTURE-OBJECT-CLASS ...) ; x-compiling (DOLIST (ARGS #) ...) ; x-compiling (DEFUN FIND-DEFSTRUCT-DESCRIPTION ...) ; x-compiling (/SHOW0 "code/defstruct.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defstruct.lisp ; in: ; DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION ; (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:CONC-NAME DSD-) ; (:COPIER NIL) (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:DEFSTRUCT-SLOT-DESCRIPTION ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:CONC-NAME SB!KERNEL::DSD-) (:COPIER NIL) (:PURE T)) ; SB!KERNEL::NAME (SB!INT:INDEX (SB!INT:MISSING-ARG) :TYPE FIXNUM) ; (SB!KERNEL::ACCESSOR-NAME NIL) SB!KERNEL::DEFAULT (TYPE T) ; (SB!KERNEL::SAFE-P T :TYPE BOOLEAN) ; (SB!KERNEL::RAW-TYPE T :TYPE ; (MEMBER T SINGLE-FLOAT DOUBLE-FLOAT SB!KERNEL::COMPLEX-SINGLE-FLOAT ; SB!KERNEL::COMPLEX-DOUBLE-FLOAT SB!EXT:WORD)) ; (SB!KERNEL::READ-ONLY NIL :TYPE (MEMBER T NIL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (DEFSTRUCT-DESCRIPTION (:CONC-NAME DD-) ; (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:PURE T) ; (:CONSTRUCTOR !MAKE-DEFSTRUCT-DESCRIPTION-NO-FUNCTIONS (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-NO-FUNCTIONS ; (SB!KERNEL::NAME)) ; (: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 SYMBOL) ; (SB!KERNEL::DEFAULT-CONSTRUCTOR NIL :TYPE SYMBOL) ; (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::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFUN UNDECLARE-STRUCTURE ; (SB!INT:DOHASH ((SB!KERNEL:CLASSOID SB!KERNEL:LAYOUT) SB!KERNEL::SUBCLASSES ; :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (SB!KERNEL:UNDECLARE-STRUCTURE SB!KERNEL:CLASSOID NIL) ; (SB!KERNEL::SUBS (SB!KERNEL:CLASSOID-PROPER-NAME SB!KERNEL:CLASSOID))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; #'SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK-THUNK ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-1565)) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; in: DEFUN CREATE-VECTOR-CONSTRUCTOR ; (MAPCAR ; (LAMBDA (SB!KERNEL::X) ; (SB!IMPL::BACKQ-LIST 'SETF ; (SB!IMPL::BACKQ-LIST 'AREF SB!KERNEL::TEMP ; (CDR SB!KERNEL::X)) ; (SB!IMPL::BACKQ-LIST 'QUOTE (CAR SB!KERNEL::X)))) ; (SB!KERNEL::FIND-NAME-INDICES SB!KERNEL::DD)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN COMPARE-SLOTS ; (MAPCAR #'SB!KERNEL:DSD-NAME SB!KERNEL::OSLOTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR #'SB!KERNEL:DSD-NAME SB!KERNEL::NSLOTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 12 more uses of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defstruct.lisp ; in: DEFUN UNDECLARE-STRUCTURE ; (SB!INT:DOHASH ((SB!KERNEL:CLASSOID SB!KERNEL:LAYOUT) SB!KERNEL::SUBCLASSES ; :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (SB!KERNEL:UNDECLARE-STRUCTURE SB!KERNEL:CLASSOID NIL) ; (SB!KERNEL::SUBS (SB!KERNEL:CLASSOID-PROPER-NAME SB!KERNEL:CLASSOID))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; ==> ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-1565) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-LOCK ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LENGTH ; ==> ; (SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-NEXT-VECTOR ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LABELS BLOCK ; --> LET ; ==> ; (SB!IMPL::HASH-TABLE-TABLE SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-TABLE ; in: DEFUN %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 ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; %TARGET-DEFSTRUCT SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK SB!IMPL::HASH-TABLE-LOCK SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::HASH-TABLE-TABLE SB!C::MAKE-DEFINITION-SOURCE-LOCATION MAKE-NULL-LEXENV ; caught 12 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/defstruct.lisp-obj-tmp written ; compilation finished in 0:00:02.941 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-defstruct.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "target-defstruct.lisp 12") ; x-compiling (DEFUN %MAKE-INSTANCE ...) ; x-compiling (DEFUN %INSTANCE-LENGTH ...) ; x-compiling (DEFUN %INSTANCE-REF ...) ; x-compiling (DEFUN %INSTANCE-SET ...) ; x-compiling (DEFUN %MAKE-STRUCTURE-INSTANCE ...) ; x-compiling (DEFUN %RAW-INSTANCE-REF/WORD ...) ; x-compiling (DEFUN %RAW-INSTANCE-SET/WORD ...) ; x-compiling (DEFUN %RAW-INSTANCE-REF/SINGLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-SET/SINGLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-REF/DOUBLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-SET/DOUBLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...) ; x-compiling (DEFUN %INSTANCE-LAYOUT ...) ; x-compiling (DEFUN %SET-INSTANCE-LAYOUT ...) ; x-compiling (DEFUN %MAKE-FUNCALLABLE-INSTANCE ...) ; x-compiling (DEFUN FUNCALLABLE-INSTANCE-P ...) ; x-compiling (DEFTYPE FUNCALLABLE-INSTANCE ...) ; x-compiling (DEFUN %FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFUN %SET-FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFUN FUNCALLABLE-INSTANCE-FUN ...) ; x-compiling (DEFUN (SETF FUNCALLABLE-INSTANCE-FUN) ...) ; x-compiling (DEFVAR *DEFSTRUCT-HOOKS* ...) ; x-compiling (DEFUN %TARGET-DEFSTRUCT ...) ; x-compiling (DEFUN COPY-STRUCTURE ...) ; x-compiling (DEFUN RAW-INSTANCE-SLOTS-EQUALP ...) ; x-compiling (DEFUN %PRINT-STRUCTURE-SANS-LAYOUT-INFO ...) ; x-compiling (DEFUN %PRINT-STRUCTURE-SANS-SLOTS ...) ; x-compiling (DEFUN %DEFAULT-STRUCTURE-PRETTY-PRINT ...) ; x-compiling (DEFUN %DEFAULT-STRUCTURE-UGLY-PRINT ...) ; x-compiling (DEFUN DEFAULT-STRUCTURE-PRINT ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (/SHOW0 "target-defstruct.lisp end of file") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-defstruct.lisp-obj-tmp written ; compilation finished in 0:00:00.147 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/alien-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "code/alien-type.lisp 16") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFSTRUCT (ALIEN-TYPE-TYPE # ...) ...) ; x-compiling (!DEFINE-TYPE-CLASS ALIEN) ; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-SUPERCLASSES ALIEN ...) ; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-=) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR ALIEN ...) ; x-compiling (DEFUN MAKE-ALIEN-TYPE-TYPE ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !ALIEN-TYPE-COLD-INIT) ; x-compiling (/SHOW0 "code/alien-type.lisp end of file") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/alien-type.lisp ; in: !DEFINE-SUPERCLASSES ALIEN ; (SB!KERNEL::!DEFINE-SUPERCLASSES SB!ALIEN:ALIEN ; ((SB!ALIEN-INTERNALS:ALIEN-VALUE)) PROGN) ; --> PROGN LET LET MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !ALIEN-TYPE-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!ALIEN-TYPE-COLD-INIT) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET LAMBDA FUNCTION BLOCK ; --> DESTRUCTURING-BIND LET LET* LET* TYPECASE LET COND IF COND IF COND THE ; --> PROGN SB!KERNEL:MAKE-ALIEN-TYPE-TYPE SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE ; ==> ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: MAKE-NULL-LEXENV ; 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 268435456 ; (IF (BOUNDP 'SB!KERNEL::*TYPE-RANDOM-STATE*) ; SB!KERNEL::*TYPE-RANDOM-STATE* ; (SETF SB!KERNEL::*TYPE-RANDOM-STATE* (MAKE-RANDOM-STATE)))) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; MAKE-NULL-LEXENV RANDOM-CHUNK ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/alien-type.lisp-obj-tmp written ; compilation finished in 0:00:00.113 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/force-delayed-defbangstructs.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/force-delayed-defbangstructs.lisp-obj-tmp written ; compilation finished in 0:00:00.019 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-full-eval.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!EVAL") ; x-compiling (DEFPARAMETER *EVAL-LEVEL* ...) ; x-compiling (DEFPARAMETER *EVAL-VERBOSE* ...) ; x-compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION ...) ; x-compiling (DEFUN MAKE-INTERPRETED-FUNCTION ...) ; x-compiling (DEFUN INTERPRETED-FUNCTION-P ...) ; x-compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-full-eval.lisp ; in: DEFUN MAKE-INTERPRETED-FUNCTION ; (SB!EVAL::INTERPRETED-APPLY FUNCTION SB!EVAL::ARGS) ; ; caught STYLE-WARNING: ; undefined function: INTERPRETED-APPLY ; ; compilation unit finished ; Undefined function: ; INTERPRETED-APPLY ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-full-eval.lisp-obj-tmp written ; compilation finished in 0:00:00.080 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/typep.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN TYPEP ...) ; x-compiling (DEFUN %TYPEP ...) ; x-compiling (DEFUN %%TYPEP ...) ; x-compiling (DEFUN CLASSOID-CELL-TYPEP ...) ; x-compiling (DEFUN CLASSOID-TYPEP ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/typep.lisp-obj-tmp written ; compilation finished in 0:00:00.106 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/compiler-error.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *COMPILER-ERROR-BAILOUT*) ; x-compiling (DEFINE-CONDITION COMPILER-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN COMPILER-ERROR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/compiler-error.lisp ; in: DEFUN COMPILER-ERROR ; (SB!INT:BUG "Control returned from *COMPILER-ERROR-BAILOUT*.") ; ==> ; "Control returned from *COMPILER-ERROR-BAILOUT*." ; ; note: deleting unreachable code ; x-compiling (DEFMACRO WITH-COMPILER-ERROR-RESIGNALLING ...) ; x-compiling (DEFUN COMPILER-WARN ...) ; x-compiling (DEFUN COMPILER-STYLE-WARN ...) ; x-compiling (DEFUN SOURCE-TO-STRING ...) ; x-compiling (DEFUN MAKE-COMPILER-ERROR-FORM ...) ; x-compiling (DEFINE-CONDITION FATAL-COMPILER-ERROR ...) ; x-compiling (DEFINE-CONDITION INPUT-ERROR-IN-COMPILE-FILE ...) ; x-compiling (DEFINE-CONDITION INPUT-ERROR-IN-LOAD ...); ; compilation unit finished ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/compiler-error.lisp-obj-tmp written ; compilation finished in 0:00:00.057 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-deftypes-for-target.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (SB-XC:DEFTYPE COMPILED-FUNCTION ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/late-deftypes-for-target.lisp-obj-tmp written ; compilation finished in 0:00:00.023 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/type-init.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "precomputing numeric types") ; x-compiling (PRECOMPUTE-TYPES (QUOTE #)) ; x-compiling (/SHOW0 "precomputing built-in symbol type specifiers") ; x-compiling (PRECOMPUTE-TYPES *!STANDARD-TYPE-NAMES*) ; x-compiling (/SHOW0 "done with type-init.lisp") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/type-init.lisp-obj-tmp written ; compilation finished in 0:00:00.019 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fixup-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (!COLD-INIT-FORMS (MAP # ...)) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !FIXUP-TYPE-COLD-INIT) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/fixup-type.lisp-obj-tmp written ; compilation finished in 0:00:00.012 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/package.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!TYPE HASH-VECTOR ...) ; x-compiling (DEF!STRUCT (PACKAGE-HASHTABLE # ...) ...) ; x-compiling (DEF!STRUCT (SB-XC:PACKAGE # ...) ...) ; x-compiling (DEFMACRO-MUNDANELY DO-SYMBOLS ...) ; x-compiling (DEFMACRO-MUNDANELY DO-EXTERNAL-SYMBOLS ...) ; x-compiling (DEFMACRO-MUNDANELY DO-ALL-SYMBOLS ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-ITERATOR ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-GRAPH ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/package.lisp-obj-tmp written ; compilation finished in 0:00:00.263 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/random.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEF!CONSTANT N-RANDOM-CHUNK-BITS ...) ; x-compiling (SB-XC:DEFSTRUCT (RANDOM-STATE # ...) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/random.lisp ; in: ; SB-XC:DEFSTRUCT (RANDOM-STATE (:CONSTRUCTOR %MAKE-RANDOM-STATE) (:COPIER NIL)) ; (SB!KERNEL::INIT-RANDOM-STATE) ; ; caught STYLE-WARNING: ; undefined function: INIT-RANDOM-STATE ; ; compilation unit finished ; Undefined function: ; INIT-RANDOM-STATE ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/random.lisp-obj-tmp written ; compilation finished in 0:00:00.055 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/hash-table.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (SB-XC:DEFSTRUCT (HASH-TABLE #) ...) ; x-compiling (DEFCONSTANT +MAGIC-HASH-VECTOR-VALUE+ ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-LOCKED-HASH-TABLE ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-LOCKED-SYSTEM-TABLE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/hash-table.lisp ; in: DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ; (CONCATENATE 'STRING (SYMBOL-NAME SB!IMPL::NAME) "-FUN") ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: SB-XC:DEFSTRUCT (HASH-TABLE (:CONSTRUCTOR %MAKE-HASH-TABLE)) ; (SB!THREAD:MAKE-MUTEX :NAME "hash-table lock") ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined function: ; SB!THREAD:MAKE-MUTEX ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/hash-table.lisp-obj-tmp written ; compilation finished in 0:00:00.234 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/readtable.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (SB-XC:DEFTYPE ATTRIBUTE-TABLE ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-WHITESPACE+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-TERMINATING-MACRO+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-SINGLE-ESCAPE+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-MULTIPLE-ESCAPE+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DOT+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-EXPT+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SLASH+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SIGN+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DECIMAL-DIGIT+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT-OR-EXPT+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-PACKAGE-DELIMITER+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-INVALID+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-DELIMITER+ ...) ; x-compiling (SB-XC:DEFSTRUCT (READTABLE # ...) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/readtable.lisp ; in: ; SB-XC:DEFSTRUCT (READTABLE (:CONC-NAME NIL) (:PREDICATE READTABLEP) ; (:COPIER NIL)) ; (MAKE-ARRAY SB!INT:BASE-CHAR-CODE-LIMIT :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT SB!IMPL::+CHAR-ATTR-CONSTITUENT+) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (128)) ; (SB!KERNEL:ALLOCATE-VECTOR 145 (THE SB!INT:INDEX LENGTH) ; 16)) ; (THE (UNSIGNED-BYTE 8) '4)) ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; #'SB!IMPL::UNDEFINED-MACRO-CHAR ; ; caught STYLE-WARNING: ; undefined function: UNDEFINED-MACRO-CHAR ; ; compilation unit finished ; Undefined functions: ; UB8-BASH-FILL UNDEFINED-MACRO-CHAR ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/readtable.lisp-obj-tmp written ; compilation finished in 0:00:00.081 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pathname.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!STRUCT (HOST #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!STRUCT (LOGICAL-HOST # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN ...) ; x-compiling (DEF!STRUCT (PATTERN #) ...) ; x-compiling (DEF!TYPE PATHNAME-COMPONENT-TOKENS ...) ; x-compiling (SB-XC:DEFSTRUCT (PATHNAME # ...) ...) ; x-compiling (SB-XC:DEFSTRUCT (LOGICAL-PATHNAME # ...)) ; x-compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY ...) ; x-compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/pathname.lisp ; in: ; DEF!STRUCT (LOGICAL-HOST (:MAKE-LOAD-FORM-FUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN) ; (:INCLUDE HOST (PARSE #'PARSE-LOGICAL-NAMESTRING) ; (PARSE-NATIVE (LAMBDA # #)) ; (UNPARSE #'UNPARSE-LOGICAL-NAMESTRING) ...)) ; #'SB!IMPL::PARSE-LOGICAL-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: PARSE-LOGICAL-NAMESTRING ; #'SB!IMPL::UNPARSE-ENOUGH-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-ENOUGH-NAMESTRING ; #'SB!IMPL::UNPARSE-LOGICAL-DIRECTORY ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-LOGICAL-DIRECTORY ; #'SB!IMPL::UNPARSE-LOGICAL-FILE ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-LOGICAL-FILE ; #'SB!IMPL::UNPARSE-LOGICAL-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-LOGICAL-NAMESTRING ; in: DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST ; (SB!IMPL::UNPARSE-PHYSICAL-PIECE SB!IMPL::DIR SB!IMPL::ESCAPE-CHAR) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-PHYSICAL-PIECE ; ; compilation unit finished ; Undefined functions: ; PARSE-LOGICAL-NAMESTRING UNPARSE-ENOUGH-NAMESTRING UNPARSE-LOGICAL-DIRECTORY UNPARSE-LOGICAL-FILE UNPARSE-LOGICAL-NAMESTRING UNPARSE-PHYSICAL-PIECE ; caught 6 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/pathname.lisp-obj-tmp written ; compilation finished in 0:00:01.611 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/host-pprint.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!PRETTY") ; x-compiling (DEF!STRUCT (PPRINT-DISPATCH-TABLE #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/host-pprint.lisp-obj-tmp written ; compilation finished in 0:00:00.058 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/lexenv.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (INLINE INTERNAL-MAKE-LEXENV)) ; x-compiling (DEF!STRUCT (LEXENV # ...) ...) ; x-compiling (DEFUN LEXENV-POLICY ...) ; x-compiling (DEFUN NULL-LEXENV-P ...) ; x-compiling (DEFUN COERCE-TO-LEXENV ...) ; x-compiling (DEFUN PRINT-LEXENV ...) ; x-compiling (DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/lexenv.lisp-obj-tmp written ; compilation finished in 0:00:00.133 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fndb.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN COERCE ...) ; x-compiling (DEFKNOWN LIST-TO-VECTOR* ...) ; x-compiling (DEFKNOWN VECTOR-TO-VECTOR* ...) ; x-compiling (DEFKNOWN TYPE-OF ...) ; x-compiling (DEFKNOWN (SB-XC:UPGRADED-COMPLEX-PART-TYPE SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE) ...) ; x-compiling (DEFKNOWN TYPEP ...) ; x-compiling (DEFKNOWN SUBTYPEP ...) ; x-compiling (DEFKNOWN (NULL SYMBOLP ...) ...) ; x-compiling (DEFKNOWN (EQ EQL) ...) ; x-compiling (DEFKNOWN (EQUAL EQUALP) ...) ; x-compiling (DEFKNOWN FIXNUM-MOD-P ...) ; x-compiling (SB-XC:DEFTYPE NAME-FOR-CLASS ...) ; x-compiling (DEFKNOWN CLASSOID-NAME ...) ; x-compiling (DEFKNOWN FIND-CLASSOID ...) ; x-compiling (DEFKNOWN CLASSOID-OF ...) ; x-compiling (DEFKNOWN LAYOUT-OF ...) ; x-compiling (DEFKNOWN COPY-STRUCTURE ...) ; x-compiling (DEFKNOWN (SYMBOL-VALUE) ...) ; x-compiling (DEFKNOWN (SYMBOL-FUNCTION) ...) ; x-compiling (DEFKNOWN BOUNDP ...) ; x-compiling (DEFKNOWN FBOUNDP ...) ; x-compiling (DEFKNOWN SPECIAL-OPERATOR-P ...) ; x-compiling (DEFKNOWN SET ...) ; x-compiling (DEFKNOWN FDEFINITION ...) ; x-compiling (DEFKNOWN %SET-FDEFINITION ...) ; x-compiling (DEFKNOWN MAKUNBOUND ...) ; x-compiling (DEFKNOWN FMAKUNBOUND ...) ; x-compiling (DEFKNOWN APPLY ...) ; x-compiling (DEFKNOWN FUNCALL ...) ; x-compiling (DEFKNOWN (MAPCAR MAPLIST) ...) ; x-compiling (DEFKNOWN (MAPCAN MAPCON) ...) ; x-compiling (DEFKNOWN (MAPC MAPL) ...) ; x-compiling (DEFKNOWN VALUES ...) ; x-compiling (DEFKNOWN VALUES-LIST ...) ; x-compiling (DEFKNOWN MACRO-FUNCTION ...) ; x-compiling (DEFKNOWN (MACROEXPAND MACROEXPAND-1 ...) ...) ; x-compiling (DEFKNOWN COMPILER-MACRO-FUNCTION ...) ; x-compiling (DEFKNOWN PROCLAIM ...) ; x-compiling (DEFKNOWN GET ...) ; x-compiling (DEFKNOWN SB!IMPL::GET3 ...) ; x-compiling (DEFKNOWN REMPROP ...) ; x-compiling (DEFKNOWN SYMBOL-PLIST ...) ; x-compiling (DEFKNOWN GETF ...) ; x-compiling (DEFKNOWN GET-PROPERTIES ...) ; x-compiling (DEFKNOWN SYMBOL-NAME ...) ; x-compiling (DEFKNOWN MAKE-SYMBOL ...) ; x-compiling (DEFKNOWN %MAKE-SYMBOL ...) ; x-compiling (DEFKNOWN COPY-SYMBOL ...) ; x-compiling (DEFKNOWN GENSYM ...) ; x-compiling (DEFKNOWN SYMBOL-PACKAGE ...) ; x-compiling (DEFKNOWN KEYWORDP ...) ; x-compiling (DEFKNOWN GENTEMP ...) ; x-compiling (DEFKNOWN MAKE-PACKAGE ...) ; x-compiling (DEFKNOWN FIND-PACKAGE ...) ; x-compiling (DEFKNOWN FIND-UNDELETED-PACKAGE-OR-LOSE ...) ; x-compiling (DEFKNOWN PACKAGE-NAME ...) ; x-compiling (DEFKNOWN PACKAGE-NICKNAMES ...) ; x-compiling (DEFKNOWN RENAME-PACKAGE ...) ; x-compiling (DEFKNOWN PACKAGE-USE-LIST ...) ; x-compiling (DEFKNOWN PACKAGE-USED-BY-LIST ...) ; x-compiling (DEFKNOWN PACKAGE-SHADOWING-SYMBOLS ...) ; x-compiling (DEFKNOWN LIST-ALL-PACKAGES ...) ; x-compiling (DEFKNOWN INTERN ...) ; x-compiling (DEFKNOWN FIND-SYMBOL ...) ; x-compiling (DEFKNOWN (EXPORT IMPORT) ...) ; x-compiling (DEFKNOWN UNINTERN ...) ; x-compiling (DEFKNOWN UNEXPORT ...) ; x-compiling (DEFKNOWN SHADOWING-IMPORT ...) ; x-compiling (DEFKNOWN SHADOW ...) ; x-compiling (DEFKNOWN (USE-PACKAGE UNUSE-PACKAGE) ...) ; x-compiling (DEFKNOWN FIND-ALL-SYMBOLS ...) ; x-compiling (DEFKNOWN ZEROP ...) ; x-compiling (DEFKNOWN (PLUSP MINUSP) ...) ; x-compiling (DEFKNOWN (ODDP EVENP) ...) ; x-compiling (DEFKNOWN (=) ...) ; x-compiling (DEFKNOWN (/=) ...) ; x-compiling (DEFKNOWN (< > ...) ...) ; x-compiling (DEFKNOWN (MAX MIN) ...) ; x-compiling (DEFKNOWN (+ *) ...) ; x-compiling (DEFKNOWN - ...) ; x-compiling (DEFKNOWN / ...) ; x-compiling (DEFKNOWN (1+ 1-) ...) ; x-compiling (DEFKNOWN CONJUGATE ...) ; x-compiling (DEFKNOWN GCD ...) ; x-compiling (DEFKNOWN LCM ...) ; x-compiling (DEFKNOWN EXP ...) ; x-compiling (DEFKNOWN EXPT ...) ; x-compiling (DEFKNOWN LOG ...) ; x-compiling (DEFKNOWN SQRT ...) ; x-compiling (DEFKNOWN ISQRT ...) ; x-compiling (DEFKNOWN (ABS PHASE ...) ...) ; x-compiling (DEFKNOWN CIS ...) ; x-compiling (DEFKNOWN (SIN COS) ...) ; x-compiling (DEFKNOWN ATAN ...) ; x-compiling (DEFKNOWN (TAN SINH ...) ...) ; x-compiling (DEFKNOWN (ASIN ACOS ...) ...) ; x-compiling (DEFKNOWN FLOAT ...) ; x-compiling (DEFKNOWN (RATIONAL) ...) ; x-compiling (DEFKNOWN (RATIONALIZE) ...) ; x-compiling (DEFKNOWN (NUMERATOR DENOMINATOR) ...) ; x-compiling (DEFKNOWN (FLOOR CEILING ...) ...) ; x-compiling (DEFKNOWN TRUNCATE ...) ; x-compiling (DEFKNOWN %MULTIPLY-HIGH ...) ; x-compiling (DEFKNOWN (MOD REM) ...) ; x-compiling (DEFKNOWN (FFLOOR FCEILING ...) ...) ; x-compiling (DEFKNOWN DECODE-FLOAT ...) ; x-compiling (DEFKNOWN SCALE-FLOAT ...) ; x-compiling (DEFKNOWN FLOAT-RADIX ...) ; x-compiling (DEFKNOWN FLOAT-SIGN ...) ; x-compiling (DEFKNOWN (FLOAT-DIGITS FLOAT-PRECISION) ...) ; x-compiling (DEFKNOWN INTEGER-DECODE-FLOAT ...) ; x-compiling (DEFKNOWN COMPLEX ...) ; x-compiling (DEFKNOWN (REALPART IMAGPART) ...) ; x-compiling (DEFKNOWN (LOGIOR LOGXOR ...) ...) ; x-compiling (DEFKNOWN (LOGNAND LOGNOR ...) ...) ; x-compiling (DEFKNOWN BOOLE ...) ; x-compiling (DEFKNOWN LOGNOT ...) ; x-compiling (DEFKNOWN LOGTEST ...) ; x-compiling (DEFKNOWN LOGBITP ...) ; x-compiling (DEFKNOWN ASH ...) ; x-compiling (DEFKNOWN %ASH/RIGHT ...) ; x-compiling (DEFKNOWN (LOGCOUNT INTEGER-LENGTH) ...) ; x-compiling (DEFKNOWN BYTE ...) ; x-compiling (DEFKNOWN (BYTE-SIZE BYTE-POSITION) ...) ; x-compiling (DEFKNOWN LDB ...) ; x-compiling (DEFKNOWN LDB-TEST ...) ; x-compiling (DEFKNOWN MASK-FIELD ...) ; x-compiling (DEFKNOWN DPB ...) ; x-compiling (DEFKNOWN DEPOSIT-FIELD ...) ; x-compiling (DEFKNOWN RANDOM ...) ; x-compiling (DEFKNOWN MAKE-RANDOM-STATE ...) ; x-compiling (DEFKNOWN RANDOM-STATE-P ...) ; x-compiling (DEFKNOWN (STANDARD-CHAR-P GRAPHIC-CHAR-P ...) ...) ; x-compiling (DEFKNOWN DIGIT-CHAR-P ...) ; x-compiling (DEFKNOWN (CHAR=) ...) ; x-compiling (DEFKNOWN (CHAR/= CHAR< ...) ...) ; x-compiling (DEFKNOWN (TWO-ARG-CHAR-EQUAL) ...) ; x-compiling (DEFKNOWN (TWO-ARG-CHAR-NOT-EQUAL TWO-ARG-CHAR-LESSP ...) ...) ; x-compiling (DEFKNOWN CHAR-EQUAL-CONSTANT ...) ; x-compiling (DEFKNOWN CHARACTER ...) ; x-compiling (DEFKNOWN CHAR-CODE ...) ; x-compiling (DEFKNOWN (CHAR-UPCASE CHAR-DOWNCASE) ...) ; x-compiling (DEFKNOWN DIGIT-CHAR ...) ; x-compiling (DEFKNOWN CHAR-INT ...) ; x-compiling (DEFKNOWN CHAR-NAME ...) ; x-compiling (DEFKNOWN NAME-CHAR ...) ; x-compiling (DEFKNOWN CODE-CHAR ...) ; x-compiling (DEFKNOWN ELT ...) ; x-compiling (DEFKNOWN SUBSEQ ...) ; x-compiling (DEFKNOWN COPY-SEQ ...) ; x-compiling (DEFKNOWN LENGTH ...) ; x-compiling (DEFKNOWN REVERSE ...) ; x-compiling (DEFKNOWN NREVERSE ...) ; x-compiling (DEFKNOWN MAKE-SEQUENCE ...) ; x-compiling (DEFKNOWN CONCATENATE ...) ; x-compiling (DEFKNOWN %CONCATENATE-TO-STRING ...) ; x-compiling (DEFKNOWN %CONCATENATE-TO-BASE-STRING ...) ; x-compiling (DEFKNOWN (MAP %MAP) ...) ; x-compiling (DEFKNOWN %MAP-FOR-EFFECT-ARITY-1 ...) ; x-compiling (DEFKNOWN %MAP-TO-LIST-ARITY-1 ...) ; x-compiling (DEFKNOWN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...) ; x-compiling (DEFKNOWN MAP-INTO ...) ; x-compiling (DEFKNOWN SOME ...) ; x-compiling (DEFKNOWN (EVERY NOTANY ...) ...) ; x-compiling (DEFKNOWN REDUCE ...) ; x-compiling (DEFKNOWN FILL ...) ; x-compiling (DEFKNOWN REPLACE ...) ; x-compiling (DEFKNOWN REMOVE ...) ; x-compiling (DEFKNOWN SUBSTITUTE ...) ; x-compiling (DEFKNOWN (REMOVE-IF REMOVE-IF-NOT) ...) ; x-compiling (DEFKNOWN (SUBSTITUTE-IF SUBSTITUTE-IF-NOT) ...) ; x-compiling (DEFKNOWN DELETE ...) ; x-compiling (DEFKNOWN NSUBSTITUTE ...) ; x-compiling (DEFKNOWN (DELETE-IF DELETE-IF-NOT) ...) ; x-compiling (DEFKNOWN (NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT) ...) ; x-compiling (DEFKNOWN REMOVE-DUPLICATES ...) ; x-compiling (DEFKNOWN DELETE-DUPLICATES ...) ; x-compiling (DEFKNOWN FIND ...) ; x-compiling (DEFKNOWN (FIND-IF FIND-IF-NOT) ...) ; x-compiling (DEFKNOWN POSITION ...) ; x-compiling (DEFKNOWN (POSITION-IF POSITION-IF-NOT) ...) ; x-compiling (DEFKNOWN COUNT ...) ; x-compiling (DEFKNOWN (COUNT-IF COUNT-IF-NOT) ...) ; x-compiling (DEFKNOWN (MISMATCH SEARCH) ...) ; x-compiling (DEFKNOWN (STABLE-SORT SORT) ...) ; x-compiling (DEFKNOWN SB!IMPL::STABLE-SORT-LIST ...) ; x-compiling (DEFKNOWN SB!IMPL::SORT-VECTOR ...) ; x-compiling (DEFKNOWN SB!IMPL::STABLE-SORT-VECTOR ...) ; x-compiling (DEFKNOWN SB!IMPL::STABLE-SORT-SIMPLE-VECTOR ...) ; x-compiling (DEFKNOWN MERGE ...) ; x-compiling (DEFKNOWN READ-SEQUENCE ...) ; x-compiling (DEFKNOWN WRITE-SEQUENCE ...) ; x-compiling (DEFKNOWN (CAR CDR ...) ...) ; x-compiling (DEFKNOWN (CAAR CADR ...) ...) ; x-compiling (DEFKNOWN CONS ...) ; x-compiling (DEFKNOWN TREE-EQUAL ...) ; x-compiling (DEFKNOWN ENDP ...) ; x-compiling (DEFKNOWN LIST-LENGTH ...) ; x-compiling (DEFKNOWN NTH ...) ; x-compiling (DEFKNOWN NTHCDR ...) ; x-compiling (DEFKNOWN LAST ...) ; x-compiling (DEFKNOWN %LAST0 ...) ; x-compiling (DEFKNOWN %LAST1 ...) ; x-compiling (DEFKNOWN %LASTN/FIXNUM ...) ; x-compiling (DEFKNOWN %LASTN/BIGNUM ...) ; x-compiling (DEFKNOWN LIST ...) ; x-compiling (DEFKNOWN LIST* ...) ; x-compiling (DEFKNOWN MAKE-LIST ...) ; x-compiling (DEFKNOWN SB!IMPL::BACKQ-LIST ...) ; x-compiling (DEFKNOWN SB!IMPL::BACKQ-LIST* ...) ; x-compiling (DEFKNOWN SB!IMPL::BACKQ-APPEND ...) ; x-compiling (DEFKNOWN SB!IMPL::BACKQ-NCONC ...) ; x-compiling (DEFKNOWN SB!IMPL::BACKQ-CONS ...) ; x-compiling (DEFKNOWN SB!IMPL::BACKQ-VECTOR ...) ; x-compiling (DEFKNOWN APPEND ...) ; x-compiling (DEFKNOWN SB!IMPL::APPEND2 ...) ; x-compiling (DEFKNOWN COPY-LIST ...) ; x-compiling (DEFKNOWN COPY-ALIST ...) ; x-compiling (DEFKNOWN COPY-TREE ...) ; x-compiling (DEFKNOWN REVAPPEND ...) ; x-compiling (DEFKNOWN NCONC ...) ; x-compiling (DEFKNOWN NRECONC ...) ; x-compiling (DEFKNOWN BUTLAST ...) ; x-compiling (DEFKNOWN NBUTLAST ...) ; x-compiling (DEFKNOWN LDIFF ...) ; x-compiling (DEFKNOWN (RPLACA RPLACD) ...) ; x-compiling (DEFKNOWN SUBST ...) ; x-compiling (DEFKNOWN NSUBST ...) ; x-compiling (DEFKNOWN (SUBST-IF SUBST-IF-NOT) ...) ; x-compiling (DEFKNOWN (NSUBST-IF NSUBST-IF-NOT) ...) ; x-compiling (DEFKNOWN SUBLIS ...) ; x-compiling (DEFKNOWN NSUBLIS ...) ; x-compiling (DEFKNOWN MEMBER ...) ; x-compiling (DEFKNOWN (MEMBER-IF MEMBER-IF-NOT) ...) ; x-compiling (DEFKNOWN TAILP ...) ; x-compiling (DEFKNOWN ADJOIN ...) ; x-compiling (DEFKNOWN (UNION INTERSECTION ...) ...) ; x-compiling (DEFKNOWN (NUNION NINTERSECTION ...) ...) ; x-compiling (DEFKNOWN SUBSETP ...) ; x-compiling (DEFKNOWN ACONS ...) ; x-compiling (DEFKNOWN PAIRLIS ...) ; x-compiling (DEFKNOWN (RASSOC ASSOC) ...) ; x-compiling (DEFKNOWN (ASSOC-IF-NOT ASSOC-IF ...) ...) ; x-compiling (DEFKNOWN (MEMQ ASSQ) ...) ; x-compiling (DEFKNOWN DELQ ...) ; x-compiling (DEFKNOWN MAKE-HASH-TABLE ...) ; x-compiling (DEFKNOWN HASH-TABLE-P ...) ; x-compiling (DEFKNOWN GETHASH ...) ; x-compiling (DEFKNOWN SB!IMPL::GETHASH3 ...) ; x-compiling (DEFKNOWN %PUTHASH ...) ; x-compiling (DEFKNOWN REMHASH ...) ; x-compiling (DEFKNOWN MAPHASH ...) ; x-compiling (DEFKNOWN CLRHASH ...) ; x-compiling (DEFKNOWN HASH-TABLE-COUNT ...) ; x-compiling (DEFKNOWN HASH-TABLE-REHASH-SIZE ...) ; x-compiling (DEFKNOWN HASH-TABLE-REHASH-THRESHOLD ...) ; x-compiling (DEFKNOWN HASH-TABLE-SIZE ...) ; x-compiling (DEFKNOWN HASH-TABLE-TEST ...) ; x-compiling (DEFKNOWN SXHASH ...) ; x-compiling (DEFKNOWN PSXHASH ...) ; x-compiling (DEFKNOWN HASH-TABLE-EQUALP ...) ; x-compiling (DEFKNOWN MAKE-ARRAY ...) ; x-compiling (DEFKNOWN %MAKE-ARRAY ...) ; x-compiling (DEFKNOWN VECTOR ...) ; x-compiling (DEFKNOWN AREF ...) ; x-compiling (DEFKNOWN ROW-MAJOR-AREF ...) ; x-compiling (DEFKNOWN ARRAY-ELEMENT-TYPE ...) ; x-compiling (DEFKNOWN ARRAY-RANK ...) ; x-compiling (DEFKNOWN ARRAY-DIMENSION ...) ; x-compiling (DEFKNOWN ARRAY-DIMENSIONS ...) ; x-compiling (DEFKNOWN ARRAY-IN-BOUNDS-P ...) ; x-compiling (DEFKNOWN ARRAY-ROW-MAJOR-INDEX ...) ; x-compiling (DEFKNOWN ARRAY-TOTAL-SIZE ...) ; x-compiling (DEFKNOWN ADJUSTABLE-ARRAY-P ...) ; x-compiling (DEFKNOWN SVREF ...) ; x-compiling (DEFKNOWN BIT ...) ; x-compiling (DEFKNOWN SBIT ...) ; x-compiling (DEFKNOWN (BIT-AND BIT-IOR ...) ...) ; x-compiling (DEFKNOWN BIT-NOT ...) ; x-compiling (DEFKNOWN BIT-VECTOR-= ...) ; x-compiling (DEFKNOWN ARRAY-HAS-FILL-POINTER-P ...) ; x-compiling (DEFKNOWN FILL-POINTER ...) ; x-compiling (DEFKNOWN SB!IMPL::FILL-POINTER-ERROR ...) ; x-compiling (DEFKNOWN VECTOR-PUSH ...) ; x-compiling (DEFKNOWN VECTOR-PUSH-EXTEND ...) ; x-compiling (DEFKNOWN VECTOR-POP ...) ; x-compiling (DEFKNOWN ADJUST-ARRAY ...) ; x-compiling (DEFKNOWN CHAR ...) ; x-compiling (DEFKNOWN SCHAR ...) ; x-compiling (DEFKNOWN (STRING= STRING-EQUAL) ...) ; x-compiling (DEFKNOWN (STRING< STRING> ...) ...) ; x-compiling (DEFKNOWN MAKE-STRING ...) ; x-compiling (DEFKNOWN (STRING-TRIM STRING-LEFT-TRIM ...) ...) ; x-compiling (DEFKNOWN (STRING-UPCASE STRING-DOWNCASE ...) ...) ; x-compiling (DEFKNOWN (NSTRING-UPCASE NSTRING-DOWNCASE ...) ...) ; x-compiling (DEFKNOWN STRING ...) ; x-compiling (DEFKNOWN (STRING<* STRING>* ...) ...) ; x-compiling (DEFKNOWN STRING=* ...) ; x-compiling (DEFKNOWN EVAL ...) ; x-compiling (DEFKNOWN CONSTANTP ...) ; x-compiling (DEFKNOWN MAKE-SYNONYM-STREAM ...) ; x-compiling (DEFKNOWN MAKE-BROADCAST-STREAM ...) ; x-compiling (DEFKNOWN MAKE-CONCATENATED-STREAM ...) ; x-compiling (DEFKNOWN MAKE-TWO-WAY-STREAM ...) ; x-compiling (DEFKNOWN MAKE-ECHO-STREAM ...) ; x-compiling (DEFKNOWN MAKE-STRING-INPUT-STREAM ...) ; x-compiling (DEFKNOWN MAKE-STRING-OUTPUT-STREAM ...) ; x-compiling (DEFKNOWN GET-OUTPUT-STREAM-STRING ...) ; x-compiling (DEFKNOWN STREAMP ...) ; x-compiling (DEFKNOWN STREAM-ELEMENT-TYPE ...) ; x-compiling (DEFKNOWN STREAM-EXTERNAL-FORMAT ...) ; x-compiling (DEFKNOWN (OUTPUT-STREAM-P INPUT-STREAM-P) ...) ; x-compiling (DEFKNOWN OPEN-STREAM-P ...) ; x-compiling (DEFKNOWN CLOSE ...) ; x-compiling (DEFKNOWN FILE-STRING-LENGTH ...) ; x-compiling (DEFKNOWN COPY-READTABLE ...) ; x-compiling (DEFKNOWN READTABLEP ...) ; x-compiling (DEFKNOWN SET-SYNTAX-FROM-CHAR ...) ; x-compiling (DEFKNOWN SET-MACRO-CHARACTER ...) ; x-compiling (DEFKNOWN GET-MACRO-CHARACTER ...) ; x-compiling (DEFKNOWN MAKE-DISPATCH-MACRO-CHARACTER ...) ; x-compiling (DEFKNOWN SET-DISPATCH-MACRO-CHARACTER ...) ; x-compiling (DEFKNOWN GET-DISPATCH-MACRO-CHARACTER ...) ; x-compiling (DEFKNOWN COPY-PPRINT-DISPATCH ...) ; x-compiling (DEFKNOWN PPRINT-DISPATCH ...) ; x-compiling (DEFKNOWN (PPRINT-FILL PPRINT-LINEAR) ...) ; x-compiling (DEFKNOWN PPRINT-TABULAR ...) ; x-compiling (DEFKNOWN PPRINT-INDENT ...) ; x-compiling (DEFKNOWN PPRINT-NEWLINE ...) ; x-compiling (DEFKNOWN PPRINT-TAB ...) ; x-compiling (DEFKNOWN SET-PPRINT-DISPATCH ...) ; x-compiling (DEFKNOWN (READ READ-PRESERVING-WHITESPACE) ...) ; x-compiling (DEFKNOWN READ-CHAR ...) ; x-compiling (DEFKNOWN READ-CHAR-NO-HANG ...) ; x-compiling (DEFKNOWN READ-DELIMITED-LIST ...) ; x-compiling (DEFKNOWN READ-LINE ...) ; x-compiling (DEFKNOWN UNREAD-CHAR ...) ; x-compiling (DEFKNOWN PEEK-CHAR ...) ; x-compiling (DEFKNOWN LISTEN ...) ; x-compiling (DEFKNOWN CLEAR-INPUT ...) ; x-compiling (DEFKNOWN READ-FROM-STRING ...) ; x-compiling (DEFKNOWN PARSE-INTEGER ...) ; x-compiling (DEFKNOWN READ-BYTE ...) ; x-compiling (DEFKNOWN (PRIN1 PRINT ...) ...) ; x-compiling (DEFKNOWN (PPRINT) ...) ; x-compiling (DEFFROB WRITE ...) ; x-compiling (DEFFROB WRITE-TO-STRING ...) ; x-compiling (DEFKNOWN (PRIN1-TO-STRING PRINC-TO-STRING) ...) ; x-compiling (DEFKNOWN WRITE-CHAR ...) ; x-compiling (DEFKNOWN (WRITE-STRING WRITE-LINE) ...) ; x-compiling (DEFKNOWN (TERPRI FINISH-OUTPUT ...) ...) ; x-compiling (DEFKNOWN FRESH-LINE ...) ; x-compiling (DEFKNOWN WRITE-BYTE ...) ; x-compiling (DEFKNOWN FORMAT ...) ; x-compiling (DEFKNOWN (Y-OR-N-P YES-OR-NO-P) ...) ; x-compiling (DEFKNOWN WILD-PATHNAME-P ...) ; x-compiling (DEFKNOWN PATHNAME-MATCH-P ...) ; x-compiling (DEFKNOWN TRANSLATE-PATHNAME ...) ; x-compiling (DEFKNOWN LOGICAL-PATHNAME ...) ; x-compiling (DEFKNOWN TRANSLATE-LOGICAL-PATHNAME ...) ; x-compiling (DEFKNOWN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...) ; x-compiling (DEFKNOWN LOGICAL-PATHNAME-TRANSLATIONS ...) ; x-compiling (DEFKNOWN PATHNAME ...) ; x-compiling (DEFKNOWN TRUENAME ...) ; x-compiling (DEFKNOWN PARSE-NAMESTRING ...) ; x-compiling (DEFKNOWN MERGE-PATHNAMES ...) ; x-compiling (DEFKNOWN MAKE-PATHNAME ...) ; x-compiling (DEFKNOWN PATHNAMEP ...) ; x-compiling (DEFKNOWN PATHNAME-HOST ...) ; x-compiling (DEFKNOWN PATHNAME-DEVICE ...) ; x-compiling (DEFKNOWN PATHNAME-DIRECTORY ...) ; x-compiling (DEFKNOWN PATHNAME-NAME ...) ; x-compiling (DEFKNOWN PATHNAME-TYPE ...) ; x-compiling (DEFKNOWN PATHNAME-VERSION ...) ; x-compiling (DEFKNOWN PATHNAME= ...) ; x-compiling (DEFKNOWN (NAMESTRING FILE-NAMESTRING ...) ...) ; x-compiling (DEFKNOWN ENOUGH-NAMESTRING ...) ; x-compiling (DEFKNOWN USER-HOMEDIR-PATHNAME ...) ; x-compiling (DEFKNOWN OPEN ...) ; x-compiling (DEFKNOWN RENAME-FILE ...) ; x-compiling (DEFKNOWN DELETE-FILE ...) ; x-compiling (DEFKNOWN PROBE-FILE ...) ; x-compiling (DEFKNOWN FILE-WRITE-DATE ...) ; x-compiling (DEFKNOWN FILE-AUTHOR ...) ; x-compiling (DEFKNOWN FILE-POSITION ...) ; x-compiling (DEFKNOWN FILE-LENGTH ...) ; x-compiling (DEFKNOWN LOAD ...) ; x-compiling (DEFKNOWN DIRECTORY ...) ; x-compiling (DEFKNOWN ERROR ...) ; x-compiling (DEFKNOWN CERROR ...) ; x-compiling (DEFKNOWN INVALID-METHOD-ERROR ...) ; x-compiling (DEFKNOWN METHOD-COMBINATION-ERROR ...) ; x-compiling (DEFKNOWN SIGNAL ...) ; x-compiling (DEFKNOWN WARN ...) ; x-compiling (DEFKNOWN INVOKE-DEBUGGER ...) ; x-compiling (DEFKNOWN BREAK ...) ; x-compiling (DEFKNOWN MAKE-CONDITION ...) ; x-compiling (DEFKNOWN COMPUTE-RESTARTS ...) ; x-compiling (DEFKNOWN FIND-RESTART ...) ; x-compiling (DEFKNOWN INVOKE-RESTART ...) ; x-compiling (DEFKNOWN INVOKE-RESTART-INTERACTIVELY ...) ; x-compiling (DEFKNOWN RESTART-NAME ...) ; x-compiling (DEFKNOWN (ABORT MUFFLE-WARNING) ...) ; x-compiling (DEFKNOWN CONTINUE ...) ; x-compiling (DEFKNOWN (STORE-VALUE USE-VALUE) ...) ; x-compiling (DEFKNOWN SB!IMPL::%FAILED-AVER ...) ; x-compiling (DEFKNOWN BUG ...) ; x-compiling (DEFKNOWN SIMPLE-READER-ERROR ...) ; x-compiling (DEFKNOWN READER-EOF-ERROR ...) ; x-compiling (DEFKNOWN COMPILE ...) ; x-compiling (DEFKNOWN COMPILE-FILE ...) ; x-compiling (DEFKNOWN (COMPILE-FILE-PATHNAME) ...) ; x-compiling (DEFKNOWN DISASSEMBLE ...) ; x-compiling (DEFKNOWN DESCRIBE ...) ; x-compiling (DEFKNOWN FUNCTION-LAMBDA-EXPRESSION ...) ; x-compiling (DEFKNOWN INSPECT ...) ; x-compiling (DEFKNOWN ROOM ...) ; x-compiling (DEFKNOWN ED ...) ; x-compiling (DEFKNOWN DRIBBLE ...) ; x-compiling (DEFKNOWN APROPOS ...) ; x-compiling (DEFKNOWN APROPOS-LIST ...) ; x-compiling (DEFKNOWN GET-DECODED-TIME ...) ; x-compiling (DEFKNOWN GET-UNIVERSAL-TIME ...) ; x-compiling (DEFKNOWN DECODE-UNIVERSAL-TIME ...) ; x-compiling (DEFKNOWN ENCODE-UNIVERSAL-TIME ...) ; x-compiling (DEFKNOWN (GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME) ...) ; x-compiling (DEFKNOWN SLEEP ...) ; x-compiling (DEFKNOWN CALL-WITH-TIMING ...) ; x-compiling (DEFKNOWN (LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION) ...) ; x-compiling (DEFKNOWN (MACHINE-TYPE MACHINE-VERSION ...) ...) ; x-compiling (DEFKNOWN IDENTITY ...) ; x-compiling (DEFKNOWN CONSTANTLY ...) ; x-compiling (DEFKNOWN COMPLEMENT ...) ; x-compiling (DEFKNOWN SYMBOL-GLOBAL-VALUE ...) ; x-compiling (DEFKNOWN SET-SYMBOL-GLOBAL-VALUE ...) ; x-compiling (DEFKNOWN GET-BYTES-CONSED ...) ; x-compiling (DEFKNOWN MASK-SIGNED-FIELD ...) ; x-compiling (DEFKNOWN ARRAY-STORAGE-VECTOR ...) ; x-compiling (DEFKNOWN %REST-VALUES ...) ; x-compiling (DEFKNOWN %REST-REF ...) ; x-compiling (DEFKNOWN %REST-LENGTH ...) ; x-compiling (DEFKNOWN %REST-NULL ...) ; x-compiling (DEFKNOWN %REST-TRUE ...) ; x-compiling (DEFKNOWN %UNARY-TRUNCATE/SINGLE-FLOAT ...) ; x-compiling (DEFKNOWN %UNARY-TRUNCATE/DOUBLE-FLOAT ...) ; x-compiling (DEFKNOWN %TYPEP ...) ; x-compiling (DEFKNOWN %INSTANCE-TYPEP ...) ; x-compiling (DEFKNOWN %TYPEP-WRAPPER ...) ; x-compiling (DEFKNOWN %CLEANUP-POINT ...) ; x-compiling (DEFKNOWN %SPECIAL-BIND ...) ; x-compiling (DEFKNOWN %SPECIAL-UNBIND ...) ; x-compiling (DEFKNOWN %LISTIFY-REST-ARGS ...) ; x-compiling (DEFKNOWN %MORE-ARG-CONTEXT ...) ; x-compiling (DEFKNOWN %MORE-ARG ...) ; x-compiling (DEFKNOWN %MORE-KW-ARG ...) ; x-compiling (DEFKNOWN %MORE-ARG-VALUES ...) ; x-compiling (DEFKNOWN %VERIFY-ARG-COUNT ...) ; x-compiling (DEFKNOWN %ARG-COUNT-ERROR ...) ; x-compiling (DEFKNOWN %UNKNOWN-VALUES ...) ; x-compiling (DEFKNOWN %CATCH ...) ; x-compiling (DEFKNOWN %UNWIND-PROTECT ...) ; x-compiling (DEFKNOWN (%CATCH-BREAKUP %UNWIND-PROTECT-BREAKUP) ...) ; x-compiling (DEFKNOWN %LEXICAL-EXIT-BREAKUP ...) ; x-compiling (DEFKNOWN %CONTINUE-UNWIND ...) ; x-compiling (DEFKNOWN %THROW ...) ; x-compiling (DEFKNOWN %NLX-ENTRY ...) ; x-compiling (DEFKNOWN %%PRIMITIVE ...) ; x-compiling (DEFKNOWN %POP-VALUES ...) ; x-compiling (DEFKNOWN %NIP-VALUES ...) ; x-compiling (DEFKNOWN %ALLOCATE-CLOSURES ...) ; x-compiling (DEFKNOWN %TYPE-CHECK-ERROR ...) ; x-compiling (DEFKNOWN %TYPE-CHECK-ERROR/C ...) ; x-compiling (DEFKNOWN %COMPILE-TIME-TYPE-ERROR ...) ; x-compiling (DEFKNOWN CASE-FAILURE ...) ; x-compiling (DEFKNOWN %ODD-KEY-ARGS-ERROR ...) ; x-compiling (DEFKNOWN %UNKNOWN-KEY-ARG-ERROR ...) ; x-compiling (DEFKNOWN (%LDB %MASK-FIELD) ...) ; x-compiling (DEFKNOWN (%DPB %DEPOSIT-FIELD) ...) ; x-compiling (DEFKNOWN %NEGATE ...) ; x-compiling (DEFKNOWN %CHECK-BOUND ...) ; x-compiling (DEFKNOWN DATA-VECTOR-REF ...) ; x-compiling (DEFKNOWN DATA-VECTOR-REF-WITH-OFFSET ...) ; x-compiling (DEFKNOWN DATA-NIL-VECTOR-REF ...) ; x-compiling (DEFKNOWN DATA-VECTOR-SET ...) ; x-compiling (DEFKNOWN DATA-VECTOR-SET-WITH-OFFSET ...) ; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF ...) ; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET ...) ; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...) ; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...) ; x-compiling (DEFKNOWN %CALLER-FRAME ...) ; x-compiling (DEFKNOWN %CALLER-PC ...) ; x-compiling (DEFKNOWN %WITH-ARRAY-DATA ...) ; x-compiling (DEFKNOWN %WITH-ARRAY-DATA/FP ...) ; x-compiling (DEFKNOWN %SET-SYMBOL-PACKAGE ...) ; x-compiling (DEFKNOWN %COERCE-NAME-TO-FUN ...) ; x-compiling (DEFKNOWN %COERCE-CALLABLE-TO-FUN ...) ; x-compiling (DEFKNOWN ARRAY-BOUNDING-INDICES-BAD-ERROR ...) ; x-compiling (DEFKNOWN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...) ; x-compiling (DEFKNOWN %FIND-POSITION ...) ; x-compiling (DEFKNOWN (%FIND-POSITION-IF %FIND-POSITION-IF-NOT) ...) ; x-compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-TEST ...) ; x-compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-KEY ...) ; x-compiling (DEFKNOWN (%ADJOIN %ADJOIN-EQ) ...) ; x-compiling (DEFKNOWN (%MEMBER %MEMBER-EQ ...) ...) ; x-compiling (DEFKNOWN (%ADJOIN-KEY %ADJOIN-KEY-EQ) ...) ; x-compiling (DEFKNOWN (%MEMBER-KEY %MEMBER-KEY-EQ ...) ...) ; x-compiling (DEFKNOWN (%ASSOC-IF %ASSOC-IF-NOT ...) ...) ; x-compiling (DEFKNOWN (%ASSOC-IF-KEY %ASSOC-IF-NOT-KEY ...) ...) ; x-compiling (DEFKNOWN (%ADJOIN-TEST %ADJOIN-TEST-NOT) ...) ; x-compiling (DEFKNOWN (%MEMBER-TEST %MEMBER-TEST-NOT ...) ...) ; x-compiling (DEFKNOWN (%ADJOIN-KEY-TEST %ADJOIN-KEY-TEST-NOT) ...) ; x-compiling (DEFKNOWN (%MEMBER-KEY-TEST %MEMBER-KEY-TEST-NOT ...) ...) ; x-compiling (DEFKNOWN %CHECK-VECTOR-SEQUENCE-BOUNDS ...) ; x-compiling (DEFKNOWN ARG-COUNT-ERROR ...) ; x-compiling (DEFKNOWN (SETF AREF) ...) ; x-compiling (DEFKNOWN %SET-ROW-MAJOR-AREF ...) ; x-compiling (DEFKNOWN (%RPLACA %RPLACD) ...) ; x-compiling (DEFKNOWN %PUT ...) ; x-compiling (DEFKNOWN %SETELT ...) ; x-compiling (DEFKNOWN %SVSET ...) ; x-compiling (DEFKNOWN (SETF BIT) ...) ; x-compiling (DEFKNOWN (SETF SBIT) ...) ; x-compiling (DEFKNOWN %CHARSET ...) ; x-compiling (DEFKNOWN %SCHARSET ...) ; x-compiling (DEFKNOWN %SET-SYMBOL-VALUE ...) ; x-compiling (DEFKNOWN (SETF SYMBOL-FUNCTION) ...) ; x-compiling (DEFKNOWN %SET-SYMBOL-PLIST ...) ; x-compiling (DEFKNOWN %SETNTH ...) ; x-compiling (DEFKNOWN %SET-FILL-POINTER ...) ; x-compiling (DEFKNOWN SB!VM::TOUCH-OBJECT ...) ; x-compiling (DEFKNOWN FOREIGN-SYMBOL-DATAREF-SAP ...) ; x-compiling (DEFKNOWN FOREIGN-SYMBOL-SAP ...) ; x-compiling (DEFKNOWN FOREIGN-SYMBOL-ADDRESS ...) ; x-compiling (DEFKNOWN %FUN-NAME ...) ; x-compiling (DEFKNOWN (SETF %FUN-NAME) ...) ; x-compiling (DEFKNOWN POLICY-QUALITY ...) ; x-compiling (DEFKNOWN COMPILER-ERROR ...) ; x-compiling (DEFKNOWN (COMPILER-WARN COMPILER-STYLE-WARN) ...) ; x-compiling (DEFKNOWN (COMPILER-NOTIFY MAYBE-COMPILER-NOTIFY) ...) ; x-compiling (DEFKNOWN STYLE-WARN ...) ; x-compiling (DEFKNOWN COERCE-TO-CONDITION ...) ; x-compiling (DEFKNOWN COERCE-SYMBOL-TO-FUN ...) ; x-compiling (DEFKNOWN SC-NUMBER-OR-LOSE ...) ; x-compiling (DEFKNOWN SB!VM:%COMPILER-BARRIER ...) ; x-compiling (DEFKNOWN SB!VM:%MEMORY-BARRIER ...) ; x-compiling (DEFKNOWN SB!VM:%READ-BARRIER ...) ; x-compiling (DEFKNOWN SB!VM:%WRITE-BARRIER ...) ; x-compiling (DEFKNOWN SB!VM:%DATA-DEPENDENCY-BARRIER ...) ; x-compiling (DEFKNOWN %COMPARE-AND-SWAP-SVREF ...) ; x-compiling (DEFKNOWN %COMPARE-AND-SWAP-INSTANCE-REF ...) ; x-compiling (DEFKNOWN %COMPARE-AND-SWAP-SYMBOL-VALUE ...) ; x-compiling (DEFKNOWN SPIN-LOOP-HINT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/fndb.lisp-obj-tmp written ; compilation finished in 0:00:00.275 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-fndb.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN (FIXNUMP BIGNUMP ...) ...) ; x-compiling (DEFKNOWN (VECTOR-SINGLE-FLOAT-P VECTOR-DOUBLE-FLOAT-P ...) ...) ; x-compiling (DEFKNOWN %OTHER-POINTER-P ...) ; x-compiling (DEFKNOWN %OTHER-POINTER-SUBTYPE-P ...) ; x-compiling (DEFKNOWN POINTER-HASH ...) ; x-compiling (DEFKNOWN %SP-STRING-COMPARE ...) ; x-compiling (DEFKNOWN %SXHASH-SIMPLE-STRING ...) ; x-compiling (DEFKNOWN %SXHASH-SIMPLE-SUBSTRING ...) ; x-compiling (DEFKNOWN SYMBOL-HASH ...) ; x-compiling (DEFKNOWN %SET-SYMBOL-HASH ...) ; x-compiling (DEFKNOWN SYMBOL-INFO-VECTOR ...) ; x-compiling (DEFKNOWN INITIALIZE-VECTOR ...) ; x-compiling (DEFKNOWN VECTOR-FILL* ...) ; x-compiling (DEFKNOWN VECTOR-LENGTH ...) ; x-compiling (DEFKNOWN VECTOR-SAP ...) ; x-compiling (DEFKNOWN LOWTAG-OF ...) ; x-compiling (DEFKNOWN WIDETAG-OF ...) ; x-compiling (DEFKNOWN (GET-HEADER-DATA GET-CLOSURE-LENGTH) ...) ; x-compiling (DEFKNOWN SET-HEADER-DATA ...) ; x-compiling (DEFKNOWN %ARRAY-DIMENSION ...) ; x-compiling (DEFKNOWN %SET-ARRAY-DIMENSION ...) ; x-compiling (DEFKNOWN %ARRAY-RANK ...) ; x-compiling (DEFKNOWN %MAKE-INSTANCE ...) ; x-compiling (DEFKNOWN %MAKE-STRUCTURE-INSTANCE ...) ; x-compiling (DEFKNOWN %INSTANCE-LAYOUT ...) ; x-compiling (DEFKNOWN %SET-INSTANCE-LAYOUT ...) ; x-compiling (DEFKNOWN %INSTANCE-LENGTH ...) ; x-compiling (DEFKNOWN %INSTANCE-REF ...) ; x-compiling (DEFKNOWN %INSTANCE-SET ...) ; x-compiling (DEFKNOWN %LAYOUT-INVALID-ERROR ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/WORD ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/WORD ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/SINGLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/SINGLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/DOUBLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/DOUBLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-ATOMIC-INCF/WORD ...) ; x-compiling (DEFKNOWN %ARRAY-ATOMIC-INCF/WORD ...) ; x-compiling (DEFKNOWN %VECTOR-RAW-BITS ...) ; x-compiling (DEFKNOWN (%SET-VECTOR-RAW-BITS) ...) ; x-compiling (DEFKNOWN ALLOCATE-VECTOR ...) ; x-compiling (DEFKNOWN MAKE-ARRAY-HEADER ...) ; x-compiling (DEFKNOWN MAKE-WEAK-POINTER ...) ; x-compiling (DEFKNOWN %MAKE-COMPLEX ...) ; x-compiling (DEFKNOWN %MAKE-RATIO ...) ; x-compiling (DEFKNOWN MAKE-VALUE-CELL ...) ; x-compiling (DEFKNOWN SIMD-PACK-P ...) ; x-compiling (DEFKNOWN %SIMD-PACK-TAG ...) ; x-compiling (DEFKNOWN %MAKE-SIMD-PACK ...) ; x-compiling (DEFKNOWN %MAKE-SIMD-PACK-DOUBLE ...) ; x-compiling (DEFKNOWN %MAKE-SIMD-PACK-SINGLE ...) ; x-compiling (DEFKNOWN %MAKE-SIMD-PACK-UB32 ...) ; x-compiling (DEFKNOWN %MAKE-SIMD-PACK-UB64 ...) ; x-compiling (DEFKNOWN (%SIMD-PACK-LOW %SIMD-PACK-HIGH) ...) ; x-compiling (DEFKNOWN %SIMD-PACK-UB32S ...) ; x-compiling (DEFKNOWN %SIMD-PACK-UB64S ...) ; x-compiling (DEFKNOWN %SIMD-PACK-SINGLES ...) ; x-compiling (DEFKNOWN %SIMD-PACK-DOUBLES ...) ; x-compiling (DEFKNOWN (DYNAMIC-SPACE-FREE-POINTER BINDING-STACK-POINTER-SAP ...) ...) ; x-compiling (DEFKNOWN ENSURE-SYMBOL-TLS-INDEX ...) ; x-compiling (DEFKNOWN CURRENT-SP ...) ; x-compiling (DEFKNOWN CURRENT-FP ...) ; x-compiling (DEFKNOWN STACK-REF ...) ; x-compiling (DEFKNOWN %SET-STACK-REF ...) ; x-compiling (DEFKNOWN LRA-CODE-HEADER ...) ; x-compiling (DEFKNOWN FUN-CODE-HEADER ...) ; x-compiling (DEFKNOWN %MAKE-LISP-OBJ ...) ; x-compiling (DEFKNOWN GET-LISP-OBJ-ADDRESS ...) ; x-compiling (DEFKNOWN FUN-WORD-OFFSET ...) ; x-compiling (DEFKNOWN WORD-LOGICAL-NOT ...) ; x-compiling (DEFKNOWN (WORD-LOGICAL-AND WORD-LOGICAL-NAND ...) ...) ; x-compiling (DEFKNOWN (SHIFT-TOWARDS-START SHIFT-TOWARDS-END) ...) ; x-compiling (DEFKNOWN %ALLOCATE-BIGNUM ...) ; x-compiling (DEFKNOWN %BIGNUM-LENGTH ...) ; x-compiling (DEFKNOWN %BIGNUM-SET-LENGTH ...) ; x-compiling (DEFKNOWN %BIGNUM-REF ...) ; x-compiling (DEFKNOWN %BIGNUM-REF-WITH-OFFSET ...) ; x-compiling (DEFKNOWN %BIGNUM-SET ...) ; x-compiling (DEFKNOWN %DIGIT-0-OR-PLUSP ...) ; x-compiling (DEFKNOWN (%ADD-WITH-CARRY %SUBTRACT-WITH-BORROW) ...) ; x-compiling (DEFKNOWN %MULTIPLY-AND-ADD ...) ; x-compiling (DEFKNOWN %MULTIPLY ...) ; x-compiling (DEFKNOWN %LOGNOT ...) ; x-compiling (DEFKNOWN (%LOGAND %LOGIOR ...) ...) ; x-compiling (DEFKNOWN %FIXNUM-TO-DIGIT ...) ; x-compiling (DEFKNOWN %BIGFLOOR ...) ; x-compiling (DEFKNOWN %FIXNUM-DIGIT-WITH-CORRECT-SIGN ...) ; x-compiling (DEFKNOWN (%ASHL %ASHR ...) ...) ; x-compiling (DEFINE-KNOWN-COPIERS) ; x-compiling (DEFKNOWN %BYTE-BLT ...) ; x-compiling (DEFKNOWN CODE-INSTRUCTIONS ...) ; x-compiling (DEFKNOWN CODE-HEADER-REF ...) ; x-compiling (DEFKNOWN CODE-HEADER-SET ...) ; x-compiling (DEFKNOWN FUN-SUBTYPE ...) ; x-compiling (DEFKNOWN (#) ...) ; x-compiling (DEFKNOWN MAKE-FDEFN ...) ; x-compiling (DEFKNOWN FDEFN-P ...) ; x-compiling (DEFKNOWN FDEFN-NAME ...) ; x-compiling (DEFKNOWN FDEFN-FUN ...) ; x-compiling (DEFKNOWN (SETF FDEFN-FUN) ...) ; x-compiling (DEFKNOWN FDEFN-MAKUNBOUND ...) ; x-compiling (DEFKNOWN %SIMPLE-FUN-SELF ...) ; x-compiling (DEFKNOWN (SETF %SIMPLE-FUN-SELF) ...) ; x-compiling (DEFKNOWN %CLOSURE-FUN ...) ; x-compiling (DEFKNOWN %CLOSURE-INDEX-REF ...) ; x-compiling (DEFKNOWN %MAKE-FUNCALLABLE-INSTANCE ...) ; x-compiling (DEFKNOWN %FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFKNOWN %SET-FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFKNOWN %DATA-VECTOR-AND-INDEX ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/vm-fndb.lisp-obj-tmp written ; compilation finished in 0:00:00.115 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/late-objdef.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (FROB) ; x-compiling (DOLIST (SLOT #) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/late-objdef.lisp-obj-tmp written ; compilation finished in 0:00:00.060 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/interr.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN ERROR-NUMBER-OR-LOSE ...) ; x-compiling (DEFUN !C-STRINGIFY-INTERNAL-ERROR ...) ; x-compiling (SETF SB!C:*BACKEND-INTERNAL-ERRORS* ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/interr.lisp-obj-tmp written ; compilation finished in 0:00:00.036 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/bit-util.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (INLINE CLEAR-BIT-VECTOR ...)) ; x-compiling (DEFUN CLEAR-BIT-VECTOR ...) ; x-compiling (DEFUN SET-BIT-VECTOR ...) ; x-compiling (DEFUN BIT-VECTOR-REPLACE ...) ; x-compiling (DEFUN BIT-VECTOR-COPY ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/bit-util.lisp-obj-tmp written ; compilation finished in 0:00:00.068 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/early-assem.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!ASSEM") ; x-compiling (DEF!CONSTANT ASSEMBLY-UNIT-BITS ...) ; x-compiling (DEF!CONSTANT ASSEMBLY-UNIT-MASK ...) ; x-compiling (DEF!TYPE ASSEMBLY-UNIT ...) ; x-compiling (DEF!TYPE POSSIBLY-SIGNED-ASSEMBLY-UNIT ...) ; x-compiling (DEF!CONSTANT MAX-ALIGNMENT ...) ; x-compiling (DEF!TYPE ALIGNMENT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/early-assem.lisp-obj-tmp written ; compilation finished in 0:00:00.032 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/barrier.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!THREAD") ; x-compiling (DEFUN SB!VM:%COMPILER-BARRIER ...) ; x-compiling (DEFUN SB!VM:%MEMORY-BARRIER ...) ; x-compiling (DEFUN SB!VM:%READ-BARRIER ...) ; x-compiling (DEFUN SB!VM:%WRITE-BARRIER ...) ; x-compiling (DEFUN SB!VM:%DATA-DEPENDENCY-BARRIER ...) ; x-compiling (DEFPARAMETER *BARRIER-KIND-FUNCTIONS* ...) ; x-compiling (DEFUN BARRIER-KIND-FUNCTION ...) ; x-compiling (DEF!MACRO BARRIER ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/barrier.lisp-obj-tmp written ; compilation finished in 0:00:00.048 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/core.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFSTRUCT (CORE-OBJECT # ...) ...) ; x-compiling (DEFUN NOTE-FUN ...) ; x-compiling (DEFUN DO-CORE-FIXUPS ...) ; x-compiling (DEFUN REFERENCE-CORE-FUN ...) ; x-compiling (DEFUN CORE-CALL-TOPLEVEL-LAMBDA ...) ; x-compiling (DEFUN FIX-CORE-SOURCE-INFO ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/core.lisp ; in: DEFUN FIX-CORE-SOURCE-INFO ; (SETF (SB!C::DEBUG-INFO-SOURCE SB!INT:INFO) SB!C::SOURCE) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!C::DEBUG-INFO-SOURCE) #:NEW64 #:INFO65) ; ; caught STYLE-WARNING: ; undefined function: (SETF DEBUG-INFO-SOURCE) ; (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO :FUNCTION FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: DEBUG-SOURCE-FOR-INFO ; in: DEFUN DO-CORE-FIXUPS ; (SB!C:FIXUP-FLAVOR SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-FLAVOR ; (SB!C:FIXUP-NAME SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NAME ; (SB!C:FIXUP-NOTE-FIXUP SB!C::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-FIXUP ; (SB!C:FIXUP-NOTE-KIND SB!C::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-KIND ; (SB!C:FIXUP-NOTE-POSITION SB!C::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-POSITION ; ; compilation unit finished ; Undefined functions: ; (SETF DEBUG-INFO-SOURCE) DEBUG-SOURCE-FOR-INFO FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION ; caught 7 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/core.lisp-obj-tmp written ; compilation finished in 0:00:00.066 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/thread.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!THREAD") ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (DEF!TYPE THREAD-NAME ...) ; x-compiling (DEF!STRUCT (THREAD #) ...) ; x-compiling (DEF!STRUCT (FOREIGN-THREAD # ...) ...) ; x-compiling (DEF!STRUCT MUTEX ...) ; x-compiling (DEFUN MUTEX-VALUE ...) ; x-compiling (DEFUN HOLDING-MUTEX-P ...) ; x-compiling (DEFSETF MUTEX-VALUE ...) ; x-compiling (DECLAIM (INLINE SET-MUTEX-VALUE)) ; x-compiling (DEFUN SET-MUTEX-VALUE ...) ; x-compiling (DEFINE-COMPILER-MACRO SET-MUTEX-VALUE ...) ; x-compiling (DEFTYPE SPINLOCK ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SPINLOCK ...) ; x-compiling (SB-XC:DEFMACRO WITH-SPINLOCK ...) ; x-compiling (SB-XC:DEFMACRO WITHOUT-THREAD-WAITING-FOR ...) ; x-compiling (SB-XC:DEFMACRO WITH-MUTEX ...) ; x-compiling (SB-XC:DEFMACRO WITH-SYSTEM-MUTEX ...) ; x-compiling (SB-XC:DEFMACRO WITH-RECURSIVE-LOCK ...) ; x-compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SYSTEM-LOCK ...) ; x-compiling (DEF CALL-WITH-SYSTEM-MUTEX) ; x-compiling (DEF CALL-WITH-SYSTEM-MUTEX ...) ; x-compiling (DEF CALL-WITH-SYSTEM-MUTEX ...) ; x-compiling (DEFUN CALL-WITH-MUTEX ...) ; x-compiling (DEFUN CALL-WITH-RECURSIVE-LOCK ...) ; x-compiling (DEF CALL-WITH-RECURSIVE-SYSTEM-LOCK) ; x-compiling (DEF CALL-WITH-RECURSIVE-SYSTEM-LOCK ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/thread.lisp ; in: DEFSETF MUTEX-VALUE ; (DEFSETF SB!THREAD:MUTEX-VALUE SB!THREAD::SET-MUTEX-VALUE) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!THREAD:MUTEX-VALUE NIL NIL ; 'SB!THREAD::SET-MUTEX-VALUE NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEF CALL-WITH-SYSTEM-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM WHEN IF SETF SETQ THE ; ==> ; (SB!THREAD:GRAB-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: GRAB-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM WHEN IF SETF SETQ THE ; ==> ; (SB!THREAD:GRAB-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: GRAB-MUTEX ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!THREAD:GRAB-MUTEX SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: GRAB-MUTEX ; ; caught STYLE-WARNING: ; 5 more uses of undefined function GRAB-MUTEX ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/thread.lisp ; in: DEF CALL-WITH-RECURSIVE-SYSTEM-LOCK ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK :WITHOUT-GCING) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK FLET BLOCK SB!INT:DX-LET LET EQ IF EQ ; ==> ; (SB!THREAD:MUTEX-OWNER SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: MUTEX-OWNER ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK FLET BLOCK SB!INT:DX-LET LET EQ IF EQ ; ==> ; (SB!THREAD:MUTEX-OWNER SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: MUTEX-OWNER ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!THREAD:MUTEX-OWNER SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: MUTEX-OWNER ; in: DEF CALL-WITH-SYSTEM-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> UNWIND-PROTECT FLET BLOCK WHEN IF PROGN ; ==> ; (SB!THREAD:RELEASE-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: RELEASE-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> UNWIND-PROTECT FLET BLOCK WHEN IF PROGN ; ==> ; (SB!THREAD:RELEASE-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: RELEASE-MUTEX ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!THREAD:RELEASE-MUTEX SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: RELEASE-MUTEX ; ; caught STYLE-WARNING: ; 5 more uses of undefined function RELEASE-MUTEX ; ; compilation unit finished ; Undefined functions: ; SB!IMPL::ASSIGN-SETF-MACRO GRAB-MUTEX MUTEX-OWNER RELEASE-MUTEX ; caught 12 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/thread.lisp-obj-tmp written ; compilation finished in 0:00:00.361 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/load.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!FASL") ; x-compiling (DEFUN LOAD-FRESH-LINE ...) ; x-compiling (DEFUN MAYBE-ANNOUNCE-LOAD ...) ; x-compiling (DECLAIM (INLINE READ-BYTE)) ; x-compiling (DEFMACRO FAST-READ-U-INTEGER ...) ; x-compiling (DEFMACRO FAST-READ-VAR-U-INTEGER ...) ; x-compiling (DEFMACRO FAST-READ-S-INTEGER ...) ; x-compiling (DEFMACRO READ-ARG ...) ; x-compiling (DECLAIM (INLINE READ-BYTE-ARG ...)) ; x-compiling (DEFUN READ-BYTE-ARG ...) ; x-compiling (DEFUN READ-HALFWORD-ARG ...) ; x-compiling (DEFUN READ-WORD-ARG ...) ; x-compiling (DEFUN READ-UNSIGNED-BYTE-32-ARG ...) ; x-compiling (DEFVAR *FOP-TABLE*) ; x-compiling (DECLAIM (SIMPLE-VECTOR *FOP-TABLE*)) ; x-compiling (DECLAIM (INLINE REF-FOP-TABLE)) ; x-compiling (DEFUN REF-FOP-TABLE ...) ; x-compiling (DEFUN GET-FOP-TABLE-INDEX ...) ; x-compiling (DEFUN RESET-FOP-TABLE ...) ; x-compiling (DEFUN PUSH-FOP-TABLE ...) ; x-compiling (DEFUN MAKE-FOP-VECTOR ...) ; x-compiling (DEFUN GROW-FOP-VECTOR ...) ; x-compiling (DEFUN NUKE-FOP-VECTOR ...) ; x-compiling (DEFVAR *FOP-STACK*) ; x-compiling (DECLAIM (SIMPLE-VECTOR *FOP-STACK*)) ; x-compiling (DEFUN FOP-STACK-EMPTY-P ...) ; x-compiling (DEFUN POP-FOP-STACK ...) ; x-compiling (DEFUN PUSH-FOP-STACK ...) ; x-compiling (DEFMACRO WITH-FOP-STACK ...) ; x-compiling (DEFMACRO CALL-WITH-POPPED-ARGS ...) ; x-compiling (DEFINE-CONDITION INVALID-FASL ...) ; x-compiling (DEFINE-CONDITION INVALID-FASL-HEADER ...) ; x-compiling (DEFINE-CONDITION INVALID-FASL-VERSION ...) ; x-compiling (DEFINE-CONDITION INVALID-FASL-IMPLEMENTATION ...) ; x-compiling (DEFINE-CONDITION INVALID-FASL-FEATURES ...) ; x-compiling (DEFUN MAYBE-SKIP-SHEBANG-LINE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/load.lisp ; in: DEFUN MAYBE-SKIP-SHEBANG-LINE ; (READ-BYTE STREAM NIL) ; --> BLOCK IF LET IF SB!IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFUN FASL-HEADER-P ...) ; x-compiling (DEFUN CHECK-FASL-HEADER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/load.lisp ; in: DEFUN CHECK-FASL-HEADER ; (READ-BYTE STREAM NIL) ; --> BLOCK IF LET IF SB!IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFUN LOAD-FASL-GROUP ...) ; x-compiling (DEFUN LOAD-AS-FASL ...) ; x-compiling (DECLAIM (NOTINLINE READ-BYTE)) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/load.lisp ; in: DEFUN CHECK-FASL-HEADER ; (SB!FASL::READ-STRING-AS-BYTES STREAM SB!FASL::RESULT) ; ; caught STYLE-WARNING: ; undefined function: READ-STRING-AS-BYTES ; ; compilation unit finished ; Undefined function: ; READ-STRING-AS-BYTES ; caught 1 STYLE-WARNING condition ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/load.lisp-obj-tmp written ; compilation finished in 0:00:00.411 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/linkage-table.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-JMP ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-REF ...) ; x-compiling (DEFVAR *LINKAGE-INFO* ...) ; x-compiling (DEFUN WRITE-LINKAGE-TABLE-ENTRY ...) ; x-compiling (DEFUN LINK-FOREIGN-SYMBOL ...) ; x-compiling (DEFUN ENSURE-FOREIGN-SYMBOL-LINKAGE ...) ; x-compiling (DEFUN UPDATE-LINKAGE-TABLE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/linkage-table.lisp ; in: DEFUN UPDATE-LINKAGE-TABLE ; (SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SB!IMPL::NAME SB!IMPL::DATAP) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; in: DEFUN LINK-FOREIGN-SYMBOL ; (SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SB!IMPL::NAME SB!IMPL::DATAP) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; ; compilation unit finished ; Undefined function: ; ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/linkage-table.lisp-obj-tmp written ; compilation finished in 0:00:00.069 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/foreign-load.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (DEFVAR *SHARED-OBJECTS-LOCK* ...) ; x-compiling (DEFINE-UNSUPPORTED-FUN LOAD-FOREIGN ...) ; x-compiling (DEFINE-UNSUPPORTED-FUN LOAD-1-FOREIGN ...) ; x-compiling (DEFINE-ALIEN-VARIABLE UNDEFINED-ALIEN-ADDRESS ...) ; x-compiling (DEFVAR *RUNTIME-DLHANDLE*) ; x-compiling (DEFVAR *SHARED-OBJECTS*) ; x-compiling (DEFSTRUCT SHARED-OBJECT ...) ; x-compiling (DEFUN LOAD-SHARED-OBJECT ...) ; x-compiling (DEFUN UNLOAD-SHARED-OBJECT ...) ; x-compiling (DEFUN TRY-REOPEN-SHARED-OBJECT ...) ; x-compiling (DEFUN REOPEN-SHARED-OBJECTS ...) ; x-compiling (DEFUN CLOSE-SHARED-OBJECTS ...) ; x-compiling (LET (# #) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/foreign-load.lisp ; in: DEFUN ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; (DEFUN SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; (SYMBOL &OPTIONAL SB!ALIEN::DATAP) ; "Returns the address of the foreign symbol as an integer. On linkage-table ; ports if the symbols isn't found a special guard address is returned instead, ; accesses to which will result in an UNDEFINED-ALIEN-ERROR. On other ports an ; error is immediately signalled if the symbol isn't found. The returned address ; is never in the linkage-table." ; (DECLARE (IGNORABLE SB!ALIEN::DATAP)) ; (LET ((SB!ALIEN:ADDR (SB!SYS:FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SYMBOL))) ; (COND ; ((NOT SB!ALIEN:ADDR) ; (SB!INT:STYLE-WARN 'SB!KERNEL:UNDEFINED-ALIEN-STYLE-WARNING :SYMBOL ; SYMBOL) ; (SETF #) (REMHASH SYMBOL SB!ALIEN::SYMBOLS) ; (IF SB!ALIEN::DATAP ; SB!ALIEN::UNDEFINED-ALIEN-ADDRESS ; #)) ; (SB!ALIEN:ADDR (SETF #) (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: ; 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: ; 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: ; 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: ; COLD-FSET LIST-DYNAMIC-FOREIGN-SYMBOLS not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; in: DEFUN LIST-UNDEFINED-FOREIGN-SYMBOLS ; (DEFUN SB!ALIEN::LIST-UNDEFINED-FOREIGN-SYMBOLS () ; (LOOP SB!ALIEN::FOR SYMBOL SB!ALIEN::BEING SB!ALIEN::EACH SB!ALIEN::HASH-KEY SB!ALIEN::IN SB!ALIEN::UNDEFINEDS ; SB!INT:COLLECT SYMBOL)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!ALIEN::LIST-UNDEFINED-FOREIGN-SYMBOLS ; (LAMBDA () ; (BLOCK SB!ALIEN::LIST-UNDEFINED-FOREIGN-SYMBOLS ; (LOOP SB!ALIEN::FOR SYMBOL SB!ALIEN::BEING SB!ALIEN::EACH SB!ALIEN::HASH-KEY SB!ALIEN::IN SB!ALIEN::UNDEFINEDS ; SB!INT:COLLECT SYMBOL)))) ; ; caught STYLE-WARNING: ; COLD-FSET LIST-UNDEFINED-FOREIGN-SYMBOLS not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; in: DEFUN REOPEN-SHARED-OBJECTS ; (MAPCAR #'SB!ALIEN::TRY-REOPEN-SHARED-OBJECT SB!SYS:*SHARED-OBJECTS*) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN CLOSE-SHARED-OBJECTS ; (SB!ALIEN::DLCLOSE-OR-LOSE SB!ALIEN::OBJ) ; ; caught STYLE-WARNING: ; undefined function: DLCLOSE-OR-LOSE ; in: DEFUN UNLOAD-SHARED-OBJECT ; (SB!ALIEN::DLCLOSE-OR-LOSE SB!ALIEN::OLD) ; ; caught STYLE-WARNING: ; undefined function: DLCLOSE-OR-LOSE ; in: DEFUN REOPEN-SHARED-OBJECTS ; (SB!SYS:DLOPEN-OR-LOSE) ; ; caught STYLE-WARNING: ; undefined function: DLOPEN-OR-LOSE ; in: DEFUN TRY-REOPEN-SHARED-OBJECT ; (SB!SYS:DLOPEN-OR-LOSE SB!ALIEN::OBJ) ; ; caught STYLE-WARNING: ; undefined function: DLOPEN-OR-LOSE ; in: DEFUN LOAD-SHARED-OBJECT ; (SB!SYS:DLOPEN-OR-LOSE SB!ALIEN::OBJ) ; ; caught STYLE-WARNING: ; undefined function: DLOPEN-OR-LOSE ; in: DEFUN ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; (SB!SYS:FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SYMBOL) ; ; caught STYLE-WARNING: ; undefined function: FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; (SB!SYS:FIND-FOREIGN-SYMBOL-ADDRESS "undefined_alien_function") ; ; caught STYLE-WARNING: ; undefined function: FIND-FOREIGN-SYMBOL-ADDRESS ; in: DEFUN TRY-REOPEN-SHARED-OBJECT ; (SB!EXT:NATIVE-NAMESTRING (TRANSLATE-LOGICAL-PATHNAME PATHNAME) :AS-FILE T) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-NAMESTRING ; in: DEFUN LOAD-SHARED-OBJECT ; (SB!EXT:NATIVE-NAMESTRING (TRANSLATE-LOGICAL-PATHNAME PATHNAME) :AS-FILE T) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-NAMESTRING ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; DLCLOSE-OR-LOSE DLOPEN-OR-LOSE FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS FIND-FOREIGN-SYMBOL-ADDRESS NATIVE-NAMESTRING ; caught 15 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/foreign-load.lisp-obj-tmp written ; compilation finished in 0:00:00.134 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix-foreign-load.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (DEFINE-ALIEN-ROUTINE DLOPEN ...) ; x-compiling (DEFINE-ALIEN-ROUTINE DLCLOSE ...) ; x-compiling (DEFINE-ALIEN-ROUTINE DLERROR ...) ; x-compiling (DEFINE-ALIEN-ROUTINE DLSYM ...) ; x-compiling (DEFUN DLOPEN-OR-LOSE ...) ; x-compiling (DEFUN DLCLOSE-OR-LOSE ...) ; x-compiling (DEFUN FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix-foreign-load.lisp ; in: DEFINE-ALIEN-ROUTINE DLSYM ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!ALIEN::DLSYM SB!SYS:SYSTEM-AREA-POINTER ; (SB!ALIEN::HANDLE SB!SYS:SYSTEM-AREA-POINTER) (SYMBOL SB!ALIEN:C-STRING)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!ALIEN::DLSYM SB!ALIEN::HANDLE SYMBOL) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE DLOPEN ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!ALIEN::DLOPEN SB!SYS:SYSTEM-AREA-POINTER ; (SB!ALIEN::FILE SB!ALIEN:C-STRING) (SB!ALIEN::MODE SB!ALIEN:INT)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!ALIEN::DLOPEN SB!ALIEN::FILE SB!ALIEN::MODE) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; (SB!SYS:EXTERN-ALIEN-NAME SYMBOL) ; ; caught STYLE-WARNING: ; undefined function: EXTERN-ALIEN-NAME ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined function: ; EXTERN-ALIEN-NAME ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/unix-foreign-load.lisp-obj-tmp written ; compilation finished in 0:00:00.099 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/foreign.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN EXTERN-ALIEN-NAME ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *STATIC-FOREIGN-SYMBOLS* ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE ...) ; x-compiling (DEFUN FIND-FOREIGN-SYMBOL-ADDRESS ...) ; x-compiling (DEFUN FOREIGN-SYMBOL-ADDRESS ...) ; x-compiling (DEFUN FOREIGN-SYMBOL-SAP ...) ; x-compiling (DEFUN FOREIGN-REINIT ...) ; x-compiling (DEFUN FOREIGN-DEINIT ...) ; x-compiling (DECLAIM (MAYBE-INLINE SAP-FOREIGN-SYMBOL)) ; x-compiling (DEFUN SAP-FOREIGN-SYMBOL ...) ; x-compiling (DEFVAR *!INITIAL-FOREIGN-SYMBOLS*) ; x-compiling (DEFUN !FOREIGN-COLD-INIT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/foreign.lisp ; in: DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE ; (CONCATENATE 'BASE-STRING "ldso_stub__" SB!IMPL::EXTERN) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/foreign.lisp-obj-tmp written ; compilation finished in 0:00:00.165 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fop.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!FASL") ; x-compiling (DEFVAR *SKIP-UNTIL* ...) ; x-compiling (DEFMACRO DEFINE-FOP ...) ; x-compiling (DEFUN %DEFINE-FOP ...) ; x-compiling (DEFMACRO DEFINE-CLONED-FOPS ...) ; x-compiling (DEFUN READ-STRING-AS-BYTES ...) ; x-compiling (DEFUN READ-BASE-STRING-AS-BYTES ...) ; x-compiling (DEFUN READ-STRING-AS-UNSIGNED-BYTE-32 ...) ; x-compiling (DEFINE-FOP (FOP-NOP4 137 ...) ...) ; x-compiling (DEFINE-FOP (FOP-NOP 0 ...)) ; x-compiling (DEFINE-FOP (FOP-POP 1 ...) ...) ; x-compiling (DEFINE-FOP (FOP-PUSH 2) ...) ; x-compiling (DEFINE-FOP (FOP-BYTE-PUSH 3) ...) ; x-compiling (DEFINE-FOP (FOP-EMPTY-LIST 4) ...) ; x-compiling (DEFINE-FOP (FOP-TRUTH 5) ...) ; x-compiling (DEFINE-FOP (FOP-MISC-TRAP 66) ...) ; x-compiling (DEFINE-CLONED-FOPS (FOP-CHARACTER 68) ...) ; x-compiling (DEFINE-CLONED-FOPS (FOP-STRUCT 48) ...) ; x-compiling (DEFINE-FOP (FOP-LAYOUT 45) ...) ; x-compiling (DEFINE-FOP (FOP-END-GROUP 64 ...) ...) ; x-compiling (DEFINE-FOP (FOP-VERIFY-TABLE-SIZE 62 ...) ...) ; x-compiling (DEFINE-FOP (FOP-VERIFY-EMPTY-STACK 63 ...) ...) ; x-compiling (DEFSTRUCT (UNDEFINED-PACKAGE #) ...) ; x-compiling (DECLAIM (FREEZE-TYPE UNDEFINED-PACKAGE)) ; x-compiling (DEFUN AUX-FOP-INTERN ...) ; x-compiling (DEF FOP-LISP-SYMBOL-SAVE ...) ; x-compiling (DEF FOP-LISP-SMALL-SYMBOL-SAVE ...) ; x-compiling (DEF FOP-KEYWORD-SYMBOL-SAVE ...) ; x-compiling (DEF FOP-KEYWORD-SMALL-SYMBOL-SAVE ...) ; x-compiling (DEF FOP-SYMBOL-IN-PACKAGE-SAVE ...) ; x-compiling (DEF FOP-SMALL-SYMBOL-IN-PACKAGE-SAVE ...) ; x-compiling (DEF FOP-SYMBOL-IN-BYTE-PACKAGE-SAVE ...) ; x-compiling (DEF FOP-SMALL-SYMBOL-IN-BYTE-PACKAGE-SAVE ...) ; x-compiling (DEFINE-CLONED-FOPS (FOP-UNINTERNED-SYMBOL-SAVE 12) ...) ; x-compiling (DEFINE-FOP (FOP-PACKAGE 14) ...) ; x-compiling (DEFINE-CLONED-FOPS (FOP-NAMED-PACKAGE-SAVE 156 ...) ...) ; x-compiling (DEFUN LOAD-S-INTEGER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fop.lisp ; in: DEFUN LOAD-S-INTEGER ; (ASH 1 SB!FASL::BITS) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (INTEGER 1), not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; (ASH SB-XC:BYTE SB!FASL::BITS) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; (DO* ((SB!INT:INDEX LENGTH (1- SB!INT:INDEX)) ; (SB-XC:BYTE 0 (SB!INT:FAST-READ-BYTE)) ; (SB!FASL::RESULT 0 (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS))) ; (SB!FASL::BITS 0 (+ SB!FASL::BITS 8))) ; ((= SB!INT:INDEX 0) ; (IF (LOGBITP 7 SB-XC:BYTE) ; (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS)) ; SB!FASL::RESULT)) ; (DECLARE (FIXNUM SB!INT:INDEX SB-XC:BYTE SB!FASL::BITS))) ; --> BLOCK LET* TAGBODY SETQ SETQ ; ==> ; (THE FIXNUM (1- SB!INT:INDEX)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ==> ; (THE FIXNUM (+ SB!FASL::BITS 8)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; x-compiling (DEFINE-CLONED-FOPS (FOP-INTEGER 33) ...) ; x-compiling (DEFINE-FOP (FOP-WORD-INTEGER 35) ...) ; x-compiling (DEFINE-FOP (FOP-BYTE-INTEGER 36) ...) ; x-compiling (DEFINE-FOP (FOP-RATIO 70) ...) ; x-compiling (DEFINE-FOP (FOP-COMPLEX 71) ...) ; x-compiling (DEFINE-COMPLEX-FOP FOP-COMPLEX-SINGLE-FLOAT ...) ; x-compiling (DEFINE-COMPLEX-FOP FOP-COMPLEX-DOUBLE-FLOAT ...) ; x-compiling (DEFINE-FLOAT-FOP FOP-SINGLE-FLOAT ...) ; x-compiling (DEFINE-FLOAT-FOP FOP-DOUBLE-FLOAT ...) ; x-compiling (DEFINE-FOP (FOP-SIMD-PACK 88) ...) ; x-compiling (DEFINE-FOP (FOP-LIST 15) ...) ; x-compiling (DEFINE-FOP (FOP-LIST* 16) ...) ; x-compiling (FROB FOP-LIST-1 ...) ; x-compiling (FROB FOP-LIST-2 ...) ; x-compiling (FROB FOP-LIST-3 ...) ; x-compiling (FROB FOP-LIST-4 ...) ; x-compiling (FROB FOP-LIST-5 ...) ; x-compiling (FROB FOP-LIST-6 ...) ; x-compiling (FROB FOP-LIST-7 ...) ; x-compiling (FROB FOP-LIST-8 ...) ; x-compiling (FROB FOP-LIST*-1 ...) ; x-compiling (FROB FOP-LIST*-2 ...) ; x-compiling (FROB FOP-LIST*-3 ...) ; x-compiling (FROB FOP-LIST*-4 ...) ; x-compiling (FROB FOP-LIST*-5 ...) ; x-compiling (FROB FOP-LIST*-6 ...) ; x-compiling (FROB FOP-LIST*-7 ...) ; x-compiling (FROB FOP-LIST*-8 ...) ; x-compiling (DEFINE-CLONED-FOPS (FOP-BASE-STRING 37) ...) ; x-compiling (DEFINE-CLONED-FOPS (FOP-CHARACTER-STRING 161) ...) ; x-compiling (DEFINE-CLONED-FOPS (FOP-VECTOR 39) ...) ; x-compiling (DEFINE-FOP (FOP-ARRAY 83) ...) ; x-compiling (DEFGLOBAL **SAETP-BITS-PER-LENGTH** ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFINE-FOP (FOP-SPEC-VECTOR 43) ...) ; x-compiling (DEFINE-FOP (FOP-EVAL 53) ...) ; x-compiling (DEFINE-FOP (FOP-EVAL-FOR-EFFECT 54 ...) ...) ; x-compiling (DEFINE-FOP (FOP-FUNCALL 55) ...) ; x-compiling (DEFINE-FOP (FOP-FUNCALL-FOR-EFFECT 56 ...) ...) ; x-compiling (DEFINE-FOP (FOP-RPLACA 200 ...) ...) ; x-compiling (DEFINE-FOP (FOP-RPLACD 201 ...) ...) ; x-compiling (DEFINE-FOP (FOP-SVSET 202 ...) ...) ; x-compiling (DEFINE-FOP (FOP-STRUCTSET 204 ...) ...) ; x-compiling (DEFINE-FOP (FOP-NTHCDR 203) ...) ; x-compiling (DEFINE-FOP (FOP-CODE 58 ...) ...) ; x-compiling (DEFINE-FOP (FOP-SMALL-CODE 59 ...) ...) ; x-compiling (DEFINE-FOP (FOP-FDEFINITION 60) ...) ; x-compiling (DEFINE-FOP (FOP-KNOWN-FUN 65) ...) ; x-compiling (DEFINE-FOP (FOP-FSET 74 ...) ...) ; x-compiling (DEFINE-FOP (FOP-NOTE-DEBUG-SOURCE 174 ...) ...) ; x-compiling (DEFINE-CLONED-FOPS (FOP-ALTER-CODE 140 ...) ...) ; x-compiling (DEFINE-FOP (FOP-FUN-ENTRY 142) ...) ; x-compiling (DEFINE-FOP (FOP-ASSEMBLER-CODE 144) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-ASSEMBLER-CODE 144) ; (SB!FASL::DEFINE-FOP (SB!FASL::FOP-ASSEMBLER-CODE 144) ; (ERROR "cannot load assembler code except at cold load")) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!FASL::WITH-FOP-STACK MACROLET ; ==> ; (SB!FASL::PUSH-FOP-STACK ; (PROGN (ERROR "cannot load assembler code except at cold load"))) ; ; note: The first argument never returns a value. ; x-compiling (DEFINE-FOP (FOP-ASSEMBLER-ROUTINE 145) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-ASSEMBLER-ROUTINE 145) ; (SB!FASL::DEFINE-FOP (SB!FASL::FOP-ASSEMBLER-ROUTINE 145) ; (ERROR "cannot load assembler code except at cold load")) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!FASL::WITH-FOP-STACK MACROLET ; ==> ; (SB!FASL::PUSH-FOP-STACK ; (PROGN (ERROR "cannot load assembler code except at cold load"))) ; ; note: The first argument never returns a value. ; x-compiling (DEFINE-FOP (FOP-SYMBOL-TLS-FIXUP 146) ...) ; x-compiling (DEFINE-FOP (FOP-FOREIGN-FIXUP 147) ...) ; x-compiling (DEFINE-FOP (FOP-ASSEMBLER-FIXUP 148) ...) ; x-compiling (DEFINE-FOP (FOP-CODE-OBJECT-FIXUP 149) ...) ; x-compiling (DEFINE-FOP (FOP-FOREIGN-DATAREF-FIXUP 150) ...) ; x-compiling (DEFINE-FOP (FOP-SKIP 151 ...) ...) ; x-compiling (DEFINE-FOP (FOP-SKIP-IF-FALSE 152 ...) ...) ; x-compiling (DEFINE-FOP (FOP-DROP-IF-SKIPPING 153 ...) ...) ; x-compiling (DEFINE-FOP (FOP-PUSH-NIL-IF-SKIPPING 154 ...) ...) ; x-compiling (DEFINE-FOP (FOP-MAYBE-STOP-SKIPPING 155 ...) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/fop.lisp ; in: DEFGLOBAL **SAETP-BITS-PER-LENGTH** ; (SB!EXT:DEFGLOBAL SB!FASL::**SAETP-BITS-PER-LENGTH** ; (LET ((ARRAY ; (MAKE-ARRAY # :ELEMENT-TYPE '# :INITIAL-ELEMENT ; 255))) ; (LOOP SB!FASL::FOR SB!FASL::SAETP SB!FASL::ACROSS SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ; DO (SETF # #)) ; ARRAY) ; "255 means bad entry.") ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!FASL::**SAETP-BITS-PER-LENGTH** ; (UNLESS #:BOUNDP ; (LET ((ARRAY #)) ; (LOOP SB!FASL::FOR SB!FASL::SAETP SB!FASL::ACROSS SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ; DO (SETF #)) ; ARRAY)) ; #:BOUNDP '"255 means bad entry." T ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFINE-FOP (FOP-NOTE-DEBUG-SOURCE 174 :PUSHP NIL) ; (SETF (SB!C::DEBUG-SOURCE-COMPILED SB!FASL::DEBUG-SOURCE) ; (GET-UNIVERSAL-TIME) ; (SB!C::DEBUG-SOURCE-CREATED SB!FASL::DEBUG-SOURCE) ; (FILE-WRITE-DATE ; (SB!C::DEBUG-SOURCE-NAMESTRING SB!FASL::DEBUG-SOURCE))) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-COMPILED) #:NEW2726 ; #:DEBUG-SOURCE2727) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!C::DEBUG-SOURCE-COMPILED) ; ==> ; (SB!C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-CREATED) #:NEW2730 ; #:DEBUG-SOURCE2731) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!C::DEBUG-SOURCE-CREATED) ; (SB!C::DEBUG-SOURCE-NAMESTRING SB!FASL::DEBUG-SOURCE) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-SOURCE-NAMESTRING ; in: DEFUN AUX-FOP-INTERN ; (SB!INT:INTERN* SB!FASL::BUFFER SB!FASL::SIZE PACKAGE :NO-COPY T) ; ; caught STYLE-WARNING: ; undefined function: INTERN* ; in: DEFINE-FOP (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-FOREIGN-DATAREF-FIXUP 150) ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::SYM 0 SB!FASL::LEN) ; --> BLOCK IF LET* ; ==> ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: SB!GRAY:STREAM-READ-SEQUENCE ; in: DEFINE-FOP (FOP-FOREIGN-FIXUP 147) ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::SYM 0 SB!FASL::LEN) ; --> BLOCK IF LET* ; ==> ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: SB!GRAY:STREAM-READ-SEQUENCE ; in: DEFINE-FOP (FOP-SPEC-VECTOR 43) ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* VECTOR 0 SB!FASL::BYTES) ; --> BLOCK IF LET* ; ==> ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: SB!GRAY:STREAM-READ-SEQUENCE ; in: DEFGLOBAL **SAETP-BITS-PER-LENGTH** ; (MAKE-ARRAY (1+ SB!VM:WIDETAG-MASK) :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT 255) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (256)) ; (SB!KERNEL:ALLOCATE-VECTOR 145 (THE SB!INT:INDEX LENGTH) ; 32)) ; (THE (UNSIGNED-BYTE 8) '255)) ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; ; compilation unit finished ; Undefined functions: ; SB!IMPL::%DEFGLOBAL (SETF SB!C::DEBUG-SOURCE-COMPILED) (SETF SB!C::DEBUG-SOURCE-CREATED) SB!C::DEBUG-SOURCE-NAMESTRING INTERN* LOAD-CODE SB!GRAY:STREAM-READ-SEQUENCE UB8-BASH-FILL ; caught 11 STYLE-WARNING conditions ; printed 8 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/fop.lisp-obj-tmp written ; compilation finished in 0:00:01.966 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ctype.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *LOSSAGE-FUN*) ; x-compiling (DEFVAR *UNWINNAGE-FUN*) ; x-compiling (DEFVAR *CTYPE-TEST-FUN*) ; x-compiling (DEFVAR *LOSSAGE-DETECTED*) ; x-compiling (DEFVAR *UNWINNAGE-DETECTED*) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NOTE-LOSSAGE ...) ; x-compiling (DEFUN NOTE-UNWINNAGE ...) ; x-compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*)) ; x-compiling (DEFUN ALWAYS-SUBTYPEP ...) ; x-compiling (DEFUN VALID-FUN-USE ...) ; x-compiling (DEFUN CHECK-ARG-TYPE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-FIXED-AND-REST ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-KEY-ARGS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN DEFINITION-TYPE ...) ; x-compiling (DEFSTRUCT (APPROXIMATE-FUN-TYPE #) ...) ; x-compiling (DEFSTRUCT (APPROXIMATE-KEY-INFO #) ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NOTE-FUN-USE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN VALID-APPROXIMATE-TYPE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-APPROXIMATE-FIXED-AND-REST ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-APPROXIMATE-ARG-TYPE ...) ; x-compiling (DEFUN CHECK-APPROXIMATE-KEYWORDS ...) ; x-compiling (DEFUN TRY-TYPE-INTERSECTIONS ...) ; x-compiling (DEFUN FIND-OPTIONAL-DISPATCH-TYPES ...) ; x-compiling (DEFUN FIND-LAMBDA-TYPES ...) ; x-compiling (DEFUN ASSERT-DEFINITION-TYPE ...) ; x-compiling (DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE ...) ; x-compiling (DEFUN MASSAGE-GLOBAL-DEFINITION-TYPE ...) ; x-compiling (DEFUN MAP-COMBINATION-ARGS-AND-TYPES ...) ; x-compiling (DEFUN ASSERT-CALL-TYPE ...) ; x-compiling (DEFUN CHECK-CATCH-TAG-TYPE ...) ; x-compiling (DEFUN %COMPILE-TIME-TYPE-ERROR ...) ; x-compiling (DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ctype.lisp ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::ASSERT-LVAR-TYPE SB!C::LVAR SB!C::RETURNS SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: ASSERT-LVAR-TYPE ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::ASSERT-LVAR-TYPE (SB!C::RETURN-RESULT RETURN) SB!C::TYPE-RETURNS ; SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: ASSERT-LVAR-TYPE ; in: DEFUN NOTE-FUN-USE ; (MAPCAR (LAMBDA (SB!C::X) (LIST (SB!C::LVAR-TYPE SB!C::X))) SB!C::ARG) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN DEFINITION-TYPE ; (MAPCAR #'SB!C::LEAF-TYPE (SB!C::LAMBDA-VARS SB!C::FUNCTIONAL)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN NOTE-FUN-USE ; (SB!C::CONSTANT-LVAR-P SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CHECK-KEY-ARGS ; (SB!C::CONSTANT-LVAR-P SB!C::K) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CHECK-ARG-TYPE ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; ; caught STYLE-WARNING: ; 1 more use of undefined function CONSTANT-LVAR-P ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ctype.lisp ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::DERIVE-NODE-TYPE SB!C:CALL SB!C::RETURNS) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::S-TYPE) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN VALID-FUN-USE ; (SB!C::IMMEDIATELY-USED-P SB!C::LVAR SB!C:CALL) ; ; caught STYLE-WARNING: ; undefined function: IMMEDIATELY-USED-P ; in: DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT) ; (SB!C::IR2-CONVERT-FULL-CALL SB!C::NODE BLOCK) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-FULL-CALL ; in: DEFUN CHECK-CATCH-TAG-TYPE ; (SB!C::LVAR-ALL-SOURCES SB!C::TAG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-ALL-SOURCES ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::LVAR-DERIVED-TYPE (SB!C::RETURN-RESULT RETURN)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-DERIVED-TYPE ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::LVAR-HAS-SINGLE-USE-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-HAS-SINGLE-USE-P ; in: DEFUN MAP-COMBINATION-ARGS-AND-TYPES ; (SB!C::LVAR-TYPE (SB!C::COMBINATION-FUN SB!C:CALL)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN NOTE-FUN-USE ; (SB!C::LVAR-TYPE (CAR SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN CHECK-ARG-TYPE ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; ; caught STYLE-WARNING: ; 1 more use of undefined function LVAR-TYPE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ctype.lisp ; in: DEFUN NOTE-FUN-USE ; (SB!C::LVAR-VALUE SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CHECK-KEY-ARGS ; (SB!C::LVAR-VALUE SB!C::V) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CHECK-ARG-TYPE ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; ; caught STYLE-WARNING: ; 2 more uses of undefined function LVAR-VALUE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ctype.lisp ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::MAIN-ENTRY SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: MAIN-ENTRY ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; ASSERT-LVAR-TYPE CONSTANT-LVAR-P DERIVE-NODE-TYPE IMMEDIATELY-USED-P IR2-CONVERT-FULL-CALL LVAR-ALL-SOURCES LVAR-DERIVED-TYPE LVAR-HAS-SINGLE-USE-P LVAR-TYPE LVAR-VALUE MAIN-ENTRY REOPTIMIZE-LVAR ; caught 25 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/ctype.lisp-obj-tmp written ; compilation finished in 0:00:01.578 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/disassem.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!DISASSEM") ; x-compiling (DEF!CONSTANT LABEL-COLUMN-WIDTH ...) ; x-compiling (DEFTYPE TEXT-WIDTH ...) ; x-compiling (DEFTYPE ALIGNMENT ...) ; x-compiling (DEFTYPE OFFSET ...) ; x-compiling (DEFTYPE ADDRESS ...) ; x-compiling (DEFTYPE DISASSEM-LENGTH ...) ; x-compiling (DEFTYPE COLUMN ...) ; x-compiling (DEF!CONSTANT MAX-FILTERED-VALUE-INDEX ...) ; x-compiling (DEFTYPE FILTERED-VALUE-INDEX ...) ; x-compiling (DEFTYPE FILTERED-VALUE-VECTOR ...) ; x-compiling (DEFVAR *DISASSEM-INSTS* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *DISASSEM-INST-SPACE* ...) ; x-compiling (DEFVAR *DISASSEM-INST-ALIGNMENT-BYTES* ...) ; x-compiling (DECLAIM (TYPE ALIGNMENT ...)) ; x-compiling (DEFVAR *DISASSEM-LOCATION-COLUMN-WIDTH* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *DISASSEM-OPCODE-COLUMN-WIDTH* ...) ; x-compiling (DECLAIM (TYPE TEXT-WIDTH ...)) ; x-compiling (DEFVAR *DISASSEM-INST-COLUMN-WIDTH* ...) ; x-compiling (DECLAIM (TYPE TEXT-WIDTH ...)) ; x-compiling (DEFVAR *DISASSEM-NOTE-COLUMN* ...) ; x-compiling (DEFSTRUCT (FUN-CACHE # ...) ...) ; x-compiling (DEFVAR *DISASSEM-FUN-CACHE* ...) ; x-compiling (DECLAIM (TYPE FUN-CACHE ...)) ; x-compiling (DECLAIM (INLINE DCHUNK-OR ...)) ; x-compiling (DEF!CONSTANT DCHUNK-BITS ...) ; x-compiling (DEFTYPE DCHUNK ...) ; x-compiling (DEFTYPE DCHUNK-INDEX ...) ; x-compiling (DEF!CONSTANT DCHUNK-ZERO ...) ; x-compiling (DEF!CONSTANT DCHUNK-ONE ...) ; x-compiling (DEFUN DCHUNK-EXTRACT ...) ; x-compiling (DEFMACRO DCHUNK-COPY ...) ; x-compiling (DEFUN DCHUNK-OR ...) ; x-compiling (DEFUN DCHUNK-AND ...) ; x-compiling (DEFUN DCHUNK-CLEAR ...) ; x-compiling (DEFUN DCHUNK-NOT ...) ; x-compiling (DEFMACRO DCHUNK-ANDF ...) ; x-compiling (DEFMACRO DCHUNK-ORF ...) ; x-compiling (DEFMACRO DCHUNK-CLEARF ...) ; x-compiling (DEFUN DCHUNK-MAKE-MASK ...) ; x-compiling (DEFUN DCHUNK-MAKE-FIELD ...) ; x-compiling (DEFMACRO MAKE-DCHUNK ...) ; x-compiling (DEFUN SAP-REF-DCHUNK ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/disassem.lisp ; in: DEFUN SAP-REF-DCHUNK ; (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN) ; ==> ; SB!DISASSEM::BYTE-ORDER ; ; note: deleting unreachable code ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) ; ==> ; SB!DISASSEM::SAP ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (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 "" ; x-compiling (DEFUN DCHUNK-CORRECTED-EXTRACT ...) ; x-compiling (DEFMACRO DCHUNK-INSERTF ...) ; x-compiling (DEFUN DCHUNK= ...) ; x-compiling (DEFMACRO DCHUNK-ZEROP ...) ; x-compiling (DEFUN DCHUNK-STRICT-SUPERSET-P ...) ; x-compiling (DEFUN DCHUNK-COUNT-BITS ...) ; x-compiling (DEFSTRUCT (INSTRUCTION # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (INST-SPACE # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFSTRUCT (INST-SPACE-CHOICE # ...) ...) ; x-compiling (DEFVAR *ARG-FORM-KINDS* ...) ; x-compiling (DEFSTRUCT (ARG-FORM-KIND #) ...) ; x-compiling (DEFUN ARG-FORM-KIND-OR-LOSE ...) ; x-compiling (DEFUN FIND-ARG-FORM-PRODUCER ...) ; x-compiling (DEFUN FIND-ARG-FORM-CHECKER ...) ; x-compiling (DEFUN CANONICALIZE-ARG-FORM-KIND ...) ; x-compiling (DEFVAR *DISASSEM-INST-FORMATS* ...) ; x-compiling (DEFVAR *DISASSEM-ARG-TYPES* ...) ; x-compiling (DEFVAR *DISASSEM-FUN-CACHE* ...) ; x-compiling (DEFSTRUCT (ARG # ...) ...) ; x-compiling (DEFSTRUCT (INSTRUCTION-FORMAT # ...) ...) ; x-compiling (DEFSTRUCT (FUNSTATE # ...) ...) ; x-compiling (DEFUN MAKE-FUNSTATE ...) ; x-compiling (DEFUN FUNSTATE-COMPATIBLE-P ...) ; x-compiling (DEFUN ARG-OR-LOSE ...) ; x-compiling (DEFSTRUCT (VALSRC # ...) ...) ; x-compiling (DEFUN MAKE-VALSRC ...) ; x-compiling (DEFVAR *CURRENT-INSTRUCTION-FLAVOR* ...) ; x-compiling (DEFUN PD-ERROR ...) ; x-compiling (DEFUN SELF-EVALUATING-P ...) ; x-compiling (DEFUN MAYBE-QUOTE ...) ; x-compiling (DEFUN DOESNT-NEED-WRAPPING-P ...) ; x-compiling (DEFUN MAKE-WRAPPER ...) ; x-compiling (DEFUN FILTER-OVERRIDES ...) ; x-compiling (DEFPARAMETER *ARG-FUN-PARAMS* ...) ; x-compiling (DEFUN MUNGE-FUN-REFS ...) ; x-compiling (DEFUN GEN-ARGS-DEF-FORM ...) ; x-compiling (DEFUN GEN-PRINTER-DEF-FORMS-DEF-FORM ...) ; x-compiling (DEFUN UPDATE-ARGS-FORM ...) ; x-compiling (DEFUN FORMAT-OR-LOSE ...) ; x-compiling (DEFMACRO DEFINE-INSTRUCTION-FORMAT ...) ; x-compiling (DEFUN MAKE-ARG ...) ; x-compiling (DEFUN COPY-ARG ...) ; x-compiling (DEFUN MODIFY-OR-ADD-ARG ...) ; x-compiling (DEFUN MODIFY-ARG ...) ; x-compiling (DEFMACRO ARG-ACCESS-MACRO ...) ; x-compiling (DEFUN ARG-VALUE-FORM ...) ; x-compiling (DEFUN CORRECT-DCHUNK-BYTESPEC-FOR-ENDIANNESS ...) ; x-compiling (DEFUN MAKE-ARG-TEMP-BINDINGS ...) ; x-compiling (DEFUN GEN-ARG-FORMS ...) ; x-compiling (DEFUN MAYBE-LISTIFY ...) ; x-compiling (DEFUN SET-ARG-FROM-TYPE ...) ; x-compiling (DEFUN GET-ARG-TEMP ...) ; x-compiling (DEFUN SET-ARG-TEMPS ...) ; x-compiling (DEFMACRO DEFINE-ARG-TYPE ...) ; x-compiling (DEFMACRO DEF-ARG-FORM-KIND ...) ; x-compiling (DEF-ARG-FORM-KIND (:RAW) ...) ; x-compiling (DEF-ARG-FORM-KIND (:SIGN-EXTENDED :UNFILTERED) ...) ; x-compiling (DEFUN VALSRC-EQUAL ...) ; x-compiling (DEF-ARG-FORM-KIND (:FILTERING) ...) ; x-compiling (DEF-ARG-FORM-KIND (:FILTERED :UNADJUSTED) ...) ; x-compiling (DEF-ARG-FORM-KIND (:ADJUSTED :NUMERIC ...) ...) ; x-compiling (DEF-ARG-FORM-KIND (:LABELLED :FINAL) ...) ; x-compiling (DEF-ARG-FORM-KIND (:PRINTED) ...) ; x-compiling (DEFUN REMEMBER-PRINTER-USE ...) ; x-compiling (DEFUN SOURCE-FORM ...) ; x-compiling (DEFUN VALUE-OR-SOURCE ...) ; x-compiling (DEFSTRUCT (CACHED-FUN # ...) ...) ; x-compiling (DEFUN FIND-CACHED-FUN ...) ; x-compiling (DEFMACRO !WITH-CACHED-FUN ...) ; x-compiling (DEFUN FIND-PRINTER-FUN ...) ; x-compiling (DEFUN MAKE-PRINTER-DEFUN ...) ; x-compiling (DEFUN PREPROCESS-TEST ...) ; x-compiling (DEFUN PREPROCESS-CONDITIONALS ...) ; x-compiling (DEFUN PREPROCESS-PRINTER ...) ; x-compiling (DEFUN FIND-FIRST-FIELD-NAME ...) ; x-compiling (DEFUN PREPROCESS-CHOOSES ...) ; x-compiling (DEFUN SHARING-CONS ...) ; x-compiling (DEFUN SHARING-MAPCAR ...) ; x-compiling (DEFUN ALL-ARG-REFS-RELEVANT-P ...) ; x-compiling (DEFUN PICK-PRINTER-CHOICE ...) ; x-compiling (DEFUN COMPILE-PRINTER-LIST ...) ; x-compiling (DEFUN COMPILE-PRINTER-BODY ...) ; x-compiling (DEFUN COMPILE-PRINT ...) ; x-compiling (DEFUN STRING-OR-QSYM-P ...) ; x-compiling (DEFUN STRIP-QUOTE ...) ; x-compiling (DEFUN COMPARE-FIELDS-FORM ...) ; x-compiling (DEFUN COMPILE-TEST ...) ; x-compiling (DEFUN FIND-LABELLER-FUN ...) ; x-compiling (DEFUN FIND-PREFILTER-FUN ...) ; x-compiling (DEFUN COMPUTE-MASK-ID ...) ; x-compiling (DEFUN INSTALL-INST-FLAVORS ...) ; x-compiling (DECLAIM (INLINE BYTES-TO-BITS)) ; x-compiling (DECLAIM (MAYBE-INLINE SIGN-EXTEND ...)) ; x-compiling (DEFUN BYTES-TO-BITS ...) ; x-compiling (DEFUN BITS-TO-BYTES ...) ; x-compiling (DEFUN SIGN-EXTEND ...) ; x-compiling (DEFUN ALIGNED-P ...) ; x-compiling (DEFUN ALIGN ...) ; x-compiling (DEFUN TAB ...) ; x-compiling (DEFUN TAB0 ...) ; x-compiling (DEFUN PRINC16 ...) ; x-compiling (DEFUN READ-SIGNED-SUFFIX ...) ; x-compiling (DEFSTRUCT (DISASSEM-STATE # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN DSTATE-CUR-ADDR ...) ; x-compiling (DEFUN DSTATE-NEXT-ADDR ...) ; x-compiling (DEFMACRO DSTATE-GET-PROP ...) ; x-compiling (DEFUN DSTATE-PUT-INST-PROP ...) ; x-compiling (DEFUN DSTATE-GET-INST-PROP ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/disassem.lisp ; in: DEFUN MODIFY-ARG ; (MAPCAR ; (LAMBDA (SB!DISASSEM::BYTESPEC) ; (WHEN (> (+ # #) SB!DISASSEM::FORMAT-LENGTH) ; (ERROR "~@" ; (SB!DISASSEM::ARG-NAME SB!DISASSEM::ARG) SB!DISASSEM::BYTESPEC ; SB!DISASSEM::FORMAT-LENGTH)) ; (SB!DISASSEM::CORRECT-DCHUNK-BYTESPEC-FOR-ENDIANNESS SB!DISASSEM::BYTESPEC ; SB!DISASSEM::FORMAT-LENGTH ; SB!C:*BACKEND-BYTE-ORDER*)) ; SB!DISASSEM::FIELDS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN GEN-ARGS-DEF-FORM ; (MAPCAR ; (LAMBDA (SB!DISASSEM::OVERRIDE) ; (SB!DISASSEM::UPDATE-ARGS-FORM SB!DISASSEM::ARGS-VAR ; (SB!IMPL::BACKQ-LIST 'QUOTE ; (CAR ; SB!DISASSEM::OVERRIDE)) ; (AND (CDR SB!DISASSEM::OVERRIDE) ; (CONS :VALUE #)) ; SB!DISASSEM::EVALP)) ; SB!DISASSEM::OVERRIDES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN FILTER-OVERRIDES ; (MAPCAR ; (LAMBDA (SB!DISASSEM::OVERRIDE) ; (LIST* (CAR SB!DISASSEM::OVERRIDE) (CADR SB!DISASSEM::OVERRIDE) ; (SB!DISASSEM::MUNGE-FUN-REFS (CDDR SB!DISASSEM::OVERRIDE) ; SB!DISASSEM::EVALP))) ; SB!DISASSEM::OVERRIDES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 33 more uses of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/disassem.lisp ; in: DEFUN READ-SIGNED-SUFFIX ; (SB!DISASSEM:READ-SUFFIX LENGTH SB!DISASSEM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: READ-SUFFIX ; in: DEFUN DSTATE-NEXT-ADDR ; (SB!DISASSEM:SEG-VIRTUAL-LOCATION ; (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE)) ; ; caught STYLE-WARNING: ; undefined function: SEG-VIRTUAL-LOCATION ; in: DEFUN DSTATE-CUR-ADDR ; (SB!DISASSEM:SEG-VIRTUAL-LOCATION ; (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE)) ; ; caught STYLE-WARNING: ; undefined function: SEG-VIRTUAL-LOCATION ; in: DEFSTRUCT DISASSEM-STATE ; (DEFSTRUCT ; (SB!DISASSEM:DISASSEM-STATE (:CONC-NAME SB!DISASSEM::DSTATE-) ; (:CONSTRUCTOR SB!DISASSEM::%MAKE-DSTATE) (:COPIER NIL)) ; (SB!DISASSEM::CUR-OFFS 0 :TYPE SB!DISASSEM::OFFSET) ; (SB!DISASSEM::NEXT-OFFS 0 :TYPE SB!DISASSEM::OFFSET) ; (SB!DISASSEM::SEGMENT-SAP NIL :TYPE (OR NULL SB!SYS:SYSTEM-AREA-POINTER)) ; (SB!DISASSEM:SEGMENT NIL :TYPE (OR NULL SB!DISASSEM:SEGMENT)) ; (SB!DISASSEM::ALIGNMENT SB!VM:N-WORD-BYTES :TYPE SB!DISASSEM::ALIGNMENT) ; (SB!DISASSEM::BYTE-ORDER :LITTLE-ENDIAN :TYPE ; (MEMBER :BIG-ENDIAN :LITTLE-ENDIAN)) ; (SB!DISASSEM::PROPERTIES NIL :TYPE LIST) ; (SB!DISASSEM::INST-PROPERTIES NIL :TYPE LIST) ; (SB!DISASSEM::FILTERED-VALUES ; (MAKE-ARRAY SB!DISASSEM::MAX-FILTERED-VALUE-INDEX) :TYPE ; SB!DISASSEM::FILTERED-VALUE-VECTOR) ; (SB!DISASSEM::ADDR-PRINT-LEN NIL :TYPE (OR NULL (INTEGER 0 20))) ; ...) ; ; caught STYLE-WARNING: ; undefined type: SEGMENT ; ; compilation unit finished ; Undefined types: ; COMPILER-NOTE SEGMENT ; Undefined functions: ; READ-SUFFIX SEG-VIRTUAL-LOCATION ; caught 8 STYLE-WARNING conditions ; printed 4 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/disassem.lisp-obj-tmp written ; compilation finished in 0:00:03.585 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/assem.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!ASSEM") ; x-compiling (DEFVAR *ASSEM-SCHEDULER-P* ...) ; x-compiling (DECLAIM (TYPE BOOLEAN ...)) ; x-compiling (DEFVAR *ASSEM-INSTRUCTIONS* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *ASSEM-MAX-LOCATIONS* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFSTRUCT (SEGMENT #) ...) ; x-compiling (DEFPRINTER (SEGMENT) ...) ; x-compiling (DECLAIM (INLINE SEGMENT-CURRENT-INDEX)) ; x-compiling (DEFUN SEGMENT-CURRENT-INDEX ...) ; x-compiling (DEFUN (SETF SEGMENT-CURRENT-INDEX) ...) ; x-compiling (DEFMACRO WITH-MODIFIED-SEGMENT-INDEX-AND-POSN ...) ; x-compiling (!DEF-BOOLEAN-ATTRIBUTE INSTRUCTION ...) ; x-compiling (DEF!STRUCT (INSTRUCTION # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFMACRO WITHOUT-SCHEDULING ...) ; x-compiling (DEFMACRO NOTE-DEPENDENCIES ...) ; x-compiling (DEFUN NOTE-READ-DEPENDENCY ...) ; x-compiling (DEFUN NOTE-WRITE-DEPENDENCY ...) ; x-compiling (DEFUN QUEUE-INST ...) ; x-compiling (DEFUN SCHEDULE-PENDING-INSTRUCTIONS ...) ; x-compiling (DEFUN ADD-TO-NTH-LIST ...) ; x-compiling (DEFUN SCHEDULE-ONE-INST ...) ; x-compiling (DEFUN NOTE-RESOLVED-DEPENDENCIES ...) ; x-compiling (DEFUN ADVANCE-ONE-INST ...) ; x-compiling (DEFUN INSERT-EMITTABLE-INST ...) ; x-compiling (DEF!STRUCT (ANNOTATION # ...) ...) ; x-compiling (DEF!STRUCT (LABEL # ...)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!STRUCT (ALIGNMENT-NOTE # ...) ...) ; x-compiling (DEF!STRUCT (BACK-PATCH # ...) ...) ; x-compiling (DEF!STRUCT (CHOOSER # ...) ...) ; x-compiling (DEF!STRUCT (FILLER # ...) ...) ; x-compiling (DEFUN EMIT-BYTE ...) ; x-compiling (DEFUN EMIT-SKIP ...) ; x-compiling (DEFUN EMIT-ANNOTATION ...) ; x-compiling (DEFUN EMIT-BACK-PATCH ...) ; x-compiling (DEFUN EMIT-CHOOSER ...) ; x-compiling (DEFUN ADJUST-ALIGNMENT-AFTER-CHOOSER ...) ; x-compiling (DEFUN EMIT-FILLER ...) ; x-compiling (DEFUN %EMIT-LABEL ...) ; x-compiling (DEFUN %EMIT-ALIGNMENT ...) ; x-compiling (DEFUN FIND-ALIGNMENT ...) ; x-compiling (DEFUN %EMIT-POSTIT ...) ; x-compiling (DEFUN COMPRESS-OUTPUT ...) ; x-compiling (DEFUN FINALIZE-POSITIONS ...) ; x-compiling (DEFUN PROCESS-BACK-PATCHES ...) ; x-compiling (DEFUN COMPACT-SEGMENT-BUFFER ...) ; x-compiling (DEFMACRO %%CURRENT-SEGMENT%% ...) ; x-compiling (DEFVAR **CURRENT-SEGMENT**) ; x-compiling (DEFMACRO %%CURRENT-VOP%% ...) ; x-compiling (DEFVAR **CURRENT-VOP** ...) ; x-compiling (DEF DEF!MACRO ...) ; x-compiling (DEFMACRO INST ...) ; x-compiling (DEFMACRO EMIT-LABEL ...) ; x-compiling (DEFMACRO EMIT-POSTIT ...) ; x-compiling (DEFMACRO EMIT-ALIGNMENT ...) ; x-compiling (DEFUN LABEL-POSITION ...) ; x-compiling (DEFUN APPEND-SEGMENT ...) ; x-compiling (DEFUN FINALIZE-SEGMENT ...) ; x-compiling (DEFUN SEGMENT-CONTENTS-AS-VECTOR ...) ; x-compiling (DEFUN WRITE-SEGMENT-CONTENTS ...) ; x-compiling (DEFMACRO DEFINE-BITFIELD-EMITTER ...) ; x-compiling (DEFUN GROVEL-LAMBDA-LIST ...) ; x-compiling (DEFUN EXTRACT-NTHS ...) ; x-compiling (DEFMACRO DEFINE-INSTRUCTION ...) ; x-compiling (DEFMACRO DEFINE-INSTRUCTION-MACRO ...) ; x-compiling (DEFUN %DEFINE-INSTRUCTION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/assem.lisp ; in: !DEF-BOOLEAN-ATTRIBUTE INSTRUCTION ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!ASSEM::INSTRUCTION SB!ASSEM:FLUSHABLE ; SB!ASSEM:BRANCH SB!ASSEM:VARIABLE-LENGTH) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!ASSEM::INSTRUCTION-ATTRIBUTEP ; (LAMBDA (#:WHOLE482 #:ENVIRONMENT483) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!ASSEM::INSTRUCTION-ATTRIBUTEP ; #)))) ; '(SB!C::PLACE &REST SB!C:ATTRIBUTES &ENVIRONMENT ; SB!C::ENV) ; NIL ; '"Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE.") ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFUN EXTRACT-NTHS ; (MAPCAR (LAMBDA (LIST) (NTH SB!INT:INDEX LIST)) SB!ASSEM::LIST-OF-LISTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR ; (LAMBDA (SB!ASSEM::LIST-OF-LISTS) ; (CONS SB!ASSEM::GLUE (MAPCAR (LAMBDA # #) SB!ASSEM::LIST-OF-LISTS))) ; SB!ASSEM::LIST-OF-LISTS-OF-LISTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEF DEF!MACRO ; (SB!ASSEM::DEF SB!INT:DEF!MACRO MACROEXPAND) ; --> SB!INT:DEF!MACRO SB!INT:DEFMACRO-MUNDANELY LET LET SB-XC:DEFMACRO PROGN ; --> EVAL-WHEN SB!C::%DEFMACRO FUNCTION LET* LET* BLOCK FLET LET* ; --> SB!IMPL::BACKQ-LIST SB!IMPL::BACKQ-LIST* SB!IMPL::BACKQ-APPEND MAPCAR LET ; --> LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 5 more uses of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/assem.lisp ; in: DEFUN EMIT-SKIP ; (SB!VM:EMIT-LONG-NOP SB!ASSEM:SEGMENT SB!ASSEM::AMOUNT) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:EMIT-LONG-NOP ; in: DEFUN SCHEDULE-PENDING-INSTRUCTIONS ; (SB!C:EMIT-NOP SB!ASSEM:SEGMENT) ; ; caught STYLE-WARNING: ; undefined function: SB!C:EMIT-NOP ; in: !DEF-BOOLEAN-ATTRIBUTE INSTRUCTION ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!ASSEM::INSTRUCTION SB!ASSEM:FLUSHABLE ; SB!ASSEM:BRANCH SB!ASSEM:VARIABLE-LENGTH) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION ; --> LET* LET* BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; in: DEFUN NOTE-WRITE-DEPENDENCY ; (SB!C:LOCATION-NUMBER WRITE) ; ; caught STYLE-WARNING: ; undefined function: SB!C:LOCATION-NUMBER ; in: DEFUN NOTE-READ-DEPENDENCY ; (SB!C:LOCATION-NUMBER READ) ; ; caught STYLE-WARNING: ; undefined function: SB!C:LOCATION-NUMBER ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; SB!IMPL::ASSIGN-SETF-MACRO SB!VM:EMIT-LONG-NOP SB!C:EMIT-NOP SB-XC:GET-SETF-EXPANSION SB!C:LOCATION-NUMBER ; caught 10 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/assem.lisp-obj-tmp written ; compilation finished in 0:00:01.844 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/debug-info.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-CONTEXT-P ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-COUNT-P ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ENVIRONMENT-LIVE ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-SAVE-LOC-P ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ID-P ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MINIMAL-P ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-DELETED-P ...) ; x-compiling (DEFCONSTANT-EQX COMPILED-DEBUG-BLOCK-NSUCC-BYTE ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-BLOCK-ELSEWHERE-P ...) ; x-compiling (DEFCONSTANT-EQX COMPILED-CODE-LOCATION-KIND-BYTE ...) ; x-compiling (DEFPARAMETER *COMPILED-CODE-LOCATION-KINDS* ...) ; x-compiling (DEF!STRUCT (DEBUG-FUN #)) ; x-compiling (DEF!STRUCT (COMPILED-DEBUG-FUN # ...) ...) ; x-compiling (DEF!STRUCT (DEBUG-SOURCE #) ...) ; x-compiling (DEF!STRUCT DEBUG-INFO ...) ; x-compiling (DEFCONSTANT +DEBUG-INFO-SOURCE-INDEX+ ...) ; x-compiling (DEF!STRUCT (COMPILED-DEBUG-INFO # ...) ...) ; x-compiling (DEFVAR *!INITIAL-DEBUG-SOURCES*) ; x-compiling (DEFUN !DEBUG-INFO-COLD-INIT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/debug-info.lisp-obj-tmp written ; compilation finished in 0:00:00.900 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/dump.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!FASL") ; x-compiling (DEFSTRUCT (FASL-OUTPUT # ...) ...) ; x-compiling (DEFSTRUCT (CIRCULARITY #) ...) ; x-compiling (DEFVAR *CIRCULARITIES-DETECTED*) ; x-compiling (DEFVAR *DUMP-ONLY-VALID-STRUCTURES* ...) ; x-compiling (DEFUN DUMP-BYTE ...) ; x-compiling (DEFUN DUMP-WORD ...) ; x-compiling (DEFUN DUMP-UNSIGNED-BYTE-32 ...) ; x-compiling (DEFUN DUMP-INTEGER-AS-N-BYTES ...) ; x-compiling (DEFMACRO DUMP-FOP ...) ; x-compiling (DEFMACRO DUMP-FOP* ...) ; x-compiling (DEFUN DUMP-PUSH ...) ; x-compiling (DEFUN DUMP-POP ...) ; x-compiling (DEFUN EQUAL-CHECK-TABLE ...) ; x-compiling (DEFUN STRING-CHECK-TABLE ...) ; x-compiling (DEFUN EQ-SAVE-OBJECT ...) ; x-compiling (DEFUN EQUAL-SAVE-OBJECT ...) ; x-compiling (DEFUN STRING-SAVE-OBJECT ...) ; x-compiling (DEFUN NOTE-POTENTIAL-CIRCULARITY ...) ; x-compiling (DEFUN OPEN-FASL-OUTPUT ...) ; x-compiling (DEFUN CLOSE-FASL-OUTPUT ...) ; x-compiling (DEFUN DUMP-NON-IMMEDIATE-OBJECT ...) ; x-compiling (DEFUN SUB-DUMP-OBJECT ...) ; x-compiling (DEFUN DUMP-CIRCULARITIES ...) ; x-compiling (DEFUN DUMP-OBJECT ...) ; x-compiling (DEFUN FASL-DUMP-LOAD-TIME-VALUE-LAMBDA ...) ; x-compiling (DEFUN FASL-CONSTANT-ALREADY-DUMPED-P ...) ; x-compiling (DEFUN FASL-NOTE-HANDLE-FOR-CONSTANT ...) ; x-compiling (DEFUN FASL-VALIDATE-STRUCTURE ...) ; x-compiling (DEFUN DUMP-RATIO ...) ; x-compiling (DEFUN DUMP-INTEGER ...) ; x-compiling (DEFUN DUMP-FLOAT ...) ; x-compiling (DEFUN DUMP-COMPLEX-SINGLE-FLOAT ...) ; x-compiling (DEFUN DUMP-COMPLEX-DOUBLE-FLOAT ...) ; x-compiling (DEFUN DUMP-COMPLEX-RATIONAL ...) ; x-compiling (DEFUN DUMP-COMPLEX ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN DUMP-PACKAGE ...) ; x-compiling (DEFUN DUMP-LIST ...) ; x-compiling (DEFUN TERMINATE-DOTTED-LIST ...) ; x-compiling (DEFUN TERMINATE-UNDOTTED-LIST ...) ; x-compiling (DEFUN DUMP-ARRAY ...) ; x-compiling (DEFUN DUMP-VECTOR ...) ; x-compiling (DEFUN DUMP-SIMPLE-VECTOR ...) ; x-compiling (DEFUN DUMP-SPECIALIZED-VECTOR ...) ; x-compiling (DEFUN DUMP-CHARACTER ...) ; x-compiling (DEFUN DUMP-BASE-CHARS-OF-STRING ...) ; x-compiling (DEFUN DUMP-SIMPLE-BASE-STRING ...) ; x-compiling (DEFUN DUMP-SYMBOL ...) ; x-compiling (DEFUN DUMP-SEGMENT ...) ; x-compiling (DEFUN DUMP-FIXUPS ...) ; x-compiling (DEFUN DUMP-CODE-OBJECT ...) ; x-compiling (DEFUN DUMP-ASSEMBLER-ROUTINES ...) ; x-compiling (DEFUN DUMP-ONE-ENTRY ...) ; x-compiling (DEFUN DUMP-ALTER-CODE-OBJECT ...) ; x-compiling (DEFUN FASL-DUMP-COMPONENT ...) ; x-compiling (DEFUN DUMP-PUSH-PREVIOUSLY-DUMPED-FUN ...) ; x-compiling (DEFUN FASL-DUMP-TOPLEVEL-LAMBDA-CALL ...) ; x-compiling (DEFUN FASL-DUMP-SOURCE-INFO ...) ; x-compiling (DEFUN DUMP-STRUCTURE ...) ; x-compiling (DEFUN DUMP-LAYOUT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/dump.lisp ; in: DEFUN DUMP-CODE-OBJECT ; (SB!C::DEBUG-INFO-FOR-COMPONENT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-INFO-FOR-COMPONENT ; in: DEFUN FASL-DUMP-SOURCE-INFO ; (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-SOURCE-FOR-INFO ; in: DEFUN DUMP-SYMBOL ; (SB!FASL::DUMP-CHARACTERS-OF-STRING SB!FASL::PNAME SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-CHARACTERS-OF-STRING ; in: DEFUN DUMP-PACKAGE ; (SB!FASL::DUMP-CHARACTERS-OF-STRING ; (COERCE SB!FASL::S '(SIMPLE-ARRAY CHARACTER (*))) SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-CHARACTERS-OF-STRING ; in: DEFUN DUMP-ARRAY ; (SB!FASL::DUMP-MULTI-DIM-ARRAY SB!FASL::X SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-MULTI-DIM-ARRAY ; in: DEFUN DUMP-SPECIALIZED-VECTOR ; (SB!FASL::DUMP-RAW-BYTES VECTOR ; (CEILING (* LENGTH SB!FASL::BITS-PER-LENGTH) SB!VM:N-BYTE-BITS) ; SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-RAW-BYTES ; in: DEFUN DUMP-VECTOR ; (SB!FASL::DUMP-SIMPLE-CHARACTER-STRING SB!FASL::SIMPLE-VERSION SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-SIMPLE-CHARACTER-STRING ; in: DEFUN DUMP-FIXUPS ; (SB!C:FIXUP-FLAVOR SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-FLAVOR ; (SB!C:FIXUP-NAME SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NAME ; (SB!C:FIXUP-NOTE-FIXUP SB!FASL::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-FIXUP ; (SB!C:FIXUP-NOTE-KIND SB!FASL::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-KIND ; (SB!C:FIXUP-NOTE-POSITION SB!FASL::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-POSITION ; in: DEFUN OPEN-FASL-OUTPUT ; (SB!EXT:NATIVE-NAMESTRING SB!EXT:*RUNTIME-PATHNAME* :AS-FILE T) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-NAMESTRING ; (SB!EXT:STRING-TO-OCTETS STRING :EXTERNAL-FORMAT :UTF-8) ; ; caught STYLE-WARNING: ; undefined function: STRING-TO-OCTETS ; ; compilation unit finished ; Undefined functions: ; SB!C::DEBUG-INFO-FOR-COMPONENT SB!C::DEBUG-SOURCE-FOR-INFO DUMP-CHARACTERS-OF-STRING DUMP-MULTI-DIM-ARRAY DUMP-RAW-BYTES DUMP-SIMPLE-CHARACTER-STRING FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION NATIVE-NAMESTRING STRING-TO-OCTETS ; caught 14 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/dump.lisp-obj-tmp written ; compilation finished in 0:00:01.590 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/main.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (SPECIAL *CONSTANTS* ...)) ; x-compiling (DEFVAR *FLAME-ON-NECESSARILY-UNDEFINED-THING* ...) ; x-compiling (DEFVAR *CHECK-CONSISTENCY* ...) ; x-compiling (DEFVAR *LOOP-ANALYZE* ...) ; x-compiling (DEFVAR *COMPILER-TRACE-OUTPUT* ...) ; x-compiling (DEFVAR *BLOCK-COMPILE*) ; x-compiling (DEFVAR *BLOCK-COMPILE-ARG*) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *ENTRY-POINTS*) ; x-compiling (DECLAIM (LIST *ENTRY-POINTS*)) ; x-compiling (DEFVAR *TOPLEVEL-LAMBDAS*) ; x-compiling (DECLAIM (LIST *TOPLEVEL-LAMBDAS*)) ; x-compiling (DEFVAR *TOP-LEVEL-FORM-NOTED* ...) ; x-compiling (DEFVAR SB-XC:*COMPILE-VERBOSE* ...) ; x-compiling (DEFVAR SB-XC:*COMPILE-PRINT* ...) ; x-compiling (DEFVAR *COMPILE-PROGRESS* ...) ; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME* ...) ; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *SOURCE-INFO* ...) ; x-compiling (DEFVAR *IN-COMPILATION-UNIT* ...) ; x-compiling (DEFVAR *ABORTED-COMPILATION-UNIT-COUNT*) ; x-compiling (DEFUN MAYBE-MUMBLE ...) ; x-compiling (DEFTYPE OBJECT ...) ; x-compiling (DEFVAR *COMPILE-OBJECT* ...) ; x-compiling (DECLAIM (TYPE OBJECT ...)) ; x-compiling (DEFVAR *COMPILE-TOPLEVEL-OBJECT* ...) ; x-compiling (DEFVAR *EMIT-CFASL* ...) ; x-compiling (DEFVAR *FOPCOMPILE-LABEL-COUNTER*) ; x-compiling (DEFVAR *CODE-COVERAGE-RECORDS* ...) ; x-compiling (DEFVAR *CODE-COVERAGE-BLOCKS* ...) ; x-compiling (DEFVAR *CODE-COVERAGE-INFO* ...) ; x-compiling (DEFMACRO SB-XC:WITH-COMPILATION-UNIT ...) ; x-compiling (DEFVAR *SOURCE-PLIST* ...) ; x-compiling (DEFVAR *SOURCE-NAMESTRING* ...) ; x-compiling (DEFUN %WITH-COMPILATION-UNIT ...) ; x-compiling (DEFUN NAME-RESERVED-BY-ANSI-P ...) ; x-compiling (DEFUN SUMMARIZE-COMPILATION-UNIT ...) ; x-compiling (DEFMACRO WITH-COMPILATION-VALUES ...) ; x-compiling (DEFPARAMETER *MAX-OPTIMIZE-ITERATIONS* ...) ; x-compiling (DEFEVENT IR1-OPTIMIZE-UNTIL-DONE ...) ; x-compiling (DEFEVENT IR1-OPTIMIZE-MAXED-OUT ...) ; x-compiling (DEFUN IR1-OPTIMIZE-UNTIL-DONE ...) ; x-compiling (DEFPARAMETER *CONSTRAINT-PROPAGATE* ...) ; x-compiling (DEFPARAMETER *REOPTIMIZE-AFTER-TYPE-CHECK-MAX* ...) ; x-compiling (DEFEVENT REOPTIMIZE-MAXED-OUT ...) ; x-compiling (DEFUN DFO-AS-NEEDED ...) ; x-compiling (DEFUN IR1-PHASES ...) ; x-compiling (DEFUN %COMPILE-COMPONENT ...) ; x-compiling (DEFUN DELETE-IF-NO-ENTRIES ...) ; x-compiling (DEFUN COMPILE-COMPONENT ...) ; x-compiling (DEFUN CLEAR-CONSTANT-INFO ...) ; x-compiling (DEFUN CLEAR-IR1-INFO ...) ; x-compiling (DEFUN DESCRIBE-COMPONENT ...) ; x-compiling (DEFUN DESCRIBE-IR2-COMPONENT ...) ; x-compiling (DEF!STRUCT (FILE-INFO # ...) ...) ; x-compiling (DEF!STRUCT (SOURCE-INFO # ...) ...) ; x-compiling (DEFUN MAKE-FILE-SOURCE-INFO ...) ; x-compiling (DEFUN MAKE-LISP-SOURCE-INFO ...) ; x-compiling (DEFUN GET-TOPLEVELISH-FILE-INFO ...) ; x-compiling (DEFUN READ-FOR-COMPILE-FILE ...) ; x-compiling (DEFUN GET-SOURCE-STREAM ...) ; x-compiling (DEFUN CLOSE-SOURCE-INFO ...) ; x-compiling (DEFMACRO DO-FORMS-FROM-INFO ...) ; x-compiling (DEFUN SUB-SUB-COMPILE-FILE ...) ; x-compiling (DEFUN FIND-SOURCE-ROOT ...) ; x-compiling (DEFUN CONVERT-AND-MAYBE-COMPILE ...) ; x-compiling (DEFUN PREPROCESSOR-MACROEXPAND-1 ...) ; x-compiling (DEFUN PROCESS-TOPLEVEL-PROGN ...) ; x-compiling (DEFUN PROCESS-TOPLEVEL-LOCALLY ...) ; x-compiling (DEFUN PARSE-EVAL-WHEN-SITUATIONS ...) ; x-compiling (DEFUN FUNCTIONAL-COMPONENTS ...) ; x-compiling (DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ...) ; x-compiling (DEFUN %COMPILE ...) ; x-compiling (DEFUN PROCESS-TOPLEVEL-COLD-FSET ...) ; x-compiling (DEFUN NOTE-TOP-LEVEL-FORM ...) ; x-compiling (DEFUN EVAL-COMPILE-TOPLEVEL ...) ; x-compiling (DEFUN PROCESS-TOPLEVEL-FORM ...) ; x-compiling (DEFUN PRODUCING-FASL-FILE ...) ; x-compiling (DEFUN COMPILE-LOAD-TIME-VALUE ...) ; x-compiling (DEFUN COMPILE-MAKE-LOAD-FORM-INIT-FORMS ...) ; x-compiling (DEFUN COMPILE-LOAD-TIME-STUFF ...) ; x-compiling (DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA ...) ; x-compiling (DEFUN OBJECT-CALL-TOPLEVEL-LAMBDA ...) ; x-compiling (DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS ...) ; x-compiling (DEFUN COMPILE-TOPLEVEL-LAMBDAS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/main.lisp ; in: DEFUN COMPILE-TOPLEVEL-LAMBDAS ; (POSITION-IF (LAMBDA (SB!C::X) (NOT (EQ (SB!C::COMPONENT-KIND #) :TOPLEVEL))) ; SB!C::LAMBDAS :START (MIN SB!C::START SB!C::LEN)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB!KERNEL:%FIND-POSITION-IF LET FLET IF AND IF AND THE > ; ==> ; SB!C::START ; ; note: deleting unreachable code ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB!KERNEL:%FIND-POSITION-IF LET FLET BLOCK ; --> SB!INT:SEQUENCE-BOUNDING-INDICES-BAD-ERROR ; ==> ; SB!C::START ; ; note: deleting unreachable code ; x-compiling (DEFUN COMPILE-TOPLEVEL ...) ; x-compiling (DEFUN FINISH-BLOCK-COMPILATION ...) ; x-compiling (DEFUN HANDLE-CONDITION-P ...) ; x-compiling (DEFUN HANDLE-CONDITION-HANDLER ...) ; x-compiling (DEFUN SUB-COMPILE-FILE ...) ; x-compiling (DEFUN VERIFY-SOURCE-FILE ...) ; x-compiling (DEFUN ELAPSED-TIME-TO-STRING ...) ; x-compiling (DEFUN PRINT-COMPILE-START-NOTE ...) ; x-compiling (DEFUN PRINT-COMPILE-END-NOTE ...) ; x-compiling (DEFUN SB-XC:COMPILE-FILE ...) ; x-compiling (DEFUN CFP-OUTPUT-FILE-DEFAULT ...) ; x-compiling (DEFUN SB-XC:COMPILE-FILE-PATHNAME ...) ; x-compiling (DEFVAR *CONSTANTS-BEING-CREATED* ...) ; x-compiling (DEFVAR *CONSTANTS-CREATED-SINCE-LAST-INIT* ...) ; x-compiling (DEFUN EMIT-MAKE-LOAD-FORM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/main.lisp ; in: DEFUN IR1-PHASES ; (SB!C::EVENT SB!C::REOPTIMIZE-MAXED-OUT) ; ==> ; (SB!C::%EVENT SB!C::*REOPTIMIZE-MAXED-OUT-EVENT-INFO* NIL) ; ; caught STYLE-WARNING: ; undefined function: %EVENT ; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE ; (SB!C::EVENT SB!C::IR1-OPTIMIZE-UNTIL-DONE) ; ==> ; (SB!C::%EVENT SB!C::*IR1-OPTIMIZE-UNTIL-DONE-EVENT-INFO* NIL) ; ; caught STYLE-WARNING: ; undefined function: %EVENT ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::CHECK-IR1-CONSISTENCY SB!C::ALL-COMPONENTS) ; ; caught STYLE-WARNING: ; undefined function: CHECK-IR1-CONSISTENCY ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::CHECK-IR2-CONSISTENCY SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CHECK-IR2-CONSISTENCY ; (SB!C::CHECK-LIFE-CONSISTENCY SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CHECK-LIFE-CONSISTENCY ; (SB!C::CHECK-PACK-CONSISTENCY SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CHECK-PACK-CONSISTENCY ; in: DEFUN HANDLE-CONDITION-HANDLER ; (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT* ; (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)) ; (SB!C::COMPILER-ERROR-CONTEXT ; (LET ((SB!KERNEL:LEXENV #)) ; (SB!INT:AVER SB!KERNEL:LEXENV) ; SB!KERNEL:LEXENV)) ; (NULL SB!C:*LEXENV*)) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G69031 'SB!C::COMPILER-ERROR-CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; in: DEFUN HANDLE-CONDITION-P ; (DEFUN SB!C::HANDLE-CONDITION-P (CONDITION) ; (LET ((SB!KERNEL:LEXENV (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT* # # #))) ; (LET ((SB!C::MUFFLES #)) ; (IF (NULL SB!C::MUFFLES) ; NIL ; (DOLIST # #))))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!C::HANDLE-CONDITION-P ; (LAMBDA (CONDITION) ; (BLOCK SB!C::HANDLE-CONDITION-P ; (LET (#) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT* ; (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)) ; (SB!C::COMPILER-ERROR-CONTEXT ; (LET ((SB!KERNEL:LEXENV #)) ; (SB!INT:AVER SB!KERNEL:LEXENV) ; SB!KERNEL:LEXENV)) ; (NULL SB!C:*LEXENV*)) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G69016 'SB!C::COMPILER-ERROR-CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; ; caught STYLE-WARNING: ; 36 more uses of undefined type COMPILER-ERROR-CONTEXT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/main.lisp ; in: DEFUN HANDLE-CONDITION-HANDLER ; (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-CONTEXT-LEXENV ; in: DEFUN HANDLE-CONDITION-P ; (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-CONTEXT-LEXENV ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (UNLESS (ZEROP #) ; (SB!C::WITH-SOURCE-PATHS ; #)) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET (#) ; (ETYPECASE SB!C::OBJECT # # #)) ; NIL))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET LET LIST* CONS LIST CONS ; ==> ; #'SB!C::COMPILER-ERROR-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-HANDLER ; in: DEFUN NOTE-TOP-LEVEL-FORM ; (SB!C::COMPILER-MUMBLE "~&; ~:[compiling~;converting~] ~S" ; SB!C::*BLOCK-COMPILE* SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-MUMBLE ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::COMPILER-MUMBLE "") ; ; caught STYLE-WARNING: ; undefined function: COMPILER-MUMBLE ; in: DEFUN MAYBE-MUMBLE ; (SB!C::COMPILER-MUMBLE "~&") ; ; caught STYLE-WARNING: ; undefined function: COMPILER-MUMBLE ; ; caught STYLE-WARNING: ; 4 more uses of undefined function COMPILER-MUMBLE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/main.lisp ; in: DEFUN NOTE-TOP-LEVEL-FORM ; (SB!C::WITH-COMPILER-IO-SYNTAX ; (SB!C::COMPILER-MUMBLE "~&; ... top level ~S" SB!KERNEL:FORM)) ; --> SB!INT:WITH-SANE-IO-SYNTAX SB!IMPL::CALL-WITH-SANE-IO-SYNTAX LAMBDA ; --> FUNCTION PROGV LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN LABELS ; --> #:BIND954 NREVERSE MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (SB!C::WITH-COMPILER-IO-SYNTAX ; (SB!C::COMPILER-MUMBLE "~&; ~:[compiling~;converting~] ~S" ; SB!C::*BLOCK-COMPILE* SB!KERNEL:FORM)) ; --> SB!INT:WITH-SANE-IO-SYNTAX SB!IMPL::CALL-WITH-SANE-IO-SYNTAX LAMBDA ; --> FUNCTION PROGV LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN LABELS ; --> #:BIND940 NREVERSE MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SUMMARIZE-COMPILATION-UNIT ; (MAPCAR #'SB!C::UNDEFINED-WARNING-NAME ; (REMOVE SB!C::KIND SB!C::UNDEFS :TEST #'SB!INT:NEQ :KEY ; #'SB!C::UNDEFINED-WARNING-KIND)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (UNLESS (ZEROP #) ; (SB!C::WITH-SOURCE-PATHS ; #)) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET (#) ; (ETYPECASE SB!C::OBJECT # # #)) ; NIL))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET LET LIST* CONS LIST CONS ; ==> ; #'SB!C::COMPILER-STYLE-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARNING-HANDLER ; in: DEFUN SUMMARIZE-COMPILATION-UNIT ; #'SB!C::COMPILER-STYLE-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARNING-HANDLER ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (UNLESS (ZEROP #) ; (SB!C::WITH-SOURCE-PATHS ; #)) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET (#) ; (ETYPECASE SB!C::OBJECT # # #)) ; NIL))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET LET LIST* CONS LIST CONS ; ==> ; #'SB!C::COMPILER-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARNING-HANDLER ; in: DEFUN SUMMARIZE-COMPILATION-UNIT ; #'SB!C::COMPILER-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARNING-HANDLER ; in: DEFUN IR1-PHASES ; (SB!C::CONSTRAINT-PROPAGATE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CONSTRAINT-PROPAGATE ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::CONTROL-ANALYZE SB!C:COMPONENT #'SB!C::MAKE-IR2-BLOCK) ; ; caught STYLE-WARNING: ; undefined function: CONTROL-ANALYZE ; (SB!C::COPY-PROPAGATE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: COPY-PROPAGATE ; in: DEFUN DELETE-IF-NO-ENTRIES ; (SB!C::DELETE-COMPONENT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: DELETE-COMPONENT ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::DELETE-UNREFERENCED-TNS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: DELETE-UNREFERENCED-TNS ; (SB!DISASSEM:DISASSEMBLE-ASSEM-SEGMENT SB!C:*CODE-SEGMENT* ; SB!C::*COMPILER-TRACE-OUTPUT*) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:DISASSEMBLE-ASSEM-SEGMENT ; (SB!C::ENTRY-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: ENTRY-ANALYZE ; in: DEFUN EVAL-COMPILE-TOPLEVEL ; (SB!EXT:EVAL-TLF (SB!IMPL::BACKQ-CONS 'PROGN SB!C::BODY) ; (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::PATH) SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: EVAL-TLF ; 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 IR1-PHASES ; (SB!C::FLUSH-DEAD-CODE BLOCK) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-DEAD-CODE ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::FOPCOMPILABLE-P SB!KERNEL:FORM) ; ; 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::FUN) ; :SOURCE-NAME SB!C::SOURCE-NAME :DEBUG-NAME ; (SB!C::DEBUG-NAME 'SB!C::TL-XEP ; SB!C::DEBUG-NAME-TAIL) ; :SYSTEM-LAMBDA T) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDA ; (FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION :SOURCE-NAME ; SB!C::SOURCE-NAME) ; ==> ; (SB!C::%FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION ; :SOURCE-NAME SB!C::SOURCE-NAME) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDALIKE ; in: DEFUN IR1-PHASES ; (SB!C::IR1-FINALIZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: IR1-FINALIZE ; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE ; (SB!C::IR1-OPTIMIZE SB!C:COMPONENT SB!C::FASTP) ; ; caught STYLE-WARNING: ; undefined function: IR1-OPTIMIZE ; in: DEFUN COMPILE-LOAD-TIME-STUFF ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* SB!C::FOR-VALUE NIL) ; ; caught STYLE-WARNING: ; undefined function: IR1-TOPLEVEL ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::PATH NIL) ; ; caught STYLE-WARNING: ; undefined function: IR1-TOPLEVEL ; in: DEFUN %COMPILE-COMPONENT ; (SB!C:IR2-CONVERT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT ; (SB!C::IR2-OPTIMIZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: IR2-OPTIMIZE ; in: DEFUN DESCRIBE-IR2-COMPONENT ; (SB!C:LABEL-ID (SB!C::ENTRY-INFO-OFFSET SB!C::ENTRY)) ; ; caught STYLE-WARNING: ; undefined function: LABEL-ID ; in: DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA ; (SB!C::LAMBDA-COMPONENT LAMBDA) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN FUNCTIONAL-COMPONENTS ; (SB!C::LAMBDA-COMPONENT SB!C::F) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN COMPILE-COMPONENT ; (SB!C::LAMBDA-COMPONENT LAMBDA) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::LIFETIME-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LIFETIME-ANALYZE ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE SB!C::LAMBDAS) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ; in: DEFUN %COMPILE ; (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE (LIST SB!C::FUN)) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ; in: DEFUN IR1-PHASES ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::LOCALL-ANALYZE-XEP-ENTRY-POINT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-XEP-ENTRY-POINT ; in: DEFUN COMPILE-COMPONENT ; (SB!C::LOOP-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LOOP-ANALYZE ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::LTN-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LTN-ANALYZE ; (SB!C::MAKE-CORE-COMPONENT SB!C:COMPONENT SB!C:*CODE-SEGMENT* ; SB!C::CODE-LENGTH SB!C::FIXUP-NOTES SB!C::*COMPILE-OBJECT*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CORE-COMPONENT ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::MAKE-EMPTY-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: MAKE-EMPTY-COMPONENT ; in: DEFUN %COMPILE ; (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS ; SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS ; SB!C::*DISABLED-PACKAGE-LOCKS*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::MAKE-LEXENV :POLICY ; (SB!C::LEXENV-POLICY (SB!C::FUNCTIONAL-LEXENV SB!C::FUN))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS ; SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS ; SB!C::*DISABLED-PACKAGE-LOCKS*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN EMIT-MAKE-LOAD-FORM ; (SB-XC:MAKE-LOAD-FORM SB!KERNEL:CONSTANT (SB!KERNEL:MAKE-NULL-LEXENV)) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MAKE-LOAD-FORM ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAKE-XEP-LAMBDA-EXPRESSION ; in: DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS ; (SB!C::MERGE-TOPLEVEL-LAMBDAS SB!C::LAMBDAS) ; ; caught STYLE-WARNING: ; undefined function: MERGE-TOPLEVEL-LAMBDAS ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::NAME-LAMBDALIKE SB!C::LAMBDA-EXPRESSION) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN CLEAR-IR1-INFO ; (SB!C::NODE-COMPONENT SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; in: DEFUN COMPILE-COMPONENT ; (SB!C::NODE-COMPONENT (SB!C::LAMBDA-BIND LAMBDA)) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; in: DEFUN DELETE-IF-NO-ENTRIES ; (SB!C::NODE-COMPONENT SB!C::REF) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; ; caught STYLE-WARNING: ; 1 more use of undefined function NODE-COMPONENT ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/main.lisp ; in: DEFUN %WITH-COMPILATION-UNIT ; (SB!C::NOTE-UNDEFINED-REFERENCE ; (SB!KERNEL:PARSE-UNKNOWN-TYPE-SPECIFIER SB!C::C) :TYPE) ; ; caught STYLE-WARNING: ; undefined function: NOTE-UNDEFINED-REFERENCE ; in: DEFUN %COMPILE-COMPONENT ; (SB!REGALLOC:PACK SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SB!REGALLOC:PACK ; in: DEFUN COMPILE-COMPONENT ; (SB!C::PHYSENV-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PHYSENV-ANALYZE ; in: DEFUN DESCRIBE-IR2-COMPONENT ; (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*) ; ; caught STYLE-WARNING: ; undefined function: PRE-PACK-TN-STATS ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*) ; ; caught STYLE-WARNING: ; undefined function: PRE-PACK-TN-STATS ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::PRE-PHYSENV-ANALYZE-TOPLEVEL SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PRE-PHYSENV-ANALYZE-TOPLEVEL ; in: DEFUN DESCRIBE-COMPONENT ; (SB!C::PRINT-ALL-BLOCKS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PRINT-ALL-BLOCKS ; in: DEFUN DESCRIBE-IR2-COMPONENT ; (SB!C::PRINT-IR2-BLOCKS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PRINT-IR2-BLOCKS ; in: DEFUN PROCESS-TOPLEVEL-LOCALLY ; (SB!C::PROCESS-DECLS SB!C::DECLS SB!C::VARS SB!C::FUNS) ; ; caught STYLE-WARNING: ; undefined function: PROCESS-DECLS ; in: DEFUN COMPILE-COMPONENT ; (SB!C::RECORD-COMPONENT-XREFS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: RECORD-COMPONENT-XREFS ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::REOPTIMIZE-COMPONENT SB!C:COMPONENT :MAYBE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::REPLACE-TOPLEVEL-XEPS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: REPLACE-TOPLEVEL-XEPS ; in: DEFUN %COMPILE ; (SB!C::REPLACE-TOPLEVEL-XEPS SB!C::COMPONENT-FROM-DFO) ; ; caught STYLE-WARNING: ; undefined function: REPLACE-TOPLEVEL-XEPS ; in: DEFUN IR1-PHASES ; (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :CONSTRAINT) ; ; caught STYLE-WARNING: ; undefined function: RETRY-DELAYED-IR1-TRANSFORMS ; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE ; (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :OPTIMIZE) ; ; caught STYLE-WARNING: ; undefined function: RETRY-DELAYED-IR1-TRANSFORMS ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::SELECT-REPRESENTATIONS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SELECT-REPRESENTATIONS ; in: DEFUN EVAL-COMPILE-TOPLEVEL ; (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::PATH) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-TLF-NUMBER ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::STACK-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: STACK-ANALYZE ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::SUBSTITUTE-LEAF-IF ; (LAMBDA (SB!C::REF) ; (LET* ((SB!C::LVAR #) (SB!C::DEST #) (SB!C::KIND #)) ; (SB!INT:NEQ :LOCAL SB!C::KIND))) ; SB!C::XEP SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF-IF ; ; compilation unit finished ; Undefined types: ; COMPILER-ERROR-CONTEXT COMPILER-NOTE ; Undefined functions: ; %EVENT CHECK-IR1-CONSISTENCY CHECK-IR2-CONSISTENCY CHECK-LIFE-CONSISTENCY CHECK-PACK-CONSISTENCY COMPILER-ERROR-CONTEXT-LEXENV COMPILER-ERROR-HANDLER COMPILER-MUMBLE COMPILER-STYLE-WARNING-HANDLER COMPILER-WARNING-HANDLER CONSTRAINT-PROPAGATE CONTROL-ANALYZE COPY-PROPAGATE DELETE-COMPONENT DELETE-UNREFERENCED-TNS SB!DISASSEM:DISASSEMBLE-ASSEM-SEGMENT ENTRY-ANALYZE EVAL-TLF FASL-DUMP-COLD-FSET FIND-DFO FIND-DOMINATORS FIND-INITIAL-DFO FIND-SOURCE-PATHS FLUSH-DEAD-CODE 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 IR2-OPTIMIZE LABEL-ID LAMBDA-COMPONENT LIFETIME-ANALYZE LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE LOCALL-ANALYZE-COMPONENT LOCALL-ANALYZE-XEP-ENTRY-POINT LOOP-ANALYZE LTN-ANALYZE MAKE-CORE-COMPONENT MAKE-EMPTY-COMPONENT MAKE-LEXENV SB-XC:MAKE-LOAD-FORM MAKE-XEP-LAMBDA-EXPRESSION MERGE-TOPLEVEL-LAMBDAS NAME-LAMBDALIKE NODE-COMPONENT NOTE-UNDEFINED-REFERENCE SB!REGALLOC:PACK PHYSENV-ANALYZE PRE-PACK-TN-STATS PRE-PHYSENV-ANALYZE-TOPLEVEL PRINT-ALL-BLOCKS PRINT-IR2-BLOCKS PROCESS-DECLS RECORD-COMPONENT-XREFS REOPTIMIZE-COMPONENT REPLACE-TOPLEVEL-XEPS RETRY-DELAYED-IR1-TRANSFORMS SELECT-REPRESENTATIONS SOURCE-PATH-TLF-NUMBER STACK-ANALYZE SUBSTITUTE-LEAF-IF ; caught 101 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/main.lisp-obj-tmp written ; compilation finished in 0:00:02.017 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/xref.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *XREF-KINDS* ...) ; x-compiling (DEFUN RECORD-COMPONENT-XREFS ...) ; x-compiling (DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ...) ; x-compiling (DEFUN RECORD-NODE-XREFS ...) ; x-compiling (DEFUN INTERNAL-NAME-P ...) ; x-compiling (DEFUN RECORD-XREF ...) ; x-compiling (DEFUN RECORD-MACROEXPANSION ...) ; x-compiling (DEFUN RECORD-CALL ...) ; x-compiling (DEFUN PACK-XREF-DATA ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/xref.lisp ; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ; (SB!C::BLOCK-HOME-LAMBDA BLOCK) ; ; caught STYLE-WARNING: ; undefined function: BLOCK-HOME-LAMBDA ; in: DEFUN RECORD-NODE-XREFS ; (SB!C::CONSTANT-LVAR-P SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; (SB!C::LVAR-VALUE SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ; (SB!C::NODE-HOME-LAMBDA SB!C::REF) ; ; caught STYLE-WARNING: ; undefined function: NODE-HOME-LAMBDA ; in: DEFUN RECORD-NODE-XREFS ; (SB!C::PRINCIPAL-LVAR-USE (SB!C::COMBINATION-FUN SB!C::NODE)) ; ; caught STYLE-WARNING: ; undefined function: PRINCIPAL-LVAR-USE ; in: DEFUN RECORD-XREF ; (SB!C::SOURCE-PATH-ORIGINAL-SOURCE ; (OR SB!C::PATH (SB!C::NODE-SOURCE-PATH SB!C::NODE))) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-ORIGINAL-SOURCE ; ; compilation unit finished ; Undefined functions: ; BLOCK-HOME-LAMBDA CONSTANT-LVAR-P LVAR-VALUE NODE-HOME-LAMBDA PRINCIPAL-LVAR-USE SOURCE-PATH-ORIGINAL-SOURCE ; caught 6 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/xref.lisp-obj-tmp written ; compilation finished in 0:00:00.769 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/source-location.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!STRUCT (DEFINITION-SOURCE-LOCATION #) ...) ; x-compiling (DEFUN MAKE-FILE-INFO-NAMESTRING ...) ; x-compiling (DEFINE-COMPILER-MACRO SOURCE-LOCATION ...) ; x-compiling (SETF (SYMBOL-FUNCTION #) ...) ; x-compiling (/SHOW0 "/Processing source location thunks") ; x-compiling (DOLIST (FUN *SOURCE-LOCATION-THUNKS*) ...) ; x-compiling (MAKUNBOUND (QUOTE *SOURCE-LOCATION-THUNKS*)) ; x-compiling (/SHOW0 "/Done with source location thunks") ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/source-location.lisp ; in: ; DEF!STRUCT (DEFINITION-SOURCE-LOCATION ; (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)) ; (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::*CURRENT-PATH*) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-TLF-NUMBER ; ; compilation unit finished ; Undefined function: ; SOURCE-PATH-TLF-NUMBER ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/source-location.lisp-obj-tmp written ; compilation finished in 0:00:00.071 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/target-main.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN GET-LAMBDA-TO-COMPILE ...) ; x-compiling (DEFUN ACTUALLY-COMPILE ...) ; x-compiling (DEFUN COMPILE-IN-LEXENV ...) ; x-compiling (DEFUN COMPILE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/target-main.lisp ; in: DEFUN ACTUALLY-COMPILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!C::WITH-SOURCE-PATHS ; (PROG* (# # # # # # # # # # # # ...) ; (HANDLER-BIND # ; # ; #) ; :ERROR ; (IF SB!C::ERRORP ; # ; #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET LET LIST* CONS LIST CONS ; ==> ; #'SB!C::COMPILER-ERROR-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-HANDLER ; ==> ; #'SB!C::COMPILER-STYLE-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARNING-HANDLER ; ==> ; #'SB!C::COMPILER-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARNING-HANDLER ; (SB!C::FIND-SOURCE-PATHS SB!KERNEL:FORM SB!C::TLF) ; ; caught STYLE-WARNING: ; undefined function: FIND-SOURCE-PATHS ; in: DEFUN COMPILE-IN-LEXENV ; (SB!EVAL:PREPARE-FOR-COMPILE SB!C::DEFINITION) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:PREPARE-FOR-COMPILE ; ; compilation unit finished ; Undefined functions: ; COMPILER-ERROR-HANDLER COMPILER-STYLE-WARNING-HANDLER COMPILER-WARNING-HANDLER FIND-SOURCE-PATHS SB!EVAL:PREPARE-FOR-COMPILE ; caught 5 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/target-main.lisp-obj-tmp written ; compilation finished in 0:00:00.063 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (SPECIAL *COMPILER-ERROR-BAILOUT*)) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFVAR *CURRENT-FORM-NUMBER*) ; x-compiling (DECLAIM (HASH-TABLE *SOURCE-PATHS*)) ; x-compiling (DEFVAR *SOURCE-PATHS*) ; x-compiling (DECLAIM (INLINE SOURCE-FORM-HAS-PATH-P)) ; x-compiling (DEFUN SOURCE-FORM-HAS-PATH-P ...) ; x-compiling (DEFUN GET-SOURCE-PATH ...) ; x-compiling (DEFUN ENSURE-SOURCE-PATH ...) ; x-compiling (DEFUN SIMPLIFY-SOURCE-PATH-FORM ...) ; x-compiling (DEFUN NOTE-SOURCE-PATH ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *CURRENT-COMPONENT*) ; x-compiling (DECLAIM (LIST *CURRENT-PATH*)) ; x-compiling (DEFVAR *CURRENT-PATH*) ; x-compiling (DEFVAR *DERIVE-FUNCTION-TYPES* ...) ; x-compiling (DEFVAR *FUN-NAMES-IN-THIS-FILE* ...) ; x-compiling (DEFVAR *POST-BINDING-VARIABLE-LEXENV* ...) ; x-compiling (DEFUN FUN-LEXICALLY-NOTINLINE-P ...) ; x-compiling (DECLAIM (NOTINLINE MAYBE-UPDATE-INFO-FOR-GF)) ; x-compiling (DEFUN MAYBE-UPDATE-INFO-FOR-GF ...) ; x-compiling (DEFUN MAYBE-DEFINED-HERE ...) ; x-compiling (DEFUN FIND-GLOBAL-FUN ...) ; x-compiling (DEFUN CLEAR-INVALID-FUNCTIONALS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-FREE-FUN ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-LEXICALLY-APPARENT-FUN ...) ; x-compiling (DEFUN MAYBE-FIND-FREE-VAR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-FREE-VAR ...) ; x-compiling (DEFUN MAYBE-EMIT-MAKE-LOAD-FORMS ...) ; x-compiling (DEFUN LINK-NODE-TO-PREVIOUS-CTRAN ...) ; x-compiling (DECLAIM (INLINE USE-CTRAN)) ; x-compiling (DEFUN USE-CTRAN ...) ; x-compiling (DEFUN %USE-CTRAN ...) ; x-compiling (DEFUN INSERT-NODE-BEFORE ...) ; x-compiling (DEFUN USE-LVAR ...) ; x-compiling (DECLAIM (INLINE USE-CONTINUATION)) ; x-compiling (DEFUN USE-CONTINUATION ...) ; x-compiling (DEFUN IR1-TOPLEVEL ...) ; x-compiling (DEFUN FIND-SOURCE-PATHS ...) ; x-compiling (DEFUN SUB-FIND-SOURCE-PATHS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN IR1-CONVERT ...) ; x-compiling (DEFUN REFERENCE-CONSTANT ...) ; x-compiling (DEFUN MAYBE-REANALYZE-FUNCTIONAL ...) ; x-compiling (DEFUN REFERENCE-LEAF ...) ; x-compiling (DEFUN ALWAYS-BOUNDP ...) ; x-compiling (DEFUN IR1-CONVERT-VAR ...) ; x-compiling (DEFUN FIND-COMPILER-MACRO ...) ; x-compiling (DEFUN IR1-CONVERT-FUNCTOID ...) ; x-compiling (DEFUN IR1-CONVERT-COMMON-FUNCTOID ...) ; x-compiling (DEFUN IR1-CONVERT-GLOBAL-FUNCTOID ...) ; x-compiling (DEFUN MUFFLE-WARNING-OR-DIE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran.lisp ; in: DEFUN MUFFLE-WARNING-OR-DIE ; (SB!INT:BUG "no MUFFLE-WARNING restart") ; ==> ; "no MUFFLE-WARNING restart" ; ; note: deleting unreachable code ; x-compiling (DEFUN CAREFUL-EXPAND-MACRO ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN IR1-CONVERT-PROGN-BODY ...) ; x-compiling (DEFUN INSTRUMENT-COVERAGE ...) ; x-compiling (DEFUN MAYBE-INSTRUMENT-PROGN-LIKE ...) ; x-compiling (DEFUN RECORD-CODE-COVERAGE ...) ; x-compiling (DEFUN CLEAR-CODE-COVERAGE ...) ; x-compiling (DEFUN RESET-CODE-COVERAGE ...) ; x-compiling (DEFUN CODE-COVERAGE-RECORD-MARKED ...) ; x-compiling (DEFUN STEP-FORM-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN IR1-CONVERT-COMBINATION ...) ; x-compiling (DEFUN IR1-CONVERT-COMBINATION-ARGS ...) ; x-compiling (DEFUN IR1-CONVERT-SRCTRAN ...) ; x-compiling (DEFVAR *INSTRUMENT-IF-FOR-CODE-COVERAGE* ...) ; x-compiling (DEFUN IR1-CONVERT-MAYBE-PREDICATE ...) ; x-compiling (DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ...) ; x-compiling (DEFUN IR1-CONVERT-LOCAL-COMBINATION ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-IN-BINDINGS ...) ; x-compiling (DEFUN PROCESS-TYPE-DECL ...) ; x-compiling (DEFUN PROCESS-FTYPE-DECL ...) ; x-compiling (DEFUN PROCESS-SPECIAL-DECL ...) ; x-compiling (DEFUN MAKE-NEW-INLINEP ...) ; x-compiling (DEFUN PROCESS-INLINE-DECL ...) ; x-compiling (DEFUN FIND-IN-BINDINGS-OR-FBINDINGS ...) ; x-compiling (DEFUN PROCESS-IGNORE-DECL ...) ; x-compiling (DEFUN PROCESS-EXTENT-DECL ...) ; x-compiling (DEFVAR *SUPPRESS-VALUES-DECLARATION* ...) ; x-compiling (DEFUN PROCESS-1-DECL ...) ; x-compiling (DEFUN PROCESS-DECLS ...) ; x-compiling (DEFUN %PROCESSING-DECLS ...) ; x-compiling (DEFMACRO PROCESSING-DECLS ...) ; x-compiling (DEFUN SPECVAR-FOR-BINDING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran.lisp ; in: DEFUN IR1-CONVERT-LOCAL-COMBINATION ; (SB!C::ASSURE-FUNCTIONAL-LIVE-P SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: ASSURE-FUNCTIONAL-LIVE-P ; in: DEFUN REFERENCE-LEAF ; (SB!C::ASSURE-LEAF-LIVE-P SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: ASSURE-LEAF-LIVE-P ; in: DEFUN STEP-FORM-P ; (MAPCAR #'FIND-PACKAGE ; '(SB!C::SB!C SB!C::SB!INT SB!C::SB!IMPL SB!C::SB!KERNEL SB!C::SB!PCL)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN PROCESS-FTYPE-DECL ; (SB!C::COMPILER-SPECIFIER-TYPE SB!C::SPEC) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-SPECIFIER-TYPE ; in: DEFUN PROCESS-TYPE-DECL ; (SB!C::COMPILER-SPECIFIER-TYPE (FIRST SB!C::DECL)) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-SPECIFIER-TYPE ; in: DEFUN PROCESS-1-DECL ; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE ; (IF (SB!INT:SINGLETON-P SB!C::TYPES) ; (CAR SB!C::TYPES) ; (SB!IMPL::BACKQ-CONS 'VALUES SB!C::TYPES))) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-VALUES-SPECIFIER-TYPE ; in: DEFUN IR1-CONVERT-VAR ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; in: DEFUN REFERENCE-LEAF => DEFINED-FUN-FUNCTIONAL LEAF ; (SB!C::DEFINED-FUN-FUNCTIONAL SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: DEFINED-FUN-FUNCTIONAL ; in: DEFUN INSERT-NODE-BEFORE ; (SB!C::ENSURE-BLOCK-START SB!C::PREV) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-BLOCK-START ; in: DEFUN REFERENCE-CONSTANT ; (SB!C::FIND-CONSTANT SB!C::VALUE) ; ; caught STYLE-WARNING: ; undefined function: FIND-CONSTANT ; in: DEFUN FIND-FREE-VAR ; (SB!C::FIND-CONSTANT SB!C::VALUE SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: FIND-CONSTANT ; in: DEFUN IR1-TOPLEVEL ; (SB!C::IR1-CONVERT-LAMBDA-BODY SB!C::FORMS NIL :DEBUG-NAME ; (SB!C::DEBUG-NAME 'SB!C::TOP-LEVEL-FORM ; SB!KERNEL:FORM)) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDA-BODY ; in: DEFUN MAYBE-REANALYZE-FUNCTIONAL ; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN CLEAR-INVALID-FUNCTIONALS ; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN %PROCESSING-DECLS ; (SB!C::MAKE-CAST SB!C::VALUE-LVAR SB!C::RESULT-TYPE ; (SB!C::LEXENV-POLICY SB!C:*LEXENV*)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CAST ; in: DEFUN REFERENCE-LEAF ; (SB!C::MAKE-CAST SB!C::REF-LVAR (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE TYPE) ; (SB!C::LEXENV-POLICY SB!C:*LEXENV*)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CAST ; in: DEFUN IR1-TOPLEVEL ; (SB!C::MAKE-EMPTY-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: MAKE-EMPTY-COMPONENT ; in: DEFUN PROCESS-SPECIAL-DECL ; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :VARS (SB!C::NEW-VENV)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN PROCESS-FTYPE-DECL ; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :TYPE-RESTRICTIONS (SB!C::RES)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN PROCESS-TYPE-DECL ; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :TYPE-RESTRICTIONS (SB!C::RESTR) :VARS ; (SB!C::NEW-VARS)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 2 more uses of undefined function MAKE-LEXENV ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran.lisp ; in: DEFUN FIND-FREE-VAR ; (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :VARIABLE) ; ; caught STYLE-WARNING: ; undefined function: NOTE-UNDEFINED-REFERENCE ; in: DEFUN FIND-GLOBAL-FUN ; (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: NOTE-UNDEFINED-REFERENCE ; in: DEFUN IR1-CONVERT-FUNCTOID ; (SB!C::PRINT-COMPILER-MESSAGE *ERROR-OUTPUT* "note: ~A" (LIST SB!C::C)) ; ; caught STYLE-WARNING: ; undefined function: PRINT-COMPILER-MESSAGE ; in: DEFUN USE-LVAR ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN INSTRUMENT-COVERAGE ; (SB!C::SOURCE-PATH-ORIGINAL-SOURCE SB!C::*CURRENT-PATH*) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-ORIGINAL-SOURCE ; in: DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ; (SB!C::VALIDATE-CALL-TYPE SB!C::NODE TYPE SB!C::VAR T) ; ; caught STYLE-WARNING: ; undefined function: VALIDATE-CALL-TYPE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; ASSURE-FUNCTIONAL-LIVE-P ASSURE-LEAF-LIVE-P COMPILER-SPECIFIER-TYPE COMPILER-VALUES-SPECIFIER-TYPE CTRAN-HOME-LAMBDA-OR-NULL DEFINED-FUN-FUNCTIONAL ENSURE-BLOCK-START FIND-CONSTANT IR1-CONVERT-LAMBDA-BODY LAMBDA-COMPONENT MAKE-CAST MAKE-EMPTY-COMPONENT MAKE-LEXENV NOTE-UNDEFINED-REFERENCE PRINT-COMPILER-MESSAGE REOPTIMIZE-LVAR SOURCE-PATH-ORIGINAL-SOURCE VALIDATE-CALL-TYPE ; caught 27 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/ir1tran.lisp-obj-tmp written ; compilation finished in 0:00:00.698 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran-lambda.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN VARIFY-LAMBDA-ARG ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MAKE-KEYWORD-FOR-ARG ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MAKE-LAMBDA-VARS ...) ; x-compiling (DEFUN IR1-CONVERT-AUX-BINDINGS ...) ; x-compiling (DEFUN IR1-CONVERT-SPECIAL-BINDINGS ...) ; x-compiling (DEFUN IR1-CONVERT-LAMBDA-BODY ...) ; x-compiling (DEFUN REGISTER-ENTRY-POINT ...) ; x-compiling (DEFUN CONVERT-OPTIONAL-ENTRY ...) ; x-compiling (DEFUN GENERATE-OPTIONAL-DEFAULT-ENTRY ...) ; x-compiling (DEFUN CONVERT-MORE-ENTRY ...) ; x-compiling (DEFUN IR1-CONVERT-MORE ...) ; x-compiling (DEFUN IR1-CONVERT-HAIRY-ARGS ...) ; x-compiling (DEFUN IR1-CONVERT-HAIRY-LAMBDA ...) ; x-compiling (DEFUN IR1-CONVERT-LAMBDA ...) ; x-compiling (DEFUN WRAP-FORMS-IN-DEBUG-CATCH ...) ; x-compiling (DEFUN IR1-CONVERT-LAMBDALIKE ...) ; x-compiling (DEFUN IR1-CONVERT-INLINE-LAMBDA ...) ; x-compiling (DEFUN FTYPE-FROM-LAMBDA-LIST ...) ; x-compiling (DEFUN GET-DEFINED-FUN ...) ; x-compiling (DEFUN ASSERT-NEW-DEFINITION ...) ; x-compiling (DEFUN IR1-CONVERT-INLINE-EXPANSION ...) ; x-compiling (DEFUN %SET-INLINE-EXPANSION ...) ; x-compiling (DEFUN %COMPILER-DEFUN ...) ; x-compiling (DEFUN OPTIONAL-DISPATCH-ENTRY-POINT-FUN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran-lambda.lisp ; in: DEFUN FTYPE-FROM-LAMBDA-LIST ; (MAPCAR (CONSTANTLY T) LIST) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN IR1-CONVERT-INLINE-LAMBDA ; (MAPCAR ; (LAMBDA (SB!C::X) ; (SB!IMPL::BACKQ-LIST* (CAR SB!C::X) 'SB!SYS:MACRO ; (COERCE (CDR SB!C::X) 'FUNCTION))) ; SB!C::MACROS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN CONVERT-OPTIONAL-ENTRY ; (MAPCAR ; (LAMBDA (SB!C::VAR) ; (SB!C::MAKE-LAMBDA-VAR :%SOURCE-NAME (SB!C::LEAF-SOURCE-NAME SB!C::VAR) ; :TYPE (SB!C::LEAF-TYPE SB!C::VAR) :WHERE-FROM ; (SB!C::LEAF-WHERE-FROM SB!C::VAR) :SPECVAR ; (SB!C::LAMBDA-VAR-SPECVAR SB!C::VAR))) ; SB!C::FVARS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 1 more use of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran-lambda.lisp ; in: DEFUN IR1-CONVERT-LAMBDA-BODY ; (SB!C::CTRAN-STARTS-BLOCK SB!C::RESULT-CTRAN) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEFUN IR1-CONVERT-LAMBDA-BODY ; (SB!C::LINK-BLOCKS BLOCK (SB!C::COMPONENT-TAIL SB!C::*CURRENT-COMPONENT*)) ; ; caught STYLE-WARNING: ; undefined function: LINK-BLOCKS ; (SB!C::MAKE-LEXENV :VARS (SB!C::NEW-VENV) :LAMBDA LAMBDA :CLEANUP NIL) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS ; (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN IR1-CONVERT-AUX-BINDINGS ; (SB!C::MAKE-LEXENV :VARS (COPY-LIST SB!C::POST-BINDING-LEXENV)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 1 more use of undefined function MAKE-LEXENV ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1tran-lambda.lisp ; in: DEFUN IR1-CONVERT-INLINE-LAMBDA ; (SB!C::NAME-LAMBDALIKE SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN IR1-CONVERT-LAMBDALIKE ; (SB!C::NAME-LAMBDALIKE SB!C::THING) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN IR1-CONVERT-LAMBDA ; (SB!C::NAME-LAMBDALIKE SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN IR1-CONVERT-LAMBDA-BODY ; (SB!C::NODE-BLOCK SB!C:BIND) ; ; caught STYLE-WARNING: ; undefined function: NODE-BLOCK ; in: DEFUN IR1-CONVERT-INLINE-EXPANSION ; (SB!C::SUBSTITUTE-LEAF SB!C::FUN SB!C::VAR) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF ; in: DEFUN GET-DEFINED-FUN ; (SB!C::SUBSTITUTE-LEAF SB!C::RES SB!C::FOUND) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF ; in: DEFUN IR1-CONVERT-LAMBDALIKE ; (SB!C::SUBSTITUTE-LEAF-IF ; (LAMBDA (SB!C::REF) ; (SB!C:POLICY SB!C::REF (> SB!C::RECOGNIZE-SELF-CALLS 0))) ; SB!C::RES SB!C::DEFINED-FUN-RES) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF-IF ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; CTRAN-STARTS-BLOCK LINK-BLOCKS MAKE-LEXENV NAME-LAMBDALIKE NODE-BLOCK SUBSTITUTE-LEAF SUBSTITUTE-LEAF-IF ; caught 18 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/ir1tran-lambda.lisp-obj-tmp written ; compilation finished in 0:00:01.437 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF-IR1-TRANSLATOR PROGN ...) ; x-compiling (DEF-IR1-TRANSLATOR IF ...) ; x-compiling (DEFUN BEST-SUB-SOURCE-PATH ...) ; x-compiling (DEF-IR1-TRANSLATOR BLOCK ...) ; x-compiling (DEF-IR1-TRANSLATOR RETURN-FROM ...) ; x-compiling (DEFUN PARSE-TAGBODY ...) ; x-compiling (DEF-IR1-TRANSLATOR TAGBODY ...) ; x-compiling (DEF-IR1-TRANSLATOR GO ...) ; x-compiling (DEF-IR1-TRANSLATOR EVAL-WHEN ...) ; x-compiling (DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ...) ; x-compiling (DEFUN MACROLET-DEFINITIONIZE-FUN ...) ; x-compiling (DEFUN FUNCALL-IN-MACROLET-LEXENV ...) ; x-compiling (DEF-IR1-TRANSLATOR MACROLET ...) ; x-compiling (DEFUN SYMBOL-MACROLET-DEFINITIONIZE-FUN ...) ; x-compiling (DEFUN FUNCALL-IN-SYMBOL-MACROLET-LEXENV ...) ; x-compiling (DEF-IR1-TRANSLATOR SYMBOL-MACROLET ...) ; x-compiling (DEFUN EVAL-INFO-ARGS ...) ; x-compiling (DEF-IR1-TRANSLATOR %PRIMITIVE ...) ; x-compiling (DEF-IR1-TRANSLATOR QUOTE ...) ; x-compiling (DEFUN NAME-CONTEXT ...) ; x-compiling (DEFUN NAME-LAMBDALIKE ...) ; x-compiling (DEFUN FUN-NAME-LEAF ...) ; x-compiling (DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ...) ; x-compiling (DEFMACRO WITH-FUN-NAME-LEAF ...) ; x-compiling (DEF-IR1-TRANSLATOR FUNCTION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR FUNCTION ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START) ; (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; x-compiling (DEF-IR1-TRANSLATOR GLOBAL-FUNCTION ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR GLOBAL-FUNCTION ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START ; :GLOBAL-FUNCTION T) ; (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF) ; ==> ; SB!C::START ; ; note: deleting unreachable code ; x-compiling (DEFUN CONSTANT-GLOBAL-FUN-NAME ...) ; x-compiling (DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ...) ; x-compiling (DEFUN ENSURE-SOURCE-FUN-FORM ...) ; x-compiling (DEFUN ENSURE-LVAR-FUN-FORM ...) ; x-compiling (DEFTRANSFORM FUNCALL ...) ; x-compiling (DEF-IR1-TRANSLATOR %FUNCALL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR %FUNCALL ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START) ; (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT ; (SB!IMPL::BACKQ-CONS SB!C::LEAF SB!C::ARGS))) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START ; :GLOBAL-FUNCTION T) ; (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT ; (SB!IMPL::BACKQ-CONS SB!C::LEAF SB!C::ARGS))) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT ; (SB!IMPL::BACKQ-CONS SB!C::LEAF SB!C::ARGS)) ; ==> ; SB!C::START ; ; note: deleting unreachable code ; (SB!IMPL::BACKQ-CONS SB!C::LEAF SB!C::ARGS) ; ; note: deleting unreachable code ; x-compiling (DEFINE-SOURCE-TRANSFORM FUNCALL ...) ; x-compiling (DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %COERCE-CALLABLE-TO-FUN ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EXTRACT-LET-VARS ...) ; x-compiling (DEF-IR1-TRANSLATOR LET ...) ; x-compiling (DEF-IR1-TRANSLATOR LET* ...) ; x-compiling (DEFUN IR1-TRANSLATE-LOCALLY ...) ; x-compiling (DEF-IR1-TRANSLATOR LOCALLY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EXTRACT-FLET-VARS ...) ; x-compiling (DEFUN IR1-CONVERT-FBINDINGS ...) ; x-compiling (DEF-IR1-TRANSLATOR FLET ...) ; x-compiling (DEF-IR1-TRANSLATOR LABELS ...) ; x-compiling (DEFUN THE-IN-POLICY ...) ; x-compiling (DEF-IR1-TRANSLATOR THE ...) ; x-compiling (DEF-IR1-TRANSLATOR TRULY-THE ...) ; x-compiling (SETF (INFO :FUNCTION ...) ...) ; x-compiling (DEF-IR1-TRANSLATOR SETQ ...) ; x-compiling (DEFUN SETQ-VAR ...) ; x-compiling (DEF-IR1-TRANSLATOR THROW ...) ; x-compiling (DEF-IR1-TRANSLATOR %WITHIN-CLEANUP ...) ; x-compiling (DEF-IR1-TRANSLATOR %ESCAPE-FUN ...) ; x-compiling (DEF-IR1-TRANSLATOR %CLEANUP-FUN ...) ; x-compiling (DEF-IR1-TRANSLATOR CATCH ...) ; x-compiling (DEF-IR1-TRANSLATOR UNWIND-PROTECT ...) ; x-compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-CALL ...) ; x-compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-PROG1 ...) ; x-compiling (DEFUN REVERT-SOURCE-PATH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp ; in: DEFUN EVAL-INFO-ARGS ; (MAPCAR #'EVAL SB!C::ARGS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ; (MAPCAR SB!C::DEFINITIONIZE-FUN SB!C::DEFINITIONS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN PARSE-TAGBODY ; (MAPCAR #'CONS (CONS NIL (SB!C::TAGS)) (SB!C::SEGMENTS)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type COMPILER-NOTE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp ; in: DEFUN THE-IN-POLICY ; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-VALUES-SPECIFIER-TYPE ; in: DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEF-IR1-TRANSLATOR RETURN-FROM ; (SB!C::CTRAN-DELETED-P SB!C::EXIT-CTRAN) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-DELETED-P ; in: DEF-IR1-TRANSLATOR SETQ ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; in: DEF-IR1-TRANSLATOR GO ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; in: DEF-IR1-TRANSLATOR RETURN-FROM ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEF-IR1-TRANSLATOR BLOCK ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEF-IR1-TRANSLATOR IF ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; ; caught STYLE-WARNING: ; 4 more uses of undefined function CTRAN-STARTS-BLOCK ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp ; in: DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ; (SB!C:DEFTRANSFORM SB!KERNEL:%COERCE-CALLABLE-TO-FUN ; ((SB!C::THING) * * :NODE SB!C::NODE) ; "optimize away possible call to FDEFINITION at runtime" ; (SB!C::ENSURE-LVAR-FUN-FORM SB!C::THING 'SB!C::THING T)) ; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION UNLESS IF PROGN ; ==> ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFTRANSFORM FUNCALL ; (SB!C:DEFTRANSFORM FUNCALL ; ((FUNCTION &REST SB!C::ARGS) * *) ; (LET ((SB!C::ARG-NAMES (SB!INT:MAKE-GENSYM-LIST #))) ; (SB!IMPL::BACKQ-LIST* 'LAMBDA ; (SB!IMPL::BACKQ-CONS 'FUNCTION SB!C::ARG-NAMES) ; '((DECLARE #) ; (SB!IMPL::BACKQ-LIST* 'SB!C::%FUNCALL # ; SB!C::ARG-NAMES))))) ; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION UNLESS IF PROGN ; ==> ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN ENSURE-LVAR-FUN-FORM ; (SB!C::GIVE-UP-IR1-TRANSFORM "not known to be a function") ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEF-IR1-TRANSLATOR IF ; (SB!C::LINK-BLOCKS SB!C::START-BLOCK SB!C::THEN-BLOCK) ; ; caught STYLE-WARNING: ; undefined function: LINK-BLOCKS ; in: DEFUN ENSURE-LVAR-FUN-FORM ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN THE-IN-POLICY ; (SB!C::MAKE-CAST SB!C::VALUE-LVAR TYPE SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CAST ; in: DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ; (SB!C::MAKE-LEXENV SB!C::DEFINITIONIZE-KEYWORD SB!C::PROCESSED-DEFINITIONS) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEF-IR1-TRANSLATOR TAGBODY ; (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP :TAGS (SB!C::TAGS)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEF-IR1-TRANSLATOR BLOCK ; (SB!C::MAKE-LEXENV :BLOCKS (LIST (CONS SB!C::NAME SB!C::ENV-ENTRY)) :CLEANUP ; SB!C::CLEANUP) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 4 more uses of undefined function MAKE-LEXENV ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1-translators.lisp ; in: DEFUN FUNCALL-IN-MACROLET-LEXENV ; (SB!C::MAKE-RESTRICTED-LEXENV SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-RESTRICTED-LEXENV ; in: DEFUN IR1-CONVERT-FBINDINGS ; (SB!C::NODE-DEST (SB!C::CTRAN-NEXT SB!C::START)) ; ; caught STYLE-WARNING: ; undefined function: NODE-DEST ; in: DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ; (SB!C::NODE-DEST (SB!C::CTRAN-NEXT SB!C::START)) ; ; caught STYLE-WARNING: ; undefined function: NODE-DEST ; in: DEF-IR1-TRANSLATOR IF ; (SB!C::POSSIBLE-REST-ARG-CONTEXT SB!C::TEST) ; ; caught STYLE-WARNING: ; undefined function: POSSIBLE-REST-ARG-CONTEXT ; in: DEF-IR1-TRANSLATOR TAGBODY ; (SB!C::START-BLOCK SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: START-BLOCK ; in: DEF-IR1-TRANSLATOR BLOCK ; (SB!C::START-BLOCK SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: START-BLOCK ; in: DEF-IR1-TRANSLATOR LABELS ; (SB!C::SUBSTITUTE-LEAF SB!C::REAL-FUN (CDR SB!C::PLACEHOLDER-CONS)) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; COMPILER-VALUES-SPECIFIER-TYPE CONSTANT-LVAR-P CTRAN-DELETED-P CTRAN-HOME-LAMBDA-OR-NULL CTRAN-STARTS-BLOCK GIVE-UP-IR1-TRANSFORM LINK-BLOCKS LVAR-TYPE LVAR-VALUE MAKE-CAST MAKE-LEXENV MAKE-RESTRICTED-LEXENV NODE-DEST POSSIBLE-REST-ARG-CONTEXT START-BLOCK SUBSTITUTE-LEAF ; caught 32 STYLE-WARNING conditions ; printed 7 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/ir1-translators.lisp-obj-tmp written ; compilation finished in 0:00:01.742 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1util.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN NODE-ENCLOSING-CLEANUP ...) ; x-compiling (DEFUN INSERT-CLEANUP-CODE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-USES ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PRINCIPAL-LVAR ...) ; x-compiling (DEFUN PRINCIPAL-LVAR-USE ...) ; x-compiling (DEFUN PRINCIPAL-LVAR-DEST ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %DELETE-LVAR-USE ...) ; x-compiling (DEFUN DELETE-LVAR-USE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN ADD-LVAR-USE ...) ; x-compiling (DEFUN IMMEDIATELY-USED-P ...) ; x-compiling (DEFUN COMBINATION-DEFINED-TYPE ...) ; x-compiling (DEFUN ALMOST-IMMEDIATELY-USED-P ...) ; x-compiling (DEFUN SUBSTITUTE-LVAR ...) ; x-compiling (DEFUN SUBSTITUTE-LVAR-USES ...) ; x-compiling (DEFUN CTRAN-STARTS-BLOCK ...) ; x-compiling (DEFUN ENSURE-BLOCK-START ...) ; x-compiling (DEFUN START-BLOCK ...) ; x-compiling (DEFUN FILTER-LVAR ...) ; x-compiling (DEFUN DELETE-FILTER ...) ; x-compiling (DEFUN INSERT-CAST-BEFORE ...) ; x-compiling (DEFUN NODE-HOME-LAMBDA ...) ; x-compiling (DECLAIM (INLINE NODE-BLOCK)) ; x-compiling (DEFUN NODE-BLOCK ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NODE-COMPONENT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NODE-PHYSENV ...) ; x-compiling (DECLAIM (INLINE NODE-DEST)) ; x-compiling (DEFUN NODE-DEST ...) ; x-compiling (DECLAIM (INLINE NODE-STACK-ALLOCATE-P)) ; x-compiling (DEFUN NODE-STACK-ALLOCATE-P ...) ; x-compiling (DEFUN FLUSHABLE-COMBINATION-P ...) ; x-compiling (DEFUN LAMBDA-VAR-ORIGINAL-NAME ...) ; x-compiling (DEFUN NOTE-NO-STACK-ALLOCATION ...) ; x-compiling (DEFUN USE-GOOD-FOR-DX-P ...) ; x-compiling (DEFUN LVAR-GOOD-FOR-DX-P ...) ; x-compiling (DEFUN KNOWN-DX-COMBINATION-P ...) ; x-compiling (DEFUN DX-COMBINATION-P ...) ; x-compiling (DEFUN COMBINATION-ARGS-FLOW-CLEANLY-P ...) ; x-compiling (DEFUN REF-GOOD-FOR-DX-P ...) ; x-compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-P ...) ; x-compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-LVAR ...) ; x-compiling (DEFUN HANDLE-NESTED-DYNAMIC-EXTENT-LVARS ...) ; x-compiling (DECLAIM (INLINE BLOCK-TO-BE-DELETED-P)) ; x-compiling (DEFUN BLOCK-TO-BE-DELETED-P ...) ; x-compiling (DECLAIM (INLINE NODE-TO-BE-DELETED-P)) ; x-compiling (DEFUN NODE-TO-BE-DELETED-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN LAMBDA-BLOCK ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN LAMBDA-COMPONENT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BLOCK-START-NODE ...) ; x-compiling (DEFUN BLOCK-START-CLEANUP ...) ; x-compiling (DEFUN BLOCK-END-CLEANUP ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BLOCK-HOME-LAMBDA-OR-NULL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BLOCK-HOME-LAMBDA ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BLOCK-PHYSENV ...) ; x-compiling (DEFUN SOURCE-PATH-TLF-NUMBER ...) ; x-compiling (DEFUN SOURCE-PATH-ORIGINAL-SOURCE ...) ; x-compiling (DEFUN SOURCE-PATH-FORM-NUMBER ...) ; x-compiling (DEFUN SOURCE-PATH-FORMS ...) ; x-compiling (DEFUN TREE-SOME ...) ; x-compiling (DEFUN NODE-SOURCE-FORM ...) ; x-compiling (DEFUN LVAR-SOURCE ...) ; x-compiling (DEFUN COMMON-SUFFIX ...) ; x-compiling (DEFUN LVAR-ALL-SOURCES ...) ; x-compiling (DECLAIM (INLINE LVAR-USE)) ; x-compiling (DEFUN LVAR-USE ...) ; x-compiling (DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P)) ; x-compiling (DEFUN LVAR-HAS-SINGLE-USE-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CTRAN-HOME-LAMBDA-OR-NULL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CTRAN-HOME-LAMBDA ...) ; x-compiling (DECLAIM (INLINE CAST-SINGLE-VALUE-P)) ; x-compiling (DEFUN CAST-SINGLE-VALUE-P ...) ; x-compiling (DECLAIM (INLINE LVAR-SINGLE-VALUE-P)) ; x-compiling (DEFUN LVAR-SINGLE-VALUE-P ...) ; x-compiling (DEFUN PRINCIPAL-LVAR-END ...) ; x-compiling (DEFUN PRINCIPAL-LVAR-SINGLE-VALUIFY ...) ; x-compiling (DEFUN MAKE-LEXENV ...) ; x-compiling (DEFUN MAKE-RESTRICTED-LEXENV ...) ; x-compiling (DEFUN LINK-BLOCKS ...) ; x-compiling (DEFUN %LINK-BLOCKS ...) ; x-compiling (DEFUN UNLINK-BLOCKS ...) ; x-compiling (DEFUN CHANGE-BLOCK-SUCCESSOR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN REMOVE-FROM-DFO ...) ; x-compiling (DEFUN ADD-TO-DFO ...) ; x-compiling (DEFUN MAP-BLOCK-NLXES ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CLEAR-FLAGS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MAKE-EMPTY-COMPONENT ...) ; x-compiling (DEFUN NODE-ENDS-BLOCK ...) ; x-compiling (DEFUN DELETE-LAMBDA-VAR ...) ; x-compiling (DEFUN REOPTIMIZE-LAMBDA-VAR ...) ; x-compiling (DEFUN DELETE-FUNCTIONAL ...) ; x-compiling (DEFUN DELETE-LAMBDA ...) ; x-compiling (DEFUN DELETE-OPTIONAL-DISPATCH ...) ; x-compiling (DEFUN NOTE-LOCAL-FUNCTIONAL ...) ; x-compiling (DEFUN DEFINED-FUN-FUNCTIONAL ...) ; x-compiling (DEFUN DELETE-REF ...) ; x-compiling (DEFUN FLUSH-NODE ...) ; x-compiling (DEFUN FLUSH-DEST ...) ; x-compiling (DEFUN DELETE-DEST ...) ; x-compiling (DEFUN DELETE-BLOCK-LAZILY ...) ; x-compiling (DEFUN MARK-FOR-DELETION ...) ; x-compiling (DEFUN DELETE-BLOCK ...) ; x-compiling (DEFUN DELETE-RETURN ...) ; x-compiling (DEFUN NOTE-UNREFERENCED-VARS ...) ; x-compiling (DEFVAR *DELETION-IGNORED-OBJECTS* ...) ; x-compiling (DEFUN PRESENT-IN-FORM ...) ; x-compiling (DEFUN NOTE-BLOCK-DELETION ...) ; x-compiling (DEFUN UNLINK-NODE ...) ; x-compiling (DEFUN CTRAN-DELETED-P ...) ; x-compiling (DEFUN NODE-DELETED ...) ; x-compiling (DEFUN DELETE-COMPONENT ...) ; x-compiling (DEFUN CLEAN-COMPONENT ...) ; x-compiling (DEFUN SPLICE-FUN-ARGS ...) ; x-compiling (DEFUN ELIMINATE-KEYWORD-ARGS ...) ; x-compiling (DEFUN EXTRACT-FUN-ARGS ...) ; x-compiling (DEFUN FLUSH-COMBINATION ...) ; x-compiling (DEFUN CHANGE-REF-LEAF ...) ; x-compiling (DEFUN SUBSTITUTE-LEAF ...) ; x-compiling (DEFUN SUBSTITUTE-LEAF-IF ...) ; x-compiling (DEFUN FIND-CONSTANT ...) ; x-compiling (DEFUN CLOSURE-VAR-P ...) ; x-compiling (DEFUN FIND-NLX-INFO ...) ; x-compiling (DEFUN NLX-INFO-LVAR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MAIN-ENTRY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN LOOKS-LIKE-AN-MV-BIND ...) ; x-compiling (DEFUN XEP-P ...) ; x-compiling (DEFUN LVAR-FUN-NAME ...) ; x-compiling (DEFUN LVAR-FUN-DEBUG-NAME ...) ; x-compiling (DEFUN COMBINATION-FUN-SOURCE-NAME ...) ; x-compiling (DEFUN COMBINATION-FUN-DEBUG-NAME ...) ; x-compiling (DEFUN LET-COMBINATION ...) ; x-compiling (DEFUN LET-VAR-INITIAL-VALUE ...) ; x-compiling (DEFUN COMBINATION-LAMBDA ...) ; x-compiling (DEFVAR *INLINE-EXPANSION-LIMIT* ...) ; x-compiling (DEFUN INLINE-EXPANSION-OK ...) ; x-compiling (DEFUN ASSURE-FUNCTIONAL-LIVE-P ...) ; x-compiling (DEFUN ASSURE-LEAF-LIVE-P ...) ; x-compiling (DEFUN CALL-FULL-LIKE-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CAREFUL-CALL ...) ; x-compiling (DEFFROB SPECIFIER-TYPE ...) ; x-compiling (DEFFROB VALUES-SPECIFIER-TYPE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-KEYWORD-LVAR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-KEY-ARGS-CONSTANT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-TRANSFORM-KEYS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %EVENT ...) ; x-compiling (DEFUN MAKE-CAST ...) ; x-compiling (DEFUN CAST-TYPE-CHECK ...) ; x-compiling (DEFUN NOTE-SINGLE-VALUIFIED-LVAR ...) ; x-compiling (DEFUN LVAR-FUN-IS ...) ; x-compiling (DEFUN LVAR-MATCHES ...) ; x-compiling (DEFUN OPTIONAL-REST-P ...) ; x-compiling (DEFUN PRESERVE-SINGLE-USE-DEBUG-VAR-P ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1util.lisp ; in: DEFUN LVAR-FUN-DEBUG-NAME ; (MAPCAR #'SB!C::NAME1 SB!C::USES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN CHECK-KEY-ARGS-CONSTANT ; (SB!C::CONSTANT-LVAR-P (FIRST SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN ELIMINATE-KEYWORD-ARGS ; (SB!C::CONSTANT-LVAR-P SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CHANGE-REF-LEAF ; (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::VLTYPE :FROM-SCRATCH SB!C::RECKLESSLY) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN LVAR-ALL-SOURCES ; (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH) ; ; caught STYLE-WARNING: ; undefined function: FIND-ORIGINAL-SOURCE ; in: DEFUN NODE-SOURCE-FORM ; (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH) ; ; caught STYLE-WARNING: ; undefined function: FIND-ORIGINAL-SOURCE ; in: DEFUN NOTE-NO-STACK-ALLOCATION ; (SB!C::FIND-ORIGINAL-SOURCE (SB!C::NODE-SOURCE-PATH SB!C::USE)) ; ; caught STYLE-WARNING: ; undefined function: FIND-ORIGINAL-SOURCE ; ; caught STYLE-WARNING: ; 1 more use of undefined function FIND-ORIGINAL-SOURCE ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1util.lisp ; in: DEFUN SPLICE-FUN-ARGS ; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ; in: DEFUN FLUSH-DEST ; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ; in: DEFUN SUBSTITUTE-LVAR ; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::NEW) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ; in: DEFUN EXTRACT-FUN-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN ELIMINATE-KEYWORD-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN SPLICE-FUN-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; ; caught STYLE-WARNING: ; 2 more uses of undefined function GIVE-UP-IR1-TRANSFORM ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1util.lisp ; in: DEFUN CAST-TYPE-CHECK ; (SB!C::IR1-OPTIMIZE-CAST SB!ALIEN:CAST T) ; ; caught STYLE-WARNING: ; undefined function: IR1-OPTIMIZE-CAST ; in: DEFUN FILTER-LVAR ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN CHECK-TRANSFORM-KEYS ; (SB!C::LVAR-VALUE (FIRST SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN FIND-KEYWORD-LVAR ; (SB!C::LVAR-VALUE (FIRST SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN ELIMINATE-KEYWORD-ARGS ; (SB!C::LVAR-VALUE SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN DELETE-REF ; (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-CONVERT-TO-ASSIGNMENT ; in: DEFUN DELETE-OPTIONAL-DISPATCH ; (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-CONVERT-TO-ASSIGNMENT ; in: DEFUN DELETE-REF ; (SB!C::MAYBE-LET-CONVERT SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN DELETE-OPTIONAL-DISPATCH ; (SB!C::MAYBE-LET-CONVERT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN MAKE-CAST ; (SB!C::MAYBE-WEAKEN-CHECK TYPE SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-WEAKEN-CHECK ; in: DEFUN DELETE-FILTER ; (SB!C::MERGE-TAIL-SETS MERGE) ; ; caught STYLE-WARNING: ; undefined function: MERGE-TAIL-SETS ; in: DEFUN NOTE-SINGLE-VALUIFIED-LVAR ; (SB!C::REOPTIMIZE-COMPONENT (SB!C::NODE-COMPONENT SB!C::NODE) :MAYBE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN FLUSH-NODE ; (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) T) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN CHANGE-BLOCK-SUCCESSOR ; (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) :MAYBE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN INSERT-CAST-BEFORE ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN SUBSTITUTE-LVAR-USES ; (SB!C::REOPTIMIZE-LVAR SB!C::NEW) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN DELETE-LVAR-USE ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; ; caught STYLE-WARNING: ; 5 more uses of undefined function REOPTIMIZE-LVAR ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; Undefined functions: ; CONSTANT-LVAR-P DERIVE-NODE-TYPE FIND-ORIGINAL-SOURCE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE GIVE-UP-IR1-TRANSFORM IR1-OPTIMIZE-CAST LOCALL-ANALYZE-COMPONENT LVAR-VALUE MAYBE-CONVERT-TO-ASSIGNMENT MAYBE-LET-CONVERT MAYBE-WEAKEN-CHECK MERGE-TAIL-SETS REOPTIMIZE-COMPONENT REOPTIMIZE-LVAR ; caught 33 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/ir1util.lisp-obj-tmp written ; compilation finished in 0:00:02.276 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1report.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (SPECIAL *CURRENT-PATH*)) ; x-compiling (DEFVAR *ENCLOSING-SOURCE-CUTOFF* ...) ; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; x-compiling (DEFSTRUCT (COMPILER-ERROR-CONTEXT # ...) ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *COMPILER-ERROR-CONTEXT* ...) ; x-compiling (DEFVAR *SOURCE-CONTEXT-METHODS* ...) ; x-compiling (DEFMACRO DEFINE-SOURCE-CONTEXT ...) ; x-compiling (DEFINE-SOURCE-CONTEXT DEFSTRUCT ...) ; x-compiling (DEFINE-SOURCE-CONTEXT FUNCTION ...) ; x-compiling (DEFINE-SOURCE-CONTEXT NAMED-LAMBDA ...) ; x-compiling (DEFVAR *SOURCE-FORM-CONTEXT-ALIST* ...) ; x-compiling (DEFUN SOURCE-FORM-CONTEXT ...) ; x-compiling (DEFUN FIND-ORIGINAL-SOURCE ...) ; x-compiling (DEFUN STRINGIFY-FORM ...) ; x-compiling (DEFUN FIND-ERROR-CONTEXT ...) ; x-compiling (DEFVAR *LAST-ERROR-CONTEXT* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *LAST-FORMAT-STRING* ...) ; x-compiling (DEFVAR *LAST-FORMAT-ARGS* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *LAST-MESSAGE-COUNT* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFUN NOTE-MESSAGE-REPEATS ...) ; x-compiling (DEFUN PRINT-COMPILER-MESSAGE ...) ; x-compiling (DEFUN %PRINT-COMPILER-MESSAGE ...) ; x-compiling (DEFUN PRINT-COMPILER-CONDITION ...) ; x-compiling (DEFINE-CONDITION COMPILER-NOTE ...) ; x-compiling (DEFINE-CONDITION SIMPLE-COMPILER-NOTE ...) ; x-compiling (DEFINE-CONDITION CODE-DELETION-NOTE ...) ; x-compiling (DEFUN COMPILER-NOTIFY ...) ; x-compiling (DEFUN MAYBE-COMPILER-NOTIFY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN COMPILER-MUMBLE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-COMPONENT-NAME ...) ; x-compiling (DEFVAR *COMPILER-ERROR-COUNT*) ; x-compiling (DEFVAR *COMPILER-WARNING-COUNT*) ; x-compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*) ; x-compiling (DEFVAR *COMPILER-NOTE-COUNT*) ; x-compiling (DEFVAR *FAILURE-P*) ; x-compiling (DEFVAR *WARNINGS-P*) ; x-compiling (DEFUN COMPILER-ERROR-HANDLER ...) ; x-compiling (DEFUN COMPILER-WARNING-HANDLER ...) ; x-compiling (DEFUN COMPILER-STYLE-WARNING-HANDLER ...) ; x-compiling (DEFVAR *UNDEFINED-WARNING-LIMIT* ...) ; x-compiling (DEFUN NOTE-UNDEFINED-REFERENCE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/ir1report.lisp-obj-tmp written ; compilation finished in 0:00:00.702 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1opt.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN CONSTANT-LVAR-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN LVAR-VALUE ...) ; x-compiling (DECLAIM (INLINE LVAR-DERIVED-TYPE)) ; x-compiling (DEFUN LVAR-DERIVED-TYPE ...) ; x-compiling (DEFUN %LVAR-DERIVED-TYPE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN LVAR-TYPE ...) ; x-compiling (DEFUN LVAR-CONSERVATIVE-TYPE ...) ; x-compiling (DEFUN NODE-CONSERVATIVE-TYPE ...) ; x-compiling (DEFUN CONSERVATIVE-TYPE ...) ; x-compiling (DEFUN TYPE-NEEDS-CONSERVATION-P ...) ; x-compiling (DECLAIM (INLINE LVAR-EXTERNALLY-CHECKABLE-TYPE)) ; x-compiling (DEFUN LVAR-EXTERNALLY-CHECKABLE-TYPE ...) ; x-compiling (DEFUN %LVAR-%EXTERNALLY-CHECKABLE-TYPE ...) ; x-compiling (DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)) ; x-compiling (DEFUN FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ...) ; x-compiling (DECLAIM (INLINE REOPTIMIZE-COMPONENT)) ; x-compiling (DEFUN REOPTIMIZE-COMPONENT ...) ; x-compiling (DEFUN REOPTIMIZE-LVAR ...) ; x-compiling (DEFUN REOPTIMIZE-LVAR-USES ...) ; x-compiling (DEFUN DERIVE-NODE-TYPE ...) ; x-compiling (DEFUN ASSERT-LVAR-TYPE ...) ; x-compiling (DEFUN IR1-OPTIMIZE ...) ; x-compiling (DEFUN IR1-OPTIMIZE-BLOCK ...) ; x-compiling (DEFUN JOIN-SUCCESSOR-IF-POSSIBLE ...) ; x-compiling (DEFUN JOIN-BLOCKS ...) ; x-compiling (DEFUN FLUSH-DEAD-CODE ...) ; x-compiling (DEFUN FIND-RESULT-TYPE ...) ; x-compiling (DEFUN IR1-OPTIMIZE-RETURN ...) ; x-compiling (DEFUN CBLOCKS-EQUIVALENT-P ...) ; x-compiling (DEFUN IR1-OPTIMIZE-IF ...) ; x-compiling (DEFUN KILL-IF-BRANCH-1 ...) ; x-compiling (DEFUN TENSION-IF-IF-1 ...) ; x-compiling (DEFUN DUPLICATE-IF-IF-1 ...) ; x-compiling (DEFUN CONVERT-IF-IF ...) ; x-compiling (DEFUN MAYBE-DELETE-EXIT ...) ; x-compiling (DEFUN CHECK-IMPORTANT-RESULT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN IR1-OPTIMIZE-COMBINATION ...) ; x-compiling (DEFUN XEP-TAIL-COMBINATION-P ...) ; x-compiling (DEFUN MAYBE-TERMINATE-BLOCK ...) ; x-compiling (DEFUN RECOGNIZE-KNOWN-CALL ...) ; x-compiling (DEFUN VALIDATE-CALL-TYPE ...) ; x-compiling (DEFUN PROPAGATE-FUN-CHANGE ...) ; x-compiling (DEFUN RECORD-OPTIMIZATION-FAILURE ...) ; x-compiling (DEFUN IR1-TRANSFORM ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN GIVE-UP-IR1-TRANSFORM ...) ; x-compiling (DEFUN ABORT-IR1-TRANSFORM ...) ; x-compiling (DEFUN DELAY-IR1-TRANSFORM ...) ; x-compiling (DEFUN RETRY-DELAYED-IR1-TRANSFORMS ...) ; x-compiling (DEFUN TRANSFORM-CALL ...) ; x-compiling (DEFUN CONSTANT-FOLD-CALL ...) ; x-compiling (DEFUN PROPAGATE-TO-REFS ...) ; x-compiling (DEFUN MAYBE-INFER-ITERATION-VAR-TYPE ...) ; x-compiling (DEFTRANSFORM + ...) ; x-compiling (DEFUN PROPAGATE-FROM-SETS ...) ; x-compiling (DEFUN IR1-OPTIMIZE-SET ...) ; x-compiling (DEFUN CONSTANT-REFERENCE-P ...) ; x-compiling (DEFUN SUBSTITUTE-SINGLE-USE-LVAR ...) ; x-compiling (DEFUN DELETE-LET ...) ; x-compiling (DEFUN PROPAGATE-LET-ARGS ...) ; x-compiling (DEFUN PROPAGATE-LOCAL-CALL-ARGS ...) ; x-compiling (DEFUN IR1-OPTIMIZE-MV-COMBINATION ...) ; x-compiling (DEFUN IR1-OPTIMIZE-MV-BIND ...) ; x-compiling (DEFUN IR1-OPTIMIZE-MV-CALL ...) ; x-compiling (DEFUN CONVERT-MV-BIND-TO-LET ...) ; x-compiling (DEFOPTIMIZER (VALUES-LIST OPTIMIZER) ...) ; x-compiling (DEFTRANSFORM VALUES ...) ; x-compiling (DEFUN DELETE-CAST ...) ; x-compiling (DEFUN MAY-DELETE-VESTIGIAL-EXIT ...) ; x-compiling (DEFUN IR1-OPTIMIZE-CAST ...) ; x-compiling (DEFTRANSFORM MAKE-SYMBOL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1opt.lisp ; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION ; (SB!C::CONVERT-CALL-IF-POSSIBLE SB!C::USE SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: CONVERT-CALL-IF-POSSIBLE ; in: DEFUN PROPAGATE-FUN-CHANGE ; (SB!C::CONVERT-CALL-IF-POSSIBLE ; (SB!C::LVAR-USES (SB!C::BASIC-COMBINATION-FUN SB!C:CALL)) SB!C:CALL) ; ; caught STYLE-WARNING: ; undefined function: CONVERT-CALL-IF-POSSIBLE ; in: DEFUN IR1-OPTIMIZE-MV-CALL ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN TRANSFORM-CALL ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN RECOGNIZE-KNOWN-CALL ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN FIND-RESULT-TYPE ; (SB!C::MAYBE-CONVERT-TAIL-LOCAL-CALL SB!C::USE) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-CONVERT-TAIL-LOCAL-CALL ; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION ; (SB!C::MAYBE-LET-CONVERT (SB!C::COMBINATION-LAMBDA SB!C::NODE)) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN PROPAGATE-FUN-CHANGE ; (SB!C::MAYBE-LET-CONVERT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN IR1-OPTIMIZE-CAST ; (SB!C::MERGE-TAIL-SETS SB!C::USE) ; ; caught STYLE-WARNING: ; undefined function: MERGE-TAIL-SETS ; in: DEFUN CONVERT-MV-BIND-TO-LET ; (SB!C::PROPAGATE-TO-ARGS SB!C::USE SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: PROPAGATE-TO-ARGS ; (SB!C::REOPTIMIZE-CALL SB!C::USE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-CALL ; ; compilation unit finished ; Undefined functions: ; CONVERT-CALL-IF-POSSIBLE LOCALL-ANALYZE-COMPONENT MAYBE-CONVERT-TAIL-LOCAL-CALL MAYBE-LET-CONVERT MERGE-TAIL-SETS PROPAGATE-TO-ARGS REOPTIMIZE-CALL ; caught 11 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/ir1opt.lisp-obj-tmp written ; compilation finished in 0:00:00.857 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/loop.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN FIND-DOMINATORS ...) ; x-compiling (DEFUN DOMINATES-P ...) ; x-compiling (DEFUN LOOP-ANALYZE ...) ; x-compiling (DEFUN FIND-LOOP-BLOCKS ...) ; x-compiling (DEFUN FIND-BLOCKS-FROM-HERE ...) ; x-compiling (DEFUN NOTE-LOOP-HEAD ...) ; x-compiling (DEFUN FIND-SUPERIOR ...) ; x-compiling (DEFUN FIND-STRANGE-LOOP-BLOCKS ...) ; x-compiling (DEFUN FIND-STRANGE-LOOP-SEGMENTS ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/loop.lisp-obj-tmp written ; compilation finished in 0:00:00.881 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir1final.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN NOTE-FAILED-OPTIMIZATION ...) ; x-compiling (DEFUN FINALIZE-XEP-DEFINITION ...) ; x-compiling (DEFUN NOTE-ASSUMED-TYPES ...) ; x-compiling (DEFUN IR1-MERGE-CASTS ...) ; x-compiling (DEFUN IR1-FINALIZE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/ir1final.lisp-obj-tmp written ; compilation finished in 0:00:00.142 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/array-tran.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER-OR-GIVE-UP ...) ; x-compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER ...) ; x-compiling (DEFUN ARRAY-TYPE-UPGRADED-ELEMENT-TYPE ...) ; x-compiling (DEFUN ARRAY-TYPE-DECLARED-ELEMENT-TYPE ...) ; x-compiling (DEFUN ASSERT-NEW-VALUE-TYPE ...) ; x-compiling (DEFUN UNSUPPLIED-OR-NIL ...) ; x-compiling (DEFUN SUPPLIED-AND-TRUE ...) ; x-compiling (DEFUN ASSERT-ARRAY-RANK ...) ; x-compiling (DEFUN DERIVE-AREF-TYPE ...) ; x-compiling (DEFOPTIMIZER (ARRAY-IN-BOUNDS-P DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM ARRAY-IN-BOUNDS-P ...) ; x-compiling (DEFOPTIMIZER (AREF DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (# DERIVE-TYPE) ...) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS) ; x-compiling (DEFINE DATA-VECTOR-REF) ; x-compiling (DEFOPTIMIZER (DATA-VECTOR-REF-WITH-OFFSET DERIVE-TYPE) ...) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS) ; x-compiling (DEFINE DATA-VECTOR-SET) ; x-compiling (DEFOPTIMIZER (DATA-VECTOR-SET-WITH-OFFSET DERIVE-TYPE) ...) ; x-compiling (DEFUN DERIVE-%WITH-ARRAY-DATA/MUMBLE-TYPE ...) ; x-compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA/FP DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (ARRAY-ROW-MAJOR-INDEX DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (ROW-MAJOR-AREF DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%SET-ROW-MAJOR-AREF DERIVE-TYPE) ...) ; x-compiling (DEFUN DERIVE-MAKE-ARRAY-TYPE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/array-tran.lisp ; in: DEFUN DERIVE-MAKE-ARRAY-TYPE ; 'ARRAY ; ; note: deleting unreachable code ; x-compiling (DEFOPTIMIZER (MAKE-ARRAY DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%MAKE-ARRAY DERIVE-TYPE) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM VECTOR ...) ; x-compiling (DEFTRANSFORM MAKE-STRING ...) ; x-compiling (DEFUN REWRITE-INITIAL-CONTENTS ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAKE-ARRAY ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/array-tran.lisp ; in: DEFINE-SOURCE-TRANSFORM MAKE-ARRAY ; (VALUES SB!C::DIMENSIONS (LENGTH (CDR SB!C::DIMENSIONS))) ; ==> ; SB!C::DIMENSIONS ; ; note: deleting unreachable code ; x-compiling (DEFUN TRANSFORM-MAKE-ARRAY-VECTOR ...) ; x-compiling (DEFTRANSFORM MAKE-ARRAY ...) ; x-compiling (DEFTRANSFORM MAKE-ARRAY ...) ; x-compiling (DEFTRANSFORM MAKE-ARRAY ...) ; x-compiling (DEFUN ARRAY-TYPE-DIMENSIONS-OR-GIVE-UP ...) ; x-compiling (DEFUN CONSERVATIVE-ARRAY-TYPE-COMPLEXP ...) ; x-compiling (DEFTRANSFORM ARRAY-RANK ...) ; x-compiling (DEFUN DERIVE-ARRAY-RANK ...) ; x-compiling (DEFOPTIMIZER (ARRAY-RANK DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%ARRAY-RANK DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM ARRAY-DIMENSION ...) ; x-compiling (DEFTRANSFORM LENGTH ...) ; x-compiling (DEFTRANSFORM LENGTH ...) ; x-compiling (DEFTRANSFORM VECTOR-LENGTH ...) ; x-compiling (DEFTRANSFORM ARRAY-TOTAL-SIZE ...) ; x-compiling (DEFTRANSFORM ARRAY-HAS-FILL-POINTER-P ...) ; x-compiling (DEFTRANSFORM %CHECK-BOUND ...) ; x-compiling (DEF!MACRO WITH-ARRAY-DATA ...) ; x-compiling (DEF!MACRO %WITH-ARRAY-DATA-MACRO ...) ; x-compiling (DEFUN TRANSFORM-%WITH-ARRAY-DATA/MUBLE ...) ; x-compiling (DEFTRANSFORM %WITH-ARRAY-DATA ...) ; x-compiling (DEFTRANSFORM %WITH-ARRAY-DATA/FP ...) ; x-compiling (DEFINE-BIT-FROB SBIT ...) ; x-compiling (DEFINE-BIT-FROB BIT ...) ; x-compiling (DEFINE-FROB SCHAR ...) ; x-compiling (DEFINE-FROB CHAR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM SVREF ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %SVSET ...) ; x-compiling (DEFTRANSFORM ARRAY-ROW-MAJOR-INDEX ...) ; x-compiling (DEFTRANSFORM AREF ...) ; x-compiling (DEFTRANSFORM (SETF AREF) ...) ; x-compiling (DEFTRANSFORM AREF ...) ; x-compiling (DEFTRANSFORM (SETF AREF) ...) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...) ; x-compiling (DEFTRANSFORM ROW-MAJOR-AREF ...) ; x-compiling (DEFTRANSFORM %SET-ROW-MAJOR-AREF ...) ; x-compiling (DEF BIT-AND) ; x-compiling (DEF BIT-IOR) ; x-compiling (DEF BIT-XOR) ; x-compiling (DEF BIT-EQV) ; x-compiling (DEF BIT-NAND) ; x-compiling (DEF BIT-NOR) ; x-compiling (DEF BIT-ANDC1) ; x-compiling (DEF BIT-ANDC2) ; x-compiling (DEF BIT-ORC1) ; x-compiling (DEF BIT-ORC2) ; x-compiling (DEFTRANSFORM BIT-NOT ...) ; x-compiling (DEFTRANSFORM BIT-NOT ...) ; x-compiling (DEFOPTIMIZER (ARRAY-HEADER-P DERIVE-TYPE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/array-tran.lisp ; in: DEFTRANSFORM ARRAY-IN-BOUNDS-P ; (SB!C::INTEGER-TYPE-P SB!C::TYPE2) ; ; caught STYLE-WARNING: ; undefined function: INTEGER-TYPE-P ; (SB!C::WEAKEN-INTEGER-TYPE SB!C::TYPE1 :RANGE-ONLY T) ; ; caught STYLE-WARNING: ; undefined function: WEAKEN-INTEGER-TYPE ; ; compilation unit finished ; Undefined functions: ; INTEGER-TYPE-P WEAKEN-INTEGER-TYPE ; caught 2 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/array-tran.lisp-obj-tmp written ; compilation finished in 0:00:00.756 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/seqtran.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN MAPFOO-TRANSFORM ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAPC ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAPCAR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAPCAN ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAPL ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAPLIST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAPCON ...) ; x-compiling (DEFTRANSFORM MAP ...) ; x-compiling (DEFUN BUILD-SEQUENCE-ITERATOR ...) ; x-compiling (DEFTRANSFORM %MAP ...) ; x-compiling (DEFTRANSFORM MAP-INTO ...) ; x-compiling (DEFTRANSFORM ELT ...) ; x-compiling (DEFTRANSFORM ELT ...) ; x-compiling (DEFTRANSFORM %SETELT ...) ; x-compiling (DEFTRANSFORM %SETELT ...) ; x-compiling (DEFTRANSFORM %CHECK-VECTOR-SEQUENCE-BOUNDS ...) ; x-compiling (DEF!TYPE EQ-COMPARABLE-TYPE ...) ; x-compiling (DEFUN EQ-COMPARABLE-TYPE-P ...) ; x-compiling (DEFUN SPECIALIZED-LIST-SEEK-FUNCTION-NAME ...) ; x-compiling (DEFPARAMETER *LIST-OPEN-CODE-LIMIT* ...) ; x-compiling (DEFUN TRANSFORM-LIST-ITEM-SEEK ...) ; x-compiling (DEFUN TRANSFORM-LIST-PRED-SEEK ...) ; x-compiling (DEF ADJOIN) ; x-compiling (DEF ASSOC ...) ; x-compiling (DEF MEMBER ...) ; x-compiling (DEF RASSOC ...) ; x-compiling (DEFTRANSFORM MEMQ ...) ; x-compiling (DEFTRANSFORM DELETE ...) ; x-compiling (DEFTRANSFORM DELETE-IF ...) ; x-compiling (DEFTRANSFORM FILL ...) ; x-compiling (DEFTRANSFORM FILL ...) ; x-compiling (DEFTRANSFORM FILL ...) ; x-compiling (DEF STRING< ...) ; x-compiling (DEF STRING> ...) ; x-compiling (DEF STRING<= ...) ; x-compiling (DEF STRING>= ...) ; x-compiling (DEF STRING= ...) ; x-compiling (DEF STRING/= ...) ; x-compiling (DEF STRING<* ...) ; x-compiling (DEF STRING<=* ...) ; x-compiling (DEF STRING>* ...) ; x-compiling (DEF STRING>=* ...) ; x-compiling (DEF STRING=* ...) ; x-compiling (DEF STRING/=* ...) ; x-compiling (DEF!CONSTANT VECTOR-DATA-BIT-OFFSET ...) ; x-compiling (DEFUN MAKE-REPLACE-TRANSFORM ...) ; x-compiling (DEFINE-REPLACE-TRANSFORMS) ; x-compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY BASE-CHAR ...) ...) ; x-compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY CHARACTER ...) ...) ; x-compiling (DEFUN FROB-BASH-TRANSFORM ...) ; x-compiling (DEFTRANSFORM UB1-BASH-COPY ...) ; x-compiling (DEFTRANSFORM UB2-BASH-COPY ...) ; x-compiling (DEFTRANSFORM UB4-BASH-COPY ...) ; x-compiling (DEFTRANSFORM UB8-BASH-COPY ...) ; x-compiling (DEFTRANSFORM UB16-BASH-COPY ...) ; x-compiling (DEFTRANSFORM UB32-BASH-COPY ...) ; x-compiling (DEFTRANSFORM UB64-BASH-COPY ...) ; x-compiling (DEFUN INLINEABLE-COPY-VECTOR-P ...) ; x-compiling (DEFUN MAYBE-EXPAND-COPY-LOOP-INLINE ...) ; x-compiling (DEFUN EXPAND-AREF-COPY-LOOP ...) ; x-compiling (DEFTRANSFORM SUBSEQ ...) ; x-compiling (DEFTRANSFORM SUBSEQ ...) ; x-compiling (DEFTRANSFORM SUBSEQ ...) ; x-compiling (DEFTRANSFORM COPY-SEQ ...) ; x-compiling (DEFTRANSFORM COPY-SEQ ...) ; x-compiling (DEFTRANSFORM COPY-SEQ ...) ; x-compiling (DEFTRANSFORM SEARCH ...) ; x-compiling (DEFVAR *CONCATENATE-OPEN-CODE-LIMIT* ...) ; x-compiling (DEFTRANSFORM CONCATENATE ...) ; x-compiling (DEFOPTIMIZER (CAR DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (CDR DERIVE-TYPE) ...) ; x-compiling (DEFUN CHECK-INLINEABILITY-OF-FIND-POSITION-IF ...) ; x-compiling (DEF %FIND-POSITION-IF ...) ; x-compiling (DEF %FIND-POSITION-IF-NOT ...) ; x-compiling (DEFTRANSFORM %FIND-POSITION ...) ; x-compiling (DEFUN %FIND-POSITION-OR-FIND-POSITION-IF-VECTOR-EXPANSION ...) ; x-compiling (DEF!MACRO %FIND-POSITION-VECTOR-MACRO ...) ; x-compiling (DEF!MACRO %FIND-POSITION-IF-VECTOR-MACRO ...) ; x-compiling (DEF!MACRO %FIND-POSITION-IF-NOT-VECTOR-MACRO ...) ; x-compiling (DEFTRANSFORM %FIND-POSITION-IF ...) ; x-compiling (DEFTRANSFORM %FIND-POSITION-IF-NOT ...) ; x-compiling (DEFTRANSFORM %FIND-POSITION ...) ; x-compiling (DEFTRANSFORM %FIND-POSITION ...) ; x-compiling (DEFTRANSFORM %FIND-POSITION ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-TEST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-KEY ...) ; x-compiling (DEFINE-FIND-POSITION FIND ...) ; x-compiling (DEFINE-FIND-POSITION POSITION ...) ; x-compiling (DEFINE-FIND-POSITION-IF FIND-IF ...) ; x-compiling (DEFINE-FIND-POSITION-IF POSITION-IF ...) ; x-compiling (DEFINE-FIND-POSITION-IF-NOT FIND-IF-NOT ...) ; x-compiling (DEFINE-FIND-POSITION-IF-NOT POSITION-IF-NOT ...) ; x-compiling (DEFINE-TRIMMER-TRANSFORM STRING-LEFT-TRIM ...) ; x-compiling (DEFINE-TRIMMER-TRANSFORM STRING-RIGHT-TRIM ...) ; x-compiling (DEFINE-TRIMMER-TRANSFORM STRING-TRIM ...) ; x-compiling (DEFUN TRANSFORM-BACKQ-LIST-OR-LIST* ...) ; x-compiling (DEFTRANSFORM SB!IMPL::BACKQ-LIST ...) ; x-compiling (DEFTRANSFORM SB!IMPL::BACKQ-LIST* ...) ; x-compiling (DEFTRANSFORM SB!IMPL::BACKQ-APPEND ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM SB!IMPL::BACKQ-NCONC ...) ; x-compiling (DEFTRANSFORM SB!IMPL::BACKQ-CONS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/seqtran.lisp ; in: DEFTRANSFORM FILL ; (SB!C::INTEGER-TYPE-P SB!C::ELEMENT-CTYPE) ; ; caught STYLE-WARNING: ; undefined function: INTEGER-TYPE-P ; ; compilation unit finished ; Undefined function: ; INTEGER-TYPE-P ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/seqtran.lisp-obj-tmp written ; compilation finished in 0:00:01.969 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/typetran.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFMACRO DEFINE-TYPE-PREDICATE ...) ; x-compiling (DEFUN %DEFINE-TYPE-PREDICATE ...) ; x-compiling (DEFTRANSFORM TYPEP ...) ; x-compiling (DEFUN IR1-TRANSFORM-TYPE-PREDICATE ...) ; x-compiling (DEFTRANSFORM %TYPEP ...) ; x-compiling (DEFTRANSFORM FOLD-TYPE-PREDICATE ...) ; x-compiling (DEFTRANSFORM FIND-CLASSOID ...) ; x-compiling (DEFOPTIMIZER (%TYPEP-WRAPPER CONSTRAINT-PROPAGATE-IF) ...) ; x-compiling (DEFTRANSFORM %TYPEP-WRAPPER ...) ; x-compiling (DEFUN !DEFINE-STANDARD-TYPE-PREDICATES ...) ; x-compiling (!DEFINE-STANDARD-TYPE-PREDICATES) ; x-compiling (DEFINE-SOURCE-TRANSFORM ATOM ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM BASE-CHAR-P ...) ; x-compiling (DEFTRANSFORM CONSP ...) ; x-compiling (DEFUN TRANSFORM-NUMERIC-BOUND-TEST ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-NUMERIC-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-HAIRY-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-NEGATION-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-UNION-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-INTERSECTION-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-CONS-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-CHARACTER-SET-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-SIMD-PACK-TYPEP ...) ; x-compiling (DEFUN FIND-SUPERTYPE-PREDICATE ...) ; x-compiling (DEFUN TEST-ARRAY-DIMENSIONS ...) ; x-compiling (DEFUN TEST-ARRAY-ELEMENT-TYPE ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-ARRAY-TYPEP ...) ; x-compiling (DEFTRANSFORM %INSTANCE-TYPEP ...) ; x-compiling (DEFUN %SOURCE-TRANSFORM-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-TYPEP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM TYPEP ...) ; x-compiling (DEFOPTIMIZER (COERCE OPTIMIZER) ...) ; x-compiling (DEFUN SIMPLIFY-VECTOR-TYPE ...) ; x-compiling (DEFTRANSFORM COERCE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/typetran.lisp-obj-tmp written ; compilation finished in 0:00:00.782 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-typetran.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFINE-TYPE-PREDICATE BASE-STRING-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE BIGNUMP ...) ; x-compiling (DEFINE-TYPE-PREDICATE CHARACTER-STRING-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE COMPLEX-DOUBLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE COMPLEX-SINGLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE DOUBLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE FIXNUMP ...) ; x-compiling (DEFINE-TYPE-PREDICATE LONG-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE RATIOP ...) ; x-compiling (DEFINE-TYPE-PREDICATE SHORT-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SINGLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-NIL-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-2-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-4-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-7-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-8-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-15-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-16-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-FIXNUM-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-31-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-32-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-63-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-64-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-8-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-16-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-FIXNUM-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-32-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-64-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SINGLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-DOUBLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-BASE-STRING-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-CHARACTER-STRING-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SYSTEM-AREA-POINTER-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE UNSIGNED-BYTE-64-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIGNED-BYTE-64-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMD-PACK-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE VECTOR-NIL-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE WEAK-POINTER-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE CODE-COMPONENT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE LRA-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE FDEFN-P ...) ; x-compiling (DEF) ; x-compiling (DEFINE-TYPE-PREDICATE %STANDARD-CHAR-P ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/vm-typetran.lisp-obj-tmp written ; compilation finished in 0:00:00.055 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN %SINGLE-FLOAT ...) ; x-compiling (DEFKNOWN %DOUBLE-FLOAT ...) ; x-compiling (DEFTRANSFORM FLOAT ...) ; x-compiling (DEFTRANSFORM FLOAT ...) ; x-compiling (DEFTRANSFORM FLOAT ...) ; x-compiling (DEFTRANSFORM %SINGLE-FLOAT ...) ; x-compiling (DEFTRANSFORM %DOUBLE-FLOAT ...) ; x-compiling (FROB %RANDOM-SINGLE-FLOAT ...) ; x-compiling (FROB %RANDOM-DOUBLE-FLOAT ...) ; x-compiling (DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2 ; (ERROR "Unexpectedly small N-RANDOM-CHUNK-BITS") ; ==> ; "Unexpectedly small N-RANDOM-CHUNK-BITS" ; ; note: deleting unreachable code ; x-compiling (DEFTRANSFORM RANDOM ...) ; x-compiling (DEFKNOWN MAKE-SINGLE-FLOAT ...) ; x-compiling (DEFKNOWN MAKE-DOUBLE-FLOAT ...) ; x-compiling (DEFTRANSFORM MAKE-SINGLE-FLOAT ...) ; x-compiling (DEFTRANSFORM MAKE-DOUBLE-FLOAT ...) ; x-compiling (DEFKNOWN SINGLE-FLOAT-BITS ...) ; x-compiling (DEFKNOWN DOUBLE-FLOAT-HIGH-BITS ...) ; x-compiling (DEFKNOWN DOUBLE-FLOAT-LOW-BITS ...) ; x-compiling (DEFTRANSFORM FLOAT-SIGN ...) ; x-compiling (DEFTRANSFORM FLOAT-SIGN ...) ; x-compiling (DEFKNOWN DECODE-SINGLE-FLOAT ...) ; x-compiling (DEFKNOWN DECODE-DOUBLE-FLOAT ...) ; x-compiling (DEFKNOWN INTEGER-DECODE-SINGLE-FLOAT ...) ; x-compiling (DEFKNOWN INTEGER-DECODE-DOUBLE-FLOAT ...) ; x-compiling (DEFKNOWN SCALE-SINGLE-FLOAT ...) ; x-compiling (DEFKNOWN SCALE-DOUBLE-FLOAT ...) ; x-compiling (DEFTRANSFORM DECODE-FLOAT ...) ; x-compiling (DEFTRANSFORM DECODE-FLOAT ...) ; x-compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...) ; x-compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...) ; x-compiling (DEFTRANSFORM SCALE-FLOAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFTRANSFORM SCALE-FLOAT ; (SB!C::LVAR-TYPE SB!C::EX) ; ==> ; SB!C::EX ; ; note: deleting unreachable code ; '(COERCE (SB!KERNEL:%SCALBN (COERCE SB!C::F 'DOUBLE-FLOAT) SB!C::EX) ; 'SINGLE-FLOAT) ; ; note: deleting unreachable code ; x-compiling (DEFTRANSFORM SCALE-FLOAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFTRANSFORM SCALE-FLOAT ; (SB!C::LVAR-TYPE SB!C::EX) ; ==> ; SB!C::EX ; ; note: deleting unreachable code ; '(SB!KERNEL:%SCALBN SB!C::F SB!C::EX) ; ; note: deleting unreachable code ; x-compiling (DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (SCALE-SINGLE-FLOAT DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (SCALE-DOUBLE-FLOAT DERIVE-TYPE) ...) ; x-compiling (FROB %SINGLE-FLOAT ...) ; x-compiling (FROB %DOUBLE-FLOAT ...) ; x-compiling (DEFUN SAFE-CTYPE-FOR-SINGLE-COERCION-P ...) ; x-compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG1 ...) ; x-compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG2 ...) ; x-compiling (DOLIST (X #) ...) ; x-compiling (DOLIST (X #) ...) ; x-compiling (DEF SINGLE-FLOAT ...) ; x-compiling (DEF DOUBLE-FLOAT ...) ; x-compiling (DEFUN MAYBE-EXACT-RECIPROCAL ...) ; x-compiling (DEF SINGLE-FLOAT) ; x-compiling (DEF DOUBLE-FLOAT) ; x-compiling (DEF + ...) ; x-compiling (DEF - ...) ; x-compiling (DEF + ...) ; x-compiling (DEF - ...) ; x-compiling (DEF SINGLE-FLOAT ...) ; x-compiling (DEF DOUBLE-FLOAT ...) ; x-compiling (FROB <) ; x-compiling (FROB >) ; x-compiling (FROB =) ; x-compiling (DEFKNOWN (%TAN %SINH ...) ...) ; x-compiling (DEFKNOWN (%SIN %COS ...) ...) ; x-compiling (DEFKNOWN (%ASIN %ATAN) ...) ; x-compiling (DEFKNOWN (%ACOS) ...) ; x-compiling (DEFKNOWN (%COSH) ...) ; x-compiling (DEFKNOWN (%ACOSH %EXP ...) ...) ; x-compiling (DEFKNOWN %EXPM1 ...) ; x-compiling (DEFKNOWN (%HYPOT) ...) ; x-compiling (DEFKNOWN (%POW) ...) ; x-compiling (DEFKNOWN (%ATAN2) ...) ; x-compiling (DEFKNOWN (%SCALB) ...) ; x-compiling (DEFKNOWN (%SCALBN) ...) ; x-compiling (DEFKNOWN (%LOG1P) ...) ; x-compiling (DEF EXP ...) ; x-compiling (DEF LOG ...) ; x-compiling (DEF SQRT ...) ; x-compiling (DEF ASIN ...) ; x-compiling (DEF ACOS ...) ; x-compiling (DEF ATAN ...) ; x-compiling (DEF SINH ...) ; x-compiling (DEF COSH ...) ; x-compiling (DEF TANH ...) ; x-compiling (DEF ASINH ...) ; x-compiling (DEF ACOSH ...) ; x-compiling (DEF ATANH ...) ; x-compiling (DEF SIN ...) ; x-compiling (DEF COS ...) ; x-compiling (DEF TAN ...) ; x-compiling (DEFTRANSFORM ATAN ...) ; x-compiling (DEFTRANSFORM ATAN ...) ; x-compiling (DEFTRANSFORM EXPT ...) ; x-compiling (DEFTRANSFORM EXPT ...) ; x-compiling (DEFTRANSFORM EXPT ...) ; x-compiling (DEFTRANSFORM EXPT ...) ; x-compiling (DEFTRANSFORM LOG ...) ; x-compiling (DEFTRANSFORM ABS ...) ; x-compiling (DEFTRANSFORM ABS ...) ; x-compiling (DEFTRANSFORM PHASE ...) ; x-compiling (DEFTRANSFORM PHASE ...) ; x-compiling (DEFTRANSFORM PHASE ...) ; x-compiling (DEFUN NUMERIC-TYPE-REAL-P ...) ; x-compiling (DEFUN COERCE-NUMERIC-BOUND ...) ; x-compiling (DEFUN COMPLEX-FLOAT-TYPE ...) ; x-compiling (DEFUN FLOAT-OR-COMPLEX-FLOAT-TYPE ...) ; x-compiling (DEFUN DOMAIN-SUBTYPEP ...) ; x-compiling (DEFUN ELFUN-DERIVE-TYPE-SIMPLE ...) ; x-compiling (FROB EXP ...) ; x-compiling (FROB SINH ...) ; x-compiling (FROB TANH ...) ; x-compiling (FROB ASINH ...) ; x-compiling (FROB ASIN ...) ; x-compiling (FROB ACOS ...) ; x-compiling (FROB ACOSH ...) ; x-compiling (FROB ATANH ...) ; x-compiling (FROB SQRT ...) ; x-compiling (DEFUN SAFE-EXPT ...) ; x-compiling (DEFUN INTERVAL-EXPT-> ...) ; x-compiling (DEFUN INTERVAL-EXPT-< ...) ; x-compiling (DEFUN INTERVAL-EXPT ...) ; x-compiling (DEFUN FIXUP-INTERVAL-EXPT ...) ; x-compiling (DEFUN MERGED-INTERVAL-EXPT ...) ; x-compiling (DEFUN EXPT-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (EXPT DERIVE-TYPE) ...) ; x-compiling (DEFUN LOG-DERIVE-TYPE-AUX-1 ...) ; x-compiling (DEFUN LOG-DERIVE-TYPE-AUX-2 ...) ; x-compiling (DEFOPTIMIZER (LOG DERIVE-TYPE) ...) ; x-compiling (DEFUN ATAN-DERIVE-TYPE-AUX-1 ...) ; x-compiling (DEFUN ATAN-DERIVE-TYPE-AUX-2 ...) ; x-compiling (DEFOPTIMIZER (ATAN DERIVE-TYPE) ...) ; x-compiling (DEFUN COSH-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (COSH DERIVE-TYPE) ...) ; x-compiling (DEFUN PHASE-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (PHASE DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM REALPART ...) ; x-compiling (DEFTRANSFORM IMAGPART ...) ; x-compiling (DEFUN REALPART-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (REALPART DERIVE-TYPE) ...) ; x-compiling (DEFUN IMAGPART-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (IMAGPART DERIVE-TYPE) ...) ; x-compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-1 ...) ; x-compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-2 ...) ; x-compiling (DEFOPTIMIZER (COMPLEX DERIVE-TYPE) ...) ; x-compiling (FROB SINGLE-FLOAT) ; x-compiling (FROB DOUBLE-FLOAT) ; x-compiling (DEFUN TRIG-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (SIN DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (COS DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (TAN DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (CONJUGATE DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (CIS DERIVE-TYPE) ...) ; x-compiling (DEFINE-FROBS TRUNCATE ...) ; x-compiling (DEFINE-FROBS ROUND ...) ; x-compiling (DEFTRANSFORM %UNARY-TRUNCATE ...) ; x-compiling (DEFTRANSFORM %UNARY-TRUNCATE ...) ; x-compiling (DEF SINGLE-FLOAT ...) ; x-compiling (DEF DOUBLE-FLOAT ...) ; x-compiling (DEFKNOWN %UNARY-FTRUNCATE ...) ; x-compiling (DEFKNOWN %UNARY-FTRUNCATE/SINGLE ...) ; x-compiling (DEFKNOWN %UNARY-FTRUNCATE/DOUBLE ...) ; x-compiling (DEFUN %UNARY-FTRUNCATE/SINGLE ...) ; x-compiling (DEFUN %UNARY-FTRUNCATE/DOUBLE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 "" ; x-compiling (DEF SINGLE-FLOAT ...) ; x-compiling (DEF DOUBLE-FLOAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFUN LOG-DERIVE-TYPE-AUX-2 ; (SB!C::/-DERIVE-TYPE-AUX SB!C::X-TYPE SB!C::Y-TYPE SB!C::SAME-ARG) ; ; caught STYLE-WARNING: ; undefined function: /-DERIVE-TYPE-AUX ; in: DEFUN COSH-DERIVE-TYPE-AUX ; (SB!C::ABS-DERIVE-TYPE-AUX SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: ABS-DERIVE-TYPE-AUX ; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (SB!C::BOUND-FUNC SB!C::FUN ; (IF SB!C::INCREASINGP ; SB!C::HIGH ; SB!C::LOW) ; NIL) ; ; caught STYLE-WARNING: ; undefined function: BOUND-FUNC ; in: ; PROGN (DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX (F EX SAME-ARG) ; (DECLARE (IGNORE SAME-ARG)) ; (FLET ((SCALE-BOUND # ; #)) ; (WHEN (AND # #) ; (LET # ; # ; # ; #)))) ; (SB!C::FROB SB!KERNEL:%DOUBLE-FLOAT DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT ; MOST-POSITIVE-DOUBLE-FLOAT) ; --> PROGN DEFUN PROGN SB!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) NIL) ; ; caught STYLE-WARNING: ; undefined function: BOUND-FUNC ; (SB!C::FROB SB!KERNEL:%SINGLE-FLOAT SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT ; MOST-POSITIVE-SINGLE-FLOAT) ; --> PROGN DEFUN PROGN SB!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) NIL) ; ; caught STYLE-WARNING: ; undefined function: BOUND-FUNC ; ; caught STYLE-WARNING: ; 2 more uses of undefined function BOUND-FUNC ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFUN LOG-DERIVE-TYPE-AUX-2 ; (SB!C::FLATTEN-LIST SB!C::ACCUMULATED-LIST) ; ; caught STYLE-WARNING: ; undefined function: FLATTEN-LIST ; in: DEFUN MERGED-INTERVAL-EXPT ; (SB!C::FLATTEN-LIST (SB!C::INTERVAL-EXPT SB!C::X-INT SB!C::Y-INT)) ; ; caught STYLE-WARNING: ; undefined function: FLATTEN-LIST ; in: DEFUN INTERVAL-EXPT-< ; (SB!C::INTERVAL-HIGH SB!C::Y) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-HIGH ; in: DEFUN INTERVAL-EXPT-> ; (SB!C::INTERVAL-HIGH SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-HIGH ; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (SB!C::INTERVAL-HIGH INTERSECTION) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-HIGH ; ; caught STYLE-WARNING: ; 1 more use of undefined function INTERVAL-HIGH ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (SB!C::INTERVAL-INTERSECTION/DIFFERENCE ; (SB!C::NUMERIC-TYPE->INTERVAL SB!C::ARG) ; (SB!C::MAKE-INTERVAL :LOW SB!C::DOMAIN-LOW :HIGH SB!C::DOMAIN-HIGH)) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-INTERSECTION/DIFFERENCE ; in: DEFUN INTERVAL-EXPT-< ; (SB!C::INTERVAL-LOW SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-LOW ; in: DEFUN INTERVAL-EXPT-> ; (SB!C::INTERVAL-LOW SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-LOW ; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (SB!C::INTERVAL-LOW INTERSECTION) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-LOW ; ; caught STYLE-WARNING: ; 1 more use of undefined function INTERVAL-LOW ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFUN INTERVAL-EXPT ; (SB!C::INTERVAL-RANGE-INFO SB!C::X 1) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-RANGE-INFO ; in: DEFUN INTERVAL-EXPT-< ; (SB!C::INTERVAL-RANGE-INFO SB!C::Y) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-RANGE-INFO ; in: DEFUN INTERVAL-EXPT-> ; (SB!C::INTERVAL-RANGE-INFO SB!C::Y 0.0d0) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-RANGE-INFO ; ; caught STYLE-WARNING: ; 1 more use of undefined function INTERVAL-RANGE-INFO ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFUN INTERVAL-EXPT ; (SB!C::INTERVAL-SPLIT 1 SB!C::X T T) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-SPLIT ; in: DEFUN INTERVAL-EXPT-< ; (SB!C::INTERVAL-SPLIT 0 SB!C::Y T) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-SPLIT ; in: DEFUN INTERVAL-EXPT-> ; (SB!C::INTERVAL-SPLIT 0 SB!C::Y T) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-SPLIT ; in: DEFUN INTERVAL-EXPT-< ; (SB!C::MAKE-INTERVAL :LOW (OR SB!C::LO 0) :HIGH (OR SB!C::HI 1)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-INTERVAL ; in: DEFUN INTERVAL-EXPT-> ; (SB!C::MAKE-INTERVAL :LOW (OR SB!C::LO 1) :HIGH SB!C::HI) ; ; caught STYLE-WARNING: ; undefined function: MAKE-INTERVAL ; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (SB!C::MAKE-INTERVAL :LOW SB!C::DOMAIN-LOW :HIGH SB!C::DOMAIN-HIGH) ; ; caught STYLE-WARNING: ; undefined function: MAKE-INTERVAL ; in: DEFUN PHASE-DERIVE-TYPE-AUX ; (SB!C::NUMERIC-TYPE->INTERVAL SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE->INTERVAL ; in: DEFUN MERGED-INTERVAL-EXPT ; (SB!C::NUMERIC-TYPE->INTERVAL SB!C::Y) ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE->INTERVAL ; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (SB!C::NUMERIC-TYPE->INTERVAL SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE->INTERVAL ; in: ; PROGN (DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (ARG FUN DOMAIN-LOW DOMAIN-HIGH DEFAULT-LOW ...) ; (DECLARE (TYPE (OR NULL REAL) DOMAIN-LOW DOMAIN-HIGH)) ; (ETYPECASE ARG (NUMERIC-TYPE (COND # # #)))) ; (SB!C::FROB EXP NIL NIL 0 NIL) ; --> SB!C:DEFOPTIMIZER PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET* ; ==> ; (SB!C::ONE-ARG-DERIVE-TYPE #:G77784 ; (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* ; --> HANDLER-CASE SB!INT:DX-FLET FLET BLOCK ; ==> ; (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* ; --> HANDLER-CASE SB!INT:DX-FLET FLET BLOCK ; ==> ; (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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/float-tran.lisp ; in: DEFUN LOG-DERIVE-TYPE-AUX-2 ; (SB!C::PREPARE-ARG-FOR-DERIVE-TYPE SB!C::LOG-Y) ; ; caught STYLE-WARNING: ; undefined function: PREPARE-ARG-FOR-DERIVE-TYPE ; in: DEFOPTIMIZER (CONJUGATE DERIVE-TYPE) ; (SB!C::SET-BOUND (- (SB!INT:TYPE-BOUND-NUMBER SB!C::H)) (CONSP SB!C::H)) ; ; caught STYLE-WARNING: ; undefined function: SET-BOUND ; in: DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX ; (SB!C::SET-BOUND ; (HANDLER-CASE (SCALE-FLOAT (SB!INT:TYPE-BOUND-NUMBER SB!C::X) SB!C::N) ; (FLOATING-POINT-OVERFLOW NIL NIL)) ; (CONSP SB!C::X)) ; ; caught STYLE-WARNING: ; undefined function: SET-BOUND ; in: DEFOPTIMIZER (EXPT DERIVE-TYPE) ; (SB!C::TWO-ARG-DERIVE-TYPE SB!C::X SB!C::Y #'SB!C::EXPT-DERIVE-TYPE-AUX ; #'EXPT) ; ; caught STYLE-WARNING: ; undefined function: TWO-ARG-DERIVE-TYPE ; in: DEFOPTIMIZER (SCALE-DOUBLE-FLOAT DERIVE-TYPE) ; (SB!C::TWO-ARG-DERIVE-TYPE SB!C::F SB!C::EX ; #'SB!C::SCALE-FLOAT-DERIVE-TYPE-AUX ; #'SB!KERNEL:SCALE-DOUBLE-FLOAT T) ; ; caught STYLE-WARNING: ; undefined function: TWO-ARG-DERIVE-TYPE ; in: DEFOPTIMIZER (SCALE-SINGLE-FLOAT DERIVE-TYPE) ; (SB!C::TWO-ARG-DERIVE-TYPE SB!C::F SB!C::EX ; #'SB!C::SCALE-FLOAT-DERIVE-TYPE-AUX ; #'SB!KERNEL:SCALE-SINGLE-FLOAT T) ; ; caught STYLE-WARNING: ; undefined function: TWO-ARG-DERIVE-TYPE ; ; caught STYLE-WARNING: ; 3 more uses of undefined function TWO-ARG-DERIVE-TYPE ; ; compilation unit finished ; Undefined functions: ; /-DERIVE-TYPE-AUX ABS-DERIVE-TYPE-AUX BOUND-FUNC FLATTEN-LIST INTERVAL-HIGH INTERVAL-INTERSECTION/DIFFERENCE INTERVAL-LOW INTERVAL-RANGE-INFO INTERVAL-SPLIT MAKE-INTERVAL NUMERIC-TYPE->INTERVAL ONE-ARG-DERIVE-TYPE PREPARE-ARG-FOR-DERIVE-TYPE SET-BOUND TWO-ARG-DERIVE-TYPE ; caught 41 STYLE-WARNING conditions ; printed 6 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/float-tran.lisp-obj-tmp written ; compilation finished in 0:00:00.907 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/saptran.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFTRANSFORM FOREIGN-SYMBOL-ADDRESS ...) ; x-compiling (DEFTRANSFORM FOREIGN-SYMBOL-SAP ...) ; x-compiling (DEFKNOWN (SAP< SAP<= ...) ...) ; x-compiling (DEFKNOWN SAP+ ...) ; x-compiling (DEFKNOWN SAP- ...) ; x-compiling (DEFKNOWN SAP-INT ...) ; x-compiling (DEFKNOWN INT-SAP ...) ; x-compiling (DEFSAPREF SAP-REF-8 ...) ; x-compiling (DEFSAPREF SAP-REF-16 ...) ; x-compiling (DEFSAPREF SAP-REF-32 ...) ; x-compiling (DEFSAPREF SAP-REF-64 ...) ; x-compiling (DEFSAPREF SAP-REF-WORD ...) ; x-compiling (DEFSAPREF SIGNED-SAP-REF-8 ...) ; x-compiling (DEFSAPREF SIGNED-SAP-REF-16 ...) ; x-compiling (DEFSAPREF SIGNED-SAP-REF-32 ...) ; x-compiling (DEFSAPREF SIGNED-SAP-REF-64 ...) ; x-compiling (DEFSAPREF SIGNED-SAP-REF-WORD ...) ; x-compiling (DEFSAPREF SAP-REF-SAP ...) ; x-compiling (DEFSAPREF SAP-REF-LISPOBJ ...) ; x-compiling (DEFSAPREF SAP-REF-SINGLE ...) ; x-compiling (DEFSAPREF SAP-REF-DOUBLE ...) ; x-compiling (DEFSAPREF SAP-REF-LONG ...) ; x-compiling (DEF SAP< ...) ; x-compiling (DEF SAP<= ...) ; x-compiling (DEF SAP= ...) ; x-compiling (DEF SAP>= ...) ; x-compiling (DEF SAP> ...) ; x-compiling (DEFTRANSFORM SAP+ ...) ; x-compiling (DEF SAP-REF-8) ; x-compiling (DEF %SET-SAP-REF-8 ...) ; x-compiling (DEF SIGNED-SAP-REF-8) ; x-compiling (DEF %SET-SIGNED-SAP-REF-8 ...) ; x-compiling (DEF SAP-REF-16) ; x-compiling (DEF %SET-SAP-REF-16 ...) ; x-compiling (DEF SIGNED-SAP-REF-16) ; x-compiling (DEF %SET-SIGNED-SAP-REF-16 ...) ; x-compiling (DEF SAP-REF-32) ; x-compiling (DEF %SET-SAP-REF-32 ...) ; x-compiling (DEF SIGNED-SAP-REF-32) ; x-compiling (DEF %SET-SIGNED-SAP-REF-32 ...) ; x-compiling (DEF SAP-REF-64) ; x-compiling (DEF %SET-SAP-REF-64 ...) ; x-compiling (DEF SIGNED-SAP-REF-64) ; x-compiling (DEF %SET-SIGNED-SAP-REF-64 ...) ; x-compiling (DEF SAP-REF-SAP) ; x-compiling (DEF %SET-SAP-REF-SAP ...) ; x-compiling (DEF SAP-REF-LISPOBJ) ; x-compiling (DEF %SET-SAP-REF-LISPOBJ ...) ; x-compiling (DEF SAP-REF-SINGLE) ; x-compiling (DEF %SET-SAP-REF-SINGLE ...) ; x-compiling (DEF SAP-REF-DOUBLE) ; x-compiling (DEF %SET-SAP-REF-DOUBLE ...) ; x-compiling (DEF SAP-REF-WORD ...) ; x-compiling (DEF SIGNED-SAP-REF-WORD ...) ; x-compiling (DEF %SET-SAP-REF-WORD ...) ; x-compiling (DEF %SET-SIGNED-SAP-REF-WORD ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/saptran.lisp-obj-tmp written ; compilation finished in 0:00:01.009 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/srctran.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFINE-SOURCE-TRANSFORM IDENTITY ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM VALUES ...) ; x-compiling (DEFOPTIMIZER (CONSTANTLY DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM COMPLEMENT ...) ; x-compiling (DEFUN DERIVE-SYMBOL-VALUE-TYPE ...) ; x-compiling (DEFOPTIMIZER (SYMBOL-VALUE DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (SYMBOL-GLOBAL-VALUE DERIVE-TYPE) ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-CXR ...) ; x-compiling (/SHOW0 "about to set CxR source transforms") ; x-compiling (LOOP FOR ...) ; x-compiling (/SHOW0 "done setting CxR source transforms") ; x-compiling (DEFINE-SOURCE-TRANSFORM REST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM FIRST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM SECOND ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM THIRD ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM FOURTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM FIFTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM SIXTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM SEVENTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM EIGHTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM NINTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM TENTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LIST ...) ; x-compiling (DEFOPTIMIZER (LIST DERIVE-TYPE) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LIST* ...) ; x-compiling (DEFOPTIMIZER (LIST* DERIVE-TYPE) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM NCONC ...) ; x-compiling (DEFUN DERIVE-APPEND-TYPE ...) ; x-compiling (DEFOPTIMIZER (APPEND DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (SB!IMPL::APPEND2 DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (NCONC DERIVE-TYPE) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM RPLACA ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM RPLACD ...) ; x-compiling (DEFTRANSFORM LAST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM GETHASH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM GET ...) ; x-compiling (DEFVAR *DEFAULT-NTHCDR-OPEN-CODE-LIMIT* ...) ; x-compiling (DEFVAR *EXTREME-NTHCDR-OPEN-CODE-LIMIT* ...) ; x-compiling (DEFTRANSFORM NTHCDR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM PLUSP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MINUSP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM ZEROP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM 1+ ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM 1- ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM ODDP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM EVENP ...) ; x-compiling (DEFFROB TRUNCATE) ; x-compiling (DEFFROB ROUND) ; x-compiling (DEFFROB FLOOR) ; x-compiling (DEFFROB CEILING) ; x-compiling (DEFTRANSFORM LOGTEST ...) ; x-compiling (DEFTRANSFORM LOGBITP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM BYTE ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM BYTE-SIZE ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM BYTE-POSITION ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LDB-TEST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM NUMERATOR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM DENOMINATOR ...) ; x-compiling (DEF SIGNED-ZERO->= ...) ; x-compiling (DEF SIGNED-ZERO-> ...) ; x-compiling (DEF SIGNED-ZERO-= ...) ; x-compiling (DEF SIGNED-ZERO-< ...) ; x-compiling (DEF SIGNED-ZERO-<= ...) ; x-compiling (DEFSTRUCT (INTERVAL # ...) ...) ; x-compiling (DEFUN MAKE-INTERVAL ...) ; x-compiling (DECLAIM (INLINE SET-BOUND)) ; x-compiling (DEFUN SET-BOUND ...) ; x-compiling (DEFUN BOUND-FUNC ...) ; x-compiling (DEFUN SAFE-DOUBLE-COERCION-P ...) ; x-compiling (DEFUN SAFE-SINGLE-COERCION-P ...) ; x-compiling (DEFMACRO SAFELY-BINOP ...) ; x-compiling (DEFMACRO BOUND-BINOP ...) ; x-compiling (DEFUN COERCION-LOSES-PRECISION-P ...) ; x-compiling (DEFUN COERCE-FOR-BOUND ...) ; x-compiling (DEFUN COERCE-AND-TRUNCATE-FLOATS ...) ; x-compiling (DEFUN NUMERIC-TYPE->INTERVAL ...) ; x-compiling (DEFUN TYPE-APPROXIMATE-INTERVAL ...) ; x-compiling (DEFUN COPY-INTERVAL-LIMIT ...) ; x-compiling (DEFUN COPY-INTERVAL ...) ; x-compiling (DEFUN INTERVAL-SPLIT ...) ; x-compiling (DEFUN INTERVAL-CLOSURE ...) ; x-compiling (DEFUN INTERVAL-RANGE-INFO ...) ; x-compiling (DEFUN INTERVAL-BOUNDED-P ...) ; x-compiling (DEFUN INTERVAL-CONTAINS-P ...) ; x-compiling (DEFUN INTERVAL-INTERSECT-P ...) ; x-compiling (DEFUN INTERVAL-ADJACENT-P ...) ; x-compiling (DEFUN INTERVAL-INTERSECTION/DIFFERENCE ...) ; x-compiling (DEFUN INTERVAL-MERGE-PAIR ...) ; x-compiling (DEFUN INTERVAL-APPROXIMATE-UNION ...) ; x-compiling (DEFUN INTERVAL-NEG ...) ; x-compiling (DEFUN INTERVAL-ADD ...) ; x-compiling (DEFUN INTERVAL-SUB ...) ; x-compiling (DEFUN INTERVAL-MUL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/srctran.lisp ; in: DEFUN INTERVAL-MUL ; (SB!INT:BUG "excluded case in INTERVAL-MUL") ; ==> ; "excluded case in INTERVAL-MUL" ; ; note: deleting unreachable code ; x-compiling (DEFUN INTERVAL-DIV ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/srctran.lisp ; in: DEFUN INTERVAL-DIV ; (SB!INT:BUG "excluded case in INTERVAL-DIV") ; ==> ; "excluded case in INTERVAL-DIV" ; ; note: deleting unreachable code ; x-compiling (DEFUN INTERVAL-FUNC ...) ; x-compiling (DEFUN INTERVAL-< ...) ; x-compiling (DEFUN INTERVAL->= ...) ; x-compiling (DEFUN INTERVAL-= ...) ; x-compiling (DEFUN INTERVAL-/= ...) ; x-compiling (DEFUN INTERVAL-ABS ...) ; x-compiling (DEFUN INTERVAL-SQR ...) ; x-compiling (DEFUN DERIVE-INTEGER-TYPE-AUX ...) ; x-compiling (DEFUN DERIVE-INTEGER-TYPE ...) ; x-compiling (DEFUN FLATTEN-LIST ...) ; x-compiling (DEFUN PREPARE-ARG-FOR-DERIVE-TYPE ...) ; x-compiling (DEFUN CONVERT-NUMERIC-TYPE ...) ; x-compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE ...) ; x-compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE-LIST ...) ; x-compiling (DEFVAR *DERIVED-NUMERIC-UNION-COMPLEXITY-LIMIT* ...) ; x-compiling (DEFUN MAKE-DERIVED-UNION-TYPE ...) ; x-compiling (DEFUN CONVERT-MEMBER-TYPE ...) ; x-compiling (DEFUN ONE-ARG-DERIVE-TYPE ...) ; x-compiling (DEFUN TWO-ARG-DERIVE-TYPE ...) ; x-compiling (DEFUN +-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (+ DERIVE-TYPE) ...) ; x-compiling (DEFUN --DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (- DERIVE-TYPE) ...) ; x-compiling (DEFUN *-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (* DERIVE-TYPE) ...) ; x-compiling (DEFUN /-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (/ DERIVE-TYPE) ...) ; x-compiling (DEFUN ASH-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (ASH DERIVE-TYPE) ...) ; x-compiling (DEFUN LOGNOT-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (LOGNOT DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%NEGATE DERIVE-TYPE) ...) ; x-compiling (DEFUN ABS-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (ABS DERIVE-TYPE) ...) ; x-compiling (DEFUN REM-RESULT-TYPE ...) ; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-QUOT ...) ; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-REM ...) ; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-QUOT-AUX ...) ; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-REM-AUX ...) ; x-compiling (DEFOPTIMIZER (TRUNCATE DERIVE-TYPE) ...) ; x-compiling (DEFUN FTRUNCATE-DERIVE-TYPE-QUOT ...) ; x-compiling (DEFUN FTRUNCATE-DERIVE-TYPE-QUOT-AUX ...) ; x-compiling (DEFOPTIMIZER (FTRUNCATE DERIVE-TYPE) ...) ; x-compiling (DEFUN %UNARY-TRUNCATE-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (%UNARY-TRUNCATE DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%UNARY-TRUNCATE/SINGLE-FLOAT DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%UNARY-TRUNCATE/DOUBLE-FLOAT DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%UNARY-FTRUNCATE DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%UNARY-ROUND DERIVE-TYPE) ...) ; x-compiling (DEF FLOOR ...) ; x-compiling (DEF CEILING ...) ; x-compiling (DEF FFLOOR ...) ; x-compiling (DEF FCEILING ...) ; x-compiling (DEFUN FLOOR-QUOTIENT-BOUND ...) ; x-compiling (DEFUN FLOOR-REM-BOUND ...) ; x-compiling (DEFUN CEILING-QUOTIENT-BOUND ...) ; x-compiling (DEFUN CEILING-REM-BOUND ...) ; x-compiling (DEFUN TRUNCATE-QUOTIENT-BOUND ...) ; x-compiling (DEFUN TRUNCATE-REM-BOUND ...) ; x-compiling (DEFUN NUMERIC-RANGE-INFO ...) ; x-compiling (DEFUN INTEGER-TRUNCATE-DERIVE-TYPE ...) ; x-compiling (DEFUN RANDOM-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (RANDOM DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (INTEGER-LENGTH DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (ISQRT DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (CHAR-CODE DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (CODE-CHAR DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (VALUES DERIVE-TYPE) ...) ; x-compiling (DEFUN SIGNUM-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (SIGNUM DERIVE-TYPE) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LDB ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM DPB ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MASK-FIELD ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM DEPOSIT-FIELD ...) ; x-compiling (DEFOPTIMIZER (%LDB DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%MASK-FIELD DERIVE-TYPE) ...) ; x-compiling (DEFUN %DEPOSIT-FIELD-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (%DPB DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%DEPOSIT-FIELD DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %LDB ...) ; x-compiling (DEFTRANSFORM %MASK-FIELD ...) ; x-compiling (DEFTRANSFORM %DPB ...) ; x-compiling (DEFTRANSFORM %DPB ...) ; x-compiling (DEFTRANSFORM %DEPOSIT-FIELD ...) ; x-compiling (DEFTRANSFORM %DEPOSIT-FIELD ...) ; x-compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD DERIVE-TYPE) ...) ; x-compiling (DEFUN %ASH/RIGHT ...) ; x-compiling (DEFTRANSFORM ASH ...) ; x-compiling (DEFTRANSFORM ASH ...) ; x-compiling (DEFTRANSFORM %ASH/RIGHT ...) ; x-compiling (DEFTRANSFORM %ASH/RIGHT ...) ; x-compiling (DEFUN %ASH/RIGHT-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (%ASH/RIGHT DERIVE-TYPE) ...) ; x-compiling (DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER ...) ; x-compiling (DEFUN CUT-TO-WIDTH ...) ; x-compiling (DEFUN BEST-MODULAR-VERSION ...) ; x-compiling (DEFUN INTEGER-TYPE-NUMERIC-BOUNDS ...) ; x-compiling (DEFOPTIMIZER (LOGAND OPTIMIZER) ...) ; x-compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD OPTIMIZER) ...) ; x-compiling (DEFOPTIMIZER (LOGIOR OPTIMIZER) ...) ; x-compiling (DEFTRANSFORM BOOLE ...) ; x-compiling (DEFTRANSFORM * ...) ; x-compiling (DEFTRANSFORM FLOOR ...) ; x-compiling (DEFTRANSFORM CEILING ...) ; x-compiling (DEFTRANSFORM REM ...) ; x-compiling (DEFTRANSFORM MOD ...) ; x-compiling (FLET (#) ...) ; x-compiling (DEFTRANSFORM MOD ...) ; x-compiling (DEFTRANSFORM TRUNCATE ...) ; x-compiling (DEFTRANSFORM REM ...) ; x-compiling (DEFUN GEN-UNSIGNED-DIV-BY-CONSTANT-EXPR ...) ; x-compiling (DEFTRANSFORM TRUNCATE ...) ; x-compiling (DEF ASH ...) ; x-compiling (DEF LOGAND ...) ; x-compiling (DEF LOGAND ...) ; x-compiling (DEF LOGIOR ...) ; x-compiling (DEF LOGIOR ...) ; x-compiling (DEF LOGXOR ...) ; x-compiling (DEF LOGXOR ...) ; x-compiling (DEFUN LEAST-ZERO-BIT ...) ; x-compiling (DEFTRANSFORM LOGAND ...) ; x-compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...) ; x-compiling (DEFTRANSFORM LOGIOR ...) ; x-compiling (DEF LOGAND) ; x-compiling (DEF LOGIOR) ; x-compiling (DEF LOGXOR) ; x-compiling (DEF LOGTEST ...) ; x-compiling (DEF + ...) ; x-compiling (DEF + ...) ; x-compiling (DEF * ...) ; x-compiling (DEF * ...) ; x-compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...) ; x-compiling (DEFTRANSFORM - ...) ; x-compiling (DEFTRANSFORM * ...) ; x-compiling (DEFTRANSFORM %NEGATE ...) ; x-compiling (DEFTRANSFORM %NEGATE ...) ; x-compiling (DEFUN NOT-MORE-CONTAGIOUS ...) ; x-compiling (DEF!TYPE EXACT-NUMBER ...) ; x-compiling (DEFTRANSFORM + ...) ; x-compiling (DEFTRANSFORM - ...) ; x-compiling (DEF * ...) ; x-compiling (DEF / ...) ; x-compiling (DEF EXPT ...) ; x-compiling (DEFTRANSFORM EXPT ...) ; x-compiling (DEFTRANSFORM EXPT ...) ; x-compiling (DEF ASH) ; x-compiling (DEF /) ; x-compiling (DEF TRUNCATE) ; x-compiling (DEF ROUND) ; x-compiling (DEF FLOOR) ; x-compiling (DEF CEILING) ; x-compiling (DEF TRUNCATE) ; x-compiling (DEF ROUND) ; x-compiling (DEF FLOOR) ; x-compiling (DEF CEILING) ; x-compiling (DEF FTRUNCATE ...) ; x-compiling (DEF FROUND ...) ; x-compiling (DEF FFLOOR ...) ; x-compiling (DEF FCEILING ...) ; x-compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...) ; x-compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...) ; x-compiling (DEFTRANSFORM CHAR-UPCASE ...) ; x-compiling (DEFTRANSFORM CHAR-DOWNCASE ...) ; x-compiling (DEFUN SAME-LEAF-REF-P ...) ; x-compiling (DEFTRANSFORM SIMPLE-EQUALITY-TRANSFORM ...) ; x-compiling (DEF EQ) ; x-compiling (DEF CHAR=) ; x-compiling (DEF TWO-ARG-CHAR-EQUAL) ; x-compiling (DEFTRANSFORM EQL ...) ; x-compiling (DEFTRANSFORM EQUAL ...) ; x-compiling (DEFTRANSFORM EQUALP ...) ; x-compiling (DEFTRANSFORM = ...) ; x-compiling (DEFUN MAYBE-FLOAT-LVAR-P ...) ; x-compiling (FLET (#) ...) ; x-compiling (DEF = ...) ; x-compiling (DEF /= ...) ; x-compiling (DEF < ...) ; x-compiling (DEF > ...) ; x-compiling (DEF <= ...) ; x-compiling (DEF >= ...) ; x-compiling (DEFUN IR1-TRANSFORM-CHAR< ...) ; x-compiling (DEFTRANSFORM CHAR< ...) ; x-compiling (DEFTRANSFORM CHAR> ...) ; x-compiling (DEFUN MULTI-COMPARE ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM = ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM < ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM > ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM <= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM >= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR< ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR> ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR<= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR>= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-EQUAL ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-LESSP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-GREATERP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-GREATERP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-LESSP ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MULTI-NOT-EQUAL ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM /= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR/= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-EQUAL ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAX ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MIN ...) ; x-compiling (DEF < ...) ; x-compiling (DEF > ...) ; x-compiling (DEFTRANSFORM = ...) ; x-compiling (DEFTRANSFORM = ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN ASSOCIATE-ARGS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN REDUCE-CONSTANTS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SOURCE-TRANSFORM-TRANSITIVE ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM + ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM * ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGIOR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGXOR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGAND ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM GCD ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LCM ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SOURCE-TRANSFORM-INTRANSITIVE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/srctran.lisp ; in: DEFUN SOURCE-TRANSFORM-INTRANSITIVE ; (DEFUN SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY SB!C::ONE-ARG-PREFIXES ; &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER)) ; (CASE (LENGTH SB!C::ARGS) ; ((0 2) (VALUES NIL T)) ; (1 ; (SB!IMPL::BACKQ-APPEND SB!C::ONE-ARG-PREFIXES (SB!IMPL::BACKQ-LIST #))) ; (T ; (LET (#) ; (SB!C::ASSOCIATE-ARGS SB!C::FUN # SB!C::REDUCED-ARGS IDENTITY))))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (LAMBDA ; (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY ; SB!C::ONE-ARG-PREFIXES ; &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER)) ; (BLOCK SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (CASE (LENGTH SB!C::ARGS) (# #) (1 #) (T #))))) ; ; note: type assertion too complex to check: ; (VALUES LIST &OPTIONAL (MEMBER NIL T)). ; x-compiling (DEFINE-SOURCE-TRANSFORM - ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM / ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM APPLY ...) ; x-compiling (DEFUN POSSIBLE-REST-ARG-CONTEXT ...) ; x-compiling (DEFUN MARK-MORE-CONTEXT-USED ...) ; x-compiling (DEFUN MARK-MORE-CONTEXT-INVALID ...) ; x-compiling (DEFUN REST-VAR-MORE-CONTEXT-OK ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM VALUES-LIST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM NTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM ELT ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-CAR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CAR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CADR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CADDR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CADDDR ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-LENGTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LENGTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LIST-LENGTH ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-NULL ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM NOT ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM NULL ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM ENDP ...) ; x-compiling (DEFTRANSFORM %REST-VALUES ...) ; x-compiling (DEFTRANSFORM %REST-REF ...) ; x-compiling (DEFTRANSFORM %REST-LENGTH ...) ; x-compiling (DEFTRANSFORM %REST-NULL ...) ; x-compiling (DEFTRANSFORM %REST-TRUE ...) ; x-compiling (DEFUN CHECK-FORMAT-ARGS ...) ; x-compiling (DEFOPTIMIZER (FORMAT OPTIMIZER) ...) ; x-compiling (DEFTRANSFORM FORMAT ...) ; x-compiling (DEFTRANSFORM FORMAT ...) ; x-compiling (DEFTRANSFORM FORMAT ...) ; x-compiling (DEFTRANSFORM PATHNAME ...) ; x-compiling (DEFTRANSFORM PATHNAME ...) ; x-compiling (DEF ERROR) ; x-compiling (DEF WARN) ; x-compiling (DEFOPTIMIZER (CERROR OPTIMIZER) ...) ; x-compiling (DEFOPTIMIZER (COERCE DERIVE-TYPE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/srctran.lisp ; in: DEFOPTIMIZER (COERCE DERIVE-TYPE) ; (LET ((ELT (FIRST (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!C::CAR-TYPE)))) ; (OR (SYMBOLP ELT) (NUMBERP ELT) (AND (LISTP ELT) (NUMBERP (FIRST ELT))))) ; ; note: deleting unreachable code ; (LISTP ELT) ; ==> ; ELT ; ; note: deleting unreachable code ; (FIRST ELT) ; --> CAR ; ==> ; ELT ; ; note: deleting unreachable code ; (LET ((ELT (FIRST (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!C::CAR-TYPE)))) ; (OR (SYMBOLP ELT) (NUMBERP ELT) (AND (LISTP ELT) (NUMBERP (FIRST ELT))))) ; ; note: deleting unreachable code ; (NUMBERP ELT) ; ==> ; ELT ; ; note: deleting unreachable code ; (SB!KERNEL:CONS-TYPE-CDR-TYPE SB!KERNEL:CONS-TYPE) ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; SB!KERNEL:CONS-TYPE ; ; note: deleting unreachable code ; (SB!KERNEL:MEMBER-TYPE-SIZE SB!KERNEL:CONS-TYPE) ; ==> ; SB!KERNEL:CONS-TYPE ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!KERNEL:CONS-TYPE) ; ==> ; SB!KERNEL:CONS-TYPE ; ; note: deleting unreachable code ; (LET ((SB!C::C-TYPE (SB!C::UNCONSIFY-TYPE (SB!KERNEL:TYPE-SPECIFIER TYPE)))) ; (IF (SB!C::COERCEABLE-P SB!C::C-TYPE) ; (SB!KERNEL:SPECIFIER-TYPE SB!C::C-TYPE) ; SB!KERNEL:*UNIVERSAL-TYPE*)) ; ; note: deleting unreachable code ; (SB!KERNEL:SPECIFIER-TYPE SB!C::C-TYPE) ; ==> ; SB!C::C-TYPE ; ; note: deleting unreachable code ; (IF (SB!C::COERCEABLE-P SB!C::C-TYPE) ; (SB!KERNEL:SPECIFIER-TYPE SB!C::C-TYPE) ; SB!KERNEL:*UNIVERSAL-TYPE*) ; ==> ; SB!KERNEL:*UNIVERSAL-TYPE* ; ; note: deleting unreachable code ; x-compiling (DEFOPTIMIZER (COMPILE DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (ARRAY-ELEMENT-TYPE DERIVE-TYPE) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM SB!IMPL::SORT-VECTOR ...) ; x-compiling (DEFTRANSFORM SORT ...) ; x-compiling (DEFTRANSFORM STABLE-SORT ...) ; x-compiling (DEFKNOWN SET-INFO-VALUE ...) ; x-compiling (DEFOPTIMIZER (SET-INFO-VALUE DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM POLICY-QUALITY ...) ; x-compiling (DEFTRANSFORM ENCODE-UNIVERSAL-TIME ...) ; x-compiling (DEFTRANSFORM SLEEP ...) ; x-compiling (DEFTRANSFORM SLEEP ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/srctran.lisp ; in: DEFOPTIMIZER (CERROR OPTIMIZER) ; (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING SB!C::Y SB!C::ARGS) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING ; in: DEFUN CHECK-FORMAT-ARGS ; (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING ; in: DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER ; (SB!C::LOGAND-DERIVE-TYPE-AUX SB!C::RES SB!C::MASK-TYPE) ; ; caught STYLE-WARNING: ; undefined function: LOGAND-DERIVE-TYPE-AUX ; in: DEFTRANSFORM LOGTEST ; #'SB!C::LOGAND-DERIVE-TYPE-AUX ; ; caught STYLE-WARNING: ; undefined function: LOGAND-DERIVE-TYPE-AUX ; ; compilation unit finished ; Undefined functions: ; SB!FORMAT:%COMPILER-WALK-FORMAT-STRING LOGAND-DERIVE-TYPE-AUX ; caught 4 STYLE-WARNING conditions ; printed 15 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/srctran.lisp-obj-tmp written ; compilation finished in 0:00:03.693 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/bitops-derive-type.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN INTEGER-TYPE-LENGTH ...) ; x-compiling (DECLAIM (INLINE ZEROES)) ; x-compiling (DEFUN ZEROES ...) ; x-compiling (DECLAIM (INLINE ONES)) ; x-compiling (DEFUN ONES ...) ; x-compiling (DEFUN LOGAND-DERIVE-UNSIGNED-BOUNDS ...) ; x-compiling (DEFUN LOGAND-DERIVE-TYPE-AUX ...) ; x-compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-BOUNDS ...) ; x-compiling (DEFUN LOGIOR-DERIVE-TYPE-AUX ...) ; x-compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-BOUNDS ...) ; x-compiling (DEFUN LOGXOR-DERIVE-TYPE-AUX ...) ; x-compiling (DEFFROB LOGAND) ; x-compiling (DEFFROB LOGIOR) ; x-compiling (DEFFROB LOGXOR) ; x-compiling (DEFOPTIMIZER (LOGEQV DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (LOGNAND DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (LOGNOR DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (LOGANDC1 DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (LOGANDC2 DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (LOGORC1 DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (LOGORC2 DERIVE-TYPE) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/bitops-derive-type.lisp-obj-tmp written ; compilation finished in 0:00:00.170 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-tran.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFINE-SOURCE-TRANSFORM SHORT-FLOAT-P ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LONG-FLOAT-P ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM COMPILED-FUNCTION-P ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-INT ...) ; x-compiling (DEFTRANSFORM ABS ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %BIGNUM-REF ...) ; x-compiling (DEFUN FOLD-INDEX-ADDRESSING ...) ; x-compiling (DEFTRANSFORM %BIGNUM-REF-WITH-OFFSET ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %INSTANCE-LAYOUT ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %SET-INSTANCE-LAYOUT ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %FUNCALLABLE-INSTANCE-LAYOUT ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %SET-FUNCALLABLE-INSTANCE-LAYOUT ...) ; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...) ; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...) ; x-compiling (DEFTRANSFORM DATA-VECTOR-REF ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM DATA-VECTOR-REF ...) ; x-compiling (DEFTRANSFORM DATA-VECTOR-REF-WITH-OFFSET ...) ; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...) ; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...) ; x-compiling (DEFTRANSFORM DATA-VECTOR-SET ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM DATA-VECTOR-SET ...) ; x-compiling (DEFTRANSFORM DATA-VECTOR-SET-WITH-OFFSET ...) ; x-compiling (DEFUN MAYBE-ARRAY-DATA-VECTOR-TYPE-SPECIFIER ...) ; x-compiling (DEF %ARRAY-DATA-VECTOR) ; x-compiling (DEF ARRAY-STORAGE-VECTOR) ; x-compiling (DEFOPTIMIZER (%DATA-VECTOR-AND-INDEX DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %DATA-VECTOR-AND-INDEX ...) ; x-compiling (DEF BIT-AND ...) ; x-compiling (DEF BIT-IOR ...) ; x-compiling (DEF BIT-XOR ...) ; x-compiling (DEF BIT-EQV ...) ; x-compiling (DEF BIT-NAND ...) ; x-compiling (DEF BIT-NOR ...) ; x-compiling (DEF BIT-ANDC1 ...) ; x-compiling (DEF BIT-ANDC2 ...) ; x-compiling (DEF BIT-ORC1 ...) ; x-compiling (DEF BIT-ORC2 ...) ; x-compiling (DEFTRANSFORM BIT-NOT ...) ; x-compiling (DEFTRANSFORM BIT-VECTOR-= ...) ; x-compiling (DEFTRANSFORM COUNT ...) ; x-compiling (DEFTRANSFORM FILL ...) ; x-compiling (DEFTRANSFORM FILL ...) ; x-compiling (DEFTRANSFORM %BYTE-BLT ...) ; x-compiling (DEFINE-GOOD-MODULAR-FUN LOGAND ...) ; x-compiling (DEFINE-GOOD-MODULAR-FUN LOGIOR ...) ; x-compiling (DEFINE-GOOD-MODULAR-FUN LOGXOR ...) ; x-compiling (DEFINE-GOOD-SIGNED-MODULAR-FUNS LOGAND ...) ; x-compiling (DEF SB!VM::ASH-LEFT-MODFX ...) ; x-compiling (DEF SB!VM::ASH-LEFT-MOD64 ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM WORD-LOGICAL-NOT ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-AND ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-NAND ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-OR ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-NOR ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-XOR ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-EQV ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-ORC1 ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-ORC2 ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-ANDC1 ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-ANDC2 ...) ; x-compiling (DEFUN UB32-STRENGTH-REDUCE-CONSTANT-MULTIPLY ...) ; x-compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...) ; x-compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-tran.lisp ; in: DEFUN FOLD-INDEX-ADDRESSING ; (SB!VM::FOLDABLE-CONSTANT-OFFSET-P SB!C::ELEMENT-SIZE SB!C::LOWTAG ; SB!C::DATA-OFFSET ; (SETF SB!C::NEW-OFFSET ; (FUNCALL SB!C::FUNC ; (SB!C::LVAR-VALUE ; SB!C::OFFSET) ; SB!C::VALUE))) ; ; caught STYLE-WARNING: ; undefined function: SB!VM::FOLDABLE-CONSTANT-OFFSET-P ; ; compilation unit finished ; Undefined function: ; SB!VM::FOLDABLE-CONSTANT-OFFSET-P ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/vm-tran.lisp-obj-tmp written ; compilation finished in 0:00:00.425 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/locall.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN PROPAGATE-TO-ARGS ...) ; x-compiling (DEFUN RECOGNIZE-DYNAMIC-EXTENT-LVARS ...) ; x-compiling (DEFUN MERGE-TAIL-SETS ...) ; x-compiling (DEFUN CONVERT-CALL ...) ; x-compiling (DEFUN MAKE-XEP-LAMBDA-EXPRESSION ...) ; x-compiling (DEFUN MAKE-XEP ...) ; x-compiling (DEFUN LOCALL-ANALYZE-XEP-ENTRY-POINT ...) ; x-compiling (DEFUN REFERENCE-ENTRY-POINT ...) ; x-compiling (DEFUN LOCALL-ANALYZE-FUN-1 ...) ; x-compiling (DEFUN LOCALL-ANALYZE-COMPONENT ...) ; x-compiling (DEFUN LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ...) ; x-compiling (DEFUN MAYBE-EXPAND-LOCAL-INLINE ...) ; x-compiling (DEFUN CONVERT-CALL-IF-POSSIBLE ...) ; x-compiling (DEFUN CONVERT-MV-CALL ...) ; x-compiling (DEFUN TRANSFORM-CALL-WITH-IR1-ENVIRONMENT ...) ; x-compiling (DEFUN WARN-INVALID-LOCAL-CALL ...) ; x-compiling (DEFUN CONVERT-LAMBDA-CALL ...) ; x-compiling (DEFUN CONVERT-HAIRY-CALL ...) ; x-compiling (DEFUN CONVERT-HAIRY-FUN-ENTRY ...) ; x-compiling (DEFUN CONVERT-MORE-CALL ...) ; x-compiling (DEFUN INSERT-LET-BODY ...) ; x-compiling (DEFUN DEPART-FROM-TAIL-SET ...) ; x-compiling (DEFUN MERGE-LETS ...) ; x-compiling (DEFUN MOVE-RETURN-USES ...) ; x-compiling (DEFUN UNCONVERT-TAIL-CALLS ...) ; x-compiling (DEFUN MOVE-RETURN-STUFF ...) ; x-compiling (DEFUN LET-CONVERT ...) ; x-compiling (DEFUN REOPTIMIZE-CALL ...) ; x-compiling (DEFUN DECLARATIONS-SUPPRESS-LET-CONVERSION-P ...) ; x-compiling (DEFUN OK-INITIAL-CONVERT-P ...) ; x-compiling (DEFUN SUBSTITUTE-LET-FUNARGS ...) ; x-compiling (DEFUN MAYBE-LET-CONVERT ...) ; x-compiling (DEFUN ONLY-HARMLESS-CLEANUPS ...) ; x-compiling (DEFUN MAYBE-CONVERT-TAIL-LOCAL-CALL ...) ; x-compiling (DEFUN MAYBE-CONVERT-TO-ASSIGNMENT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/locall.lisp ; in: DEFUN MERGE-LETS ; (SB!C::GET-LAMBDA-PHYSENV SB!C::HOME) ; ; caught STYLE-WARNING: ; undefined function: GET-LAMBDA-PHYSENV ; in: DEFUN INSERT-LET-BODY ; (SB!C::JOIN-COMPONENTS SB!C:COMPONENT SB!C::CLAMBDA-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: JOIN-COMPONENTS ; ; compilation unit finished ; Undefined functions: ; GET-LAMBDA-PHYSENV JOIN-COMPONENTS ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/locall.lisp-obj-tmp written ; compilation finished in 0:00:01.619 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/dfo.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-DFO ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN JOIN-COMPONENTS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-DFO-AUX ...) ; x-compiling (DEFUN SCAVENGE-HOME-DEPENDENCY-GRAPH ...) ; x-compiling (DEFUN FIND-INITIAL-DFO-AUX ...) ; x-compiling (DEFUN FIND-REFERENCE-FUNS ...) ; x-compiling (DEFUN DFO-SCAVENGE-DEPENDENCY-GRAPH ...) ; x-compiling (DEFUN HAS-XEP-OR-NLX ...) ; x-compiling (DEFUN SEPARATE-TOPLEVELISH-COMPONENTS ...) ; x-compiling (DEFUN FIND-INITIAL-DFO ...) ; x-compiling (DEFUN MERGE-1-TOPLEVEL-LAMBDA ...) ; x-compiling (DEFUN MERGE-TOPLEVEL-LAMBDAS ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/dfo.lisp-obj-tmp written ; compilation finished in 0:00:01.349 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/checkgen.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN FUN-GUESSED-COST ...) ; x-compiling (DEFUN TYPE-TEST-COST ...) ; x-compiling (DEFUN WEAKEN-INTEGER-TYPE ...) ; x-compiling (DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS ...) ...) ; x-compiling (DEFUN WEAKEN-VALUES-TYPE ...) ; x-compiling (DEFUN MAYBE-WEAKEN-CHECK ...) ; x-compiling (DEFUN NO-FUN-VALUES-TYPES ...) ; x-compiling (DEFVAR *COMPLEMENT-TYPE-CHECKS* ...) ; x-compiling (DEFUN MAYBE-NEGATE-CHECK ...) ; x-compiling (DEFUN CAST-CHECK-TYPES ...) ; x-compiling (DEFUN CAST-EXTERNALLY-CHECKABLE-P ...) ; x-compiling (DEFUN PROBABLE-TYPE-CHECK-P ...) ; x-compiling (DEFGLOBAL **TYPE-SPEC-INTERR-SYMBOLS** ...) ; x-compiling (DEFUN %INTERR-SYMBOL-FOR-TYPE-SPEC ...) ; x-compiling (DEFUN MAKE-TYPE-CHECK-FORM ...) ; x-compiling (DEFUN CONVERT-TYPE-CHECK ...) ; x-compiling (DEFUN CAST-CHECK-USES ...) ; x-compiling (DEFUN GENERATE-TYPE-CHECKS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/checkgen.lisp ; in: DEFGLOBAL **TYPE-SPEC-INTERR-SYMBOLS** ; (SB!EXT:DEFGLOBAL SB!C::**TYPE-SPEC-INTERR-SYMBOLS** ; (LET* ((SB!C::ENTRIES #(# # # # # # # # # # # # ...)) ; (SB!C::HASHTABLE ; (MAKE-ARRAY # :INITIAL-ELEMENT NIL))) ; (MAP NIL ; (LAMBDA (SB!C::ENTRY) ; (LET* # ; #)) ; SB!C::ENTRIES) ; SB!C::HASHTABLE)) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!C::**TYPE-SPEC-INTERR-SYMBOLS** ; (UNLESS #:BOUNDP ; (LET* ((SB!C::ENTRIES #) (SB!C::HASHTABLE #)) ; (MAP NIL (LAMBDA # #) SB!C::ENTRIES) ; SB!C::HASHTABLE)) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: ; DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS 7 :HASH-FUNCTION #'TYPE-HASH-VALUE) ; (SB!INT:DEFUN-CACHED (SB!C::WEAKEN-TYPE :HASH-BITS 7 :HASH-FUNCTION ; #'SB!KERNEL:TYPE-HASH-VALUE) ; ((TYPE EQ)) ; (DECLARE (TYPE SB!KERNEL:CTYPE TYPE)) ; (COND ((SB!KERNEL:NAMED-TYPE-P TYPE) TYPE) ; ((SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'INTEGER)) ; (SB!C::WEAKEN-INTEGER-TYPE TYPE)) ; (T ; (LET (# # #) ; (DOLIST # #) ; (IF SB!C::FOUND-SUPER ; SB!C::MIN-TYPE ; TYPE))))) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!C::**WEAKEN-TYPE-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFUN MAYBE-NEGATE-CHECK ; #'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 ; ; compilation unit finished ; Undefined functions: ; SB!IMPL::%DEFGLOBAL TYPE-CHECK-TEMPLATE ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/checkgen.lisp-obj-tmp written ; compilation finished in 0:00:00.349 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/constraint.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *CONSTRAINT-UNIVERSE*) ; x-compiling (DEFTYPE CONSTRAINT-Y ...) ; x-compiling (DEFSTRUCT (CONSTRAINT # ...) ...) ; x-compiling (DECLAIM (INLINE %CONSTRAINT-NUMBER)) ; x-compiling (DEFUN %CONSTRAINT-NUMBER ...) ; x-compiling (DEFSTRUCT (CONSET # ...) ...) ; x-compiling (DEFUN CONSET-EMPTY ...) ; x-compiling (DEFUN COPY-CONSET ...) ; x-compiling (DEFUN %CONSET-GROW ...) ; x-compiling (DECLAIM (INLINE CONSET-GROW)) ; x-compiling (DEFUN CONSET-GROW ...) ; x-compiling (DEFUN CONSET-MEMBER ...) ; x-compiling (DEFUN CONSET-ADJOIN ...) ; x-compiling (DEFUN CONSET= ...) ; x-compiling (DEFCONSETOP CONSET-UNION ...) ; x-compiling (DEFCONSETOP CONSET-INTERSECTION ...) ; x-compiling (DEFCONSETOP CONSET-DIFFERENCE ...) ; x-compiling (DEFUN FIND-CONSTRAINT ...) ; x-compiling (DEFUN REGISTER-CONSTRAINT ...) ; x-compiling (DEFUN FIND-OR-CREATE-CONSTRAINT ...) ; x-compiling (DEFMACRO DO-CONSET-CONSTRAINTS-INTERSECTION ...) ; x-compiling (DEFMACRO DO-EQL-VARS ...) ; x-compiling (DEFMACRO DO-INHERITABLE-CONSTRAINTS ...) ; x-compiling (DEFMACRO DO-PROPAGATABLE-CONSTRAINTS ...) ; x-compiling (DECLAIM (INLINE CONSET-LVAR-LAMBDA-VAR-EQL-P ...)) ; x-compiling (DEFUN CONSET-LVAR-LAMBDA-VAR-EQL-P ...) ; x-compiling (DEFUN CONSET-ADD-LVAR-LAMBDA-VAR-EQL ...) ; x-compiling (DECLAIM (INLINE CONSET-ADD-CONSTRAINT ...)) ; x-compiling (DEFUN CONSET-ADD-CONSTRAINT ...) ; x-compiling (DEFUN CONSET-ADD-CONSTRAINT-TO-EQL ...) ; x-compiling (DECLAIM (INLINE CONSET-CLEAR-LAMBDA-VAR)) ; x-compiling (DEFUN CONSET-CLEAR-LAMBDA-VAR ...) ; x-compiling (DEFUN INHERIT-CONSTRAINTS ...) ; x-compiling (DEFUN ADD-EQL-VAR-VAR-CONSTRAINT ...) ; x-compiling (DECLAIM (INLINE OK-REF-LAMBDA-VAR)) ; x-compiling (DEFUN OK-REF-LAMBDA-VAR ...) ; x-compiling (DEFUN OK-LVAR-LAMBDA-VAR ...) ; x-compiling (DEFUN PRECISE-ADD-TEST-CONSTRAINT ...) ; x-compiling (DEFUN ADD-TEST-CONSTRAINT ...) ; x-compiling (DECLAIM (INLINE PRECISE-ADD-TEST-CONSTRAINT ...)) ; x-compiling (DEFUN PRECISE-ADD-COMPLEMENT-CONSTRAINTS ...) ; x-compiling (DEFUN QUICK-ADD-COMPLEMENT-CONSTRAINTS ...) ; x-compiling (DEFUN ADD-COMPLEMENT-CONSTRAINTS ...) ; x-compiling (DEFUN ADD-COMBINATION-TEST-CONSTRAINTS ...) ; x-compiling (DEFUN ADD-TEST-CONSTRAINTS ...) ; x-compiling (DEFUN INTEGER-TYPE-P ...) ; x-compiling (DEFUN CONSTRAIN-INTEGER-TYPE ...) ; x-compiling (DEFUN FLOAT-TYPE-P ...) ; x-compiling (DEFUN CONSTRAIN-FLOAT-TYPE ...) ; x-compiling (DEFUN LEAF-VISIBLE-FROM-NODE-P ...) ; x-compiling (DEFUN CONSTRAIN-REF-TYPE ...) ; x-compiling (DEFUN MAYBE-ADD-EQL-VAR-LVAR-CONSTRAINT ...) ; x-compiling (DEFUN MAYBE-ADD-EQL-VAR-VAR-CONSTRAINT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CONSTRAINT-PROPAGATE-IN-BLOCK ...) ; x-compiling (DEFUN CONSTRAINT-PROPAGATE-IF ...) ; x-compiling (DEFUN FIND-BLOCK-TYPE-CONSTRAINTS ...) ; x-compiling (DEFUN USE-RESULT-CONSTRAINTS ...) ; x-compiling (DEFUN INIT-VAR-CONSTRAINTS ...) ; x-compiling (DEFUN BLOCK-OUT-FOR-SUCCESSOR ...) ; x-compiling (DEFUN COMPUTE-BLOCK-IN ...) ; x-compiling (DEFUN UPDATE-BLOCK-IN ...) ; x-compiling (DEFUN LEADING-COMPONENT-BLOCKS ...) ; x-compiling (DEFUN NCONC-NEW ...) ; x-compiling (DEFUN FIND-AND-PROPAGATE-CONSTRAINTS ...) ; x-compiling (DEFUN CONSTRAINT-PROPAGATE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/constraint.lisp ; in: DEFCONSETOP CONSET-INTERSECTION ; (SB!C::DEFCONSETOP SB!C::CONSET-INTERSECTION BIT-AND) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK LET LET SETF PROGN SETF LET* ; --> MULTIPLE-VALUE-BIND LET IF OR LET POSITION NTH-VALUE MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL:%FIND-POSITION SB!C::ITEM SEQUENCE SB!C::FROM-END SB!C::START ; SB!C::END (SB!KERNEL:EFFECTIVE-FIND-POSITION-KEY SB!C::KEY) ; (SB!KERNEL:EFFECTIVE-FIND-POSITION-TEST SB!C::TEST SB!C::TEST-NOT)) ; ; caught STYLE-WARNING: ; undefined function: %BIT-POSITION/1 ; in: DEFUN CONSET= ; (FIND 1 SB!C::LONGER :START (LENGTH SB!C::SHORTER)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET ; ==> ; (SB!KERNEL:%FIND-POSITION SB!C::ITEM SEQUENCE SB!C::FROM-END SB!C::START ; SB!C::END (SB!KERNEL:EFFECTIVE-FIND-POSITION-KEY SB!C::KEY) ; (SB!KERNEL:EFFECTIVE-FIND-POSITION-TEST SB!C::TEST SB!C::TEST-NOT)) ; ; caught STYLE-WARNING: ; undefined function: %BIT-POSITION/1 ; in: DEFUN CONSET-EMPTY ; (FIND 1 (SB!C::CONSET-VECTOR SB!C::CONSET) :START ; (SB!C::CONSET-MIN SB!C::CONSET) :END (SB!C::CONSET-MAX SB!C::CONSET)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET ; ==> ; (SB!KERNEL:%FIND-POSITION SB!C::ITEM SEQUENCE SB!C::FROM-END SB!C::START ; SB!C::END (SB!KERNEL:EFFECTIVE-FIND-POSITION-KEY SB!C::KEY) ; (SB!KERNEL:EFFECTIVE-FIND-POSITION-TEST SB!C::TEST SB!C::TEST-NOT)) ; ; caught STYLE-WARNING: ; undefined function: %BIT-POSITION/1 ; ; caught STYLE-WARNING: ; 1 more use of undefined function %BIT-POSITION/1 ; ; compilation unit finished ; Undefined function: ; %BIT-POSITION/1 ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/constraint.lisp-obj-tmp written ; compilation finished in 0:00:00.770 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/physenvanal.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN PHYSENV-ANALYZE ...) ; x-compiling (DEFUN PRE-PHYSENV-ANALYZE-TOPLEVEL ...) ; x-compiling (DEFUN GET-LAMBDA-PHYSENV ...) ; x-compiling (DEFUN REINIT-LAMBDA-PHYSENV ...) ; x-compiling (DEFUN GET-NODE-PHYSENV ...) ; x-compiling (DEFUN %ADD-LAMBDA-VARS-TO-CLOSURES ...) ; x-compiling (DEFUN ADD-LAMBDA-VARS-AND-LET-VARS-TO-CLOSURES ...) ; x-compiling (DEFUN XEP-ALLOCATOR ...) ; x-compiling (DEFUN CLOSE-OVER ...) ; x-compiling (DEFUN ANALYZE-INDIRECT-LAMBDA-VARS ...) ; x-compiling (DEFVAR *FUNCTIONAL-ESCAPE-INFO*) ; x-compiling (DEFUN FUNCTIONAL-MAY-ESCAPE-P ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/physenvanal.lisp ; in: DEFUN FUNCTIONAL-MAY-ESCAPE-P ; (WHEN SB!C::LVAR (SB!C::LVAR-DEST SB!C::LVAR)) ; --> IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a NODE: ; NIL ; x-compiling (DEFUN EXIT-SHOULD-CHECK-TAG-P ...) ; x-compiling (DEFUN INSERT-NLX-ENTRY-STUB ...) ; x-compiling (DEFUN NOTE-NON-LOCAL-EXIT ...) ; x-compiling (DEFUN FIND-NON-LOCAL-EXITS ...) ; x-compiling (DEFUN RECHECK-DYNAMIC-EXTENT-LVARS ...) ; x-compiling (DEFUN EMIT-CLEANUPS ...) ; x-compiling (DEFUN FIND-CLEANUP-POINTS ...) ; x-compiling (DEFUN TAIL-ANNOTATE ...); ; compilation unit finished ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/physenvanal.lisp-obj-tmp written ; compilation finished in 0:00:01.189 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/tn.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *COMPONENT-BEING-COMPILED*) ; x-compiling (DEFMACRO DO-PACKED-TNS ...) ; x-compiling (DEFUN SET-IR2-PHYSENV-LIVE-TNS ...) ; x-compiling (DEFUN SET-IR2-PHYSENV-DEBUG-LIVE-TNS ...) ; x-compiling (DEFUN SET-IR2-COMPONENT-ALIAS-TNS ...) ; x-compiling (DEFUN SET-IR2-COMPONENT-NORMAL-TNS ...) ; x-compiling (DEFUN SET-IR2-COMPONENT-RESTRICTED-TNS ...) ; x-compiling (DEFUN SET-IR2-COMPONENT-WIRED-TNS ...) ; x-compiling (DEFUN DELETE-UNREFERENCED-TNS ...) ; x-compiling (DEFUN MAKE-NORMAL-TN ...) ; x-compiling (DEFUN MAKE-REPRESENTATION-TN ...) ; x-compiling (DEFUN MAKE-WIRED-TN ...) ; x-compiling (DEFUN MAKE-RESTRICTED-TN ...) ; x-compiling (DEFUN PHYSENV-LIVE-TN ...) ; x-compiling (DEFUN PHYSENV-DEBUG-LIVE-TN ...) ; x-compiling (DEFUN COMPONENT-LIVE-TN ...) ; x-compiling (DEFUN SPECIFY-SAVE-TN ...) ; x-compiling (DEFUN MAKE-CONSTANT-TN ...) ; x-compiling (DEFUN MAKE-LOAD-TIME-VALUE-TN ...) ; x-compiling (DEFUN MAKE-ALIAS-TN ...) ; x-compiling (DEFUN MAKE-LOAD-TIME-CONSTANT-TN ...) ; x-compiling (DEFUN REFERENCE-TN ...) ; x-compiling (DEFUN REFERENCE-TN-LIST ...) ; x-compiling (DEFUN DELETE-TN-REF ...) ; x-compiling (DEFUN CHANGE-TN-REF-TN ...) ; x-compiling (DEFUN EMIT-MOVE-TEMPLATE ...) ; x-compiling (DEFUN EMIT-LOAD-TEMPLATE ...) ; x-compiling (DEFUN EMIT-MOVE-ARG-TEMPLATE ...) ; x-compiling (DEFUN EMIT-CONTEXT-TEMPLATE ...) ; x-compiling (DEFUN BLOCK-LABEL ...) ; x-compiling (DEFUN BLOCK-TRAMPOLINE ...) ; x-compiling (DEFUN DROP-THRU-P ...) ; x-compiling (DEFUN REGISTER-DROP-THRU ...) ; x-compiling (DEFUN INSERT-VOP ...) ; x-compiling (DEFUN EMIT-AND-INSERT-VOP ...) ; x-compiling (DEFUN DELETE-VOP ...) ; x-compiling (DEFUN MAKE-N-TNS ...) ; x-compiling (DEFUN LOCATION= ...) ; x-compiling (DEFUN TN-VALUE ...) ; x-compiling (DEFUN IMMEDIATE-TN-P ...) ; x-compiling (DEFUN FORCE-TN-TO-STACK ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/tn.lisp-obj-tmp written ; compilation finished in 0:00:01.605 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/life.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN ADD-GLOBAL-CONFLICT ...) ; x-compiling (DEFUN INSERT-BLOCK-GLOBAL-CONFLICT ...) ; x-compiling (DEFUN RESET-CURRENT-CONFLICT ...) ; x-compiling (DEFUN CACHED-BLOCK-PHYSENV ...) ; x-compiling (DEFUN CONVERT-TO-GLOBAL ...) ; x-compiling (DEFUN FIND-LOCAL-REFERENCES ...) ; x-compiling (DEFUN INIT-GLOBAL-CONFLICT-KIND ...) ; x-compiling (DEFEVENT SPLIT-IR2-BLOCK ...) ; x-compiling (DEFUN SPLIT-IR2-BLOCKS ...) ; x-compiling (DEFUN CLEAR-LIFETIME-INFO ...) ; x-compiling (DEFUN COALESCE-MORE-LTN-NUMBERS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/life.lisp ; in: DEFUN COALESCE-MORE-LTN-NUMBERS ; (SB!C::FIND-IN #'SB!C::GLOBAL-CONFLICTS-NEXT-BLOCKWISE SB!C:TN ; (SB!C::IR2-BLOCK-GLOBAL-TNS BLOCK) :KEY ; #'SB!C::GLOBAL-CONFLICTS-TN) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DEFEVENT COALESCE-MORE-LTN-NUMBERS ...) ; x-compiling (DEFUN LIFETIME-PRE-PASS ...) ; x-compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICT ...) ; x-compiling (DEFUN IMPLICIT-VALUE-CELL-TN-P ...) ; x-compiling (DEFUN BLOCK-TAIL-LOCAL-CALL-FUN ...) ; x-compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICTS ...) ; x-compiling (DEFUN SETUP-ENVIRONMENT-LIVE-CONFLICTS ...) ; x-compiling (DEFUN CONVERT-TO-ENVIRONMENT-TN ...) ; x-compiling (DEFUN PROPAGATE-LIVE-TNS ...) ; x-compiling (DEFUN LIFETIME-FLOW-ANALYSIS ...) ; x-compiling (DEFUN NOTE-CONFLICTS ...) ; x-compiling (DEFUN COMPUTE-SAVE-SET ...) ; x-compiling (DEFUN SAVED-AFTER-READ ...) ; x-compiling (DEFUN MAKE-DEBUG-ENVIRONMENT-TNS-LIVE ...) ; x-compiling (DEFUN COMPUTE-INITIAL-CONFLICTS ...) ; x-compiling (DEFUN CONFLICTIZE-SAVE-P-VOP ...) ; x-compiling (DEFMACRO FROB-MORE-TNS ...) ; x-compiling (DEFMACRO SCAN-VOP-REFS ...) ; x-compiling (DEFMACRO ENSURE-RESULTS-LIVE ...) ; x-compiling (DEFUN CONFLICT-ANALYZE-1-BLOCK ...) ; x-compiling (DEFUN LIFETIME-POST-PASS ...) ; x-compiling (DEFUN MERGE-ALIAS-BLOCK-CONFLICTS ...) ; x-compiling (DEFUN CHANGE-GLOBAL-CONFLICTS-TN ...) ; x-compiling (DEFUN ENSURE-GLOBAL-TN ...) ; x-compiling (DEFUN MERGE-ALIAS-CONFLICTS ...) ; x-compiling (DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS ...) ; x-compiling (DEFUN LIFETIME-ANALYZE ...) ; x-compiling (DEFUN TNS-CONFLICT-LOCAL-GLOBAL ...) ; x-compiling (DEFUN TNS-CONFLICT-GLOBAL-GLOBAL ...) ; x-compiling (DEFUN TNS-CONFLICT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/life.lisp ; in: DEFUN SPLIT-IR2-BLOCKS ; (SB!C::ADD-TO-EMIT-ORDER SB!C::NEW SB!C::2BLOCK) ; ; caught STYLE-WARNING: ; undefined function: ADD-TO-EMIT-ORDER ; in: DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS ; (SB!C::FIND-IN-PHYSENV SB!C::CLOSURE-VAR SB!C::PHYSENV) ; ; caught STYLE-WARNING: ; undefined function: FIND-IN-PHYSENV ; ; compilation unit finished ; Undefined functions: ; ADD-TO-EMIT-ORDER FIND-IN-PHYSENV ; caught 2 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/life.lisp-obj-tmp written ; compilation finished in 0:00:00.612 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/debug-dump.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFTYPE BYTE-BUFFER ...) ; x-compiling (DEFVAR *BYTE-BUFFER*) ; x-compiling (DECLAIM (TYPE BYTE-BUFFER ...)) ; x-compiling (DEFTYPE LOCATION-KIND ...) ; x-compiling (DEFSTRUCT (LOCATION-INFO # ...) ...) ; x-compiling (DEFUN NOTE-DEBUG-LOCATION ...) ; x-compiling (DECLAIM (INLINE IR2-BLOCK-PHYSENV)) ; x-compiling (DEFUN IR2-BLOCK-PHYSENV ...) ; x-compiling (DEFUN COMPUTE-LIVE-VARS ...) ; x-compiling (DEFVAR *PREVIOUS-LOCATION*) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFUN DUMP-1-LOCATION ...) ; x-compiling (DEFUN DUMP-LOCATION-FROM-INFO ...) ; x-compiling (DEFUN FIND-TLF-NUMBER ...) ; x-compiling (DEFUN DUMP-BLOCK-LOCATIONS ...) ; x-compiling (DEFUN DUMP-BLOCK-SUCCESSORS ...) ; x-compiling (DEFUN COMPUTE-DEBUG-BLOCKS ...) ; x-compiling (DEFUN DEBUG-SOURCE-FOR-INFO ...) ; x-compiling (DEFUN COERCE-TO-SMALLEST-ELTYPE ...) ; x-compiling (DEFUN TN-SC-OFFSET ...) ; x-compiling (DEFUN LAMBDA-ANCESTOR-P ...) ; x-compiling (DEFUN DUMP-1-VAR ...) ; x-compiling (DEFUN COMPUTE-VARS ...) ; x-compiling (DEFUN COMPUTE-MINIMAL-VARS ...) ; x-compiling (DEFUN DEBUG-LOCATION-FOR ...) ; x-compiling (DEFUN COMPUTE-ARGS ...) ; x-compiling (DEFUN COMPUTE-DEBUG-RETURNS ...) ; x-compiling (DEFUN DFUN-FROM-FUN ...) ; x-compiling (DEFUN COMPUTE-1-DEBUG-FUN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/debug-dump.lisp ; in: DEFUN COMPUTE-1-DEBUG-FUN ; (MAX SB!C::ACTUAL-LEVEL 2) ; --> LET ; ==> ; SB!C::ACTUAL-LEVEL ; ; note: deleting unreachable code ; x-compiling (DEFUN COMPUTE-DEBUG-FUN-MAP ...) ; x-compiling (DEFUN DEBUG-INFO-FOR-COMPONENT ...) ; x-compiling (DEFUN WRITE-PACKED-BIT-VECTOR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/debug-dump.lisp ; in: DEFUN COMPUTE-DEBUG-BLOCKS ; (SB!C::LABEL-ELSEWHERE-P (SB!C::LOCATION-INFO-LABEL SB!C::LOC)) ; ; caught STYLE-WARNING: ; undefined function: LABEL-ELSEWHERE-P ; ; compilation unit finished ; Undefined function: ; LABEL-ELSEWHERE-P ; caught 1 STYLE-WARNING condition ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/debug-dump.lisp-obj-tmp written ; compilation finished in 0:00:01.473 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/utils.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN FIXNUMIZE ...) ; x-compiling (DEFUN FOLDABLE-CONSTANT-OFFSET-P ...) ; x-compiling (DEFUN STATIC-SYMBOL-P ...) ; x-compiling (DEFUN STATIC-SYMBOL-OFFSET ...) ; x-compiling (DEFUN OFFSET-STATIC-SYMBOL ...) ; x-compiling (DEFUN STATIC-FDEFN-OFFSET ...) ; x-compiling (DEFUN STATIC-FUN-OFFSET ...) ; x-compiling (DEFVAR *ADJUSTABLE-VECTORS* ...) ; x-compiling (DEFMACRO WITH-ADJUSTABLE-VECTOR ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/utils.lisp-obj-tmp written ; compilation finished in 0:00:00.053 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fopcompile.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN FOPCOMPILABLE-P ...) ; x-compiling (DEFUN LET-FOPCOMPILABLE-P ...) ; x-compiling (DEFUN LAMBDA-FORM-P ...) ; x-compiling (DEFUN CONSTANT-FOPCOMPILABLE-P ...) ; x-compiling (DEFUN FOPCOMPILE ...) ; x-compiling (DEFUN FOPCOMPILE-FUNCTION ...) ; x-compiling (DEFUN FOPCOMPILE-IF ...) ; x-compiling (DEFUN FOPCOMPILE-CONSTANT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fopcompile.lisp ; in: DEFUN CONSTANT-FOPCOMPILABLE-P ; (SB-XC:MAKE-LOAD-FORM SB!C::VALUE (SB!KERNEL:MAKE-NULL-LEXENV)) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MAKE-LOAD-FORM ; ; compilation unit finished ; Undefined function: ; SB-XC:MAKE-LOAD-FORM ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/fopcompile.lisp-obj-tmp written ; compilation finished in 0:00:00.189 creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/assembly/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/assemfile.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *EMIT-ASSEMBLY-CODE-NOT-VOPS-P* ...) ; x-compiling (DEFVAR *ENTRY-POINTS* ...) ; x-compiling (DEFVAR *ASSEMBLY-OPTIMIZE* ...) ; x-compiling (DEFUN ASSEMBLE-FILE ...) ; x-compiling (DEFSTRUCT (REG-SPEC #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN REG-SPEC-SC ...) ; x-compiling (DEFUN PARSE-REG-SPEC ...) ; x-compiling (DEFUN EMIT-ASSEMBLE ...) ; x-compiling (DEFUN ARG-OR-RES-SPEC ...) ; x-compiling (DEFUN EMIT-ASSEMBLE-VOP ...) ; x-compiling (DEF!MACRO DEFINE-ASSEMBLY-ROUTINE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/assemfile.lisp ; in: DEFUN EMIT-ASSEMBLE-VOP ; (SB!C:GENERATE-CALL-SEQUENCE SB!C::NAME SB!C::RETURN-STYLE SB!C::VOP) ; ; caught STYLE-WARNING: ; undefined function: GENERATE-CALL-SEQUENCE ; in: DEFUN EMIT-ASSEMBLE ; (SB!C:GENERATE-RETURN-SEQUENCE ; (OR (CADR (ASSOC :RETURN-STYLE SB!C::OPTIONS)) :RAW)) ; ; caught STYLE-WARNING: ; undefined function: GENERATE-RETURN-SEQUENCE ; in: DEFUN ASSEMBLE-FILE ; (SB!C::INIT-ASSEMBLER) ; ; caught STYLE-WARNING: ; undefined function: INIT-ASSEMBLER ; ; compilation unit finished ; Undefined functions: ; GENERATE-CALL-SEQUENCE GENERATE-RETURN-SEQUENCE INIT-ASSEMBLER ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/assembly/assemfile.lisp-obj-tmp written ; compilation finished in 0:00:00.131 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/late-vmdef.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN NOTE-THIS-LOCATION ...) ; x-compiling (DEFUN NOTE-NEXT-INSTRUCTION ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/late-vmdef.lisp-obj-tmp written ; compilation finished in 0:00:00.041 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/fixup.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFSTRUCT (FIXUP # ...) ...) ; x-compiling (DEFSTRUCT (FIXUP-NOTE # ...) ...) ; x-compiling (DEFVAR *FIXUP-NOTES*) ; x-compiling (DEFUN NOTE-FIXUP ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/fixup.lisp-obj-tmp written ; compilation finished in 0:00:00.053 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/insts.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (SETF SB!DISASSEM:*DISASSEM-INST-ALIGNMENT-BYTES* ...) ; x-compiling (DEFTYPE REG ...) ; x-compiling (DEFTYPE FULL-REG ...) ; x-compiling (DEFTYPE XMMREG ...) ; x-compiling (DEF!CONSTANT +DEFAULT-OPERAND-SIZE+ ...) ; x-compiling (DEF!CONSTANT +DEFAULT-ADDRESS-SIZE+ ...) ; x-compiling (DEFUN OFFSET-NEXT ...) ; x-compiling (DEFPARAMETER *BYTE-REG-NAMES* ...) ; x-compiling (DEFPARAMETER *HIGH-BYTE-REG-NAMES* ...) ; x-compiling (DEFPARAMETER *WORD-REG-NAMES* ...) ; x-compiling (DEFPARAMETER *DWORD-REG-NAMES* ...) ; x-compiling (DEFPARAMETER *QWORD-REG-NAMES* ...) ; x-compiling (DEFUN INST-OPERAND-SIZE ...) ; x-compiling (DEFUN INST-OPERAND-SIZE-DEFAULT-QWORD ...) ; x-compiling (DEFUN PRINT-REG-WITH-WIDTH ...) ; x-compiling (DEFUN PRINT-REG ...) ; x-compiling (DEFUN PRINT-REG-DEFAULT-QWORD ...) ; x-compiling (DEFUN PRINT-BYTE-REG ...) ; x-compiling (DEFUN PRINT-ADDR-REG ...) ; x-compiling (DEFUN PRINT-REG/MEM-WITH-WIDTH ...) ; x-compiling (DEFUN PRINT-REG/MEM ...) ; x-compiling (DEFUN PRINT-SIZED-REG/MEM ...) ; x-compiling (DEFUN PRINT-SIZED-REG/MEM-DEFAULT-QWORD ...) ; x-compiling (DEFUN PRINT-SIZED-BYTE-REG/MEM ...) ; x-compiling (DEFUN PRINT-SIZED-WORD-REG/MEM ...) ; x-compiling (DEFUN PRINT-SIZED-DWORD-REG/MEM ...) ; x-compiling (DEFUN PRINT-LABEL ...) ; x-compiling (DEFUN PRINT-XMMREG ...) ; x-compiling (DEFUN PRINT-XMMREG/MEM ...) ; x-compiling (DEFUN PREFILTER-WRXB ...) ; x-compiling (DEFUN PREFILTER-REX-W ...) ; x-compiling (DEFUN PREFILTER-REX-B ...) ; x-compiling (DEFUN PREFILTER-WIDTH ...) ; x-compiling (DEFUN PREFILTER-X66 ...) ; x-compiling (DEFUN PREFILTER-REG-R ...) ; x-compiling (DEFUN PREFILTER-REG-B ...) ; x-compiling (DEFUN PREFILTER-REG/MEM ...) ; x-compiling (DEFUN READ-ADDRESS ...) ; x-compiling (DEFUN WIDTH-BITS ...) ; x-compiling (DEFUN PRINT-IMM/ASM-ROUTINE ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE WRXB ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE REX-W ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE REX-B ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE WIDTH ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE X66 ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/insts.lisp ; in: SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT ; (SB!DISASSEM:DEFINE-ARG-TYPE SB!VM::DISPLACEMENT :SIGN-EXTEND T :USE-LABEL ; #'SB!VM::OFFSET-NEXT :PRINTER ; (LAMBDA (SB!VM::VALUE STREAM SB!VM::DSTATE) ; (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; SB!VM::VALUE NIL SB!VM::DSTATE) ; (SB!VM::PRINT-LABEL SB!VM::VALUE STREAM ; SB!VM::DSTATE))) ; --> PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ; (SETQ SB!DISASSEM::*DISASSEM-ARG-TYPES* ; (DELETE 'SB!VM::DISPLACEMENT SB!DISASSEM::*DISASSEM-ARG-TYPES* :KEY ; #'SB!DISASSEM::ARG-NAME)) ; (PUSH ; (SB!DISASSEM::MODIFY-ARG (SB!DISASSEM::%MAKE-ARG 'SB!VM::DISPLACEMENT) NIL ; :SIGN-EXTEND T :USE-LABEL ; (SB!DISASSEM::MAKE-VALSRC #'SB!VM::OFFSET-NEXT ; '#'SB!VM::OFFSET-NEXT) ; :PRINTER ; (SB!DISASSEM::MAKE-VALSRC (LAMBDA # # #) ; 'SB!VM::*DISPLACEMENT-PRINTER-WRAPPER*)) ; SB!DISASSEM::*DISASSEM-ARG-TYPES*)) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE ACCUM ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG-B ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG-B-DEFAULT-QWORD ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-ADDR ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA/ASM-ROUTINE ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA-UPTO-QWORD ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA-UPTO-QWORD/ASM-ROUTINE ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA-DEFAULT-QWORD ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-BYTE ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-BYTE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/insts.lisp ; in: SB!DISASSEM:DEFINE-ARG-TYPE IMM-BYTE ; (SB!DISASSEM:DEFINE-ARG-TYPE SB!VM::IMM-BYTE :PREFILTER ; (LAMBDA (SB!VM::VALUE SB!VM::DSTATE) ; (DECLARE (IGNORE SB!VM::VALUE)) ; (SB!DISASSEM:READ-SUFFIX 8 SB!VM::DSTATE))) ; --> PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ; (SETQ SB!DISASSEM::*DISASSEM-ARG-TYPES* ; (DELETE 'SB!VM::IMM-BYTE SB!DISASSEM::*DISASSEM-ARG-TYPES* :KEY ; #'SB!DISASSEM::ARG-NAME)) ; (PUSH ; (SB!DISASSEM::MODIFY-ARG (SB!DISASSEM::%MAKE-ARG 'SB!VM::IMM-BYTE) NIL ; :PREFILTER ; (SB!DISASSEM::MAKE-VALSRC (LAMBDA # # #) ; 'SB!VM::*IMM-BYTE-PREFILTER-WRAPPER*)) ; SB!DISASSEM::*DISASSEM-ARG-TYPES*)) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:READ-SUFFIX ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD-16 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/insts.lisp ; in: SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD-16 ; (SB!DISASSEM:DEFINE-ARG-TYPE SB!VM::IMM-WORD-16 :PREFILTER ; (LAMBDA (SB!VM::VALUE SB!VM::DSTATE) ; (DECLARE (IGNORE SB!VM::VALUE)) ; (SB!DISASSEM:READ-SUFFIX 16 SB!VM::DSTATE))) ; --> PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ; (SETQ SB!DISASSEM::*DISASSEM-ARG-TYPES* ; (DELETE 'SB!VM::IMM-WORD-16 SB!DISASSEM::*DISASSEM-ARG-TYPES* :KEY ; #'SB!DISASSEM::ARG-NAME)) ; (PUSH ; (SB!DISASSEM::MODIFY-ARG (SB!DISASSEM::%MAKE-ARG 'SB!VM::IMM-WORD-16) NIL ; :PREFILTER ; (SB!DISASSEM::MAKE-VALSRC (LAMBDA # # #) ; 'SB!VM::*IMM-WORD-16-PREFILTER-WRAPPER*)) ; SB!DISASSEM::*DISASSEM-ARG-TYPES*)) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:READ-SUFFIX ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG/MEM ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIZED-REG/MEM ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIZED-BYTE-REG/MEM ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIZED-WORD-REG/MEM ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIZED-DWORD-REG/MEM ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIZED-REG/MEM-DEFAULT-QWORD ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE XMMREG ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE XMMREG-B ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE XMMREG/MEM ...) ; x-compiling (DEFPARAMETER *CONDITIONS* ...) ; x-compiling (DEFPARAMETER *CONDITION-NAME-VEC* ...) ; x-compiling (DEFINE-SSE-SHUFFLE-ARG-TYPE SSE-SHUFFLE-PATTERN-2-2 ...) ; x-compiling (DEFINE-SSE-SHUFFLE-ARG-TYPE SSE-SHUFFLE-PATTERN-8-4 ...) ; x-compiling (SETF *ASSEM-SCHEDULER-P* ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE CONDITION-CODE ...) ; x-compiling (DEFUN CONDITIONAL-OPCODE ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BYTE 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (TWO-BYTES 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (THREE-BYTES 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REX 8) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (X66 8) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (X66-BYTE 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REX-BYTE 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SIMPLE 8) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SIMPLE-DIR 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ACCUM-IMM 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-NO-WIDTH 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REX-ACCUM-REG 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-NO-WIDTH-DEFAULT-QWORD 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REX-REG 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-REG/MEM 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-REG/MEM-DIR 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM-DEFAULT-QWORD 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM-IMM 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM-IMM/ASM-ROUTINE 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ACCUM-REG/MEM 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-REG/MEM 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-REG/MEM-NO-WIDTH 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-NO-WIDTH 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-NO-WIDTH 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-IMM 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-NO-WIDTH+IMM8 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (XMM-XMM/MEM 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-XMM-XMM/MEM 32 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-XMM-XMM/MEM 40 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-2BYTE-XMM-XMM/MEM 40 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-2BYTE-XMM-XMM/MEM 48 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-XMM-XMM/MEM-DIR 32 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-XMM-XMM/MEM-DIR 40 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-XMM-IMM 32 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-XMM-IMM 40 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (XMM-REG/MEM 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-XMM-REG/MEM 32 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-XMM-REG/MEM 40 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-2BYTE-XMM-REG/MEM 40 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-XMM/MEM 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-XMM/MEM 32 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-REG-XMM/MEM 40 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-XMM 32 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-REG/MEM-XMM 40 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-2BYTE-REG/MEM-XMM 40 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-2BYTE-REG/MEM-XMM 48 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-PREFIX-REG-REG/MEM 32 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-PREFIX-REG-REG/MEM 40 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-2BYTE-PREFIX-REG-REG/MEM 40 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REX-2BYTE-PREFIX-REG-REG/MEM 48 ...) ...) ; x-compiling (DEFPARAMETER *SSE-CONDITIONS* ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SSE-CONDITION-CODE ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (STRING-OP 8 ...)) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHORT-COND-JUMP 16) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHORT-JUMP 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (NEAR-COND-JUMP 16) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (NEAR-JUMP 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (COND-SET 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (COND-MOVE 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ENTER-FORMAT 32 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BYTE-IMM 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (WORD-IMM 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (F3-ESCAPE 24) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REX-F3-ESCAPE 32) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (F3-ESCAPE-REG-REG/MEM 32 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REX-F3-ESCAPE-REG-REG/MEM 40 ...) ...) ; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-WORD ...) ; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-DWORD ...) ; x-compiling (DEFUN EMIT-SIGNED-DWORD ...) ; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-QWORD ...) ; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-BYTE-WITH-REG ...) ; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-MOD-REG-R/M-BYTE ...) ; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-SIB-BYTE ...) ; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-REX-BYTE ...) ; x-compiling (DEFUN EMIT-ABSOLUTE-FIXUP ...) ; x-compiling (DEFUN EMIT-RELATIVE-FIXUP ...) ; x-compiling (DEFUN REG-TN-ENCODING ...) ; x-compiling (DEFSTRUCT (EA # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN EMIT-CONSTANT-TN-RIP ...) ; x-compiling (DEFUN EMIT-LABEL-RIP ...) ; x-compiling (DEFUN EMIT-EA ...) ; x-compiling (DEFUN BYTE-REG-P ...) ; x-compiling (DEFUN BYTE-EA-P ...) ; x-compiling (DEFUN WORD-REG-P ...) ; x-compiling (DEFUN WORD-EA-P ...) ; x-compiling (DEFUN DWORD-REG-P ...) ; x-compiling (DEFUN DWORD-EA-P ...) ; x-compiling (DEFUN QWORD-REG-P ...) ; x-compiling (DEFUN QWORD-EA-P ...) ; x-compiling (DEFUN REGISTER-P ...) ; x-compiling (DEFUN ACCUMULATOR-P ...) ; x-compiling (DEFUN XMM-REGISTER-P ...) ; x-compiling (DEF!CONSTANT +OPERAND-SIZE-PREFIX-BYTE+ ...) ; x-compiling (DEFUN MAYBE-EMIT-OPERAND-SIZE-PREFIX ...) ; x-compiling (DEFUN MAYBE-EMIT-REX-PREFIX ...) ; x-compiling (DEFUN MAYBE-EMIT-REX-FOR-EA ...) ; x-compiling (DEFUN OPERAND-SIZE ...) ; x-compiling (DEFUN MATCHING-OPERAND-SIZE ...) ; x-compiling (DEFUN EMIT-SIZED-IMMEDIATE ...) ; x-compiling (DEFINE-INSTRUCTION REX ...) ; x-compiling (DEFINE-INSTRUCTION X66 ...) ; x-compiling (DEFUN EMIT-PREFIX ...) ; x-compiling (DEFINE-INSTRUCTION LOCK ...) ; x-compiling (DEFINE-INSTRUCTION REP ...) ; x-compiling (DEFINE-INSTRUCTION REPE ...) ; x-compiling (DEFINE-INSTRUCTION REPNE ...) ; x-compiling (DEFUN EMIT-IMMEDIATE-MOVE-TO-QWORD-REGISTER ...) ; x-compiling (DEFINE-INSTRUCTION MOV ...) ; x-compiling (DEFUN EMIT-MOVE-WITH-EXTENSION ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (MOVE-WITH-EXTENSION 24 ...) ...) ; x-compiling (DEFINE-INSTRUCTION MOVSX ...) ; x-compiling (DEFINE-INSTRUCTION MOVZX ...) ; x-compiling (DEFINE-INSTRUCTION MOVSXD ...) ; x-compiling (DEFINE-INSTRUCTION MOVZXD ...) ; x-compiling (DEFINE-INSTRUCTION PUSH ...) ; x-compiling (DEFINE-INSTRUCTION POP ...) ; x-compiling (DEFINE-INSTRUCTION XCHG ...) ; x-compiling (DEFUN LEA-COMPUTE-LABEL ...) ; x-compiling (DEFUN LEA-PRINT-EA ...) ; x-compiling (DEFINE-INSTRUCTION LEA ...) ; x-compiling (DEFINE-INSTRUCTION CMPXCHG ...) ; x-compiling (DEFINE-INSTRUCTION CMPXCHG16B ...) ; x-compiling (DEFINE-INSTRUCTION CLC ...) ; x-compiling (DEFINE-INSTRUCTION CLD ...) ; x-compiling (DEFINE-INSTRUCTION CLI ...) ; x-compiling (DEFINE-INSTRUCTION CMC ...) ; x-compiling (DEFINE-INSTRUCTION LAHF ...) ; x-compiling (DEFINE-INSTRUCTION POPF ...) ; x-compiling (DEFINE-INSTRUCTION PUSHF ...) ; x-compiling (DEFINE-INSTRUCTION SAHF ...) ; x-compiling (DEFINE-INSTRUCTION STC ...) ; x-compiling (DEFINE-INSTRUCTION STD ...) ; x-compiling (DEFINE-INSTRUCTION STI ...) ; x-compiling (DEFUN EMIT-RANDOM-ARITH-INST ...) ; x-compiling (DEFINE-INSTRUCTION ADD ...) ; x-compiling (DEFINE-INSTRUCTION ADC ...) ; x-compiling (DEFINE-INSTRUCTION SUB ...) ; x-compiling (DEFINE-INSTRUCTION SBB ...) ; x-compiling (DEFINE-INSTRUCTION CMP ...) ; x-compiling (DEFINE-INSTRUCTION INC ...) ; x-compiling (DEFINE-INSTRUCTION DEC ...) ; x-compiling (DEFINE-INSTRUCTION NEG ...) ; x-compiling (DEFINE-INSTRUCTION MUL ...) ; x-compiling (DEFINE-INSTRUCTION IMUL ...) ; x-compiling (DEFINE-INSTRUCTION DIV ...) ; x-compiling (DEFINE-INSTRUCTION IDIV ...) ; x-compiling (DEFINE-INSTRUCTION BSWAP ...) ; x-compiling (DEFINE-INSTRUCTION CBW ...) ; x-compiling (DEFINE-INSTRUCTION CWDE ...) ; x-compiling (DEFINE-INSTRUCTION CDQE ...) ; x-compiling (DEFINE-INSTRUCTION CWD ...) ; x-compiling (DEFINE-INSTRUCTION CDQ ...) ; x-compiling (DEFINE-INSTRUCTION CQO ...) ; x-compiling (DEFINE-INSTRUCTION XADD ...) ; x-compiling (DEFUN EMIT-SHIFT-INST ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHIFT-INST 16 ...) ...) ; x-compiling (DEFINE ROL ...) ; x-compiling (DEFINE ROR ...) ; x-compiling (DEFINE RCL ...) ; x-compiling (DEFINE RCR ...) ; x-compiling (DEFINE SHL ...) ; x-compiling (DEFINE SHR ...) ; x-compiling (DEFINE SAR ...) ; x-compiling (DEFUN EMIT-DOUBLE-SHIFT ...) ; x-compiling (DEFINE-INSTRUCTION SHLD ...) ; x-compiling (DEFINE-INSTRUCTION SHRD ...) ; x-compiling (DEFINE-INSTRUCTION AND ...) ; x-compiling (DEFINE-INSTRUCTION TEST ...) ; x-compiling (DEFUN EMIT-OPTIMIZED-TEST-INST ...) ; x-compiling (DEFINE-INSTRUCTION OR ...) ; x-compiling (DEFINE-INSTRUCTION XOR ...) ; x-compiling (DEFINE-INSTRUCTION NOT ...) ; x-compiling (DEFINE-INSTRUCTION CMPS ...) ; x-compiling (DEFINE-INSTRUCTION INS ...) ; x-compiling (DEFINE-INSTRUCTION LODS ...) ; x-compiling (DEFINE-INSTRUCTION MOVS ...) ; x-compiling (DEFINE-INSTRUCTION OUTS ...) ; x-compiling (DEFINE-INSTRUCTION SCAS ...) ; x-compiling (DEFINE-INSTRUCTION STOS ...) ; x-compiling (DEFINE-INSTRUCTION XLAT ...) ; x-compiling (DEFINE-INSTRUCTION BSF ...) ; x-compiling (DEFINE-INSTRUCTION BSR ...) ; x-compiling (DEFUN EMIT-BIT-TEST-AND-MUMBLE ...) ; x-compiling (DEFINE BT ...) ; x-compiling (DEFINE BTS ...) ; x-compiling (DEFINE BTR ...) ; x-compiling (DEFINE BTC ...) ; x-compiling (DEFINE-INSTRUCTION CALL ...) ; x-compiling (DEFUN EMIT-BYTE-DISPLACEMENT-BACKPATCH ...) ; x-compiling (DEFINE-INSTRUCTION JMP ...) ; x-compiling (DEFINE-INSTRUCTION RET ...) ; x-compiling (DEFINE-INSTRUCTION JRCXZ ...) ; x-compiling (DEFINE-INSTRUCTION LOOP ...) ; x-compiling (DEFINE-INSTRUCTION LOOPZ ...) ; x-compiling (DEFINE-INSTRUCTION LOOPNZ ...) ; x-compiling (DEFINE-INSTRUCTION CMOV ...) ; x-compiling (DEFINE-INSTRUCTION SET ...) ; x-compiling (DEFINE-INSTRUCTION ENTER ...) ; x-compiling (DEFINE-INSTRUCTION LEAVE ...) ; x-compiling (DEFUN SNARF-ERROR-JUNK ...) ; x-compiling (DEFUN BREAK-CONTROL ...) ; x-compiling (DEFINE-INSTRUCTION BREAK ...) ; x-compiling (DEFINE-INSTRUCTION INT ...) ; x-compiling (DEFINE-INSTRUCTION IRET ...) ; x-compiling (DEFINE-INSTRUCTION HLT ...) ; x-compiling (DEFINE-INSTRUCTION NOP ...) ; x-compiling (DEFUN EMIT-LONG-NOP ...) ; x-compiling (DEFINE-INSTRUCTION WAIT ...) ; x-compiling (DEFINE-INSTRUCTION BYTE ...) ; x-compiling (DEFINE-INSTRUCTION WORD ...) ; x-compiling (DEFINE-INSTRUCTION DWORD ...) ; x-compiling (DEFUN EMIT-HEADER-DATA ...) ; x-compiling (DEFINE-INSTRUCTION SIMPLE-FUN-HEADER-WORD ...) ; x-compiling (DEFINE-INSTRUCTION LRA-HEADER-WORD ...) ; x-compiling (DEFUN EMIT-SSE-INST ...) ; x-compiling (DEFUN EMIT-SSE-INST-WITH-IMM ...) ; x-compiling (DEFUN EMIT-SSE-INST-2BYTE ...) ; x-compiling (DEFINE-IMM-SSE-INSTRUCTION PSLLDQ ...) ; x-compiling (DEFINE-IMM-SSE-INSTRUCTION PSLLW-IMM ...) ; x-compiling (DEFINE-IMM-SSE-INSTRUCTION PSLLD-IMM ...) ; x-compiling (DEFINE-IMM-SSE-INSTRUCTION PSLLQ-IMM ...) ; x-compiling (DEFINE-IMM-SSE-INSTRUCTION PSRAW-IMM ...) ; x-compiling (DEFINE-IMM-SSE-INSTRUCTION PSRAD-IMM ...) ; x-compiling (DEFINE-IMM-SSE-INSTRUCTION PSRLDQ ...) ; x-compiling (DEFINE-IMM-SSE-INSTRUCTION PSRLW-IMM ...) ; x-compiling (DEFINE-IMM-SSE-INSTRUCTION PSRLD-IMM ...) ; x-compiling (DEFINE-IMM-SSE-INSTRUCTION PSRLQ-IMM ...) ; x-compiling (DEFUN EMIT-REGULAR-SSE-INST ...) ; x-compiling (DEFUN EMIT-REGULAR-2BYTE-SSE-INST ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MOVSHDUP ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MOVSLDUP ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MOVDDUP ...) ; x-compiling (DEFINE-REGULAR-SSE-INST ANDPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST ANDPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST ANDNPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST ANDNPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST ORPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST ORPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PAND ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PANDN ...) ; x-compiling (DEFINE-REGULAR-SSE-INST POR ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PXOR ...) ; x-compiling (DEFINE-REGULAR-SSE-INST XORPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST XORPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST COMISD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST COMISS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST UCOMISD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST UCOMISS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PCMPEQB ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PCMPEQW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PCMPEQD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PCMPGTB ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PCMPGTW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PCMPGTD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MAXPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MAXPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MAXSD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MAXSS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MINPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MINPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MINSD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MINSS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PMAXSW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PMAXUB ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PMINSW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PMINUB ...) ; x-compiling (DEFINE-REGULAR-SSE-INST ADDPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST ADDPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST ADDSD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST ADDSS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST ADDSUBPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST ADDSUBPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST DIVPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST DIVPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST DIVSD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST DIVSS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST HADDPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST HADDPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST HSUBPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST HSUBPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MULPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MULPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MULSD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST MULSS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST RCPPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST RCPSS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST RSQRTPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST RSQRTSS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST SQRTPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST SQRTPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST SQRTSD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST SQRTSS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST SUBPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST SUBPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST SUBSD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST SUBSS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST UNPCKHPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST UNPCKHPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST UNPCKLPD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST UNPCKLPS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PADDB ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PADDW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PADDD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PADDQ ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PADDSB ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PADDSW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PADDUSB ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PADDUSW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PAVGB ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PAVGW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PMADDWD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PMULHUW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PMULHW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PMULLW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PMULUDQ ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSADBW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSLLW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSLLD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSLLQ ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSRAW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSRAD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSRLW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSRLD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSRLQ ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSUBB ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSUBW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSUBD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSUBQ ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSUBSB ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSUBSW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSUBUSB ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PSUBUSW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST CVTDQ2PD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST CVTDQ2PS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST CVTPD2DQ ...) ; x-compiling (DEFINE-REGULAR-SSE-INST CVTPD2PS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST CVTPS2DQ ...) ; x-compiling (DEFINE-REGULAR-SSE-INST CVTPS2PD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST CVTSD2SS ...) ; x-compiling (DEFINE-REGULAR-SSE-INST CVTSS2SD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST CVTTPD2DQ ...) ; x-compiling (DEFINE-REGULAR-SSE-INST CVTTPS2DQ ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PACKSSWB ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PACKSSDW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PACKUSWB ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PUNPCKHBW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PUNPCKHWD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PUNPCKHDQ ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PUNPCKHQDQ ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PUNPCKLBW ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PUNPCKLWD ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PUNPCKLDQ ...) ; x-compiling (DEFINE-REGULAR-SSE-INST PUNPCKLQDQ ...) ; x-compiling (DEFINE-XMM-SHUFFLE-SSE-INST PSHUFD ...) ; x-compiling (DEFINE-XMM-SHUFFLE-SSE-INST PSHUFHW ...) ; x-compiling (DEFINE-XMM-SHUFFLE-SSE-INST PSHUFLW ...) ; x-compiling (DEFINE-XMM-SHUFFLE-SSE-INST SHUFPD ...) ; x-compiling (DEFINE-XMM-SHUFFLE-SSE-INST SHUFPS ...) ; x-compiling (DEFINE-INSTRUCTION MASKMOVDQU ...) ; x-compiling (DEFINE-COMPARISON-SSE-INST CMPPD ...) ; x-compiling (DEFINE-COMPARISON-SSE-INST CMPPS ...) ; x-compiling (DEFINE-COMPARISON-SSE-INST CMPSD ...) ; x-compiling (DEFINE-COMPARISON-SSE-INST CMPSS ...) ; x-compiling (DEFINE-MOVSD/SS-SSE-INST MOVSD ...) ; x-compiling (DEFINE-MOVSD/SS-SSE-INST MOVSS ...) ; x-compiling (DEFINE-MOV-SSE-INST MOVAPD ...) ; x-compiling (DEFINE-MOV-SSE-INST MOVAPS ...) ; x-compiling (DEFINE-MOV-SSE-INST MOVDQA ...) ; x-compiling (DEFINE-MOV-SSE-INST MOVDQU ...) ; x-compiling (DEFINE-MOV-SSE-INST MOVNTDQ ...) ; x-compiling (DEFINE-MOV-SSE-INST MOVNTPD ...) ; x-compiling (DEFINE-MOV-SSE-INST MOVNTPS ...) ; x-compiling (DEFINE-MOV-SSE-INST MOVHPD ...) ; x-compiling (DEFINE-MOV-SSE-INST MOVHPS ...) ; x-compiling (DEFINE-MOV-SSE-INST MOVLPD ...) ; x-compiling (DEFINE-MOV-SSE-INST MOVLPS ...) ; x-compiling (DEFINE-MOV-SSE-INST MOVUPD ...) ; x-compiling (DEFINE-MOV-SSE-INST MOVUPS ...) ; x-compiling (DEFINE-INSTRUCTION MOVNTDQA ...) ; x-compiling (DEFINE-INSTRUCTION MOVQ ...) ; x-compiling (DEFINE-INSTRUCTION MOVD ...) ; x-compiling (DEFINE-INSERT-SSE-INSTRUCTION PINSRB ...) ; x-compiling (DEFINE-INSERT-SSE-INSTRUCTION PINSRW ...) ; x-compiling (DEFINE-INSERT-SSE-INSTRUCTION PINSRD ...) ; x-compiling (DEFINE-INSERT-SSE-INSTRUCTION INSERTPS ...) ; x-compiling (DEFINE-EXTRACT-SSE-INSTRUCTION PEXTRB ...) ; x-compiling (DEFINE-EXTRACT-SSE-INSTRUCTION PEXTRD ...) ; x-compiling (DEFINE-EXTRACT-SSE-INSTRUCTION PEXTRQ ...) ; x-compiling (DEFINE-EXTRACT-SSE-INSTRUCTION EXTRACTPS ...) ; x-compiling (DEFINE-INSTRUCTION PEXTRW ...) ; x-compiling (DEFINE-INTEGER-SOURCE-SSE-INST CVTSI2SD ...) ; x-compiling (DEFINE-INTEGER-SOURCE-SSE-INST CVTSI2SS ...) ; x-compiling (DEFINE-INTEGER-SOURCE-SSE-INST CVTPI2PD ...) ; x-compiling (DEFINE-INTEGER-SOURCE-SSE-INST CVTPI2PS ...) ; x-compiling (DEFINE-GPR-DESTINATION-SSE-INST CVTSD2SI ...) ; x-compiling (DEFINE-GPR-DESTINATION-SSE-INST CVTSS2SI ...) ; x-compiling (DEFINE-GPR-DESTINATION-SSE-INST CVTTSD2SI ...) ; x-compiling (DEFINE-GPR-DESTINATION-SSE-INST CVTTSS2SI ...) ; x-compiling (DEFINE-GPR-DESTINATION-SSE-INST MOVMSKPD ...) ; x-compiling (DEFINE-GPR-DESTINATION-SSE-INST MOVMSKPS ...) ; x-compiling (DEFINE-GPR-DESTINATION-SSE-INST PMOVMSKB ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PSHUFB ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PHADDW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PHADDD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PHADDSW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMADDUBSW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PHSUBW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PHSUBD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PHSUBSW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PSIGNB ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PSIGNW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PSIGND ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMULHRSW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PTEST ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PABSB ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PABSW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PABSD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMULDQ ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PCMPEQQ ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PACKUSDW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PCMPGTQ ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMINSB ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMINSD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMINUW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMINUD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMAXSB ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMAXSD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMAXUW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMAXUD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMULLD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PHMINPOSUW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST AESIMC ...) ; x-compiling (REGULAR-2BYTE-SSE-INST AESENC ...) ; x-compiling (REGULAR-2BYTE-SSE-INST AESENCLAST ...) ; x-compiling (REGULAR-2BYTE-SSE-INST AESDEC ...) ; x-compiling (REGULAR-2BYTE-SSE-INST AESDECLAST ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMOVSXBW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMOVSXBD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMOVSXBQ ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMOVSXWD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMOVSXWQ ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMOVSXDQ ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMOVZXBW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMOVZXBD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMOVZXBQ ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMOVZXWD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMOVZXWQ ...) ; x-compiling (REGULAR-2BYTE-SSE-INST PMOVZXDQ ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM ROUNDPS ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM ROUNDPD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM ROUNDSS ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM ROUNDSD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM BLENDPS ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM BLENDPD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM PBLENDW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM PALIGNR ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM DPPS ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM DPPD ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM MPSADBW ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM PCLMULQDQ ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM PCMPESTRM ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM PCMPESTRI ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM PCMPISTRM ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM PCMPISTRI ...) ; x-compiling (REGULAR-2BYTE-SSE-INST-IMM AESKEYGENASSIST ...) ; x-compiling (DEFINE-SSE-INST-IMPLICIT-MASK PBLENDVB ...) ; x-compiling (DEFINE-SSE-INST-IMPLICIT-MASK BLENDVPS ...) ; x-compiling (DEFINE-SSE-INST-IMPLICIT-MASK BLENDVPD ...) ; x-compiling (DEFINE-INSTRUCTION MOVNTI ...) ; x-compiling (DEFINE-INSTRUCTION PREFETCH ...) ; x-compiling (DEFINE-INSTRUCTION CLFLUSH ...) ; x-compiling (DEFINE-FENCE-INSTRUCTION LFENCE ...) ; x-compiling (DEFINE-FENCE-INSTRUCTION MFENCE ...) ; x-compiling (DEFINE-FENCE-INSTRUCTION SFENCE ...) ; x-compiling (DEFINE-INSTRUCTION PAUSE ...) ; x-compiling (DEFINE-INSTRUCTION LDMXCSR ...) ; x-compiling (DEFINE-INSTRUCTION STMXCSR ...) ; x-compiling (DEFINE-INSTRUCTION POPCNT ...) ; x-compiling (DEFINE-INSTRUCTION CRC32 ...) ; x-compiling (DEFINE-INSTRUCTION CPUID ...) ; x-compiling (DEFINE-INSTRUCTION RDTSC ...) ; x-compiling (DEFUN CANONICALIZE-INLINE-CONSTANT ...) ; x-compiling (DEFUN INLINE-CONSTANT-VALUE ...) ; x-compiling (DEFUN EMIT-CONSTANT-SEGMENT-HEADER ...) ; x-compiling (DEFUN SIZE-NBYTE ...) ; x-compiling (DEFUN SORT-INLINE-CONSTANTS ...) ; x-compiling (DEFUN EMIT-INLINE-CONSTANT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/insts.lisp ; in: DEFUN EMIT-HEADER-DATA ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; in: DEFUN EMIT-ABSOLUTE-FIXUP ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; in: DEFUN BREAK-CONTROL ; (SB!DISASSEM:HANDLE-BREAK-ARGS #'SB!VM::SNARF-ERROR-JUNK STREAM SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:HANDLE-BREAK-ARGS ; in: SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT ; (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!VM::VALUE NIL SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; in: DEFUN PRINT-IMM/ASM-ROUTINE ; (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!VM::VALUE NIL SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; (SB!DISASSEM:MAYBE-NOTE-STATIC-SYMBOL SB!VM::VALUE SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-STATIC-SYMBOL ; in: DEFUN BREAK-CONTROL ; (SB!DISASSEM:NOTE SB!VM::X SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:NOTE ; in: DEFUN LEA-PRINT-EA ; (SB!DISASSEM:NOTE ; (LAMBDA (SB!VM::S) (FORMAT SB!VM::S "= #x~x" SB!ALIEN:ADDR)) SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:NOTE ; (SB!VM::PRINT-MEM-REF :COMPUTE SB!VM::VALUE SB!VM::WIDTH STREAM SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: PRINT-MEM-REF ; in: DEFUN PRINT-XMMREG/MEM ; (SB!VM::PRINT-MEM-REF :REF SB!VM::VALUE NIL STREAM SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: PRINT-MEM-REF ; in: DEFUN PRINT-REG/MEM-WITH-WIDTH ; (SB!VM::PRINT-MEM-REF ; (IF SB!VM::SIZED-P ; :SIZED-REF ; :REF) ; SB!VM::VALUE SB!VM::WIDTH STREAM SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: PRINT-MEM-REF ; in: SB!DISASSEM:DEFINE-ARG-TYPE IMM-BYTE ; (SB!DISASSEM:READ-SUFFIX 8 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::INST-OPERAND-SIZE SB!VM::DSTATE)) 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: ; 1 more use of undefined function SB!DISASSEM:READ-SUFFIX ; ; compilation unit finished ; Undefined functions: ; COMPONENT-HEADER-LENGTH SB!DISASSEM:HANDLE-BREAK-ARGS SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!DISASSEM:MAYBE-NOTE-STATIC-SYMBOL SB!DISASSEM:NOTE PRINT-MEM-REF SB!DISASSEM:READ-SUFFIX ; caught 18 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/insts.lisp-obj-tmp written ; compilation finished in 0:00:10.963 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/macros.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN MOVE ...) ; x-compiling (DEFMACRO MAKE-EA-FOR-OBJECT-SLOT ...) ; x-compiling (DEFMACRO MAKE-EA-FOR-OBJECT-SLOT-HALF ...) ; x-compiling (DEFMACRO TLS-INDEX-OF ...) ; x-compiling (DEFMACRO LOADW ...) ; x-compiling (DEFMACRO STOREW ...) ; x-compiling (DEFMACRO PUSHW ...) ; x-compiling (DEFMACRO POPW ...) ; x-compiling (DEFUN CALL-INDIRECT ...) ; x-compiling (DEFMACRO LOAD-SYMBOL ...) ; x-compiling (DEFMACRO MAKE-EA-FOR-SYMBOL-VALUE ...) ; x-compiling (DEFMACRO LOAD-SYMBOL-VALUE ...) ; x-compiling (DEFMACRO STORE-SYMBOL-VALUE ...) ; x-compiling (DEFUN STATIC-SYMBOL-VALUE-EA ...) ; x-compiling (DEFUN SYMBOL-KNOWN-TLS-CELL ...) ; x-compiling (DEFMACRO LOAD-TL-SYMBOL-VALUE ...) ; x-compiling (DEFMACRO STORE-TL-SYMBOL-VALUE ...) ; x-compiling (DEFMACRO LOAD-BINDING-STACK-POINTER ...) ; x-compiling (DEFMACRO STORE-BINDING-STACK-POINTER ...) ; x-compiling (DEFMACRO LOAD-TYPE ...) ; x-compiling (DEFUN ALLOCATION-DYNAMIC-EXTENT ...) ; x-compiling (DEFUN ALLOCATION-TRAMP ...) ; x-compiling (DEFUN ALLOCATION ...) ; x-compiling (DEFMACRO WITH-FIXED-ALLOCATION ...) ; x-compiling (DEFUN EMIT-ERROR-BREAK ...) ; x-compiling (DEFUN ERROR-CALL ...) ; x-compiling (DEFUN GENERATE-ERROR-CODE ...) ; x-compiling (DEFMACRO MAYBE-PSEUDO-ATOMIC ...) ; x-compiling (DEFMACRO %CLEAR-PSEUDO-ATOMIC ...) ; x-compiling (DEFMACRO PSEUDO-ATOMIC ...) ; x-compiling (DEFMACRO DEFINE-FULL-COMPARE-AND-SWAP ...) ; x-compiling (DEFMACRO DEFINE-FULL-REFFER ...) ; x-compiling (DEFMACRO DEFINE-FULL-REFFER+OFFSET ...) ; x-compiling (DEFMACRO DEFINE-FULL-SETTER ...) ; x-compiling (DEFMACRO DEFINE-FULL-SETTER+OFFSET ...) ; x-compiling (DEF!MACRO WITH-PINNED-OBJECTS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/macros.lisp ; in: DEFUN ALLOCATION ; (SB!VM::CONSTANTIZE SB!VM::SIZE) ; ; caught STYLE-WARNING: ; undefined function: CONSTANTIZE ; ; compilation unit finished ; Undefined function: ; CONSTANTIZE ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/macros.lisp-obj-tmp written ; compilation finished in 0:00:00.335 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/early-type-vops.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFPARAMETER *IMMEDIATE-TYPES* ...) ; x-compiling (DEFPARAMETER *FUN-HEADER-WIDETAGS* ...) ; x-compiling (DEFUN CANONICALIZE-HEADERS ...) ; x-compiling (DEFUN CANONICALIZE-HEADERS-AND-EXCEPTIONS ...) ; x-compiling (DEFMACRO TEST-TYPE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/early-type-vops.lisp ; in: DEFMACRO TEST-TYPE ; (ERROR "can't mix fixnum testing with other immediates") ; ==> ; "can't mix fixnum testing with other immediates" ; ; note: deleting unreachable code ; (ERROR "can't mix testing of immediates with testing of headers") ; ==> ; "can't mix testing of immediates with testing of headers" ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/early-type-vops.lisp-obj-tmp written ; compilation finished in 0:00:00.065 creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/assembly/x86-64/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/x86-64/support.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN GENERATE-CALL-SEQUENCE ...) ; x-compiling (DEFUN GENERATE-RETURN-SEQUENCE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/assembly/x86-64/support.lisp-obj-tmp written ; compilation finished in 0:00:00.030 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/move.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN ZEROIZE ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-IMMEDIATE 1) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-NUMBER 1) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-CHARACTER 1) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-SYSTEM-AREA-POINTER 1) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-CONSTANT 5) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-STACK 5) ...) ; x-compiling (DEFINE-MOVE-FUN (STORE-STACK 5) ...) ; x-compiling (DEFINE-VOP (MOVE) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE ...) ; x-compiling (PRIMITIVE-TYPE-VOP MOVE ...) ; x-compiling (DEFUN MOVE-IMMEDIATE ...) ; x-compiling (DEFINE-VOP (MOVE-ARG) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/move.lisp ; in: DEFINE-VOP (MOVE-ARG) ; (SB!VM::STOREW ; (LOGIOR (ASH (CHAR-CODE SB!VM::VAL) SB!VM:N-WIDETAG-BITS) ; SB!VM:CHARACTER-WIDETAG) ; SB!VM::FP (SB!C:TN-OFFSET SB!VM::Y)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::STOREW ; (LOGIOR (ASH (CHAR-CODE SB!VM::VAL) SB!VM:N-WIDETAG-BITS) ; SB!VM:CHARACTER-WIDETAG) ; SB!VM::FP (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y))) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y)) ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::X SB!VM::FP (SB!C:TN-OFFSET SB!VM::Y)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::X SB!VM::FP ; (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y))) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y)) ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; x-compiling (DEFINE-VOP (ILLEGAL-MOVE) ...) ; x-compiling (DEFINE-VOP (MOVE-TO-WORD/FIXNUM) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/FIXNUM ...) ; x-compiling (DEFINE-VOP (MOVE-TO-WORD-C) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-WORD-C ...) ; x-compiling (DEFINE-VOP (MOVE-TO-WORD/INTEGER) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/INTEGER ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-WORD/FIXNUM) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/move.lisp ; in: DEFINE-VOP (MOVE-FROM-WORD/FIXNUM) ; (SB!ASSEM:INST SB!VM::LEA SB!VM::Y ; (SB!VM::MAKE-EA :QWORD :INDEX SB!VM::X :SCALE ; (ASH 1 SB!VM:N-FIXNUM-TAG-BITS))) ; --> SB!VM::LEA-INST-EMITTER ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-WORD/FIXNUM ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-SIGNED) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/move.lisp ; in: DEFINE-VOP (MOVE-FROM-SIGNED) ; (SB!C:LOCATION= SB!VM::X SB!VM::Y) ; ==> ; SB!VM::X ; ; note: deleting unreachable code ; (SB!ASSEM:INST SB!VM::IMUL SB!VM::Y SB!VM::X 2) ; --> SB!VM::IMUL-INST-EMITTER ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-SIGNED ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-UNSIGNED) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/move.lisp ; in: DEFINE-VOP (MOVE-FROM-UNSIGNED) ; (SB!ASSEM:INST SB!VM::LEA SB!VM::Y ; (SB!VM::MAKE-EA :QWORD :INDEX SB!VM::X :SCALE ; (ASH 1 SB!VM:N-FIXNUM-TAG-BITS))) ; --> SB!VM::LEA-INST-EMITTER ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-UNSIGNED ...) ; x-compiling (DEFINE-VOP (WORD-MOVE) ...) ; x-compiling (DEFINE-MOVE-VOP WORD-MOVE ...) ; x-compiling (DEFINE-VOP (MOVE-WORD-ARG) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/move.lisp ; in: DEFINE-VOP (MOVE-WORD-ARG) ; (SB!VM::STOREW SB!VM::X SB!VM::FP (SB!C:TN-OFFSET SB!VM::Y)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::X SB!VM::FP ; (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y))) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-WORD-ARG ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...); ; compilation unit finished ; printed 12 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/move.lisp-obj-tmp written ; compilation finished in 0:00:00.655 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/float.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN EA-FOR-DF-DESC ...) ; x-compiling (DEFUN EA-FOR-CSF-DATA-DESC ...) ; x-compiling (DEFUN EA-FOR-CSF-REAL-DESC ...) ; x-compiling (DEFUN EA-FOR-CSF-IMAG-DESC ...) ; x-compiling (DEFUN EA-FOR-CDF-DATA-DESC ...) ; x-compiling (DEFUN EA-FOR-CDF-REAL-DESC ...) ; x-compiling (DEFUN EA-FOR-CDF-IMAG-DESC ...) ; x-compiling (DEFUN EA-FOR-SF-STACK ...) ; x-compiling (DEFUN EA-FOR-DF-STACK ...) ; x-compiling (DEFUN EA-FOR-CSF-DATA-STACK ...) ; x-compiling (DEFUN EA-FOR-CSF-REAL-STACK ...) ; x-compiling (DEFUN EA-FOR-CSF-IMAG-STACK ...) ; x-compiling (DEFUN EA-FOR-CDF-DATA-STACK ...) ; x-compiling (DEFUN EA-FOR-CDF-REAL-STACK ...) ; x-compiling (DEFUN EA-FOR-CDF-IMAG-STACK ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-FP-ZERO 1) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-FP-IMMEDIATE 1) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-SINGLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (STORE-SINGLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-DOUBLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (STORE-DOUBLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-SINGLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-SINGLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-DOUBLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-DOUBLE 2) ...) ; x-compiling (FROB SINGLE-MOVE ...) ; x-compiling (FROB DOUBLE-MOVE ...) ; x-compiling (FROB COMPLEX-SINGLE-MOVE ...) ; x-compiling (FROB COMPLEX-DOUBLE-MOVE ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-SINGLE) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-SINGLE ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-DOUBLE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/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!ASSEM:INST SB!VM::MOVSD (SB!VM::EA-FOR-DF-DESC SB!VM::Y) SB!VM::X)) ; --> 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 ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-DOUBLE ...) ; x-compiling (DEFINE-VOP (MOVE-TO-SINGLE-REG) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-SINGLE-REG ...) ; x-compiling (DEFINE-VOP (MOVE-TO-SINGLE-STACK) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-SINGLE-STACK ...) ; x-compiling (DEFINE-VOP (MOVE-TO-DOUBLE) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-DOUBLE ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/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) ; (SB!ASSEM:INST SB!VM::MOVQ (SB!VM::EA-FOR-CSF-DATA-DESC SB!VM::Y) SB!VM::X)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; (SB!VM::EA-FOR-CSF-DATA-DESC SB!VM::Y) ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/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) ; (SB!ASSEM:INST SB!VM::MOVAPD (SB!VM::EA-FOR-CDF-DATA-DESC SB!VM::Y) ; SB!VM::X)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; (SB!VM::EA-FOR-CDF-DATA-DESC SB!VM::Y) ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-DOUBLE ...) ; x-compiling (FROB MOVE-TO-COMPLEX-SINGLE ...) ; x-compiling (FROB MOVE-TO-COMPLEX-DOUBLE ...) ; x-compiling (FROB MOVE-SINGLE-FLOAT-ARG ...) ; x-compiling (FROB MOVE-DOUBLE-FLOAT-ARG ...) ; x-compiling (FROB MOVE-COMPLEX-SINGLE-FLOAT-ARG ...) ; x-compiling (FROB MOVE-COMPLEX-DOUBLE-FLOAT-ARG ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; x-compiling (DEFINE-VOP (FLOAT-OP) ...) ; x-compiling (FROB SINGLE-FLOAT-OP ...) ; x-compiling (FROB DOUBLE-FLOAT-OP ...) ; x-compiling (FROB COMPLEX-SINGLE-FLOAT-OP ...) ; x-compiling (FROB COMPLEX-DOUBLE-FLOAT-OP ...) ; x-compiling (FROB + ...) ; x-compiling (FROB - ...) ; x-compiling (FROB * ...) ; x-compiling (FROB / ...) ; x-compiling (DEF-REAL-COMPLEX-OP + ...) ; x-compiling (DEF-REAL-COMPLEX-OP - ...) ; x-compiling (DEF-REAL-COMPLEX-OP * ...) ; x-compiling (DEF-REAL-COMPLEX-OP / ...) ; x-compiling (DEFINE-VOP (//COMPLEX-REAL-SINGLE-FLOAT FLOAT-OP) ...) ; x-compiling (DEFINE-COMPLEX-* */COMPLEX-SINGLE-FLOAT ...) ; x-compiling (DEFINE-COMPLEX-* */COMPLEX-DOUBLE-FLOAT ...) ; x-compiling (DEFINE-VOP (FSQRT) ...) ; x-compiling (FROB (%NEGATE/DOUBLE-FLOAT %NEGATE ...) ...) ; x-compiling (FROB (%NEGATE/COMPLEX-DOUBLE-FLOAT %NEGATE ...) ...) ; x-compiling (FROB (CONJUGATE/COMPLEX-DOUBLE-FLOAT CONJUGATE ...) ...) ; x-compiling (FROB (%NEGATE/SINGLE-FLOAT %NEGATE ...) ...) ; x-compiling (FROB (%NEGATE/COMPLEX-SINGLE-FLOAT %NEGATE ...) ...) ; x-compiling (FROB (CONJUGATE/COMPLEX-SINGLE-FLOAT CONJUGATE ...) ...) ; x-compiling (FROB (ABS/DOUBLE-FLOAT ABS ...) ...) ; x-compiling (FROB (ABS/SINGLE-FLOAT ABS ...) ...) ; x-compiling (DEFINE-VOP (FLOAT-COMPARE) ...) ; x-compiling (DEFINE-FLOAT-EQL EQL/SINGLE-FLOAT ...) ; x-compiling (DEFINE-FLOAT-EQL EQL/DOUBLE-FLOAT ...) ; x-compiling (DEFINE-FLOAT-EQL EQL/COMPLEX-SINGLE-FLOAT ...) ; x-compiling (DEFINE-FLOAT-EQL EQL/COMPLEX-DOUBLE-FLOAT ...) ; x-compiling (DEFINE-VOP (SINGLE-FLOAT-COMPARE FLOAT-COMPARE) ...) ; x-compiling (DEFINE-VOP (DOUBLE-FLOAT-COMPARE FLOAT-COMPARE) ...) ; x-compiling (DEFINE-VOP (=/SINGLE-FLOAT SINGLE-FLOAT-COMPARE) ...) ; x-compiling (DEFINE-VOP (=/DOUBLE-FLOAT DOUBLE-FLOAT-COMPARE) ...) ; x-compiling (DEFINE-COMPLEX-FLOAT-= =/COMPLEX-SINGLE-FLOAT ...) ; x-compiling (DEFINE-COMPLEX-FLOAT-= =/COMPLEX-DOUBLE-FLOAT ...) ; x-compiling (DEFINE- < ...) ; x-compiling (DEFINE- > ...) ; x-compiling (FROB %SINGLE-FLOAT/SIGNED ...) ; x-compiling (FROB %DOUBLE-FLOAT/SIGNED ...) ; x-compiling (FROB %SINGLE-FLOAT/DOUBLE-FLOAT ...) ; x-compiling (FROB %DOUBLE-FLOAT/SINGLE-FLOAT ...) ; x-compiling (FROB %UNARY-TRUNCATE/SINGLE-FLOAT ...) ; x-compiling (FROB %UNARY-TRUNCATE/DOUBLE-FLOAT ...) ; x-compiling (FROB %UNARY-ROUND ...) ; x-compiling (FROB %UNARY-ROUND ...) ; x-compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT-C) ...) ; x-compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT-C) ...) ; x-compiling (DEFINE-VOP (SINGLE-FLOAT-BITS) ...) ; x-compiling (DEFINE-VOP (DOUBLE-FLOAT-HIGH-BITS) ...) ; x-compiling (DEFINE-VOP (DOUBLE-FLOAT-LOW-BITS) ...) ; x-compiling (DEFINE-VOP (MAKE-COMPLEX-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (MAKE-COMPLEX-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (COMPLEX-FLOAT-VALUE) ...) ; x-compiling (DEFINE-VOP (REALPART/COMPLEX-SINGLE-FLOAT COMPLEX-FLOAT-VALUE) ...) ; x-compiling (DEFINE-VOP (REALPART/COMPLEX-DOUBLE-FLOAT COMPLEX-FLOAT-VALUE) ...) ; x-compiling (DEFINE-VOP (IMAGPART/COMPLEX-SINGLE-FLOAT COMPLEX-FLOAT-VALUE) ...) ; x-compiling (DEFINE-VOP (IMAGPART/COMPLEX-DOUBLE-FLOAT COMPLEX-FLOAT-VALUE) ...) ; x-compiling (DEFKNOWN DOUBLE-FLOAT-REG-BIAS ...) ; x-compiling (DEFINE-VOP (DOUBLE-FLOAT-REG-BIAS) ...) ; x-compiling (DEFKNOWN SINGLE-FLOAT-REG-BIAS ...) ; x-compiling (DEFINE-VOP (SINGLE-FLOAT-REG-BIAS) ...) ; x-compiling (DEFKNOWN SWAP-COMPLEX ...) ; x-compiling (DEFOPTIMIZER (SWAP-COMPLEX DERIVE-TYPE) ...) ; x-compiling (DEFUN SWAP-COMPLEX ...) ; x-compiling (DEFINE-VOP (SWAP-COMPLEX-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (SWAP-COMPLEX-DOUBLE-FLOAT) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/float.lisp ; in: ; MACROLET ((GENERATE (OPINST COMMUTATIVE CONSTANT-SC LOAD-INST) ; (SB!IMPL::BACKQ-LIST 'FLET (SB!IMPL::BACKQ-LIST #) '(DECLARE #) ; (SB!IMPL::BACKQ-LIST 'COND # # # ...))) ; (FROB (OP SINST SNAME SCOST DINST ...) ; (SB!IMPL::BACKQ-LIST 'PROGN ; (SB!IMPL::BACKQ-LIST 'DEFINE-VOP # # '# ...) ; (SB!IMPL::BACKQ-LIST 'DEFINE-VOP # # '# ...) ; (WHEN CSINST #) ...))) ; (SB!VM::FROB - SB!VM::SUBSS SB!VM::-/SINGLE-FLOAT 2 SB!VM::SUBSD ; SB!VM::-/DOUBLE-FLOAT 2 NIL SB!VM::SUBPS SB!VM::-/COMPLEX-SINGLE-FLOAT 3 ...) ; --> PROGN SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION ; --> LET* SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET SB!VM::GENERATE FLET ; --> BLOCK LET ; ==> ; (SB!C:REGISTER-INLINE-CONSTANT SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; (SB!VM::FROB + SB!VM::ADDSS SB!VM::+/SINGLE-FLOAT 2 SB!VM::ADDSD ; SB!VM::+/DOUBLE-FLOAT 2 T SB!VM::ADDPS SB!VM::+/COMPLEX-SINGLE-FLOAT 3 ...) ; --> PROGN SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION ; --> LET* SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET SB!VM::GENERATE FLET ; --> BLOCK LET ; ==> ; (SB!C:REGISTER-INLINE-CONSTANT SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; in: DEFINE-MOVE-FUN (LOAD-FP-IMMEDIATE 1) ; (SB!C:REGISTER-INLINE-CONSTANT (SB!C:TN-VALUE SB!VM::X)) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; ; caught STYLE-WARNING: ; 42 more uses of undefined function REGISTER-INLINE-CONSTANT ; ; compilation unit finished ; Undefined function: ; REGISTER-INLINE-CONSTANT ; caught 4 STYLE-WARNING conditions ; printed 6 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/float.lisp-obj-tmp written ; compilation finished in 0:00:05.315 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/simd-pack.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN EA-FOR-SSE-STACK ...) ; x-compiling (DEFUN FLOAT-SSE-P ...) ; x-compiling (DEFUN INT-SSE-P ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-INT-SSE-IMMEDIATE 1) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-FLOAT-SSE-IMMEDIATE 1) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-INT-SSE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-FLOAT-SSE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (STORE-INT-SSE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (STORE-FLOAT-SSE 2) ...) ; x-compiling (DEFINE-VOP (SSE-MOVE) ...) ; x-compiling (DEFINE-MOVE-VOP SSE-MOVE ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-SSE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/simd-pack.lisp ; in: DEFINE-VOP (MOVE-FROM-SSE) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::Y SB!VM:SIMD-PACK-WIDETAG ; SB!VM:SIMD-PACK-SIZE SB!VM::NODE) ; (SB!VM::STOREW ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::X ; (SB!VM::SINGLE-SSE-REG 1) ; (SB!VM::DOUBLE-SSE-REG 2) ; (SB!VM::INT-SSE-REG 0) ; (T 0))) ; SB!VM::Y SB!VM:SIMD-PACK-TAG-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::Y ; SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SSE-P SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::X)))) ; --> 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 COND IF ; --> PROGN 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 ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET COND IF ; --> COND THE PROGN 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!C:SC-CASE SB!VM::X ; (SB!VM::SINGLE-SSE-REG 1) ; (SB!VM::DOUBLE-SSE-REG 2) ; (SB!VM::INT-SSE-REG 0) ; (T 0)) ; --> LET* ; ==> ; SB!VM::X ; ; note: deleting unreachable code ; (SB!VM::STOREW ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::X ; (SB!VM::SINGLE-SSE-REG 1) ; (SB!VM::DOUBLE-SSE-REG 2) ; (SB!VM::INT-SSE-REG 0) ; (T 0))) ; SB!VM::Y SB!VM:SIMD-PACK-TAG-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; --> LET COND IF COND THE PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::X ; (SB!VM::SINGLE-SSE-REG 1) ; (SB!VM::DOUBLE-SSE-REG 2) ; (SB!VM::INT-SSE-REG 0) ; (T 0))) ; ; note: deleting unreachable code ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::Y SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SSE-P SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::X))) ; ; note: deleting unreachable code ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::X) ; --> SB!VM::MOVAPS-INST-EMITTER ; ==> ; SB!VM::EA ; ; note: deleting unreachable code ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::X) ; --> SB!VM::MOVDQA-INST-EMITTER ; ==> ; SB!VM::EA ; ; note: deleting unreachable code ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::Y SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SSE-P SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::X))) ; ; note: deleting unreachable code ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::Y SB!VM:SIMD-PACK-WIDETAG ; SB!VM:SIMD-PACK-SIZE SB!VM::NODE) ; (SB!VM::STOREW ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::X ; (SB!VM::SINGLE-SSE-REG 1) ; (SB!VM::DOUBLE-SSE-REG 2) ; (SB!VM::INT-SSE-REG 0) ; (T 0))) ; SB!VM::Y SB!VM:SIMD-PACK-TAG-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::Y ; SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SSE-P SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::X) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::X)))) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF SB!VM::PSEUDO-ATOMIC LET ; --> SB!VM::STOREW LET COND IF PROGN 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 ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-SSE ...) ; x-compiling (DEFINE-VOP (MOVE-TO-SSE) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-SSE ...) ; x-compiling (DEFINE-VOP (MOVE-SSE-ARG) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-SSE-ARG ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; x-compiling (DEFINE-VOP (%SIMD-PACK-LOW) ...) ; x-compiling (DEFUN %SIMD-PACK-LOW ...) ; x-compiling (DEFINE-VOP (%SIMD-PACK-HIGH) ...) ; x-compiling (DEFUN %SIMD-PACK-HIGH ...) ; x-compiling (DEFINE-VOP (%MAKE-SIMD-PACK) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/simd-pack.lisp ; in: DEFINE-VOP (%MAKE-SIMD-PACK) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::DST SB!VM:SIMD-PACK-WIDETAG ; SB!VM:SIMD-PACK-SIZE SB!VM::NODE) ; (SB!VM::STOREW SB!VM::TAG SB!VM::DST SB!VM:SIMD-PACK-TAG-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STOREW SB!VM::LO SB!VM::DST SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STOREW SB!VM::HI SB!VM::DST SB!VM:SIMD-PACK-HI-VALUE-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 COND IF ; --> PROGN 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 ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET COND IF ; --> COND THE PROGN 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::TAG SB!VM::DST SB!VM:SIMD-PACK-TAG-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET ; ==> ; SB!VM::TAG ; ; note: deleting unreachable code ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; --> LET COND IF COND THE PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::LO SB!VM::DST SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET ; ==> ; SB!VM::LO ; ; note: deleting unreachable code ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; --> LET COND IF COND THE PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::HI SB!VM::DST SB!VM:SIMD-PACK-HI-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET ; ==> ; SB!VM::HI ; ; note: deleting unreachable code ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; --> LET COND IF COND THE PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::DST SB!VM:SIMD-PACK-WIDETAG ; SB!VM:SIMD-PACK-SIZE SB!VM::NODE) ; (SB!VM::STOREW SB!VM::TAG SB!VM::DST SB!VM:SIMD-PACK-TAG-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STOREW SB!VM::LO SB!VM::DST SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STOREW SB!VM::HI SB!VM::DST SB!VM:SIMD-PACK-HI-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF SB!VM::PSEUDO-ATOMIC LET ; --> SB!VM::STOREW LET COND IF PROGN 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::TAG SB!VM::DST SB!VM:SIMD-PACK-TAG-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::LO SB!VM::DST SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::HI SB!VM::DST SB!VM:SIMD-PACK-HI-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; x-compiling (DEFUN %MAKE-SIMD-PACK ...) ; x-compiling (DEFINE-VOP (%MAKE-SIMD-PACK-UB64) ...) ; x-compiling (DEFUN %MAKE-SIMD-PACK-UB64 ...) ; x-compiling (DECLAIM (INLINE %MAKE-SIMD-PACK-UB64)) ; x-compiling (DEFUN %MAKE-SIMD-PACK-UB32 ...) ; x-compiling (DECLAIM (INLINE %SIMD-PACK-UB32S ...)) ; x-compiling (DEFUN %SIMD-PACK-UB32S ...) ; x-compiling (DEFUN %SIMD-PACK-UB64S ...) ; x-compiling (DEFINE-VOP (%MAKE-SIMD-PACK-DOUBLE) ...) ; x-compiling (DEFUN %MAKE-SIMD-PACK-DOUBLE ...) ; x-compiling (DEFINE-VOP (%MAKE-SIMD-PACK-SINGLE) ...) ; x-compiling (DEFUN %MAKE-SIMD-PACK-SINGLE ...) ; x-compiling (DEFUN %SIMD-PACK-TAG ...) ; x-compiling (DEFINE-VOP (%SIMD-PACK-SINGLE-ITEM) ...) ; x-compiling (DECLAIM (INLINE %SIMD-PACK-SINGLES)) ; x-compiling (DEFUN %SIMD-PACK-SINGLES ...) ; x-compiling (DEFINE-VOP (%SIMD-PACK-DOUBLE-ITEM) ...) ; x-compiling (DECLAIM (INLINE %SIMD-PACK-DOUBLES)) ; x-compiling (DEFUN %SIMD-PACK-DOUBLES ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/simd-pack.lisp ; in: DEFINE-MOVE-FUN (LOAD-FLOAT-SSE-IMMEDIATE 1) ; (SB!C:REGISTER-INLINE-CONSTANT SB!VM::X) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; in: DEFINE-MOVE-FUN (LOAD-INT-SSE-IMMEDIATE 1) ; (SB!C:REGISTER-INLINE-CONSTANT SB!VM::X) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; ; compilation unit finished ; Undefined function: ; REGISTER-INLINE-CONSTANT ; caught 2 STYLE-WARNING conditions ; printed 28 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/simd-pack.lisp-obj-tmp written ; compilation finished in 0:00:01.831 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/sap.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (MOVE-TO-SAP) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-SAP ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-SAP) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/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 COND IF ; --> PROGN 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 ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET COND IF ; --> COND THE PROGN 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 COND IF PROGN 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 ; --> LET COND IF COND THE PROGN 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: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 SB!VM::PSEUDO-ATOMIC LET ; --> SB!VM::STOREW LET COND IF PROGN 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 COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::RES ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-SAP ...) ; x-compiling (DEFINE-VOP (SAP-MOVE) ...) ; x-compiling (DEFINE-MOVE-VOP SAP-MOVE ...) ; x-compiling (DEFINE-VOP (MOVE-SAP-ARG) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/sap.lisp ; in: DEFINE-VOP (MOVE-SAP-ARG) ; (SB!VM::STOREW SB!VM::X SB!VM::FP (SB!C:TN-OFFSET SB!VM::Y)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::X SB!VM::FP ; (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y))) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-SAP-ARG ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; x-compiling (DEFINE-VOP (SAP-INT) ...) ; x-compiling (DEFINE-VOP (INT-SAP) ...) ; x-compiling (DEFINE-VOP (POINTER+) ...) ; x-compiling (DEFINE-VOP (POINTER-) ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-8 ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8 ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-16 ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16 ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-32 ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32 ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-64 ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-64 ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SAP ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-LISPOBJ ...) ; x-compiling (DEFINE-VOP (SAP-REF-DOUBLE) ...) ; x-compiling (DEFINE-VOP (SAP-REF-DOUBLE-C) ...) ; x-compiling (DEFINE-VOP (%SET-SAP-REF-DOUBLE) ...) ; x-compiling (DEFINE-VOP (%SET-SAP-REF-DOUBLE-C) ...) ; x-compiling (DEFINE-VOP (SAP-REF-SINGLE) ...) ; x-compiling (DEFINE-VOP (SAP-REF-SINGLE-C) ...) ; x-compiling (DEFINE-VOP (%SET-SAP-REF-SINGLE) ...) ; x-compiling (DEFINE-VOP (%SET-SAP-REF-SINGLE-C) ...) ; x-compiling (DEFINE-VOP (VECTOR-SAP) ...); ; compilation unit finished ; printed 10 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/sap.lisp-obj-tmp written ; compilation finished in 0:00:02.616 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/system.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (LOWTAG-OF) ...) ; x-compiling (DEFINE-VOP (WIDETAG-OF) ...) ; x-compiling (DEFINE-VOP (FUN-SUBTYPE) ...) ; x-compiling (DEFINE-VOP (SET-FUN-SUBTYPE) ...) ; x-compiling (DEFINE-VOP (GET-HEADER-DATA) ...) ; x-compiling (DEFINE-VOP (GET-CLOSURE-LENGTH) ...) ; x-compiling (DEFINE-VOP (SET-HEADER-DATA) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/system.lisp ; in: DEFINE-VOP (SET-HEADER-DATA) ; (SB!VM::STOREW SB!VM::EAX SB!VM::X 0 SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::X ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (POINTER-HASH) ...) ; x-compiling (DEFINE-VOP (DYNAMIC-SPACE-FREE-POINTER) ...) ; x-compiling (DEFINE-VOP (BINDING-STACK-POINTER-SAP) ...) ; x-compiling (DEFKNOWN (SETF BINDING-STACK-POINTER-SAP) ...) ; x-compiling (DEFINE-VOP (SET-BINDING-STACK-POINTER-SAP) ...) ; x-compiling (DEFINE-VOP (CONTROL-STACK-POINTER-SAP) ...) ; x-compiling (DEFINE-VOP (CODE-INSTRUCTIONS) ...) ; x-compiling (DEFINE-VOP (COMPUTE-FUN) ...) ; x-compiling (DEFINE-VOP (%SIMPLE-FUN-SELF) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %CLOSURE-FUN ...) ; x-compiling (DEFINE-VOP (%SET-FUN-SELF) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/system.lisp ; in: DEFINE-VOP (%SET-FUN-SELF) ; (SB!VM::STOREW SB!VM::TEMP FUNCTION SB!VM:SIMPLE-FUN-SELF-SLOT ; SB!VM:FUN-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; FUNCTION ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (SYMBOL-INFO-VECTOR) ...) ; x-compiling (DEFINE-VOP (SYMBOL-PLIST) ...) ; x-compiling (DEFKNOWN SB!UNIX::RECEIVE-PENDING-INTERRUPT ...) ; x-compiling (DEFINE-VOP (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ...) ; x-compiling (DEFKNOWN CURRENT-THREAD-OFFSET-SAP ...) ; x-compiling (DEFINE-VOP (CURRENT-THREAD-OFFSET-SAP/C) ...) ; x-compiling (DEFINE-VOP (CURRENT-THREAD-OFFSET-SAP) ...) ; x-compiling (DEFINE-VOP (HALT) ...) ; x-compiling (DEFKNOWN FLOAT-WAIT ...) ; x-compiling (DEFINE-VOP (FLOAT-WAIT) ...) ; x-compiling (DEFKNOWN %READ-CYCLE-COUNTER ...) ; x-compiling (DEFINE-VOP (%READ-CYCLE-COUNTER) ...) ; x-compiling (DEFMACRO WITH-CYCLE-COUNTER ...) ; x-compiling (DEFINE-VOP (%COMPILER-BARRIER) ...) ; x-compiling (DEFINE-VOP (%MEMORY-BARRIER) ...) ; x-compiling (DEFINE-VOP (%READ-BARRIER) ...) ; x-compiling (DEFINE-VOP (%WRITE-BARRIER) ...) ; x-compiling (DEFINE-VOP (%DATA-DEPENDENCY-BARRIER) ...) ; x-compiling (DEFINE-VOP (PAUSE) ...) ; x-compiling (DEFKNOWN %CONS-CAS-PAIR ...) ; x-compiling (DEFKNOWN %VECTOR-CAS-PAIR ...) ; x-compiling (DEFKNOWN %INSTANCE-CAS-PAIR ...) ; x-compiling (DEFINE-CMPXCHG-VOP COMPARE-AND-EXCHANGE-PAIR ...) ; x-compiling (DEFINE-CMPXCHG-VOP COMPARE-AND-EXCHANGE-PAIR-INDEXED ...) ; x-compiling (DEFINE-VOP (%VECTOR-CAS-PAIR COMPARE-AND-EXCHANGE-PAIR-INDEXED) ...) ; x-compiling (DEFINE-VOP (%INSTANCE-CAS-PAIR COMPARE-AND-EXCHANGE-PAIR-INDEXED) ...) ; x-compiling (DEFKNOWN %CPU-IDENTIFICATION ...) ; x-compiling (DEFINE-VOP (%CPU-IDENTIFICATION) ...) ; x-compiling (DEFKNOWN SYMBOL-TLS-INDEX ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM SYMBOL-TLS-INDEX ...); ; compilation unit finished ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/system.lisp-obj-tmp written ; compilation finished in 0:00:02.129 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/char.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (MOVE-TO-CHARACTER) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-CHARACTER ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-CHARACTER) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-CHARACTER ...) ; x-compiling (DEFINE-VOP (CHARACTER-MOVE) ...) ; x-compiling (DEFINE-MOVE-VOP CHARACTER-MOVE ...) ; x-compiling (DEFINE-VOP (MOVE-CHARACTER-ARG) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/char.lisp ; in: DEFINE-VOP (MOVE-CHARACTER-ARG) ; (SB!VM::STOREW SB!VM::X SB!VM::FP (SB!C:TN-OFFSET SB!VM::Y)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::X SB!VM::FP ; (SB!VM::FRAME-WORD-OFFSET (SB!C:TN-OFFSET SB!VM::Y))) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FP ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-CHARACTER-ARG ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; x-compiling (DEFINE-VOP (CHAR-CODE) ...) ; x-compiling (DEFINE-VOP (CODE-CHAR) ...) ; x-compiling (DEFINE-VOP (CHARACTER-COMPARE) ...) ; x-compiling (DEFINE-VOP (FAST-CHAR=/CHARACTER CHARACTER-COMPARE) ...) ; x-compiling (DEFINE-VOP (FAST-CHAR/CHARACTER CHARACTER-COMPARE) ...) ; x-compiling (DEFINE-VOP (CHARACTER-COMPARE/C) ...) ; x-compiling (DEFINE-VOP (FAST-CHAR=/CHARACTER/C CHARACTER-COMPARE/C) ...) ; x-compiling (DEFINE-VOP (FAST-CHAR/CHARACTER/C CHARACTER-COMPARE/C) ...); ; compilation unit finished ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/char.lisp-obj-tmp written ; compilation finished in 0:00:01.401 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/memory.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (CELL-REF) ...) ; x-compiling (DEFINE-VOP (CELL-SET) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/memory.lisp ; in: DEFINE-VOP (CELL-SET) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::OBJECT SB!VM::OFFSET SB!VM::LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::OBJECT ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (CELL-SETF) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/memory.lisp ; in: DEFINE-VOP (CELL-SETF) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::OBJECT SB!VM::OFFSET SB!VM::LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::OBJECT ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (CELL-SETF-FUN) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/memory.lisp ; in: DEFINE-VOP (CELL-SETF-FUN) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::OBJECT SB!VM::OFFSET SB!VM::LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::OBJECT ; ; note: deleting unreachable code ; x-compiling (DEFMACRO DEFINE-CELL-ACCESSORS ...) ; x-compiling (DEFINE-VOP (CELL-XADD) ...) ; x-compiling (DEFINE-VOP (SLOT-REF) ...) ; x-compiling (DEFINE-VOP (SLOT-SET) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/memory.lisp ; in: DEFINE-VOP (SLOT-SET) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::OBJECT (+ SB!VM::BASE SB!VM::OFFSET) ; SB!VM::LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::OBJECT ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (SLOT-SET-CONDITIONAL) ...) ; x-compiling (DEFINE-VOP (SLOT-XADD) ...); ; compilation unit finished ; printed 4 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/memory.lisp-obj-tmp written ; compilation finished in 0:00:00.290 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/static-fn.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (STATIC-FUN-TEMPLATE) ...) ; x-compiling (DEFUN STATIC-FUN-TEMPLATE-NAME ...) ; x-compiling (DEFUN MOVES ...) ; x-compiling (DEFUN STATIC-FUN-TEMPLATE-VOP ...) ; x-compiling (FROB 0 ...) ; x-compiling (FROB 1 ...) ; x-compiling (FROB 2 ...) ; x-compiling (FROB 3 ...) ; x-compiling (DEFMACRO DEFINE-STATIC-FUN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/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 #:NODE-214) ; ; 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 #:NODE-192) ; ; 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 #:NODE-173) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-UNKNOWN-VALUES ; ; caught STYLE-WARNING: ; 1 more use of undefined function DEFAULT-UNKNOWN-VALUES ; ; compilation unit finished ; Undefined function: ; DEFAULT-UNKNOWN-VALUES ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/static-fn.lisp-obj-tmp written ; compilation finished in 0:00:00.208 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/arith.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN IMMEDIATE32-P ...) ; x-compiling (DEFUN CONSTANTIZE ...) ; x-compiling (DEFINE-VOP (FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FIXNUM-UNOP FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (SIGNED-UNOP FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-NEGATE/FIXNUM FIXNUM-UNOP) ...) ; x-compiling (DEFINE-VOP (FAST-NEGATE/SIGNED SIGNED-UNOP) ...) ; x-compiling (DEFINE-VOP (FAST-LOGNOT/FIXNUM FIXNUM-UNOP) ...) ; x-compiling (DEFINE-VOP (FAST-LOGNOT/SIGNED SIGNED-UNOP) ...) ; x-compiling (DEFINE-VOP (FAST-FIXNUM-BINOP FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-SIGNED-BINOP FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-FIXNUM-BINOP-C FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-SIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-BINOP - ...) ; x-compiling (DEFINE-BINOP LOGAND ...) ; x-compiling (DEFINE-BINOP LOGIOR ...) ; x-compiling (DEFINE-BINOP LOGXOR ...) ; x-compiling (DEFINE-VOP (FAST-+/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-+-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-+/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-LOGAND/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-LOGAND-C/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND-C/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-LOGAND/UNSIGNED-SIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-+-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-+/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-+-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-*/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-*-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-*/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-*-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-*/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-*-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-TRUNCATE/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/arith.lisp ; in: DEFINE-VOP (FAST-TRUNCATE/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ; (SB!ASSEM:INST SB!VM::LEA SB!VM::QUO ; (SB!VM::MAKE-EA :QWORD :INDEX SB!VM::EAX :SCALE ; (ASH 1 SB!VM:N-FIXNUM-TAG-BITS))) ; --> SB!VM::LEA-INST-EMITTER ; ==> ; SB!VM::QUO ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (FAST-TRUNCATE-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/arith.lisp ; in: DEFINE-VOP (FAST-TRUNCATE-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ; (SB!ASSEM:INST SB!VM::LEA SB!VM::QUO ; (SB!VM::MAKE-EA :QWORD :INDEX SB!VM::EAX :SCALE ; (ASH 1 SB!VM:N-FIXNUM-TAG-BITS))) ; --> SB!VM::LEA-INST-EMITTER ; ==> ; SB!VM::QUO ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (FAST-TRUNCATE/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-TRUNCATE-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-TRUNCATE/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-TRUNCATE-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-C/FIXNUM=>FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT/FIXNUM=>FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-C/SIGNED=>SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT/SIGNED=>SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-ASH/SIGNED=>SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-ASH/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-%ASH/RIGHT/UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-%ASH/RIGHT/SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-%ASH/RIGHT/FIXNUM) ...) ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN %LEA ...) ; x-compiling (DEFOPTIMIZER (%LEA DERIVE-TYPE) ...) ; x-compiling (DEFUN %LEA ...) ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (%LEA/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (%LEA/SIGNED=>SIGNED) ...) ; x-compiling (DEFINE-VOP (%LEA/FIXNUM=>FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-CMOV-ASH/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (SIGNED-BYTE-64-LEN) ...) ; x-compiling (DEFINE-VOP (UNSIGNED-BYTE-64-LEN) ...) ; x-compiling (DEFINE-VOP (POSITIVE-FIXNUM-LEN) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/arith.lisp ; in: DEFINE-VOP (POSITIVE-FIXNUM-LEN) ; (SB!ASSEM:INST SB!VM::SHR SB!VM::RES (1- SB!VM:N-FIXNUM-TAG-BITS)) ; --> SB!VM::SHR-INST-EMITTER ; ==> ; SB!VM::RES ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (FIXNUM-LEN) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/arith.lisp ; in: DEFINE-VOP (FIXNUM-LEN) ; (SB!ASSEM:INST SB!VM::SAR SB!VM::RES (1- SB!VM:N-FIXNUM-TAG-BITS)) ; --> SB!VM::SAR-INST-EMITTER ; ==> ; SB!VM::RES ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (UNSIGNED-BYTE-64-COUNT) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL/FIXNUM FAST-CONDITIONAL) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL/SIGNED FAST-CONDITIONAL) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL-C/SIGNED FAST-CONDITIONAL/SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL/UNSIGNED FAST-CONDITIONAL) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL-C/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...) ; x-compiling (DEFINE-LOGTEST-VOPS) ; x-compiling (DEFKNOWN %LOGBITP ...) ; x-compiling (DEFUN %LOGBITP ...) ; x-compiling (DEFINE-VOP (FAST-LOGBITP-C/FIXNUM FAST-CONDITIONAL-C/FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-LOGBITP/SIGNED FAST-CONDITIONAL/SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-LOGBITP-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-LOGBITP/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-LOGBITP-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...) ; x-compiling (DEFINE-CONDITIONAL-VOP < ...) ; x-compiling (DEFINE-CONDITIONAL-VOP > ...) ; x-compiling (DEFINE-VOP (FAST-IF-EQL/SIGNED FAST-CONDITIONAL/SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-IF-EQL-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-IF-EQL/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-IF-EQL-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-EQL/FIXNUM FAST-CONDITIONAL) ...) ; x-compiling (DEFINE-VOP (GENERIC-EQL/FIXNUM FAST-EQL/FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-EQL-C/FIXNUM FAST-CONDITIONAL-C/FIXNUM) ...) ; x-compiling (DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM) ...) ; x-compiling (DEFINE-VOP (SHIFT-TOWARDS-SOMEPLACE) ...) ; x-compiling (DEFINE-VOP (SHIFT-TOWARDS-START SHIFT-TOWARDS-SOMEPLACE) ...) ; x-compiling (DEFINE-VOP (SHIFT-TOWARDS-END SHIFT-TOWARDS-SOMEPLACE) ...) ; x-compiling (DEFMACRO DEFINE-MOD-BINOP ...) ; x-compiling (DEFMACRO DEFINE-MOD-BINOP-C ...) ; x-compiling (DEF + ...) ; x-compiling (DEF - ...) ; x-compiling (DEF * ...) ; x-compiling (DEFINE-MODULAR-FUN %NEGATE-MOD64 ...) ; x-compiling (DEFINE-VOP (%NEGATE-MOD64) ...) ; x-compiling (DEFINE-MODULAR-FUN %NEGATE-MODFX ...) ; x-compiling (DEFINE-VOP (%NEGATE-MODFX FAST-NEGATE/FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD64-C/UNSIGNED=>UNSIGNED FAST-ASH-C/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD64/UNSIGNED=>UNSIGNED FAST-ASH-LEFT/UNSIGNED=>UNSIGNED)) ; x-compiling (DEFTRANSFORM ASH-LEFT-MOD64 ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MODFX-C/FIXNUM=>FIXNUM FAST-ASH-C/FIXNUM=>FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MODFX/FIXNUM=>FIXNUM FAST-ASH-LEFT/FIXNUM=>FIXNUM)) ; x-compiling (DEFTRANSFORM ASH-LEFT-MODFX ...) ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN SB!VM::%LEA-MOD64 ...) ; x-compiling (DEFKNOWN SB!VM::%LEA-MODFX ...) ; x-compiling (DEFINE-MODULAR-FUN-OPTIMIZER %LEA ...) ; x-compiling (DEFINE-MODULAR-FUN-OPTIMIZER %LEA ...) ; x-compiling (DEFUN SB!VM::%LEA-MOD64 ...) ; x-compiling (DEFUN SB!VM::%LEA-MODFX ...) ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (%LEA-MOD64/UNSIGNED=>UNSIGNED %LEA/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (%LEA-MODFX/FIXNUM=>FIXNUM %LEA/FIXNUM=>FIXNUM) ...) ; x-compiling (DEFINE-MODULAR-FUN LOGNOT-MOD64 ...) ; x-compiling (DEFINE-VOP (LOGNOT-MOD64/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGANDC1 ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGANDC2 ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGORC1 ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGORC2 ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGNOR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGNAND ...) ; x-compiling (DEFINE-VOP (BIGNUM-LENGTH GET-HEADER-DATA) ...) ; x-compiling (DEFINE-VOP (BIGNUM-SET-LENGTH SET-HEADER-DATA) ...) ; x-compiling (DEFINE-FULL-REFFER BIGNUM-REF ...) ; x-compiling (DEFINE-FULL-REFFER+OFFSET BIGNUM-REF-WITH-OFFSET ...) ; x-compiling (DEFINE-FULL-SETTER BIGNUM-SET ...) ; x-compiling (DEFINE-VOP (DIGIT-0-OR-PLUS) ...) ; x-compiling (DEFINE-VOP (ADD-W/CARRY) ...) ; x-compiling (DEFINE-VOP (SUB-W/BORROW) ...) ; x-compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-3-ARG) ...) ; x-compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-4-ARG) ...) ; x-compiling (DEFINE-VOP (BIGNUM-MULT) ...) ; x-compiling (DEFINE-VOP (MULHI) ...) ; x-compiling (DEFINE-VOP (MULHI/FX) ...) ; x-compiling (DEFINE-VOP (BIGNUM-LOGNOT LOGNOT-MOD64/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FIXNUM-TO-DIGIT) ...) ; x-compiling (DEFINE-VOP (BIGNUM-FLOOR) ...) ; x-compiling (DEFINE-VOP (SIGNIFY-DIGIT) ...) ; x-compiling (DEFINE-VOP (DIGIT-ASHR) ...) ; x-compiling (DEFINE-VOP (DIGIT-ASHR/C) ...) ; x-compiling (DEFINE-VOP (DIGIT-LSHR DIGIT-ASHR) ...) ; x-compiling (DEFINE-VOP (DIGIT-ASHL DIGIT-ASHR) ...) ; x-compiling (DEFINE-VOP (LOGAND-BIGNUM/C) ...) ; x-compiling (DEFINE-VOP (MASK-SIGNED-FIELD-WORD/C) ...) ; x-compiling (DEFINE-VOP (MASK-SIGNED-FIELD-BIGNUM/C) ...) ; x-compiling (DEFINE-STATIC-FUN TWO-ARG-/ ...) ; x-compiling (DEFINE-STATIC-FUN TWO-ARG-GCD ...) ; x-compiling (DEFINE-STATIC-FUN TWO-ARG-LCM ...) ; x-compiling (DEFINE-STATIC-FUN TWO-ARG-AND ...) ; x-compiling (DEFINE-STATIC-FUN TWO-ARG-IOR ...) ; x-compiling (DEFINE-STATIC-FUN TWO-ARG-XOR ...) ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN *-TRANSFORMER ...) ; x-compiling (DEFTRANSFORM * ...) ; x-compiling (DEFTRANSFORM SB!VM::*-MOD64 ...) ; x-compiling (DEFTRANSFORM * ...) ; x-compiling (DEFTRANSFORM SB!VM::*-MODFX ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/arith.lisp ; in: ; DEFINE-VOP (SB!VM::FAST-*-C/SIGNED=>SIGNED SB!VM::FAST-SAFE-ARITH-OP) ; (SB!C:REGISTER-INLINE-CONSTANT :QWORD SB!VM::Y) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; in: ; DEFINE-VOP (SB!VM::FAST-*-C/FIXNUM=>FIXNUM SB!VM::FAST-SAFE-ARITH-OP) ; (SB!C:REGISTER-INLINE-CONSTANT :QWORD SB!VM::Y) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; in: DEFUN SB!VM::CONSTANTIZE ; (SB!C:REGISTER-INLINE-CONSTANT :QWORD SB!VM::X) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; ; caught STYLE-WARNING: ; 2 more uses of undefined function REGISTER-INLINE-CONSTANT ; ; compilation unit finished ; Undefined function: ; REGISTER-INLINE-CONSTANT ; caught 4 STYLE-WARNING conditions ; printed 4 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/arith.lisp-obj-tmp written ; compilation finished in 0:00:04.602 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/type-vops.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN MOVE-QWORD-TO-EAX ...) ; x-compiling (DEFUN GENERATE-FIXNUM-TEST ...) ; x-compiling (DEFUN %TEST-FIXNUM ...) ; x-compiling (DEFMACRO !N-FIXNUM-TAG-BITS-CASE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/type-vops.lisp ; in: DEFMACRO !N-FIXNUM-TAG-BITS-CASE ; (CDR SB!VM::OTHER-CLAUSE) ; ==> ; SB!VM::OTHER-CLAUSE ; ; note: deleting unreachable code ; x-compiling (DEFUN %LEA-FOR-LOWTAG-TEST ...) ; x-compiling (DEFUN %TEST-FIXNUM-AND-HEADERS ...) ; x-compiling (DEFUN %TEST-FIXNUM-AND-IMMEDIATE ...) ; x-compiling (DEFUN %TEST-FIXNUM-IMMEDIATE-AND-HEADERS ...) ; x-compiling (DEFUN %TEST-IMMEDIATE ...) ; x-compiling (DEFUN %TEST-IMMEDIATE-AND-HEADERS ...) ; x-compiling (DEFUN %TEST-LOWTAG ...) ; x-compiling (DEFUN %TEST-HEADERS ...) ; x-compiling (DEFINE-VOP (CHECK-TYPE) ...) ; x-compiling (DEFINE-VOP (TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (SIMPLE-CHECK-TYPE) ...) ; x-compiling (DEFINE-VOP (SIMPLE-TYPE-PREDICATE) ...) ; x-compiling (DEFMACRO !DEFINE-TYPE-VOPS ...) ; x-compiling (DEFINE-VOP (FIXNUMP/UNSIGNED-BYTE-64 SIMPLE-TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (FIXNUMP/SIGNED-BYTE-64 SIMPLE-TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (SIGNED-BYTE-64-P TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (CHECK-SIGNED-BYTE-64 CHECK-TYPE) ...) ; x-compiling (DEFINE-VOP (UNSIGNED-BYTE-64-P TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (CHECK-UNSIGNED-BYTE-64 CHECK-TYPE) ...) ; x-compiling (DEFUN POWER-OF-TWO-LIMIT-P ...) ; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-POWER-OF-TWO) ...) ; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED) ...) ; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-*) ...) ; x-compiling (DEFINE-VOP (SYMBOLP TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (CHECK-SYMBOL CHECK-TYPE) ...) ; x-compiling (DEFINE-VOP (CONSP TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (CHECK-CONS CHECK-TYPE) ...) ; x-compiling (DEFINE-VOP (%OTHER-POINTER-SUBTYPE-P TYPE-PREDICATE) ...) ; x-compiling (!DEFINE-TYPE-VOPS SIMD-PACK-P ...) ; x-compiling (DEFINE-VOP (CHECK-SIMD-PACK CHECK-TYPE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/type-vops.lisp ; in: DEFINE-VOP (CHECK-SIMD-PACK CHECK-TYPE) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RESULT SB!VM:SIMD-PACK-WIDETAG ; SB!VM:SIMD-PACK-SIZE SB!VM::NODE) ; (SB!VM::STOREW ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::VALUE ; (# 0) ; (# 1) ; (# 2))) ; SB!VM::RESULT SB!VM:SIMD-PACK-TAG-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::RESULT ; SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SIMD-PACK-P SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::VALUE)))) ; --> 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 COND IF ; --> PROGN 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 ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET COND IF ; --> COND THE PROGN 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!C:SC-CASE SB!VM::VALUE ; ((SB!VM::INT-SSE-REG SB!VM::INT-SSE-STACK) 0) ; ((SB!VM::SINGLE-SSE-REG SB!VM::SINGLE-SSE-STACK) 1) ; ((SB!VM::DOUBLE-SSE-REG SB!VM::DOUBLE-SSE-STACK) 2)) ; --> LET* ; ==> ; SB!VM::VALUE ; ; note: deleting unreachable code ; (SB!VM::STOREW ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::VALUE ; ((SB!VM::INT-SSE-REG SB!VM::INT-SSE-STACK) 0) ; ((SB!VM::SINGLE-SSE-REG SB!VM::SINGLE-SSE-STACK) 1) ; ((SB!VM::DOUBLE-SSE-REG SB!VM::DOUBLE-SSE-STACK) 2))) ; SB!VM::RESULT SB!VM:SIMD-PACK-TAG-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN 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 ; --> LET COND IF COND THE PROGN 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:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::VALUE ; ((SB!VM::INT-SSE-REG SB!VM::INT-SSE-STACK) 0) ; ((SB!VM::SINGLE-SSE-REG SB!VM::SINGLE-SSE-STACK) 1) ; ((SB!VM::DOUBLE-SSE-REG SB!VM::DOUBLE-SSE-STACK) 2))) ; ; note: deleting unreachable code ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::RESULT ; SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SIMD-PACK-P SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::VALUE))) ; ; note: deleting unreachable code ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::VALUE) ; --> SB!VM::MOVAPS-INST-EMITTER ; ==> ; SB!VM::EA ; ; note: deleting unreachable code ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::VALUE) ; --> SB!VM::MOVDQA-INST-EMITTER ; ==> ; SB!VM::EA ; ; note: deleting unreachable code ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::RESULT ; SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SIMD-PACK-P SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::VALUE))) ; ; note: deleting unreachable code ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RESULT SB!VM:SIMD-PACK-WIDETAG ; SB!VM:SIMD-PACK-SIZE SB!VM::NODE) ; (SB!VM::STOREW ; (SB!VM:FIXNUMIZE ; (SB!C:SC-CASE SB!VM::VALUE ; (# 0) ; (# 1) ; (# 2))) ; SB!VM::RESULT SB!VM:SIMD-PACK-TAG-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; (LET ((SB!VM::EA ; (SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::RESULT ; SB!VM:SIMD-PACK-LO-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG))) ; (IF (SB!VM::FLOAT-SIMD-PACK-P SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVAPS SB!VM::EA SB!VM::VALUE) ; (SB!ASSEM:INST SB!VM::MOVDQA SB!VM::EA SB!VM::VALUE)))) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF SB!VM::PSEUDO-ATOMIC LET ; --> SB!VM::STOREW LET COND IF PROGN 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!C::LVAR-TYPE SB!VM::LEAF) ; ; note: deleting unreachable code ; x-compiling (PRIMITIVE-TYPE-VOP CHECK-SIMD-PACK ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/type-vops.lisp ; in: DEFINE-VOP (CHECK-SIMD-PACK CHECK-TYPE) ; (SB!VM::FLOAT-SIMD-PACK-P SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-SIMD-PACK-P ; ; compilation unit finished ; Undefined function: ; FLOAT-SIMD-PACK-P ; caught 1 STYLE-WARNING condition ; printed 14 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/type-vops.lisp-obj-tmp written ; compilation finished in 0:00:01.639 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/subprim.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (LENGTH/LIST) ...) ; x-compiling (DEFINE-VOP (FAST-LENGTH/LIST) ...) ; x-compiling (DEFINE-STATIC-FUN LENGTH ...) ; x-compiling (DEFINE-STATIC-FUN %COERCE-CALLABLE-TO-FUN ...) ; x-compiling (DEFUN SUBPRIMITIVE-TLS-ALLOCATOR ...) ; x-compiling (DEFINE-VOP (ENSURE-SYMBOL-TLS-INDEX) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/subprim.lisp-obj-tmp written ; compilation finished in 0:00:00.102 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/debug.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (DEBUG-CUR-SP) ...) ; x-compiling (DEFINE-VOP (DEBUG-CUR-FP) ...) ; x-compiling (DEFINE-VOP (READ-CONTROL-STACK) ...) ; x-compiling (DEFINE-VOP (READ-CONTROL-STACK-C) ...) ; x-compiling (DEFINE-VOP (WRITE-CONTROL-STACK) ...) ; x-compiling (DEFINE-VOP (WRITE-CONTROL-STACK-C) ...) ; x-compiling (DEFINE-VOP (CODE-FROM-MUMBLE) ...) ; x-compiling (DEFINE-VOP (CODE-FROM-LRA CODE-FROM-MUMBLE) ...) ; x-compiling (DEFINE-VOP (CODE-FROM-FUNCTION CODE-FROM-MUMBLE) ...) ; x-compiling (DEFINE-VOP (%MAKE-LISP-OBJ) ...) ; x-compiling (DEFINE-VOP (GET-LISP-OBJ-ADDRESS) ...) ; x-compiling (DEFINE-VOP (FUN-WORD-OFFSET) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/debug.lisp-obj-tmp written ; compilation finished in 0:00:01.467 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/early-aliencomp.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN %ALIEN-FUNCALL ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/early-aliencomp.lisp-obj-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/c-call.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN MY-MAKE-WIRED-TN ...) ; x-compiling (DEFSTRUCT (ARG-STATE #) ...) ; x-compiling (DEFCONSTANT MAX-INT-ARGS ...) ; x-compiling (DEFCONSTANT MAX-XMM-ARGS ...) ; x-compiling (DEFUN INT-ARG ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ARG-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ARG-TN) ...) ; x-compiling (DEFUN FLOAT-ARG ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :ARG-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :ARG-TN) ...) ; x-compiling (DEFSTRUCT (RESULT-STATE #) ...) ; x-compiling (DEFUN RESULT-REG-OFFSET ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :RESULT-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :RESULT-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :RESULT-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :RESULT-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :RESULT-TN) ...) ; x-compiling (DEFUN MAKE-CALL-OUT-TNS ...) ; x-compiling (DEFTRANSFORM %ALIEN-FUNCALL ...) ; x-compiling (DEFKNOWN SIGN-EXTEND ...) ; x-compiling (DEFINE-VOP (SIGN-EXTEND) ...) ; x-compiling (DEFUN SIGN-EXTEND ...) ; x-compiling (DEFINE-VOP (FOREIGN-SYMBOL-SAP) ...) ; x-compiling (DEFINE-VOP (FOREIGN-SYMBOL-DATAREF-SAP) ...) ; x-compiling (DEFINE-VOP (CALL-OUT) ...) ; x-compiling (DEFINE-VOP (ALLOC-NUMBER-STACK-SPACE) ...) ; x-compiling (DEFINE-VOP (DEALLOC-NUMBER-STACK-SPACE) ...) ; x-compiling (DEFINE-VOP (ALLOC-ALIEN-STACK-SPACE) ...) ; x-compiling (DEFINE-VOP (TOUCH-OBJECT) ...) ; x-compiling (DEFUN ALIEN-CALLBACK-ACCESSOR-FORM ...) ; x-compiling (DEFUN ALIEN-CALLBACK-ASSEMBLER-WRAPPER ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/c-call.lisp-obj-tmp written ; compilation finished in 0:00:00.351 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (SLOT) ...) ; x-compiling (DEFINE-VOP (SET-SLOT) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (SET-SLOT) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::OBJECT SB!VM::OFFSET SB!VM::LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::OBJECT ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (INIT-SLOT SET-SLOT)) ; x-compiling (DEFINE-VOP (COMPARE-AND-SWAP-SLOT) ...) ; x-compiling (DEFINE-VOP (%SET-SYMBOL-GLOBAL-VALUE CELL-SET) ...) ; x-compiling (DEFINE-VOP (FAST-SYMBOL-GLOBAL-VALUE CELL-REF) ...) ; x-compiling (DEFINE-VOP (SYMBOL-GLOBAL-VALUE) ...) ; x-compiling (DEFUN WIRED-TLS-SYMBOL-P ...) ; x-compiling (DEFUN LOAD-TIME-TLS-OFFSET ...) ; x-compiling (DEFUN SYMBOL-ALWAYS-THREAD-LOCAL-P ...) ; x-compiling (DEFINE-VOP (%COMPARE-AND-SWAP-SYMBOL-VALUE) ...) ; x-compiling (DEFINE-VOP (SET) ...) ; x-compiling (DEFINE-VOP (SYMBOL-VALUE) ...) ; x-compiling (DEFINE-VOP (FAST-SYMBOL-VALUE SYMBOL-VALUE) ...) ; x-compiling (DEFINE-VOP (SYMEVAL/STATIC-WIRED) ...) ; x-compiling (DEFINE-VOP (FAST-SYMEVAL/STATIC-WIRED SYMEVAL/STATIC-WIRED) ...) ; x-compiling (DEFINE-VOP (BOUNDP) ...) ; x-compiling (DEFINE-VOP (SYMBOL-HASH) ...) ; x-compiling (DEFINE-VOP (FDEFN-FUN CELL-REF) ...) ; x-compiling (DEFINE-VOP (SAFE-FDEFN-FUN) ...) ; x-compiling (DEFINE-VOP (SET-FDEFN-FUN) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (SET-FDEFN-FUN) ; (SB!VM::STOREW FUNCTION SB!KERNEL:FDEFN SB!VM:FDEFN-FUN-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!KERNEL:FDEFN ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::RAW SB!KERNEL:FDEFN SB!VM:FDEFN-RAW-ADDR-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!KERNEL:FDEFN ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (FDEFN-MAKUNBOUND) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (FDEFN-MAKUNBOUND) ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!KERNEL:FDEFN SB!VM:FDEFN-FUN-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!KERNEL:FDEFN ; ; note: deleting unreachable code ; (SB!VM::STOREW (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) SB!KERNEL:FDEFN ; SB!VM:FDEFN-RAW-ADDR-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!KERNEL:FDEFN ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (BIND) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (BIND) ; (SB!VM::STOREW SB!VM::TMP SB!VM::BSP ; (- SB!VM:BINDING-VALUE-SLOT SB!VM:BINDING-SIZE)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TLS-INDEX SB!VM::BSP ; (- SB!VM:BINDING-SYMBOL-SLOT SB!VM:BINDING-SIZE)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (BIND/LET) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (BIND/LET) ; (SB!VM::STOREW SB!VM::TMP SB!VM::BSP SB!VM:BINDING-VALUE-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (UNBIND) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (UNBIND) ; (SB!VM::STOREW SB!VM::TEMP SB!VM::BSP SB!VM:BINDING-SYMBOL-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TEMP SB!VM::BSP SB!VM:BINDING-VALUE-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (UNBIND-TO-HERE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (UNBIND-TO-HERE) ; (SB!VM::STOREW SB!VM::ZERO SB!VM::BSP SB!VM:BINDING-SYMBOL-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::ZERO SB!VM::BSP SB!VM:BINDING-VALUE-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (BIND-SENTINEL) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (BIND-SENTINEL) ; (SB!VM::STOREW SB!VM:UNBOUND-MARKER-WIDETAG SB!VM::BSP ; (- SB!VM:BINDING-SYMBOL-SLOT SB!VM:BINDING-SIZE)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (UNBIND-SENTINEL) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/cell.lisp ; in: DEFINE-VOP (UNBIND-SENTINEL) ; (SB!VM::STOREW 0 SB!VM::BSP (- SB!VM:BINDING-VALUE-SLOT SB!VM:BINDING-SIZE)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; (SB!VM::STOREW 0 SB!VM::BSP (- SB!VM:BINDING-SYMBOL-SLOT SB!VM:BINDING-SIZE)) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::BSP ; ; note: deleting unreachable code ; x-compiling (DEFINE-FULL-REFFER CLOSURE-INDEX-REF ...) ; x-compiling (DEFINE-FULL-SETTER SET-FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFINE-FULL-REFFER FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFINE-VOP (CLOSURE-REF SLOT-REF) ...) ; x-compiling (DEFINE-VOP (CLOSURE-INIT SLOT-SET) ...) ; x-compiling (DEFINE-VOP (CLOSURE-INIT-FROM-FP) ...) ; x-compiling (DEFINE-VOP (VALUE-CELL-REF CELL-REF) ...) ; x-compiling (DEFINE-VOP (VALUE-CELL-SET CELL-SET) ...) ; x-compiling (DEFINE-VOP (INSTANCE-LENGTH) ...) ; x-compiling (DEFINE-FULL-REFFER INSTANCE-INDEX-REF ...) ; x-compiling (DEFINE-FULL-SETTER INSTANCE-INDEX-SET ...) ; x-compiling (DEFINE-FULL-COMPARE-AND-SWAP %COMPARE-AND-SWAP-INSTANCE-REF ...) ; x-compiling (DEFINE-FULL-REFFER CODE-HEADER-REF ...) ; x-compiling (DEFINE-FULL-SETTER CODE-HEADER-SET ...) ; x-compiling (DEFUN MAKE-EA-FOR-RAW-SLOT ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF/WORD) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF-C/WORD) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET/WORD) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET-C/WORD) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-INIT/WORD) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-ATOMIC-INCF-C/WORD) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF/SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF-C/SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET/SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET-C/SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-INIT/SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF/DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF-C/DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET/DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET-C/DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-INIT/DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF-C/COMPLEX-SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET-C/COMPLEX-SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-INIT/COMPLEX-SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF-C/COMPLEX-DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET-C/COMPLEX-DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-INIT/COMPLEX-DOUBLE) ...); ; compilation unit finished ; printed 15 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/cell.lisp-obj-tmp written ; compilation finished in 0:00:01.823 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/values.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (RESET-STACK-POINTER) ...) ; x-compiling (DEFINE-VOP (%%NIP-VALUES) ...) ; x-compiling (DEFINE-VOP (PUSH-VALUES) ...) ; x-compiling (DEFINE-VOP (VALUES-LIST) ...) ; x-compiling (DEFINE-VOP (%MORE-ARG-VALUES) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/values.lisp-obj-tmp written ; compilation finished in 0:00:00.168 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/alloc.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (LIST-OR-LIST*) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/alloc.lisp ; in: DEFINE-VOP (LIST-OR-LIST*) ; (SB!VM::STORE-CAR (SB!C:TN-REF-TN SB!VM::THINGS) SB!VM::PTR) ; --> LET SB!VM::STOREW LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STORE-CAR (SB!C:TN-REF-TN SB!VM::THINGS) SB!VM::PTR ; SB!VM:CONS-CDR-SLOT) ; --> LET SB!VM::STOREW LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::PTR SB!VM:CONS-CDR-SLOT ; SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STORE-CAR (SB!C:TN-REF-TN SB!VM::THINGS) SB!VM::PTR) ; --> LET SB!VM::STOREW LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::PTR SB!VM::PTR (- SB!VM:CONS-CDR-SLOT SB!VM:CONS-SIZE) ; SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STORE-CAR (SB!C:TN-REF-TN SB!VM::THINGS) SB!VM::PTR) ; --> LET SB!VM::STOREW LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STORE-CAR (SB!C:TN-REF-TN SB!VM::THINGS) SB!VM::PTR ; SB!VM:CONS-CDR-SLOT) ; --> LET SB!VM::STOREW LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::PTR SB!VM:CONS-CDR-SLOT ; SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STORE-CAR (SB!C:TN-REF-TN SB!VM::THINGS) SB!VM::PTR) ; --> LET SB!VM::STOREW LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::PTR SB!VM::PTR (- SB!VM:CONS-CDR-SLOT SB!VM:CONS-SIZE) ; SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::PTR ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (LIST LIST-OR-LIST*) ...) ; x-compiling (DEFINE-VOP (LIST* LIST-OR-LIST*) ...) ; x-compiling (DEFINE-VOP (ALLOCATE-VECTOR-ON-HEAP) ...) ; x-compiling (DEFINE-VOP (ALLOCATE-VECTOR-ON-STACK) ...) ; x-compiling (DEFINE-VOP (MAKE-FDEFN) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/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 COND IF ; --> PROGN 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 ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET COND IF ; --> COND THE PROGN 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 COND IF PROGN 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 ; --> LET COND IF COND THE PROGN 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 COND IF PROGN 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 ; --> LET COND IF COND THE PROGN 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 COND IF PROGN 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 ; --> LET COND IF COND THE PROGN 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::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 SB!VM::PSEUDO-ATOMIC LET ; --> SB!VM::STOREW LET COND IF PROGN 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 COND IF PROGN 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 COND IF PROGN 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!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) SB!VM::RESULT ; SB!VM:FDEFN-RAW-ADDR-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::RESULT ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (MAKE-CLOSURE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/alloc.lisp ; in: DEFINE-VOP (MAKE-CLOSURE) ; (SB!VM::STOREW SB!VM::TEMP SB!VM::RESULT SB!VM:CLOSURE-FUN-SLOT ; SB!VM:FUN-POINTER-LOWTAG) ; --> LET COND IF PROGN 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 ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (MAKE-VALUE-CELL) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/alloc.lisp ; in: DEFINE-VOP (MAKE-VALUE-CELL) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RESULT SB!VM:VALUE-CELL-HEADER-WIDETAG ; SB!VM:VALUE-CELL-SIZE SB!VM::NODE ; SB!VM::STACK-ALLOCATE-P) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::RESULT SB!VM:VALUE-CELL-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET COND IF ; --> PROGN 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::VALUE SB!VM::RESULT SB!VM:VALUE-CELL-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN 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::WITH-FIXED-ALLOCATION (SB!VM::RESULT SB!VM:VALUE-CELL-HEADER-WIDETAG ; SB!VM:VALUE-CELL-SIZE SB!VM::NODE ; SB!VM::STACK-ALLOCATE-P) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::RESULT SB!VM:VALUE-CELL-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF SB!VM::PSEUDO-ATOMIC LET ; --> SB!VM::STOREW LET COND IF PROGN 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::VALUE SB!VM::RESULT SB!VM:VALUE-CELL-VALUE-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::RESULT ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (MAKE-UNBOUND-MARKER) ...) ; x-compiling (DEFINE-VOP (MAKE-FUNCALLABLE-INSTANCE-TRAMP) ...) ; x-compiling (DEFINE-VOP (FIXED-ALLOC) ...) ; x-compiling (DEFINE-VOP (VAR-ALLOC) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/alloc.lisp ; in: DEFINE-VOP (VAR-ALLOC) ; (SB!VM::STOREW SB!VM::HEADER SB!VM::RESULT 0 SB!VM::LOWTAG) ; --> LET COND IF PROGN 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 ; ; compilation unit finished ; printed 33 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/alloc.lisp-obj-tmp written ; compilation finished in 0:00:00.360 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/call.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN STANDARD-ARG-LOCATION ...) ; x-compiling (DEFUN MAKE-RETURN-PC-PASSING-LOCATION ...) ; x-compiling (DEFUN MAKE-OLD-FP-PASSING-LOCATION ...) ; x-compiling (DEFUN MAKE-OLD-FP-SAVE-LOCATION ...) ; x-compiling (DEFUN MAKE-RETURN-PC-SAVE-LOCATION ...) ; x-compiling (DEFUN MAKE-ARG-COUNT-LOCATION ...) ; x-compiling (DEFUN MAKE-NFP-TN ...) ; x-compiling (DEFUN MAKE-STACK-POINTER-TN ...) ; x-compiling (DEFUN MAKE-NUMBER-STACK-POINTER-TN ...) ; x-compiling (DEFUN MAKE-UNKNOWN-VALUES-LOCATIONS ...) ; x-compiling (DEFUN SELECT-COMPONENT-FORMAT ...) ; x-compiling (DEFINE-VOP (CURRENT-FP) ...) ; x-compiling (DEFINE-VOP (COMPUTE-OLD-NFP) ...) ; x-compiling (DEFINE-VOP (ANCESTOR-FRAME-REF) ...) ; x-compiling (DEFINE-VOP (ANCESTOR-FRAME-SET) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/call.lisp ; in: DEFINE-VOP (ANCESTOR-FRAME-SET) ; (SB!VM::STOREW SB!VM::VALUE SB!VM::FRAME-POINTER ; (SB!VM::FRAME-WORD-OFFSET ; (SB!C:TN-OFFSET SB!VM::VARIABLE-HOME-TN))) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::FRAME-POINTER ; ; note: deleting unreachable code ; x-compiling (DEFINE-FRAME-OP DOUBLE-FLOAT ...) ; x-compiling (DEFINE-FRAME-OP SINGLE-FLOAT ...) ; x-compiling (DEFINE-FRAME-OP COMPLEX-DOUBLE-FLOAT ...) ; x-compiling (DEFINE-FRAME-OP COMPLEX-SINGLE-FLOAT ...) ; x-compiling (DEFINE-FRAME-OP SIGNED-BYTE-64 ...) ; x-compiling (DEFINE-FRAME-OP UNSIGNED-BYTE-64 ...) ; x-compiling (DEFINE-FRAME-OP SYSTEM-AREA-POINTER ...) ; x-compiling (DEFUN PRIMITIVE-TYPE-INDIRECT-CELL-TYPE ...) ; x-compiling (DEFINE-VOP (XEP-ALLOCATE-FRAME) ...) ; x-compiling (DEFINE-VOP (ALLOCATE-FRAME) ...) ; x-compiling (DEFINE-VOP (ALLOCATE-FULL-CALL-FRAME) ...) ; x-compiling (DEFUN DEFAULT-UNKNOWN-VALUES ...) ; x-compiling (DEFUN RECEIVE-UNKNOWN-VALUES ...) ; x-compiling (DEFINE-VOP (UNKNOWN-VALUES-RECEIVER) ...) ; x-compiling (DEFUN CHECK-OCFP-AND-RETURN-PC ...) ; x-compiling (DEFUN EMIT-BLOCK-HEADER ...) ; x-compiling (DEFINE-VOP (CALL-LOCAL) ...) ; x-compiling (DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER) ...) ; x-compiling (DEFINE-VOP (KNOWN-CALL-LOCAL) ...) ; x-compiling (DEFINE-VOP (KNOWN-RETURN) ...) ; x-compiling (DEFINE-FULL-CALL CALL ...) ; x-compiling (DEFINE-FULL-CALL CALL-NAMED ...) ; x-compiling (DEFINE-FULL-CALL MULTIPLE-CALL ...) ; x-compiling (DEFINE-FULL-CALL MULTIPLE-CALL-NAMED ...) ; x-compiling (DEFINE-FULL-CALL TAIL-CALL ...) ; x-compiling (DEFINE-FULL-CALL TAIL-CALL-NAMED ...) ; x-compiling (DEFINE-FULL-CALL CALL-VARIABLE ...) ; x-compiling (DEFINE-FULL-CALL MULTIPLE-CALL-VARIABLE ...) ; x-compiling (DEFINE-VOP (TAIL-CALL-VARIABLE) ...) ; x-compiling (DEFINE-VOP (RETURN-SINGLE) ...) ; x-compiling (DEFINE-VOP (RETURN) ...) ; x-compiling (DEFINE-VOP (RETURN-MULTIPLE) ...) ; x-compiling (DEFINE-VOP (SETUP-ENVIRONMENT) ...) ; x-compiling (DEFINE-VOP (SETUP-CLOSURE-ENVIRONMENT) ...) ; x-compiling (DEFINE-VOP (COPY-MORE-ARG) ...) ; x-compiling (DEFINE-VOP (MORE-KW-ARG) ...) ; x-compiling (DEFINE-VOP (MORE-ARG) ...) ; x-compiling (DEFINE-VOP (LISTIFY-REST-ARGS) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/call.lisp ; in: DEFINE-VOP (LISTIFY-REST-ARGS) ; (SB!VM::STOREW SB!VM::DST SB!VM::DST -1 SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::RAX SB!VM::DST 0 SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::DST 1 SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::DST SB!VM::DST -1 SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::RAX SB!VM::DST 0 SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::DST 1 SB!VM:LIST-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (MORE-ARG-CONTEXT) ...) ; x-compiling (DEFINE-VOP (VERIFY-ARG-COUNT) ...) ; x-compiling (DEF ARG-COUNT-ERROR ...) ; x-compiling (DEF TYPE-CHECK-ERROR ...) ; x-compiling (DEF LAYOUT-INVALID-ERROR ...) ; x-compiling (DEF ODD-KEY-ARGS-ERROR ...) ; x-compiling (DEF UNKNOWN-KEY-ARG-ERROR ...) ; x-compiling (DEF NIL-FUN-RETURNED-ERROR ...) ; x-compiling (DEFINE-VOP (TYPE-CHECK-ERROR/WORD) ...) ; x-compiling (DEFINE-VOP (TYPE-CHECK-ERROR/WORD/C) ...) ; x-compiling (DEFUN EMIT-SINGLE-STEP-TEST ...) ; x-compiling (DEFINE-VOP (STEP-INSTRUMENT-BEFORE-VOP) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/call.lisp ; in: DEFINE-VOP (COPY-MORE-ARG) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; in: DEFINE-VOP (ALLOCATE-FRAME) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; in: DEFINE-VOP (XEP-ALLOCATE-FRAME) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; ; compilation unit finished ; Undefined function: ; SB-ALLOCATED-SIZE ; caught 3 STYLE-WARNING conditions ; printed 7 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/call.lisp-obj-tmp written ; compilation finished in 0:00:03.647 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/nlx.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN MAKE-NLX-SP-TN ...) ; x-compiling (DEFUN MAKE-NLX-ENTRY-ARG-START-LOCATION ...) ; x-compiling (DEFUN CATCH-BLOCK-EA ...) ; x-compiling (DEFINE-VOP (SAVE-DYNAMIC-STATE) ...) ; x-compiling (DEFINE-VOP (RESTORE-DYNAMIC-STATE) ...) ; x-compiling (DEFINE-VOP (CURRENT-STACK-POINTER) ...) ; x-compiling (DEFINE-VOP (CURRENT-BINDING-POINTER) ...) ; x-compiling (DEFINE-VOP (MAKE-UNWIND-BLOCK) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/nlx.lisp ; in: DEFINE-VOP (MAKE-UNWIND-BLOCK) ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:UNWIND-BLOCK-CURRENT-UWP-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:CATCH-BLOCK-ENTRY-PC-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (MAKE-CATCH-BLOCK) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/nlx.lisp ; in: DEFINE-VOP (MAKE-CATCH-BLOCK) ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:UNWIND-BLOCK-CURRENT-UWP-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:CATCH-BLOCK-ENTRY-PC-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TAG BLOCK SB!VM:CATCH-BLOCK-TAG-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:CATCH-BLOCK-PREVIOUS-CATCH-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (SET-UNWIND-PROTECT) ...) ; x-compiling (DEFINE-VOP (UNLINK-CATCH-BLOCK) ...) ; x-compiling (DEFINE-VOP (UNLINK-UNWIND-PROTECT) ...) ; x-compiling (DEFINE-VOP (NLX-ENTRY) ...) ; x-compiling (DEFINE-VOP (NLX-ENTRY-MULTIPLE) ...) ; x-compiling (DEFINE-VOP (UWP-ENTRY) ...) ; x-compiling (DEFINE-VOP (UNWIND-TO-FRAME-AND-CALL) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/nlx.lisp ; in: DEFINE-VOP (UNWIND-TO-FRAME-AND-CALL) ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:UNWIND-BLOCK-CURRENT-UWP-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::TEMP BLOCK SB!VM:UNWIND-BLOCK-CURRENT-CONT-SLOT) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; BLOCK ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 8 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/nlx.lisp-obj-tmp written ; compilation finished in 0:00:00.652 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/late-nlx.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN MAKE-DYNAMIC-STATE-TNS ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/late-nlx.lisp-obj-tmp written ; compilation finished in 0:00:00.055 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/show.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (PRINT) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/show.lisp-obj-tmp written ; compilation finished in 0:00:00.030 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/array.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEF!TYPE LOW-INDEX ...) ; x-compiling (DEFINE-VOP (MAKE-ARRAY-HEADER) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/array.lisp ; in: DEFINE-VOP (MAKE-ARRAY-HEADER) ; (SB!VM::STOREW SB!VM::HEADER SB!VM::RESULT 0 SB!VM:OTHER-POINTER-LOWTAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::MOV-INST-EMITTER ; --> SB!VM::MAKE-EA-FOR-OBJECT-SLOT SB!VM::MAKE-EA ; ==> ; SB!VM::RESULT ; ; note: deleting unreachable code ; x-compiling (DEFINE-FULL-REFFER %ARRAY-DIMENSION ...) ; x-compiling (DEFINE-FULL-SETTER %SET-ARRAY-DIMENSION ...) ; x-compiling (DEFINE-VOP (ARRAY-RANK-VOP) ...) ; x-compiling (DEFINE-VOP (ARRAY-RANK-VOP=>FIXNUM) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/array.lisp ; in: DEFINE-VOP (ARRAY-RANK-VOP=>FIXNUM) ; (IF (= SB!VM::SCALE 2) ; 1 ; SB!VM::SCALE) ; ==> ; SB!VM::SCALE ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (CHECK-BOUND) ...) ; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR ...) ; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-64 ...) ; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-FIXNUM ...) ; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-FIXNUM ...) ; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-64 ...) ; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-63 ...) ; x-compiling (DEFINE-FULL-COMPARE-AND-SWAP %COMPARE-AND-SWAP-SVREF ...) ; x-compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR ...) ; x-compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2 ...) ; x-compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4 ...) ; x-compiling (DEFUN MAKE-EA-FOR-FLOAT-REF ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-REF-C-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET-C-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-REF-C/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET-C-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-REF-C-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET-C-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-REF-C-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET-C-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-8 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-BASE-STRING ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-16 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-CHARACTER-STRING ...) ; x-compiling (DEFINE-FULL-REFFER VECTOR-RAW-BITS ...) ; x-compiling (DEFINE-FULL-SETTER SET-VECTOR-RAW-BITS ...) ; x-compiling (DEFINE-VOP (ARRAY-ATOMIC-INCF/WORD) ...); ; compilation unit finished ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/array.lisp-obj-tmp written ; compilation finished in 0:00:05.420 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/type-error.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (DATA-NIL-VECTOR-REF) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...) ; x-compiling (DEFINE-VOP (TYPE-CHECK-ERROR/C) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/type-error.lisp-obj-tmp written ; compilation finished in 0:00:00.167 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/pred.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (BRANCH) ...) ; x-compiling (DEFINE-VOP (BRANCH-IF) ...) ; x-compiling (DEFVAR *CMOV-PTYPE-REPRESENTATION-VOP* ...) ; x-compiling (DEFUN CONVERT-CONDITIONAL-MOVE-P ...) ; x-compiling (DEFINE-VOP (MOVE-IF) ...) ; x-compiling (DEF-MOVE-IF MOVE-IF/T ...) ; x-compiling (DEF-MOVE-IF MOVE-IF/FX ...) ; x-compiling (DEF-MOVE-IF MOVE-IF/UNSIGNED ...) ; x-compiling (DEF-MOVE-IF MOVE-IF/SIGNED ...) ; x-compiling (DEF-MOVE-IF MOVE-IF/CHAR ...) ; x-compiling (DEF-MOVE-IF MOVE-IF/SAP ...) ; x-compiling (DEFINE-VOP (IF-EQ) ...) ; x-compiling (DEF FAST-IF-EQ-CHARACTER ...) ; x-compiling (DEF FAST-IF-EQ-CHARACTER/C ...) ; x-compiling (DEF FAST-IF-EQ-FIXNUM ...) ; x-compiling (DEF FAST-IF-EQ-FIXNUM/C ...) ; x-compiling (DEF FAST-IF-EQ-SIGNED ...) ; x-compiling (DEF FAST-IF-EQ-SIGNED/C ...) ; x-compiling (DEF FAST-IF-EQ-UNSIGNED ...) ; x-compiling (DEF FAST-IF-EQ-UNSIGNED/C ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/pred.lisp-obj-tmp written ; compilation finished in 0:00:00.542 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/late-type-vops.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (!DEFINE-TYPE-VOPS FIXNUMP ...) ; x-compiling (!DEFINE-TYPE-VOPS FUNCTIONP ...) ; x-compiling (!DEFINE-TYPE-VOPS LISTP ...) ; x-compiling (!DEFINE-TYPE-VOPS %INSTANCEP ...) ; x-compiling (!DEFINE-TYPE-VOPS %OTHER-POINTER-P ...) ; x-compiling (!DEFINE-TYPE-VOPS BIGNUMP ...) ; x-compiling (!DEFINE-TYPE-VOPS RATIOP ...) ; x-compiling (!DEFINE-TYPE-VOPS COMPLEXP ...) ; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-RATIONAL-P ...) ; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-FLOAT-P ...) ; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-SINGLE-FLOAT-P ...) ; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-DOUBLE-FLOAT-P ...) ; x-compiling (!DEFINE-TYPE-VOPS SINGLE-FLOAT-P ...) ; x-compiling (!DEFINE-TYPE-VOPS DOUBLE-FLOAT-P ...) ; x-compiling (!DEFINE-TYPE-VOPS SIMPLE-STRING-P ...) ; x-compiling (DEFINE-SIMPLE-ARRAY-TYPE-VOPS) ; x-compiling (DEF) ; x-compiling (!DEFINE-TYPE-VOPS CHARACTERP ...) ; x-compiling (!DEFINE-TYPE-VOPS SYSTEM-AREA-POINTER-P ...) ; x-compiling (!DEFINE-TYPE-VOPS WEAK-POINTER-P ...) ; x-compiling (!DEFINE-TYPE-VOPS CODE-COMPONENT-P ...) ; x-compiling (!DEFINE-TYPE-VOPS LRA-P ...) ; x-compiling (!DEFINE-TYPE-VOPS FDEFN-P ...) ; x-compiling (!DEFINE-TYPE-VOPS CLOSUREP ...) ; x-compiling (!DEFINE-TYPE-VOPS SIMPLE-FUN-P ...) ; x-compiling (!DEFINE-TYPE-VOPS FUNCALLABLE-INSTANCE-P ...) ; x-compiling (!DEFINE-TYPE-VOPS ARRAY-HEADER-P ...) ; x-compiling (!DEFINE-TYPE-VOPS STRINGP ...) ; x-compiling (!DEFINE-TYPE-VOPS BASE-STRING-P ...) ; x-compiling (!DEFINE-TYPE-VOPS BIT-VECTOR-P ...) ; x-compiling (!DEFINE-TYPE-VOPS VECTOR-NIL-P ...) ; x-compiling (!DEFINE-TYPE-VOPS CHARACTER-STRING-P ...) ; x-compiling (!DEFINE-TYPE-VOPS VECTORP ...) ; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-VECTOR-P ...) ; x-compiling (!DEFINE-TYPE-VOPS SIMPLE-ARRAY-P ...) ; x-compiling (!DEFINE-TYPE-VOPS ARRAYP ...) ; x-compiling (!DEFINE-TYPE-VOPS NUMBERP ...) ; x-compiling (!DEFINE-TYPE-VOPS RATIONALP ...) ; x-compiling (!DEFINE-TYPE-VOPS INTEGERP ...) ; x-compiling (!DEFINE-TYPE-VOPS FLOATP ...) ; x-compiling (!DEFINE-TYPE-VOPS REALP ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/late-type-vops.lisp-obj-tmp written ; compilation finished in 0:00:03.385 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/x86-64/assem-rtns.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-ASSEMBLY-ROUTINE (THROW #) ...) ; x-compiling (DEFINE-ASSEMBLY-ROUTINE (UNWIND # ...) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/assembly/x86-64/assem-rtns.lisp-obj-tmp written ; compilation finished in 0:00:00.742 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/x86-64/array.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/assembly/x86-64/array.lisp-obj-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/x86-64/arith.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN !BOTH-FIXNUM-P ...) ; x-compiling (DEFUN !SOME-FIXNUM-P ...) ; x-compiling (DEFINE-GENERIC-ARITH-ROUTINE (+ 10) ...) ; x-compiling (DEFINE-GENERIC-ARITH-ROUTINE (- 10) ...) ; x-compiling (DEFINE-GENERIC-ARITH-ROUTINE (* 30) ...) ; x-compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-NEGATE # ...) ...) ; x-compiling (DEFINE-COND-ASSEM-RTN GENERIC-< ...) ; x-compiling (DEFINE-COND-ASSEM-RTN GENERIC-> ...) ; x-compiling (DEFINE-VOP (GENERIC-EQL) ...) ; x-compiling (DEFINE-VOP (GENERIC-=) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/assembly/x86-64/arith.lisp-obj-tmp written ; compilation finished in 0:00:00.238 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/x86-64/alloc.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/assembly/x86-64/alloc.lisp-obj-tmp written ; compilation finished in 0:00:00.004 RETURN-MULTIPLE assembled TAIL-CALL-VARIABLE assembled THROW assembled UNWIND assembled GENERIC-+ assembled GENERIC-- assembled GENERIC-* assembled ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/assembly/x86-64/arith.lisp ; in: ; DEFINE-ASSEMBLY-ROUTINE (GENERIC-NEGATE (:COST 10) (:RETURN-STYLE :FULL-CALL) ; (:POLICY :SAFE) (:TRANSLATE %NEGATE) ...) ; (SB!C:DEFINE-ASSEMBLY-ROUTINE (SB!VM::GENERIC-NEGATE (:COST 10) ; (:RETURN-STYLE :FULL-CALL) (:POLICY :SAFE) ; (:TRANSLATE SB!KERNEL:%NEGATE) (:SAVE-P T)) ; ((:ARG SB!VM::X (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::RDX-OFFSET) ; (:RES SB!VM::RES (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) ; SB!VM::RDX-OFFSET) ; (:TEMP SB!VM::RAX SB!VM::UNSIGNED-REG SB!VM::RAX-OFFSET) ; (:TEMP SB!VM::RCX SB!VM::UNSIGNED-REG SB!VM::RCX-OFFSET)) ; (SB!ASSEM:INST SB!VM::TEST (SB!VM::REG-IN-SIZE SB!VM::X :BYTE) ; SB!VM:FIXNUM-TAG-MASK) ; (SB!ASSEM:INST SB!VM::JMP :Z FIXNUM) ; (SB!ASSEM:INST PUSH SB!VM::RBP-TN) ; (SB!ASSEM:INST SB!VM::MOV SB!VM::RBP-TN SB!VM::RSP-TN) ; (SB!ASSEM:INST SB!VM::SUB SB!VM::RSP-TN SB!VM:N-WORD-BYTES) ; (SB!ASSEM:INST PUSH ; (SB!VM::MAKE-EA :QWORD :BASE SB!VM::RBP-TN :DISP ; (SB!VM::FRAME-BYTE-OFFSET ; SB!VM:RETURN-PC-SAVE-OFFSET))) ; (SB!ASSEM:INST SB!VM::MOV SB!VM::RCX (SB!VM:FIXNUMIZE 1)) ; (SB!ASSEM:INST SB!VM::JMP ; (SB!VM::MAKE-EA :QWORD :DISP ; (+ SB!VM::NIL-VALUE ; (SB!VM:STATIC-FUN-OFFSET ; 'SB!KERNEL:%NEGATE)))) ; FIXNUM ; ...) ; --> PROGN ; ==> ; (LET ((SB!VM::X ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::DESCRIPTOR-REG) :OFFSET ; SB!VM::RDX-OFFSET)) ; (SB!VM::RES ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::DESCRIPTOR-REG) :OFFSET ; SB!VM::RDX-OFFSET)) ; (SB!VM::RAX ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::UNSIGNED-REG) :OFFSET ; SB!VM::RAX-OFFSET)) ; (SB!VM::RCX ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::UNSIGNED-REG) :OFFSET ; SB!VM::RCX-OFFSET))) ; (SB!ASSEM:ASSEMBLE (SB!C:*CODE-SEGMENT* 'SB!VM::GENERIC-NEGATE) ; SB!VM::GENERIC-NEGATE ; (PUSH (CONS 'SB!VM::GENERIC-NEGATE SB!VM::GENERIC-NEGATE) ; SB!C::*ENTRY-POINTS*) ; (SB!ASSEM:INST SB!VM::TEST (SB!VM::REG-IN-SIZE SB!VM::X :BYTE) ; SB!VM:FIXNUM-TAG-MASK) ; (SB!ASSEM:INST SB!VM::JMP :Z FIXNUM) ; (SB!ASSEM:INST PUSH SB!VM::RBP-TN) ; (SB!ASSEM:INST SB!VM::MOV SB!VM::RBP-TN SB!VM::RSP-TN) ; (SB!ASSEM:INST SB!VM::SUB SB!VM::RSP-TN SB!VM:N-WORD-BYTES) ; (SB!ASSEM:INST PUSH ; (SB!VM::MAKE-EA :QWORD :BASE SB!VM::RBP-TN :DISP ; (SB!VM::FRAME-BYTE-OFFSET ; SB!VM:RETURN-PC-SAVE-OFFSET))) ; (SB!ASSEM:INST SB!VM::MOV SB!VM::RCX (SB!VM:FIXNUMIZE 1)) ; (SB!ASSEM:INST SB!VM::JMP ; (SB!VM::MAKE-EA :QWORD :DISP (+ SB!VM::NIL-VALUE #))) ; ...) ; (WHEN SB-XC:*COMPILE-PRINT* ; (FORMAT *ERROR-OUTPUT* "~S assembled~%" 'SB!VM::GENERIC-NEGATE))) ; ; caught STYLE-WARNING: ; The variable RAX is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition GENERIC-NEGATE assembled GENERIC-< assembled GENERIC-> assembled GENERIC-EQL assembled GENERIC-= assembled ALLOC-SIGNED-BIGNUM-IN-RAX assembled ALLOC-SIGNED-BIGNUM-IN-RCX assembled ALLOC-SIGNED-BIGNUM-IN-RDX assembled ALLOC-SIGNED-BIGNUM-IN-RBX assembled ALLOC-SIGNED-BIGNUM-IN-RSI assembled ALLOC-SIGNED-BIGNUM-IN-RDI assembled ALLOC-SIGNED-BIGNUM-IN-R8 assembled ALLOC-SIGNED-BIGNUM-IN-R9 assembled ALLOC-SIGNED-BIGNUM-IN-R10 assembled ALLOC-SIGNED-BIGNUM-IN-R12 assembled ALLOC-SIGNED-BIGNUM-IN-R13 assembled ALLOC-SIGNED-BIGNUM-IN-R14 assembled ALLOC-SIGNED-BIGNUM-IN-R15 assembled ALLOC-UNSIGNED-BIGNUM-IN-RAX assembled ALLOC-UNSIGNED-BIGNUM-IN-RCX assembled ALLOC-UNSIGNED-BIGNUM-IN-RDX assembled ALLOC-UNSIGNED-BIGNUM-IN-RBX assembled ALLOC-UNSIGNED-BIGNUM-IN-RSI assembled ALLOC-UNSIGNED-BIGNUM-IN-RDI assembled ALLOC-UNSIGNED-BIGNUM-IN-R8 assembled ALLOC-UNSIGNED-BIGNUM-IN-R9 assembled ALLOC-UNSIGNED-BIGNUM-IN-R10 assembled ALLOC-UNSIGNED-BIGNUM-IN-R12 assembled ALLOC-UNSIGNED-BIGNUM-IN-R13 assembled ALLOC-UNSIGNED-BIGNUM-IN-R14 assembled ALLOC-UNSIGNED-BIGNUM-IN-R15 assembled ALLOC-TLS-INDEX-IN-RAX assembled ALLOC-TLS-INDEX-IN-RCX assembled ALLOC-TLS-INDEX-IN-RDX assembled ALLOC-TLS-INDEX-IN-RBX assembled ALLOC-TLS-INDEX-IN-RSI assembled ALLOC-TLS-INDEX-IN-RDI assembled ALLOC-TLS-INDEX-IN-R8 assembled ALLOC-TLS-INDEX-IN-R9 assembled ALLOC-TLS-INDEX-IN-R10 assembled ALLOC-TLS-INDEX-IN-R12 assembled ALLOC-TLS-INDEX-IN-R13 assembled ALLOC-TLS-INDEX-IN-R14 assembled ALLOC-TLS-INDEX-IN-R15 assembled ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/pseudo-vops.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFINE-VOP (NOTE-ENVIRONMENT-START) ...) ; x-compiling (DEFINE-VOP (MOVE-OPERAND) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/pseudo-vops.lisp-obj-tmp written ; compilation finished in 0:00:01.165 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/aliencomp.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN %SAP-ALIEN ...) ; x-compiling (DEFKNOWN ALIEN-SAP ...) ; x-compiling (DEFKNOWN SLOT ...) ; x-compiling (DEFKNOWN %SET-SLOT ...) ; x-compiling (DEFKNOWN %SLOT-ADDR ...) ; x-compiling (DEFKNOWN DEREF ...) ; x-compiling (DEFKNOWN %SET-DEREF ...) ; x-compiling (DEFKNOWN %DEREF-ADDR ...) ; x-compiling (DEFKNOWN %HEAP-ALIEN ...) ; x-compiling (DEFKNOWN %SET-HEAP-ALIEN ...) ; x-compiling (DEFKNOWN %HEAP-ALIEN-ADDR ...) ; x-compiling (DEFKNOWN MAKE-LOCAL-ALIEN ...) ; x-compiling (DEFKNOWN NOTE-LOCAL-ALIEN-TYPE ...) ; x-compiling (DEFKNOWN LOCAL-ALIEN ...) ; x-compiling (DEFKNOWN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...) ; x-compiling (DEFKNOWN %SET-LOCAL-ALIEN ...) ; x-compiling (DEFKNOWN %LOCAL-ALIEN-ADDR ...) ; x-compiling (DEFKNOWN DISPOSE-LOCAL-ALIEN ...) ; x-compiling (DEFKNOWN %CAST ...) ; x-compiling (DEFKNOWN NATURALIZE ...) ; x-compiling (DEFKNOWN DEPORT ...) ; x-compiling (DEFKNOWN DEPORT-ALLOC ...) ; x-compiling (DEFKNOWN %ALIEN-VALUE ...) ; x-compiling (DEFKNOWN (SETF %ALIEN-VALUE) ...) ; x-compiling (DEFKNOWN ALIEN-FUNCALL ...) ; x-compiling (DEFTRANSFORM SLOT ...) ; x-compiling (DEFTRANSFORM %SET-SLOT ...) ; x-compiling (DEFTRANSFORM %SLOT-ADDR ...) ; x-compiling (DEFUN FIND-SLOT-OFFSET-AND-TYPE ...) ; x-compiling (DEFTRANSFORM SLOT ...) ; x-compiling (DEFTRANSFORM %SET-SLOT ...) ; x-compiling (DEFOPTIMIZER (%SLOT-ADDR DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %SLOT-ADDR ...) ; x-compiling (DEFUN FIND-DEREF-ALIEN-TYPE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/aliencomp.lisp ; in: DEFUN FIND-DEREF-ALIEN-TYPE ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; note: deleting unreachable code ; x-compiling (DEFUN FIND-DEREF-ELEMENT-TYPE ...) ; x-compiling (DEFUN COMPUTE-DEREF-GUTS ...) ; x-compiling (DEFTRANSFORM DEREF ...) ; x-compiling (DEFTRANSFORM %SET-DEREF ...) ; x-compiling (DEFOPTIMIZER (%DEREF-ADDR DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %DEREF-ADDR ...) ; x-compiling (DEFUN HEAP-ALIEN-SAP-AND-TYPE ...) ; x-compiling (DEFTRANSFORM %HEAP-ALIEN ...) ; x-compiling (DEFTRANSFORM %SET-HEAP-ALIEN ...) ; x-compiling (DEFOPTIMIZER (%HEAP-ALIEN-ADDR DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %HEAP-ALIEN-ADDR ...) ; x-compiling (DEFUN ALIEN-INFO-CONSTANT-OR-ABORT ...) ; x-compiling (DEFTRANSFORM MAKE-LOCAL-ALIEN ...) ; x-compiling (DEFTRANSFORM NOTE-LOCAL-ALIEN-TYPE ...) ; x-compiling (DEFTRANSFORM LOCAL-ALIEN ...) ; x-compiling (DEFTRANSFORM %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...) ; x-compiling (DEFTRANSFORM %SET-LOCAL-ALIEN ...) ; x-compiling (DEFOPTIMIZER (%LOCAL-ALIEN-ADDR DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %LOCAL-ALIEN-ADDR ...) ; x-compiling (DEFOPTIMIZER (%CAST DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %CAST ...) ; x-compiling (DEFTRANSFORM ALIEN-SAP ...) ; x-compiling (DEFOPTIMIZER (%SAP-ALIEN DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %SAP-ALIEN ...) ; x-compiling (FLET (#) ...) ; x-compiling (DEFUN COUNT-LOW-ORDER-ZEROS ...) ; x-compiling (DEFTRANSFORM / ...) ; x-compiling (DEFTRANSFORM ASH ...) ; x-compiling (DEFTRANSFORM ALIEN-FUNCALL ...) ; x-compiling (DEFTRANSFORM ALIEN-FUNCALL ...) ; x-compiling (DEFOPTIMIZER (%ALIEN-FUNCALL DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE) ...) ; x-compiling (DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/aliencomp.lisp ; in: DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE) ; (SB!C::ANNOTATE-ORDINARY-LVAR FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: ANNOTATE-ORDINARY-LVAR ; in: DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT) ; (SB!C::LVAR-TN SB!C:CALL BLOCK SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TN ; (SB!C::MOVE-LVAR-RESULT SB!C:CALL BLOCK SB!C::RESULT-TNS SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: MOVE-LVAR-RESULT ; ; compilation unit finished ; Undefined functions: ; ANNOTATE-ORDINARY-LVAR LVAR-TN MOVE-LVAR-RESULT ; caught 3 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/aliencomp.lisp-obj-tmp written ; compilation finished in 0:00:00.342 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ltv.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN %LOAD-TIME-VALUE ...) ; x-compiling (DEF-IR1-TRANSLATOR LOAD-TIME-VALUE ...) ; x-compiling (DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ltv.lisp ; in: DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT) ; (SB!C::MOVE-LVAR-RESULT SB!C::NODE BLOCK (LIST SB!C:TN) SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: MOVE-LVAR-RESULT ; ; compilation unit finished ; Undefined function: ; MOVE-LVAR-RESULT ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/ltv.lisp-obj-tmp written ; compilation finished in 0:00:00.064 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/gtn.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN GTN-ANALYZE ...) ; x-compiling (DEFUN ASSIGN-LAMBDA-VAR-TNS ...) ; x-compiling (DEFUN ASSIGN-IR2-PHYSENV ...) ; x-compiling (DEFUN HAS-FULL-CALL-USE ...) ; x-compiling (DEFUN USE-STANDARD-RETURNS ...) ; x-compiling (DEFUN RETURN-VALUE-EFFICIENCY-NOTE ...) ; x-compiling (DEFUN RETURN-INFO-FOR-SET ...) ; x-compiling (DEFUN ASSIGN-RETURN-LOCATIONS ...) ; x-compiling (DEFUN ASSIGN-IR2-NLX-INFO ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/gtn.lisp-obj-tmp written ; compilation finished in 0:00:00.118 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ltn.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN NODE-LTN-POLICY ...) ; x-compiling (DEFUN LTN-POLICY-SAFE-P ...) ; x-compiling (DEFUN ENSURE-BLOCK-HAS-IR2-BLOCK ...) ; x-compiling (DEFUN FIXUP-IR2-BLOCKS-FOR-SPLIT-BLOCK ...) ; x-compiling (DECLAIM (INLINE LVAR-PTYPE)) ; x-compiling (DEFUN LVAR-PTYPE ...) ; x-compiling (DEFUN LVAR-DELAYED-LEAF ...) ; x-compiling (DEFUN ANNOTATE-1-VALUE-LVAR ...) ; x-compiling (DEFUN ANNOTATE-ORDINARY-LVAR ...) ; x-compiling (DEFUN ANNOTATE-FUN-LVAR ...) ; x-compiling (DEFUN FLUSH-FULL-CALL-TAIL-TRANSFER ...) ; x-compiling (DEFUN LTN-DEFAULT-CALL ...) ; x-compiling (DEFUN ANNOTATE-UNKNOWN-VALUES-LVAR ...) ; x-compiling (DEFUN ANNOTATE-FIXED-VALUES-LVAR ...) ; x-compiling (DEFUN LTN-ANALYZE-RETURN ...) ; x-compiling (DEFUN LTN-ANALYZE-MV-BIND ...) ; x-compiling (DEFUN LTN-ANALYZE-MV-CALL ...) ; x-compiling (DEFUN LTN-ANALYZE-LOCAL-CALL ...) ; x-compiling (DEFUN SET-TAIL-LOCAL-CALL-SUCCESSOR ...) ; x-compiling (DEFUN LTN-ANALYZE-SET ...) ; x-compiling (DEFUN LTN-ANALYZE-IF ...) ; x-compiling (DEFUN LTN-ANALYZE-EXIT ...) ; x-compiling (DEFOPTIMIZER (%UNWIND-PROTECT LTN-ANNOTATE) ...) ; x-compiling (DEFOPTIMIZER (%POP-VALUES LTN-ANNOTATE) ...) ; x-compiling (DEFOPTIMIZER (%NIP-VALUES LTN-ANNOTATE) ...) ; x-compiling (DEFUN OPERAND-RESTRICTION-OK ...) ; x-compiling (DEFUN TEMPLATE-ARGS-OK ...) ; x-compiling (DEFUN TEMPLATE-RESULTS-OK ...) ; x-compiling (DEFUN IS-OK-TEMPLATE-USE ...) ; x-compiling (DEFUN FIND-TEMPLATE ...) ; x-compiling (DEFUN FIND-TEMPLATE-FOR-LTN-POLICY ...) ; x-compiling (DEFVAR *EFFICIENCY-NOTE-LIMIT* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *EFFICIENCY-NOTE-COST-THRESHOLD* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFUN STRANGE-TEMPLATE-FAILURE ...) ; x-compiling (DEFUN NOTE-REJECTED-TEMPLATES ...) ; x-compiling (DEFUN LTN-ANALYZE-KNOWN-CALL ...) ; x-compiling (DEFUN LTN-ANALYZE-CAST ...) ; x-compiling (DEFUN LTN-ANNOTATE-CASTS ...) ; x-compiling (DEFUN LTN-ANNOTATE-CAST ...) ; x-compiling (DEFUN LTN-ANALYZE-BLOCK ...) ; x-compiling (DEFUN LTN-ANALYZE ...) ; x-compiling (DEFUN LTN-ANALYZE-BELATED-BLOCK ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/ltn.lisp-obj-tmp written ; compilation finished in 0:00:00.384 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/stack.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN FIND-PUSHED-LVARS ...) ; x-compiling (DEFUN NLE-BLOCK-NLX-INFO ...) ; x-compiling (DEFUN NLE-BLOCK-ENTRY-BLOCK ...) ; x-compiling (DEFUN MERGE-UVL-LIVE-SETS ...) ; x-compiling (DEFUN UPDATE-UVL-LIVE-SETS ...) ; x-compiling (DEFUN ORDER-BLOCK-UVL-SETS ...) ; x-compiling (DEFUN ORDER-UVL-SETS ...) ; x-compiling (DEFUN DISCARD-UNUSED-VALUES ...) ; x-compiling (DEFUN FIND-PUSHING-BLOCKS ...) ; x-compiling (DEFUN STACK-ANALYZE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/stack.lisp ; in: DEFUN DISCARD-UNUSED-VALUES ; (SB!C::ADD-TO-EMIT-ORDER SB!C::2BLOCK (SB!C::BLOCK-INFO SB!C::BLOCK1)) ; ; caught STYLE-WARNING: ; undefined function: ADD-TO-EMIT-ORDER ; ; compilation unit finished ; Undefined function: ; ADD-TO-EMIT-ORDER ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/stack.lisp-obj-tmp written ; compilation finished in 0:00:00.145 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/control.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN ADD-TO-EMIT-ORDER ...) ; x-compiling (DEFUN FIND-ROTATED-LOOP-HEAD ...) ; x-compiling (DEFUN CONTROL-ANALYZE-BLOCK ...) ; x-compiling (DEFUN CONTROL-ANALYZE-1-FUN ...) ; x-compiling (DEFEVENT CONTROL-DELETED-BLOCK ...) ; x-compiling (DEFUN CONTROL-ANALYZE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/control.lisp-obj-tmp written ; compilation finished in 0:00:00.063 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/entry.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN ENTRY-ANALYZE ...) ; x-compiling (DEFUN COMPUTE-ENTRY-INFO ...) ; x-compiling (DEFUN REPLACE-TOPLEVEL-XEPS ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/entry.lisp-obj-tmp written ; compilation finished in 0:00:00.053 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir2tran.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN EMIT-MOVE ...) ; x-compiling (DEFUN EMIT-STEP-P ...) ; x-compiling (DEFUN TYPE-CHECK-TEMPLATE ...) ; x-compiling (DEFUN EMIT-TYPE-CHECK ...) ; x-compiling (DEFEVENT MAKE-VALUE-CELL-EVENT ...) ; x-compiling (DEFUN EMIT-MAKE-VALUE-CELL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-IN-PHYSENV ...) ; x-compiling (DEFUN CONSTANT-TN ...) ; x-compiling (DEFUN LEAF-TN ...) ; x-compiling (DEFUN EMIT-CONSTANT ...) ; x-compiling (DEFUN BOXED-REF-P ...) ; x-compiling (DEFUN IR2-CONVERT-REF ...) ; x-compiling (DEFUN IR2-CONVERT-GLOBAL-VAR ...) ; x-compiling (DEFUN ASSERTIONS-ON-IR2-CONVERTED-CLAMBDA ...) ; x-compiling (DEFUN IR2-CONVERT-CLOSURE ...) ; x-compiling (DEFUN CLOSURE-INITIAL-VALUE ...) ; x-compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES LTN-ANNOTATE) ...) ; x-compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES IR2-CONVERT) ...) ; x-compiling (DEFUN IR2-CONVERT-SET ...) ; x-compiling (DEFUN LVAR-TN ...) ; x-compiling (DEFUN LVAR-TNS ...) ; x-compiling (DEFUN LVAR-RESULT-TNS ...) ; x-compiling (DEFUN MAKE-STANDARD-VALUE-TNS ...) ; x-compiling (DEFUN STANDARD-RESULT-TNS ...) ; x-compiling (DEFUN MOVE-RESULTS-COERCED ...) ; x-compiling (DEFUN MOVE-RESULTS-CHECKED ...) ; x-compiling (DEFUN MOVE-LVAR-RESULT ...) ; x-compiling (DEFUN IR2-CONVERT-CAST ...) ; x-compiling (DEFUN REFERENCE-ARGS ...) ; x-compiling (DEFUN IR2-CONVERT-CONDITIONAL ...) ; x-compiling (DEFUN IR2-CONVERT-IF ...) ; x-compiling (DEFUN FIND-TEMPLATE-RESULT-TYPES ...) ; x-compiling (DEFUN MAKE-TEMPLATE-RESULT-TNS ...) ; x-compiling (DEFUN IR2-CONVERT-TEMPLATE ...) ; x-compiling (DEFOPTIMIZER (%%PRIMITIVE IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%%PRIMITIVE DERIVE-TYPE) ...) ; x-compiling (DEFUN IR2-CONVERT-LET ...) ; x-compiling (DEFUN EMIT-PSETQ-MOVES ...) ; x-compiling (DEFUN IR2-CONVERT-TAIL-LOCAL-CALL ...) ; x-compiling (DEFUN IR2-CONVERT-ASSIGNMENT ...) ; x-compiling (DEFUN IR2-CONVERT-LOCAL-CALL-ARGS ...) ; x-compiling (DEFUN IR2-CONVERT-LOCAL-KNOWN-CALL ...) ; x-compiling (DEFUN IR2-CONVERT-LOCAL-UNKNOWN-CALL ...) ; x-compiling (DEFUN IR2-CONVERT-LOCAL-CALL ...) ; x-compiling (DEFUN FUN-LVAR-TN ...) ; x-compiling (DEFUN MOVE-TAIL-FULL-CALL-ARGS ...) ; x-compiling (DEFUN IR2-CONVERT-TAIL-FULL-CALL ...) ; x-compiling (DEFUN IR2-CONVERT-FULL-CALL-ARGS ...) ; x-compiling (DEFUN IR2-CONVERT-FIXED-FULL-CALL ...) ; x-compiling (DEFUN IR2-CONVERT-MULTIPLE-FULL-CALL ...) ; x-compiling (DEFUN PONDER-FULL-CALL ...) ; x-compiling (DEFUN IR2-CONVERT-FULL-CALL ...) ; x-compiling (DEFUN INIT-XEP-ENVIRONMENT ...) ; x-compiling (DEFUN IR2-CONVERT-BIND ...) ; x-compiling (DEFUN IR2-CONVERT-RETURN ...) ; x-compiling (DEFOPTIMIZER (%CALLER-FRAME IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%CALLER-PC IR2-CONVERT) ...) ; x-compiling (DEFUN IR2-CONVERT-MV-BIND ...) ; x-compiling (DEFUN IR2-CONVERT-MV-CALL ...) ; x-compiling (DEFOPTIMIZER (%POP-VALUES IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%NIP-VALUES IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (VALUES IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (VALUES-LIST IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%MORE-ARG-VALUES IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%SPECIAL-BIND IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%SPECIAL-UNBIND IR2-CONVERT) ...) ; x-compiling (DEF-IR1-TRANSLATOR PROGV ...) ; x-compiling (DEFUN IR2-CONVERT-EXIT ...) ; x-compiling (DEFOPTIMIZER (%CLEANUP-POINT IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%LEXICAL-EXIT-BREAKUP IR2-CONVERT) ...) ; x-compiling (DEFUN IR2-CONVERT-THROW ...) ; x-compiling (DEFUN EMIT-NLX-START ...) ; x-compiling (DEFUN IR2-CONVERT-ENTRY ...) ; x-compiling (DEFOPTIMIZER (%CATCH IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%UNWIND-PROTECT IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%NLX-ENTRY IR2-CONVERT) ...) ; x-compiling (DEF LIST) ; x-compiling (DEF LIST*) ; x-compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%TYPEP-WRAPPER IR2-CONVERT) ...) ; x-compiling (DEFUN IR2-CONVERT ...) ; x-compiling (DEFUN FINISH-IR2-BLOCK ...) ; x-compiling (DEFUN IR2-CONVERT-BLOCK ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/ir2tran.lisp-obj-tmp written ; compilation finished in 0:00:00.932 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/vm-ir2tran.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF-ALLOC %MAKE-STRUCTURE-INSTANCE ...) ; x-compiling (DEFOPTIMIZER (%MAKE-STRUCTURE-INSTANCE STACK-ALLOCATE-RESULT) ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-REFFER ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-SETTER ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-SETFER ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-CASSER ...) ; x-compiling (DEFUN EMIT-INITS ...) ; x-compiling (DEFUN EMIT-FIXED-ALLOC ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-FIXED-ALLOCATION ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-VARIABLE-ALLOCATION ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-STRUCTURE-ALLOCATION ...) ; x-compiling (DEFOPTIMIZER (INITIALIZE-VECTOR IR2-CONVERT) ...) ; x-compiling (LET (#) ...) ; x-compiling (DEFOPTIMIZER (ALLOCATE-VECTOR STACK-ALLOCATE-RESULT) ...) ; x-compiling (DEFOPTIMIZER (ALLOCATE-VECTOR LTN-ANNOTATE) ...) ; x-compiling (DEFOPTIMIZER (LIST STACK-ALLOCATE-RESULT) ...) ; x-compiling (DEFOPTIMIZER (LIST* STACK-ALLOCATE-RESULT) ...) ; x-compiling (DEFOPTIMIZER (%LISTIFY-REST-ARGS STACK-ALLOCATE-RESULT) ...) ; x-compiling (DEFOPTIMIZER (CONS STACK-ALLOCATE-RESULT) ...) ; x-compiling (DEFOPTIMIZER (%MAKE-COMPLEX STACK-ALLOCATE-RESULT) ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/vm-ir2tran.lisp-obj-tmp written ; compilation finished in 0:00:00.949 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/copyprop.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN TN-IS-COPY-OF ...) ; x-compiling (DEFUN INIT-COPY-SETS ...) ; x-compiling (DEFUN COPY-FLOW-ANALYSIS ...) ; x-compiling (DEFEVENT COPY-DELETED-MOVE ...) ; x-compiling (DEFUN OK-COPY-REF ...) ; x-compiling (DEFUN PROPAGATE-COPIES ...) ; x-compiling (DEFUN COPY-PROPAGATE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/copyprop.lisp-obj-tmp written ; compilation finished in 0:00:00.101 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/represent.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN GET-OPERAND-INFO ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/represent.lisp ; in: DEFUN GET-OPERAND-INFO ; (SB!C::POSITION-IN #'SB!C:TN-REF-ACROSS SB!C::REF SB!C::REFS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DEFUN LISTIFY-RESTRICTIONS ...) ; x-compiling (DEFUN BAD-COSTS-ERROR ...) ; x-compiling (DEFUN BAD-COERCE-ERROR ...) ; x-compiling (DEFUN BAD-MOVE-ARG-ERROR ...) ; x-compiling (DEFUN CHECK-MOVE-FUN-CONSISTENCY ...) ; x-compiling (DEFPARAMETER *IGNORE-COST-VOPS* ...) ; x-compiling (DEFPARAMETER *SUPPRESS-NOTE-VOPS* ...) ; x-compiling (DEFUN ADD-REPRESENTATION-COSTS ...) ; x-compiling (DEFUN SELECT-TN-REPRESENTATION ...) ; x-compiling (DEFUN NOTE-NUMBER-STACK-TN ...) ; x-compiling (DEFUN GET-OPERAND-NAME ...) ; x-compiling (DEFUN MAYBE-EMIT-COERCE-EFFICIENCY-NOTE ...) ; x-compiling (DEFUN FIND-MOVE-VOP ...) ; x-compiling (DEFUN EMIT-COERCE-VOP ...) ; x-compiling (DECLAIM (INLINE COERCE-SOME-OPERANDS)) ; x-compiling (DEFUN COERCE-SOME-OPERANDS ...) ; x-compiling (DEFUN COERCE-VOP-OPERANDS ...) ; x-compiling (DEFUN EMIT-ARG-MOVES ...) ; x-compiling (DEFUN EMIT-MOVES-AND-COERCIONS ...) ; x-compiling (DECLAIM (INLINE NOTE-IF-NUMBER-STACK)) ; x-compiling (DEFUN NOTE-IF-NUMBER-STACK ...) ; x-compiling (DEFUN SELECT-REPRESENTATIONS ...); ; compilation unit finished ; printed 3 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/represent.lisp-obj-tmp written ; compilation finished in 0:00:00.356 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/ir2opt.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *2BLOCK-PRED*) ; x-compiling (DEFVAR *2BLOCK-SUCC*) ; x-compiling (DEFVAR *LABEL-2BLOCK*) ; x-compiling (DEFUN INITIALIZE-IR2-BLOCKS-FLOW-INFO ...) ; x-compiling (DEFUN UPDATE-BLOCK-SUCC ...) ; x-compiling (DECLAIM (INLINE VOP-NAME)) ; x-compiling (DEFUN VOP-NAME ...) ; x-compiling (DEFUN MOVE-VALUE-TARGET ...) ; x-compiling (DEFUN CMOVP ...) ; x-compiling (DECLAIM (INLINE CONVERT-ONE-CMOV)) ; x-compiling (DEFUN CONVERT-ONE-CMOV ...) ; x-compiling (DEFUN MAYBE-CONVERT-ONE-CMOV ...) ; x-compiling (DEFUN CONVERT-CMOVS ...) ; x-compiling (DEFUN DELETE-UNUSED-IR2-BLOCKS ...) ; x-compiling (DEFUN DELETE-FALL-THROUGH-JUMPS ...) ; x-compiling (DEFUN IR2-OPTIMIZE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/ir2opt.lisp-obj-tmp written ; compilation finished in 0:00:00.105 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/pack.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!REGALLOC") ; x-compiling (DEFVAR *PACK-ASSIGN-COSTS* ...) ; x-compiling (DEFVAR *PACK-OPTIMIZE-SAVES* ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN OFFSET-CONFLICTS-IN-SB ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CONFLICTS-IN-SC ...) ; x-compiling (DEFUN ADD-LOCATION-CONFLICTS ...) ; x-compiling (DEFUN FIND-LOCATION-USAGE ...) ; x-compiling (DEFUN IR2-BLOCK-COUNT ...) ; x-compiling (DEFUN INIT-SB-VECTORS ...) ; x-compiling (DEFUN GROW-SC ...) ; x-compiling (DEFUN NO-LOAD-FUN-ERROR ...) ; x-compiling (DEFUN FAILED-TO-PACK-ERROR ...) ; x-compiling (DEFUN DESCRIBE-TN-USE ...) ; x-compiling (DEFUN FAILED-TO-PACK-LOAD-TN-ERROR ...) ; x-compiling (DEFUN NO-LOAD-SCS-ALLOWED-BY-PRIMITIVE-TYPE-ERROR ...) ; x-compiling (DEFUN NOTE-SPILLED-TN ...) ; x-compiling (DEFUN PACK-SAVE-TN ...) ; x-compiling (DEFUN EMIT-OPERAND-LOAD ...) ; x-compiling (DEFUN REVERSE-FIND-VOP ...) ; x-compiling (DEFUN SAVE-COMPLEX-WRITER-TN ...) ; x-compiling (DEFUN FIND-SINGLE-WRITER ...) ; x-compiling (DEFUN SAVE-SINGLE-WRITER-TN ...) ; x-compiling (DEFUN RESTORE-SINGLE-WRITER-TN ...) ; x-compiling (DEFUN BASIC-SAVE-TN ...) ; x-compiling (DEFUN EMIT-SAVES ...) ; x-compiling (DEFUN SAVE-IF-NECESSARY ...) ; x-compiling (DEFUN RESTORE-TN ...) ; x-compiling (DEFUN OPTIMIZED-EMIT-SAVES-BLOCK ...) ; x-compiling (DEFUN OPTIMIZED-EMIT-SAVES ...) ; x-compiling (DEFVAR *TN-WRITE-COST* ...) ; x-compiling (DEFVAR *TN-LOOP-DEPTH-MULTIPLIER* ...) ; x-compiling (DEFUN ASSIGN-TN-COSTS ...) ; x-compiling (DEFUN ASSIGN-TN-DEPTHS ...) ; x-compiling (DEFVAR *LIVE-BLOCK*) ; x-compiling (DEFVAR *LIVE-VOP*) ; x-compiling (DEFVAR *REPACK-BLOCKS*) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFUN INIT-LIVE-TNS ...) ; x-compiling (DEFUN COMPUTE-LIVE-TNS ...) ; x-compiling (DEFUN LOAD-TN-OFFSET-CONFLICTS-IN-SB ...) ; x-compiling (DEFUN LOAD-TN-CONFLICTS-IN-SC ...) ; x-compiling (DEFUN FIND-LOAD-TN-TARGET ...) ; x-compiling (DEFUN SELECT-LOAD-TN-LOCATION ...) ; x-compiling (DEFEVENT UNPACK-TN ...) ; x-compiling (DEFUN UNPACK-TN ...) ; x-compiling (DEFEVENT UNPACK-FALLBACK ...) ; x-compiling (DEFUN UNPACK-FOR-LOAD-TN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/pack.lisp ; in: DEFUN UNPACK-FOR-LOAD-TN ; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::VICTIM SB!REGALLOC::NORMAL-TNS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::CONF SB!REGALLOC::NORMAL-TNS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DEFUN PACK-LOAD-TN ...) ; x-compiling (DECLAIM (INLINE CHECK-OPERAND-RESTRICTIONS)) ; x-compiling (DEFUN CHECK-OPERAND-RESTRICTIONS ...) ; x-compiling (DEFUN PACK-LOAD-TNS ...) ; x-compiling (DEFUN TARGET-IF-DESIRABLE ...) ; x-compiling (DEFUN CHECK-OK-TARGET ...) ; x-compiling (DECLAIM (INLINE %CALL-WITH-TARGET-TNS)) ; x-compiling (DEFUN %CALL-WITH-TARGET-TNS ...) ; x-compiling (DEFMACRO DO-TARGET-TNS ...) ; x-compiling (DEFUN FIND-OK-TARGET-OFFSET ...) ; x-compiling (DEFUN SELECT-LOCATION ...) ; x-compiling (DEFUN ORIGINAL-TN ...) ; x-compiling (DECLAIM (INLINE UNBOUNDED-SC-P)) ; x-compiling (DEFUN UNBOUNDED-SC-P ...) ; x-compiling (DEFUN UNBOUNDED-TN-P ...) ; x-compiling (DECLAIM (NOTINLINE UNBOUNDED-SC-P)) ; x-compiling (DEFUN PACK-TN ...) ; x-compiling (DEFUN PACK-WIRED-TN ...) ; x-compiling (DEFEVENT REPACK-BLOCK ...) ; x-compiling (DEFUN CLEAN-UP-PACK-STRUCTURES ...) ; x-compiling (DEFUN TN-LEXICAL-DEPTH ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *REGISTER-ALLOCATION-METHOD* ...) ; x-compiling (DECLAIM (FTYPE FUNCTION ...)) ; x-compiling (DEFUN PACK ...) ; x-compiling (DEFUN PACK-GREEDY ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/pack.lisp ; in: DEFUN DESCRIBE-TN-USE ; (SB!C::PRINT-TN-GUTS SB!C:TN STREAM) ; ; caught STYLE-WARNING: ; undefined function: PRINT-TN-GUTS ; ; compilation unit finished ; Undefined function: ; PRINT-TN-GUTS ; caught 1 STYLE-WARNING condition ; printed 6 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/pack.lisp-obj-tmp written ; compilation finished in 0:00:01.206 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/pack-iterative.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!REGALLOC") ; x-compiling (DEFSTRUCT (ORDERED-SET # ...) ...) ; x-compiling (DEFUN OSET-ADJOIN ...) ; x-compiling (DEFUN OSET-DELETE ...) ; x-compiling (DEFUN OSET-MEMBER ...) ; x-compiling (DEFMACRO DO-OSET-ELEMENTS ...) ; x-compiling (DEF!STRUCT (VERTEX # ...) ...) ; x-compiling (DECLAIM (INLINE VERTEX-SC)) ; x-compiling (DEFUN VERTEX-SC ...) ; x-compiling (DEF!STRUCT (INTERFERENCE-GRAPH # ...) ...) ; x-compiling (DEFUN INSERT-ONE-EDGE ...) ; x-compiling (DEFUN BLOCK-GTNS ...) ; x-compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS-FOR ...) ; x-compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS ...) ; x-compiling (DEFUN INSERT-CONFLICT-EDGES ...) ; x-compiling (DEFUN RESTRICTED-TN-LOCATIONS ...) ; x-compiling (DEFUN PREPARE-VERTICES ...) ; x-compiling (DEFUN MAKE-INTERFERENCE-GRAPH ...) ; x-compiling (DEFUN REMOVE-VERTEX-FROM-INTERFERENCE-GRAPH ...) ; x-compiling (DEFUN COLOR-NO-CONFLICTS-P ...) ; x-compiling (DEFUN VERTEX-COLOR-POSSIBLE-P ...) ; x-compiling (DEFUN VERTEX-DOMAIN ...) ; x-compiling (DEFUN VERTEX-TARGET-VERTICES ...) ; x-compiling (DEFUN VERTICES-BEST-COLOR ...) ; x-compiling (DEFUN FIND-VERTEX-COLOR ...) ; x-compiling (DEFUN PARTITION-AND-ORDER-VERTICES ...) ; x-compiling (DEFUN COLOR-INTERFERENCE-GRAPH ...) ; x-compiling (DEFVAR *PACK-ITERATIONS* ...) ; x-compiling (DEFUN ITERATE-COLOR ...) ; x-compiling (DEFUN PACK-COLORED ...) ; x-compiling (DEFUN PACK-ITERATIVE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/pack-iterative.lisp-obj-tmp written ; compilation finished in 0:00:01.013 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/codegen.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN COMPONENT-HEADER-LENGTH ...) ; x-compiling (DEFUN SB-ALLOCATED-SIZE ...) ; x-compiling (DEFUN CURRENT-NFP-TN ...) ; x-compiling (DEFUN CALLEE-NFP-TN ...) ; x-compiling (DEFUN CALLEE-RETURN-PC-TN ...) ; x-compiling (DEFVAR *CODE-SEGMENT* ...) ; x-compiling (DEFVAR *ELSEWHERE* ...) ; x-compiling (DEFVAR *ELSEWHERE-LABEL* ...) ; x-compiling (DEFVAR *CONSTANT-SEGMENT* ...) ; x-compiling (DEFVAR *CONSTANT-TABLE* ...) ; x-compiling (DEFVAR *CONSTANT-VECTOR* ...) ; x-compiling (DEFVAR *PREV-SEGMENT*) ; x-compiling (DEFVAR *PREV-VOP*) ; x-compiling (DEFUN TRACE-INSTRUCTION ...) ; x-compiling (DEFUN DEFAULT-SEGMENT-RUN-SCHEDULER ...) ; x-compiling (DEFUN DEFAULT-SEGMENT-INST-HOOK ...) ; x-compiling (DEFUN INIT-ASSEMBLER ...) ; x-compiling (DEFUN GENERATE-CODE ...) ; x-compiling (DEFUN EMIT-LABEL-ELSEWHERE ...) ; x-compiling (DEFUN LABEL-ELSEWHERE-P ...) ; x-compiling (DEFUN REGISTER-INLINE-CONSTANT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/codegen.lisp ; in: DEFUN TRACE-INSTRUCTION ; (SB!C::PRINT-VOP SB!C::VOP) ; ; caught STYLE-WARNING: ; undefined function: PRINT-VOP ; ; compilation unit finished ; Undefined function: ; PRINT-VOP ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/codegen.lisp-obj-tmp written ; compilation finished in 0:00:00.121 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/debug.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *ARGS* ...) ; x-compiling (DEFVAR *IGNORED-ERRORS* ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BARF ...) ; x-compiling (DEFVAR *BURP-ACTION* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BURP ...) ; x-compiling (DEFVAR *SEEN-BLOCKS*) ; x-compiling (DEFVAR *SEEN-FUNS*) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-NODE-REACHED ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-IR1-CONSISTENCY ...) ; x-compiling (DEFUN OBSERVE-FUNCTIONAL ...) ; x-compiling (DEFUN CHECK-FUN-REACHED ...) ; x-compiling (DEFUN CHECK-FUN-STUFF ...) ; x-compiling (DEFUN CHECK-FUN-CONSISTENCY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-BLOCK-CONSISTENCY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-BLOCK-SUCCESSORS ...) ; x-compiling (DEFUN CHECK-DEST ...) ; x-compiling (DEFUN CHECK-NODE-CONSISTENCY ...) ; x-compiling (DEFUN CHECK-TN-REFS ...) ; x-compiling (DEFUN CHECK-VOP-REFS ...) ; x-compiling (DEFUN CHECK-IR2-BLOCK-CONSISTENCY ...) ; x-compiling (DEFUN CHECK-IR2-CONSISTENCY ...) ; x-compiling (DEFUN PRE-PACK-TN-STATS ...) ; x-compiling (DEFUN CHECK-MORE-TN-ENTRY ...) ; x-compiling (DEFUN CHECK-TN-CONFLICTS ...) ; x-compiling (DEFUN CHECK-BLOCK-CONFLICTS ...) ; x-compiling (DEFUN CHECK-ENVIRONMENT-LIFETIMES ...) ; x-compiling (DEFUN CHECK-LIFE-CONSISTENCY ...) ; x-compiling (DEFUN CHECK-PACK-CONSISTENCY ...) ; x-compiling (DEF *CONTINUATION-NUMBER* ...) ; x-compiling (DEF *TN-ID* ...) ; x-compiling (DEF *LABEL-ID* ...) ; x-compiling (DEFUN PRINT-LEAF ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BLOCK-OR-LOSE ...) ; x-compiling (DEFUN PRINT-CTRAN ...) ; x-compiling (DEFUN PRINT-LVAR ...) ; x-compiling (DEFUN PRINT-LVAR-STACK ...) ; x-compiling (DEFUN PRINT-NODES ...) ; x-compiling (DEFUN PRINT-TN-GUTS ...) ; x-compiling (DEFUN PRINT-OPERANDS ...) ; x-compiling (DEFUN PRINT-VOP ...) ; x-compiling (DEFUN PRINT-IR2-BLOCK ...) ; x-compiling (DEFUN PRINT-VOPS ...) ; x-compiling (DEFUN PRINT-IR2-BLOCKS ...) ; x-compiling (DEFUN PRINT-BLOCKS ...) ; x-compiling (DEFUN PRINT-ALL-BLOCKS ...) ; x-compiling (DEFVAR *LIST-CONFLICTS-TABLE* ...) ; x-compiling (DEFUN ADD-ALWAYS-LIVE-TNS ...) ; x-compiling (DEFUN ADD-ALL-LOCAL-TNS ...) ; x-compiling (DEFUN LISTIFY-CONFLICTS-TABLE ...) ; x-compiling (DEFUN LIST-CONFLICTS ...) ; x-compiling (DEFUN NTH-VOP ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/debug.lisp-obj-tmp written ; compilation finished in 0:00:00.716 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/format-time.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFPARAMETER *ABBREV-WEEKDAY-TABLE* ...) ; x-compiling (DEFPARAMETER *LONG-WEEKDAY-TABLE* ...) ; x-compiling (DEFPARAMETER *ABBREV-MONTH-TABLE* ...) ; x-compiling (DEFPARAMETER *LONG-MONTH-TABLE* ...) ; x-compiling (DEFPARAMETER *TIMEZONE-TABLE* ...) ; x-compiling (DEFPARAMETER *DAYLIGHT-TABLE* ...) ; x-compiling (DEFUN VALID-DESTINATION-P ...) ; x-compiling (DEFUN FORMAT-UNIVERSAL-TIME ...) ; x-compiling (DEFUN TIMEZONE-NAME ...) ; x-compiling (DEFUN FORMAT-DECODED-TIME ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/format-time.lisp-obj-tmp written ; compilation finished in 0:00:02.425 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/error.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN STYLE-WARN ...) ; x-compiling (DEFUN COERCE-TO-CONDITION ...) ; x-compiling (DEFINE-CONDITION LAYOUT-INVALID ...) ; x-compiling (DEFINE-CONDITION CASE-FAILURE ...) ; x-compiling (DEFINE-CONDITION COMPILED-PROGRAM-ERROR ...) ; x-compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-CONTROL-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-FILE-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-STREAM-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-PARSE-ERROR ...) ; x-compiling (DEFINE-CONDITION CHARACTER-CODING-ERROR ...) ; x-compiling (DEFINE-CONDITION CHARACTER-ENCODING-ERROR ...) ; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR ...) ; x-compiling (DEFINE-CONDITION STREAM-ENCODING-ERROR ...) ; x-compiling (DEFINE-CONDITION STREAM-DECODING-ERROR ...) ; x-compiling (DEFINE-CONDITION C-STRING-ENCODING-ERROR ...) ; x-compiling (DEFINE-CONDITION C-STRING-DECODING-ERROR ...) ; x-compiling (DEFINE-CONDITION CONTROL-STACK-EXHAUSTED ...) ; x-compiling (DEFINE-CONDITION BINDING-STACK-EXHAUSTED ...) ; x-compiling (DEFINE-CONDITION ALIEN-STACK-EXHAUSTED ...) ; x-compiling (DEFINE-CONDITION HEAP-EXHAUSTED-ERROR ...) ; x-compiling (DEFINE-CONDITION SYSTEM-CONDITION ...) ; x-compiling (DEFINE-CONDITION MEMORY-FAULT-ERROR ...) ; x-compiling (DEFINE-CONDITION BREAKPOINT-ERROR ...) ; x-compiling (DEFINE-CONDITION INTERACTIVE-INTERRUPT ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/error.lisp-obj-tmp written ; compilation finished in 0:00:00.134 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/macroexpand.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN SB-XC:SPECIAL-OPERATOR-P ...) ; x-compiling (DEFVAR SB-XC:*MACROEXPAND-HOOK* ...) ; x-compiling (DEFUN SB-XC:MACROEXPAND-1 ...) ; x-compiling (DEFUN SB-XC:MACROEXPAND ...) ; x-compiling (DEFUN %MACROEXPAND-1 ...) ; x-compiling (DEFUN %MACROEXPAND ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/macroexpand.lisp-obj-tmp written ; compilation finished in 0:00:00.068 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-extensions.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN LIST-WITH-LENGTH-P ...) ; x-compiling (DEFSTRUCT (UNPRINTABLE-OBJECT # ...) ...) ; x-compiling (DEFMACRO DEFINE-STRUCTURE-SLOT-ADDRESSOR ...) ; x-compiling (DEFUN EXPAND-ATOMIC-FROB ...) ; x-compiling (DEF!MACRO ATOMIC-INCF ...) ; x-compiling (DEFMACRO ATOMIC-DECF ...) ; x-compiling (DEFUN %ARRAY-ATOMIC-INCF/WORD ...) ; x-compiling (DEFUN SPIN-LOOP-HINT ...) ; x-compiling (DEFUN CALL-HOOKS ...) ; x-compiling (DEFMACRO-MUNDANELY DEFGLOBAL ...) ; x-compiling (DEFMACRO-MUNDANELY DEFINE-LOAD-TIME-GLOBAL ...) ; x-compiling (DEFUN %COMPILER-DEFGLOBAL ...) ; x-compiling (DEFUN %DEFGLOBAL ...) ; x-compiling (DEFUN %%WAIT-FOR ...) ; x-compiling (DEFUN %WAIT-FOR ...) ; x-compiling (DEFMACRO WAIT-FOR ...) ; x-compiling (DEFMACRO WITH-PROGRESSIVE-TIMEOUT ...) ; x-compiling (DEFMACRO ATOMIC-UPDATE ...) ; x-compiling (DEFMACRO ATOMIC-PUSH ...) ; x-compiling (DEFMACRO ATOMIC-POP ...) ; x-compiling (DEFUN SPLIT-VERSION-STRING ...) ; x-compiling (DEFUN VERSION>= ...) ; x-compiling (DEFUN ASSERT-VERSION->= ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-extensions.lisp ; in: DEFMACRO ATOMIC-POP ; (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-CAS-EXPANSION ; in: DEFMACRO ATOMIC-PUSH ; (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-CAS-EXPANSION ; in: DEFMACRO ATOMIC-UPDATE ; (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-CAS-EXPANSION ; ; compilation unit finished ; Undefined function: ; GET-CAS-EXPANSION ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/late-extensions.lisp-obj-tmp written ; compilation finished in 0:00:00.276 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/target-core.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN ALLOCATE-CODE-OBJECT ...) ; x-compiling (DEFUN MAKE-FUN-ENTRY ...) ; x-compiling (DEFUN MAKE-CORE-COMPONENT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/generic/target-core.lisp ; in: DEFUN MAKE-CORE-COMPONENT ; (SB!KERNEL:COPY-BYTE-VECTOR-TO-SYSTEM-AREA SB!C::V SB!C::FILL-PTR) ; ; caught STYLE-WARNING: ; undefined function: COPY-BYTE-VECTOR-TO-SYSTEM-AREA ; ; compilation unit finished ; Undefined function: ; COPY-BYTE-VECTOR-TO-SYSTEM-AREA ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/generic/target-core.lisp-obj-tmp written ; compilation finished in 0:00:00.074 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/eval.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFPARAMETER *EVAL-CALLS* ...) ; x-compiling (DEFUN !EVAL-COLD-INIT ...) ; x-compiling (DEFVAR *EVAL-SOURCE-CONTEXT* ...) ; x-compiling (DEFVAR *EVAL-TLF-INDEX* ...) ; x-compiling (DEFVAR *EVAL-SOURCE-INFO* ...) ; x-compiling (DEFUN MAKE-EVAL-LAMBDA ...) ; x-compiling (DEFUN %SIMPLE-EVAL ...) ; x-compiling (DEFUN SIMPLE-EVAL-PROGN-BODY ...) ; x-compiling (DEFUN SIMPLE-EVAL-LOCALLY ...) ; x-compiling (DEFINE-CONDITION EVAL-ERROR ...) ; x-compiling (DEFUN EVAL-ERROR ...) ; x-compiling (DEFUN SIMPLE-EVAL-IN-LEXENV ...) ; x-compiling (DEFUN EVAL-IN-LEXENV ...) ; x-compiling (DEFUN EVAL ...) ; x-compiling (DEFUN EVAL-TLF ...) ; x-compiling (DEFUN APPLY ...) ; x-compiling (DEFUN FUNCALL ...) ; x-compiling (DEFUN VALUES ...) ; x-compiling (DEFUN VALUES-LIST ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/eval.lisp ; in: DEFUN EVAL-IN-LEXENV ; (SB!EVAL:EVAL-IN-NATIVE-ENVIRONMENT EXP SB!KERNEL:LEXENV) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:EVAL-IN-NATIVE-ENVIRONMENT ; ; compilation unit finished ; Undefined function: ; SB!EVAL:EVAL-IN-NATIVE-ENVIRONMENT ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/eval.lisp-obj-tmp written ; compilation finished in 0:00:00.135 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-sap.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN SAP< ...) ; x-compiling (DEFUN SAP<= ...) ; x-compiling (DEFUN SAP= ...) ; x-compiling (DEFUN SAP>= ...) ; x-compiling (DEFUN SAP> ...) ; x-compiling (DEFUN SAP+ ...) ; x-compiling (DEFUN SAP- ...) ; x-compiling (DEFUN SAP-INT ...) ; x-compiling (DEFUN INT-SAP ...) ; x-compiling (DEFUN SAP-REF-8 ...) ; x-compiling (DEFUN SAP-REF-OCTETS ...) ; x-compiling (DEFUN SAP-REF-16 ...) ; x-compiling (DEFUN SAP-REF-32 ...) ; x-compiling (DEFUN SAP-REF-64 ...) ; x-compiling (DEFUN SAP-REF-WORD ...) ; x-compiling (DEFUN SAP-REF-SAP ...) ; x-compiling (DEFUN SAP-REF-LISPOBJ ...) ; x-compiling (DEFUN SAP-REF-SINGLE ...) ; x-compiling (DEFUN SAP-REF-DOUBLE ...) ; x-compiling (DEFUN SIGNED-SAP-REF-8 ...) ; x-compiling (DEFUN SIGNED-SAP-REF-16 ...) ; x-compiling (DEFUN SIGNED-SAP-REF-32 ...) ; x-compiling (DEFUN SIGNED-SAP-REF-64 ...) ; x-compiling (DEFUN SIGNED-SAP-REF-WORD ...) ; x-compiling (DEFUN %SET-SAP-REF-8 ...) ; x-compiling (DEFUN %SET-SAP-REF-16 ...) ; x-compiling (DEFUN %SET-SAP-REF-32 ...) ; x-compiling (DEFUN %SET-SAP-REF-64 ...) ; x-compiling (DEFUN %SET-SAP-REF-WORD ...) ; x-compiling (DEFUN %SET-SIGNED-SAP-REF-8 ...) ; x-compiling (DEFUN %SET-SIGNED-SAP-REF-16 ...) ; x-compiling (DEFUN %SET-SIGNED-SAP-REF-32 ...) ; x-compiling (DEFUN %SET-SIGNED-SAP-REF-64 ...) ; x-compiling (DEFUN %SET-SIGNED-SAP-REF-WORD ...) ; x-compiling (DEFUN %SET-SAP-REF-SAP ...) ; x-compiling (DEFUN %SET-SAP-REF-LISPOBJ ...) ; x-compiling (DEFUN %SET-SAP-REF-SINGLE ...) ; x-compiling (DEFUN %SET-SAP-REF-DOUBLE ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-sap.lisp-obj-tmp written ; compilation finished in 0:00:00.113 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-package.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (!COLD-INIT-FORMS (/SHOW0 "entering !PACKAGE-COLD-INIT")) ; x-compiling (DEFVAR *PACKAGE-GRAPH-LOCK*) ; x-compiling (!COLD-INIT-FORMS (SETF *PACKAGE-GRAPH-LOCK* ...)) ; x-compiling (DEFUN CALL-WITH-PACKAGE-GRAPH ...) ; x-compiling (DEFVAR *PACKAGE-NAMES*) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (!COLD-INIT-FORMS (SETF *PACKAGE-NAMES* ...)) ; x-compiling (DEFMACRO WITH-PACKAGE-NAMES ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFCONSTANT +PACKAGE-REHASH-THRESHOLD+ ...) ; x-compiling (DEFCONSTANT +PACKAGE-HASHTABLE-IMAGE-LOAD-FACTOR+ ...) ; x-compiling (DEFUN MAKE-OR-REMAKE-PACKAGE-HASHTABLE ...) ; x-compiling (DEFUN RESIZE-PACKAGE-HASHTABLE ...) ; x-compiling (DEFUN PACKAGE-LOCKED-P ...) ; x-compiling (DEFUN LOCK-PACKAGE ...) ; x-compiling (DEFUN UNLOCK-PACKAGE ...) ; x-compiling (DEFUN PACKAGE-IMPLEMENTED-BY-LIST ...) ; x-compiling (DEFUN PACKAGE-IMPLEMENTS-LIST ...) ; x-compiling (DEFUN ADD-IMPLEMENTATION-PACKAGE ...) ; x-compiling (DEFUN REMOVE-IMPLEMENTATION-PACKAGE ...) ; x-compiling (DEFMACRO WITH-UNLOCKED-PACKAGES ...) ; x-compiling (DEFUN PACKAGE-LOCK-VIOLATION ...) ; x-compiling (DEFUN PACKAGE-LOCK-VIOLATION-P ...) ; x-compiling (DEFUN DISABLED-PACKAGE-LOCKS ...) ; x-compiling (DEFUN ASSERT-PACKAGE-UNLOCKED ...) ; x-compiling (DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-package.lisp ; in: DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; (DEFUN SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; (SB!IMPL::NAME ; &OPTIONAL SB!KERNEL:FORMAT-CONTROL ; &REST SB!IMPL::FORMAT-ARGUMENTS) ; (LET* ((SYMBOL (ETYPECASE SB!IMPL::NAME # # #)) ; (PACKAGE (SYMBOL-PACKAGE SYMBOL))) ; (WHEN (SB!IMPL::PACKAGE-LOCK-VIOLATION-P PACKAGE SYMBOL) ; (SB!EXT:PACKAGE-LOCK-VIOLATION PACKAGE :SYMBOL SYMBOL :FORMAT-CONTROL ; SB!KERNEL:FORMAT-CONTROL :FORMAT-ARGUMENTS ; (CONS SB!IMPL::NAME SB!IMPL::FORMAT-ARGUMENTS)))) ; SB!IMPL::NAME) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; (LAMBDA ; (SB!IMPL::NAME ; &OPTIONAL SB!KERNEL:FORMAT-CONTROL ; &REST SB!IMPL::FORMAT-ARGUMENTS) ; (BLOCK SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; (LET* (# #) ; (WHEN # #)) ; SB!IMPL::NAME))) ; ; caught STYLE-WARNING: ; The definition has one optional arg, but proclamation has zero. ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF PACKAGE-NICKNAMES ...) ; x-compiling (DEF PACKAGE-USE-LIST ...) ; x-compiling (DEF PACKAGE-USED-BY-LIST ...) ; x-compiling (DEF PACKAGE-SHADOWING-SYMBOLS ...) ; x-compiling (DEFUN PACKAGE-LOCAL-NICKNAMES ...) ; x-compiling (DEFUN SIGNAL-PACKAGE-ERROR ...) ; x-compiling (DEFUN SIGNAL-PACKAGE-CERROR ...) ; x-compiling (DEFUN PACKAGE-LOCALLY-NICKNAMED-BY-LIST ...) ; x-compiling (DEFUN ADD-PACKAGE-LOCAL-NICKNAME ...) ; x-compiling (DEFUN REMOVE-PACKAGE-LOCAL-NICKNAME ...) ; x-compiling (DEFUN %PACKAGE-HASHTABLE-SYMBOL-COUNT ...) ; x-compiling (DEFUN PACKAGE-INTERNAL-SYMBOL-COUNT ...) ; x-compiling (DEFUN PACKAGE-EXTERNAL-SYMBOL-COUNT ...) ; x-compiling (DEFVAR *PACKAGE* ...) ; x-compiling (DEFVAR *IN-PACKAGE-INIT*) ; x-compiling (DEFVAR *!DEFERRED-USE-PACKAGES*) ; x-compiling (!COLD-INIT-FORMS (SETF *!DEFERRED-USE-PACKAGES* ...)) ; x-compiling (DEFINE-CONDITION BOOTSTRAP-PACKAGE-NOT-FOUND ...) ; x-compiling (DEFUN DEBOOTSTRAP-PACKAGE ...) ; x-compiling (DEFUN FIND-PACKAGE ...) ; x-compiling (DEFUN FIND-PACKAGE-USING-PACKAGE ...) ; x-compiling (DEFUN PACKAGE-LISTIFY ...) ; x-compiling (DEFUN PACKAGE-NAMIFY ...) ; x-compiling (DEFUN PACKAGE-NAME ...) ; x-compiling (DEFMACRO ENTRY-HASH ...) ; x-compiling (DEFUN ADD-SYMBOL ...) ; x-compiling (DEFUN TUNE-HASHTABLE-SIZES-OF-ALL-PACKAGES ...) ; x-compiling (DEFMACRO WITH-SYMBOL ...) ; x-compiling (DEFUN NUKE-SYMBOL ...) ; x-compiling (DEFUN %ENTER-NEW-NICKNAMES ...) ; x-compiling (DEFUN MAKE-PACKAGE ...) ; x-compiling (DEFUN RENAME-PACKAGE ...) ; x-compiling (DEFUN DELETE-PACKAGE ...) ; x-compiling (DEFUN LIST-ALL-PACKAGES ...) ; x-compiling (DEFUN INTERN ...) ; x-compiling (DEFUN FIND-SYMBOL ...) ; x-compiling (DEFUN INTERN* ...) ; x-compiling (DEFUN FIND-SYMBOL* ...) ; x-compiling (DEFUN FIND-EXTERNAL-SYMBOL ...) ; x-compiling (DEFUN PRINT-SYMBOL-WITH-PREFIX ...) ; x-compiling (DEFINE-CONDITION NAME-CONFLICT ...) ; x-compiling (DEFUN NAME-CONFLICT ...) ; x-compiling (DEFUN UNINTERN ...) ; x-compiling (DEFUN SYMBOL-LISTIFY ...) ; x-compiling (DEFUN STRING-LISTIFY ...) ; x-compiling (DEFUN MOBY-UNINTERN ...) ; x-compiling (DEFUN EXPORT ...) ; x-compiling (DEFUN UNEXPORT ...) ; x-compiling (DEFUN IMPORT ...) ; x-compiling (DEFUN SHADOWING-IMPORT ...) ; x-compiling (DEFUN SHADOW ...) ; x-compiling (DEFUN USE-PACKAGE ...) ; x-compiling (DEFUN UNUSE-PACKAGE ...) ; x-compiling (DEFUN FIND-ALL-SYMBOLS ...) ; x-compiling (DEFUN BRIEFLY-DESCRIBE-SYMBOL ...) ; x-compiling (DEFUN APROPOS-LIST ...) ; x-compiling (DEFUN APROPOS ...) ; x-compiling (DEFVAR *!INITIAL-SYMBOLS*) ; x-compiling (!COLD-INIT-FORMS (SETQ *IN-PACKAGE-INIT* ...) ...) ; x-compiling (!COLD-INIT-FORMS (/SHOW0 "done with !PACKAGE-COLD-INIT")) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !PACKAGE-COLD-INIT); ; compilation unit finished ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-package.lisp-obj-tmp written ; compilation finished in 0:00:00.938 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-random.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFCONSTANT MT19937-N ...) ; x-compiling (DEFCONSTANT MT19937-M ...) ; x-compiling (DEFCONSTANT MT19937-UPPER-MASK ...) ; x-compiling (DEFCONSTANT MT19937-LOWER-MASK ...) ; x-compiling (DEFCONSTANT MT19937-A ...) ; x-compiling (DEFCONSTANT MT19937-B ...) ; x-compiling (DEFCONSTANT MT19937-C ...) ; x-compiling (DEFTYPE RANDOM-STATE-STATE ...) ; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN INIT-RANDOM-STATE ...) ; x-compiling (DEFVAR *RANDOM-STATE*) ; x-compiling (DEFUN !RANDOM-COLD-INIT ...) ; x-compiling (DEFUN MAKE-RANDOM-STATE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-random.lisp ; in: DEFUN MAKE-RANDOM-STATE ; (DEFUN MAKE-RANDOM-STATE (&OPTIONAL SB!KERNEL::STATE) ; "Make a random state object. The optional STATE argument specifies a seed ; for deterministic pseudo-random number generation. ; ; As per the Common Lisp standard, ; - If STATE is NIL or not supplied, return a copy of the default ; *RANDOM-STATE*. ; - If STATE is a random state, return a copy of it. ; - If STATE is T, return a randomly initialized state (using operating-system ; provided randomness where available, otherwise a poor substitute based on ; internal time and PID). ; ; See SB-EXT:SEED-RANDOM-STATE for a SBCL extension to this functionality." ; (SB!INT:/SHOW0 "entering MAKE-RANDOM-STATE") ; (CHECK-TYPE SB!KERNEL::STATE (OR BOOLEAN RANDOM-STATE)) ; (SB!EXT:SEED-RANDOM-STATE SB!KERNEL::STATE)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET MAKE-RANDOM-STATE ; (LAMBDA (&OPTIONAL SB!KERNEL::STATE) ; (BLOCK MAKE-RANDOM-STATE ; (SB!INT:/SHOW0 "entering MAKE-RANDOM-STATE") ; (CHECK-TYPE SB!KERNEL::STATE (OR BOOLEAN RANDOM-STATE)) ; (SB!EXT:SEED-RANDOM-STATE SB!KERNEL::STATE)))) ; ; note: Assignment to argument: STATE ; prevents use of assertion from function type proclamation: ; (OR RANDOM-STATE UNSIGNED-BYTE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ...) ; ; x-compiling (DEFUN FALLBACK-RANDOM-SEED ...) ; x-compiling (DEFUN OS-RANDOM-SEED ...) ; x-compiling (DEFUN SEED-RANDOM-STATE ...) ; x-compiling (DECLAIM (INLINE RANDOM-CHUNK)) ; x-compiling (DEFUN RANDOM-MT19937-UPDATE ...) ; x-compiling (DEFUN RANDOM-CHUNK ...) ; x-compiling (DECLAIM (INLINE BIG-RANDOM-CHUNK)) ; x-compiling (DEFUN BIG-RANDOM-CHUNK ...) ; x-compiling (DECLAIM (INLINE %RANDOM-SINGLE-FLOAT ...)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %RANDOM-SINGLE-FLOAT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %RANDOM-DOUBLE-FLOAT ...) ; x-compiling (DECLAIM (INLINE %RANDOM-FIXNUM)) ; x-compiling (DEFUN %RANDOM-FIXNUM ...) ; x-compiling (DEFUN RANDOM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-random.lisp ; in: DEFUN RANDOM ; (SB!BIGNUM:%RANDOM-BIGNUM SB!KERNEL::ARG SB!KERNEL::STATE) ; ; caught STYLE-WARNING: ; undefined function: %RANDOM-BIGNUM ; ; compilation unit finished ; Undefined function: ; %RANDOM-BIGNUM ; caught 1 STYLE-WARNING condition ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-random.lisp-obj-tmp written ; compilation finished in 0:00:01.094 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum-random.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!BIGNUM") ; x-compiling (DECLAIM (INLINE BIGNUM-LOWER-BITS-ZERO-P)) ; x-compiling (DEFUN BIGNUM-LOWER-BITS-ZERO-P ...) ; x-compiling (DECLAIM (INLINE RANDOM-BIGNUM-DIGIT)) ; x-compiling (DEFUN RANDOM-BIGNUM-DIGIT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum-random.lisp ; in: DEFUN RANDOM-BIGNUM-DIGIT ; (SB!KERNEL:RANDOM-CHUNK SB!BIGNUM::STATE) ; ==> ; SB!BIGNUM::STATE ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DECLAIM (INLINE RANDOM-BIGNUM-PARTIAL-DIGIT)) ; x-compiling (DEFUN RANDOM-BIGNUM-PARTIAL-DIGIT ...) ; x-compiling (DECLAIM (INLINE CONCATENATE-RANDOM-BIGNUM)) ; x-compiling (DEFUN CONCATENATE-RANDOM-BIGNUM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum-random.lisp ; in: DEFUN CONCATENATE-RANDOM-BIGNUM ; (SB!BIGNUM::RANDOM-BIGNUM-DIGIT SB!BIGNUM::STATE) ; --> BLOCK IF SB!KERNEL:RANDOM-CHUNK ; ==> ; SB!BIGNUM::STATE ; ; note: deleting unreachable code ; x-compiling (DECLAIM (INLINE MAKE-RANDOM-BIGNUM)) ; x-compiling (DEFUN MAKE-RANDOM-BIGNUM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum-random.lisp ; in: DEFUN MAKE-RANDOM-BIGNUM ; (SB!BIGNUM::RANDOM-BIGNUM-DIGIT SB!BIGNUM::STATE) ; --> BLOCK IF SB!KERNEL:RANDOM-CHUNK ; ==> ; SB!BIGNUM::STATE ; ; note: deleting unreachable code ; x-compiling (DEFUN %RANDOM-BIGNUM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bignum-random.lisp ; in: DEFUN %RANDOM-BIGNUM ; (SB!KERNEL:RANDOM-CHUNK SB!BIGNUM::STATE) ; ==> ; SB!BIGNUM::STATE ; ; note: deleting unreachable code ; (LET ((SB!BIGNUM::SHIFT (- SB!KERNEL:N-RANDOM-CHUNK-BITS SB!BIGNUM::N-BITS)) ; (SB!BIGNUM::ARG (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::ARG 0))) ; (LOOP ; (LET ((SB!BIGNUM::BITS #)) ; (WHEN (< SB!BIGNUM::BITS SB!BIGNUM::ARG) (RETURN SB!BIGNUM::BITS))))) ; ; note: deleting unreachable code ; (RETURN SB!BIGNUM::BITS) ; --> RETURN-FROM ; ==> ; SB!BIGNUM::BITS ; ; note: deleting unreachable code ; (LET ((SB!BIGNUM::SHIFT (- SB!KERNEL:N-RANDOM-CHUNK-BITS SB!BIGNUM::N-BITS)) ; (SB!BIGNUM::ARG (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::ARG 0))) ; (LOOP ; (LET ((SB!BIGNUM::BITS #)) ; (WHEN (< SB!BIGNUM::BITS SB!BIGNUM::ARG) (RETURN SB!BIGNUM::BITS))))) ; ; note: deleting unreachable code ; (LET ((SB!BIGNUM::BITS ; (SB!BIGNUM:%DIGIT-LOGICAL-SHIFT-RIGHT ; (SB!KERNEL:RANDOM-CHUNK SB!BIGNUM::STATE) SB!BIGNUM::SHIFT))) ; (WHEN (< SB!BIGNUM::BITS SB!BIGNUM::ARG) (RETURN SB!BIGNUM::BITS))) ; ; note: deleting unreachable code ; (SB!KERNEL:RANDOM-CHUNK SB!BIGNUM::STATE) ; ; note: deleting unreachable code ; (SB!BIGNUM:%DIGIT-LOGICAL-SHIFT-RIGHT ; (SB!KERNEL:RANDOM-CHUNK SB!BIGNUM::STATE) SB!BIGNUM::SHIFT) ; ==> ; SB!BIGNUM::SHIFT ; ; note: deleting unreachable code ; (LET ((SB!BIGNUM::BITS ; (SB!BIGNUM:%DIGIT-LOGICAL-SHIFT-RIGHT ; (SB!KERNEL:RANDOM-CHUNK SB!BIGNUM::STATE) SB!BIGNUM::SHIFT))) ; (WHEN (< SB!BIGNUM::BITS SB!BIGNUM::ARG) (RETURN SB!BIGNUM::BITS))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 12 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/bignum-random.lisp-obj-tmp written ; compilation finished in 0:00:01.339 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-hash-table.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO WITH-CONCURRENT-ACCESS-CHECK ...) ; x-compiling (DECLAIM (INLINE EQ-HASH)) ; x-compiling (DEFUN EQ-HASH ...) ; x-compiling (DECLAIM (INLINE EQUAL-HASH)) ; x-compiling (DEFUN EQUAL-HASH ...) ; x-compiling (DECLAIM (INLINE EQL-HASH)) ; x-compiling (DEFUN EQL-HASH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-hash-table.lisp ; in: DEFUN EQL-HASH ; (SB!IMPL::EQUAL-HASH SB!IMPL::KEY) ; --> THE PROGN BLOCK TYPECASE LET COND IF COND THE PROGN SB!IMPL::EQ-HASH THE ; --> PROGN BLOCK VALUES ODDP LOGTEST IF LOGTEST SB!KERNEL:GET-LISP-OBJ-ADDRESS ; ==> ; SB!IMPL::KEY ; ; note: deleting unreachable code ; --> THE PROGN BLOCK TYPECASE LET COND IF COND THE PROGN SB!IMPL::EQ-HASH THE ; --> PROGN BLOCK VALUES SB!KERNEL:POINTER-HASH ; ==> ; SB!IMPL::KEY ; ; note: deleting unreachable code ; x-compiling (DEFUN EQUALP-HASH ...) ; x-compiling (DECLAIM (INLINE INDEX-FOR-HASHING)) ; x-compiling (DEFUN INDEX-FOR-HASHING ...) ; x-compiling (DEFVAR *USER-HASH-TABLE-TESTS* ...) ; x-compiling (DEFUN REGISTER-HASH-TABLE-TEST ...) ; x-compiling (DEFMACRO DEFINE-HASH-TABLE-TEST ...) ; x-compiling (DEFCONSTANT +MIN-HASH-TABLE-SIZE+ ...) ; x-compiling (DEFCONSTANT +MIN-HASH-TABLE-REHASH-THRESHOLD+ ...) ; x-compiling (DEFUN MAKE-HASH-TABLE ...) ; x-compiling (DEFUN HASH-TABLE-COUNT ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN HASH-TABLE-SIZE ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN SIGNAL-CORRUPT-HASH-TABLE ...) ; x-compiling (DEFUN REHASH ...) ; x-compiling (DEFUN REHASH-WITHOUT-GROWING ...) ; x-compiling (DECLAIM (INLINE MAYBE-REHASH)) ; x-compiling (DEFUN MAYBE-REHASH ...) ; x-compiling (DECLAIM (INLINE UPDATE-HASH-TABLE-CACHE)) ; x-compiling (DEFUN UPDATE-HASH-TABLE-CACHE ...) ; x-compiling (DEFMACRO WITH-HASH-TABLE-LOCKS ...) ; x-compiling (DEFUN GETHASH ...) ; x-compiling (DECLAIM (MAYBE-INLINE %GETHASH3)) ; x-compiling (DEFUN %GETHASH3 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-hash-table.lisp ; in: DEFUN %GETHASH3 ; (SB!IMPL::MAYBE-REHASH HASH-TABLE NIL) ; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WHEN IF PROGN SB!IMPL::REHASH ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> BLOCK FLET BLOCK AND IF AND THE ZEROP = IF = ; --> SB!IMPL::HASH-TABLE-NEXT-FREE-KV SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF ; --> THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET ; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; x-compiling (DEFUN GETHASH3 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-hash-table.lisp ; in: DEFUN GETHASH3 ; (SB!IMPL::%GETHASH3 SB!IMPL::KEY HASH-TABLE SB!IMPL::DEFAULT) ; --> THE PROGN BLOCK TAGBODY LET MACROLET SB!IMPL::MAYBE-REHASH BLOCK FLET ; --> COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET ; --> BLOCK WHEN IF PROGN SB!IMPL::REHASH ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> THE PROGN BLOCK TAGBODY LET MACROLET SB!IMPL::MAYBE-REHASH BLOCK FLET ; --> BLOCK AND IF AND THE ZEROP = IF = SB!IMPL::HASH-TABLE-NEXT-FREE-KV ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> THE PROGN BLOCK TAGBODY LET MACROLET SB!IMPL::MAYBE-REHASH BLOCK FLET ; --> COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET ; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; x-compiling (DEFUN (SETF GETHASH) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-hash-table.lisp ; in: DEFUN (SETF GETHASH) ; (DEFUN (SETF GETHASH) ; (SB!IMPL::NEW-VALUE SB!IMPL::KEY SB!IMPL::TABLE ; &OPTIONAL SB!IMPL::DEFAULT) ; (DECLARE (IGNORE SB!IMPL::DEFAULT)) ; (SB!KERNEL:%PUTHASH SB!IMPL::KEY SB!IMPL::TABLE SB!IMPL::NEW-VALUE)) ; --> PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB!C:%COMPILER-DEFUN '(SETF GETHASH) 'NIL T)) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF GETHASH) ; ; caught STYLE-WARNING: ; defining as a SETF function a name that already has a SETF macro: ; (SETF GETHASH) ; x-compiling (DECLAIM (MAYBE-INLINE %%PUTHASH)) ; x-compiling (DEFUN %%PUTHASH ...) ; x-compiling (DEFUN %PUTHASH ...) ; x-compiling (DECLAIM (MAYBE-INLINE %REMHASH)) ; x-compiling (DEFUN %REMHASH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-hash-table.lisp ; in: DEFUN %REMHASH ; (SB!IMPL::MAYBE-REHASH HASH-TABLE NIL) ; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WHEN IF PROGN SB!IMPL::REHASH ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> BLOCK FLET BLOCK AND IF AND THE ZEROP = IF = ; --> SB!IMPL::HASH-TABLE-NEXT-FREE-KV SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF ; --> THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET ; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; x-compiling (DEFUN REMHASH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-hash-table.lisp ; in: DEFUN REMHASH ; (SB!IMPL::%REMHASH SB!IMPL::KEY HASH-TABLE) ; --> BLOCK SB!IMPL::MAYBE-REHASH BLOCK FLET COND IF PROGN ; --> SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET BLOCK WHEN IF ; --> PROGN SB!IMPL::REHASH ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> BLOCK SB!IMPL::MAYBE-REHASH BLOCK FLET BLOCK AND IF AND THE ZEROP = IF = ; --> SB!IMPL::HASH-TABLE-NEXT-FREE-KV SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF ; --> THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> BLOCK SB!IMPL::MAYBE-REHASH BLOCK FLET COND IF PROGN ; --> SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET ; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; x-compiling (DEFUN CLRHASH ...) ; x-compiling (DECLAIM (INLINE MAPHASH)) ; x-compiling (DEFUN MAPHASH ...) ; x-compiling (DEFUN %HASH-TABLE-CTOR-ARGS ...) ; x-compiling (DEFUN %HASH-TABLE-ALIST ...) ; x-compiling (DEFUN %STUFF-HASH-TABLE ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-hash-table.lisp ; in: DEFUN CLRHASH ; (FILL SB!IMPL::INDEX-VECTOR 0) ; ; caught STYLE-WARNING: ; undefined function: UB64-BASH-FILL ; in: DEFUN REHASH ; (MAKE-ARRAY SB!IMPL::NEW-SIZE :ELEMENT-TYPE '(UNSIGNED-BYTE 64) ; :INITIAL-ELEMENT SB!IMPL::+MAGIC-HASH-VECTOR-VALUE+) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SB!KERNEL:ALLOCATE-VECTOR 173 (THE SB!INT:INDEX LENGTH) ; (* LENGTH 1))) ; (THE (UNSIGNED-BYTE 64) '9223372036854775808)) ; ; caught STYLE-WARNING: ; undefined function: UB64-BASH-FILL ; in: DEFUN MAKE-HASH-TABLE ; (MAKE-ARRAY SB!IMPL::SIZE+1 :ELEMENT-TYPE '(UNSIGNED-BYTE 64) ; :INITIAL-ELEMENT SB!IMPL::+MAGIC-HASH-VECTOR-VALUE+) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SB!KERNEL:ALLOCATE-VECTOR 173 (THE SB!INT:INDEX LENGTH) ; (* LENGTH 1))) ; (THE (UNSIGNED-BYTE 64) '9223372036854775808)) ; ; caught STYLE-WARNING: ; undefined function: UB64-BASH-FILL ; ; compilation unit finished ; Undefined function: ; UB64-BASH-FILL ; caught 5 STYLE-WARNING conditions ; printed 14 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-hash-table.lisp-obj-tmp written ; compilation finished in 0:00:01.486 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/reader.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *READ-DEFAULT-FLOAT-FORMAT* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *READTABLE*) ; x-compiling (DECLAIM (TYPE READTABLE ...)) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFGLOBAL *STANDARD-READTABLE* ...) ; x-compiling (DEFVAR *OLD-PACKAGE* ...) ; x-compiling (DECLAIM (SPECIAL *PACKAGE* ...)) ; x-compiling (DEFUN READER-EOF-ERROR ...) ; x-compiling (DEFUN SIMPLE-READER-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN GET-CAT-ENTRY ...) ; x-compiling (DEFUN SET-CAT-ENTRY ...) ; x-compiling (DEFUN SET-CMT-ENTRY ...) ; x-compiling (DEFUN GET-RAW-CMT-ENTRY ...) ; x-compiling (DEFUN GET-RAW-CMT-DISPATCH-ENTRY ...) ; x-compiling (DEFMACRO !COERCE-TO-CMT-ENTRY ...) ; x-compiling (DEFMACRO !CMT-ENTRY-TO-FUNCTION ...) ; x-compiling (DEFMACRO !CMT-ENTRY-TO-FUN-DESIGNATOR ...) ; x-compiling (DEFMACRO WITH-CHAR-MACRO-RESULT ...) ; x-compiling (DEFUN UNDEFINED-MACRO-CHAR ...) ; x-compiling (DEFMACRO TEST-ATTRIBUTE ...) ; x-compiling (DECLAIM (INLINE WHITESPACE[1]P ...)) ; x-compiling (DECLAIM (INLINE CONSTITUENTP ...)) ; x-compiling (DECLAIM (INLINE SINGLE-ESCAPE-P ...)) ; x-compiling (DECLAIM (INLINE TOKEN-DELIMITERP)) ; x-compiling (DEFUN WHITESPACE[1]P ...) ; x-compiling (DEFUN WHITESPACE[2]P ...) ; x-compiling (DEFUN CONSTITUENTP ...) ; x-compiling (DEFUN TERMINATING-MACROP ...) ; x-compiling (DEFUN SINGLE-ESCAPE-P ...) ; x-compiling (DEFUN MULTIPLE-ESCAPE-P ...) ; x-compiling (DEFUN TOKEN-DELIMITERP ...) ; x-compiling (DECLAIM (TYPE ATTRIBUTE-TABLE ...)) ; x-compiling (DEFGLOBAL *CONSTITUENT-TRAIT-TABLE* ...) ; x-compiling (DEFUN !SET-CONSTITUENT-TRAIT ...) ; x-compiling (DEFUN !COLD-INIT-CONSTITUENT-TRAIT-TABLE ...) ; x-compiling (DECLAIM (INLINE GET-CONSTITUENT-TRAIT)) ; x-compiling (DEFUN GET-CONSTITUENT-TRAIT ...) ; x-compiling (DEFUN ASSERT-NOT-STANDARD-READTABLE ...) ; x-compiling (DEFUN READTABLE-CASE ...) ; x-compiling (DEFUN (SETF READTABLE-CASE) ...) ; x-compiling (DEFUN REPLACE/EQL-HASH-TABLE ...) ; x-compiling (DEFUN %MAKE-DISPATCH-MACRO-CHAR ...) ; x-compiling (DEFUN %DISPATCH-MACRO-CHAR-TABLE ...) ; x-compiling (DEFUN COPY-CMT-ENTRY ...) ; x-compiling (DEFUN COPY-READTABLE ...) ; x-compiling (DEFUN SET-SYNTAX-FROM-CHAR ...) ; x-compiling (DEFUN SET-MACRO-CHARACTER ...) ; x-compiling (DEFUN GET-MACRO-CHARACTER ...) ; x-compiling (DEFUN GET-DISPATCH-MACRO-CHAR-TABLE ...) ; x-compiling (DEFUN MAKE-DISPATCH-MACRO-CHARACTER ...) ; x-compiling (DEFUN SET-DISPATCH-MACRO-CHARACTER ...) ; x-compiling (DEFUN GET-DISPATCH-MACRO-CHARACTER ...) ; x-compiling (DECLAIM (INLINE EOFP)) ; x-compiling (DEFUN EOFP ...) ; x-compiling (DEFUN FLUSH-WHITESPACE ...) ; x-compiling (DEFUN !COLD-INIT-STANDARD-READTABLE ...) ; x-compiling (DEFSTRUCT (TOKEN-BUF # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE TOKEN-BUF)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DECLAIM (TYPE TOKEN-BUF ...)) ; x-compiling (DEFVAR *READ-BUFFER*) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *TOKEN-BUF-POOL* ...) ; x-compiling (DECLAIM (INLINE RESET-READ-BUFFER)) ; x-compiling (DEFUN RESET-READ-BUFFER ...) ; x-compiling (DECLAIM (INLINE OUCH-READ-BUFFER)) ; x-compiling (DEFUN OUCH-READ-BUFFER ...) ; x-compiling (DEFUN GROW-READ-BUFFER ...) ; x-compiling (DECLAIM (MAYBE-INLINE TOKEN-BUF-GETCHAR)) ; x-compiling (DEFUN TOKEN-BUF-GETCHAR ...) ; x-compiling (DEFUN ACQUIRE-TOKEN-BUF ...) ; x-compiling (DEFUN RELEASE-TOKEN-BUF ...) ; x-compiling (DEFUN COPY-TOKEN-BUF-STRING ...) ; x-compiling (DEFUN SHARE-TOKEN-BUF-STRING ...) ; x-compiling (DEFMACRO WITH-READ-BUFFER ...) ; x-compiling (DEFUN CHECK-FOR-RECURSIVE-READ ...) ; x-compiling (DEFVAR *SHARP-EQUAL-ALIST* ...) ; x-compiling (DECLAIM (SPECIAL *STANDARD-INPUT*)) ; x-compiling (DEFUN %READ-PRESERVING-WHITESPACE ...) ; x-compiling (DEFUN READ-PRESERVING-WHITESPACE ...) ; x-compiling (DEFUN READ-MAYBE-NOTHING ...) ; x-compiling (DEFUN READ ...) ; x-compiling (DEFUN READ-DELIMITED-LIST ...) ; x-compiling (DEFUN READ-QUOTE ...) ; x-compiling (DEFUN READ-COMMENT ...) ; x-compiling (DEFUN READ-LIST ...) ; x-compiling (DEFUN READ-AFTER-DOT ...) ; x-compiling (DEFUN READ-STRING ...) ; x-compiling (DEFUN READ-RIGHT-PAREN ...) ; x-compiling (DEFUN INTERNAL-READ-EXTENDED-TOKEN ...) ; x-compiling (DEFMACRO CHAR-CLASS ...) ; x-compiling (DEFMACRO CHAR-CLASS2 ...) ; x-compiling (DEFMACRO CHAR-CLASS3 ...) ; x-compiling (DEFVAR *READ-SUPPRESS* ...) ; x-compiling (DEFVAR *READ-BASE* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFUN CASIFY-READ-BUFFER ...) ; x-compiling (DEFVAR *READER-PACKAGE* ...) ; x-compiling (DECLAIM (TYPE # ...) ...) ; x-compiling (DEFUN READER-FIND-PACKAGE ...) ; x-compiling (DEFUN READ-TOKEN ...) ; x-compiling (DEFUN READ-EXTENDED-TOKEN ...) ; x-compiling (DEFUN READ-EXTENDED-TOKEN-ESCAPED ...) ; x-compiling (DEFMACRO !SETQ-OPTIONAL-LEADING-SIGN ...) ; x-compiling (DEFUN MAKE-INTEGER ...) ; x-compiling (DEFUN TRUNCATE-EXPONENT ...) ; x-compiling (DEFUN MAKE-FLOAT ...) ; x-compiling (DEFUN MAKE-FLOAT-AUX ...) ; x-compiling (DEFUN MAKE-RATIO ...) ; x-compiling (DEFUN DISPATCH-CHAR-ERROR ...) ; x-compiling (DEFUN READ-DISPATCH-CHAR ...) ; x-compiling (DEFUN MAYBE-NOTE-READ-FROM-STRING-SIGNATURE-ISSUE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %READ-FROM-STRING ...) ; x-compiling (DEFUN READ-FROM-STRING ...) ; x-compiling (DEFINE-COMPILER-MACRO READ-FROM-STRING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/reader.lisp ; in: DEFINE-COMPILER-MACRO READ-FROM-STRING ; (DEFINE-COMPILER-MACRO READ-FROM-STRING ; (&WHOLE SB!KERNEL:FORM STRING &REST SB!IMPL::ARGS) ; (DESTRUCTURING-BIND ; (&OPTIONAL (SB!IMPL::EOF-ERROR-P T) SB!IMPL::EOF-VALUE ; &REST SB!IMPL::KEYS) ; SB!IMPL::ARGS ; (COND ; ((SB!IMPL::MAYBE-NOTE-READ-FROM-STRING-SIGNATURE-ISSUE ; SB!IMPL::EOF-ERROR-P) ; (SB!IMPL::BACKQ-LIST* 'READ-FROM-STRING STRING 'T SB!IMPL::EOF-VALUE ; SB!IMPL::KEYS)) ; (T ; (LET* # ; # ; # ; #))))) ; --> EVAL-WHEN ; ==> ; (SB!C::%DEFINE-COMPILER-MACRO 'READ-FROM-STRING ; #'(LAMBDA (#:WHOLE2016 #:ENVIRONMENT2017) ; (DECLARE (IGNORE #:ENVIRONMENT2017)) ; (LET* ((#:CMACRO-&WHOLE157105 #:WHOLE2016) ; (#:WHOLE2016 #)) ; (DECLARE ; (IGNORABLE #:CMACRO-&WHOLE157105)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK READ-FROM-STRING #)))) ; '(&WHOLE SB!KERNEL:FORM STRING &REST ; SB!IMPL::ARGS) ; NIL '(COMPILER-MACRO-FUNCTION READ-FROM-STRING)) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-NOTE-READ-FROM-STRING-SIGNATURE-ISSUE ; x-compiling (DEFUN PARSE-INTEGER ...) ; x-compiling (DEFUN !READER-COLD-INIT ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN DISPATCH-TABLES ...) ; x-compiling (DEFUN (SETF DISPATCH-TABLES) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/reader.lisp ; in: DEFGLOBAL *CONSTITUENT-TRAIT-TABLE* ; (MAKE-ARRAY SB!INT:BASE-CHAR-CODE-LIMIT :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT SB!IMPL::+CHAR-ATTR-CONSTITUENT+) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (128)) ; (SB!KERNEL:ALLOCATE-VECTOR 145 (THE SB!INT:INDEX LENGTH) ; 16)) ; (THE (UNSIGNED-BYTE 8) '4)) ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; ; compilation unit finished ; Undefined function: ; UB8-BASH-FILL ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/reader.lisp-obj-tmp written ; compilation finished in 0:00:01.721 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-stream.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (SB-XC:DEFMACRO GENERALIZED-PEEKING-MECHANISM ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-PEEK-CHAR)) ; x-compiling (DEFUN ANSI-STREAM-PEEK-CHAR ...) ; x-compiling (DEFUN PEEK-CHAR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-stream.lisp ; in: DEFUN PEEK-CHAR ; (SB!GRAY:STREAM-UNREAD-CHAR STREAM CHAR) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!GRAY:STREAM-PEEK-CHAR STREAM) ; ==> ; STREAM ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DEFUN ECHO-MISC ...); ; compilation unit finished ; printed 3 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-stream.lisp-obj-tmp written ; compilation finished in 0:00:00.189 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-pathname.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (FREEZE-TYPE LOGICAL-PATHNAME ...)) ; x-compiling (DEFVAR *PHYSICAL-HOST*) ; x-compiling (DEFUN MAKE-HOST-LOAD-FORM ...) ; x-compiling (DEFUN MAKE-TRIVIAL-DEFAULT-PATHNAME ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...) ; x-compiling (DEFUN %MAKE-MAYBE-LOGICAL-PATHNAME ...) ; x-compiling (DEFVAR *LOGICAL-HOSTS* ...) ; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN PATTERN= ...) ; x-compiling (DEFUN PATTERN-MATCHES ...) ; x-compiling (DEFUN DIRECTORY-COMPONENTS-MATCH ...) ; x-compiling (DEFUN COMPONENTS-MATCH ...) ; x-compiling (DEFUN COMPARE-COMPONENT ...) ; x-compiling (DEFUN PATHNAME= ...) ; x-compiling (DEFUN FIND-HOST ...) ; x-compiling (DEFUN PATHNAME ...) ; x-compiling (DEFUN NATIVE-PATHNAME ...) ; x-compiling (DEFUN MAYBE-DIDDLE-CASE ...) ; x-compiling (DEFUN MERGE-DIRECTORIES ...) ; x-compiling (DEFUN MERGE-PATHNAMES ...) ; x-compiling (DEFUN IMPORT-DIRECTORY ...) ; x-compiling (DEFUN MAKE-PATHNAME ...) ; x-compiling (DEFUN PATHNAME-HOST ...) ; x-compiling (DEFUN PATHNAME-DEVICE ...) ; x-compiling (DEFUN PATHNAME-DIRECTORY ...) ; x-compiling (DEFUN PATHNAME-NAME ...) ; x-compiling (DEFUN PATHNAME-TYPE ...) ; x-compiling (DEFUN PATHNAME-VERSION ...) ; x-compiling (DEFUN PARSEABLE-LOGICAL-NAMESTRING-P ...) ; x-compiling (DEFUN %PARSE-NAMESTRING ...) ; x-compiling (DEFUN EXTRACT-LOGICAL-HOST-PREFIX ...) ; x-compiling (DEFUN PARSE-NAMESTRING ...) ; x-compiling (DEFUN %PARSE-NATIVE-NAMESTRING ...) ; x-compiling (DEFUN PARSE-NATIVE-NAMESTRING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-pathname.lisp ; in: DEFUN PARSE-NATIVE-NAMESTRING ; (DEFUN SB!EXT:PARSE-NATIVE-NAMESTRING ; (SB!IMPL::THING ; &OPTIONAL SB!KERNEL:HOST ; (SB!IMPL::DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*) ; &KEY (SB!IMPL::START 0) SB!IMPL::END SB!IMPL::JUNK-ALLOWED ; 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 ; (VALUES &OPTIONAL (OR NULL PATHNAME) (OR NULL (MOD 4611686018427387901)) ; &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 4611686018427387901)) &REST ; ...). ; x-compiling (DEFUN NAMESTRING ...) ; x-compiling (DEFUN NATIVE-NAMESTRING ...) ; x-compiling (DEFUN HOST-NAMESTRING ...) ; x-compiling (DEFUN DIRECTORY-NAMESTRING ...) ; x-compiling (DEFUN FILE-NAMESTRING ...) ; x-compiling (DEFUN ENOUGH-NAMESTRING ...) ; x-compiling (DEFUN WILD-PATHNAME-P ...) ; x-compiling (DEFUN PATHNAME-MATCH-P ...) ; x-compiling (DEFUN SUBSTITUTE-INTO ...) ; x-compiling (DEFUN DIDNT-MATCH-ERROR ...) ; x-compiling (DEFUN TRANSLATE-COMPONENT ...) ; x-compiling (DEFUN COMPUTE-DIRECTORY-SUBSTITUTIONS ...) ; x-compiling (DEFUN TRANSLATE-DIRECTORIES ...) ; x-compiling (DEFUN TRANSLATE-PATHNAME ...) ; x-compiling (DEFUN SIMPLIFY-NAMESTRING ...) ; x-compiling (DEFUN LOGICAL-WORD-OR-LOSE ...) ; x-compiling (DEFUN FIND-LOGICAL-HOST ...) ; x-compiling (DEFUN INTERN-LOGICAL-HOST ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-pathname.lisp ; in: DEFUN INTERN-LOGICAL-HOST ; (DEFUN SB!IMPL::INTERN-LOGICAL-HOST (SB!IMPL::THING) ; (DECLARE (VALUES SB!KERNEL:LOGICAL-HOST)) ; (SB!INT:WITH-LOCKED-SYSTEM-TABLE (SB!IMPL::*LOGICAL-HOSTS*) ; (OR (SB!IMPL::FIND-LOGICAL-HOST SB!IMPL::THING NIL) ; (LET* (# #) ; (SETF #) ; SB!IMPL::NEW)))) ; --> PROGN SB!INT:COLD-FSET ; ==> ; (THE (VALUES SB!KERNEL:LOGICAL-HOST &REST T) ; (PROGN ; (BLOCK SB!IMPL::INTERN-LOGICAL-HOST ; (SB!INT:WITH-LOCKED-SYSTEM-TABLE (SB!IMPL::*LOGICAL-HOSTS*) ; (OR # #))))) ; ; note: type assertion too complex to check: ; (VALUES LOGICAL-HOST &REST T). ; x-compiling (DEFUN MAYBE-MAKE-LOGICAL-PATTERN ...) ; x-compiling (DEFUN LOGICAL-CHUNKIFY ...) ; x-compiling (DEFUN PARSE-LOGICAL-NAMESTRING ...) ; x-compiling (DEFVAR *LOGICAL-PATHNAME-DEFAULTS*) ; x-compiling (DEFUN LOGICAL-NAMESTRING-P ...) ; x-compiling (DEFTYPE LOGICAL-NAMESTRING ...) ; x-compiling (DEFUN LOGICAL-PATHNAME ...) ; x-compiling (DEFUN UNPARSE-LOGICAL-DIRECTORY ...) ; x-compiling (DEFUN UNPARSE-LOGICAL-PIECE ...) ; x-compiling (DEFUN UNPARSE-LOGICAL-FILE ...) ; x-compiling (DEFUN UNPARSE-ENOUGH-NAMESTRING ...) ; x-compiling (DEFUN UNPARSE-LOGICAL-NAMESTRING ...) ; x-compiling (DEFUN CANONICALIZE-LOGICAL-PATHNAME-TRANSLATIONS ...) ; x-compiling (DEFUN LOGICAL-PATHNAME-TRANSLATIONS ...) ; x-compiling (DEFUN (SETF LOGICAL-PATHNAME-TRANSLATIONS) ...) ; x-compiling (DEFUN TRANSLATE-LOGICAL-PATHNAME ...) ; x-compiling (DEFVAR *LOGICAL-PATHNAME-DEFAULTS* ...) ; x-compiling (DEFUN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...) ; x-compiling (DEFUN !PATHNAME-COLD-INIT ...) ; x-compiling (DEFUN SET-SBCL-SOURCE-LOCATION ...); ; compilation unit finished ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-pathname.lisp-obj-tmp written ; compilation finished in 0:00:01.605 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix-pathname.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!STRUCT (UNIX-HOST # ...)) ; x-compiling (DEFVAR *PHYSICAL-HOST* ...) ; x-compiling (DEFUN SPLIT-AT-SLASHES ...) ; x-compiling (DEFUN PARSE-UNIX-NAMESTRING ...) ; x-compiling (DEFUN PARSE-NATIVE-UNIX-NAMESTRING ...) ; x-compiling (/SHOW0 "filesys.lisp 300") ; x-compiling (DEFUN UNPARSE-UNIX-HOST ...) ; x-compiling (DEFUN UNPARSE-UNIX-DIRECTORY ...) ; x-compiling (DEFUN UNPARSE-UNIX-FILE ...) ; x-compiling (/SHOW0 "filesys.lisp 406") ; x-compiling (DEFUN UNPARSE-UNIX-NAMESTRING ...) ; x-compiling (DEFUN UNPARSE-NATIVE-UNIX-NAMESTRING ...) ; x-compiling (DEFUN UNPARSE-UNIX-ENOUGH ...) ; x-compiling (DEFUN SIMPLIFY-UNIX-NAMESTRING ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/unix-pathname.lisp ; in: DEFUN PARSE-UNIX-NAMESTRING ; (SB!IMPL::EXTRACT-NAME-TYPE-AND-VERSION NAMESTRING SB!IMPL::TAIL-START ; SB!IMPL::TAIL-END #\\) ; ; caught STYLE-WARNING: ; undefined function: EXTRACT-NAME-TYPE-AND-VERSION ; (SB!IMPL::MAYBE-MAKE-PATTERN NAMESTRING SB!IMPL::PIECE-START ; SB!IMPL::PIECE-END #\\) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-MAKE-PATTERN ; in: DEFUN UNPARSE-UNIX-ENOUGH ; (SB!IMPL::UNPARSE-PHYSICAL-PIECE PATHNAME-NAME #\\) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-PHYSICAL-PIECE ; in: DEFUN UNPARSE-UNIX-FILE ; (SB!IMPL::UNPARSE-PHYSICAL-PIECE SB!IMPL::NAME #\\) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-PHYSICAL-PIECE ; in: DEFUN UNPARSE-NATIVE-UNIX-NAMESTRING ; (SB!IMPL::USER-HOMEDIR-NAMESTRING) ; ; caught STYLE-WARNING: ; undefined function: USER-HOMEDIR-NAMESTRING ; ; compilation unit finished ; Undefined functions: ; EXTRACT-NAME-TYPE-AND-VERSION MAYBE-MAKE-PATTERN UNPARSE-PHYSICAL-PIECE USER-HOMEDIR-NAMESTRING ; caught 5 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/unix-pathname.lisp-obj-tmp written ; compilation finished in 0:00:00.586 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/filesys.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN REMOVE-ESCAPE-CHARACTERS ...) ; x-compiling (DEFUN MAYBE-MAKE-PATTERN ...) ; x-compiling (DEFUN UNPARSE-PHYSICAL-PIECE ...) ; x-compiling (DEFUN MAKE-MATCHER ...) ; x-compiling (/SHOW0 "filesys.lisp 160") ; x-compiling (DEFUN EXTRACT-NAME-TYPE-AND-VERSION ...) ; x-compiling (/SHOW0 "filesys.lisp 200") ; x-compiling (DEFUN NATIVE-FILE-KIND ...) ; x-compiling (DEFUN QUERY-FILE-SYSTEM ...) ; x-compiling (DEFUN PROBE-FILE ...) ; x-compiling (DEFUN TRUENAME ...) ; x-compiling (DEFUN FILE-AUTHOR ...) ; x-compiling (DEFUN FILE-WRITE-DATE ...) ; x-compiling (/SHOW0 "filesys.lisp 700") ; x-compiling (DEFUN RENAME-FILE ...) ; x-compiling (DEFUN DELETE-FILE ...) ; x-compiling (DEFUN DIRECTORIZE-PATHNAME ...) ; x-compiling (DEFUN DELETE-DIRECTORY ...) ; x-compiling (DEFUN SBCL-HOMEDIR-PATHNAME ...) ; x-compiling (DEFUN USER-HOMEDIR-NAMESTRING ...) ; x-compiling (DEFUN USER-HOMEDIR-PATHNAME ...) ; x-compiling (DEFUN DIRECTORY ...) ; x-compiling (DEFUN CANONICALIZE-PATHNAME ...) ; x-compiling (DEFMACRO WITH-NATIVE-DIRECTORY-ITERATOR ...) ; x-compiling (DEFUN CALL-WITH-NATIVE-DIRECTORY-ITERATOR ...) ; x-compiling (DEFUN MAP-DIRECTORY ...) ; x-compiling (DEFUN MAP-MATCHING-DIRECTORIES ...) ; x-compiling (DEFUN LAST-DIRECTORY-PIECE ...) ; x-compiling (DEFUN MAP-WILD ...) ; x-compiling (DEFUN MAP-WILD-INFERIORS ...) ; x-compiling (DEFUN MAP-MATCHING-ENTRIES ...) ; x-compiling (DEFUN PATHNAME-INTERSECTIONS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/filesys.lisp ; in: DEFUN PATHNAME-INTERSECTIONS ; (COND ((EQ SB!IMPL::ONE :WILD) SB!IMPL::TWO) ; ((EQ SB!IMPL::TWO :WILD) SB!IMPL::ONE) ; ((OR (NULL SB!IMPL::ONE) (EQ SB!IMPL::ONE :UNSPECIFIC)) SB!IMPL::TWO) ; ((OR (NULL SB!IMPL::TWO) (EQ SB!IMPL::TWO :UNSPECIFIC)) SB!IMPL::ONE) ; (T (SB!INT:AVER (EQ (CAR SB!IMPL::ONE) (CAR SB!IMPL::TWO))) ; (MAPCAR (LAMBDA (SB!IMPL::X) (CONS # SB!IMPL::X)) ; (SB!IMPL::INTERSECT-DIRECTORY-HELPER (CDR SB!IMPL::ONE) ; (CDR SB!IMPL::TWO))))) ; --> IF PROGN ; ==> ; SB!IMPL::TWO ; ; note: deleting unreachable code ; --> IF COND IF PROGN ; ==> ; SB!IMPL::ONE ; ; note: deleting unreachable code ; x-compiling (DEFUN INTERSECT-DIRECTORY-HELPER ...) ; x-compiling (DEFUN DIRECTORY-PATHNAME-P ...) ; x-compiling (DEFUN ENSURE-DIRECTORIES-EXIST ...) ; x-compiling (/SHOW0 "filesys.lisp 1000"); ; compilation unit finished ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/filesys.lisp-obj-tmp written ; compilation finished in 0:00:01.716 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/save.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-ALIEN-ROUTINE "save" ...) ; x-compiling (DEFINE-ALIEN-ROUTINE "gc_and_save" ...) ; x-compiling (DEFVAR SB!VM::*RESTART-LISP-FUNCTION*) ; x-compiling (DEFINE-CONDITION SAVE-CONDITION ...) ; x-compiling (DEFINE-CONDITION SAVE-ERROR ...) ; x-compiling (DEFINE-CONDITION SAVE-WITH-MULTIPLE-THREADS-ERROR ...) ; x-compiling (DEFUN SAVE-LISP-AND-DIE ...) ; x-compiling (DEFUN DEINIT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/save.lisp ; in: DEFUN DEINIT ; (SB!THREAD::INTERACTIVE-THREADS) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::INTERACTIVE-THREADS ; (SB!THREAD:LIST-ALL-THREADS) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:LIST-ALL-THREADS ; (SB!KERNEL:PROFILE-DEINIT) ; ; caught STYLE-WARNING: ; undefined function: PROFILE-DEINIT ; in: DEFUN SAVE-LISP-AND-DIE ; (SB!IMPL::REINIT) ; ; caught STYLE-WARNING: ; undefined function: REINIT ; ; compilation unit finished ; Undefined functions: ; SB!THREAD::INTERACTIVE-THREADS SB!THREAD:LIST-ALL-THREADS PROFILE-DEINIT REINIT ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/save.lisp-obj-tmp written ; compilation finished in 0:00:01.119 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/sharpm.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (SPECIAL *READ-SUPPRESS* ...)) ; x-compiling (DEFUN IGNORE-NUMARG ...) ; x-compiling (DEFUN SHARP-LEFT-PAREN ...) ; x-compiling (DEFUN SHARP-STAR ...) ; x-compiling (DEFUN SHARP-A ...) ; x-compiling (DEFUN SHARP-S ...) ; x-compiling (DEFUN SHARP-B ...) ; x-compiling (DEFUN SHARP-C ...) ; x-compiling (DEFUN SHARP-O ...) ; x-compiling (DEFUN SHARP-R ...) ; x-compiling (DEFUN SHARP-X ...) ; x-compiling (DEFVAR *SHARP-EQUAL-CIRCLE-TABLE*) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFUN CIRCLE-SUBST ...) ; x-compiling (DEFVAR *SHARP-SHARP-ALIST* ...) ; x-compiling (DEFUN SHARP-EQUAL ...) ; x-compiling (DEFUN SHARP-SHARP ...) ; x-compiling (FLET (#) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/sharpm.lisp ; in: DEFUN SHARP-PLUS ; (DEFUN SB!IMPL::SHARP-PLUS (STREAM SB!IMPL::SUB-CHAR SB!IMPL::NUMARG) ; (SB!IMPL::IGNORE-NUMARG SB!IMPL::SUB-CHAR SB!IMPL::NUMARG) ; (SB!IMPL::GUTS STREAM NIL)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::SHARP-PLUS ; (LAMBDA (STREAM SB!IMPL::SUB-CHAR SB!IMPL::NUMARG) ; (BLOCK SB!IMPL::SHARP-PLUS ; (SB!IMPL::IGNORE-NUMARG SB!IMPL::SUB-CHAR ; SB!IMPL::NUMARG) ; (SB!IMPL::GUTS STREAM NIL)))) ; ; caught STYLE-WARNING: ; 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: ; COLD-FSET SHARP-MINUS not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; x-compiling (DEFUN SHARP-P ...) ; x-compiling (DEFUN SHARP-BACKSLASH ...) ; x-compiling (DEFUN SHARP-VERTICAL-BAR ...) ; x-compiling (DEFUN SHARP-QUOTE ...) ; x-compiling (DEFUN SHARP-COLON ...) ; x-compiling (DEFVAR *READ-EVAL* ...) ; x-compiling (DEFUN SHARP-DOT ...) ; x-compiling (DEFUN SHARP-ILLEGAL ...) ; x-compiling (DEFUN !SHARPM-COLD-INIT ...); ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/sharpm.lisp-obj-tmp written ; compilation finished in 0:00:00.226 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/alloc.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DECLAIM (INLINE STORE-WORD)) ; x-compiling (DEFUN STORE-WORD ...) ; x-compiling (DEFUN ALLOCATE-STATIC-VECTOR ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/alloc.lisp-obj-tmp written ; compilation finished in 0:00:00.048 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-step.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *STEP-OUT* ...) ; x-compiling (DEFUN (SETF STEPPING) ...) ; x-compiling (DEFUN STEPPING-ENABLED-P ...) ; x-compiling (DEFUN ENABLE-STEPPING ...) ; x-compiling (DEFUN DISABLE-STEPPING ...) ; x-compiling (DEFMACRO WITH-STEPPING-ENABLED ...) ; x-compiling (DEFMACRO WITH-STEPPING-DISABLED ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-step.lisp ; in: DEFUN (SETF STEPPING) ; (SETF SB!IMPL::PLACE SB!IMPL::NEW-VALUE) ; --> SETQ SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!THREAD::THREAD-STEPPING) #:NEW0) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!THREAD::THREAD-STEPPING) ; in: SYMBOL-MACROLET ((PLACE (SB!THREAD::THREAD-STEPPING))) ; (SB!THREAD::THREAD-STEPPING) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::THREAD-STEPPING ; ; compilation unit finished ; Undefined functions: ; (SETF SB!THREAD::THREAD-STEPPING) SB!THREAD::THREAD-STEPPING ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-step.lisp-obj-tmp written ; compilation finished in 0:00:00.083 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-thread.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!THREAD") ; x-compiling (DEFMACRO WITH-CAS-LOCK ...) ; x-compiling (DEFMACRO %WITH-CAS-LOCK ...) ; x-compiling (DEFINE-CONDITION THREAD-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-THREAD-ERROR ...) ; x-compiling (DEFINE-CONDITION THREAD-DEADLOCK ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFINE-CONDITION SYMBOL-VALUE-IN-THREAD-ERROR ...) ; x-compiling (DEFINE-CONDITION JOIN-THREAD-ERROR ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :LATE ...) ; x-compiling (DEFINE-CONDITION INTERRUPT-THREAD-ERROR ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :LATE ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN PRINT-LOCK ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN THREAD-ALIVE-P ...) ; x-compiling (DEFUN THREAD-EPHEMERAL-P ...) ; x-compiling (DEFVAR *ALL-THREADS* ...) ; x-compiling (DEFVAR *ALL-THREADS-LOCK* ...) ; x-compiling (DEFVAR *DEFAULT-ALLOC-SIGNAL* ...) ; x-compiling (DEFMACRO WITH-ALL-THREADS-LOCK ...) ; x-compiling (DEFUN LIST-ALL-THREADS ...) ; x-compiling (DECLAIM (INLINE CURRENT-THREAD-SAP)) ; x-compiling (DEFUN CURRENT-THREAD-SAP ...) ; x-compiling (DECLAIM (INLINE CURRENT-THREAD-OS-THREAD)) ; x-compiling (DEFUN CURRENT-THREAD-OS-THREAD ...) ; x-compiling (DEFVAR *INITIAL-THREAD* ...) ; x-compiling (DEFVAR *MAKE-THREAD-LOCK*) ; x-compiling (DEFUN INIT-INITIAL-THREAD ...) ; x-compiling (DEFUN MAIN-THREAD ...) ; x-compiling (DEFUN MAIN-THREAD-P ...) ; x-compiling (DEFMACRO RETURN-FROM-THREAD ...) ; x-compiling (DEFUN %RETURN-FROM-THREAD ...) ; x-compiling (DEFUN ABORT-THREAD ...) ; x-compiling (DEFINE-ALIEN-ROUTINE "kill_safely" ...) ; x-compiling (DEFINE-ALIEN-ROUTINE "wake_thread" ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("create_thread" %CREATE-THREAD) ...) ; x-compiling (DECLAIM (INLINE %BLOCK-DEFERRABLE-SIGNALS)) ; x-compiling (DEFINE-ALIEN-ROUTINE ("block_deferrable_signals" %BLOCK-DEFERRABLE-SIGNALS) ...) ; x-compiling (DEFUN BLOCK-DEFERRABLE-SIGNALS ...) ; x-compiling (DEFUN SB!VM::CURRENT-THREAD-OFFSET-SAP ...) ; x-compiling (DEFMACRO WITH-DEADLOCKS ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN MUTEX-OWNER ...) ; x-compiling (SB!EXT:DEFGLOBAL **DEADLOCK-LOCK** ...) ; x-compiling (DEFUN CHECK-DEADLOCK ...) ; x-compiling (DEFUN %TRY-MUTEX ...) ; x-compiling (DEFUN %%WAIT-FOR-MUTEX ...) ; x-compiling (DEFUN %WAIT-FOR-MUTEX ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-thread.lisp ; in: DEFUN %WAIT-FOR-MUTEX ; (SB!THREAD::WITH-DEADLOCKS ; (SB!THREAD::SELF SB!THREAD:MUTEX SB!THREAD::TIMEOUT) ; (SB!SYS:WITH-INTERRUPTS (SB!THREAD::CHECK-DEADLOCK)) ; (TAGBODY ; :AGAIN ; (RETURN-FROM SB!THREAD::%WAIT-FOR-MUTEX ; (OR ; (SB!THREAD::%%WAIT-FOR-MUTEX SB!THREAD:MUTEX SB!THREAD::SELF ; SB!THREAD::TO-SEC SB!THREAD::TO-USEC SB!THREAD::STOP-SEC ; SB!THREAD::STOP-USEC) ; (WHEN SB!THREAD::DEADLINEP # # #))))) ; --> LET* IF ; ==> ; (CONS #:N-TIMEOUT-315 #:N-LOCK-313) ; ; note: could not stack allocate: ; (WITH-DEADLOCKS (SELF MUTEX TIMEOUT) (WITH-INTERRUPTS (CHECK-DEADLOCK)) ; (TAGBODY :AGAIN (RETURN-FROM %WAIT-FOR-MUTEX (OR # #)))) ; ==> ; #:N-LOCK-313 ; ; note: could not stack allocate MUTEX in: ; (WITH-DEADLOCKS (SELF MUTEX TIMEOUT) (WITH-INTERRUPTS (CHECK-DEADLOCK)) ; (TAGBODY :AGAIN (RETURN-FROM %WAIT-FOR-MUTEX (OR # #)))) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFUN GRAB-MUTEX ...) ; x-compiling (DEFUN RELEASE-MUTEX ...) ; x-compiling (DEFSTRUCT (WAITQUEUE #) ...) ; x-compiling (DEFUN %WAITQUEUE-ENQUEUE ...) ; x-compiling (DEFUN %WAITQUEUE-DROP ...) ; x-compiling (DEFUN %WAITQUEUE-WAKEUP ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN MAKE-WAITQUEUE ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN CONDITION-WAIT ...) ; x-compiling (DEFUN CONDITION-NOTIFY ...) ; x-compiling (DEFUN CONDITION-BROADCAST ...) ; x-compiling (DEFSTRUCT (SEMAPHORE #) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFSTRUCT (SEMAPHORE-NOTIFICATION # ...) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DECLAIM (INLINE SEMAPHORE-NOTIFICATION-STATUS)) ; x-compiling (DEFUN SEMAPHORE-NOTIFICATION-STATUS ...) ; x-compiling (DECLAIM (INLINE CLEAR-SEMAPHORE-NOTIFICATION)) ; x-compiling (DEFUN CLEAR-SEMAPHORE-NOTIFICATION ...) ; x-compiling (DECLAIM (INLINE SEMAPHORE-COUNT)) ; x-compiling (DEFUN SEMAPHORE-COUNT ...) ; x-compiling (DEFUN MAKE-SEMAPHORE ...) ; x-compiling (DEFUN WAIT-ON-SEMAPHORE ...) ; x-compiling (DEFUN TRY-SEMAPHORE ...) ; x-compiling (DEFUN SIGNAL-SEMAPHORE ...) ; x-compiling (DEFSTRUCT SESSION ...) ; x-compiling (DEFVAR *SESSION* ...) ; x-compiling (DEFMACRO WITH-SESSION-LOCK ...) ; x-compiling (DEFUN NEW-SESSION ...) ; x-compiling (DEFUN INIT-JOB-CONTROL ...) ; x-compiling (DEFUN %DELETE-THREAD-FROM-SESSION ...) ; x-compiling (DEFUN CALL-WITH-NEW-SESSION ...) ; x-compiling (DEFMACRO WITH-NEW-SESSION ...) ; x-compiling (DEFUN HANDLE-THREAD-EXIT ...) ; x-compiling (DEFUN %EXIT-OTHER-THREADS ...) ; x-compiling (DEFUN TERMINATE-SESSION ...) ; x-compiling (DEFUN DEBUGGER-WAIT-UNTIL-FOREGROUND-THREAD ...) ; x-compiling (DEFUN GET-FOREGROUND ...) ; x-compiling (DEFUN RELEASE-FOREGROUND ...) ; x-compiling (DEFUN INTERACTIVE-THREADS ...) ; x-compiling (DEFUN FOREGROUND-THREAD ...) ; x-compiling (DEFUN MAKE-LISTENER-THREAD ...) ; x-compiling (DEFUN INITIAL-THREAD-FUNCTION-TRAMPOLINE ...) ; x-compiling (DEFUN MAKE-THREAD ...) ; x-compiling (DEFUN JOIN-THREAD ...) ; x-compiling (DEFUN DESTROY-THREAD ...) ; x-compiling (DEFMACRO WITH-INTERRUPTIONS-LOCK ...) ; x-compiling (DEFUN RUN-INTERRUPTION ...) ; x-compiling (DEFUN INTERRUPT-THREAD ...) ; x-compiling (DEFUN TERMINATE-THREAD ...) ; x-compiling (DEFINE-ALIEN-ROUTINE "thread_yield" ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN %THREAD-SAP ...) ; x-compiling (DEFUN %SYMBOL-VALUE-IN-THREAD ...) ; x-compiling (DEFUN %SET-SYMBOL-VALUE-IN-THREAD ...) ; x-compiling (DEFINE-ALIEN-VARIABLE TLS-INDEX-START ...) ; x-compiling (DEFUN %THREAD-LOCAL-REFERENCES ...) ; x-compiling (DEFUN SYMBOL-VALUE-IN-THREAD ...) ; x-compiling (DEFUN (SETF SYMBOL-VALUE-IN-THREAD) ...) ; x-compiling (DEFUN SB!VM::LOCKED-SYMBOL-GLOBAL-VALUE-ADD ...) ; x-compiling (DEFUN THREAD-STEPPING ...) ; x-compiling (DEFUN (SETF THREAD-STEPPING) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-thread.lisp ; in: DEFUN ABORT-THREAD ; (SB!EXT:EXIT :CODE 1) ; ; caught STYLE-WARNING: ; undefined function: SB!EXT:EXIT ; in: DEFUN %RETURN-FROM-THREAD ; (SB!EXT:EXIT :CODE 0) ; ; caught STYLE-WARNING: ; undefined function: SB!EXT:EXIT ; in: DEFMACRO %WITH-CAS-LOCK ; (SB!EXT:GET-CAS-EXPANSION SB!THREAD::PLACE SB!THREAD::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB!EXT:GET-CAS-EXPANSION ; in: DEFUN THREAD-STEPPING ; (SB!KERNEL:MAKE-LISP-OBJ ; (SB!SYS:SAP-REF-WORD (SB!THREAD::CURRENT-THREAD-SAP) ; (* SB!VM::THREAD-STEPPING-SLOT SB!VM:N-WORD-BYTES))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LISP-OBJ ; ; compilation unit finished ; Undefined functions: ; SB!EXT:EXIT SB!EXT:GET-CAS-EXPANSION MAKE-LISP-OBJ ; caught 4 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-thread.lisp-obj-tmp written ; compilation finished in 0:00:00.811 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/gc.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DECLAIM (INLINE CURRENT-DYNAMIC-SPACE-START)) ; x-compiling (DEFUN CURRENT-DYNAMIC-SPACE-START ...) ; x-compiling (DECLAIM (INLINE DYNAMIC-USAGE)) ; x-compiling (DEFUN DYNAMIC-USAGE ...) ; x-compiling (DEFUN STATIC-SPACE-USAGE ...) ; x-compiling (DEFUN READ-ONLY-SPACE-USAGE ...) ; x-compiling (DEFUN CONTROL-STACK-USAGE ...) ; x-compiling (DEFUN BINDING-STACK-USAGE ...) ; x-compiling (DEFUN ROOM-MINIMAL-INFO ...) ; x-compiling (DEFUN ROOM-INTERMEDIATE-INFO ...) ; x-compiling (DEFUN ROOM-MAXIMAL-INFO ...) ; x-compiling (DEFUN ROOM ...) ; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; x-compiling (DEFVAR *N-BYTES-FREED-OR-PURIFIED* ...) ; x-compiling (DEFUN GC-REINIT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN GET-BYTES-CONSED ...) ; x-compiling (DEFVAR *AFTER-GC-HOOKS* ...) ; x-compiling (DEFINE-ALIEN-ROUTINE COLLECT-GARBAGE ...) ; x-compiling (DEFINE-ALIEN-ROUTINE GC-STOP-THE-WORLD ...) ; x-compiling (DEFINE-ALIEN-ROUTINE GC-START-THE-WORLD ...) ; x-compiling (DEFINE-ALIEN-VARIABLE ("gc_logfile" %GC-LOGFILE) ...) ; x-compiling (DEFUN (SETF GC-LOGFILE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/gc.lisp ; in: DEFUN (SETF GC-LOGFILE) ; (SB!ALIEN:MAKE-ALIEN-STRING ; (SB!EXT:NATIVE-NAMESTRING (TRANSLATE-LOGICAL-PATHNAME PATHNAME) :AS-FILE T)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION VALUES ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN::SAP ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN GC-LOGFILE ...) ; x-compiling (DECLAIM (INLINE DYNAMIC-SPACE-SIZE)) ; x-compiling (DEFUN DYNAMIC-SPACE-SIZE ...) ; x-compiling (DEFVAR *ALREADY-IN-GC* ...) ; x-compiling (DECLAIM (TYPE CONS ...)) ; x-compiling (DEFVAR *GC-EPOCH* ...) ; x-compiling (DEFUN SUB-GC ...) ; x-compiling (DEFUN POST-GC ...) ; x-compiling (DEFUN GC ...) ; x-compiling (DEFINE-ALIEN-ROUTINE SCRUB-CONTROL-STACK ...) ; x-compiling (DEFUN UNSAFE-CLEAR-ROOTS ...) ; x-compiling (DEFUN BYTES-CONSED-BETWEEN-GCS ...) ; x-compiling (DEFUN (SETF BYTES-CONSED-BETWEEN-GCS) ...) ; x-compiling (DECLAIM (INLINE MAYBE-HANDLE-PENDING-GC)) ; x-compiling (DEFUN MAYBE-HANDLE-PENDING-GC ...) ; x-compiling (DEFTYPE GENERATION-INDEX ...) ; x-compiling (DEFINE-ALIEN-TYPE GENERATION ...) ; x-compiling (DEFINE-ALIEN-VARIABLE GENERATIONS ...) ; x-compiling (DEF BYTES-CONSED-BETWEEN-GCS ...) ; x-compiling (DEF MINIMUM-AGE-BEFORE-GC ...) ; x-compiling (DEF NUMBER-OF-GCS-BEFORE-PROMOTION ...) ; x-compiling (DEF BYTES-ALLOCATED ...) ; x-compiling (DEF NUMBER-OF-GCS ...) ; x-compiling (DEFUN GENERATION-AVERAGE-AGE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/gc.lisp ; in: DEFUN BINDING-STACK-USAGE ; (SB!DI::DESCRIPTOR-SAP SB!VM:*BINDING-STACK-START*) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::DESCRIPTOR-SAP ; in: DEFUN CONTROL-STACK-USAGE ; (SB!DI::DESCRIPTOR-SAP SB!VM:*CONTROL-STACK-END*) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::DESCRIPTOR-SAP ; ; compilation unit finished ; Undefined function: ; SB!DI::DESCRIPTOR-SAP ; caught 2 STYLE-WARNING conditions ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/gc.lisp-obj-tmp written ; compilation finished in 0:00:00.973 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/purify.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFINE-ALIEN-ROUTINE ("purify" %PURIFY) ...) ; x-compiling (DEFUN PURIFY ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/purify.lisp-obj-tmp written ; compilation finished in 0:00:00.038 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/debug-int.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!DI") ; x-compiling (DEFINE-CONDITION DEBUG-CONDITION ...) ; x-compiling (DEFINE-CONDITION NO-DEBUG-FUN-RETURNS ...) ; x-compiling (DEFINE-CONDITION NO-DEBUG-BLOCKS ...) ; x-compiling (DEFINE-CONDITION NO-DEBUG-VARS ...) ; x-compiling (DEFINE-CONDITION LAMBDA-LIST-UNAVAILABLE ...) ; x-compiling (DEFINE-CONDITION INVALID-VALUE ...) ; x-compiling (DEFINE-CONDITION AMBIGUOUS-VAR-NAME ...) ; x-compiling (DEFINE-CONDITION DEBUG-ERROR ...) ; x-compiling (DEFINE-CONDITION UNHANDLED-DEBUG-CONDITION ...) ; x-compiling (DEFINE-CONDITION UNKNOWN-CODE-LOCATION ...) ; x-compiling (DEFINE-CONDITION UNKNOWN-DEBUG-VAR ...) ; x-compiling (DEFINE-CONDITION INVALID-CONTROL-STACK-POINTER ...) ; x-compiling (DEFINE-CONDITION FRAME-FUN-MISMATCH ...) ; x-compiling (DEFMACRO DEBUG-SIGNAL ...) ; x-compiling (DEFSTRUCT (DEBUG-VAR # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFSTRUCT (COMPILED-DEBUG-VAR # ...) ...) ; x-compiling (DEFSTRUCT (FRAME # ...) ...) ; x-compiling (DEFSTRUCT (COMPILED-FRAME # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (DEBUG-FUN # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (COMPILED-DEBUG-FUN # ...) ...) ; x-compiling (DEFVAR *COMPILED-DEBUG-FUNS* ...) ; x-compiling (DEFUN MAKE-COMPILED-DEBUG-FUN ...) ; x-compiling (DEFSTRUCT (BOGUS-DEBUG-FUN # ...) ...) ; x-compiling (DEFSTRUCT (DEBUG-BLOCK # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFSTRUCT (COMPILED-DEBUG-BLOCK # ...) ...) ; x-compiling (DEFSTRUCT (BREAKPOINT-DATA # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (BREAKPOINT # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (CODE-LOCATION # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (COMPILED-CODE-LOCATION # ...) ...) ; x-compiling (DEFUN DEBUG-SOURCE-ROOT-NUMBER ...) ; x-compiling (DEFCONSTANT REAL-LRA-SLOT ...) ; x-compiling (DEFUN CURRENT-SP ...) ; x-compiling (DEFUN CURRENT-FP ...) ; x-compiling (DEFUN STACK-REF ...) ; x-compiling (DEFUN %SET-STACK-REF ...) ; x-compiling (DEFUN FUN-CODE-HEADER ...) ; x-compiling (DEFUN LRA-CODE-HEADER ...) ; x-compiling (DEFUN %MAKE-LISP-OBJ ...) ; x-compiling (DEFUN GET-LISP-OBJ-ADDRESS ...) ; x-compiling (DEFUN FUN-WORD-OFFSET ...) ; x-compiling (DECLAIM (INLINE CONTROL-STACK-POINTER-VALID-P)) ; x-compiling (DEFUN CONTROL-STACK-POINTER-VALID-P ...) ; x-compiling (DECLAIM (INLINE COMPONENT-PTR-FROM-PC)) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE COMPONENT-PTR-FROM-PC ...) ; x-compiling (DECLAIM (INLINE VALID-LISP-POINTER-P)) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE VALID-LISP-POINTER-P ...) ; x-compiling (DECLAIM (INLINE COMPONENT-FROM-COMPONENT-PTR)) ; x-compiling (DEFUN COMPONENT-FROM-COMPONENT-PTR ...) ; x-compiling (DEFUN COMPUTE-LRA-DATA-FROM-PC ...) ; x-compiling (DEFCONSTANT SB!VM::NARGS-OFFSET ...) ; x-compiling (DECLAIM (INLINE RA-POINTER-VALID-P)) ; x-compiling (DEFUN RA-POINTER-VALID-P ...) ; x-compiling (DECLAIM (MAYBE-INLINE X86-CALL-CONTEXT)) ; x-compiling (DEFUN X86-CALL-CONTEXT ...) ; x-compiling (DECLAIM (INLINE DESCRIPTOR-SAP)) ; x-compiling (DEFUN DESCRIPTOR-SAP ...) ; x-compiling (DEFUN TOP-FRAME ...) ; x-compiling (DEFUN FLUSH-FRAMES-ABOVE ...) ; x-compiling (DEFUN FIND-SAVED-FRAME-DOWN ...) ; x-compiling (DEFUN FRAME-DOWN ...) ; x-compiling (DEFUN GET-CONTEXT-VALUE ...) ; x-compiling (DEFUN (SETF GET-CONTEXT-VALUE) ...) ; x-compiling (DEFUN FOREIGN-FUNCTION-BACKTRACE-NAME ...) ; x-compiling (DEFUN COMPUTE-CALLING-FRAME ...) ; x-compiling (DEFUN NTH-INTERRUPT-CONTEXT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/debug-int.lisp ; in: DEFUN NTH-INTERRUPT-CONTEXT ; (SB!ALIEN:SAP-ALIEN ; (SB!VM::CURRENT-THREAD-OFFSET-SAP ; (+ SB!VM::THREAD-INTERRUPT-CONTEXTS-OFFSET SB!DI::N)) ; (* SB!SYS:OS-CONTEXT-T)) ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN ; (SB!VM::CURRENT-THREAD-OFFSET-SAP ; (+ SB!VM::THREAD-INTERRUPT-CONTEXTS-OFFSET SB!DI::N)) ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: doing SAP to pointer coercion (cost 20) ; x-compiling (DEFUN STATIC-FOREIGN-SYMBOL-ADDRESS ...) ; x-compiling (DEFUN STATIC-FOREIGN-SYMBOL-SAP ...) ; x-compiling (DEFUN FIND-ESCAPED-FRAME ...) ; x-compiling (DEFUN DEBUG-FUN-FROM-PC ...) ; x-compiling (DEFUN CODE-LOCATION-FROM-PC ...) ; x-compiling (DEFUN FRAME-CATCHES ...) ; x-compiling (DEFUN REPLACE-FRAME-CATCH-TAG ...) ; x-compiling (DEFMACRO DO-DEBUG-FUN-BLOCKS ...) ; x-compiling (DEFMACRO DO-DEBUG-FUN-VARS ...) ; x-compiling (DEFUN DEBUG-FUN-FUN ...) ; x-compiling (DEFUN DEBUG-FUN-NAME ...) ; x-compiling (DEFUN FUN-DEBUG-FUN ...) ; x-compiling (DEFUN DEBUG-FUN-KIND ...) ; x-compiling (DEFUN DEBUG-VAR-INFO-AVAILABLE ...) ; x-compiling (DEFUN DEBUG-FUN-SYMBOL-VARS ...) ; x-compiling (DEFUN AMBIGUOUS-DEBUG-VARS ...) ; x-compiling (DEFUN FIND-VAR ...) ; x-compiling (DEFUN DEBUG-FUN-LAMBDA-LIST ...) ; x-compiling (DEFUN COMPILED-DEBUG-FUN-LAMBDA-LIST ...) ; x-compiling (DEFUN PARSE-COMPILED-DEBUG-FUN-LAMBDA-LIST ...) ; x-compiling (DEFUN COMPILED-DEBUG-FUN-LAMBDA-LIST-VAR ...) ; x-compiling (DEFUN COMPILED-DEBUG-FUN-DEBUG-INFO ...) ; x-compiling (DEFVAR *PARSING-BUFFER* ...) ; x-compiling (DEFVAR *OTHER-PARSING-BUFFER* ...) ; x-compiling (DEFUN DEBUG-FUN-DEBUG-BLOCKS ...) ; x-compiling (DEFUN PARSE-DEBUG-BLOCKS ...) ; x-compiling (DEFUN PARSE-COMPILED-DEBUG-BLOCKS ...) ; x-compiling (DEFUN DEBUG-FUN-DEBUG-VARS ...) ; x-compiling (DEFUN ASSIGN-MINIMAL-VAR-NAMES ...) ; x-compiling (DEFUN PARSE-COMPILED-DEBUG-VARS ...) ; x-compiling (DEFUN CODE-LOCATION-UNKNOWN-P ...) ; x-compiling (DEFUN CODE-LOCATION-DEBUG-BLOCK ...) ; x-compiling (DEFUN COMPUTE-COMPILED-CODE-LOCATION-DEBUG-BLOCK ...) ; x-compiling (DEFUN CODE-LOCATION-DEBUG-SOURCE ...) ; x-compiling (DEFUN CODE-LOCATION-TOPLEVEL-FORM-OFFSET ...) ; x-compiling (DEFUN CODE-LOCATION-FORM-NUMBER ...) ; x-compiling (DEFUN CODE-LOCATION-KIND ...) ; x-compiling (DEFUN COMPILED-CODE-LOCATION-LIVE-SET ...) ; x-compiling (DEFUN CODE-LOCATION= ...) ; x-compiling (DEFUN SUB-COMPILED-CODE-LOCATION= ...) ; x-compiling (DEFUN FILL-IN-CODE-LOCATION ...) ; x-compiling (DEFMACRO DO-DEBUG-BLOCK-LOCATIONS ...) ; x-compiling (DEFUN DEBUG-BLOCK-FUN-NAME ...) ; x-compiling (DEFUN DEBUG-BLOCK-CODE-LOCATIONS ...) ; x-compiling (DEFUN DEBUG-VAR-SYMBOL-NAME ...) ; x-compiling (DEFUN DEBUG-VAR-PACKAGE-NAME ...) ; x-compiling (DEFUN DEBUG-VAR-VALID-VALUE ...) ; x-compiling (DEFUN DEBUG-VAR-VALUE ...) ; x-compiling (DEFUN ACCESS-COMPILED-DEBUG-VAR-SLOT ...) ; x-compiling (DEFUN MAKE-LISP-OBJ ...) ; x-compiling (DEFUN SUB-ACCESS-DEBUG-VAR-SLOT ...) ; x-compiling (DEFUN %SET-DEBUG-VAR-VALUE ...) ; x-compiling (DEFUN SET-COMPILED-DEBUG-VAR-SLOT ...) ; x-compiling (DEFUN SUB-SET-DEBUG-VAR-SLOT ...) ; x-compiling (DEFUN INDIRECT-VALUE-CELL-P ...) ; x-compiling (DEFUN DEBUG-VAR-VALIDITY ...) ; x-compiling (DEFUN DEBUG-VAR-INFO ...) ; x-compiling (DEFUN COMPILED-DEBUG-VAR-VALIDITY ...) ; x-compiling (DEFUN FORM-NUMBER-TRANSLATIONS ...) ; x-compiling (DEFUN SOURCE-PATH-CONTEXT ...) ; x-compiling (DEFUN GET-TOPLEVEL-FORM ...) ; x-compiling (DEFUN SAFE-READTABLE ...) ; x-compiling (DEFUN GET-FILE-TOPLEVEL-FORM ...) ; x-compiling (DEFUN PREPROCESS-FOR-EVAL ...) ; x-compiling (DEFUN EVAL-IN-FRAME ...) ; x-compiling (DEFUN MAKE-BREAKPOINT ...) ; x-compiling (DEFSTRUCT (FUN-END-COOKIE # ...) ...) ; x-compiling (DEFVAR *FUN-END-COOKIES* ...) ; x-compiling (DEFUN FUN-END-STARTER-HOOK ...) ; x-compiling (DEFUN FUN-END-COOKIE-VALID-P ...) ; x-compiling (DEFUN ACTIVATE-BREAKPOINT ...) ; x-compiling (DEFUN ACTIVATE-COMPILED-CODE-LOCATION-BREAKPOINT ...) ; x-compiling (DEFUN ACTIVATE-COMPILED-FUN-START-BREAKPOINT ...) ; x-compiling (DEFUN SUB-ACTIVATE-BREAKPOINT ...) ; x-compiling (DEFUN DEACTIVATE-BREAKPOINT ...) ; x-compiling (DEFUN DEACTIVATE-COMPILED-BREAKPOINT ...) ; x-compiling (DEFUN BREAKPOINT-INFO ...) ; x-compiling (DEFUN %SET-BREAKPOINT-INFO ...) ; x-compiling (DEFUN BREAKPOINT-ACTIVE-P ...) ; x-compiling (DEFUN DELETE-BREAKPOINT ...) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_install" ...) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_remove" ...) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_do_displaced_inst" ...) ; x-compiling (DEFVAR *COMPONENT-BREAKPOINT-OFFSETS* ...) ; x-compiling (DEFUN BREAKPOINT-DATA ...) ; x-compiling (DEFUN DELETE-BREAKPOINT-DATA ...) ; x-compiling (DEFUN HANDLE-BREAKPOINT ...) ; x-compiling (DEFVAR *EXECUTING-BREAKPOINT-HOOKS* ...) ; x-compiling (DEFUN HANDLE-BREAKPOINT-AUX ...) ; x-compiling (DEFUN INVOKE-BREAKPOINT-HOOKS ...) ; x-compiling (DEFUN SIGNAL-CONTEXT-FRAME ...) ; x-compiling (DEFUN HANDLE-FUN-END-BREAKPOINT ...) ; x-compiling (DEFUN HANDLE-FUN-END-BREAKPOINT-AUX ...) ; x-compiling (DEFUN GET-FUN-END-BREAKPOINT-VALUES ...) ; x-compiling (DEFCONSTANT BOGUS-LRA-CONSTANTS ...) ; x-compiling (DEFCONSTANT KNOWN-RETURN-P-SLOT ...) ; x-compiling (DEFUN MAKE-BOGUS-LRA ...) ; x-compiling (DEFUN DEBUG-FUN-START-LOCATION ...) ; x-compiling (DEFUN HANDLE-SINGLE-STEP-TRAP ...) ; x-compiling (DEFVAR *STEP-FRAME* ...) ; x-compiling (DEFUN HANDLE-SINGLE-STEP-BEFORE-TRAP ...) ; x-compiling (DEFUN HANDLE-SINGLE-STEP-AROUND-TRAP ...) ; x-compiling (DEFUN SINGLE-STEP-INFO-FROM-CONTEXT ...) ; x-compiling (DEFUN FIND-STEPPED-FRAME ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/debug-int.lisp ; in: DEFUN HANDLE-SINGLE-STEP-AROUND-TRAP ; (SB!IMPL::STEP-FORM SB!DI::STEP-INFO SB!DI::ARGS) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::STEP-FORM ; in: DEFUN HANDLE-SINGLE-STEP-BEFORE-TRAP ; (SB!IMPL::STEP-FORM SB!DI::STEP-INFO :UNKNOWN) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::STEP-FORM ; in: DEFUN HANDLE-SINGLE-STEP-AROUND-TRAP ; #'SB!IMPL::STEP-VALUES ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::STEP-VALUES ; ; compilation unit finished ; Undefined functions: ; SB!IMPL::STEP-FORM SB!IMPL::STEP-VALUES ; caught 3 STYLE-WARNING conditions ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/debug-int.lisp-obj-tmp written ; compilation finished in 0:00:03.061 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/target-disassem.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!DISASSEM") ; x-compiling (DEFUN INST-SPECIALIZES-P ...) ; x-compiling (DEFUN SPECIALIZER-RANK ...) ; x-compiling (DEFUN ORDER-SPECIALIZERS ...) ; x-compiling (DEFUN SPECIALIZATION-ERROR ...) ; x-compiling (DEFUN TRY-SPECIALIZING ...) ; x-compiling (DECLAIM (INLINE INST-MATCHES-P ...)) ; x-compiling (DEFUN INST-MATCHES-P ...) ; x-compiling (DEFUN CHOOSE-INST-SPECIALIZATION ...) ; x-compiling (DEFUN FIND-INST ...) ; x-compiling (DEFUN BUILD-INST-SPACE ...) ; x-compiling (DEFUN PRINT-MASKED-BINARY ...) ; x-compiling (DEFUN PRINT-INST-BITS ...) ; x-compiling (DEFUN PRINT-INST-SPACE ...) ; x-compiling (DECLAIM (INLINE WORDS-TO-BYTES ...)) ; x-compiling (DEFUN WORDS-TO-BYTES ...) ; x-compiling (DEFUN BYTES-TO-WORDS ...) ; x-compiling (DEFCONSTANT LRA-SIZE ...) ; x-compiling (DEFSTRUCT (OFFS-HOOK #) ...) ; x-compiling (DEFSTRUCT (SEGMENT # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN FUN-SELF ...) ; x-compiling (DEFUN FUN-CODE ...) ; x-compiling (DEFUN FUN-NEXT ...) ; x-compiling (DEFUN FUN-ADDRESS ...) ; x-compiling (DEFUN FUN-INSTS-OFFSET ...) ; x-compiling (DEFUN FUN-OFFSET ...) ; x-compiling (DEFUN CODE-INST-AREA-LENGTH ...) ; x-compiling (DEFUN CODE-INST-AREA-ADDRESS ...) ; x-compiling (DEFUN SEGMENT-OFFS-TO-CODE-OFFS ...) ; x-compiling (DEFUN CODE-OFFS-TO-SEGMENT-OFFS ...) ; x-compiling (DEFUN CODE-INSTS-OFFS-TO-SEGMENT-OFFS ...) ; x-compiling (DEFUN LRA-HOOK ...) ; x-compiling (DEFUN FUN-HEADER-HOOK ...) ; x-compiling (DEFUN ALIGNMENT-HOOK ...) ; x-compiling (DEFUN REWIND-CURRENT-SEGMENT ...) ; x-compiling (DEFUN CALL-OFFS-HOOKS ...) ; x-compiling (DEFUN CALL-FUN-HOOKS ...) ; x-compiling (DEFUN PAD-INST-COLUMN ...) ; x-compiling (DEFUN HANDLE-BOGUS-INSTRUCTION ...) ; x-compiling (DEFUN MAP-SEGMENT-INSTRUCTIONS ...) ; x-compiling (DEFUN ADD-SEGMENT-LABELS ...) ; x-compiling (DEFUN NUMBER-LABELS ...) ; x-compiling (DEFUN GET-INST-SPACE ...) ; x-compiling (DEFUN ADD-OFFS-HOOK ...) ; x-compiling (DEFUN ADD-OFFS-NOTE-HOOK ...) ; x-compiling (DEFUN ADD-OFFS-COMMENT-HOOK ...) ; x-compiling (DEFUN ADD-FUN-HOOK ...) ; x-compiling (DEFUN SET-LOCATION-PRINTING-RANGE ...) ; x-compiling (DEFUN PRINT-CURRENT-ADDRESS ...) ; x-compiling (DEFUN PRINT-NOTES-AND-NEWLINE ...) ; x-compiling (DEFUN PRINT-INST ...) ; x-compiling (DEFUN PRINT-BYTES ...) ; x-compiling (DEFUN PRINT-WORDS ...) ; x-compiling (DEFVAR *DEFAULT-DSTATE-HOOKS* ...) ; x-compiling (DEFUN MAKE-DSTATE ...) ; x-compiling (DEFUN ADD-FUN-HEADER-HOOKS ...) ; x-compiling (DECLAIM (INLINE SAP-MAKER)) ; x-compiling (DEFUN SAP-MAKER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/target-disassem.lisp ; in: DEFUN SAP-MAKER ; (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER -8388608 18446744073717940222) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER -8388608 18446744073717940222) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; (LET ((SB!DISASSEM::OLD-SAP ; (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT) ; SB!DISASSEM::OFFSET))) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP)) ; (LAMBDA () ; (LET ((SB!DISASSEM::NEW-ADDR #)) ; (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR)) ; (IF (= # SB!DISASSEM::NEW-ADDR) ; SB!DISASSEM::OLD-SAP ; (SETF #))))) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first argument of MAKE-VALUE-CELL ; (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; x-compiling (DEFUN VECTOR-SAP-MAKER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/target-disassem.lisp ; in: DEFUN VECTOR-SAP-MAKER ; (SB!DISASSEM::SAP-MAKER #'SB!SYS:VECTOR-SAP VECTOR SB!DISASSEM::OFFSET) ; --> BLOCK LET LAMBDA FUNCTION LET ; ==> ; (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER -8388608 18446744073717940222) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER -8388608 18446744073717940222) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; --> BLOCK ; ==> ; (LET ((SB!DISASSEM::OLD-SAP ; (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT) ; SB!DISASSEM::OFFSET))) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP)) ; (LAMBDA () ; (LET ((SB!DISASSEM::NEW-ADDR #)) ; (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR)) ; (IF (= # SB!DISASSEM::NEW-ADDR) ; SB!DISASSEM::OLD-SAP ; (SETF #))))) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first argument of MAKE-VALUE-CELL ; --> BLOCK LET LAMBDA FUNCTION LET ; ==> ; (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; --> BLOCK LET LAMBDA FUNCTION LET IF SETF SETQ THE ; ==> ; (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; x-compiling (DEFUN CODE-SAP-MAKER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/target-disassem.lisp ; in: DEFUN CODE-SAP-MAKER ; (SB!DISASSEM::SAP-MAKER #'SB!KERNEL:CODE-INSTRUCTIONS SB!DISASSEM::CODE ; SB!DISASSEM::OFFSET) ; --> BLOCK LET LAMBDA FUNCTION LET ; ==> ; (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER -8388608 18446744073717940222) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER -8388608 18446744073717940222) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; --> BLOCK ; ==> ; (LET ((SB!DISASSEM::OLD-SAP ; (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT) ; SB!DISASSEM::OFFSET))) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP)) ; (LAMBDA () ; (LET ((SB!DISASSEM::NEW-ADDR #)) ; (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR)) ; (IF (= # SB!DISASSEM::NEW-ADDR) ; SB!DISASSEM::OLD-SAP ; (SETF #))))) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first argument of MAKE-VALUE-CELL ; --> BLOCK LET LAMBDA FUNCTION LET ; ==> ; (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; --> BLOCK LET LAMBDA FUNCTION LET IF SETF SETQ THE ; ==> ; (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; x-compiling (DEFUN MEMORY-SAP-MAKER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/target-disassem.lisp ; in: DEFUN MEMORY-SAP-MAKER ; (LAMBDA () SB!DISASSEM::SAP) ; --> FUNCTION SB!C::%%ALLOCATE-CLOSURES ; ==> ; (SB!C::%ALLOCATE-CLOSURES ; '(# ; :WHERE-FROM :DEFINED ; :VARS NIL {100655D173}>)) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the second argument of CLOSURE-INIT ; x-compiling (DEFUN MAKE-SEGMENT ...) ; x-compiling (DEFUN MAKE-VECTOR-SEGMENT ...) ; x-compiling (DEFUN MAKE-CODE-SEGMENT ...) ; x-compiling (DEFUN MAKE-MEMORY-SEGMENT ...) ; x-compiling (DEFUN PRINT-FUN-HEADERS ...) ; x-compiling (DEFSTRUCT (SOURCE-FORM-CACHE # ...) ...) ; x-compiling (DEFUN GET-DIFFERENT-SOURCE-FORM ...) ; x-compiling (DEFUN CODE-FUN-MAP ...) ; x-compiling (DEFSTRUCT (LOCATION-GROUP #) ...) ; x-compiling (DEFSTRUCT (STORAGE-INFO #) ...) ; x-compiling (DEFUN DSTATE-DEBUG-VARS ...) ; x-compiling (DEFUN FIND-VALID-STORAGE-LOCATION ...) ; x-compiling (DEFUN GROW-VECTOR ...) ; x-compiling (DEFUN STORAGE-INFO-FOR-DEBUG-FUN ...) ; x-compiling (DEFUN SOURCE-AVAILABLE-P ...) ; x-compiling (DEFUN PRINT-BLOCK-BOUNDARY ...) ; x-compiling (DEFUN ADD-SOURCE-TRACKING-HOOKS ...) ; x-compiling (DEFVAR *DISASSEMBLE-ANNOTATE* ...) ; x-compiling (DEFUN ADD-DEBUGGING-HOOKS ...) ; x-compiling (DEFUN GET-FUN-SEGMENTS ...) ; x-compiling (DEFUN GET-CODE-SEGMENTS ...) ; x-compiling (DEFUN LABEL-SEGMENTS ...) ; x-compiling (DEFUN DISASSEMBLE-SEGMENT ...) ; x-compiling (DEFUN DISASSEMBLE-SEGMENTS ...) ; x-compiling (DEFUN DISASSEMBLE-FUN ...) ; x-compiling (DEFUN VALID-EXTENDED-FUNCTION-DESIGNATORS-FOR-DISASSEMBLE-P ...) ; x-compiling (DEFUN COMPILED-FUNS-OR-LOSE ...) ; x-compiling (DEFUN DISASSEMBLE ...) ; x-compiling (DEFUN DISASSEMBLE-MEMORY ...) ; x-compiling (DEFUN DISASSEMBLE-CODE-COMPONENT ...) ; x-compiling (DEFUN ASSEM-SEGMENT-TO-DISASSEM-SEGMENT ...) ; x-compiling (DEFUN DISASSEMBLE-ASSEM-SEGMENT ...) ; x-compiling (DEFPARAMETER *GROKKED-SYMBOL-SLOTS* ...) ; x-compiling (DEFUN GROK-SYMBOL-SLOT-REF ...) ; x-compiling (DEFVAR *ADDRESS-OF-NIL-OBJECT* ...) ; x-compiling (DEFUN GROK-NIL-INDEXED-SYMBOL-SLOT-REF ...) ; x-compiling (DEFUN GET-NIL-INDEXED-OBJECT ...) ; x-compiling (DEFUN GET-CODE-CONSTANT ...) ; x-compiling (DEFSTRUCT CODE-CONSTANT-RAW ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN GET-CODE-CONSTANT-ABSOLUTE ...) ; x-compiling (DEFVAR *ASSEMBLER-ROUTINES-BY-ADDR* ...) ; x-compiling (DEFVAR *FOREIGN-SYMBOLS-BY-ADDR* ...) ; x-compiling (DEFUN INVERT-ADDRESS-HASH ...) ; x-compiling (DEFUN FIND-ASSEMBLER-ROUTINE ...) ; x-compiling (DECLAIM (MAYBE-INLINE SAP-REF-INT ...)) ; x-compiling (DEFUN SAP-REF-INT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/target-disassem.lisp ; in: DEFUN SAP-REF-INT ; (DEFUN SB!DISASSEM::SAP-REF-INT ; (SB!DISASSEM::SAP SB!DISASSEM::OFFSET LENGTH SB!DISASSEM::BYTE-ORDER) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::SAP) ; (TYPE (UNSIGNED-BYTE 16) SB!DISASSEM::OFFSET) ; (TYPE (MEMBER 1 2 4 8) LENGTH) ; (TYPE (MEMBER :LITTLE-ENDIAN :BIG-ENDIAN) SB!DISASSEM::BYTE-ORDER) ; (OPTIMIZE (SPEED 3) (SAFETY 0))) ; (ECASE LENGTH ; (1 (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)) ; (2 ; (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN) ; (+ # #) ; (+ # #))) ; (4 ; (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN) ; (+ # # # #) ; (+ # # # #))) ; (8 ; (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN) ; (+ # # # # # # # #) ; (+ # # # # # # # #))))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!DISASSEM::SAP-REF-INT ; (LAMBDA ; (SB!DISASSEM::SAP SB!DISASSEM::OFFSET LENGTH ; SB!DISASSEM::BYTE-ORDER) ; (DECLARE ; (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::SAP) ; (TYPE (UNSIGNED-BYTE 16) SB!DISASSEM::OFFSET) ; (TYPE (MEMBER 1 2 4 8) LENGTH) ; (TYPE (MEMBER :LITTLE-ENDIAN :BIG-ENDIAN) ; SB!DISASSEM::BYTE-ORDER) ; (OPTIMIZE (SPEED 3) (SAFETY 0))) ; (BLOCK SB!DISASSEM::SAP-REF-INT ; (ECASE LENGTH (1 #) (2 #) (4 #) (8 #))))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; x-compiling (DEFUN READ-SUFFIX ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/target-disassem.lisp ; in: DEFUN READ-SUFFIX ; (INCF (SB!DISASSEM:DSTATE-NEXT-OFFS SB!DISASSEM::DSTATE) LENGTH) ; --> LET* ; ==> ; (+ (SB!DISASSEM:DSTATE-NEXT-OFFS #:DSTATE1748) #:G165829) ; ; 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 64) arithmetic (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; x-compiling (DEFUN NOTE ...) ; x-compiling (DEFUN PRIN1-SHORT ...) ; x-compiling (DEFUN PRIN1-QUOTED-SHORT ...) ; x-compiling (DEFUN NOTE-CODE-CONSTANT ...) ; x-compiling (DEFUN NOTE-CODE-CONSTANT-ABSOLUTE ...) ; x-compiling (DEFUN MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF ...) ; x-compiling (DEFUN MAYBE-NOTE-NIL-INDEXED-OBJECT ...) ; x-compiling (DEFUN MAYBE-NOTE-ASSEMBLER-ROUTINE ...) ; x-compiling (DEFUN MAYBE-NOTE-SINGLE-STORAGE-REF ...) ; x-compiling (DEFUN MAYBE-NOTE-ASSOCIATED-STORAGE-REF ...) ; x-compiling (DEFUN MAYBE-NOTE-STATIC-SYMBOL ...) ; x-compiling (DEFUN GET-INTERNAL-ERROR-NAME ...) ; x-compiling (DEFUN GET-SC-NAME ...) ; x-compiling (DEFUN HANDLE-BREAK-ARGS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/target-disassem.lisp ; in: DEFUN VALID-EXTENDED-FUNCTION-DESIGNATORS-FOR-DISASSEMBLE-P ; (TYPEP SB!DISASSEM::THING 'SB!PCL::%METHOD-FUNCTION) ; ; caught STYLE-WARNING: ; undefined type: SB!PCL::%METHOD-FUNCTION ; (SB!PCL::%METHOD-FUNCTION-FAST-FUNCTION SB!DISASSEM::THING) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::%METHOD-FUNCTION-FAST-FUNCTION ; in: DEFUN GET-DIFFERENT-SOURCE-FORM ; (SB!DEBUG::CODE-LOCATION-SOURCE-FORM SB!DISASSEM::LOC SB!DISASSEM::CONTEXT ; NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!DEBUG::CODE-LOCATION-SOURCE-FORM ; in: DEFUN DISASSEMBLE-ASSEM-SEGMENT ; (SB!DISASSEM::DETERMINE-OPCODE-BOUNDS SB!DISASSEM::DISASSEM-SEGMENTS ; SB!DISASSEM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: DETERMINE-OPCODE-BOUNDS ; in: DEFUN DISASSEMBLE-CODE-COMPONENT ; (SB!DISASSEM::DETERMINE-OPCODE-BOUNDS SB!DISASSEM::SEGMENTS ; SB!DISASSEM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: DETERMINE-OPCODE-BOUNDS ; in: DEFUN DISASSEMBLE-FUN ; (SB!DISASSEM::DETERMINE-OPCODE-BOUNDS SB!DISASSEM::SEGMENTS ; SB!DISASSEM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: DETERMINE-OPCODE-BOUNDS ; in: DEFUN DISASSEMBLE-SEGMENT ; (SB!DISASSEM::DISASSEMBLE-UNBOXED-DATA SB!DISASSEM:SEGMENT STREAM ; SB!DISASSEM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: DISASSEMBLE-UNBOXED-DATA ; ; compilation unit finished ; Undefined type: ; SB!PCL::%METHOD-FUNCTION ; Undefined functions: ; SB!PCL::%METHOD-FUNCTION-FAST-FUNCTION SB!DEBUG::CODE-LOCATION-SOURCE-FORM DETERMINE-OPCODE-BOUNDS DISASSEMBLE-UNBOXED-DATA ; caught 7 STYLE-WARNING conditions ; printed 15 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/target-disassem.lisp-obj-tmp written ; compilation finished in 0:00:02.467 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/target-insts.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN PRINT-MEM-REF ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/x86-64/target-insts.lisp ; in: DEFUN PRINT-MEM-REF ; (SB!VM::PEL (SB!VM::BASE-REG (FIRST SB!VM::VALUE)) ; (COND ; ((EQL 'SB!VM::RIP SB!VM::BASE-REG) (SETF SB!VM::RIP-P T) ; (PRINC SB!VM::BASE-REG STREAM)) ; (T (SB!VM::PRINT-ADDR-REG SB!VM::BASE-REG STREAM SB!VM::DSTATE)))) ; --> LET WHEN IF PROGN UNLESS IF PROGN WRITE-CHAR ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (IN-PACKAGE "SB!DISASSEM") ; x-compiling (DEFUN DETERMINE-OPCODE-BOUNDS ...) ; x-compiling (DEFUN DISASSEMBLE-UNBOXED-DATA ...); ; compilation unit finished ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/x86-64/target-insts.lisp-obj-tmp written ; compilation finished in 0:00:00.645 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/debug.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!DEBUG") ; x-compiling (DEFVAR *DEBUG-PRINT-VARIABLE-ALIST* ...) ; x-compiling (DEFVAR *DEBUG-READTABLE* ...) ; x-compiling (DEFVAR *IN-THE-DEBUGGER* ...) ; x-compiling (DEFVAR *DEBUG-COMMAND-LEVEL* ...) ; x-compiling (DEFVAR *STACK-TOP-HINT* ...) ; x-compiling (DEFVAR *REAL-STACK-TOP* ...) ; x-compiling (DEFVAR *STACK-TOP* ...) ; x-compiling (DEFVAR *CURRENT-FRAME* ...) ; x-compiling (DEFVAR *DEBUG-BEGINNER-HELP-P* ...) ; x-compiling (DEFUN DEBUG-PROMPT ...) ; x-compiling (DEFPARAMETER *DEBUG-HELP-STRING* ...) ; x-compiling (DEFMACRO WITH-DEBUG-IO-SYNTAX ...) ; x-compiling (DEFUN MAYBE-BLOCK-START-LOCATION ...) ; x-compiling (DECLAIM (UNSIGNED-BYTE *BACKTRACE-FRAME-COUNT*)) ; x-compiling (DEFVAR *BACKTRACE-FRAME-COUNT* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *METHOD-FRAME-STYLE* ...) ; x-compiling (DEFINE-DEPRECATED-VARIABLE :EARLY ...) ; x-compiling (DEFUN BACKTRACE ...) ; x-compiling (DEFUN BACKTRACE-AS-LIST ...) ; x-compiling (DEFUN BACKTRACE-START-FRAME ...) ; x-compiling (DEFUN MAP-BACKTRACE ...) ; x-compiling (DEFUN PRINT-BACKTRACE ...) ; x-compiling (DEFUN LIST-BACKTRACE ...) ; x-compiling (DEFUN FRAME-CALL-AS-LIST ...) ; x-compiling (DEFUN REPLACE-DYNAMIC-EXTENT-OBJECT ...) ; x-compiling (DEFUN STACK-ALLOCATED-P ...) ; x-compiling (DEFUN MAP-FRAME-ARGS ...) ; x-compiling (DEFUN FRAME-ARGS-AS-LIST ...) ; x-compiling (DEFUN INTERRUPTED-FRAME-ERROR ...) ; x-compiling (DEFUN CLEAN-XEP ...) ; x-compiling (DEFUN CLEAN-&MORE-PROCESSOR ...) ; x-compiling (DEFUN CLEAN-FAST-METHOD ...) ; x-compiling (DEFUN CLEAN-FRAME-CALL ...) ; x-compiling (DEFUN FRAME-CALL ...) ; x-compiling (DEFUN ENSURE-PRINTABLE-OBJECT ...) ; x-compiling (DEFUN FRAME-CALL-ARG ...) ; x-compiling (DEFUN PRINT-FRAME-CALL ...) ; x-compiling (DEFVAR *DEBUGGER-HOOK* ...) ; x-compiling (DEFVAR *INVOKE-DEBUGGER-HOOK* ...) ; x-compiling (DEFVAR *DEBUG-RESTARTS*) ; x-compiling (DEFVAR *DEBUG-CONDITION*) ; x-compiling (DEFVAR *NESTED-DEBUG-CONDITION*) ; x-compiling (DEFUN FUNCALL-WITH-DEBUG-IO-SYNTAX ...) ; x-compiling (DECLAIM (NOTINLINE RUN-HOOK)) ; x-compiling (DEFUN RUN-HOOK ...) ; x-compiling (DEFUN RESOLVE-STACK-TOP-HINT ...) ; x-compiling (DEFUN INVOKE-DEBUGGER ...) ; x-compiling (DEFUN %PRINT-DEBUGGER-INVOCATION-REASON ...) ; x-compiling (DEFUN %INVOKE-DEBUGGER ...) ; x-compiling (DEFUN DEBUGGER-DISABLED-HOOK ...) ; x-compiling (DEFVAR *OLD-DEBUGGER-HOOK* ...) ; x-compiling (DEFUN DISABLE-DEBUGGER ...) ; x-compiling (DEFUN ENABLE-DEBUGGER ...) ; x-compiling (DEFUN SHOW-RESTARTS ...) ; x-compiling (DEFVAR *DEBUG-LOOP-FUN* ...) ; x-compiling (DEFVAR *SUPPRESS-FRAME-PRINT* ...) ; x-compiling (DEFUN INTERNAL-DEBUG ...) ; x-compiling (DEFVAR *FLUSH-DEBUG-ERRORS* ...) ; x-compiling (DEFUN DEBUG-READ ...) ; x-compiling (DEFUN DEBUG-LOOP-FUN ...) ; x-compiling (DEFVAR *AUTO-EVAL-IN-FRAME* ...) ; x-compiling (DEFUN DEBUG-EVAL ...) ; x-compiling (DEFUN DEBUG-EVAL-PRINT ...) ; x-compiling (DEFUN VAR ...) ; x-compiling (DEFUN (SETF VAR) ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NTH-ARG ...) ; x-compiling (DEFUN ARG ...) ; x-compiling (DEFVAR *DEBUG-COMMANDS* ...) ; x-compiling (DEFMACRO !DEF-DEBUG-COMMAND ...) ; x-compiling (DEFUN !DEF-DEBUG-COMMAND-ALIAS ...) ; x-compiling (DEFUN DEBUG-COMMAND-P ...) ; x-compiling (DEFUN MAKE-RESTART-COMMANDS ...) ; x-compiling (!DEF-DEBUG-COMMAND "UP" ...) ; x-compiling (!DEF-DEBUG-COMMAND "DOWN" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "D" ...) ; x-compiling (!DEF-DEBUG-COMMAND "BOTTOM" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "B" ...) ; x-compiling (!DEF-DEBUG-COMMAND "FRAME" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "F" ...) ; x-compiling (!DEF-DEBUG-COMMAND "TOPLEVEL" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "TOP" ...) ; x-compiling (!DEF-DEBUG-COMMAND "RESTART" ...) ; x-compiling (!DEF-DEBUG-COMMAND "HELP" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "?" ...) ; x-compiling (!DEF-DEBUG-COMMAND "ERROR" ...) ; x-compiling (!DEF-DEBUG-COMMAND "BACKTRACE" ...) ; x-compiling (!DEF-DEBUG-COMMAND "PRINT" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "P" ...) ; x-compiling (!DEF-DEBUG-COMMAND "LIST-LOCALS" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "L" ...) ; x-compiling (!DEF-DEBUG-COMMAND "SOURCE" ...) ; x-compiling (DEFUN CODE-LOCATION-SOURCE-FORM ...) ; x-compiling (!DEF-DEBUG-COMMAND "START" ...) ; x-compiling (DEFMACRO DEF-STEP-COMMAND ...) ; x-compiling (DEF-STEP-COMMAND "STEP" ...) ; x-compiling (DEF-STEP-COMMAND "NEXT" ...) ; x-compiling (DEF-STEP-COMMAND "STOP" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "S" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "N" ...) ; x-compiling (!DEF-DEBUG-COMMAND "OUT" ...) ; x-compiling (!DEF-DEBUG-COMMAND "DESCRIBE" ...) ; x-compiling (!DEF-DEBUG-COMMAND "SLURP" ...) ; x-compiling (DEFUN UNWIND-TO-FRAME-AND-CALL ...) ; x-compiling (DEFUN FIND-BINDING-STACK-POINTER ...) ; x-compiling (DEFUN FIND-ENCLOSING-CATCH-BLOCK ...) ; x-compiling (DEFUN FIND-ENCLOSING-UWP ...) ; x-compiling (!DEF-DEBUG-COMMAND "RETURN" ...) ; x-compiling (!DEF-DEBUG-COMMAND "RESTART-FRAME" ...) ; x-compiling (DEFUN FRAME-HAS-DEBUG-TAG-P ...) ; x-compiling (DEFUN FRAME-HAS-DEBUG-VARS-P ...) ; x-compiling (DEFUN READ-PROMPTING-MAYBE ...) ; x-compiling (DEFUN READ-IF-AVAILABLE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/debug.lisp ; in: DEFUN CLEAN-FAST-METHOD ; (COMPUTE-APPLICABLE-METHODS (FDEFINITION SB!DEBUG::GF-NAME) ; SB!DEBUG::REAL-ARGS) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-APPLICABLE-METHODS ; in: DEFUN DEBUGGER-DISABLED-HOOK ; (SB!EXT:EXIT :CODE 1 :ABORT ABORT) ; ; caught STYLE-WARNING: ; undefined function: EXIT ; ; compilation unit finished ; Undefined functions: ; COMPUTE-APPLICABLE-METHODS EXIT ; caught 2 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/debug.lisp-obj-tmp written ; compilation finished in 0:00:00.675 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/octets.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFTYPE ARRAY-RANGE ...) ; x-compiling (DEFINE-CONDITION OCTETS-ENCODING-ERROR ...) ; x-compiling (DEFUN ENCODING-ERROR ...) ; x-compiling (DEFINE-CONDITION OCTET-DECODING-ERROR ...) ; x-compiling (DEFINE-CONDITION END-OF-INPUT-IN-CHARACTER ...) ; x-compiling (DEFINE-CONDITION CHARACTER-OUT-OF-RANGE ...) ; x-compiling (DEFINE-CONDITION INVALID-UTF8-STARTER-BYTE ...) ; x-compiling (DEFINE-CONDITION INVALID-UTF8-CONTINUATION-BYTE ...) ; x-compiling (DEFINE-CONDITION OVERLONG-UTF8-SEQUENCE ...) ; x-compiling (DEFINE-CONDITION MALFORMED-ASCII ...) ; x-compiling (DEFUN DECODING-ERROR ...) ; x-compiling (DEFMACRO INSTANTIATE-OCTETS-DEFINITION ...) ; x-compiling (DEFUN MAKE-OD-NAME ...) ; x-compiling (DEFMACRO DEFINE-UNIBYTE-MAPPER ...) ; x-compiling (DECLAIM (INLINE GET-LATIN-BYTES)) ; x-compiling (DEFUN GET-LATIN-BYTES ...) ; x-compiling (DECLAIM (INLINE STRING->LATIN%)) ; x-compiling (DEFUN STRING->LATIN% ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/octets.lisp ; in: DEFUN STRING->LATIN% ; (* SB!INT:INDEX 2) ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; (INCF SB!INT:INDEX) ; --> LET* ; ==> ; (+ SB!INT:INDEX #:G166852) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; x-compiling (DEFMACRO DEFINE-LATIN->STRING* ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN->STRING*) ; x-compiling (DEFMACRO DEFINE-LATIN->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN->STRING) ; x-compiling (DEFVAR *DEFAULT-EXTERNAL-FORMAT* ...) ; x-compiling (DEFUN DEFAULT-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN MAYBE-DEFAULTED-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN OCTETS-TO-STRING ...) ; x-compiling (DEFUN STRING-TO-OCTETS ...) ; x-compiling (DEFVAR +UNICODE-REPLACEMENT-CHARACTER+ ...) ; x-compiling (DEFUN USE-UNICODE-REPLACEMENT-CHAR ...) ; x-compiling (DEFMACRO WITH-STANDARD-REPLACEMENT-CHARACTER ...) ; x-compiling (DEFMACRO WITH-DEFAULT-DECODING-REPLACEMENT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/octets.lisp ; in: DEFUN ENCODING-ERROR ; (MAKE-ARRAY 1 :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :INITIAL-ELEMENT ; SB!IMPL::REPLACEMENT) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (1)) ; (SB!KERNEL:ALLOCATE-VECTOR 145 (THE SB!INT:INDEX LENGTH) ; 1)) ; (THE (UNSIGNED-BYTE 8) SB!C::INITIAL-ELEMENT)) ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; ; compilation unit finished ; Undefined function: ; UB8-BASH-FILL ; caught 1 STYLE-WARNING condition ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/octets.lisp-obj-tmp written ; compilation finished in 0:00:01.337 creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-basic.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE CODE->ASCII-MAPPER)) ; x-compiling (DEFUN CODE->ASCII-MAPPER ...) ; x-compiling (DECLAIM (INLINE GET-ASCII-BYTES)) ; x-compiling (DEFUN GET-ASCII-BYTES ...) ; x-compiling (DEFUN STRING->ASCII ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-basic.lisp ; in: DEFUN STRING->ASCII ; (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND ; #'SB!IMPL::GET-ASCII-BYTES SB!IMPL::NULL-PADDING) ; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G166983) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; x-compiling (DEFMACRO DEFINE-ASCII->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ASCII->STRING) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-basic.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-ASCII->STRING ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-ASCII->STRING) ; --> PROGN SB!IMPL::DEFINE-ASCII->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET* IF LOOP BLOCK ; --> LET SB!LOOP::LOOP-BODY TAGBODY SB!LOOP::LOOP-REALLY-DESETQ SETQ THE AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; x-compiling (DEFINE-UNIBYTE-EXTERNAL-FORMAT :ASCII ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-basic.lisp ; in: DEFINE-UNIBYTE-EXTERNAL-FORMAT :ASCII ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :ASCII ; (:US-ASCII :ANSI_X3.4-1968 :ISO-646 :ISO-646-US :|646|) ; (IF (>= SB!IMPL::BITS 128) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)) ; (IF (>= SB-XC:BYTE 128) ; (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 1) ; (CODE-CHAR SB-XC:BYTE)) ; SB!IMPL::ASCII->STRING-AREF SB!IMPL::STRING->ASCII) ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :ASCII ; (:US-ASCII :ANSI_X3.4-1968 :ISO-646 :ISO-646-US :|646|) ; (IF (>= SB!IMPL::BITS 128) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)) ; (IF (>= SB-XC:BYTE 128) ; (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 1) ; (CODE-CHAR SB-XC:BYTE)) ; SB!IMPL::ASCII->STRING-AREF SB!IMPL::STRING->ASCII) ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-167230 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-167230 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DECLAIM (INLINE GET-LATIN1-BYTES)) ; x-compiling (DEFUN GET-LATIN1-BYTES ...) ; x-compiling (DEFUN STRING->LATIN1 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-basic.lisp ; in: DEFUN STRING->LATIN1 ; (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND ; #'SB!IMPL::GET-LATIN1-BYTES SB!IMPL::NULL-PADDING) ; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G167262) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; x-compiling (DEFMACRO DEFINE-LATIN1->STRING* ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN1->STRING*) ; x-compiling (DEFMACRO DEFINE-LATIN1->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN1->STRING) ; x-compiling (DEFINE-UNIBYTE-EXTERNAL-FORMAT :LATIN-1 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-basic.lisp ; in: DEFINE-UNIBYTE-EXTERNAL-FORMAT :LATIN-1 ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :LATIN-1 ; (:LATIN1 :ISO-8859-1 :ISO8859-1) ; (IF (>= SB!IMPL::BITS 256) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)) ; (CODE-CHAR SB-XC:BYTE) SB!IMPL::LATIN1->STRING-AREF SB!IMPL::STRING->LATIN1) ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!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 ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH 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 ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> WHEN IF PROGN SB!INT:C-STRING-DECODING-ERROR ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :LATIN-1 ; (:LATIN1 :ISO-8859-1 :ISO8859-1) ; (IF (>= SB!IMPL::BITS 256) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)) ; (CODE-CHAR SB-XC:BYTE) SB!IMPL::LATIN1->STRING-AREF SB!IMPL::STRING->LATIN1) ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-167551 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-167551 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DECLAIM (INLINE CHAR-LEN-AS-UTF8)) ; x-compiling (DEFUN CHAR-LEN-AS-UTF8 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-basic.lisp ; in: DEFUN CHAR-LEN-AS-UTF8 ; (SB!INT:BUG "can't happen") ; ==> ; "can't happen" ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DEFUN STRING->UTF8 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-basic.lisp ; in: DEFUN STRING->UTF8 ; (LENGTH SB!IMPL::REPLACEMENT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (COPY-SEQ SB!IMPL::NEW-ARRAY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL ; (AND (VECTOR (UNSIGNED-BYTE 8)) ; (NOT SIMPLE-ARRAY))), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL ; (AND (VECTOR (UNSIGNED-BYTE 8)) ; (NOT SIMPLE-ARRAY))), not a LIST. ; (AREF SB!IMPL::REPLACEMENT SB!IMPL::I) ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; x-compiling (DEFMACRO DEFINE-BYTES-PER-UTF8-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF8-CHARACTER) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-basic.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: ; COLD-FSET BYTES-PER-UTF8-CHARACTER-AREF not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; ==> ; (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: ; COLD-FSET BYTES-PER-UTF8-CHARACTER-SAP-REF-8 not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF8-CHAR ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF8-CHAR) ; x-compiling (DEFMACRO DEFINE-UTF8->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF8->STRING) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-basic.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF8->STRING ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UTF8->STRING) ; --> PROGN SB!IMPL::DEFINE-UTF8->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-basic.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) ; (< SB!IMPL::BITS 2048) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (< SB!IMPL::BITS 65536) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; (LOGIOR 192 (SB-XC:LDB (SB-XC:BYTE 5 6) SB!IMPL::BITS)) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 1 SB!IMPL::TAIL)) ; (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 0) SB!IMPL::BITS))) ; --> PROGN SETF SB!KERNEL:%SET-SAP-REF-8 ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (<= 55296 SB!IMPL::BITS 57343) ; --> ; --> (LAMBDA (#:G167764 #:G167763 #:G167762) (DECLARE (TYPE REAL #:G167764 #:G167763 #:G167762)) (IF (<= #:G167764 #:G167763) (IF (<= #:G167763 #:G167762) T NIL) NIL)) ; --> SB!C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :VARS (#:G167764 #:G167763 #:G167762) {10075CEB73}> ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; (LOGIOR 224 (SB-XC:LDB (SB-XC:BYTE 4 12) SB!IMPL::BITS)) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 1 SB!IMPL::TAIL)) ; (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 6) SB!IMPL::BITS)) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 2 SB!IMPL::TAIL)) ; (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 0) SB!IMPL::BITS))) ; --> PROGN SETF SB!KERNEL:%SET-SAP-REF-8 ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; (LOGIOR 240 (SB-XC:LDB (SB-XC:BYTE 3 18) SB!IMPL::BITS)) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 1 SB!IMPL::TAIL)) ; (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 12) SB!IMPL::BITS)) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 2 SB!IMPL::TAIL)) ; (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 6) SB!IMPL::BITS)) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 3 SB!IMPL::TAIL)) ; (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 0) SB!IMPL::BITS))) ; --> PROGN SETF SB!KERNEL:%SET-SAP-REF-8 ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) T ; (CODE-CHAR 65533) ; (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (COND ((< SB!IMPL::BITS 128) 1) ((< SB!IMPL::BITS 2048) 2) ; ((< SB!IMPL::BITS 65536) 3) (T 4))) ; (ECASE SB!IMPL::SIZE ; (1 (SETF # SB!IMPL::BITS)) ; (2 ; (SETF # # ; # #)) ; (3 ; (WHEN (<= 55296 SB!IMPL::BITS 57343) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)) ; (SETF # # ; # # ; # #)) ; (4 ; (SETF # # ; # # ; # # ; # #))) ; (1 ; (COND ((< SB-XC:BYTE 128) 1) ; ((< SB-XC:BYTE 194) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 1)) ; ((< SB-XC:BYTE 224) 2) ((< SB-XC:BYTE 240) 3) (T 4))) ; (CODE-CHAR ; (ECASE SB!IMPL::SIZE ; (1 SB-XC:BYTE) ; (2 ; (LET # ; # ; #)) ; (3 ; (LET # ; # ; #)) ; (4 ; (LET # ; # ; #)))) ; SB!IMPL::UTF8->STRING-AREF SB!IMPL::STRING->UTF8) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; --> MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (< SB!IMPL::BITS 2048) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (< SB!IMPL::BITS 65536) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) T ; (CODE-CHAR 65533) ; (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (COND ((< SB!IMPL::BITS 128) 1) ((< SB!IMPL::BITS 2048) 2) ; ((< SB!IMPL::BITS 65536) 3) (T 4))) ; (ECASE SB!IMPL::SIZE ; (1 (SETF # SB!IMPL::BITS)) ; (2 ; (SETF # # ; # #)) ; (3 ; (WHEN (<= 55296 SB!IMPL::BITS 57343) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)) ; (SETF # # ; # # ; # #)) ; (4 ; (SETF # # ; # # ; # # ; # #))) ; (1 ; (COND ((< SB-XC:BYTE 128) 1) ; ((< SB-XC:BYTE 194) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 1)) ; ((< SB-XC:BYTE 224) 2) ((< SB-XC:BYTE 240) 3) (T 4))) ; (CODE-CHAR ; (ECASE SB!IMPL::SIZE ; (1 SB-XC:BYTE) ; (2 ; (LET # ; # ; #)) ; (3 ; (LET # ; # ; #)) ; (4 ; (LET # ; # ; #)))) ; SB!IMPL::UTF8->STRING-AREF SB!IMPL::STRING->UTF8) ; --> PROGN DEFUN PROGN SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX #)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-168312 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (THE SB!INT:INDEX ; (LET # ; #)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX #)))) ; ; 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. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-168312 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (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. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 61 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/enc-basic.lisp-obj-tmp written ; compilation finished in 0:00:02.487 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-ebcdic.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO DEFINE-UNIBYTE-PERMUTATION-MAPPER ...) ; x-compiling (DEFINE-UNIBYTE-PERMUTATION-MAPPER EBCDIC-US->CODE-MAPPER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-ebcdic.lisp ; in: DEFINE-UNIBYTE-PERMUTATION-MAPPER EBCDIC-US->CODE-MAPPER ; (SB!IMPL::DEFINE-UNIBYTE-PERMUTATION-MAPPER SB!IMPL::EBCDIC-US->CODE-MAPPER ; SB!IMPL::CODE->EBCDIC-US-MAPPER (0 1 2 3 156 9 134 127 151 141 142 11 ...)) ; --> LET LET DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::EBCDIC-US->CODE-MAPPER ; (LAMBDA (SB-XC:BYTE) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE)) ; (BLOCK SB!IMPL::EBCDIC-US->CODE-MAPPER ; (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE)))) ; ; caught STYLE-WARNING: ; COLD-FSET EBCDIC-US->CODE-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; ==> ; (SB!INT:COLD-FSET SB!IMPL::CODE->EBCDIC-US-MAPPER ; (LAMBDA (SB!IMPL::CODE) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (TYPE CHAR-CODE SB!IMPL::CODE)) ; (BLOCK SB!IMPL::CODE->EBCDIC-US-MAPPER ; (IF (> SB!IMPL::CODE 255) ; NIL ; (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::CODE))))) ; ; caught STYLE-WARNING: ; COLD-FSET CODE->EBCDIC-US-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; x-compiling (DECLAIM (INLINE GET-EBCDIC-US-BYTES)) ; x-compiling (DEFUN GET-EBCDIC-US-BYTES ...) ; x-compiling (DEFUN STRING->EBCDIC-US ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-ebcdic.lisp ; in: DEFUN STRING->EBCDIC-US ; (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND ; #'SB!IMPL::GET-EBCDIC-US-BYTES SB!IMPL::NULL-PADDING) ; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G168350) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; x-compiling (DEFMACRO DEFINE-EBCDIC-US->STRING* ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-EBCDIC-US->STRING*) ; x-compiling (DEFMACRO DEFINE-EBCDIC-US->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-EBCDIC-US->STRING) ; x-compiling (DEFINE-UNIBYTE-EXTERNAL-FORMAT :EBCDIC-US ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-ebcdic.lisp ; in: DEFINE-UNIBYTE-EXTERNAL-FORMAT :EBCDIC-US ; (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :EBCDIC-US ; (:CP037 :|cp037| :IBM-037 :IBM037) ; (LET ((SB!IMPL::EBCDIC-US-BYTE ; (SB!IMPL::CODE->EBCDIC-US-MAPPER SB!IMPL::BITS))) ; (IF SB!IMPL::EBCDIC-US-BYTE ; (SETF # SB!IMPL::EBCDIC-US-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS))) ; (CODE-CHAR (SB!IMPL::EBCDIC-US->CODE-MAPPER SB-XC:BYTE)) ; SB!IMPL::EBCDIC-US->STRING-AREF SB!IMPL::STRING->EBCDIC-US) ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!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 ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH 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 ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> WHEN IF PROGN SB!INT:C-STRING-DECODING-ERROR ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> SB!IMPL::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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-168633 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-168633 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 15 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/enc-ebcdic.lisp-obj-tmp written ; compilation finished in 0:00:01.062 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-cyr.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-R ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-cyr.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-R ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-R (:|koi8-r|) ; (128 9472) (129 9474) (130 9484) (131 9488) (132 9492) (133 9496) (134 9500) ; (135 9508) (136 9516) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->KOI8-R-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G168666) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-168961 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-168961 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-U ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-cyr.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-U ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-U (:|koi8-u|) ; (128 9472) (129 9474) (130 9484) (131 9488) (132 9492) (133 9496) (134 9500) ; (135 9508) (136 9516) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->KOI8-U-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G168994) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-169289 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-169289 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :X-MAC-CYRILLIC ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-cyr.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :X-MAC-CYRILLIC ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :X-MAC-CYRILLIC ; (:|x-mac-cyrillic|) (128 1040) (129 1041) (130 1042) (131 1043) (132 1044) ; (133 1045) (134 1046) (135 1047) (136 1048) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->X-MAC-CYRILLIC-MAPPER not cross-compiled at top level: demoting ; to (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G169322) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-169617 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-169617 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; printed 36 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/enc-cyr.lisp-obj-tmp written ; compilation finished in 0:00:02.855 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP437 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP437 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP437 (:|cp437|) (128 199) ; (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231) ; (136 234) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP437-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G169650) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-169945 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-169945 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP850 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP850 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP850 (:|cp850|) (128 199) ; (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231) ; (136 234) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP850-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G169978) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-170273 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-170273 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP852 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP852 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP852 (:|cp852|) (128 199) ; (129 252) (130 233) (131 226) (132 228) (133 367) (134 263) (135 231) ; (136 322) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP852-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G170306) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-170601 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-170601 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP855 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP855 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP855 (:|cp855|) (128 1106) ; (129 1026) (130 1107) (131 1027) (132 1105) (133 1025) (134 1108) (135 1028) ; (136 1109) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP855-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G170634) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-170929 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-170929 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP857 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP857 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP857 (:|cp857|) (128 199) ; (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231) ; (136 234) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP857-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G170962) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-171257 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-171257 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP860 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP860 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP860 (:|cp860|) (128 199) ; (129 252) (130 233) (131 226) (132 227) (133 224) (134 193) (135 231) ; (136 234) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP860-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G171290) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-171585 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-171585 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP861 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP861 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP861 (:|cp861|) (128 199) ; (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231) ; (136 234) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP861-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G171618) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-171913 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-171913 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP862 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP862 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP862 (:|cp862|) (128 1488) ; (129 1489) (130 1490) (131 1491) (132 1492) (133 1493) (134 1494) (135 1495) ; (136 1496) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP862-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G171946) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-172241 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-172241 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP863 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP863 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP863 (:|cp863|) (128 199) ; (129 252) (130 233) (131 226) (132 194) (133 224) (134 182) (135 231) ; (136 234) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP863-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G172274) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-172569 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-172569 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP864 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP864 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP864 (:|cp864|) (128 176) ; (129 183) (130 8729) (131 8730) (132 9618) (133 9472) (134 9474) (135 9532) ; (136 9508) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER PROGN 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: ; 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: ; COLD-FSET CODE->CP864-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G172602) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-172897 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-172897 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP865 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP865 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP865 (:|cp865|) (128 199) ; (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231) ; (136 234) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP865-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G172930) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-173225 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-173225 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP866 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP866 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP866 (:|cp866|) (128 1040) ; (129 1041) (130 1042) (131 1043) (132 1044) (133 1045) (134 1046) (135 1047) ; (136 1048) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP866-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G173258) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-173553 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-173553 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP869 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP869 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP869 (:|cp869|) (128 NIL) ; (129 NIL) (130 NIL) (131 NIL) (132 NIL) (133 NIL) (134 902) (135 NIL) ; (136 183) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP869-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G173586) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-173881 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-173881 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP874 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP874 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP874 (:|cp874|) (128 8364) ; (129 NIL) (130 NIL) (131 NIL) (132 NIL) (133 8230) (134 NIL) (135 NIL) ; (136 NIL) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP874-MAPPER not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G173914) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-174209 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-174209 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; ; compilation unit finished ; caught 28 STYLE-WARNING conditions ; printed 168 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/enc-dos.lisp-obj-tmp written ; compilation finished in 0:00:05.991 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-2 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-2 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-2 ; (:|iso-8859-2| :LATIN-2 :|latin-2|) (161 260) (162 728) (163 321) (165 317) ; (166 346) (169 352) (170 350) (171 356) (172 377) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->ISO-8859-2-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G174242) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-174537 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-174537 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-3 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-3 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-3 ; (:|iso-8859-3| :LATIN-3 :|latin-3|) (161 294) (162 728) (165 NIL) (166 292) ; (169 304) (170 350) (171 286) (172 308) (174 NIL) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->ISO-8859-3-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G174570) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-174865 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-174865 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-4 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-4 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-4 ; (:|iso-8859-4| :LATIN-4 :|latin-4|) (161 260) (162 312) (163 342) (165 296) ; (166 315) (169 352) (170 274) (171 290) (172 358) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->ISO-8859-4-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G174898) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-175193 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-175193 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-5 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-5 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-5 (:|iso-8859-5|) ; (161 1025) (162 1026) (163 1027) (164 1028) (165 1029) (166 1030) (167 1031) ; (168 1032) (169 1033) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->ISO-8859-5-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G175226) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-175521 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-175521 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-6 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-6 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-6 (:|iso-8859-6|) ; (161 NIL) (162 NIL) (163 NIL) (165 NIL) (166 NIL) (167 NIL) (168 NIL) ; (169 NIL) (170 NIL) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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 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: ; COLD-FSET CODE->ISO-8859-6-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G175554) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-175849 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-175849 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-7 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-7 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-7 (:|iso-8859-7|) ; (161 701) (162 700) (164 NIL) (165 NIL) (170 NIL) (174 NIL) (175 8213) ; (180 900) (181 901) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->ISO-8859-7-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G175882) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-176177 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-176177 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-8 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-8 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-8 (:|iso-8859-8|) ; (161 NIL) (170 215) (175 8254) (186 247) (191 NIL) (192 NIL) (193 NIL) ; (194 NIL) (195 NIL) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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 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: ; COLD-FSET CODE->ISO-8859-8-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G176210) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-176505 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-176505 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-9 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-9 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-9 ; (:|iso-8859-9| :LATIN-5 :|latin-5|) (208 286) (221 304) (222 350) (240 287) ; (253 305) (254 351)) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->ISO-8859-9-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G176538) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-176833 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-176833 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-10 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-10 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-10 ; (:|iso-8859-10| :LATIN-6 :|latin-6|) (161 260) (162 274) (163 290) (164 298) ; (165 296) (166 310) (168 315) (169 272) (170 352) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->ISO-8859-10-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G176866) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-177161 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-177161 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-11 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-11 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-11 ; (:|iso-8859-11|) (161 3585) (162 3586) (163 3587) (164 3588) (165 3589) ; (166 3590) (167 3591) (168 3592) (169 3593) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->ISO-8859-11-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G177194) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-177489 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-177489 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-13 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-13 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-13 ; (:|iso-8859-13| :LATIN-7 :|latin-7|) (161 8221) (165 8222) (168 216) ; (170 342) (175 198) (180 8220) (184 248) (186 343) (191 230) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->ISO-8859-13-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G177522) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-177817 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-177817 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-14 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-14 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-14 ; (:|iso-8859-14| :LATIN-8 :|latin-8|) (161 7682) (162 7683) (164 266) ; (165 267) (166 7690) (168 7808) (170 7810) (171 7691) (172 7922) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->ISO-8859-14-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G177850) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-178145 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-178145 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :LATIN-9 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :LATIN-9 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :LATIN-9 ; (:LATIN9 :ISO-8859-15 :ISO8859-15) (164 8364) (166 352) (168 353) (180 381) ; (184 382) (188 338) (189 339) (190 376)) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER PROGN LET LET DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::LATIN-9->CODE-MAPPER ; (LAMBDA (SB-XC:BYTE) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE)) ; (BLOCK SB!IMPL::LATIN-9->CODE-MAPPER ; (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE)))) ; ; caught STYLE-WARNING: ; COLD-FSET LATIN-9->CODE-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; ==> ; (SB!INT:COLD-FSET SB!IMPL::CODE->LATIN-9-MAPPER ; (LAMBDA (SB!IMPL::CODE) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (TYPE CHAR-CODE SB!IMPL::CODE)) ; (BLOCK SB!IMPL::CODE->LATIN-9-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: ; COLD-FSET CODE->LATIN-9-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G178178) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-178473 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-178473 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; ; compilation unit finished ; caught 26 STYLE-WARNING conditions ; printed 156 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/enc-iso.lisp-obj-tmp written ; compilation finished in 0:00:05.479 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-win.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1250 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1250 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1250 ; (:|cp1250| :WINDOWS-1250 :|windows-1250|) (128 8364) (129 NIL) (130 8218) ; (131 NIL) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP1250-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G178506) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-178801 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-178801 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1251 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1251 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1251 ; (:|cp1251| :WINDOWS-1251 :|windows-1251|) (128 1026) (129 1027) (130 8218) ; (131 1107) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP1251-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G178834) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-179129 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-179129 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1252 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1252 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1252 ; (:|cp1252| :WINDOWS-1252 :|windows-1252|) (128 8364) (129 NIL) (130 8218) ; (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP1252-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G179162) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-179457 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-179457 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1253 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1253 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1253 ; (:|cp1253| :WINDOWS-1253 :|windows-1253|) (128 8364) (129 NIL) (130 8218) ; (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP1253-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G179490) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-179785 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-179785 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1254 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1254 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1254 (:|cp1254|) ; (128 8364) (129 NIL) (130 8218) (131 402) (132 8222) (133 8230) (134 8224) ; (135 8225) (136 710) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP1254-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G179818) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-180113 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-180113 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1255 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1255 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1255 ; (:|cp1255| :WINDOWS-1255 :|windows-1255|) (128 8364) (129 NIL) (130 8218) ; (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP1255-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G180146) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-180441 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-180441 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1256 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1256 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1256 ; (:|cp1256| :WINDOWS-1256 :|windows-1256|) (128 8364) (129 1662) (130 8218) ; (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP1256-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G180474) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-180769 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-180769 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1257 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1257 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1257 ; (:|cp1257| :WINDOWS-1257 :|windows-1257|) (128 8364) (129 NIL) (130 8218) ; (131 NIL) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP1257-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G180802) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-181097 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-181097 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1258 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1258 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1258 ; (:|cp1258| :WINDOWS-1258 :|windows-1258|) (128 8364) (129 NIL) (130 8218) ; (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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: ; 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: ; COLD-FSET CODE->CP1258-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G181130) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-181425 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-181425 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; ; compilation unit finished ; caught 18 STYLE-WARNING conditions ; printed 108 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/enc-win.lisp-obj-tmp written ; compilation finished in 0:00:03.840 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-mac.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :MAC-ROMAN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-mac.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :MAC-ROMAN ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :MAC-ROMAN ; (:|mac-roman| :|MacRoman| :MAC :|mac| :MACINTOSH :|macintosh|) (128 196) ; (129 197) (130 199) (131 201) (132 209) (133 214) (134 220) (135 225) ; (136 224) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER PROGN LET LET DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::MAC-ROMAN->CODE-MAPPER ; (LAMBDA (SB-XC:BYTE) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE)) ; (BLOCK SB!IMPL::MAC-ROMAN->CODE-MAPPER ; (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE)))) ; ; caught STYLE-WARNING: ; COLD-FSET MAC-ROMAN->CODE-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; ==> ; (SB!INT:COLD-FSET SB!IMPL::CODE->MAC-ROMAN-MAPPER ; (LAMBDA (SB!IMPL::CODE) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (TYPE CHAR-CODE SB!IMPL::CODE)) ; (BLOCK SB!IMPL::CODE->MAC-ROMAN-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: ; COLD-FSET CODE->MAC-ROMAN-MAPPER not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK VALUES PROG1 LET ; --> SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G181458) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 1)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-181753 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 1))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 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. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-181753 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 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. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 12 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/enc-mac.lisp-obj-tmp written ; compilation finished in 0:00:00.749 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/mb-util.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO DEFINE-MULTIBYTE-MAPPER ...) ; x-compiling (DEFUN GET-MULTIBYTE-MAPPER ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/mb-util.lisp ; in: DEFUN GET-MULTIBYTE-MAPPER ; (AREF SB!IMPL::TABLE SB!IMPL::M 0) ; --> LET* ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY. ; (AREF SB!IMPL::TABLE SB!IMPL::M 1) ; --> LET* ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY. ; x-compiling (DEFUN MAKE-OD-NAME-LIST ...) ; x-compiling (DEFUN DEFINE-BYTES-PER-MB-CHARACTER-1 ...) ; x-compiling (DEFUN DEFINE-SIMPLE-GET-MB-CHAR-1 ...) ; x-compiling (DEFUN DEFINE-MB->STRING-1 ...) ; x-compiling (DECLAIM (INLINE MB-CHAR-LEN)) ; x-compiling (DEFUN MB-CHAR-LEN ...) ; x-compiling (DEFMACRO DEFINE-MULTIBYTE-ENCODING ...); ; compilation unit finished ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/mb-util.lisp-obj-tmp written ; compilation finished in 0:00:01.248 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-cn-tbl.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-MULTIBYTE-MAPPER *GBK-TO-UCS-TABLE* ...) ; x-compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-GBK-TABLE* ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/enc-cn-tbl.lisp-obj-tmp written ; compilation finished in 0:00:00.330 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-cn.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE UCS-TO-GBK ...)) ; x-compiling (DEFUN UCS-TO-GBK ...) ; x-compiling (DEFUN GBK-TO-UCS ...) ; x-compiling (DEFUN MB-LEN-AS-GBK ...) ; x-compiling (DEFUN GBK-CONTINUATION-BYTE-P ...) ; x-compiling (DEFINE-MULTIBYTE-ENCODING :GBK ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-cn.lisp ; in: DEFINE-MULTIBYTE-ENCODING :GBK ; (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :GBK (:GBK :CP936) SB!IMPL::UCS-TO-GBK ; SB!IMPL::GBK-TO-UCS SB!IMPL::MB-LEN-AS-GBK SB!IMPL::GBK-CONTINUATION-BYTE-P) ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SIMPLE-GET-GBK-CHAR PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK FLET LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :GBK 'SB!IMPL::MALFORMED-GBK SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND ; --> IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR ; --> AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND ; --> IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR ; --> AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX #)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-182191 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (THE SB!INT:INDEX (BLOCK SB!IMPL::SIZE #)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX #)))) ; ; 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. ; --> 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 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &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)) ; ; 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 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-182191 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (THE SB!INT:INDEX (BLOCK SB!IMPL::SIZE #)))) ; ; 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 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; compilation unit finished ; printed 19 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/enc-cn.lisp-obj-tmp written ; compilation finished in 0:00:01.564 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-jpn-tbl.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-EUCJP-TABLE* ...) ; x-compiling (DEFINE-MULTIBYTE-MAPPER *EUCJP-TO-UCS-TABLE* ...) ; x-compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-SJIS-TABLE* ...) ; x-compiling (DEFINE-MULTIBYTE-MAPPER *SJIS-TO-UCS-TABLE* ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/enc-jpn-tbl.lisp-obj-tmp written ; compilation finished in 0:00:01.404 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-jpn.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE UCS-TO-EUCJP ...)) ; x-compiling (DEFUN UCS-TO-EUCJP ...) ; x-compiling (DEFUN EUCJP-TO-UCS ...) ; x-compiling (DEFUN MB-LEN-AS-EUCJP ...) ; x-compiling (DEFUN EUCJP-CONTINUATION-BYTE-P ...) ; x-compiling (DEFINE-MULTIBYTE-ENCODING :EUC-JP ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-jpn.lisp ; in: DEFINE-MULTIBYTE-ENCODING :EUC-JP ; (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :EUC-JP (:EUC-JP :EUCJP :|eucJP|) ; SB!IMPL::UCS-TO-EUCJP SB!IMPL::EUCJP-TO-UCS SB!IMPL::MB-LEN-AS-EUCJP ; SB!IMPL::EUCJP-CONTINUATION-BYTE-P) ; --> PROGN SB!IMPL::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!IMPL::BYTES) ; :EUC-JP 'SB!IMPL::MALFORMED-EUC-JP SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND ; --> IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR ; --> AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND ; --> IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR ; --> AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX #)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-182723 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (THE SB!INT:INDEX (BLOCK SB!IMPL::SIZE #)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX #)))) ; ; 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. ; --> 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 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &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)) ; ; 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 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-182723 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (THE SB!INT:INDEX (BLOCK SB!IMPL::SIZE #)))) ; ; 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 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; x-compiling (DECLAIM (INLINE UCS-TO-SJIS ...)) ; x-compiling (DEFUN UCS-TO-SJIS ...) ; x-compiling (DEFUN SJIS-TO-UCS ...) ; x-compiling (DEFUN MB-LEN-AS-SJIS ...) ; x-compiling (DEFUN SJIS-CONTINUATION-BYTE-P ...) ; x-compiling (DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-jpn.lisp ; in: DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS ; (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS ; (:SHIFT_JIS :SJIS :|Shift_JIS| :CP932) SB!IMPL::UCS-TO-SJIS ; SB!IMPL::SJIS-TO-UCS SB!IMPL::MB-LEN-AS-SJIS ; SB!IMPL::SJIS-CONTINUATION-BYTE-P) ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SIMPLE-GET-SHIFT_JIS-CHAR PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK FLET LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :SHIFT_JIS 'SB!IMPL::MALFORMED-SHIFT_JIS SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND ; --> IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR ; --> AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND ; --> IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR ; --> AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX #)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-183371 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (THE SB!INT:INDEX (BLOCK SB!IMPL::SIZE #)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX #)))) ; ; 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. ; --> 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 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &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)) ; ; 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 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-183371 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (THE SB!INT:INDEX (BLOCK SB!IMPL::SIZE #)))) ; ; 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 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; ; compilation unit finished ; printed 38 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/enc-jpn.lisp-obj-tmp written ; compilation finished in 0:00:02.208 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-ucs.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE SAP-REF-16LE ...)) ; x-compiling (DEFUN SAP-REF-16LE ...) ; x-compiling (DEFUN (SETF SAP-REF-16LE) ...) ; x-compiling (DEFUN SAP-REF-16BE ...) ; x-compiling (DEFUN (SETF SAP-REF-16BE) ...) ; x-compiling (DEFUN SAP-REF-32LE ...) ; x-compiling (DEFUN (SETF SAP-REF-32LE) ...) ; x-compiling (DEFUN SAP-REF-32BE ...) ; x-compiling (DEFUN (SETF SAP-REF-32BE) ...) ; x-compiling (DECLAIM (INLINE CHAR->UCS-2LE)) ; x-compiling (DEFUN CHAR->UCS-2LE ...) ; x-compiling (DECLAIM (INLINE CHAR->UCS-2BE)) ; x-compiling (DEFUN CHAR->UCS-2BE ...) ; x-compiling (DEFUN STRING->UCS-2LE ...) ; x-compiling (DEFUN STRING->UCS-2BE ...) ; x-compiling (DEFMACRO DEFINE-BYTES-PER-UCS2-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UCS2-CHARACTER) ; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UCS2-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS2-CHARACTER) ; x-compiling (DEFMACRO DEFINE-UCS-2->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-2->STRING) ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-ucs.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) T ; (CODE-CHAR 65533) 2 ; (IF (< SB!IMPL::BITS 65536) ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)) ; 2 (CODE-CHAR (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD)) ; SB!IMPL::UCS-2LE->STRING-AREF SB!IMPL::STRING->UCS-2LE) ; --> PROGN DEFUN PROGN SB!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* DOTIMES DO BLOCK ; --> LET TAGBODY TAGBODY WHEN IF PROGN SB!INT:C-STRING-DECODING-ERROR ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; --> MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) T ; (CODE-CHAR 65533) 2 ; (IF (< SB!IMPL::BITS 65536) ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)) ; 2 (CODE-CHAR (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD)) ; SB!IMPL::UCS-2LE->STRING-AREF SB!IMPL::STRING->UCS-2LE) ; --> PROGN DEFUN PROGN SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::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 ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-183700 ; (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 ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::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 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. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-183700 ; (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 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. ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-ucs.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) T ; (CODE-CHAR 65533) 2 ; (IF (< SB!IMPL::BITS 65536) ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)) ; 2 (CODE-CHAR (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD)) ; SB!IMPL::UCS-2BE->STRING-AREF SB!IMPL::STRING->UCS-2BE) ; --> PROGN DEFUN PROGN SB!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* DOTIMES DO BLOCK ; --> LET TAGBODY TAGBODY WHEN IF PROGN SB!INT:C-STRING-DECODING-ERROR ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; --> MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) T ; (CODE-CHAR 65533) 2 ; (IF (< SB!IMPL::BITS 65536) ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)) ; 2 (CODE-CHAR (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD)) ; SB!IMPL::UCS-2BE->STRING-AREF SB!IMPL::STRING->UCS-2BE) ; --> PROGN DEFUN PROGN SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::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 ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-183936 ; (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 ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::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 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. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-183936 ; (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 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. ; x-compiling (DECLAIM (INLINE CHAR->UCS-4LE)) ; x-compiling (DEFUN CHAR->UCS-4LE ...) ; x-compiling (DECLAIM (INLINE CHAR->UCS-4BE)) ; x-compiling (DEFUN CHAR->UCS-4BE ...) ; x-compiling (DEFUN STRING->UCS-4LE ...) ; x-compiling (DEFUN STRING->UCS-4BE ...) ; x-compiling (DEFMACRO DEFINE-BYTES-PER-UCS4-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UCS4-CHARACTER) ; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UCS4-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS4-CHARACTER) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-ucs.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS4-CHARACTER ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION ; SB!IMPL::DEFINE-SIMPLE-GET-UCS4-CHARACTER) ; --> PROGN SB!IMPL::DEFINE-SIMPLE-GET-UCS4-CHARACTER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UCS-4LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UCS-4BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UCS-4LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UCS-4BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; x-compiling (DEFMACRO DEFINE-UCS-4->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-4->STRING) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-ucs.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-4->STRING ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UCS-4->STRING) ; --> PROGN SB!IMPL::DEFINE-UCS-4->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION LET TYPECASE LET COND IF COND IF PROGN ; --> DOTIMES DO BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4LE :UCS4LE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-ucs.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4LE :UCS4LE) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4LE :UCS4LE) NIL ; (CODE-CHAR 65533) 4 ; (SETF (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) 4 ; (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::HEAD))) ; (IF (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) ; (CODE-CHAR SB!IMPL::CODE) ; (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4))) ; SB!IMPL::UCS-4LE->STRING-AREF SB!IMPL::STRING->UCS-4LE) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; --> MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-184270 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 4)))) ; ; 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. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-184270 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 4))) ; ; 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. ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4BE :UCS4BE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-ucs.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4BE :UCS4BE) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4BE :UCS4BE) NIL ; (CODE-CHAR 65533) 4 ; (SETF (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) 4 ; (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::HEAD))) ; (IF (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) ; (CODE-CHAR SB!IMPL::CODE) ; (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4))) ; SB!IMPL::UCS-4BE->STRING-AREF SB!IMPL::STRING->UCS-4BE) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; --> MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-184540 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 4)))) ; ; 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. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-184540 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 4))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; compilation unit finished ; printed 60 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/enc-ucs.lisp-obj-tmp written ; compilation finished in 0:00:01.347 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-utf.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE UTF-NONCHARACTER-CODE-P)) ; x-compiling (DEFUN UTF-NONCHARACTER-CODE-P ...) ; x-compiling (DECLAIM (INLINE CHAR->UTF-16LE)) ; x-compiling (DEFUN CHAR->UTF-16LE ...) ; x-compiling (DECLAIM (INLINE CHAR->UTF-16BE)) ; x-compiling (DEFUN CHAR->UTF-16BE ...) ; x-compiling (DEFUN STRING->UTF-16LE ...) ; x-compiling (DEFUN STRING->UTF-16BE ...) ; x-compiling (DEFMACRO DEFINE-BYTES-PER-UTF16-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF16-CHARACTER) ; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF16-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF16-CHARACTER) ; x-compiling (DEFMACRO DEFINE-UTF-16->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-16->STRING) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-utf.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-16->STRING ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UTF-16->STRING) ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G184852) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; The second argument is a REAL, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; --> PROGN SB!IMPL::DEFINE-UTF-16->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 THE PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G184852) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G184859) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; The second argument is a REAL, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; --> PROGN SB!IMPL::DEFINE-UTF-16->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 THE PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G184859) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G184866) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; The second argument is a REAL, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; --> PROGN SB!IMPL::DEFINE-UTF-16->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 THE PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G184866) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G184873) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; The second argument is a REAL, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; --> PROGN SB!IMPL::DEFINE-UTF-16->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 THE PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G184873) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16LE :UTF16LE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-utf.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16LE :UTF16LE) ; (LOGAND SB!IMPL::BITS 65534) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536)) ; (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS)) ; (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS))) ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; --> LET* ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::HIGH ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)) ; --> LET* ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (+ SB!IMPL::TAIL 2) ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::LOW ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16LE :UTF16LE) T ; (CODE-CHAR 65533) ; (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (IF (< SB!IMPL::BITS 65536) ; 2 ; 4)) ; (COND ; ((< SB!IMPL::BITS 65536) ; (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF #))) ; (T ; (IF (= # 65534) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (LET* # ; # ; #)))) ; (2 ; (IF (<= 55296 (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD) 56319) ; 4 ; 2)) ; (LET ((SB!IMPL::BITS (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD))) ; (COND ((OR # # #) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 2)) ; ((<= 55296 SB!IMPL::BITS 56319) ; (LET # ; # ; #)) ; (T (CODE-CHAR SB!IMPL::BITS)))) ; SB!IMPL::UTF-16LE->STRING-AREF SB!IMPL::STRING->UTF-16LE) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; --> MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (LOGAND SB!IMPL::BITS 65534) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536)) ; (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS)) ; (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS))) ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; --> LET* ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::HIGH ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)) ; --> LET* ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (+ SB!IMPL::TAIL 2) ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::LOW ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16LE :UTF16LE) T ; (CODE-CHAR 65533) ; (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (IF (< SB!IMPL::BITS 65536) ; 2 ; 4)) ; (COND ; ((< SB!IMPL::BITS 65536) ; (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF #))) ; (T ; (IF (= # 65534) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (LET* # ; # ; #)))) ; (2 ; (IF (<= 55296 (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD) 56319) ; 4 ; 2)) ; (LET ((SB!IMPL::BITS (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD))) ; (COND ((OR # # #) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 2)) ; ((<= 55296 SB!IMPL::BITS 56319) ; (LET # ; # ; #)) ; (T (CODE-CHAR SB!IMPL::BITS)))) ; SB!IMPL::UTF-16LE->STRING-AREF SB!IMPL::STRING->UTF-16LE) ; --> PROGN DEFUN PROGN SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX #)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-185293 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (THE SB!INT:INDEX ; (LET # ; #)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX #)))) ; ; 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. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-185293 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (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. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16BE :UTF16BE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-utf.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16BE :UTF16BE) ; (LOGAND SB!IMPL::BITS 65534) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536)) ; (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS)) ; (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS))) ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; --> LET* ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::HIGH ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)) ; --> LET* ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (+ SB!IMPL::TAIL 2) ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::LOW ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16BE :UTF16BE) T ; (CODE-CHAR 65533) ; (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (IF (< SB!IMPL::BITS 65536) ; 2 ; 4)) ; (COND ; ((< SB!IMPL::BITS 65536) ; (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF #))) ; (T ; (IF (= # 65534) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (LET* # ; # ; #)))) ; (2 ; (IF (<= 55296 (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD) 56319) ; 4 ; 2)) ; (LET ((SB!IMPL::BITS (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD))) ; (COND ((OR # # #) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 2)) ; ((<= 55296 SB!IMPL::BITS 56319) ; (LET # ; # ; #)) ; (T (CODE-CHAR SB!IMPL::BITS)))) ; SB!IMPL::UTF-16BE->STRING-AREF SB!IMPL::STRING->UTF-16BE) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; --> MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (LOGAND SB!IMPL::BITS 65534) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536)) ; (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS)) ; (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS))) ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; --> LET* ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::HIGH ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)) ; --> LET* ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (+ SB!IMPL::TAIL 2) ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::LOW ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16BE :UTF16BE) T ; (CODE-CHAR 65533) ; (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (IF (< SB!IMPL::BITS 65536) ; 2 ; 4)) ; (COND ; ((< SB!IMPL::BITS 65536) ; (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF #))) ; (T ; (IF (= # 65534) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (LET* # ; # ; #)))) ; (2 ; (IF (<= 55296 (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD) 56319) ; 4 ; 2)) ; (LET ((SB!IMPL::BITS (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD))) ; (COND ((OR # # #) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 2)) ; ((<= 55296 SB!IMPL::BITS 56319) ; (LET # ; # ; #)) ; (T (CODE-CHAR SB!IMPL::BITS)))) ; SB!IMPL::UTF-16BE->STRING-AREF SB!IMPL::STRING->UTF-16BE) ; --> PROGN DEFUN PROGN SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX #)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-185789 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (THE SB!INT:INDEX ; (LET # ; #)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX #)))) ; ; 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. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-185789 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (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. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; x-compiling (DECLAIM (INLINE CHAR->UTF-32LE)) ; x-compiling (DEFUN CHAR->UTF-32LE ...) ; x-compiling (DECLAIM (INLINE CHAR->UTF-32BE)) ; x-compiling (DEFUN CHAR->UTF-32BE ...) ; x-compiling (DEFUN STRING->UTF-32LE ...) ; x-compiling (DEFUN STRING->UTF-32BE ...) ; x-compiling (DEFMACRO DEFINE-BYTES-PER-UTF32-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF32-CHARACTER) ; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF32-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF32-CHARACTER) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-utf.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF32-CHARACTER ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION ; SB!IMPL::DEFINE-SIMPLE-GET-UTF32-CHARACTER) ; --> PROGN SB!IMPL::DEFINE-SIMPLE-GET-UTF32-CHARACTER PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UTF-32LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UTF-32BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UTF-32LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UTF-32BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; x-compiling (DEFMACRO DEFINE-UTF-32->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-32->STRING) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-utf.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-32->STRING ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UTF-32->STRING) ; --> PROGN SB!IMPL::DEFINE-UTF-32->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION LET TYPECASE LET COND IF COND IF PROGN ; --> DOTIMES DO BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32LE :UTF32LE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-utf.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32LE :UTF32LE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32LE :UTF32LE) T ; (CODE-CHAR 65533) 4 ; (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)) ; 4 ; (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::HEAD))) ; (IF (AND (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) (NOT #)) ; (CODE-CHAR SB!IMPL::CODE) ; (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4))) ; SB!IMPL::UTF-32LE->STRING-AREF SB!IMPL::STRING->UTF-32LE) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; --> MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32LE :UTF32LE) T ; (CODE-CHAR 65533) 4 ; (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)) ; 4 ; (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::HEAD))) ; (IF (AND (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) (NOT #)) ; (CODE-CHAR SB!IMPL::CODE) ; (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4))) ; SB!IMPL::UTF-32LE->STRING-AREF SB!IMPL::STRING->UTF-32LE) ; --> PROGN DEFUN PROGN SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-186309 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 4)))) ; ; 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. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-186309 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 4))) ; ; 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. ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32BE :UTF32BE) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/external-formats/enc-utf.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32BE :UTF32BE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32BE :UTF32BE) T ; (CODE-CHAR 65533) 4 ; (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)) ; 4 ; (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::HEAD))) ; (IF (AND (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) (NOT #)) ; (CODE-CHAR SB!IMPL::CODE) ; (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4))) ; SB!IMPL::UTF-32BE->STRING-AREF SB!IMPL::STRING->UTF-32BE) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; --> MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32BE :UTF32BE) T ; (CODE-CHAR 65533) 4 ; (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)) ; 4 ; (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::HEAD))) ; (IF (AND (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) (NOT #)) ; (CODE-CHAR SB!IMPL::CODE) ; (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4))) ; SB!IMPL::UTF-32BE->STRING-AREF SB!IMPL::STRING->UTF-32BE) ; --> PROGN DEFUN PROGN SB!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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-186683 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> 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!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!IMPL::BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 4)))) ; ; 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. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-186683 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 4))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; compilation unit finished ; printed 132 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/external-formats/enc-utf.lisp-obj-tmp written ; compilation finished in 0:00:03.214 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/parse-defmacro-errors.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BIND-ERROR ...) ; x-compiling (DEFMACRO !PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...) ; x-compiling (DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/parse-defmacro-errors.lisp ; in: DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ; (PPRINT-LOGICAL-BLOCK (STREAM NIL) (FUNCALL SB!KERNEL::FUN STREAM)) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK ; --> SB!C::%WITHIN-CLEANUP LET SB!PRETTY::MAKE-PRETTY-STREAM ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFINE-CONDITION DEFMACRO-BOGUS-SUBLIST-ERROR ...) ; x-compiling (DEFINE-CONDITION ARG-COUNT-ERROR ...) ; x-compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR ...); ; compilation unit finished ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/parse-defmacro-errors.lisp-obj-tmp written ; compilation finished in 0:00:00.580 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/full-eval.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!EVAL") ; x-compiling (DEFVAR *SPECIAL* ...) ; x-compiling (DEFVAR *MACRO* ...) ; x-compiling (DEFVAR *SYMBOL-MACRO* ...) ; x-compiling (DEFVAR *NOT-PRESENT* ...) ; x-compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...) ; x-compiling (DEFINE-CONDITION ARG-COUNT-PROGRAM-ERROR ...) ; x-compiling (DEFUN ARG-COUNT-PROGRAM-ERROR ...) ; x-compiling (DEFMACRO PROGRAM-DESTRUCTURING-BIND ...) ; x-compiling (DEFUN IP-ERROR ...) ; x-compiling (DEFMACRO NCONC-2 ...) ; x-compiling (DEFUN FABRICATE-NEW-NATIVE-ENVIRONMENT ...) ; x-compiling (DEFSTRUCT (ENV #) ...) ; x-compiling (DEFUN MAKE-ENV ...) ; x-compiling (DEFUN MAKE-NULL-ENVIRONMENT ...) ; x-compiling (DECLAIM (INLINE PUSH-VAR)) ; x-compiling (DEFUN PUSH-VAR ...) ; x-compiling (DECLAIM (INLINE PUSH-FUN)) ; x-compiling (DEFUN PUSH-FUN ...) ; x-compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-GET-BINDING GET-BINDING ...) ; x-compiling (DEFINE-GET-BINDING GET-FBINDING ...) ; x-compiling (DEFINE-GET-BINDING GET-EXPANDER-BINDING ...) ; x-compiling (DEFINE-GET-BINDING GET-SYMBOL-EXPANSION-BINDING ...) ; x-compiling (DEFINE-GET-BINDING GET-TAG-BINDING ...) ; x-compiling (DEFINE-GET-BINDING GET-BLOCK-BINDING ...) ; x-compiling (DEFUN DECLARED-SPECIALS ...) ; x-compiling (DEFUN SPECIAL-BINDINGS ...) ; x-compiling (DEFUN SPECIALP ...) ; x-compiling (DEFUN BINDING-NAME ...) ; x-compiling (DEFUN BINDING-VALUE ...) ; x-compiling (DEFUN SUPPLIED-P-PARAMETER ...) ; x-compiling (DEFUN KEYWORD-NAME ...) ; x-compiling (DEFUN KEYWORD-KEY ...) ; x-compiling (DEFUN KEYWORD-DEFAULT-VALUE ...) ; x-compiling (DEFUN PARSE-ARGUMENTS ...) ; x-compiling (DEFUN EVAL-NEXT-LET*-BINDING ...) ; x-compiling (DEFUN CALL-WITH-NEW-ENV ...) ; x-compiling (DEFUN CALL-WITH-NEW-ENV-FULL-PARSING ...) ; x-compiling (DEFUN SET-VARIABLE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/full-eval.lisp ; in: DEFUN SET-VARIABLE ; (SETF (SB!ALIEN-INTERNALS:%HEAP-ALIEN TYPE) SB!EVAL::VALUE) ; ==> ; (SB!ALIEN-INTERNALS:%SET-HEAP-ALIEN TYPE SB!EVAL::VALUE) ; ; note: unable to optimize because: info not constant; can't open code ; x-compiling (DEFUN GET-VARIABLE ...) ; x-compiling (DEFUN GET-FUNCTION ...) ; x-compiling (DEFUN LAMBDAP ...) ; x-compiling (DEFUN PARSE-LAMBDA-HEADERS ...) ; x-compiling (DEFUN EVAL-LAMBDA ...) ; x-compiling (DEFUN EVAL-PROGN ...) ; x-compiling (DEFUN EVAL-IF ...) ; x-compiling (DEFUN EVAL-LET ...) ; x-compiling (DEFUN EVAL-LET* ...) ; x-compiling (DEFUN EVAL-LOCAL-FUNCTION-DEF ...) ; x-compiling (DEFUN EVAL-FLET ...) ; x-compiling (DEFUN EVAL-LABELS ...) ; x-compiling (DEFUN EVAL-LOCAL-MACRO-DEF ...) ; x-compiling (DEFUN EVAL-MACROLET ...) ; x-compiling (DEFUN EVAL-SYMBOL-MACROLET ...) ; x-compiling (DEFUN EVAL-PROGV ...) ; x-compiling (DEFUN EVAL-FUNCTION ...) ; x-compiling (DEFUN EVAL-EVAL-WHEN ...) ; x-compiling (DEFUN EVAL-QUOTE ...) ; x-compiling (DEFUN EVAL-SETQ ...) ; x-compiling (DEFUN EVAL-MULTIPLE-VALUE-CALL ...) ; x-compiling (DEFUN EVAL-MULTIPLE-VALUE-PROG1 ...) ; x-compiling (DEFUN EVAL-CATCH ...) ; x-compiling (DEFUN EVAL-TAGBODY ...) ; x-compiling (DEFUN EVAL-GO ...) ; x-compiling (DEFUN EVAL-BLOCK ...) ; x-compiling (DEFUN EVAL-RETURN-FROM ...) ; x-compiling (DEFUN EVAL-THE ...) ; x-compiling (DEFUN EVAL-UNWIND-PROTECT ...) ; x-compiling (DEFUN EVAL-THROW ...) ; x-compiling (DEFUN EVAL-LOAD-TIME-VALUE ...) ; x-compiling (DEFUN EVAL-LOCALLY ...) ; x-compiling (DEFUN EVAL-ARGS ...) ; x-compiling (DEFUN EVAL-WITH-PINNED-OBJECTS ...) ; x-compiling (DEFINE-CONDITION MACROEXPAND-HOOK-TYPE-ERROR ...) ; x-compiling (DEFVAR *EVAL-DISPATCH-FUNCTIONS* ...) ; x-compiling (DECLAIM (INLINE %%EVAL)) ; x-compiling (DEFUN %%EVAL ...) ; x-compiling (DEFUN %EVAL ...) ; x-compiling (DEFUN %APPLY ...) ; x-compiling (DEFUN INTERPRETED-APPLY ...) ; x-compiling (DEFINE-CONDITION INTERPRETER-ENVIRONMENT-TOO-COMPLEX-ERROR ...) ; x-compiling (DEFINE-CONDITION COMPILER-ENVIRONMENT-TOO-COMPLEX-ERROR ...) ; x-compiling (DEFUN PREPARE-FOR-COMPILE ...) ; x-compiling (DEFUN MAKE-ENV-FROM-NATIVE-ENVIRONMENT ...) ; x-compiling (DEFUN EVAL-IN-ENVIRONMENT ...) ; x-compiling (DEFUN EVAL-IN-NATIVE-ENVIRONMENT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/full-eval.lisp ; in: DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ; (SLOT-BOUNDP CONDITION 'CONDITION) ; ; caught STYLE-WARNING: ; undefined function: SLOT-BOUNDP ; ; compilation unit finished ; Undefined function: ; SLOT-BOUNDP ; caught 1 STYLE-WARNING condition ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/full-eval.lisp-obj-tmp written ; compilation finished in 0:00:00.606 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bit-bash.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFTYPE BIT-OFFSET ...) ; x-compiling (DEF WORD-LOGICAL-NOT ...) ; x-compiling (DEF WORD-LOGICAL-AND ...) ; x-compiling (DEF WORD-LOGICAL-OR ...) ; x-compiling (DEF WORD-LOGICAL-XOR ...) ; x-compiling (DEF WORD-LOGICAL-NOR ...) ; x-compiling (DEF WORD-LOGICAL-EQV ...) ; x-compiling (DEF WORD-LOGICAL-NAND ...) ; x-compiling (DEF WORD-LOGICAL-ANDC1 ...) ; x-compiling (DEF WORD-LOGICAL-ANDC2 ...) ; x-compiling (DEF WORD-LOGICAL-ORC1 ...) ; x-compiling (DEF WORD-LOGICAL-ORC2 ...) ; x-compiling (DEFUN SHIFT-TOWARDS-START ...) ; x-compiling (DEFUN SHIFT-TOWARDS-END ...) ; x-compiling (DECLAIM (INLINE START-MASK ...)) ; x-compiling (DEFUN START-MASK ...) ; x-compiling (DEFUN END-MASK ...) ; x-compiling (DECLAIM (INLINE WORD-SAP-REF ...)) ; x-compiling (DEFUN WORD-SAP-REF ...) ; x-compiling (DEFUN %SET-WORD-SAP-REF ...) ; x-compiling (DEFMACRO !DEFINE-SAP-FIXER ...) ; x-compiling (DEFMACRO !DEFINE-BYTE-BASHERS ...) ; x-compiling (!DEFINE-SAP-FIXER 1) ; x-compiling (!DEFINE-SAP-FIXER 2) ; x-compiling (!DEFINE-SAP-FIXER 4) ; x-compiling (!DEFINE-SAP-FIXER 8) ; x-compiling (!DEFINE-SAP-FIXER 16) ; x-compiling (!DEFINE-SAP-FIXER 32) ; x-compiling (!DEFINE-SAP-FIXER 64) ; x-compiling (!DEFINE-BYTE-BASHERS 1) ; x-compiling (!DEFINE-BYTE-BASHERS 2) ; x-compiling (!DEFINE-BYTE-BASHERS 4) ; x-compiling (!DEFINE-BYTE-BASHERS 8) ; x-compiling (!DEFINE-BYTE-BASHERS 16) ; x-compiling (!DEFINE-BYTE-BASHERS 32) ; x-compiling (!DEFINE-BYTE-BASHERS 64) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/bit-bash.lisp ; in: PROGN (!DEFINE-SAP-FIXER 1) ; (SB!VM::!DEFINE-BYTE-BASHERS 64) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!KERNEL::CONSTANT-UB64-BASH ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF LET LET ; --> MULTIPLE-VALUE-BIND ; ==> ; (LET ((#:G5391 'SB!C::DUMMY)) ; (UNLESS (TYPEP #:G5391 '(UNSIGNED-BYTE 62)) ; (SB!C::%TYPE-CHECK-ERROR #:G5391 '(UNSIGNED-BYTE 62))) ; (VALUES #:G5391)) ; ; note: doing signed word to integer coercion (cost 20) to #:G5391 ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SB!KERNEL::CONSTANT-UB64-BASH BLOCK ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION IF LET LET MULTIPLE-VALUE-BIND ; ==> ; (LET ((#:G5426 'SB!C::DUMMY)) ; (UNLESS (TYPEP #:G5426 '(UNSIGNED-BYTE 62)) ; (SB!C::%TYPE-CHECK-ERROR #:G5426 '(UNSIGNED-BYTE 62))) ; (VALUES #:G5426)) ; ; note: doing signed word to integer coercion (cost 20) to #:G5426 ; x-compiling (DEFUN COPY-BYTE-VECTOR-TO-SYSTEM-AREA ...) ; x-compiling (DEFCONSTANT +BIT-POSITION-BASE-MASK+ ...) ; x-compiling (DEFCONSTANT +BIT-POSITION-BASE-SHIFT+ ...) ; x-compiling (DEF %BIT-POSITION/0 ...) ; x-compiling (DEF %BIT-POSITION/1 ...) ; x-compiling (DEFUN %BIT-POSITION ...); ; compilation unit finished ; printed 2 notes ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/bit-bash.lisp-obj-tmp written ; compilation finished in 0:00:06.348 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-load.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!FASL") ; x-compiling (DEFVAR *LOAD-SOURCE-DEFAULT-TYPE* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *LOAD-TRUENAME* ...) ; x-compiling (DEFVAR *LOAD-PATHNAME* ...) ; x-compiling (DEFUN LOAD-AS-SOURCE ...) ; x-compiling (DEFINE-CONDITION FASL-HEADER-MISSING ...) ; x-compiling (DEFUN LOAD ...) ; x-compiling (DEFUN PROBE-LOAD-DEFAULTS ...) ; x-compiling (DEFUN LOAD-CODE ...) ; x-compiling (DEFVAR *!INITIAL-ASSEMBLER-ROUTINES*) ; x-compiling (DEFUN !LOADER-COLD-INIT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/target-load.lisp ; in: DEFUN LOAD-CODE ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* ; (SB!KERNEL:CODE-INSTRUCTIONS SB!FASL::CODE) 0 SB!FASL::CODE-LENGTH) ; --> BLOCK IF LET* ; ==> ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: SB!GRAY:STREAM-READ-SEQUENCE ; ; compilation unit finished ; Undefined function: ; SB!GRAY:STREAM-READ-SEQUENCE ; caught 1 STYLE-WARNING condition ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/target-load.lisp-obj-tmp written ; compilation finished in 0:00:00.182 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/target-dump.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!FASL") ; x-compiling (DEFUN DUMP-CHARACTERS-OF-STRING ...) ; x-compiling (DEFUN DUMP-SIMPLE-CHARACTER-STRING ...) ; x-compiling (DEFUN DUMP-RAW-BYTES ...) ; x-compiling (DEFUN DUMP-MULTI-DIM-ARRAY ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/target-dump.lisp-obj-tmp written ; compilation finished in 0:00:00.063 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cold-init.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN !UNINTERN-INIT-ONLY-STUFF ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN !COLD-LOSE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CRITICALLY-UNREACHABLE ...) ; x-compiling (DEFVAR *!REVERSED-COLD-TOPLEVELS*) ; x-compiling (DEFVAR *!LOAD-TIME-VALUES*) ; x-compiling (DEFUN !COLD-INIT ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EXIT ...) ; x-compiling (DEFUN THREAD-INIT-OR-REINIT ...) ; x-compiling (DEFUN REINIT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cold-init.lisp ; in: DEFUN !COLD-INIT ; #'SB!IMPL::!%QUIETLY-DEFUN ; ; caught STYLE-WARNING: ; undefined function: !%QUIETLY-DEFUN ; (SB!IMPL::SHOW-AND-CALL SB!KERNEL:!LATE-PROCLAIM-COLD-INIT) ; --> PROGN ; ==> ; (SB!KERNEL:!LATE-PROCLAIM-COLD-INIT) ; ; caught STYLE-WARNING: ; undefined function: !LATE-PROCLAIM-COLD-INIT ; #'SB!IMPL::!QUIETLY-ASSIGN-SETF-MACRO ; ; caught STYLE-WARNING: ; undefined function: !QUIETLY-ASSIGN-SETF-MACRO ; #'SB!IMPL::ASSIGN-SETF-MACRO ; ; caught STYLE-WARNING: ; undefined function: ASSIGN-SETF-MACRO ; ; compilation unit finished ; Undefined functions: ; !%QUIETLY-DEFUN !LATE-PROCLAIM-COLD-INIT !QUIETLY-ASSIGN-SETF-MACRO ASSIGN-SETF-MACRO ; caught 4 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/cold-init.lisp-obj-tmp written ; compilation finished in 0:00:00.094 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cl-specials.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "COMMON-LISP") ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/cl-specials.lisp-obj-tmp written ; compilation finished in 0:00:00.011 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/compiler/late-proclaim.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (!COLD-INIT-FORMS (AVER *TYPE-SYSTEM-INITIALIZED*)) ; x-compiling (!COLD-INIT-FORMS (MAPCAR # ...)) ; x-compiling (!COLD-INIT-FORMS (MAKUNBOUND #)) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-PROCLAIM-COLD-INIT) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/compiler/late-proclaim.lisp-obj-tmp written ; compilation finished in 0:00:00.026 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/defboot.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO-MUNDANELY IN-PACKAGE ...) ; x-compiling (DEFUN LIST-OF-SYMBOLS-P ...) ; x-compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-BIND ...) ; x-compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-SETQ ...) ; x-compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-LIST ...) ; x-compiling (DEFMACRO-MUNDANELY COND ...) ; x-compiling (DEFMACRO-MUNDANELY WHEN ...) ; x-compiling (DEFMACRO-MUNDANELY UNLESS ...) ; x-compiling (DEFMACRO-MUNDANELY AND ...) ; x-compiling (DEFMACRO-MUNDANELY OR ...) ; x-compiling (FLET (#) ...) ; x-compiling (DEFMACRO-MUNDANELY PROG1 ...) ; x-compiling (DEFMACRO-MUNDANELY PROG2 ...) ; x-compiling (DEFUN INLINE-FUN-NAME-P ...) ; x-compiling (DEFMACRO-MUNDANELY DEFUN ...) ; x-compiling (DEF-DEFUN %DEFUN ...) ; x-compiling (DEF-DEFUN !%QUIETLY-DEFUN ...) ; x-compiling (DEFMACRO-MUNDANELY DEFVAR ...) ; x-compiling (DEFMACRO-MUNDANELY DEFPARAMETER ...) ; x-compiling (DEFUN %COMPILER-DEFVAR ...) ; x-compiling (DEFUN %DEFVAR ...) ; x-compiling (DEFUN %DEFPARAMETER ...) ; x-compiling (DEFMACRO-MUNDANELY DO ...) ; x-compiling (DEFMACRO-MUNDANELY DO* ...) ; x-compiling (DEFMACRO-MUNDANELY DOTIMES ...) ; x-compiling (DEFMACRO-MUNDANELY DOLIST ...) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SETF (INFO :VARIABLE ...) ...) ; x-compiling (SETF (INFO :VARIABLE ...) ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-CONDITION-RESTARTS ...) ; x-compiling (DEFMACRO-MUNDANELY RESTART-BIND ...) ; x-compiling (DEFUN MUNGE-RESTART-CASE-EXPRESSION ...) ; x-compiling (DEFMACRO-MUNDANELY RESTART-CASE ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-SIMPLE-RESTART ...) ; x-compiling (DEFMACRO-MUNDANELY %HANDLER-BIND ...) ; x-compiling (DEFMACRO-MUNDANELY HANDLER-BIND ...) ; x-compiling (DEFMACRO-MUNDANELY HANDLER-CASE ...) ; x-compiling (DEFMACRO-MUNDANELY RETURN ...) ; x-compiling (DEFMACRO-MUNDANELY PSETQ ...) ; x-compiling (DEFMACRO-MUNDANELY LAMBDA ...) ; x-compiling (DEFMACRO-MUNDANELY NAMED-LAMBDA ...) ; x-compiling (DEFMACRO-MUNDANELY LAMBDA-WITH-LEXENV ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/defboot.lisp-obj-tmp written ; compilation finished in 0:00:00.245 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/destructuring-bind.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO-MUNDANELY DESTRUCTURING-BIND ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/destructuring-bind.lisp-obj-tmp written ; compilation finished in 0:00:00.035 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-setf.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SB-XC:GET-SETF-EXPANSION ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EXPAND-OR-GET-SETF-INVERSE ...) ; x-compiling (DEFUN GET-SETF-METHOD-INVERSE ...) ; x-compiling (DEFMACRO-MUNDANELY SETF ...) ; x-compiling (DEFMACRO-MUNDANELY SHIFTF ...) ; x-compiling (DEFMACRO-MUNDANELY PUSH ...) ; x-compiling (DEFMACRO-MUNDANELY PUSHNEW ...) ; x-compiling (DEFMACRO-MUNDANELY POP ...) ; x-compiling (DEFMACRO-MUNDANELY REMF ...) ; x-compiling (DEFMACRO-MUNDANELY INCF ...) ; x-compiling (DEFMACRO-MUNDANELY DECF ...) ; x-compiling (DEF!MACRO SB-XC:DEFINE-MODIFY-MACRO ...) ; x-compiling (DEFUN ASSIGN-SETF-MACRO ...) ; x-compiling (DEFUN !QUIETLY-ASSIGN-SETF-MACRO ...) ; x-compiling (DEF!MACRO SB-XC:DEFSETF ...) ; x-compiling (DEFUN %DEFSETF ...) ; x-compiling (DEF!MACRO SB-XC:DEFINE-SETF-EXPANDER ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER GETF ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER GET ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER GETHASH ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-setf.lisp ; in: SB-XC:DEFINE-SETF-EXPANDER GETHASH ; (SB-XC:DEFINE-SETF-EXPANDER GETHASH ; (SB!IMPL::KEY SB!IMPL::HASHTABLE &OPTIONAL SB!IMPL::DEFAULT) ; (LET ((SB!IMPL::KEY-TEMP (GENSYM)) ; (SB!IMPL::HASHTABLE-TEMP (GENSYM)) ; (SB!IMPL::DEFAULT-TEMP ; (IF SB!IMPL::DEFAULT ; #)) ; (SB!IMPL::NEW-VALUE-TEMP (GENSYM))) ; (VALUES ; (SB!IMPL::BACKQ-LIST* SB!IMPL::KEY-TEMP SB!IMPL::HASHTABLE-TEMP ; (IF SB!IMPL::DEFAULT ; #)) ; (SB!IMPL::BACKQ-LIST* SB!IMPL::KEY SB!IMPL::HASHTABLE ; (IF SB!IMPL::DEFAULT ; #)) ; (SB!IMPL::BACKQ-LIST SB!IMPL::NEW-VALUE-TEMP) ; (SB!IMPL::BACKQ-LIST 'PROGN SB!IMPL::DEFAULT-TEMP ; (SB!IMPL::BACKQ-LIST 'SB!KERNEL:%PUTHASH ; SB!IMPL::KEY-TEMP ; SB!IMPL::HASHTABLE-TEMP ; SB!IMPL::NEW-VALUE-TEMP)) ; (SB!IMPL::BACKQ-LIST* 'GETHASH SB!IMPL::KEY-TEMP SB!IMPL::HASHTABLE-TEMP ; (IF SB!IMPL::DEFAULT ; #))))) ; --> EVAL-WHEN ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'GETHASH ; (LAMBDA (#:WHOLE605 #:ENVIRONMENT606) ; (DECLARE (IGNORE #:ENVIRONMENT606)) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK GETHASH #)))) ; '(SB!IMPL::KEY SB!IMPL::HASHTABLE &OPTIONAL ; SB!IMPL::DEFAULT) ; NIL 'NIL) ; ; caught STYLE-WARNING: ; defining setf macro for GETHASH when (SETF GETHASH) is fbound ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER LOGBITP ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER APPLY ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER LDB ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-setf.lisp ; in: SB-XC:DEFINE-SETF-EXPANDER LDB ; (SB-XC:DEFINE-SETF-EXPANDER SB-XC:LDB ; (SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT SB!IMPL::ENV) ; "The first argument is a byte specifier. The second is any place form ; acceptable to SETF. Replace the specified byte of the number in this ; place with bits from the low-order end of the new value." ; (DECLARE (TYPE SB!KERNEL:LEXENV SB!IMPL::ENV)) ; (MULTIPLE-VALUE-BIND ; (SB!IMPL::DUMMIES SB!IMPL::VALS SB!IMPL::NEWVAL SB!IMPL::SETTER ; SB!IMPL::GETTER) ; (SB-XC:GET-SETF-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; (IF (AND (CONSP SB!IMPL::BYTESPEC) (EQ # 'SB-XC:BYTE)) ; (LET (# # #) ; (VALUES # # # # #)) ; (LET (# #) ; (VALUES # # # # #))))) ; --> EVAL-WHEN ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB-XC:LDB ; (LAMBDA (#:WHOLE677 #:ENVIRONMENT678) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (DECLARE #) ; (BLOCK SB-XC:LDB #)))) ; '(SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT ; SB!IMPL::ENV) ; NIL ; '"The first argument is a byte specifier. The second is any place form ; acceptable to SETF. Replace the specified byte of the number in this ; place with bits from the low-order end of the new value.") ; ; caught STYLE-WARNING: ; defining setf macro for LDB when (SETF LDB) is fbound ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER MASK-FIELD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/early-setf.lisp ; in: SB-XC:DEFINE-SETF-EXPANDER MASK-FIELD ; (SB-XC:DEFINE-SETF-EXPANDER SB-XC:MASK-FIELD ; (SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT SB!IMPL::ENV) ; "The first argument is a byte specifier. The second is any place form ; acceptable to SETF. Replaces the specified byte of the number in this place ; with bits from the corresponding position in the new value." ; (DECLARE (TYPE SB!KERNEL:LEXENV SB!IMPL::ENV)) ; (MULTIPLE-VALUE-BIND ; (SB!IMPL::DUMMIES SB!IMPL::VALS SB!IMPL::NEWVAL SB!IMPL::SETTER ; SB!IMPL::GETTER) ; (SB-XC:GET-SETF-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; (LET ((SB!IMPL::BTEMP #) (SB!IMPL::GNUVAL #)) ; (VALUES (CONS SB!IMPL::BTEMP SB!IMPL::DUMMIES) ; (CONS SB!IMPL::BYTESPEC SB!IMPL::VALS) (LIST SB!IMPL::GNUVAL) ; (SB!IMPL::BACKQ-LIST 'LET # SB!IMPL::SETTER SB!IMPL::GNUVAL) ; (SB!IMPL::BACKQ-LIST 'SB-XC:MASK-FIELD SB!IMPL::BTEMP ; SB!IMPL::GETTER))))) ; --> EVAL-WHEN ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB-XC:MASK-FIELD ; (LAMBDA (#:WHOLE719 #:ENVIRONMENT720) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (DECLARE #) ; (BLOCK SB-XC:MASK-FIELD #)))) ; '(SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT ; SB!IMPL::ENV) ; NIL ; '"The first argument is a byte specifier. The second is any place form ; acceptable to SETF. Replaces the specified byte of the number in this place ; with bits from the corresponding position in the new value.") ; ; caught STYLE-WARNING: ; defining setf macro for MASK-FIELD when (SETF MASK-FIELD) is fbound ; x-compiling (DEFUN SETF-EXPAND-THE ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER THE ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER TRULY-THE ...); ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/early-setf.lisp-obj-tmp written ; compilation finished in 0:00:00.221 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/macros.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO-MUNDANELY ASSERT ...) ; x-compiling (DEFUN ASSERT-PROMPT ...) ; x-compiling (DEFMACRO-MUNDANELY CHECK-TYPE ...) ; x-compiling (DEFMACRO-MUNDANELY DEFINE-SYMBOL-MACRO ...) ; x-compiling (DEFUN SB!C::%DEFINE-SYMBOL-MACRO ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/macros.lisp ; in: DEFUN SB!C::%DEFINE-SYMBOL-MACRO ; (ECASE SB!IMPL::KIND ; (:ALIEN "an alien variable") ; (:CONSTANT "a constant") ; (:SPECIAL "a special variable") ; (:GLOBAL "a global variable") ; (T SB!IMPL::KIND)) ; --> LET COND IF COND IF COND IF COND IF COND IF PROGN ; ==> ; SB!IMPL::KIND ; ; note: deleting unreachable code ; x-compiling (DEFMACRO-MUNDANELY DEFINE-COMPILER-MACRO ...) ; x-compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...) ; x-compiling (DEFINE-CONDITION DUPLICATE-CASE-KEY-WARNING ...) ; x-compiling (DEFUN CASE-BODY ...) ; x-compiling (DEFUN CASE-BODY-AUX ...) ; x-compiling (DEFMACRO-MUNDANELY CASE ...) ; x-compiling (DEFMACRO-MUNDANELY CCASE ...) ; x-compiling (DEFMACRO-MUNDANELY ECASE ...) ; x-compiling (DEFMACRO-MUNDANELY TYPECASE ...) ; x-compiling (DEFMACRO-MUNDANELY CTYPECASE ...) ; x-compiling (DEFMACRO-MUNDANELY ETYPECASE ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-OPEN-STREAM ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-OPEN-FILE ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-INPUT-FROM-STRING ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-OUTPUT-TO-STRING ...) ; x-compiling (DEFMACRO-MUNDANELY NTH-VALUE ...) ; x-compiling (DEFMACRO-MUNDANELY DECLAIM ...) ; x-compiling (DEFMACRO-MUNDANELY PRINT-UNREADABLE-OBJECT ...) ; x-compiling (DEFMACRO-MUNDANELY IGNORE-ERRORS ...); ; compilation unit finished ; printed 1 note ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/macros.lisp-obj-tmp written ; compilation finished in 0:00:00.183 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/loop.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!LOOP") ; x-compiling (SB!INT:DEFMACRO-MUNDANELY WITH-LOOP-LIST-COLLECTION-HEAD ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-RPLACD ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-ANSWER ...) ; x-compiling (DEFSTRUCT (LOOP-MINIMAX # ...) ...) ; x-compiling (DEFVAR *LOOP-MINIMAX-TYPE-INFINITIES-ALIST* ...) ; x-compiling (DEFUN MAKE-LOOP-MINIMAX ...) ; x-compiling (DEFUN LOOP-NOTE-MINIMAX-OPERATION ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY WITH-MINIMAX-VALUE ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-ACCUMULATE-MINIMAX-VALUE ...) ; x-compiling (DEFUN LOOP-TEQUAL ...) ; x-compiling (DEFUN LOOP-TASSOC ...) ; x-compiling (DEFUN LOOP-TMEMBER ...) ; x-compiling (DEFUN LOOP-LOOKUP-KEYWORD ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-STORE-TABLE-DATA ...) ; x-compiling (DEFSTRUCT (LOOP-UNIVERSE # ...) ...) ; x-compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFVAR *LOOP-UNIVERSE*) ; x-compiling (DEFUN MAKE-STANDARD-LOOP-UNIVERSE ...) ; x-compiling (DEFUN LOOP-MAKE-PSETQ ...) ; x-compiling (DEFUN LOOP-MAKE-DESETQ ...) ; x-compiling (DEFVAR *LOOP-DESETQ-TEMPORARY* ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-REALLY-DESETQ ...) ; x-compiling (DEFVAR *LOOP-SOURCE-CODE*) ; x-compiling (DEFVAR *LOOP-ORIGINAL-SOURCE-CODE*) ; x-compiling (DEFVAR *LOOP-SOURCE-CONTEXT*) ; x-compiling (DEFVAR *LOOP-NAMES*) ; x-compiling (DEFVAR *LOOP-MACRO-ENVIRONMENT*) ; x-compiling (DEFVAR *LOOP-NAMED-VARS*) ; x-compiling (DEFVAR *LOOP-VARS*) ; x-compiling (DEFVAR *LOOP-DECLARATIONS*) ; x-compiling (DEFVAR *LOOP-DESETQ-DECLARATIONS*) ; x-compiling (DEFVAR *LOOP-DESETQ*) ; x-compiling (DEFVAR *LOOP-WRAPPERS*) ; x-compiling (DEFVAR *LOOP-BIND-STACK*) ; x-compiling (DEFVAR *LOOP-PROLOGUE*) ; x-compiling (DEFVAR *LOOP-BEFORE-LOOP*) ; x-compiling (DEFVAR *LOOP-BODY*) ; x-compiling (DEFVAR *LOOP-AFTER-BODY*) ; x-compiling (DEFVAR *LOOP-EMITTED-BODY*) ; x-compiling (DEFVAR *LOOP-EPILOGUE*) ; x-compiling (DEFVAR *LOOP-AFTER-EPILOGUE*) ; x-compiling (DEFVAR *LOOP-FINAL-VALUE-CULPRIT*) ; x-compiling (DEFVAR *LOOP-INSIDE-CONDITIONAL*) ; x-compiling (DEFVAR *LOOP-WHEN-IT-VAR*) ; x-compiling (DEFVAR *LOOP-NEVER-STEPPED-VAR*) ; x-compiling (DEFVAR *LOOP-COLLECTION-CRUFT*) ; x-compiling (DEFUN LOOP-CONSTANT-FOLD-IF-POSSIBLE ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-BODY ...) ; x-compiling (DEFUN LOOP-CONTEXT ...) ; x-compiling (DEFUN LOOP-ERROR ...) ; x-compiling (DEFUN LOOP-WARN ...) ; x-compiling (DEFUN LOOP-CHECK-DATA-TYPE ...) ; x-compiling (DEFUN SUBST-GENSYMS-FOR-NIL ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-DESTRUCTURING-BIND ...) ; x-compiling (DEFUN LOOP-BUILD-DESTRUCTURING-BINDINGS ...) ; x-compiling (DEFUN LOOP-TRANSLATE ...) ; x-compiling (DEFUN LOOP-ITERATION-DRIVER ...) ; x-compiling (DEFUN LOOP-POP-SOURCE ...) ; x-compiling (DEFUN LOOP-GET-FORM ...) ; x-compiling (DEFUN LOOP-GET-COMPOUND-FORM ...) ; x-compiling (DEFUN LOOP-GET-PROGN ...) ; x-compiling (DEFUN LOOP-CONSTRUCT-RETURN ...) ; x-compiling (DEFUN LOOP-PSEUDO-BODY ...) ; x-compiling (DEFUN LOOP-EMIT-BODY ...) ; x-compiling (DEFUN LOOP-EMIT-FINAL-VALUE ...) ; x-compiling (DEFUN LOOP-DISALLOW-CONDITIONAL ...) ; x-compiling (DEFUN LOOP-DISALLOW-ANONYMOUS-COLLECTORS ...) ; x-compiling (DEFUN LOOP-DISALLOW-AGGREGATE-BOOLEANS ...) ; x-compiling (DEFUN LOOP-TYPED-INIT ...) ; x-compiling (DEFUN LOOP-OPTIONAL-TYPE ...) ; x-compiling (DEFUN LOOP-BIND-BLOCK ...) ; x-compiling (DEFUN CHECK-VAR-NAME ...) ; x-compiling (DEFUN LOOP-MAKE-VAR ...) ; x-compiling (DEFUN TYPE-FOR-DEFAULT-INIT ...) ; x-compiling (DEFUN LOOP-DECLARE-VAR ...) ; x-compiling (DEFUN LOOP-MAYBE-BIND-FORM ...) ; x-compiling (DEFUN LOOP-DO-IF ...) ; x-compiling (DEFUN LOOP-DO-INITIALLY ...) ; x-compiling (DEFUN LOOP-DO-FINALLY ...) ; x-compiling (DEFUN LOOP-DO-DO ...) ; x-compiling (DEFUN LOOP-DO-NAMED ...) ; x-compiling (DEFUN LOOP-DO-RETURN ...) ; x-compiling (DEFSTRUCT (LOOP-COLLECTOR # ...) ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY WITH-SUM-COUNT ...) ; x-compiling (DEFUN LOOP-GET-COLLECTION-INFO ...) ; x-compiling (DEFUN LOOP-LIST-COLLECTION ...) ; x-compiling (DEFUN LOOP-SUM-COLLECTION ...) ; x-compiling (DEFUN LOOP-MAXMIN-COLLECTION ...) ; x-compiling (DEFUN LOOP-DO-ALWAYS ...) ; x-compiling (DEFUN LOOP-DO-THEREIS ...) ; x-compiling (DEFUN LOOP-DO-WHILE ...) ; x-compiling (DEFUN LOOP-DO-REPEAT ...) ; x-compiling (DEFUN LOOP-DO-WITH ...) ; x-compiling (DEFUN LOOP-HACK-ITERATION ...) ; x-compiling (DEFUN LOOP-DO-FOR ...) ; x-compiling (DEFUN LOOP-WHEN-IT-VAR ...) ; x-compiling (DEFUN LOOP-ANSI-FOR-EQUALS ...) ; x-compiling (DEFUN LOOP-FOR-ACROSS ...) ; x-compiling (DEFUN LOOP-LIST-STEP ...) ; x-compiling (DEFUN LOOP-FOR-ON ...) ; x-compiling (DEFUN LOOP-FOR-IN ...) ; x-compiling (DEFSTRUCT (LOOP-PATH # ...) ...) ; x-compiling (DEFUN ADD-LOOP-PATH ...) ; x-compiling (DEFUN LOOP-FOR-BEING ...) ; x-compiling (DEFUN LOOP-NAMED-VAR ...) ; x-compiling (DEFUN LOOP-COLLECT-PREPOSITIONAL-PHRASES ...) ; x-compiling (DEFUN LOOP-SEQUENCER ...) ; x-compiling (DEFUN LOOP-FOR-ARITHMETIC ...) ; x-compiling (DEFUN LOOP-HASH-TABLE-ITERATION-PATH ...) ; x-compiling (DEFUN LOOP-PACKAGE-SYMBOLS-ITERATION-PATH ...) ; x-compiling (DEFUN MAKE-ANSI-LOOP-UNIVERSE ...) ; x-compiling (DEFPARAMETER *LOOP-ANSI-UNIVERSE* ...) ; x-compiling (DEFUN LOOP-STANDARD-EXPANSION ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-FINISH ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/loop.lisp-obj-tmp written ; compilation finished in 0:00:00.714 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-setf.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO-MUNDANELY PSETF ...) ; x-compiling (DEFMACRO-MUNDANELY ROTATEF ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER VALUES ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/late-setf.lisp-obj-tmp written ; compilation finished in 0:00:00.939 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/cas.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!MACRO CAS ...) ; x-compiling (DEFUN GET-CAS-EXPANSION ...) ; x-compiling (DEFUN EXPAND-STRUCTURE-SLOT-CAS ...) ; x-compiling (DEF!MACRO DEFINE-CAS-EXPANDER ...) ; x-compiling (DEF!MACRO DEFCAS ...) ; x-compiling (DEF!MACRO COMPARE-AND-SWAP ...) ; x-compiling (DEF %COMPARE-AND-SWAP-CAR ...) ; x-compiling (DEF %COMPARE-AND-SWAP-CDR ...) ; x-compiling (DEF %COMPARE-AND-SWAP-INSTANCE-REF ...) ; x-compiling (DEF %COMPARE-AND-SWAP-SYMBOL-INFO ...) ; x-compiling (DEF %COMPARE-AND-SWAP-SYMBOL-VALUE ...) ; x-compiling (DEF %COMPARE-AND-SWAP-SVREF ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/cas.lisp-obj-tmp written ; compilation finished in 0:00:00.085 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-cas.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFCAS CAR ...) ; x-compiling (DEFCAS CDR ...) ; x-compiling (DEFCAS FIRST ...) ; x-compiling (DEFCAS REST ...) ; x-compiling (DEFCAS SYMBOL-PLIST ...) ; x-compiling (DEFINE-CAS-EXPANDER SYMBOL-VALUE ...) ; x-compiling (DEFINE-CAS-EXPANDER SVREF ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/late-cas.lisp-obj-tmp written ; compilation finished in 0:00:00.073 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-format.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!FORMAT") ; x-compiling (DEFINE-CONDITION FORMAT-ERROR ...) ; x-compiling (DEFUN %PRINT-FORMAT-ERROR ...) ; x-compiling (DEF!STRUCT FORMAT-DIRECTIVE ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN TOKENIZE-CONTROL-STRING ...) ; x-compiling (DEFUN PARSE-DIRECTIVE ...) ; x-compiling (SB-XC:DEFMACRO FORMATTER ...) ; x-compiling (DEFUN %FORMATTER ...) ; x-compiling (DEFUN EXPAND-CONTROL-STRING ...) ; x-compiling (DEFUN EXPAND-DIRECTIVE-LIST ...) ; x-compiling (DEFUN EXPAND-DIRECTIVE ...) ; x-compiling (DEFMACRO-MUNDANELY EXPANDER-NEXT-ARG ...) ; x-compiling (DEFUN EXPAND-NEXT-ARG ...) ; x-compiling (DEFMACRO EXPAND-BIND-DEFAULTS ...) ; x-compiling (DEFUN %SET-FORMAT-DIRECTIVE-EXPANDER ...) ; x-compiling (DEFUN %SET-FORMAT-DIRECTIVE-INTERPRETER ...) ; x-compiling (DEFUN FIND-DIRECTIVE ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\A ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\S ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\C ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\W ...) ; x-compiling (DEFUN EXPAND-FORMAT-INTEGER ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\D ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\B ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\O ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\X ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\R ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\P ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\F ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\E ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\G ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\$ ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\% ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\& ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\| ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\~ ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\Newline ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\T ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\_ ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\I ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\* ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\? ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\( ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\) ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\[ ...) ; x-compiling (DEFUN PARSE-CONDITIONAL-DIRECTIVE ...) ; x-compiling (DEFUN EXPAND-MAYBE-CONDITIONAL ...) ; x-compiling (DEFUN EXPAND-TRUE-FALSE-CONDITIONAL ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\; ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\] ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\^ ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\{ ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\} ...) ; x-compiling (DEFPARAMETER *ILLEGAL-INSIDE-JUSTIFICATION* ...) ; x-compiling (DEFUN ILLEGAL-INSIDE-JUSTIFICATION-P ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\< ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\> ...) ; x-compiling (DEFUN PARSE-FORMAT-LOGICAL-BLOCK ...) ; x-compiling (DEFUN ADD-FILL-STYLE-NEWLINES ...) ; x-compiling (DEFUN ADD-FILL-STYLE-NEWLINES-AUX ...) ; x-compiling (DEFUN PARSE-FORMAT-JUSTIFICATION ...) ; x-compiling (SB-XC:DEFMACRO EXPANDER-PPRINT-NEXT-ARG ...) ; x-compiling (DEFUN EXPAND-FORMAT-LOGICAL-BLOCK ...) ; x-compiling (DEFUN EXPAND-FORMAT-JUSTIFICATION ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\/ ...) ; x-compiling (DEFUN EXTRACT-USER-FUN-NAME ...) ; x-compiling (DEFUN %COMPILER-WALK-FORMAT-STRING ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/late-format.lisp-obj-tmp written ; compilation finished in 0:00:00.892 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/sxhash.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (SB-XC:DEFINE-MODIFY-MACRO MIXF ...) ; x-compiling (DEFTRANSFORM SXHASH ...) ; x-compiling (DEFTRANSFORM SXHASH ...) ; x-compiling (DEFTRANSFORM SXHASH ...) ; x-compiling (DEFTRANSFORM SXHASH ...) ; x-compiling (DEFTRANSFORM SXHASH ...) ; x-compiling (DEFTRANSFORM SXHASH ...) ; x-compiling (DEFTRANSFORM PSXHASH ...) ; x-compiling (DEFTRANSFORM PSXHASH ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/sxhash.lisp-obj-tmp written ; compilation finished in 0:00:00.819 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/signal.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!UNIX") ; x-compiling (DEFVAR *INTERRUPTS-ENABLED* ...) ; x-compiling (DEFVAR *INTERRUPT-PENDING* ...) ; x-compiling (DEFVAR *ALLOW-WITH-INTERRUPTS* ...) ; x-compiling (DEFVAR *UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ...) ; x-compiling (SB-XC:DEFMACRO WITHOUT-INTERRUPTS ...) ; x-compiling (SB-XC:DEFMACRO WITH-INTERRUPTS ...) ; x-compiling (DEFMACRO ALLOW-WITH-INTERRUPTS ...) ; x-compiling (DEFMACRO WITH-LOCAL-INTERRUPTS ...) ; x-compiling (DEFUN %CHECK-INTERRUPTS ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/signal.lisp-obj-tmp written ; compilation finished in 0:00:00.052 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-defbangmethod.lisp" (written 28 JUN 2014 03:46:25 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO-MUNDANELY DEF!METHOD ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/code/late-defbangmethod.lisp-obj-tmp written ; compilation finished in 0:00:00.015 creating directory: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/pcl/ ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/walk.lisp" (written 28 JUN 2014 03:46:26 PM): ; x-compiling (IN-PACKAGE "SB!WALKER") ; x-compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT*) ; x-compiling (/SHOW "walk.lisp 108") ; x-compiling (DEFMACRO WITH-AUGMENTED-ENVIRONMENT ...) ; x-compiling (DEFVAR *BOGO-FUN-MAGIC-TAG* ...) ; x-compiling (DEFUN WALKER-INFO-TO-BOGO-FUN ...) ; x-compiling (DEFUN BOGO-FUN-TO-WALKER-INFO ...) ; x-compiling (DEFUN WITH-AUGMENTED-ENVIRONMENT-INTERNAL ...) ; x-compiling (DEFUN ENVIRONMENT-FUNCTION ...) ; x-compiling (DEFUN ENVIRONMENT-MACRO ...) ; x-compiling (DEFMACRO WITH-NEW-DEFINITION-IN-ENVIRONMENT ...) ; x-compiling (DEFUN CONVERT-MACRO-TO-LAMBDA ...) ; x-compiling (DEFMACRO WALKER-ENVIRONMENT-BIND ...) ; x-compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT* ...) ; x-compiling (DEFUN ENV-LOCK ...) ; x-compiling (DEFUN WALKER-ENVIRONMENT-BIND-1 ...) ; x-compiling (DEFUN ENV-WALK-FUNCTION ...) ; x-compiling (DEFUN ENV-WALK-FORM ...) ; x-compiling (DEFUN ENV-DECLARATIONS ...) ; x-compiling (DEFUN ENV-VAR-TYPE ...) ; x-compiling (DEFUN ENV-LEXICAL-VARIABLES ...) ; x-compiling (DEFUN NOTE-DECLARATION ...) ; x-compiling (DEFUN NOTE-VAR-BINDING ...) ; x-compiling (DEFUN VAR-LEXICAL-P ...) ; x-compiling (DEFUN VARIABLE-SYMBOL-MACRO-P ...) ; x-compiling (DEFUN WALKED-VAR-DECLARATION-P ...) ; x-compiling (DEFUN %VAR-DECLARATION ...) ; x-compiling (DEFUN VAR-DECLARATION ...) ; x-compiling (DEFINE-COMPILER-MACRO VAR-DECLARATION ...) ; x-compiling (DEFUN VAR-SPECIAL-P ...) ; x-compiling (DEFUN VAR-GLOBALLY-SPECIAL-P ...) ; x-compiling (DEFMACRO GET-WALKER-TEMPLATE-INTERNAL ...) ; x-compiling (DEFMACRO DEFINE-WALKER-TEMPLATE ...) ; x-compiling (DEFUN GET-WALKER-TEMPLATE ...) ; x-compiling (DEFINE-WALKER-TEMPLATE BLOCK ...) ; x-compiling (DEFINE-WALKER-TEMPLATE CATCH ...) ; x-compiling (DEFINE-WALKER-TEMPLATE DECLARE ...) ; x-compiling (DEFINE-WALKER-TEMPLATE EVAL-WHEN ...) ; x-compiling (DEFINE-WALKER-TEMPLATE FLET ...) ; x-compiling (DEFINE-WALKER-TEMPLATE FUNCTION ...) ; x-compiling (DEFINE-WALKER-TEMPLATE GO ...) ; x-compiling (DEFINE-WALKER-TEMPLATE IF ...) ; x-compiling (DEFINE-WALKER-TEMPLATE LABELS ...) ; x-compiling (DEFINE-WALKER-TEMPLATE LAMBDA ...) ; x-compiling (DEFINE-WALKER-TEMPLATE LET ...) ; x-compiling (DEFINE-WALKER-TEMPLATE LET* ...) ; x-compiling (DEFINE-WALKER-TEMPLATE LOCALLY ...) ; x-compiling (DEFINE-WALKER-TEMPLATE MACROLET ...) ; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-CALL ...) ; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-PROG1 ...) ; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-SETQ ...) ; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-BIND ...) ; x-compiling (DEFINE-WALKER-TEMPLATE PROGN ...) ; x-compiling (DEFINE-WALKER-TEMPLATE PROGV ...) ; x-compiling (DEFINE-WALKER-TEMPLATE QUOTE ...) ; x-compiling (DEFINE-WALKER-TEMPLATE RETURN-FROM ...) ; x-compiling (DEFINE-WALKER-TEMPLATE SETQ ...) ; x-compiling (DEFINE-WALKER-TEMPLATE SYMBOL-MACROLET ...) ; x-compiling (DEFINE-WALKER-TEMPLATE TAGBODY ...) ; x-compiling (DEFINE-WALKER-TEMPLATE THE ...) ; x-compiling (DEFINE-WALKER-TEMPLATE THROW ...) ; x-compiling (DEFINE-WALKER-TEMPLATE UNWIND-PROTECT ...) ; x-compiling (DEFINE-WALKER-TEMPLATE TRULY-THE ...) ; x-compiling (DEFINE-WALKER-TEMPLATE NAMED-LAMBDA ...) ; x-compiling (DEFVAR *WALK-FORM-EXPAND-MACROS-P* ...) ; x-compiling (DEFUN WALK-FORM ...) ; x-compiling (DEFUN WALK-FORM-INTERNAL ...) ; x-compiling (DEFUN WALK-TEMPLATE ...) ; x-compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT ...) ; x-compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT-1 ...) ; x-compiling (DEFUN WALK-REPEAT-EVAL ...) ; x-compiling (DEFUN RECONS ...) ; x-compiling (DEFUN RELIST ...) ; x-compiling (DEFUN RELIST* ...) ; x-compiling (DEFUN RELIST-INTERNAL ...) ; x-compiling (DEFUN WALK-DECLARATIONS ...) ; x-compiling (DEFUN WALK-UNEXPECTED-DECLARE ...) ; x-compiling (DEFUN WALK-ARGLIST ...) ; x-compiling (DEFUN WALK-LET ...) ; x-compiling (DEFUN WALK-LET* ...) ; x-compiling (DEFUN WALK-LET/LET* ...) ; x-compiling (DEFUN WALK-LOCALLY ...) ; x-compiling (DEFUN WALK-MULTIPLE-VALUE-SETQ ...) ; x-compiling (DEFUN WALK-MULTIPLE-VALUE-BIND ...) ; x-compiling (DEFUN WALK-BINDINGS-1 ...) ; x-compiling (DEFUN WALK-BINDINGS-2 ...) ; x-compiling (DEFUN WALK-LAMBDA ...) ; x-compiling (DEFUN WALK-NAMED-LAMBDA ...) ; x-compiling (DEFUN WALK-SETQ ...) ; x-compiling (DEFUN WALK-SYMBOL-MACROLET ...) ; x-compiling (DEFUN WALK-TAGBODY ...) ; x-compiling (DEFUN WALK-TAGBODY-1 ...) ; x-compiling (DEFUN WALK-MACROLET ...) ; x-compiling (DEFUN WALK-FLET ...) ; x-compiling (DEFUN WALK-LABELS ...) ; x-compiling (DEFUN WALK-IF ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/from-xc/src/pcl/walk.lisp-obj-tmp written ; compilation finished in 0:00:00.301 T * NIL * (#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.1.0.0-bb0248a, an implementation of ANSI Common Lisp. More information about SBCL is available at . SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * 5 * ; in: LAMBDA (FEATURES) ; (FLET ((SB-COLD::ENABLE (SB-COLD::X) ; (PUSHNEW SB-COLD::X SB-COLD::FEATURES)) ; (SB-COLD::DISABLE (SB-COLD::X) ; (SETF SB-COLD::FEATURES #))) ; (SB-COLD::ENABLE :SB-THREAD)) ; ; note: deleting unused function ; (FLET DISABLE :IN "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/cold/shared.lisp") ; ; compilation unit finished ; printed 1 note target features *SHEBANG-FEATURES*=(:SB-THREAD :X86-64 :INODE64 :DARWIN9-OR-BETTER :UNIX :MACH-O :BSD :DARWIN :MACH-EXCEPTION-HANDLER :UD2-BREAKPOINTS :GENCGC :STACK-GROWS-DOWNWARD-NOT-UPWARD :C-STACK-IS-CONTROL-STACK :LINKAGE-TABLE :COMPARE-AND-SWAP-VOPS :UNWIND-TO-FRAME-AND-CALL-VOP :RAW-INSTANCE-INIT-VOPS :STACK-ALLOCATABLE-CLOSURES :STACK-ALLOCATABLE-VECTORS :STACK-ALLOCATABLE-LISTS :STACK-ALLOCATABLE-FIXED-OBJECTS :ALIEN-CALLBACKS :CYCLE-COUNTER :COMPLEX-FLOAT-VOPS :FLOAT-EQL-VOPS :INLINE-CONSTANTS :MEMORY-BARRIER-VOPS :MULTIPLY-HIGH-VOPS :SB-SIMD-PACK :ASH-RIGHT-VOPS :SYMBOL-INFO-VOPS :LITTLE-ENDIAN :OS-PROVIDES-DLOPEN :OS-PROVIDES-DLADDR :OS-PROVIDES-PUTWC :OS-PROVIDES-BLKSIZE-T :OS-PROVIDES-SUSECONDS-T :ANSI-CL :COMMON-LISP :SBCL :SB-DOC :SB-TEST :SB-LDB :SB-PACKAGE-LOCKS :SB-UNICODE :SB-EVAL :SB-SOURCE-LOCATIONS :PACKAGE-LOCAL-NICKNAMES :IEEE-FLOATING-POINT) target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL T * # * "obj/from-xc/" * T * T * ; in: LAMBDA (SB-KERNEL::NEW-VALUE SB-KERNEL:INSTANCE) ; (THE SB!SYS:SAP-INT #:NEW-VALUE655) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; compilation unit finished ; Undefined type: ; SAP-INT ; caught 1 STYLE-WARNING condition ; (THE SB!C::CLAMBDA #:NEW-VALUE693) ; ; caught STYLE-WARNING: ; undefined type: CLAMBDA ; ; compilation unit finished ; Undefined type: ; CLAMBDA ; caught 1 STYLE-WARNING condition ; (THE SB!C:TN #:NEW-VALUE707) ; ; caught STYLE-WARNING: ; undefined type: TN ; ; compilation unit finished ; Undefined type: ; TN ; caught 1 STYLE-WARNING condition ; in: SB-XC:DEFMACRO DEFTYPE ; (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~% ~S" ; SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; ; compilation unit finished ; Undefined function: ; BAD-TYPE ; caught 1 STYLE-WARNING condition STYLE-WARNING: redefining SB!THREAD:BARRIER in DEFMACRO STYLE-WARNING: redefining SB!THREAD:MAKE-MUTEX in DEFUN * *TARGET-OBJECT-FILE-NAMES* * 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/x86-64/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/early-raw-slots.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/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/compiler/info-vector.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/compiler/generic/vm-array.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-64-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/generic/objdef.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/x86-64/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/x86-64/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/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/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/late-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/code/barrier.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/unix-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/code/debug-info.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/bitops-derive-type.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/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/x86-64/insts.lisp-obj obj/from-xc/src/compiler/x86-64/macros.lisp-obj obj/from-xc/src/compiler/generic/early-type-vops.lisp-obj obj/from-xc/src/assembly/x86-64/support.lisp-obj obj/from-xc/src/compiler/x86-64/move.lisp-obj obj/from-xc/src/compiler/x86-64/float.lisp-obj obj/from-xc/src/compiler/x86-64/simd-pack.lisp-obj obj/from-xc/src/compiler/x86-64/sap.lisp-obj obj/from-xc/src/compiler/x86-64/system.lisp-obj obj/from-xc/src/compiler/x86-64/char.lisp-obj obj/from-xc/src/compiler/x86-64/memory.lisp-obj obj/from-xc/src/compiler/x86-64/static-fn.lisp-obj obj/from-xc/src/compiler/x86-64/arith.lisp-obj obj/from-xc/src/compiler/x86-64/type-vops.lisp-obj obj/from-xc/src/compiler/x86-64/subprim.lisp-obj obj/from-xc/src/compiler/x86-64/debug.lisp-obj obj/from-xc/src/compiler/early-aliencomp.lisp-obj obj/from-xc/src/compiler/x86-64/c-call.lisp-obj obj/from-xc/src/compiler/x86-64/cell.lisp-obj obj/from-xc/src/compiler/x86-64/values.lisp-obj obj/from-xc/src/compiler/x86-64/alloc.lisp-obj obj/from-xc/src/compiler/x86-64/call.lisp-obj obj/from-xc/src/compiler/x86-64/nlx.lisp-obj obj/from-xc/src/compiler/generic/late-nlx.lisp-obj obj/from-xc/src/compiler/x86-64/show.lisp-obj obj/from-xc/src/compiler/x86-64/array.lisp-obj obj/from-xc/src/compiler/generic/type-error.lisp-obj obj/from-xc/src/compiler/x86-64/pred.lisp-obj obj/from-xc/src/compiler/generic/late-type-vops.lisp-obj obj/from-xc/src/assembly/x86-64/assem-rtns.lisp-obj obj/from-xc/src/assembly/x86-64/array.lisp-obj obj/from-xc/src/assembly/x86-64/arith.lisp-obj obj/from-xc/src/assembly/x86-64/alloc.lisp-obj obj/from-xc/src/assembly/x86-64/assem-rtns.assem-obj obj/from-xc/src/assembly/x86-64/array.assem-obj obj/from-xc/src/assembly/x86-64/arith.assem-obj obj/from-xc/src/assembly/x86-64/alloc.assem-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/ir2opt.lisp-obj obj/from-xc/src/compiler/pack.lisp-obj obj/from-xc/src/compiler/pack-iterative.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/bignum-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/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/x86-64/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-basic.lisp-obj obj/from-xc/src/code/external-formats/enc-ebcdic.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/enc-mac.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/enc-ucs.lisp-obj obj/from-xc/src/code/external-formats/enc-utf.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-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/cas.lisp-obj obj/from-xc/src/code/late-cas.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 32768 bytes [1 page] from # writing 32768 bytes [1 page] from # writing 52428800 bytes [1600 pages] from # /(DESCRIPTOR-BITS INITIAL-FUN)=#X1003035A3B done] * //testing for consistency of first and second GENESIS passes //header files match between first and second GENESIS -- good real 4m55.921s user 2m52.050s sys 0m7.314s //entering make-target-2.sh //doing warm init - compilation phase This is SBCL 1.2.1, an implementation of ANSI Common Lisp. More information about SBCL is available at . SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/early-low.lisp" (written 28 JUN 2014 03:46:26 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.103 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/macros.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (/SHOW "starting pcl/macros.lisp") ; compiling (DECLAIM (DECLARATION %CLASS ...)) ; compiling (/SHOW "done with DECLAIM DECLARATION") ; compiling (DEFUN GET-DECLARATION ...) ; compiling (/SHOW "pcl/macros.lisp 85") ; 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 (DECLAIM (FTYPE FUNCTION ...)) ; compiling (DEFUN FIND-CLASS-FROM-CELL ...) ; compiling (DEFUN FIND-CLASS ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFGLOBAL **BOOT-STATE** ...) ; compiling (/SHOW "pcl/macros.lisp 187") ; compiling (DEFINE-COMPILER-MACRO FIND-CLASS ...) ; compiling (DECLAIM (FTYPE FUNCTION ...)) ; compiling (DECLAIM (INLINE CLASS-CLASSOID)) ; compiling (DEFUN CLASS-CLASSOID ...) ; compiling (DECLAIM (FTYPE FUNCTION ...)) ; 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") ; SYS:SRC;PCL;MACROS.FASL.NEWEST written ; compilation finished in 0:00:00.048 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/compiler-support.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-C") ; compiling (DEFKNOWN SB-PCL::PCL-INSTANCE-P ...) ; compiling (DEFTRANSFORM SB-PCL::PCL-INSTANCE-P ...) ; compiling (DEFUN SB-PCL::SAFE-CODE-P ...) ; compiling (DECLAIM (FTYPE FUNCTION ...)) ; 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 (DECLAIM (FTYPE FUNCTION ...)) ; compiling (DEFINE-INTERNAL-PCL-FUNCTION-NAME-SYNTAX SB-PCL::CTOR ...) ; SYS:SRC;PCL;COMPILER-SUPPORT.FASL.NEWEST written ; compilation finished in 0:00:00.022 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/low.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFVAR *OPTIMIZE-SPEED* ...) ; compiling (DEFMACRO DOTIMES-FIXNUM ...) ; compiling (DECLAIM (INLINE RANDOM-FIXNUM)) ; compiling (DEFUN RANDOM-FIXNUM ...) ; compiling (DEFMACRO RANDOMLY-PUNTING-LAMBDA ...) ; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS STANDARD-FUNCALLABLE-INSTANCE ...) ; compiling (IMPORT (QUOTE FUNCALLABLE-INSTANCE-P)) ; compiling (DEFUN SET-FUNCALLABLE-INSTANCE-FUNCTION ...) ; compiling (DEFUN FSC-INSTANCE-P ...) ; compiling (DEFINE-COMPILER-MACRO 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 (DEFUN STD-INSTANCE-P ...) ; compiling (DEFINE-COMPILER-MACRO STD-INSTANCE-P ...) ; compiling (DEFCONSTANT +SLOT-UNBOUND+ ...) ; compiling (DEFMACRO %ALLOCATE-STATIC-SLOT-STORAGE--CLASS ...) ; compiling (DEFMACRO STD-INSTANCE-CLASS ...) ; compiling (DECLAIM (FTYPE FUNCTION ...)) ; 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 (DEFVAR *INSTANCE-HASH-CODE-RANDOM-STATE* ...) ; compiling (DEFUN GET-INSTANCE-HASH-CODE ...) ; compiling (DEFUN SB-IMPL::SXHASH-INSTANCE ...) ; compiling (DEFUN STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST ...) ; compiling (DEFUN UNINITIALIZED-ACCESSOR-FUNCTION ...) ; 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 ...) ; SYS:SRC;PCL;LOW.FASL.NEWEST written ; compilation finished in 0:00:00.130 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/slot-name.lisp" (written 28 JUN 2014 03:46:26 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.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/defclass.lisp" (written 28 JUN 2014 03:46:26 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-SLOT-DEFINITION-INFO ...) ; 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 ...) ; SYS:SRC;PCL;DEFCLASS.FASL.NEWEST written ; compilation finished in 0:00:00.125 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/defs.lisp" (written 28 JUN 2014 03:46:26 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 (DEFVAR *IN-*SUBTYPEP* ...) ; 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 SEQUENCE ...) ; 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 (DEFSTRUCT (SLOT-INFO #) ...) ; 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 (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 SYSTEM-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* ...) ; SYS:SRC;PCL;DEFS.FASL.NEWEST written ; compilation finished in 0:00:00.088 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/fngen.lisp" (written 28 JUN 2014 03:46:26 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.054 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/wrapper.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFMACRO WRAPPER-CLASS ...) ; compiling (DEFMACRO WRAPPER-NO-OF-INSTANCE-SLOTS ...) ; compiling (DECLAIM (INLINE MAKE-WRAPPER-INTERNAL)) ; compiling (DEFUN MAKE-WRAPPER-INTERNAL ...) ; 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 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/wrapper.lisp ; in: DEFUN CHECK-WRAPPER-VALIDITY ; (SB-INT:BUG "Invalid LAYOUT-INVALID: ~S" SB-PCL::STATE) ; ; note: #S(CODE-DELETION-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS ; NIL) ; :ASSIGNED-SLOTS NIL) ; ==> ; "Invalid LAYOUT-INVALID: ~S" ; ; note: #S(CODE-DELETION-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS ; NIL) ; :ASSIGNED-SLOTS NIL) ; 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 ...) ; SYS:SRC;PCL;WRAPPER.FASL.NEWEST written ; compilation finished in 0:00:00.055 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/cache.lisp" (written 28 JUN 2014 03:46:26 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 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/cache.lisp ; in: DEFUN COMPUTE-CACHE-INDEX ; (SB-INT:MIXF SB-INT:INDEX ; (SB-PCL::HASH-LAYOUT-OR SB-KERNEL:LAYOUT ; (RETURN-FROM SB-PCL::COMPUTE-CACHE-INDEX ; NIL))) ; --> LET* SB-INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB-IMPL::X SB-IMPL::MUL) ; ; note: #S(SIMPLE-COMPILER-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL ~@ ; FORMAT-ARGUMENTS ; (recode as leas, shifts and adds ; (The result is a ~S, not a ~S. (# #)))) ; :ASSIGNED-SLOTS NIL) ; ; note: #S(SIMPLE-COMPILER-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL ~@ ; FORMAT-ARGUMENTS (recode as leas, shifts and adds NIL)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN EMIT-CACHE-LOOKUP ...) ; compiling (DEFUN PROBE-CACHE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/cache.lisp ; in: DEFUN PROBE-CACHE ; (SB-PCL::COMPUTE-CACHE-INDEX SB-PCL::CACHE SB-PCL::LAYOUTS) ; --> BLOCK LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY ; --> SB-INT:MIXF LET* SB-INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB-IMPL::X SB-IMPL::MUL) ; ; note: #S(SIMPLE-COMPILER-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL ~@ ; FORMAT-ARGUMENTS ; (recode as leas, shifts and adds ; (The result is a ~S, not a ~S. (# #)))) ; :ASSIGNED-SLOTS NIL) ; ; note: #S(SIMPLE-COMPILER-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL ~@ ; FORMAT-ARGUMENTS (recode as leas, shifts and adds NIL)) ; :ASSIGNED-SLOTS NIL) ; (CONSP SB-PCL::LAYOUTS) ; ; note: #S(SIMPLE-COMPILER-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL ~@ ; FORMAT-ARGUMENTS ; (optimize (The ~:R argument is a ~S, not a ~S. (1 T #)))) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN TRY-UPDATE-CACHE-LINE ...) ; compiling (DEFUN TRY-UPDATE-CACHE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/cache.lisp ; in: DEFUN TRY-UPDATE-CACHE ; (SB-PCL::COMPUTE-CACHE-INDEX SB-PCL::CACHE SB-PCL::LAYOUTS) ; --> BLOCK LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY ; --> SB-INT:MIXF LET* SB-INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB-IMPL::X SB-IMPL::MUL) ; ; note: #S(SIMPLE-COMPILER-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL ~@ ; FORMAT-ARGUMENTS ; (recode as leas, shifts and adds ; (The result is a ~S, not a ~S. (# #)))) ; :ASSIGNED-SLOTS NIL) ; ; note: #S(SIMPLE-COMPILER-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL ~@ ; FORMAT-ARGUMENTS (recode as leas, shifts and adds NIL)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN MAKE-CACHE ...) ; 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 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/cache.lisp ; in: DEFUN COPY-CACHE ; (SB-PCL::COMPUTE-CACHE-INDEX SB-PCL::CACHE SB-PCL::LAYOUTS) ; --> BLOCK LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY ; --> SB-INT:MIXF LET* SB-INT:MIX BLOCK LET* LOGAND + ; ==> ; (* SB-IMPL::X SB-IMPL::MUL) ; ; note: #S(SIMPLE-COMPILER-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL ~@ ; FORMAT-ARGUMENTS ; (recode as leas, shifts and adds ; (The result is a ~S, not a ~S. (# #)))) ; :ASSIGNED-SLOTS NIL) ; ; note: #S(SIMPLE-COMPILER-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL ~@ ; FORMAT-ARGUMENTS (recode as leas, shifts and adds NIL)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN MAP-ALL-CACHES ...) ; compiling (DEFUN CHECK-CACHE-CONSISTENCY ...) ; SYS:SRC;PCL;CACHE.FASL.NEWEST written ; compilation finished in 0:00:00.249 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/dlisp.lisp" (written 28 JUN 2014 03:46:26 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.059 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/boot.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DECLAIM (NOTINLINE MAKE-A-METHOD ...)) ; compiling (DEFVAR *!EARLY-FUNCTIONS* ...) ; compiling (DOLIST (FNS *!EARLY-FUNCTIONS*) ...) ; compiling (DEFVAR *!GENERIC-FUNCTION-FIXUPS* ...) ; compiling (DEFMACRO DEFGENERIC ...) ; compiling (DEFUN COMPILE-OR-LOAD-DEFGENERIC ...) ; compiling (DEFUN LOAD-DEFGENERIC ...) ; compiling (DEFINE-CONDITION GENERIC-FUNCTION-LAMBDA-LIST-ERROR ...) ; compiling (DEFUN CHECK-GF-LAMBDA-LIST ...) ; compiling (DEFMACRO DEFMETHOD ...) ; compiling (DEFMACRO %DEFMETHOD-EXPANDER ...) ; compiling (DEFUN PROTOTYPES-FOR-MAKE-METHOD-LAMBDA ...) ; compiling (DEFUN METHOD-PROTOTYPE-FOR-GF ...) ; compiling (DEFVAR *METHOD-NAME* ...) ; compiling (DEFVAR *METHOD-LAMBDA-LIST* ...) ; compiling (DEFUN EXPAND-DEFMETHOD ...) ; compiling (DEFUN INTERNED-SYMBOL-P ...) ; compiling (DEFUN MAKE-DEFMETHOD-FORM ...) ; compiling (DEFUN MAKE-DEFMETHOD-FORM-INTERNAL ...) ; compiling (DEFMACRO MAKE-METHOD-FUNCTION ...) ; compiling (DEFUN REAL-MAKE-METHOD-INITARGS-FORM ...) ; compiling (UNLESS (FBOUNDP #) ...) ; compiling (DEFUN REAL-MAKE-METHOD-LAMBDA ...) ; compiling (UNLESS (FBOUNDP #) ...) ; compiling (DEFUN DECLARED-SPECIALS ...) ; 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 (DEFUN CALL-NO-APPLICABLE-METHOD ...) ; compiling (DEFUN CALL-NO-PRIMARY-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 ...) ; 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) ...) ; 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 (DEFVAR *!EARLY-GENERIC-FUNCTIONS* ...) ; compiling (DEFUN ENSURE-GENERIC-FUNCTION ...) ; compiling (DEFUN GENERIC-CLOBBERS-FUNCTION ...) ; compiling (DEFVAR *SGF-WRAPPER* ...) ; compiling (DEFVAR *SGF-SLOTS-INIT* ...) ; compiling (DEFCONSTANT +SGF-METHOD-CLASS-INDEX+ ...) ; compiling (DEFUN EARLY-GF-P ...) ; compiling (DEFCONSTANT +SGF-METHODS-INDEX+ ...) ; compiling (DEFMACRO EARLY-GF-METHODS ...) ; compiling (DEFUN SAFE-GENERIC-FUNCTION-METHODS ...) ; compiling (DEFCONSTANT +SGF-ARG-INFO-INDEX+ ...) ; compiling (DEFMACRO EARLY-GF-ARG-INFO ...) ; compiling (DEFCONSTANT +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 (DEFCONSTANT +SM-SPECIALIZERS-INDEX+ ...) ; compiling (DEFCONSTANT +SM-%FUNCTION-INDEX+ ...) ; compiling (DEFCONSTANT +SM-QUALIFIERS-INDEX+ ...) ; compiling (DOLIST (S #) ...) ; compiling (DEFVAR *STANDARD-METHOD-CLASS-NAMES* ...) ; compiling (DECLAIM (LIST **STANDARD-METHOD-CLASSES**)) ; compiling (DEFGLOBAL **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 (DEFCONSTANT +SGF-NAME-INDEX+ ...) ; compiling (DEFUN !EARLY-GF-NAME ...) ; compiling (DEFUN GF-LAMBDA-LIST ...) ; compiling (DEFMACRO REAL-ENSURE-GF-INTERNAL ...) ; compiling (DEFUN NOTE-GF-SIGNATURE ...) ; 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 GENERIC-FUNCTION-NREQ ...) ; 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 ...) ; compiling (DEFMACRO WITH-SLOTS ...) ; compiling (DEFMACRO WITH-ACCESSORS ...) ; SYS:SRC;PCL;BOOT.FASL.NEWEST written ; compilation finished in 0:00:00.732 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/vector.lisp" (written 28 JUN 2014 03:46:26 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 USE-STANDARD-SLOT-ACCESS-P ...) ; compiling (DEFUN SLOT-MISSING-INFO ...) ; compiling (DEFUN COMPUTE-PV ...) ; compiling (DEFUN PV-TABLE-LOOKUP ...) ; compiling (DEFUN MAKE-PV-TYPE-DECLARATION ...) ; compiling (DEFUN TRY-FINALIZE-INHERITANCE ...) ; 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 CONSTANT-VALUE-OR-NIL ...) ; compiling (DEFUN SLOT-ACCESS-STRATEGY ...) ; compiling (DEFMACRO INSTANCE-READ ...) ; compiling (DEFMACRO INSTANCE-READ-STANDARD ...) ; compiling (DEFMACRO INSTANCE-READ-CUSTOM ...) ; compiling (DEFMACRO INSTANCE-WRITE ...) ; compiling (DEFMACRO INSTANCE-WRITE-STANDARD ...) ; compiling (DEFMACRO INSTANCE-WRITE-CUSTOM ...) ; compiling (DEFMACRO INSTANCE-BOUNDP ...) ; compiling (DEFMACRO INSTANCE-BOUNDP-STANDARD ...) ; compiling (DEFMACRO INSTANCE-BOUNDP-CUSTOM ...) ; 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 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 ...) ; compiling (DEFUN METHOD-FUNCTION-FROM-FAST-METHOD-CALL ...) ; 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 ...) ; SYS:SRC;PCL;VECTOR.FASL.NEWEST written ; compilation finished in 0:00:00.401 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/slots-boot.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (LET (# #) ...) ; compiling (DEFMACRO QUIET-FUNCALL ...) ; 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 ...) ; compiling (DEFUN MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION ...) ; 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 MAYBE-CLASS ...) ; compiling (DEFUN MAKE-STD-READER-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-STD-WRITER-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-STD-BOUNDP-METHOD-FUNCTION ...) ; compiling (DEFUN FIND-SLOT-DEFINITION ...) ; compiling (DEFUN FIND-SLOT-CELL ...) ; compiling (DEFUN MAKE-SLOT-TABLE ...) ; SYS:SRC;PCL;SLOTS-BOOT.FASL.NEWEST written ; compilation finished in 0:00:00.265 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/combin.lisp" (written 28 JUN 2014 03:46:26 PM): ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 (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 ...) ; SYS:SRC;PCL;COMBIN.FASL.NEWEST written ; compilation finished in 0:00:00.077 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/dfun.lisp" (written 28 JUN 2014 03:46:26 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-SLOT-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/DSLOTD ...) ; compiling (DEFUN STANDARD-SLOT-VALUE/CLASS ...) ; compiling (DEFSTRUCT (DFUN-INFO # ...) ...) ; compiling (DEFSTRUCT (NO-METHODS # ...)) ; compiling (DEFSTRUCT (INITIAL # ...)) ; 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-SYSTEM-TYPEP-COST* ...) ; compiling (DEFPARAMETER *STRUCTURE-TYPEP-COST* ...) ; compiling (DEFPARAMETER *SYSTEM-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 ...) ; compiling (DEFUN MAKE-DISPATCH-DFUN ...) ; compiling (DEFUN GET-DISPATCH-FUNCTION ...) ; 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 (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 ...) ; 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 ...) ; compiling (DEFUN GET-SECONDARY-DISPATCH-FUNCTION1 ...) ; compiling (DEFUN GET-SECONDARY-DISPATCH-FUNCTION2 ...) ; compiling (DEFUN GET-EFFECTIVE-METHOD-FUNCTION ...) ; compiling (DEFUN GET-EFFECTIVE-METHOD-FUNCTION1 ...) ; compiling (DEFUN METHODS-CONTAIN-EQL-SPECIALIZER-P ...) ; compiling (DEFUN UPDATE-DFUN ...) ; compiling (DEFVAR *DFUN-COUNT* ...) ; compiling (DEFVAR *DFUN-LIST* ...) ; compiling (DEFVAR *MINIMUM-CACHE-SIZE-TO-LIST*) ; compiling (DEFUN GFS-OF-TYPE ...) ; SYS:SRC;PCL;DFUN.FASL.NEWEST written ; compilation finished in 0:00:00.423 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/ctor.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFUN QUOTE-PLIST-KEYS ...) ; compiling (DEFUN PLIST-KEYS ...) ; compiling (DEFUN PLIST-VALUES ...) ; compiling (DEFUN CONSTANT-CLASS-ARG-P ...) ; compiling (DEFUN CONSTANT-SYMBOL-P ...) ; compiling (DEFUN CTOR-DEFAULT-INITKEYS ...) ; compiling (DEFUN CTOR-DEFAULT-INITARGS ...) ; 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 (DEFUN FIND-CTOR ...) ; compiling (DECLAIM (INLINE SXHASH-SYMBOL-OR-CLASS)) ; compiling (DEFUN SXHASH-SYMBOL-OR-CLASS ...) ; compiling (DEFCONSTANT +CTOR-LIST-MAX-SIZE+ ...) ; compiling (DEFCONSTANT +CTOR-TABLE-MAX-SIZE+ ...) ; compiling (DEFCONSTANT +CTOR-TABLE-MAX-PROBE-DEPTH+ ...) ; compiling (DEFUN MAKE-CTOR-TABLE ...) ; compiling (DECLAIM (INLINE MIX-CTOR-HASH)) ; compiling (DEFUN MIX-CTOR-HASH ...) ; compiling (DEFUN PUT-CTOR ...) ; compiling (DEFUN TRY-PUT-CTOR ...) ; compiling (DEFUN GET-CTOR ...) ; compiling (DEFUN EXPAND-CTOR-TABLE ...) ; compiling (DEFUN CTOR-LIST-TO-TABLE ...) ; compiling (DEFUN ENSURE-CACHED-CTOR ...) ; compiling (DEFVAR *COMPILING-OPTIMIZED-CONSTRUCTOR* ...) ; 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 HAIRY-AROUND-OR-NONSTANDARD-PRIMARY-METHOD-P ...) ; compiling (DEFUN FALLBACK-GENERATOR ...) ; compiling (DEFUN FAST-MAKE-INSTANCE ...) ; 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 MAYBE-CALL-CTOR ...) ; compiling (DEFUN CHECK-MI-INITARGS ...) ; compiling (DEFUN CHECK-RI-INITARGS ...) ; SYS:SRC;PCL;CTOR.FASL.NEWEST written ; compilation finished in 0:00:00.313 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/braid.lisp" (written 28 JUN 2014 03:46:26 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 CLASSIFY-SLOTDS ...) ; compiling (DEFMACRO !INITIAL-CLASSES-AND-WRAPPERS ...) ; compiling (DEFUN !WRAPPER-P ...) ; 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 (DEFUN CLASS-OF ...) ; compiling (DEFUN EVAL-FORM ...) ; compiling (DEFUN ENSURE-NON-STANDARD-CLASS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/braid.lisp ; in: DEFUN ENSURE-NON-STANDARD-CLASS ; (SB-MOP:ENSURE-CLASS-USING-CLASS SB-PCL::EXISTING-CLASS SB-PCL::NAME ; :METACLASS SB-PCL::METACLASS :NAME SB-PCL::NAME :DIRECT-SUPERCLASSES ; SB-PCL::SUPERS) ; ==> ; SB-PCL::EXISTING-CLASS ; ; note: #S(CODE-DELETION-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS ; NIL) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN ENSURE-DEFFOO-CLASS ...) ; compiling (PUSHNEW (QUOTE ENSURE-DEFFOO-CLASS) ...) ; compiling (PUSHNEW (QUOTE ENSURE-DEFFOO-CLASS) ...) ; compiling (DEFUN MAKE-CLASS-PREDICATE ...) ; compiling (DEFUN %UPDATE-LISP-CLASS-LAYOUT ...) ; 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 (LOOP FOR ...) ; 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 ...) ; SYS:SRC;PCL;BRAID.FASL.NEWEST written ; compilation finished in 0:00:00.348 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/dlisp3.lisp" (written 28 JUN 2014 03:46:26 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.005 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/generic-functions.lisp" (written 28 JUN 2014 03:46:26 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-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-INFO ...) ; compiling (DEFGENERIC SLOT-DEFINITION-READERS ...) ; compiling (DEFGENERIC SLOT-DEFINITION-TYPE ...) ; 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-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-INFO) ...) ; 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 VALIDATE-SUPERCLASS ...) ; compiling (DEFGENERIC INVALID-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 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:01.097 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/slots.lisp" (written 28 JUN 2014 03:46:26 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 %SWAP-WRAPPERS-AND-SLOTS ...) ; compiling (DECLAIM (INLINE STANDARD-INSTANCE-ACCESS ...)) ; compiling (DEFUN STANDARD-INSTANCE-ACCESS ...) ; compiling (DEFUN (SETF STANDARD-INSTANCE-ACCESS) ...) ; compiling (DEFUN (CAS STANDARD-INSTANCE-ACCESS) ...) ; compiling (DEFUN FUNCALLABLE-STANDARD-INSTANCE-ACCESS ...) ; compiling (DEFUN (SETF FUNCALLABLE-STANDARD-INSTANCE-ACCESS) ...) ; compiling (DEFUN (CAS 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 (CAS 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 (DEF ALLOCATE-INSTANCE ...) ; compiling (DEFMETHOD CLASS-SLOTS ...) ; SYS:SRC;PCL;SLOTS.FASL.NEWEST written ; compilation finished in 0:00:00.191 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/init.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFMETHOD MAKE-INSTANCE ...) ; compiling (DEFMETHOD MAKE-INSTANCE ...) ; compiling (DEFUN DEFAULT-INITARGS ...) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...) ; compiling (DEFGLOBAL **TYPECHECK-CACHE** ...) ; compiling (DEFVAR *TYPECHECK-STACK* ...) ; compiling (DEFUN GENERATE-SLOTD-TYPECHECK ...) ; compiling (DEFINE-CONDITION SLOTD-INITIALIZATION-ERROR ...) ; compiling (DEFINE-CONDITION SLOTD-INITIALIZATION-TYPE-ERROR ...) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; compiling (DEFMETHOD (SETF SLOT-DEFINITION-TYPE) ...) ; 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.119 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/std-class.lisp" (written 28 JUN 2014 03:46:26 PM): ; 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 ...) ; compiling (DEFMETHOD FINALIZE-INTERNAL-SLOT-FUNCTIONS ...) ; compiling (DEFMETHOD COMPUTE-SLOT-ACCESSOR-INFO ...) ; compiling (DEFMETHOD SLOT-DEFINITION-ALLOCATION ...) ; compiling (DEFMETHOD CLASS-PROTOTYPE ...) ; compiling (DEF STD-CLASS) ; compiling (DEF CONDITION-CLASS) ; compiling (DEF STRUCTURE-CLASS) ; compiling (DEFMETHOD CLASS-DIRECT-DEFAULT-INITARGS ...) ; compiling (DEFMETHOD CLASS-DEFAULT-INITARGS ...) ; compiling (DEFMETHOD CLASS-SLOT-CELLS ...) ; compiling (DEFMETHOD (SETF CLASS-SLOT-CELLS) ...) ; compiling (DEFMETHOD ADD-DIRECT-SUBCLASS ...) ; compiling (DEFMETHOD REMOVE-DIRECT-SUBCLASS ...) ; compiling (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 (DEFUN CALL-INITFUN ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFINE-CONDITION INVALID-SUPERCLASS ...) ; compiling (DEFMETHOD INVALID-SUPERCLASS ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFVAR *ALLOW-FORWARD-REFERENCED-CLASSES-IN-CPL-P* ...) ; compiling (DEFUN MAKE-PRELIMINARY-LAYOUT ...) ; 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 CLASS-HAS-A-CPL-PROTOCOL-VIOLATION-P ...) ; compiling (DEFUN %UPDATE-CPL ...) ; compiling (DEFUN UPDATE-CLASS-CAN-PRECEDE-P ...) ; compiling (DEFUN CLASS-CAN-PRECEDE-P ...) ; compiling (DEFUN SLOT-LAYOUTS-COMPATIBLE-P ...) ; compiling (DEFUN STYLE-WARN-ABOUT-DUPLICATE-SLOTS ...) ; compiling (DEFUN %UPDATE-SLOTS ...) ; compiling (DEFUN UPDATE-GF-DFUN ...) ; compiling (DEFUN UPDATE-GFS-OF-CLASS ...) ; 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 (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 ...) ; 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 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 ...) ; SYS:SRC;PCL;STD-CLASS.FASL.NEWEST written ; compilation finished in 0:00:00.684 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/cpl.lisp" (written 28 JUN 2014 03:46:26 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.110 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/fsc.lisp" (written 28 JUN 2014 03:46:26 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.035 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/methods.lisp" (written 28 JUN 2014 03:46:26 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 ...) ; compiling (DEFUN CHECK-METHOD-FUNCTION ...) ; compiling (DEFUN CHECK-QUALIFIERS ...) ; compiling (DEFUN CHECK-SLOT-NAME ...) ; 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 ...) ; compiling (WITHOUT-PACKAGE-LOCKS (DEFUN SB-C::MAYBE-UPDATE-INFO-FOR-GF ...)) ; 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 ...) ; 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 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 (INITIAL-PRINT-OBJECT-CACHE) ...) ; compiling (DEFUN SB-IMPL::ENCAPSULATE-GENERIC-FUNCTION ...) ; compiling (DEFUN SB-IMPL::UNENCAPSULATE-GENERIC-FUNCTION ...) ; compiling (DEFUN SB-IMPL::ENCAPSULATED-GENERIC-FUNCTION-P ...) ; compiling (DEFUN MAYBE-ENCAPSULATE-DISCRIMINATING-FUNCTION ...) ; compiling (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ...) ; compiling (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ...) ; compiling (DEFMETHOD (SETF CLASS-NAME) ...) ; compiling (DEFMETHOD (SETF GENERIC-FUNCTION-NAME) ...) ; compiling (DEFMETHOD FUNCTION-KEYWORDS ...) ; 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 ...) ; SYS:SRC;PCL;METHODS.FASL.NEWEST written ; compilation finished in 0:00:00.456 STYLE-WARNING: #S(REDEFINITION-WITH-DEFUN :ACTUAL-INITARGS (NAME MAYBE-UPDATE-INFO-FOR-GF NEW-FUNCTION #1=# NEW-LOCATION #2=#S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING SYS:SRC;PCL;METHODS.LISP.NEWEST :TOPLEVEL-FORM-NUMBER 37 :PLIST NIL)) :ASSIGNED-SLOTS (NEW-LOCATION #2# NEW-FUNCTION #1# NAME MAYBE-UPDATE-INFO-FOR-GF)) ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/fixup.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (!FIX-EARLY-GENERIC-FUNCTIONS) ; compiling (!FIX-ENSURE-ACCESSOR-SPECIALIZERS) ; compiling (COMPUTE-STANDARD-SLOT-LOCATIONS) ; compiling (DOLIST (S #) ...) ; compiling (SETQ **BOOT-STATE** ...) ; compiling (DEFUN PRINT-STD-INSTANCE ...) ; compiling (SETF (COMPILER-MACRO-FUNCTION #) ...) ; compiling (SETF (COMPILER-MACRO-FUNCTION #) ...) ; compiling (IN-PACKAGE "SB-C") ; compiling (DEFKNOWN SLOT-VALUE ...) ; compiling (DEFKNOWN (SLOT-BOUNDP SLOT-EXISTS-P) ...) ; compiling (DEFKNOWN SB-PCL::SET-SLOT-VALUE ...) ; compiling (DEFKNOWN FIND-CLASS ...) ; compiling (DEFKNOWN CLASS-OF ...) ; compiling (DEFKNOWN CLASS-NAME ...) ; compiling (DEFTRANSFORM SLOT-VALUE ...) ; compiling (DEFTRANSFORM SB-PCL::SET-SLOT-VALUE ...) ; SYS:SRC;PCL;FIXUP.FASL.NEWEST written ; compilation finished in 0:00:00.035 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/defcombin.lisp" (written 28 JUN 2014 03:46:26 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:01.088 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/ctypes.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFINE-METHOD-COMBINATION + ...) ; compiling (DEFINE-METHOD-COMBINATION AND ...) ; compiling (DEFINE-METHOD-COMBINATION APPEND ...) ; compiling (DEFINE-METHOD-COMBINATION LIST ...) ; compiling (DEFINE-METHOD-COMBINATION MAX ...) ; compiling (DEFINE-METHOD-COMBINATION MIN ...) ; compiling (DEFINE-METHOD-COMBINATION NCONC ...) ; compiling (DEFINE-METHOD-COMBINATION OR ...) ; compiling (DEFINE-METHOD-COMBINATION PROGN ...) ; SYS:SRC;PCL;CTYPES.FASL.NEWEST written ; compilation finished in 0:00:00.013 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/env.lisp" (written 28 JUN 2014 03:46:26 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.062 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/documentation.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFUN FUN-DOC ...) ; compiling (DEFUN (SETF FUN-DOC) ...) ; compiling (DEFUN FUN-NAME ...) ; compiling (DEFUN REAL-FUNCTION-NAME ...) ; compiling (DEFUN IGNORE-NIL-DOC ...) ; compiling (DEFUN SET-FUNCTION-NAME-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 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.123 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/print-object.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (/SHOW0 "about to replace placeholder PRINT-OBJECT with DEFGENERIC") ; compiling (LET (#) ...) ; compiling (/SHOW0 "done replacing placeholder PRINT-OBJECT with DEFGENERIC") ; compiling (DEFUN SB-IMPL::PRINTED-AS-FUNCALLABLE-STANDARD-CLASS ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFUN NAMED-OBJECT-PRINT-FUNCTION ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; SYS:SRC;PCL;PRINT-OBJECT.FASL.NEWEST written ; compilation finished in 0:00:00.092 STYLE-WARNING: # ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/precom1.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-PCL") ; SYS:SRC;PCL;PRECOM1.FASL.NEWEST written ; compilation finished in 0:00:00.002 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/precom2.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (PRECOMPILE-RANDOM-CODE-SEGMENTS PCL) ; SYS:SRC;PCL;PRECOM2.FASL.NEWEST written ; compilation finished in 0:00:00.710 ; ; compilation unit finished ; printed 13 notes ; Done with PCL compilation ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/force-delayed-defbangmethods.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB-IMPL") ; compiling (FORCE-DELAYED-DEF!METHODS) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/force-delayed-defbangmethods.lisp ; in: ; MACROLET ((FORCE-DELAYED-DEF!METHODS NIL ; `(PROGN ; ,@(MAPCAR # *DELAYED-DEF!METHOD-ARGS*) ; (DEFMACRO DEF!METHOD # ,'`#) ; (MAKUNBOUND '*DELAYED-DEF!METHOD-ARGS*)))) ; (SB-IMPL::FORCE-DELAYED-DEF!METHODS) ; --> PROGN DEFMACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFMACRO 'SB-INT:DEF!METHOD ; #'(SB-INT:NAMED-LAMBDA (DEFMACRO SB-INT:DEF!METHOD) ; (#:.WHOLE. #:.ENVIRONMENT.) ; (DECLARE (IGNORE #:.ENVIRONMENT.)) ; (LET* () ; (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE)) ; (LET* (#) ; (BLOCK SB-INT:DEF!METHOD `#)))) ; '(&REST SB-IMPL::ARGS) NIL ; '(MACRO-FUNCTION SB-INT:DEF!METHOD) (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; # ; --> 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 IF THE ; --> SB-PCL::OPTIMIZED-SLOT-BOUNDP SB-PCL::INSTANCE-BOUNDP ; --> SB-PCL::ACCESSOR-SLOT-BOUNDP LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::DATUM BOUNDP) ; CONDITION) ; ; caught STYLE-WARNING: ; # ; --> 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 IF SB-PCL::OPTIMIZED-SLOT-BOUNDP ; --> SB-PCL::INSTANCE-BOUNDP SB-PCL::ACCESSOR-SLOT-BOUNDP LET FUNCALL ; ==> ; (SB-C::%FUNCALL ; #'(SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::EXPECTED-TYPE BOUNDP) CONDITION) ; ; caught STYLE-WARNING: ; # ; --> 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 THE SB-PCL::OPTIMIZED-SLOT-BOUNDP ; --> SB-PCL::INSTANCE-BOUNDP SB-PCL::ACCESSOR-SLOT-BOUNDP LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::NAME BOUNDP) ; CONDITION) ; ; caught STYLE-WARNING: ; # ; ; compilation unit finished ; Undefined functions: ; (SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::DATUM BOUNDP) (SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::EXPECTED-TYPE BOUNDP) (SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::NAME BOUNDP) ; caught 4 STYLE-WARNING conditions ; SYS:SRC;CODE;FORCE-DELAYED-DEFBANGMETHODS.FASL.NEWEST written ; compilation finished in 0:00:01.197 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/late-condition.lisp" (written 28 JUN 2014 03:46:25 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.091 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/gray-streams-class.lisp" (written 28 JUN 2014 03:46:26 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.020 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/gray-streams.lisp" (written 28 JUN 2014 03:46:26 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 (PCL-CLOSE (MAKE-STRING-OUTPUT-STREAM)) ; 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.168 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/pcl/sequence.lisp" (written 28 JUN 2014 03:46:26 PM): ; compiling (IN-PACKAGE "SB-IMPL") ; compiling (DEFINE-CONDITION SB-SEQUENCE::PROTOCOL-UNIMPLEMENTED ...) ; compiling (DEFUN SB-SEQUENCE::PROTOCOL-UNIMPLEMENTED ...) ; compiling (DEFGENERIC SB-SEQUENCE:EMPTYP ...) ; 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:00.582 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/describe.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB-IMPL") ; compiling (DEFUN CLASS-NAME-OR-CLASS ...) ; compiling (DEFUN FUN-NAME ...) ; compiling (DEFUN FUNCTION-LAMBDA-EXPRESSION ...) ; compiling (DEFUN PRIN1-TO-LINE ...) ; compiling (DEFUN DESCRIBE ...) ; compiling (DEFGENERIC OBJECT-SELF-STRING ...) ; compiling (DEFMETHOD OBJECT-SELF-STRING ...) ; compiling (DEFMETHOD OBJECT-SELF-STRING ...) ; compiling (DEFGENERIC OBJECT-TYPE-STRING ...) ; compiling (DEFMETHOD OBJECT-TYPE-STRING ...) ; compiling (DEFMETHOD OBJECT-TYPE-STRING ...) ; compiling (DEFMETHOD OBJECT-TYPE-STRING ...) ; compiling (DEFMETHOD OBJECT-TYPE-STRING ...) ; compiling (DEFMETHOD OBJECT-TYPE-STRING ...) ; compiling (DEFMETHOD OBJECT-TYPE-STRING ...) ; compiling (DEFMETHOD OBJECT-TYPE-STRING ...) ; compiling (DEFMETHOD OBJECT-TYPE-STRING ...) ; compiling (DEFMETHOD OBJECT-TYPE-STRING ...) ; compiling (DEFMETHOD OBJECT-TYPE-STRING ...) ; compiling (DEFMETHOD OBJECT-TYPE-STRING ...) ; compiling (DEFMETHOD OBJECT-TYPE-STRING ...) ; compiling (DEFUN PRINT-STANDARD-DESCRIBE-HEADER ...) ; compiling (DEFGENERIC DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFUN DESCRIBE-CLASS ...) ; compiling (DEFUN DESCRIBE-INSTANCE ...) ; compiling (DEFUN QUIET-DOC ...) ; compiling (DEFUN DESCRIBE-DOCUMENTATION ...) ; compiling (DEFUN DESCRIBE-STUFF ...) ; compiling (DEFUN DESCRIBE-LAMBDA-LIST ...) ; compiling (DEFUN DESCRIBE-FUNCTION-SOURCE ...) ; compiling (DEFUN DESCRIBE-FUNCTION ...) ; SYS:SRC;CODE;DESCRIBE.FASL.NEWEST written ; compilation finished in 0:00:00.539 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/describe-policy.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB-C") ; compiling (DEFUN DESCRIBE-COMPILER-POLICY ...) ; SYS:SRC;CODE;DESCRIBE-POLICY.FASL.NEWEST written ; compilation finished in 0:00:00.040 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/inspect.lisp" (written 28 JUN 2014 03:46:25 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:00.157 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/profile.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB-PROFILE") ; compiling (DECLAIM (INLINE MAKE-COUNTER)) ; compiling (DEFSTRUCT (COUNTER # ...) ...) ; compiling (DEFUN INCF-COUNTER ...) ; compiling (DEFUN COUNTER-COUNT ...) ; 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 (DECLAIM (COUNTER *ENCLOSED-TICKS* ...)) ; compiling (DEFVAR *ENCLOSED-TICKS*) ; compiling (DEFVAR *ENCLOSED-CONSING*) ; compiling (DECLAIM (COUNTER *ENCLOSED-PROFILES*)) ; compiling (DEFVAR *ENCLOSED-PROFILES*) ; compiling (DECLAIM (COUNTER *ENCLOSED-GC-RUN-TIME*)) ; compiling (DEFVAR *ENCLOSED-GC-RUN-TIME*) ; compiling (DEFVAR *COMPUTING-PROFILING-DATA-FOR*) ; compiling (DEFSTRUCT (OVERHEAD #) ...) ; compiling (DEFVAR *OVERHEAD*) ; compiling (DECLAIM (TYPE OVERHEAD ...)) ; compiling (MAKUNBOUND (QUOTE *OVERHEAD*)) ; compiling (DEFUN PROFILE-ENCAPSULATION-LAMBDAS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/profile.lisp ; in: DEFUN PROFILE-ENCAPSULATION-LAMBDAS ; (- (SB-PROFILE::GET-INTERNAL-TICKS) SB-PROFILE::START-TICKS) ; ; 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 64) arithmetic (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (EQL SB-INT:*N-BYTES-FREED-OR-PURIFIED* SB-PROFILE::NBF0) ; ; 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 64) arithmetic (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &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 64), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &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 64), not a FIXNUM. ; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -18446744073709551615 18446744073709551615) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 64). ; The second argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -18446744073709551615 18446744073709551615) ; . #1#), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (SETF SB-PROFILE::DTICKS ; (- (SB-PROFILE::GET-INTERNAL-TICKS) SB-PROFILE::START-TICKS) ; 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)) ; SB-PROFILE::INNER-ENCLOSED-PROFILES ; (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-PROFILES*) ; SB-PROFILE::DGC-RUN-TIME ; (- *GC-RUN-TIME* SB-PROFILE::START-GC-RUN-TIME)) ; --> PROGN SETF SETQ MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #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::DTICKS ; (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-TICKS*)) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND ; --> IF AND THE LOCALLY AND THE >= IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #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. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (- SB-PROFILE::DGC-RUN-TIME ; (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-GC-RUN-TIME*)) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND ; --> IF AND THE LOCALLY AND THE >= IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #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. ; ; 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 * 4611686018427387900) . #1=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER * 4611686018427387900) . #1#), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; (- SB-PROFILE::DCONSING ; (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-CONSING*)) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND ; --> IF AND THE LOCALLY AND THE >= IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #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. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (1+ SB-PROFILE::INNER-ENCLOSED-PROFILES) ; ==> ; (+ SB-PROFILE::INNER-ENCLOSED-PROFILES 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. ; (APPLY FUNCTION SB-PROFILE::ARGS) ; --> MULTIPLE-VALUE-CALL PROGN ; ==> ; (SB-C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS NIL {10049A1B43}>) ; ; note: doing unsigned word to integer coercion (cost 20) from SB-ALIEN:ALIEN ; (UNWIND-PROTECT (APPLY FUNCTION SB-PROFILE::ARGS) ; (LET ((SB-PROFILE::*COMPUTING-PROFILING-DATA-FOR* FUNCTION) ; (SB-PROFILE::DYNAMIC-USAGE-1 (SB-KERNEL:DYNAMIC-USAGE))) ; (SETF SB-PROFILE::DTICKS (- # SB-PROFILE::START-TICKS) ; SB-PROFILE::DCONSING ; (IF # ; # ; #) ; SB-PROFILE::INNER-ENCLOSED-PROFILES ; (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-PROFILES*) ; SB-PROFILE::DGC-RUN-TIME ; (- *GC-RUN-TIME* SB-PROFILE::START-GC-RUN-TIME)) ; (SB-PROFILE::INCF-COUNTER SB-PROFILE::TICKS ; (- SB-PROFILE::DTICKS ; (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-TICKS*))) ; (SB-PROFILE::INCF-COUNTER SB-PROFILE::GC-RUN-TIME ; (- SB-PROFILE::DGC-RUN-TIME ; (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-GC-RUN-TIME*))) ; (SB-PROFILE::INCF-COUNTER SB-PROFILE::CONSING ; (- SB-PROFILE::DCONSING ; (SB-PROFILE::COUNTER-COUNT SB-PROFILE::*ENCLOSED-CONSING*))) ; (SB-PROFILE::INCF-COUNTER SB-PROFILE::PROFILES ; SB-PROFILE::INNER-ENCLOSED-PROFILES))) ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (#:CLEANUP-FUN-286) ; ; 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-- ; 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 16 notes ; SYS:SRC;CODE;PROFILE.FASL.NEWEST written ; compilation finished in 0:00:00.219 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/ntrace.lisp" (written 28 JUN 2014 03:46:25 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.222 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/step.lisp" (written 28 JUN 2014 03:46:25 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.063 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/warm-lib.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB-IMPL") ; SYS:SRC;CODE;WARM-LIB.FASL.NEWEST written ; compilation finished in 0:00:00.007 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/run-program.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB-IMPL") ; compiling (DEFINE-ALIEN-ROUTINE WRAPPED-ENVIRON ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/run-program.lisp ; in: DEFINE-ALIEN-ROUTINE WRAPPED-ENVIRON ; (DEFINE-ALIEN-ROUTINE SB-IMPL::WRAPPED-ENVIRON (* C-STRING)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFUN POSIX-ENVIRON ...) ; compiling (DEFUN UNIX-ENVIRONMENT-SBCL-FROM-CMUCL ...) ; compiling (DEFINE-ALIEN-ROUTINE ("waitpid" C-WAITPID) ...) ; compiling (DEFUN WAITPID ...) ; 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-EXIT-CODE ...) ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/code/run-program.lisp ; in: DEFUN PROCESS-KILL ; (VALUES NIL SB-IMPL::ERRNO) ; ==> ; SB-IMPL::ERRNO ; ; note: deleting unreachable code ; compiling (DEFUN PROCESS-ALIVE-P ...) ; compiling (DEFUN PROCESS-CLOSE ...) ; compiling (DEFUN 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-NULL-TERMINATED-BYTES-TO-WORDS ...) ; compiling (DEFUN STRING-LIST-TO-C-STRVEC ...) ; compiling (DEFMACRO WITH-ARGS ...) ; compiling (DEFMACRO WITH-ENVIRONMENT ...) ; compiling (DEFINE-ALIEN-ROUTINE SPAWN ...) ; compiling (DEFUN PREPARE-ARGS ...) ; compiling (DEFUN RUN-PROGRAM ...) ; compiling (DEFUN COPY-DESCRIPTOR-TO-STREAM ...) ; compiling (DEFUN GET-STREAM-FD-AND-EXTERNAL-FORMAT ...) ; compiling (DEFUN GET-TEMPORARY-DIRECTORY ...) ; compiling (DEFUN GET-DESCRIPTOR-FOR ...); ; compilation unit finished ; printed 2 notes ; SYS:SRC;CODE;RUN-PROGRAM.FASL.NEWEST written ; compilation finished in 0:00:00.347 T * //doing warm init - load and dump phase This is SBCL 1.2.1, an implementation of ANSI Common Lisp. More information about SBCL is available at . SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * 10 * 5 * T * *COMPILE-FILES-P* * STYLE-WARNING: #S(REDEFINITION-WITH-DEFUN :ACTUAL-INITARGS (NAME MAYBE-UPDATE-INFO-FOR-GF NEW-FUNCTION #1=# NEW-LOCATION #2=#S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING SYS:SRC;PCL;METHODS.LISP.NEWEST :TOPLEVEL-FORM-NUMBER 37 :PLIST NIL)) :ASSIGNED-SLOTS (NEW-LOCATION #2# NEW-FUNCTION #1# NAME MAYBE-UPDATE-INFO-FOR-GF)) STYLE-WARNING: # STYLE-WARNING: redefining SB-INT:DEF!METHOD in DEFMACRO T * 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 output/sbcl.core: writing 5744 bytes from the read-only space at 0x0x20000000 writing 3120 bytes from the static space at 0x0x20100000 writing 46432256 bytes from the dynamic space at 0x0x1000000000 done] real 0m24.303s user 0m12.302s sys 0m1.115s //entering make-target-contrib.sh find: obj/asdf-cache/: No such file or directory find: obj/sbcl-home/contrib/: No such file or directory if [ -d asdf-upstream ] ; then rm -rf asdf-upstream ; fi mkdir -p /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib/ /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(compile-file #p"SYS:CONTRIB;ASDF;ASDF.LISP" :output-file (parse-native-namestring "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//asdf.fasl"))' /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-aclrepl.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-aclrepl")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-aclrepl/module-setup.lisp" (written 28 JUL 2014 05:09:36 AM): ; compiling (PROVIDE :SB-ACLREPL) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-aclrepl/module-setup.fasl written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-aclrepl/toplevel.lisp" (written 28 JUN 2014 03:46:25 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.017 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-aclrepl/repl.lisp" (written 28 JUN 2014 03:46:25 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 ALL-THREADS ...) ; compiling (DEFUN OTHER-THREADS ...) ; compiling (DEFUN EXIT-CMD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-aclrepl/repl.lisp ; in: DEFUN EXIT-CMD ; (VALUES) ; ; note: deleting unreachable code ; compiling (DEFUN PACKAGE-CMD ...) ; compiling (DEFUN STRING-TO-LIST-SKIP-SPACES ...) ; compiling (LET (#) ...) ; compiling (DEFUN CF-CMD ...) ; compiling (DEFUN >-NUM ...) ; compiling (DEFUN NEWER-FILE-P ...) ; compiling (DEFUN COMPILE-FILE-AS-NEEDED ...) ; compiling (DEFUN APROPOS-CMD ...) ; compiling (LET (#) ...) ; compiling (DEFUN INSPECT-CMD ...) ; compiling (DEFUN ISTEP-CMD ...) ; compiling (DEFUN DESCRIBE-CMD ...) ; compiling (DEFUN MACROEXPAND-CMD ...) ; compiling (DEFUN HISTORY-CMD ...) ; compiling (DEFUN HELP-CMD ...) ; compiling (DEFUN ALIAS-CMD ...) ; compiling (DEFUN SHELL-CMD ...) ; compiling (DEFUN PUSHD-CMD ...) ; compiling (DEFUN POPD-CMD ...) ; compiling (DEFUN POP-CMD ...) ; compiling (DEFUN BT-CMD ...) ; compiling (DEFUN CURRENT-CMD ...) ; compiling (DEFUN TOP-CMD ...) ; compiling (DEFUN BOTTOM-CMD ...) ; compiling (DEFUN UP-CMD ...) ; compiling (DEFUN DN-CMD ...) ; compiling (DEFUN CONTINUE-CMD ...) ; compiling (DEFUN ERROR-CMD ...) ; compiling (DEFUN FRAME-CMD ...) ; compiling (DEFUN ZOOM-CMD ...) ; compiling (DEFUN LOCAL-CMD ...) ; compiling (DEFUN PROCESSES-CMD ...) ; compiling (DEFUN KILL-CMD ...) ; compiling (DEFUN FOCUS-CMD ...) ; compiling (DEFUN RESET-CMD ...) ; compiling (DEFUN DIRS-CMD ...) ; compiling (LET (#) ...) ; compiling (DEFSETF ALIAS ...) ; compiling (DEFMACRO ALIAS ...) ; compiling (DEFUN REMOVE-ALIAS ...) ; compiling (DEFUN PEEK-CHAR-NON-WHITESPACE ...) ; compiling (DEFUN STRING-TRIM-WHITESPACE ...) ; compiling (DEFUN WHITESPACE-CHAR-P ...) ; compiling (DEFUN WHITESPACE-CHAR-NOT-NEWLINE-P ...) ; compiling (DEFUN REPL-PROMPT-FUN ...) ; compiling (DEFUN PROCESS-CMD ...) ; compiling (DEFUN REPL-READ-FORM-FUN ...) ; compiling (SETF *REPL-PROMPT-FUN* ...) ; compiling (DEFMACRO WITH-NEW-REPL-STATE ...) ; compiling (DEFUN MAKE-REPL-FUN ...) ; compiling (WHEN (BOUNDP #) ...) ; SYS:CONTRIB;SB-ACLREPL;REPL-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.332 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-aclrepl/debug.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-ACLREPL) ; compiling (DEFUN DEBUG-LOOP ...) ; compiling (DEFUN CONTINUABLE-BREAK-P ...) ; compiling (DEFUN PRINT-RESTARTS ...) ; SYS:CONTRIB;SB-ACLREPL;DEBUG-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.053 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-aclrepl/inspect.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE #:SB-ACLREPL) ; compiling (DEFCONSTANT +DEFAULT-INSPECT-LENGTH+ ...) ; compiling (DEFSTRUCT (%INSPECT # ...) ...) ; compiling (DEFPARAMETER *CURRENT-INSPECT* ...) ; compiling (DEFPARAMETER *INSPECT-RAW* ...) ; compiling (DEFPARAMETER *INSPECT-LENGTH* ...) ; compiling (DEFPARAMETER *SKIP-ADDRESS-DISPLAY* ...) ; compiling (DEFVAR *INSPECT-HELP* ...) ; compiling (DEFVAR *INSPECT-UNBOUND-OBJECT-MARKER* ...) ; compiling (DEFUN INSPECTOR-FUN ...) ; compiling (SETQ SB-IMPL::*INSPECT-FUN* ...) ; compiling (DEFUN ISTEP ...) ; compiling (DEFUN ISTEP-DISPATCH ...) ; compiling (DEFUN SET-CURRENT-INSPECT ...) ; compiling (DEFUN RESET-STACK ...) ; compiling (DEFUN OUTPUT-INSPECT-NOTE ...) ; compiling (DEFUN STACK ...) ; compiling (DEFUN REDISPLAY ...) ; compiling (DEFUN ISTEP-CMD-REDISPLAY ...) ; compiling (DEFUN ISTEP-CMD-PARENT ...) ; compiling (DEFUN ISTEP-CMD-INSPECT-* ...) ; compiling (DEFUN ISTEP-CMD-INSPECT-NEW-FORM ...) ; compiling (DEFUN ISTEP-CMD-SELECT-PARENT-COMPONENT ...) ; compiling (DEFUN ISTEP-CMD-SET-RAW ...) ; compiling (DEFUN ISTEP-CMD-RESET ...) ; compiling (DEFUN ISTEP-CMD-HELP ...) ; compiling (DEFUN ISTEP-CMD-SKIP ...) ; compiling (DEFUN ISTEP-CMD-PRINT ...) ; compiling (DEFUN SELECT-DESCRIPTION ...) ; compiling (DEFUN ISTEP-CMD-TREE ...) ; compiling (DEFUN ISTEP-CMD-SET ...) ; compiling (DEFUN ISTEP-CMD-SELECT-COMPONENT ...) ; compiling (DEFUN ISTEP-CMD-SET-STACK ...) ; compiling (DEFUN NO-OBJECT-MSG ...) ; compiling (DEFUN DISPLAY-CURRENT ...) ; compiling (DEFUN DISPLAY-INSPECT ...) ; compiling (DEFUN ARRAY-LABEL-P ...) ; compiling (DEFUN NAMED-OR-ARRAY-LABEL-P ...) ; compiling (DEFUN HEX-LABEL-P ...) ; compiling (DEFUN DISPLAY-LABELED-ELEMENT ...) ; compiling (DEFUN FIND-PART-ID ...) ; compiling (DEFUN COMPONENT-AT ...) ; compiling (DEFUN ID-AT ...) ; compiling (DEFUN INSPECTED-ELEMENTS ...) ; compiling (DEFUN LAST-REQUESTED ...) ; compiling (DEFUN LAST-PART ...) ; compiling (DEFUN COMPUTE-ELEMENTS-COUNT ...) ; compiling (DEFUN SET-ELEMENT ...) ; compiling (DEFUN SET-ELEMENT-VALUES ...) ; compiling (DEFUN FIRST-ELEMENT-ELLIPSES-P ...) ; compiling (DEFUN LABEL-AT ...) ; compiling (DEFUN ARRAY-INDEX-STRING ...) ; compiling (DEFGENERIC INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFUN SIMPLE-CONS-PAIR-P ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFUN CONS-SAFE-LENGTH ...) ; compiling (DEFUN INSPECTED-DESCRIPTION-OF-NONTRIVIAL-LIST ...) ; compiling (DEFUN N-WORD-BITS-HEX-FORMAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-aclrepl/inspect.lisp ; in: DEFUN N-WORD-BITS-HEX-FORMAT ; (CASE SB-VM:N-WORD-BITS (64 "~16,'0X") (32 "~8,'0X") (T "~X")) ; --> LET COND IF COND IF PROGN ; ==> ; "~8,'0X" ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND THE 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-aclrepl/inspect.lisp ; in: DEFMETHOD INSPECTED-DESCRIPTION (SINGLE-FLOAT) ; (SB-ACLREPL::DESCRIPTION-MAYBE-INTERNALS "single-float ~W" ; (LIST SB-ACLREPL::OBJECT) "[#x~A]" ; (SB-ACLREPL::REF32-HEXSTR SB-ACLREPL::OBJECT (ROUND SB-VM:N-WORD-BITS 8))) ; ==> ; "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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-aclrepl/inspect.lisp ; in: DEFUN BIGNUM-COMPONENT-AT ; (SB-ACLREPL::REF32 BIGNUM (* 4 (1+ SB-ACLREPL::OFFSET))) ; ==> ; BIGNUM ; ; 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.296 ; ; compilation unit finished ; printed 5 notes CL-USER(1): /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-aclrepl")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-rt/rt.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; SYS:CONTRIB;SB-RT;RT-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.086 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-aclrepl/tests.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-aclrepl/tests.lisp ; in: DEF-ELEMENTS-TESTS *BIGNUM* ; (ACLREPL-TESTS::DEF-ELEMENTS-TESTS ACLREPL-TESTS::*BIGNUM* 2 ; #(4154852436 1149780945) ; #((0 . :HEX32) (1 . :HEX32))) ; --> PROGN UNLESS IF EQ ; ==> ; #(4154852436 1149780945) ; ; 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 ...) ; SYS:CONTRIB;SB-ACLREPL;TESTS-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.184 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-aclrepl/tests.lisp ; in: DEFUN ACLREPL-TESTS::DO-INSPECT ; (SB-ACLREPL::INSPECTOR `',ACLREPL-TESTS::OBJECT NIL ACLREPL-TESTS::STRM) ; ; caught STYLE-WARNING: ; undefined function: SB-ACLREPL::INSPECTOR ; ; compilation unit finished ; Undefined function: ; SB-ACLREPL::INSPECTOR ; caught 1 STYLE-WARNING condition ; printed 1 note CL-USER(1): /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-bsd-sockets :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-bsd-sockets.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-bsd-sockets")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-grovel/defpackage.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE "SB-GROVEL" ...) ; SYS:CONTRIB;SB-GROVEL;DEFPACKAGE-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-grovel/def-to-lisp.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE #:SB-GROVEL) ; compiling (DEFVAR *DEFAULT-C-STREAM* ...) ; compiling (DEFUN ESCAPE-FOR-STRING ...) ; compiling (DEFUN SPLIT-CFLAGS ...) ; compiling (DEFUN C-ESCAPE ...) ; compiling (DEFUN AS-C ...) ; compiling (DEFUN PRINTF ...) ; compiling (DEFUN C-FOR-ENUM ...) ; compiling (DEFUN C-FOR-STRUCTURE ...) ; compiling (DEFUN PRINT-C-SOURCE ...) ; compiling (DEFUN C-CONSTANTS-EXTRACT ...) ; compiling (DEFCLASS GROVEL-CONSTANTS-FILE ...) ; compiling (DEFCLASS ASDF/INTERFACE::SB-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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.065 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-grovel/foreign-glue.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-GROVEL) ; compiling (DEFMACRO DEFINE-FOREIGN-ROUTINE ...) ; compiling (DEFUN REINTERN ...) ; compiling (DEFPARAMETER ALIEN-TYPE-TABLE ...) ; compiling (DEFPARAMETER LISP-TYPE-TABLE ...) ; compiling (DEFINE-ALIEN-TYPES (TYPE SIZE) ...) ; compiling (DEFUN RETRIEVE-TYPE-FOR ...) ; compiling (DEFUN ALIEN-TYPE-FOR ...) ; compiling (DEFUN LISP-TYPE-FOR ...) ; compiling (DEFUN MK-PADDING ...) ; compiling (DEFUN MK-STRUCT ...) ; compiling (DEFUN MK-UNION ...) ; compiling (DEFUN MK-VAL ...) ; compiling (DEFCLASS SLOT ...) ; compiling (DEFCLASS STRUCTURED-TYPE ...) ; compiling (DEFCLASS UNION ...) ; compiling (DEFCLASS STRUCT ...) ; compiling (DEFCLASS VALUE-SLOT ...) ; compiling (DEFCLASS PADDING ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD SIZE ...) ; compiling (DEFGENERIC SLOT-END ...) ; compiling (DEFMETHOD SLOT-END ...) ; compiling (DEFUN OVERLAP-P ...) ; compiling (DEFGENERIC FIND-OVERLAPS ...) ; compiling (DEFMETHOD FIND-OVERLAPS ...) ; compiling (DEFMETHOD FIND-OVERLAPS ...) ; compiling (DEFGENERIC PAD-TO-OFFSET-OF ...) ; compiling (DEFMETHOD PAD-TO-OFFSET-OF ...) ; compiling (DEFMETHOD PAD-TO-OFFSET-OF ...) ; compiling (DEFGENERIC REPLACE-BY-UNION ...) ; compiling (DEFMETHOD REPLACE-BY-UNION ...) ; compiling (DEFMETHOD REPLACE-BY-UNION ...) ; compiling (DEFGENERIC INSERT-ELEMENT ...) ; compiling (DEFMETHOD INSERT-ELEMENT ...) ; compiling (DEFUN SANE-SLOT ...) ; compiling (DEFGENERIC ACCESSOR-MODIFIER-FOR ...) ; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...) ; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...) ; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...) ; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...) ; compiling (DEFUN C-STRING-READER[1] ...) ; compiling (DEFUN C-STRING-WRITER ...) ; 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.122 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/module-setup.lisp" (written 28 JUL 2014 05:09:42 AM): ; compiling (PROVIDE :SB-BSD-SOCKETS) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/module-setup.fasl written ; compilation finished in 0:00:00.001 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/defpackage.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE "SB-BSD-SOCKETS-INTERNAL" ...) ; compiling (DEFPACKAGE "SB-BSD-SOCKETS" ...) ; SYS:CONTRIB;SB-BSD-SOCKETS;DEFPACKAGE-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.002 (SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS.LISP SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS.FASL.NEWEST /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/constants.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/a.out /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp) /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:31:83: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " (cl:setf (cl:gethash %d *integer-sizes*) 'sb-alien:char)\n", sizeof(char)); ~~ ^~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:32:84: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " (cl:setf (cl:gethash %d *integer-sizes*) 'sb-alien:short)\n", sizeof(short)); ~~ ^~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:33:83: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " (cl:setf (cl:gethash %d *integer-sizes*) 'sb-alien:long)\n", sizeof(long)); ~~ ^~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:34:82: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " (cl:setf (cl:gethash %d *integer-sizes*) 'sb-alien:int)\n", sizeof(int)); ~~ ^~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:349:165: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type SOCKLEN-T (sb-alien:%ssigned %d)))\n", SIGNED_(socklen_t), (8*sizeof(socklen_t))); ~~ ^~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:350:159: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type SIZE-T (sb-alien:%ssigned %d)))\n", SIGNED_(size_t), (8*sizeof(size_t))); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:351:161: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type SSIZE-T (sb-alien:%ssigned %d)))\n", SIGNED_(ssize_t), (8*sizeof(ssize_t))); ~~ ^~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:352:122: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct PROTOENT %d\n", sizeof(struct protoent)); ~~ ^~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:355:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.p_name)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:358:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.p_name)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:362:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.p_aliases)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:365:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.p_aliases)); ~~ ^~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:369:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.p_proto)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:372:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.p_proto)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:386:121: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct IN-ADDR %d\n", sizeof(struct in_addr)); ~~ ^~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:389:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.s_addr)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:392:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.s_addr)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:395:125: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct SOCKADDR-IN %d\n", sizeof(struct sockaddr_in)); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:398:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.sin_len)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:401:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.sin_len)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:405:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.sin_family)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:408:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.sin_family)); ~~ ^~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:412:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.sin_port)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:415:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.sin_port)); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:419:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.sin_addr)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:422:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.sin_addr)); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:425:125: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct SOCKADDR-UN %d\n", sizeof(struct sockaddr_un)); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:428:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.sun_family)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:431:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.sun_family)); ~~ ^~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:435:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.sun_path)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:438:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.sun_path)); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:441:134: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct SOCKADDR-UN-ABSTRACT %d\n", sizeof(struct sockaddr_un)); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:444:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.sun_family)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:447:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.sun_family)); ~~ ^~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:451:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.sun_path)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:454:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.sun_path)); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:457:121: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct HOSTENT %d\n", sizeof(struct hostent)); ~~ ^~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:460:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.h_name)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:463:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.h_name)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:467:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.h_aliases)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:470:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.h_aliases)); ~~ ^~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:474:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.h_addrtype)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:477:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.h_addrtype)); ~~ ^~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:481:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.h_length)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:484:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.h_length)); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:488:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.h_addr_list)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:491:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.h_addr_list)); ~~ ^~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:494:120: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct MSGHDR %d\n", sizeof(struct msghdr)); ~~ ^~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:497:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.msg_name)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:500:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.msg_name)); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:504:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.msg_namelen)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:507:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.msg_namelen)); ~~ ^~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:511:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.msg_iov)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:514:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.msg_iov)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:518:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.msg_iovlen)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:521:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.msg_iovlen)); ~~ ^~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:525:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.msg_control)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:528:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.msg_control)); ~~ ^~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:532:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.msg_controllen)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:535:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.msg_controllen)); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:539:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.msg_flags)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/foo.c:542:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.msg_flags)); ~~ ^~~~~~~~~~~~~~~~~~~ %lu 62 warnings generated. ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp" (written 28 JUL 2014 05:09:44 AM): ; 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 (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 SHUT_RD ...) ; compiling (DEFCONSTANT SHUT_WR ...) ; compiling (DEFCONSTANT SHUT_RDWR ...) ; 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 ERANGE ...) ; 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 (DEFINE-ALIEN-TYPE SOCKLEN-T ...) ; compiling (DEFINE-ALIEN-TYPE SIZE-T ...) ; compiling (DEFINE-ALIEN-TYPE SSIZE-T ...) ; compiling (SB-GROVEL::DEFINE-C-STRUCT PROTOENT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT PROTOENT ; (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::PROTOENT 24 ; (SB-BSD-SOCKETS-INTERNAL::NAME ; SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER ; "char *" 0 8) ; (SB-BSD-SOCKETS-INTERNAL::ALIASES (* (* T)) ; "char **" 8 8) ; (SB-BSD-SOCKETS-INTERNAL::PROTO INTEGER "int" 16 ; 4)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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 GETPROTOBYNAME)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobyname" GETPROTOBYNAME) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/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 SB-IMPL::%DEFUN BLOCK WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> ALIEN-FUNCALL SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA ; --> FUNCTION SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DECLAIM (INLINE GETPROTOBYNUMBER)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobynumber" GETPROTOBYNUMBER) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/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 SB-IMPL::%DEFUN BLOCK WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> ALIEN-FUNCALL SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA ; --> FUNCTION SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFCONSTANT INADDR-ANY ...) ; compiling (SB-GROVEL::DEFINE-C-STRUCT IN-ADDR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/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 SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-IN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/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 SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/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 SB-IMPL::%DEFUN BLOCK CAST SB-ALIEN-INTERNALS:%CAST ; --> SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN-ABSTRACT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/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 SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (SB-GROVEL::DEFINE-C-STRUCT HOSTENT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT HOSTENT ; (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::HOSTENT 32 ; (SB-BSD-SOCKETS-INTERNAL::NAME ; SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER ; "char *" 0 8) ; (SB-BSD-SOCKETS-INTERNAL::ALIASES (* C-STRING) ; "char **" 8 8) ; (TYPE INTEGER "int" 16 4) ; (LENGTH INTEGER "int" 20 4) ; (SB-BSD-SOCKETS-INTERNAL::ADDRESSES ; (* (* (UNSIGNED 8))) "char **" 24 8)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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 SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-bsd-sockets/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT MSGHDR ; (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::MSGHDR 48 ; (SB-BSD-SOCKETS-INTERNAL::NAME ; SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER ; "void *" 0 8) ; (SB-BSD-SOCKETS-INTERNAL::NAMELEN INTEGER ; "socklen_t" 8 4) ; (SB-BSD-SOCKETS-INTERNAL::IOV (* T) ; "struct iovec" 16 8) ; (SB-BSD-SOCKETS-INTERNAL::IOVLEN INTEGER "size_t" ; 24 4) ; (SB-BSD-SOCKETS-INTERNAL::CONTROL (* T) "void *" ; 32 8) ; (SB-BSD-SOCKETS-INTERNAL::CONTROLLEN INTEGER ; "socklen_t" 40 4) ; (SB-BSD-SOCKETS-INTERNAL::FLAGS INTEGER "int" 44 ; 4)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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 SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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 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 SHUTDOWN)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("shutdown" SHUTDOWN) ...) ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/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 SB-IMPL::%DEFUN BLOCK WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> ALIEN-FUNCALL SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA ; --> FUNCTION SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DECLAIM (INLINE GETHOSTBYNAME2)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyname2" GETHOSTBYNAME2) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/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 SB-IMPL::%DEFUN BLOCK WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> ALIEN-FUNCALL SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA ; --> FUNCTION SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DECLAIM (INLINE GETHOSTBYADDR)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyaddr" GETHOSTBYADDR) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/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 SB-IMPL::%DEFUN BLOCK WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> ALIEN-FUNCALL SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA ; --> FUNCTION SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFCONSTANT 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) ...) ; compiling (DEFCONSTANT IPPROTO_IP ...) ; compiling (DEFCONSTANT IPPROTO_IPV6 ...) ; compiling (DEFCONSTANT IPPROTO_ICMP ...) ; compiling (DEFCONSTANT IPPROTO_IGMP ...) ; compiling (DEFCONSTANT IPPROTO_TCP ...) ; compiling (DEFCONSTANT IPPROTO_UDP ...) ; compiling (DEFCONSTANT IPPROTO_RAW ...) ; SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.951 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/sockets.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB-BSD-SOCKETS") ; compiling (DEFUN SOCKET-ERRNO ...) ; compiling (DEFCLASS SOCKET ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFGENERIC SOCKET-NAMESTRING ...) ; compiling (DEFMETHOD SOCKET-NAMESTRING ...) ; compiling (DEFGENERIC SOCKET-PEERSTRING ...) ; compiling (DEFMETHOD SOCKET-PEERSTRING ...) ; 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 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/sockets.lisp ; in: DEFMETHOD SOCKET-SEND (SOCKET T T) ; (DEFMETHOD SB-BSD-SOCKETS:SOCKET-SEND ; ((SB-BSD-SOCKETS:SOCKET SB-BSD-SOCKETS:SOCKET) ; SB-BSD-SOCKETS::BUFFER LENGTH ; &KEY SB-BSD-SOCKETS::ADDRESS ; (SB-BSD-SOCKETS::EXTERNAL-FORMAT :DEFAULT) SB-BSD-SOCKETS::OOB ; SB-BSD-SOCKETS::EOR SB-BSD-SOCKETS::DONTROUTE ; SB-BSD-SOCKETS::DONTWAIT SB-BSD-SOCKETS::NOSIGNAL) ; (LET* ((SB-BSD-SOCKETS::FLAGS (LOGIOR # # # #)) ; (SB-BSD-SOCKETS::BUFFER (ETYPECASE SB-BSD-SOCKETS::BUFFER # # #)) ; (SB-BSD-SOCKETS::LEN ; (SB-BSD-SOCKETS::WITH-VECTOR-SAP # ; # ; #))) ; (COND ((AND # #) NIL) ; ((= SB-BSD-SOCKETS::LEN -1) (SB-BSD-SOCKETS:SOCKET-ERROR "sendto")) ; (T SB-BSD-SOCKETS::LEN)))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN ; ==> ; (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'SB-BSD-SOCKETS:SOCKET-SEND 'NIL ; (LIST (FIND-CLASS 'SB-BSD-SOCKETS:SOCKET) ; (FIND-CLASS 'T) (FIND-CLASS 'T)) ; '(SB-BSD-SOCKETS:SOCKET SB-BSD-SOCKETS::BUFFER LENGTH ; &KEY SB-BSD-SOCKETS::ADDRESS ; (SB-BSD-SOCKETS::EXTERNAL-FORMAT :DEFAULT) ; SB-BSD-SOCKETS::OOB SB-BSD-SOCKETS::EOR ; SB-BSD-SOCKETS::DONTROUTE SB-BSD-SOCKETS::DONTWAIT ; SB-BSD-SOCKETS::NOSIGNAL) ; (LIST* :FUNCTION ; (LET* ((SB-PCL::FMF #) (SB-PCL::MF #)) ; (SB-MOP:SET-FUNCALLABLE-INSTANCE-FUNCTION ; SB-PCL::MF ; (SB-PCL::METHOD-FUNCTION-FROM-FAST-FUNCTION ; SB-PCL::FMF '#)) ; SB-PCL::MF) ; '(SB-PCL::PLIST (:ARG-INFO (3 . T)) ; SB-PCL::SIMPLE-NEXT-METHOD-CALL T)) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; The variable NOSIGNAL is defined but never used. ; 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-SHUTDOWN ...) ; compiling (DEFMETHOD SOCKET-SHUTDOWN ...) ; 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.405 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/misc.lisp" (written 28 JUN 2014 03:46:25 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.037 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/name-service.lisp" (written 28 JUN 2014 03:46:25 PM): ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/name-service.lisp ; in: DEFUN MAKE-HOST-ENT ; (DEREF (SB-BSD-SOCKETS-INTERNAL::HOSTENT-ADDRESSES SB-BSD-SOCKETS::H) ; SB-BSD-SOCKETS::I) ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-BSD-SOCKETS-INTERNAL::HOSTENT-NAME SB-BSD-SOCKETS::H) ; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE ; --> SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN:ALIEN ; compiling (DECLAIM (INLINE NATURALIZE-UNSIGNED-BYTE-8-ARRAY)) ; compiling (DEFUN NATURALIZE-UNSIGNED-BYTE-8-ARRAY ...) ; compiling (SB-EXT:DEFGLOBAL **GETHOSTBY-LOCK** ...) ; compiling (DEFUN GET-HOST-BY-NAME ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/name-service.lisp ; in: DEFUN GET-HOST-BY-NAME ; (SB-BSD-SOCKETS-INTERNAL::GETHOSTBYNAME SB-BSD-SOCKETS::HOST-NAME) ; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET ; --> VALUES PROG1 LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFUN GET-HOST-BY-ADDRESS ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/name-service.lisp ; in: DEFUN GET-HOST-BY-ADDRESS ; (SB-BSD-SOCKETS-INTERNAL::GETHOSTBYADDR SB-BSD-SOCKETS::PACKED-ADDR 4 ; SB-BSD-SOCKETS-INTERNAL::AF-INET) ; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET ; --> VALUES PROG1 LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-BSD-SOCKETS-INTERNAL::WITH-IN-ADDR SB-BSD-SOCKETS::PACKED-ADDR ; NIL ; (LET ((SB-BSD-SOCKETS::ADDR-VECTOR ; (COERCE SB-BSD-SOCKETS::ADDRESS 'VECTOR))) ; (LOOP SB-BSD-SOCKETS::FOR SB-BSD-SOCKETS::I SB-BSD-SOCKETS::FROM 0 SB-BSD-SOCKETS::BELOW (LENGTH ; SB-BSD-SOCKETS::ADDR-VECTOR) ; DO (SETF # #)) ; (SB-BSD-SOCKETS::MAKE-HOST-ENT ; (SB-BSD-SOCKETS-INTERNAL::GETHOSTBYADDR SB-BSD-SOCKETS::PACKED-ADDR 4 ; SB-BSD-SOCKETS-INTERNAL::AF-INET)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK SB-BSD-SOCKETS-INTERNAL::FREE-IN-ADDR ; --> SB-BSD-SOCKETS::PACKED-ADDR SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFVAR *NAME-SERVICE-ERRNO* ...) ; compiling (DEFUN NAME-SERVICE-ERROR ...) ; compiling (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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.118 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/split.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-BSD-SOCKETS) ; compiling (DEFUN SPLIT ...) ; SYS:CONTRIB;SB-BSD-SOCKETS;SPLIT-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.027 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/local.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-BSD-SOCKETS) ; compiling (DEFCLASS LOCAL-SOCKET ...) ; compiling (DEFMETHOD SOCKET-NAMESTRING ...) ; compiling (DEFMETHOD SOCKET-PEERSTRING ...) ; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...) ; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...) ; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...) ; compiling (DEFMETHOD BITS-OF-SOCKADDR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/local.lisp ; in: DEFMETHOD BITS-OF-SOCKADDR (LOCAL-SOCKET T) ; (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN-PATH SB-BSD-SOCKETS::SOCKADDR) ; --> BLOCK CAST SB-ALIEN-INTERNALS:%CAST SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) from SB-C::SAP ; 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.091 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/inet.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-BSD-SOCKETS) ; compiling (DEFCLASS INET-SOCKET ...) ; compiling (DEFPARAMETER INET-ADDRESS-ANY ...) ; compiling (DEFMETHOD SOCKET-NAMESTRING ...) ; compiling (DEFMETHOD SOCKET-PEERSTRING ...) ; compiling (DEFUN MAKE-INET-ADDRESS ...) ; compiling (DEFINE-CONDITION UNKNOWN-PROTOCOL ...) ; compiling (DEFVAR *PROTOCOLS* ...) ; compiling (DEFUN GET-PROTOCOL-BY-NAME ...) ; compiling (SB-EXT:DEFGLOBAL **GETPROTOBY-LOCK** ...) ; compiling (DEFUN GETPROTOBYNAME ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/inet.lisp ; in: DEFUN GETPROTOBYNAME ; (SB-BSD-SOCKETS-INTERNAL::GETPROTOBYNAME SB-BSD-SOCKETS::NAME) ; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET ; --> VALUES PROG1 LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (DEREF (SB-BSD-SOCKETS-INTERNAL::PROTOENT-ALIASES SB-BSD-SOCKETS::PROTOENT) ; SB-BSD-SOCKETS::INDEX) ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-BSD-SOCKETS-INTERNAL::PROTOENT-NAME SB-BSD-SOCKETS::PROTOENT) ; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE ; --> SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN:ALIEN ; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/inet.lisp ; in: DEFMETHOD MAKE-SOCKADDR-FOR (INET-SOCKET) ; (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-ADDR SB-BSD-SOCKETS::SOCKADDR) ; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-PORT SB-BSD-SOCKETS::SOCKADDR) ; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: doing SAP to pointer coercion (cost 20) ; (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-ADDR SB-BSD-SOCKETS::SOCKADDR) ; --> BLOCK SLOT SLOT SB-ALIEN-INTERNALS:%ALIEN-VALUE ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: doing SAP to pointer coercion (cost 20) ; 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.094 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/sockopt.lisp" (written 28 JUN 2014 03:46:25 PM): ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 ; ==> ; (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 (DEFINE-SOCKET-OPTION-INT SOCKOPT-TCP-KEEPCNT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/sockopt.lisp ; in: DEFINE-SOCKET-OPTION-INT SOCKOPT-TCP-KEEPCNT ; (SB-BSD-SOCKETS::DEFINE-SOCKET-OPTION-INT SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPCNT ; :TCP ; SB-BSD-SOCKETS-INTERNAL::TCP-KEEPCNT ; :LINUX "Available only on Linux.") ; --> SB-BSD-SOCKETS::DEFINE-SOCKET-OPTION PROGN DEFUN PROGN ; ==> ; (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPCNT ; (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPCNT ; (SB-BSD-SOCKETS:SOCKET) ; (BLOCK SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPCNT ; (ERROR 'SB-INT:UNSUPPORTED-OPERATOR :FORMAT-CONTROL ; "Socket option ~S is not supported in this platform." ; :FORMAT-ARGUMENTS ; (LIST 'SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPCNT)))) ; 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-TCP-KEEPCNT) ; (SB-INT:NAMED-LAMBDA (SETF SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPCNT) ; (SB-BSD-SOCKETS::NEW-VAL SB-BSD-SOCKETS:SOCKET) ; (BLOCK SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPCNT ; (ERROR 'SB-INT:UNSUPPORTED-OPERATOR :FORMAT-CONTROL ; "Socket option ~S is not supported on this platform." ; :FORMAT-ARGUMENTS ; (LIST 'SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPCNT)))) ; 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-INT SOCKOPT-TCP-KEEPIDLE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/sockopt.lisp ; in: DEFINE-SOCKET-OPTION-INT SOCKOPT-TCP-KEEPIDLE ; (SB-BSD-SOCKETS::DEFINE-SOCKET-OPTION-INT ; SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPIDLE :TCP ; SB-BSD-SOCKETS-INTERNAL::TCP-KEEPIDLE :LINUX "Available only on Linux.") ; --> SB-BSD-SOCKETS::DEFINE-SOCKET-OPTION PROGN DEFUN PROGN ; ==> ; (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPIDLE ; (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPIDLE ; (SB-BSD-SOCKETS:SOCKET) ; (BLOCK SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPIDLE ; (ERROR 'SB-INT:UNSUPPORTED-OPERATOR :FORMAT-CONTROL ; "Socket option ~S is not supported in this platform." ; :FORMAT-ARGUMENTS ; (LIST 'SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPIDLE)))) ; 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-TCP-KEEPIDLE) ; (SB-INT:NAMED-LAMBDA (SETF SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPIDLE) ; (SB-BSD-SOCKETS::NEW-VAL SB-BSD-SOCKETS:SOCKET) ; (BLOCK SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPIDLE ; (ERROR 'SB-INT:UNSUPPORTED-OPERATOR :FORMAT-CONTROL ; "Socket option ~S is not supported on this platform." ; :FORMAT-ARGUMENTS ; (LIST 'SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPIDLE)))) ; 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-INT SOCKOPT-TCP-KEEPINTVL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/sockopt.lisp ; in: DEFINE-SOCKET-OPTION-INT SOCKOPT-TCP-KEEPINTVL ; (SB-BSD-SOCKETS::DEFINE-SOCKET-OPTION-INT ; SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPINTVL :TCP ; SB-BSD-SOCKETS-INTERNAL::TCP-KEEPINTVL :LINUX "Available only on Linux.") ; --> SB-BSD-SOCKETS::DEFINE-SOCKET-OPTION PROGN DEFUN PROGN ; ==> ; (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPINTVL ; (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPINTVL ; (SB-BSD-SOCKETS:SOCKET) ; (BLOCK SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPINTVL ; (ERROR 'SB-INT:UNSUPPORTED-OPERATOR :FORMAT-CONTROL ; "Socket option ~S is not supported in this platform." ; :FORMAT-ARGUMENTS ; (LIST 'SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPINTVL)))) ; 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-TCP-KEEPINTVL) ; (SB-INT:NAMED-LAMBDA (SETF SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPINTVL) ; (SB-BSD-SOCKETS::NEW-VAL SB-BSD-SOCKETS:SOCKET) ; (BLOCK SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPINTVL ; (ERROR 'SB-INT:UNSUPPORTED-OPERATOR :FORMAT-CONTROL ; "Socket option ~S is not supported on this platform." ; :FORMAT-ARGUMENTS ; (LIST 'SB-BSD-SOCKETS::SOCKOPT-TCP-KEEPINTVL)))) ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 ; ==> ; (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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 ; ==> ; (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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 ; ==> ; (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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.295 WARNING: Lisp compilation had style-warnings while compiling # ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/name-service.lisp ; in: DEFUN SB-BSD-SOCKETS::GET-NAME-SERVICE-ERROR-MESSAGE ; (SB-BSD-SOCKETS-INTERNAL::GAI-STRERROR SB-BSD-SOCKETS::ERROR-CODE) ; ; caught STYLE-WARNING: ; undefined function: SB-BSD-SOCKETS-INTERNAL::GAI-STRERROR ; ; compilation unit finished ; Undefined function: ; SB-BSD-SOCKETS-INTERNAL::GAI-STRERROR ; caught 23 STYLE-WARNING conditions ; printed 56 notes * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-bsd-sockets")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/defpackage.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE :SB-POSIX ...) ; SYS:CONTRIB;SB-POSIX;DEFPACKAGE-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.002 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/designator.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-POSIX) ; compiling (DEFVAR *DESIGNATOR-TYPES* ...) ; compiling (DEFMACRO DEFINE-DESIGNATOR ...) ; SYS:CONTRIB;SB-POSIX;DESIGNATOR-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.019 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/macros.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-POSIX) ; compiling (DEFINE-DESIGNATOR FILENAME ...) ; compiling (DEFINE-DESIGNATOR FILE-DESCRIPTOR ...) ; compiling (DEFINE-DESIGNATOR SAP-OR-NIL ...) ; compiling (DEFINE-DESIGNATOR ALIEN-POINTER-TO-ANYTHING-OR-NIL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/macros.lisp ; in: DEFINE-DESIGNATOR ALIEN-POINTER-TO-ANYTHING-OR-NIL ; (SAP-ALIEN (SB-SYS:INT-SAP 0) (* T)) ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-SYS:INT-SAP 0) ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFUN LISP-FOR-C-SYMBOL ...) ; compiling (DEFPARAMETER *C-FUNCTIONS-IN-RUNTIME* ...) ; compiling (DEFUN REAL-C-NAME ...) ; compiling (DEFMACRO DEFINE-CALL-INTERNALLY ...) ; compiling (DEFMACRO DEFINE-CALL ...) ; compiling (DEFMACRO DEFINE-ENTRY-POINT ...) ; compiling (DEFMACRO DEFINE-SIMPLE-CALL ...) ; SYS:CONTRIB;SB-POSIX;MACROS-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.051 (SYS:CONTRIB;SB-POSIX;CONSTANTS.LISP SYS:CONTRIB;SB-POSIX;CONSTANTS.FASL.NEWEST /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/constants.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/a.out /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/constants.lisp-temp) /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:40:83: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " (cl:setf (cl:gethash %d *integer-sizes*) 'sb-alien:char)\n", sizeof(char)); ~~ ^~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:41:84: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " (cl:setf (cl:gethash %d *integer-sizes*) 'sb-alien:short)\n", sizeof(short)); ~~ ^~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:42:83: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " (cl:setf (cl:gethash %d *integer-sizes*) 'sb-alien:long)\n", sizeof(long)); ~~ ^~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:43:82: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " (cl:setf (cl:gethash %d *integer-sizes*) 'sb-alien:int)\n", sizeof(int)); ~~ ^~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:51:157: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type UID-T (sb-alien:%ssigned %d)))\n", SIGNED_(uid_t), (8*sizeof(uid_t))); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:52:157: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type GID-T (sb-alien:%ssigned %d)))\n", SIGNED_(gid_t), (8*sizeof(gid_t))); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:53:161: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type NLINK-T (sb-alien:%ssigned %d)))\n", SIGNED_(nlink_t), (8*sizeof(nlink_t))); ~~ ^~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:54:157: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type PID-T (sb-alien:%ssigned %d)))\n", SIGNED_(pid_t), (8*sizeof(pid_t))); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:55:157: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type INO-T (sb-alien:%ssigned %d)))\n", SIGNED_(ino_t), (8*sizeof(ino_t))); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:56:159: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type TIME-T (sb-alien:%ssigned %d)))\n", SIGNED_(time_t), (8*sizeof(time_t))); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:57:157: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type DEV-T (sb-alien:%ssigned %d)))\n", SIGNED_(dev_t), (8*sizeof(dev_t))); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1129:159: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type MODE-T (sb-alien:%ssigned %d)))\n", SIGNED_(mode_t), (8*sizeof(mode_t))); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1298:157: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type OFF-T (sb-alien:%ssigned %d)))\n", SIGNED_(off_t), (8*sizeof(off_t))); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1377:120: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct DIRENT %d\n", sizeof(struct dirent)); ~~ ^~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1380:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.d_ino)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1383:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.d_ino)); ~~ ^~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1387:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.d_name)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1390:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.d_name)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1393:126: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-PASSWD %d\n", sizeof(struct passwd)); ~~ ^~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1396:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.pw_name)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1399:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.pw_name)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1403:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.pw_passwd)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1406:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.pw_passwd)); ~~ ^~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1410:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.pw_uid)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1413:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.pw_uid)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1417:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.pw_gid)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1420:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.pw_gid)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1424:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.pw_gecos)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1427:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.pw_gecos)); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1431:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.pw_dir)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1434:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.pw_dir)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1438:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.pw_shell)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1441:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.pw_shell)); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1444:125: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-GROUP %d\n", sizeof(struct group)); ~~ ^~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1447:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.gr_name)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1450:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.gr_name)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1454:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.gr_passwd)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1457:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.gr_passwd)); ~~ ^~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1461:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.gr_gid)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1464:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.gr_gid)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1467:124: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-STAT %d\n", sizeof(struct stat)); ~~ ^~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1470:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.st_mode)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1473:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.st_mode)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1477:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.st_ino)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1480:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.st_ino)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1484:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.st_dev)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1487:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.st_dev)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1491:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.st_nlink)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1494:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.st_nlink)); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1498:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.st_uid)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1501:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.st_uid)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1505:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.st_rdev)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1508:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.st_rdev)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1512:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.st_gid)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1515:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.st_gid)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1519:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.st_size)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1522:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.st_size)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1526:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.st_atime)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1529:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.st_atime)); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1533:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.st_mtime)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1536:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.st_mtime)); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1540:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.st_ctime)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1543:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.st_ctime)); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1546:128: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-TIMESPEC %d\n", sizeof(struct timespec)); ~~ ^~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1549:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.tv_sec)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1552:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.tv_sec)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1556:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.tv_nsec)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1559:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.tv_nsec)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1766:125: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-FLOCK %d\n", sizeof(struct flock)); ~~ ^~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1769:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.l_type)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1772:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.l_type)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1776:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.l_whence)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1779:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.l_whence)); ~~ ^~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1783:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.l_start)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1786:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.l_start)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1790:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.l_len)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1793:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.l_len)); ~~ ^~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1797:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.l_pid)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1800:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.l_pid)); ~~ ^~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1827:155: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type CC-T (sb-alien:%ssigned %d)))\n", SIGNED_(cc_t), (8*sizeof(cc_t))); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1828:161: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type SPEED-T (sb-alien:%ssigned %d)))\n", SIGNED_(speed_t), (8*sizeof(speed_t))); ~~ ^~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1830:163: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type TCFLAG-T (sb-alien:%ssigned %d)))\n", SIGNED_(tcflag_t), (8*sizeof(tcflag_t))); ~~ ^~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1838:127: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-TERMIOS %d\n", sizeof(struct termios)); ~~ ^~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1841:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.c_iflag)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1844:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.c_iflag)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1848:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.c_oflag)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1851:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.c_oflag)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1855:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.c_cflag)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1858:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.c_cflag)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1862:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.c_lflag)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1865:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.c_lflag)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1869:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.c_cc)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1872:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.c_cc)); ~~ ^~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1875:169: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-alien:define-alien-type SUSECONDS-T (sb-alien:%ssigned %d)))\n", SIGNED_(suseconds_t), (8*sizeof(suseconds_t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1876:127: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-UTIMBUF %d\n", sizeof(struct utimbuf)); ~~ ^~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1879:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.actime)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1882:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.actime)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1886:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.modtime)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1889:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.modtime)); ~~ ^~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1892:127: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, "(cl:eval-when (:compile-toplevel :load-toplevel :execute) (sb-grovel::define-c-struct ALIEN-TIMEVAL %d\n", sizeof(struct timeval)); ~~ ^~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1895:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.tv_sec)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1898:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.tv_sec)); ~~ ^~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1902:29: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d\n", ((unsigned long)&(t.tv_usec)) - ((unsigned long)&(t))); ~~ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %lu /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/foo.c:1905:30: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf (out, " %d)\n", sizeof(t.tv_usec)); ~~ ^~~~~~~~~~~~~~~~~ %lu 104 warnings generated. ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/constants.lisp-temp" (written 28 JUL 2014 05:09:50 AM): ; 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 ~A (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 ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE SIGRTMIN)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (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 ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ECHRNG)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EL2NSYNC)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EL3HLT)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EL3RST)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ELNRNG)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EUNATCH)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ENOCSI)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EL2HLT)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EBADE)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EBADR)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EXFULL)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ENOANO)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EBADRQC)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EBADSLT)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EDEADLOCK)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (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 ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ENONET)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (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 ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EADV)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ESRMNT)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (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 ~A (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 ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ENOTUNIQ)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EBADFD)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EREMCHG)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ELIBACC)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ELIBBAD)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ELIBSCN)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ELIBMAX)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (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 ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ERESTART)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (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 ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EUCLEAN)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ENOTNAM)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ENAVAIL)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (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 ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE ENOMEDIUM)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE EMEDIUMTYPE)) ; compiling (DEFCONSTANT WNOHANG ...) ; compiling (EXPORT (QUOTE WNOHANG)) ; compiling (DEFCONSTANT WUNTRACED ...) ; compiling (EXPORT (QUOTE 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 MAP-ANON ...) ; compiling (EXPORT (QUOTE MAP-ANON)) ; 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 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT DIRENT ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::DIRENT 1048 ; (SB-POSIX::INO SB-POSIX::INO-T "ino_t" 0 8) ; (SB-POSIX::NAME C-STRING "char *" 21 1024)) ; --> PROGN DEFUN PROGN ; ==> ; (SB-IMPL::%DEFUN 'SB-POSIX:DIRENT-INO ; (SB-INT:NAMED-LAMBDA SB-POSIX:DIRENT-INO ; (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX:DIRENT-INO (SLOT STRUCT 'SB-POSIX::INO))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX:DIRENT-INO (SLOT STRUCT 'SB-POSIX::INO))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK CAST SB-ALIEN-INTERNALS:%CAST ; --> SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-PASSWD ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-PASSWD ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-PASSWD 72 ; (SB-POSIX::NAME SB-POSIX::C-STRING-POINTER ; "char *" 0 8) ; (SB-POSIX::PASSWD SB-POSIX::C-STRING-POINTER ; "char *" 8 8) ; (SB-POSIX::UID SB-POSIX::UID-T "uid_t" 16 4) ; (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 20 4) ; (SB-POSIX::GECOS SB-POSIX::C-STRING-POINTER ; "char *" 40 8) ; (SB-POSIX::DIR SB-POSIX::C-STRING-POINTER ; "char *" 48 8) ; (SB-POSIX::SHELL SB-POSIX::C-STRING-POINTER ; "char *" 56 8)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE ; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-GROUP ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-GROUP ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-GROUP 32 ; (SB-POSIX::NAME SB-POSIX::C-STRING-POINTER ; "char *" 0 8) ; (SB-POSIX::PASSWD SB-POSIX::C-STRING-POINTER ; "char *" 8 8) ; (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 16 4)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%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-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE ; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-STAT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-STAT ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-STAT 144 ; (SB-POSIX::MODE SB-POSIX::MODE-T "mode_t" 4 2) ; (SB-POSIX::NLINK SB-POSIX::NLINK-T "nlink_t" 6 2) ; (SB-POSIX::INO SB-POSIX::INO-T "ino_t" 8 8) ; (SB-POSIX::UID SB-POSIX::UID-T "uid_t" 16 4) ; (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 20 4) ; (SB-POSIX::RDEV SB-POSIX::DEV-T "dev_t" 24 4) ; (SB-POSIX::ATIME SB-POSIX::TIME-T "time_t" 32 8) ; (SB-POSIX::MTIME SB-POSIX::TIME-T "time_t" 48 8) ; (SB-POSIX::CTIME SB-POSIX::TIME-T "time_t" 64 8) ; ...) ; --> PROGN DEFUN PROGN ; ==> ; (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 ; (SLOT STRUCT 'SB-POSIX::INO))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-INO ; (SLOT STRUCT 'SB-POSIX::INO))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; (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 ; (SLOT STRUCT 'SB-POSIX::ATIME))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-ATIME ; (SLOT STRUCT 'SB-POSIX::ATIME))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; (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 ; (SLOT STRUCT 'SB-POSIX::MTIME))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-MTIME ; (SLOT STRUCT 'SB-POSIX::MTIME))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; (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 ; (SLOT STRUCT 'SB-POSIX::CTIME))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-CTIME ; (SLOT STRUCT 'SB-POSIX::CTIME))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-STAT-SIZE ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-SIZE ; (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-SIZE ; (SLOT STRUCT 'SB-POSIX::SIZE))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-SIZE ; (SLOT STRUCT 'SB-POSIX::SIZE))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMESPEC ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMESPEC ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-TIMESPEC 16 ; (SB-POSIX::TV-SEC SB-POSIX::TIME-T "time_t" 0 8) ; (SB-POSIX::TV-NSEC LONG "long" 8 8)) ; --> PROGN DEFUN PROGN ; ==> ; (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 ; (SLOT STRUCT 'SB-POSIX::TV-SEC))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TIMESPEC-TV-SEC ; (SLOT STRUCT 'SB-POSIX::TV-SEC))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; (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 ; (SLOT STRUCT 'SB-POSIX::TV-NSEC))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TIMESPEC-TV-NSEC ; (SLOT STRUCT 'SB-POSIX::TV-NSEC))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (DEFCONSTANT O-RDONLY ...) ; compiling (EXPORT (QUOTE O-RDONLY)) ; compiling (DEFCONSTANT O-WRONLY ...) ; compiling (EXPORT (QUOTE O-WRONLY)) ; compiling (DEFCONSTANT O-RDWR ...) ; compiling (EXPORT (QUOTE O-RDWR)) ; compiling (DEFCONSTANT O-CREAT ...) ; compiling (EXPORT (QUOTE O-CREAT)) ; compiling (DEFCONSTANT O-EXCL ...) ; compiling (EXPORT (QUOTE O-EXCL)) ; compiling (DEFCONSTANT O-NOCTTY ...) ; compiling (EXPORT (QUOTE O-NOCTTY)) ; compiling (DEFCONSTANT O-TRUNC ...) ; compiling (EXPORT (QUOTE O-TRUNC)) ; compiling (DEFCONSTANT O-APPEND ...) ; compiling (EXPORT (QUOTE O-APPEND)) ; compiling (DEFCONSTANT O-NONBLOCK ...) ; compiling (EXPORT (QUOTE O-NONBLOCK)) ; compiling (DEFCONSTANT O-NDELAY ...) ; compiling (EXPORT (QUOTE O-NDELAY)) ; compiling (DEFCONSTANT O-SYNC ...) ; compiling (EXPORT (QUOTE O-SYNC)) ; compiling (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 ~A (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 ~A (unknown to the C compiler)." ...) ; compiling (EXPORT (QUOTE O-LARGEFILE)) ; compiling (DEFCONSTANT O-DSYNC ...) ; compiling (EXPORT (QUOTE O-DSYNC)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ~A (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 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/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 ; ==> ; (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-FLOCK-START ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-FLOCK-START ; (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-FLOCK-START ; (SLOT STRUCT 'SB-POSIX::START))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-FLOCK-START ; (SLOT STRUCT 'SB-POSIX::START))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-FLOCK-LEN ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-FLOCK-LEN ; (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-FLOCK-LEN ; (SLOT STRUCT 'SB-POSIX::LEN))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-FLOCK-LEN ; (SLOT STRUCT 'SB-POSIX::LEN))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing signed word to integer coercion (cost 20) to "" ; 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 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-TERMIOS ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-TERMIOS 72 ; (SB-POSIX::IFLAG SB-POSIX::TCFLAG-T "tcflag_t" 0 ; 8) ; (SB-POSIX::OFLAG SB-POSIX::TCFLAG-T "tcflag_t" 8 ; 8) ; (SB-POSIX::CFLAG SB-POSIX::TCFLAG-T "tcflag_t" 16 ; 8) ; (SB-POSIX::LFLAG SB-POSIX::TCFLAG-T "tcflag_t" 24 ; 8) ; (SB-POSIX::CC (ARRAY SB-POSIX::CC-T) "cc_t" 32 ; 20)) ; --> PROGN DEFUN PROGN ; ==> ; (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 ; (SLOT STRUCT 'SB-POSIX::IFLAG))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-IFLAG ; (SLOT STRUCT 'SB-POSIX::IFLAG))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; (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 ; (SLOT STRUCT 'SB-POSIX::OFLAG))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-OFLAG ; (SLOT STRUCT 'SB-POSIX::OFLAG))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; (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 ; (SLOT STRUCT 'SB-POSIX::CFLAG))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-CFLAG ; (SLOT STRUCT 'SB-POSIX::CFLAG))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; (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 ; (SLOT STRUCT 'SB-POSIX::LFLAG))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-LFLAG ; (SLOT STRUCT 'SB-POSIX::LFLAG))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SLOT SLOT ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:%SET-SLOT SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-ALIEN-TYPE SUSECONDS-T ...) ; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-UTIMBUF ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-UTIMBUF ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-UTIMBUF 16 ; (SB-POSIX::ACTIME SB-POSIX::TIME-T "time_t" 0 8) ; (SB-POSIX::MODTIME SB-POSIX::TIME-T "time_t" 8 8)) ; --> PROGN DEFUN PROGN ; ==> ; (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 ; (SLOT STRUCT 'SB-POSIX::ACTIME))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-UTIMBUF-ACTIME ; (SLOT STRUCT 'SB-POSIX::ACTIME))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; (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 ; (SLOT STRUCT 'SB-POSIX::MODTIME))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-UTIMBUF-MODTIME ; (SLOT STRUCT 'SB-POSIX::MODTIME))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMEVAL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMEVAL ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-TIMEVAL 16 ; (SB-POSIX::SEC SB-POSIX::TIME-T "time_t" 0 8) ; (SB-POSIX::USEC SB-POSIX::SUSECONDS-T ; "suseconds_t" 8 4)) ; --> PROGN DEFUN PROGN ; ==> ; (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 ; (SLOT STRUCT 'SB-POSIX::SEC))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT) ; (DECLARE (TYPE (ALIEN #) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TIMEVAL-SEC ; (SLOT STRUCT 'SB-POSIX::SEC))) ; (SB-C:SOURCE-LOCATION)) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (DEFCONSTANT VEOF ...) ; compiling (EXPORT (QUOTE VEOF)) ; compiling (DEFCONSTANT VEOL ...) ; compiling (EXPORT (QUOTE VEOL)) ; compiling (DEFCONSTANT VERASE ...) ; compiling (EXPORT (QUOTE VERASE)) ; compiling (DEFCONSTANT VINTR ...) ; compiling (EXPORT (QUOTE VINTR)) ; compiling (DEFCONSTANT VKILL ...) ; compiling (EXPORT (QUOTE VKILL)) ; compiling (DEFCONSTANT VMIN ...) ; compiling (EXPORT (QUOTE VMIN)) ; compiling (DEFCONSTANT VQUIT ...) ; compiling (EXPORT (QUOTE VQUIT)) ; compiling (DEFCONSTANT VSTART ...) ; compiling (EXPORT (QUOTE VSTART)) ; compiling (DEFCONSTANT VSTOP ...) ; compiling (EXPORT (QUOTE VSTOP)) ; compiling (DEFCONSTANT VSUSP ...) ; compiling (EXPORT (QUOTE VSUSP)) ; compiling (DEFCONSTANT VTIME ...) ; compiling (EXPORT (QUOTE VTIME)) ; compiling (DEFCONSTANT VDISABLE ...) ; compiling (EXPORT (QUOTE VDISABLE)) ; 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 ONOCR ...) ; compiling (EXPORT (QUOTE ONOCR)) ; compiling (DEFCONSTANT ONLRET ...) ; compiling (EXPORT (QUOTE ONLRET)) ; compiling (DEFCONSTANT OFDEL ...) ; compiling (EXPORT (QUOTE OFDEL)) ; 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:01.010 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_RSYNC (unknown to the C compiler). ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/interface.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-POSIX) ; compiling (DEFMACRO DEFINE-PROTOCOL-CLASS ...) ; compiling (DEFINE-CONDITION SYSCALL-ERROR ...) ; compiling (DECLAIM (FTYPE # ...)) ; 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* "read" ...) ; compiling (DEFINE-CALL "rename" ...) ; compiling (DEFINE-CALL* "rmdir" ...) ; compiling (DEFINE-CALL* "unlink" ...) ; compiling (DEFINE-CALL "opendir" ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/interface.lisp ; in: DEFINE-CALL "opendir" ; (SB-POSIX::DEFINE-CALL "opendir" (* T) NULL-ALIEN ; (PATHNAME SB-POSIX:FILENAME)) ; --> PROGN SB-POSIX::DEFINE-CALL-INTERNALLY PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-CALL* "write" ...) ; compiling (DEFINE-CALL ("readdir" :C-NAME ...) ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/interface.lisp ; in: ; DEFINE-CALL ("readdir" :C-NAME "readdir$INODE64" :OPTIONS :LARGEFILE) ; (SB-POSIX::DEFINE-CALL ; ("readdir" :C-NAME "readdir$INODE64" :OPTIONS :LARGEFILE) ; (* SB-POSIX::DIRENT) NOT (SB-POSIX::DIR (* T))) ; --> PROGN SB-POSIX::DEFINE-CALL-INTERNALLY PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-CALL "closedir" ...) ; compiling (DEFINE-CALL* "umask" ...) ; compiling (DEFINE-CALL* "getpid" ...) ; compiling (DEFINE-CALL "chown" ...) ; compiling (DEFINE-CALL "chroot" ...) ; compiling (DEFINE-CALL "fchdir" ...) ; compiling (DEFINE-CALL "fchmod" ...) ; compiling (DEFINE-CALL "fchown" ...) ; compiling (DEFINE-CALL "fdatasync" ...) ; compiling (DEFINE-CALL ("ftruncate" :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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 ; '#) ; ; 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 ; '#) ; ; 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 ; '#) ; ; 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 LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-FLOCK SB-POSIX::A-FLOCK ; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-CALL "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-SIMPLE-CALL ABORT ...) ; compiling (DEFINE-SIMPLE-CALL EXIT ...) ; compiling (DEFINE-SIMPLE-CALL _EXIT ...) ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 'SB-POSIX::GETCWD))))) ; --> 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 :NOT-NULL T)) ; SB-POSIX::ALIEN-TO-PASSWD) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-OBJ-CALL "getpwuid" ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 SB-IMPL::%DEFUN BLOCK LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-OBJ-CALL "getgrnam" ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 :NOT-NULL T)) ; SB-POSIX::ALIEN-TO-GROUP) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-OBJ-CALL "getgrgid" ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 SB-IMPL::%DEFUN BLOCK LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-PROTOCOL-CLASS TIMEVAL ...) ; compiling (DEFINE-PROTOCOL-CLASS STAT ...) ; compiling (DEFMACRO DEFINE-STAT-CALL ...) ; compiling (DEFINE-STAT-CALL "stat" ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/interface.lisp ; in: DEFINE-STAT-CALL "stat" ; (SB-POSIX::DEFINE-STAT-CALL "stat" PATHNAME SB-POSIX:FILENAME ; (FUNCTION INT (C-STRING :NOT-NULL T) ; (* SB-POSIX::ALIEN-STAT))) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SB-POSIX::WITH-ALIEN-STAT ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SB-POSIX::WITH-ALIEN-STAT ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-STAT SB-POSIX::A-STAT ; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-STAT-CALL "lstat" ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/interface.lisp ; in: DEFINE-STAT-CALL "lstat" ; (SB-POSIX::DEFINE-STAT-CALL "lstat" PATHNAME SB-POSIX:FILENAME ; (FUNCTION INT (C-STRING :NOT-NULL T) ; (* SB-POSIX::ALIEN-STAT))) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SB-POSIX::WITH-ALIEN-STAT ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SB-POSIX::WITH-ALIEN-STAT ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-STAT SB-POSIX::A-STAT ; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-STAT-CALL "fstat" ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/interface.lisp ; in: DEFINE-STAT-CALL "fstat" ; (SB-POSIX::DEFINE-STAT-CALL "fstat" SB-POSIX::FD SB-POSIX:FILE-DESCRIPTOR ; (FUNCTION INT INT (* SB-POSIX::ALIEN-STAT))) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SB-POSIX::WITH-ALIEN-STAT ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SB-POSIX::WITH-ALIEN-STAT ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-STAT SB-POSIX::A-STAT ; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-CALL "s_isreg" ...) ; compiling (DEFINE-CALL "s_isdir" ...) ; compiling (DEFINE-CALL "s_ischr" ...) ; compiling (DEFINE-CALL "s_isblk" ...) ; compiling (DEFINE-CALL "s_isfifo" ...) ; compiling (DEFINE-CALL "s_islnk" ...) ; compiling (DEFINE-CALL "s_issock" ...) ; compiling (EXPORT (QUOTE PIPE) ...) ; compiling (DECLAIM (INLINE PIPE)) ; compiling (DEFUN PIPE ...) ; compiling (DEFINE-PROTOCOL-CLASS TERMIOS ...) ; compiling (EXPORT (QUOTE TCSETATTR) ...) ; compiling (DECLAIM (INLINE TCSETATTR)) ; compiling (DEFUN TCSETATTR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/interface.lisp ; in: DEFUN TCSETATTR ; (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS) ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS ; NIL ; (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS) ; (LET ((SB-POSIX::FD (SB-POSIX:FILE-DESCRIPTOR SB-POSIX::FD))) ; (LET* ((SB-POSIX::R #)) ; (WHEN (MINUSP SB-POSIX::R) ; (SB-POSIX:SYSCALL-ERROR 'SB-POSIX::TCSETATTR))) ; (VALUES))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-TERMIOS ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE TCGETATTR) ...) ; compiling (DECLAIM (INLINE TCGETATTR)) ; compiling (DEFUN TCGETATTR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 ; '#) ; ; 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 'SB-POSIX::TCGETATTR)) ; (SETF SB-POSIX::TERMIOS ; (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS ; SB-POSIX::TERMIOS)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-TERMIOS ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-CALL "tcdrain" ...) ; compiling (DEFINE-CALL "tcflow" ...) ; compiling (DEFINE-CALL "tcflush" ...) ; compiling (DEFINE-CALL "tcgetsid" ...) ; compiling (DEFINE-CALL "tcsendbreak" ...) ; compiling (EXPORT (QUOTE CFSETISPEED) ...) ; compiling (DECLAIM (INLINE CFSETISPEED)) ; compiling (DEFUN CFSETISPEED ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 ; '#) ; ; 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 'SB-POSIX::CFSETISPEED)) ; (SETF SB-POSIX::TERMIOS ; (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS ; SB-POSIX::TERMIOS)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-TERMIOS ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE CFSETOSPEED) ...) ; compiling (DECLAIM (INLINE CFSETOSPEED)) ; compiling (DEFUN CFSETOSPEED ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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 ; '#) ; ; 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 'SB-POSIX::CFSETOSPEED)) ; (SETF SB-POSIX::TERMIOS ; (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS ; SB-POSIX::TERMIOS)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-TERMIOS ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE CFGETISPEED) ...) ; compiling (DECLAIM (INLINE CFGETISPEED)) ; compiling (DEFUN CFGETISPEED ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/interface.lisp ; in: DEFUN CFGETISPEED ; (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS) ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS ; NIL ; (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS) ; (ALIEN-FUNCALL ; (EXTERN-ALIEN "cfgetispeed" ; (FUNCTION SB-POSIX:SPEED-T (* SB-POSIX::ALIEN-TERMIOS))) ; SB-POSIX::A-TERMIOS)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-TERMIOS ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE CFGETOSPEED) ...) ; compiling (DECLAIM (INLINE CFGETOSPEED)) ; compiling (DEFUN CFGETOSPEED ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/interface.lisp ; in: DEFUN CFGETOSPEED ; (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS) ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS ; NIL ; (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS) ; (ALIEN-FUNCALL ; (EXTERN-ALIEN "cfgetospeed" ; (FUNCTION SB-POSIX:SPEED-T (* SB-POSIX::ALIEN-TERMIOS))) ; SB-POSIX::A-TERMIOS)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK SB-POSIX::FREE-ALIEN-TERMIOS ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE TIME) ...) ; compiling (DEFUN TIME ...) ; compiling (EXPORT (QUOTE UTIME) ...) ; compiling (DEFUN UTIME ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/interface.lisp ; in: DEFUN UTIME ; (EXTERN-ALIEN "utime" ; (FUNCTION INT (C-STRING :NOT-NULL T) ; (* SB-POSIX::ALIEN-UTIMBUF))) ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE UTIMES) ...) ; compiling (DEFUN UTIMES ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/interface.lisp ; in: DEFUN UTIMES ; (EXTERN-ALIEN "sb_utimes" ; (FUNCTION INT (C-STRING :NOT-NULL T) ; (* (ARRAY SB-POSIX::ALIEN-TIMEVAL 2)))) ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (DEREF SB-POSIX::BUF 0) ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (DEREF SB-POSIX::BUF 1) ; --> SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE GETENV) ...) ; compiling (DEFUN GETENV ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/interface.lisp ; in: DEFUN GETENV ; (ALIEN-FUNCALL ; (EXTERN-ALIEN "getenv" (FUNCTION (* CHAR) (C-STRING :NOT-NULL T))) ; SB-POSIX::NAME) ; --> SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-CALL "setenv" ...) ; compiling (DEFINE-CALL "unsetenv" ...) ; compiling (EXPORT (QUOTE PUTENV) ...) ; compiling (DEFUN 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:03.018 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 "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-bsd-sockets/tests.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE "SB-BSD-SOCKETS-TEST" ...) ; compiling (IN-PACKAGE :SB-BSD-SOCKETS-TEST) ; compiling (DEFMACRO DEFTEST* ...) ; 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 (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 ...) ; compiling (DEFTEST INTERRUPT-IO ...) ; compiling (DEFMACRO WITH-CLIENT-AND-SERVER ...) ; compiling (DEFINE-SHUTDOWN-TESTS :OUTPUT) ; compiling (DEFINE-SHUTDOWN-TESTS :IO) ; SYS:CONTRIB;SB-BSD-SOCKETS;TESTS-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.050 Doing 24 pending tests of 24 tests total. SB-BSD-SOCKETS:MAKE-INET-ADDRESS SB-BSD-SOCKETS-TEST::MAKE-INET-ADDRESS2 SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/TCP SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/UDP SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/ERROR SB-BSD-SOCKETS:MAKE-INET-SOCKET SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET-KEYWORD SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET-WRONG SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET-KEYWORD-WRONG SB-BSD-SOCKETS-TEST::NON-BLOCK-SOCKET SB-BSD-SOCKETS-TEST::INET-SOCKET-BIND SB-BSD-SOCKETS-TEST::SIMPLE-SOCKOPT-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 SB-BSD-SOCKETS-TEST::INTERRUPT-IO SB-BSD-SOCKETS-TEST::SHUTDOWN.SERVER.CHARACTER.OUTPUT SB-BSD-SOCKETS-TEST::SHUTDOWN.SERVER.UB8.OUTPUT SB-BSD-SOCKETS-TEST::SHUTDOWN.CLIENT.CHARACTER.OUTPUT SB-BSD-SOCKETS-TEST::SHUTDOWN.CLIENT.UB8.OUTPUT SB-BSD-SOCKETS-TEST::SHUTDOWN.SERVER.CHARACTER.IO SB-BSD-SOCKETS-TEST::SHUTDOWN.SERVER.UB8.IO SB-BSD-SOCKETS-TEST::SHUTDOWN.CLIENT.CHARACTER.IO SB-BSD-SOCKETS-TEST::SHUTDOWN.CLIENT.UB8.IO No tests failed. ; ; compilation unit finished ; printed 70 notes * /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-cltl2 :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-cltl2.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-cltl2")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-cltl2/module-setup.lisp" (written 28 JUL 2014 05:10:06 AM): ; compiling (PROVIDE :SB-CLTL2) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-cltl2/module-setup.fasl written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-cltl2/defpackage.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE :SB-CLTL2 ...) ; SYS:CONTRIB;SB-CLTL2;DEFPACKAGE-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.002 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-cltl2/env.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-CLTL2) ; compiling (DEFVAR *NULL-LEXENV* ...) ; compiling (DEFUN AUGMENT-ENVIRONMENT ...) ; compiling (DEFUN EXTRA-PAIRS ...) ; compiling (DEFUN EXTRA-DECL-INFO ...) ; 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 ...) ; compiling (DEFUN UPDATE-LEXENV-USER-DATA ...) ; compiling (DEFMACRO DEFINE-DECLARATION ...) ; SYS:CONTRIB;SB-CLTL2;ENV-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.088 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-cltl2/macroexpand.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-CLTL2) ; compiling (DEFUN MACROEXPAND-ALL ...) ; SYS:CONTRIB;SB-CLTL2;MACROEXPAND-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.005 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-cltl2/compiler-let.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-CLTL2) ; compiling (DEF-IR1-TRANSLATOR COMPILER-LET ...) ; compiling (DEFUN WALK-COMPILER-LET ...) ; compiling (SB-WALKER:DEFINE-WALKER-TEMPLATE COMPILER-LET ...) ; compiling (SETF (GETF SB-EVAL::*EVAL-DISPATCH-FUNCTIONS* ...) ...) ; SYS:CONTRIB;SB-CLTL2;COMPILER-LET-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.022 * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-cltl2")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-cltl2/tests.lisp" (written 28 JUN 2014 03:46:25 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.RESTRICT-COMPILER-POLICY.1 ...) ; compiling (DEFTEST DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.2 ...) ; compiling (DEFTEST DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.3 ...) ; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.DEFAULT ...) ; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.1 ...) ; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.2 ...) ; compiling (DECLAIM (DECLARATION FUBAR)) ; compiling (DEFTEST DECLARATION-INFORMATION.DECLARATION ...) ; 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.LEXICAL.TYPE ...) ; compiling (DEFTEST VARIABLE-INFO.LEXICAL.TYPE.2 ...) ; compiling (DEFTEST VARIABLE-INFO.LEXICAL.TYPE.3 ...) ; 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 (DECLAIM (GLOBAL THIS-IS-GLOBAL)) ; compiling (DEFTEST GLOBAL-VARIABLE ...) ; compiling (DEFGLOBAL THIS-IS-GLOBAL-TOO ...) ; compiling (DEFTEST GLOBAL-VARIABLE.2 ...) ; compiling (SB-ALIEN:DEFINE-ALIEN-VARIABLE "errno" ...) ; compiling (DEFTEST ALIEN-VARIABLE ...) ; 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 ...) ; compiling (DEFTEST FUNCTION-INFORMATION.FTYPE ...) ; compiling (DEFMACRO CT ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE1 ...) ; compiling (DEFVAR *FOO*) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE2 ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE3 ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL1 ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL12 ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL13 ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL.MASK ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.VARIABLE.IGNORE ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.FUNCTION ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.MACRO ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.SYMBOL-MACRO ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.MACRO2 ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.NEST ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.NEST2 ...) ; compiling (DEFTEST AUGMENT-ENVIRONMENT.SYMBOL-MACRO-VAR ...) ; compiling (DEFMACRO THIRD-VALUE ...) ; compiling (DEFTEST DEFINE-DECLARATION.DECLARE ...) ; compiling (DEFTEST DEFINE-DECLARATION.DECLARE2 ...) ; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE ...) ; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.SPECIAL ...) ; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.SPECIAL2 ...) ; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.MASK ...) ; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.MACROMASK ...) ; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.MACROMASK2 ...) ; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.MASK2 ...) ; compiling (DEFTEST DEFINE-DECLARATION.VARIABLE.SPECIALMASK ...) ; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION ...) ; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION.LEXICAL ...) ; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION.LEXICAL2 ...) ; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION.MASK ...) ; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION.MASK2 ...) ; compiling (DEFTEST DEFINE-DECLARATION.FUNCTION2 ...) ; compiling (DEFTEST MACROEXPAND-ALL.SPECIAL-BINDING ...) ; compiling (DEFTEST MACROEXPAND-ALL.SYMBOL-MACRO-SHADOWED ...) ; SYS:CONTRIB;SB-CLTL2;TESTS-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:01.008 Doing 104 pending tests of 104 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.RESTRICT-COMPILER-POLICY.1 SB-CLTL2-TESTS::DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.2 SB-CLTL2-TESTS::DECLARATION-INFORMATION.RESTRICT-COMPILER-POLICY.3 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::DECLARATION-INFORMATION.DECLARATION 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.LEXICAL.TYPE SB-CLTL2-TESTS::VARIABLE-INFO.LEXICAL.TYPE.2 SB-CLTL2-TESTS::VARIABLE-INFO.LEXICAL.TYPE.3 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::GLOBAL-VARIABLE SB-CLTL2-TESTS::GLOBAL-VARIABLE.2 SB-CLTL2-TESTS::ALIEN-VARIABLE 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 SB-CLTL2-TESTS::FUNCTION-INFORMATION.FTYPE SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE1 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE2 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE3 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL1 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL12 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL13 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.SPECIAL.MASK SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.VARIABLE.IGNORE SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.FUNCTION SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.MACRO SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.SYMBOL-MACRO SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.MACRO2 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.NEST SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.NEST2 SB-CLTL2-TESTS::AUGMENT-ENVIRONMENT.SYMBOL-MACRO-VAR SB-CLTL2-TESTS::DEFINE-DECLARATION.DECLARE SB-CLTL2-TESTS::DEFINE-DECLARATION.DECLARE2 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.SPECIAL SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.SPECIAL2 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.MASK SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.MACROMASK SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.MACROMASK2 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.MASK2 SB-CLTL2-TESTS::DEFINE-DECLARATION.VARIABLE.SPECIALMASK SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION.LEXICAL SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION.LEXICAL2 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION.MASK SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION.MASK2 SB-CLTL2-TESTS::DEFINE-DECLARATION.FUNCTION2 SB-CLTL2-TESTS::MACROEXPAND-ALL.SPECIAL-BINDING SB-CLTL2-TESTS::MACROEXPAND-ALL.SYMBOL-MACRO-SHADOWED No tests failed.; in: LAMBDA () ; (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 ; ; compilation unit finished ; Undefined function: ; SB-CLTL2-TESTS::BAR ; caught 1 STYLE-WARNING condition * /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-concurrency :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-concurrency.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-concurrency")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-concurrency/module-setup.lisp" (written 28 JUL 2014 05:10:10 AM): ; compiling (PROVIDE :SB-CONCURRENCY) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-concurrency/module-setup.fasl written ; compilation finished in 0:00:00.002 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-concurrency/package.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE :SB-CONCURRENCY ...) ; SYS:CONTRIB;SB-CONCURRENCY;PACKAGE-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-concurrency/gate.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-CONCURRENCY) ; compiling (DEFSTRUCT (GATE # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFUN MAKE-GATE ...) ; compiling (DEFUN OPEN-GATE ...) ; compiling (DEFUN CLOSE-GATE ...) ; compiling (DEFUN WAIT-ON-GATE ...) ; compiling (DEFUN GATE-OPEN-P ...) ; SYS:CONTRIB;SB-CONCURRENCY;GATE-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.053 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-concurrency/queue.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-CONCURRENCY) ; compiling (DEFCONSTANT +DUMMY+ ...) ; compiling (DEFCONSTANT +DEAD-END+ ...) ; compiling (DECLAIM (INLINE %MAKE-QUEUE)) ; compiling (DEFSTRUCT (QUEUE # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (DEFUN MAKE-QUEUE ...) ; compiling (DEFUN ENQUEUE ...) ; compiling (DEFUN DEQUEUE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-concurrency/queue.lisp ; in: DEFUN DEQUEUE ; (TYPECASE SB-CONCURRENCY::NEXT ; (NULL (RETURN (VALUES NIL NIL))) ; (CONS ; (WHEN ; (EQ SB-CONCURRENCY::HEAD ; (COMPARE-AND-SWAP # SB-CONCURRENCY::HEAD SB-CONCURRENCY::NEXT)) ; (LET (#) ; (SETF #) ; (RETURN #))))) ; --> LET COND IF COND IF TYPEP LET SB-C::%TYPEP-WRAPPER CONSP IF ; ==> ; (CONSP #:OBJECT111) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT NULL). ; compiling (DEFUN TRY-WALK-QUEUE ...) ; compiling (DEFUN LIST-QUEUE-CONTENTS ...) ; compiling (DEFUN QUEUE-COUNT ...) ; compiling (DEFUN QUEUE-EMPTY-P ...) ; SYS:CONTRIB;SB-CONCURRENCY;QUEUE-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.034 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-concurrency/mailbox.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-CONCURRENCY) ; compiling (DEFSTRUCT (MAILBOX # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (DEFUN MAKE-MAILBOX ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFUN MAILBOX-COUNT ...) ; compiling (DEFUN MAILBOX-EMPTY-P ...) ; compiling (DEFUN LIST-MAILBOX-MESSAGES ...) ; compiling (DEFUN SEND-MESSAGE ...) ; compiling (DEFUN RECEIVE-MESSAGE ...) ; compiling (DEFUN RECEIVE-MESSAGE-NO-HANG ...) ; compiling (DEFUN RECEIVE-PENDING-MESSAGES ...) ; SYS:CONTRIB;SB-CONCURRENCY;MAILBOX-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.053 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-concurrency/frlock.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-CONCURRENCY) ; compiling (DEFSTRUCT (FRLOCK # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (DECLAIM (INLINE MAKE-FRLOCK)) ; compiling (DEFUN MAKE-FRLOCK ...) ; compiling (DECLAIM (INLINE FRLOCK-READ-BEGIN)) ; compiling (DEFUN FRLOCK-READ-BEGIN ...) ; compiling (DECLAIM (INLINE FRLOCK-READ-END)) ; compiling (DEFUN FRLOCK-READ-END ...) ; compiling (DEFMACRO FRLOCK-READ ...) ; compiling (DEFUN %%GRAB-FRLOCK-WRITE-LOCK ...) ; compiling (DECLAIM (INLINE %GRAB-FRLOCK-WRITE-LOCK)) ; compiling (DEFUN %GRAB-FRLOCK-WRITE-LOCK ...) ; compiling (DECLAIM (INLINE GRAB-FRLOCK-WRITE-LOCK)) ; compiling (DEFUN GRAB-FRLOCK-WRITE-LOCK ...) ; compiling (DECLAIM (INLINE RELEASE-FRLOCK-WRITE-LOCK)) ; compiling (DEFUN RELEASE-FRLOCK-WRITE-LOCK ...) ; compiling (DEFMACRO FRLOCK-WRITE ...) ; SYS:CONTRIB;SB-CONCURRENCY;FRLOCK-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.051 ; ; compilation unit finished ; printed 1 note * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-concurrency")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-concurrency/tests/package.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFPACKAGE :SB-CONCURRENCY-TEST ...) ; SYS:CONTRIB;SB-CONCURRENCY;TESTS;PACKAGE-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.921 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-concurrency/tests/test-utils.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST) ; compiling (DEFPARAMETER +TIMEOUT+ ...) ; compiling (DEFUN MAKE-THREADS ...) ; compiling (DEFUN TIMED-JOIN-THREAD ...) ; compiling (DEFUN HANG ...) ; compiling (DEFUN KILL-THREAD ...) ; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-UTILS-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.022 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-concurrency/tests/test-frlock.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST) ; compiling (DEFMACRO DEFTEST* ...) ; compiling (DEFUN TEST-FRLOCKS ...) ; compiling (DEFTEST* (FRLOCK.1 :FAILS-ON ...) ...) ; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-FRLOCK-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.038 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-concurrency/tests/test-queue.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST) ; compiling (DEFTEST QUEUE.1 ...) ; compiling (DEFTEST QUEUE.2 ...) ; compiling (DEFTEST QUEUE.3 ...) ; compiling (DEFTEST QUEUE.4 ...) ; compiling (DEFTEST QUEUE.5 ...) ; compiling (DEFTEST QUEUE.T.1 ...) ; compiling (DEFTEST QUEUE.T.2 ...) ; compiling (DEFTEST QUEUE.T.3 ...) ; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-QUEUE-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.004 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-concurrency/tests/test-mailbox.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST) ; compiling (DEFTEST MAILBOX-TRIVIA.1 ...) ; compiling (DEFTEST MAILBOX-TRIVIA.2 ...) ; compiling (DEFTEST MAILBOX-TRIVIA.3 ...) ; compiling (DEFTEST MAILBOX-TIMEOUTS ...) ; compiling (DEFSTRUCT COUNTER ...) ; compiling (DEFUN RECEIVER-DISTRIBUTION ...) ; compiling (DEFUN TEST-MAILBOX-PRODUCERS-CONSUMERS ...) ; compiling (DEFTEST MAILBOX.SINGLE-PRODUCER-SINGLE-CONSUMER ...) ; compiling (DEFTEST MAILBOX.SINGLE-PRODUCER-MULTIPLE-CONSUMERS ...) ; compiling (DEFTEST MAILBOX.MULTIPLE-PRODUCERS-SINGLE-CONSUMER ...) ; compiling (DEFTEST MAILBOX.MULTIPLE-PRODUCERS-MULTIPLE-CONSUMERS ...) ; compiling (DEFTEST MAILBOX.INTERRUPTS-SAFETY.1 ...) ; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-MAILBOX-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.059 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-concurrency/tests/test-gate.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-CONCURRENCY-TEST) ; compiling (DEFTEST GATE.0 ...) ; compiling (DEFTEST GATE.1 ...) ; compiling (DEFTEST GATE.2 ...) ; compiling (DEFTEST GATE-DEADLINE.1 ...) ; compiling (DEFTEST GATE-DEADLINE.2 ...) ; compiling (DEFTEST GATE-TIMEOUT.1 ...) ; compiling (DEFTEST GATE-TIMEOUT.2 ...) ; SYS:CONTRIB;SB-CONCURRENCY;TESTS;TEST-GATE-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.003 Doing 25 pending tests of 25 tests total. SB-CONCURRENCY-TEST::FRLOCK.1 SB-CONCURRENCY-TEST::QUEUE.1 SB-CONCURRENCY-TEST::QUEUE.2 SB-CONCURRENCY-TEST::QUEUE.3 SB-CONCURRENCY-TEST::QUEUE.4 SB-CONCURRENCY-TEST::QUEUE.5 SB-CONCURRENCY-TEST::QUEUE.T.1 SB-CONCURRENCY-TEST::QUEUE.T.2 SB-CONCURRENCY-TEST::QUEUE.T.3 SB-CONCURRENCY-TEST::MAILBOX-TRIVIA.1 SB-CONCURRENCY-TEST::MAILBOX-TRIVIA.2 SB-CONCURRENCY-TEST::MAILBOX-TRIVIA.3 SB-CONCURRENCY-TEST::MAILBOX-TIMEOUTS SB-CONCURRENCY-TEST::MAILBOX.SINGLE-PRODUCER-SINGLE-CONSUMER SB-CONCURRENCY-TEST::MAILBOX.SINGLE-PRODUCER-MULTIPLE-CONSUMERS SB-CONCURRENCY-TEST::MAILBOX.MULTIPLE-PRODUCERS-SINGLE-CONSUMER SB-CONCURRENCY-TEST::MAILBOX.MULTIPLE-PRODUCERS-MULTIPLE-CONSUMERS SB-CONCURRENCY-TEST::MAILBOX.INTERRUPTS-SAFETY.1 SB-CONCURRENCY-TEST::GATE.0 SB-CONCURRENCY-TEST::GATE.1 SB-CONCURRENCY-TEST::GATE.2 SB-CONCURRENCY-TEST::GATE-DEADLINE.1 SB-CONCURRENCY-TEST::GATE-DEADLINE.2 SB-CONCURRENCY-TEST::GATE-TIMEOUT.1 SB-CONCURRENCY-TEST::GATE-TIMEOUT.2 No tests failed. * /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-cover :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-cover.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-cover")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-cover/module-setup.lisp" (written 28 JUL 2014 05:10:20 AM): ; compiling (PROVIDE :SB-COVER) ; compiling (REQUIRE :SB-MD5) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-cover/module-setup.fasl written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-rotate-byte/package.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE "SB-ROTATE-BYTE" ...) ; SYS:CONTRIB;SB-ROTATE-BYTE;PACKAGE-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.002 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-rotate-byte/compiler.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB-ROTATE-BYTE") ; compiling (DEFKNOWN ROTATE-BYTE ...) ; compiling (DEFKNOWN %ROTATE-BYTE ...) ; compiling (DEFKNOWN %UNSIGNED-32-ROTATE-BYTE ...) ; compiling (DEFKNOWN %UNSIGNED-64-ROTATE-BYTE ...) ; compiling (DEFINE-SOURCE-TRANSFORM ROTATE-BYTE ...) ; compiling (DEFOPTIMIZER (%ROTATE-BYTE DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %ROTATE-BYTE ...) ; compiling (DEFTRANSFORM %ROTATE-BYTE ...) ; compiling (DEFTRANSFORM %ROTATE-BYTE ...) ; SYS:CONTRIB;SB-ROTATE-BYTE;COMPILER-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.025 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-rotate-byte/x86-64-vm.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB-ROTATE-BYTE") ; compiling (DEFINE-VOP (%32BIT-ROTATE-BYTE/C) ...) ; compiling (DEFINE-VOP (%32BIT-ROTATE-BYTE) ...) ; compiling (DEFINE-VOP (%64BIT-ROTATE-BYTE/C) ...) ; compiling (DEFINE-VOP (%64BIT-ROTATE-BYTE) ...) ; SYS:CONTRIB;SB-ROTATE-BYTE;X86-64-VM-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.047 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-rotate-byte/rotate-byte.lisp" (written 28 JUN 2014 03:46:25 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.014 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-md5/md5.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE :SB-MD5 ...) ; compiling (IN-PACKAGE :SB-MD5) ; compiling (DEFTYPE UB32 ...) ; compiling (DEFMACRO ASSEMBLE-UB32 ...) ; compiling (DECLAIM (INLINE F ...) ...) ; compiling (DEFUN F ...) ; compiling (DEFUN G ...) ; compiling (DEFUN H ...) ; compiling (DEFUN I ...) ; compiling (DECLAIM (INLINE MOD32+) ...) ; compiling (DEFUN MOD32+ ...) ; compiling (DEFINE-COMPILER-MACRO MOD32+ ...) ; compiling (DECLAIM (INLINE ROL32) ...) ; compiling (DEFUN ROL32 ...) ; compiling (DEFPARAMETER *T* ...) ; compiling (DEFMACRO WITH-MD5-ROUND ...) ; compiling (DEFTYPE MD5-REGS ...) ; compiling (DEFMACRO MD5-REGS-A ...) ; compiling (DEFMACRO MD5-REGS-B ...) ; compiling (DEFMACRO MD5-REGS-C ...) ; compiling (DEFMACRO MD5-REGS-D ...) ; compiling (DEFCONSTANT +MD5-MAGIC-A+ ...) ; compiling (DEFCONSTANT +MD5-MAGIC-B+ ...) ; compiling (DEFCONSTANT +MD5-MAGIC-C+ ...) ; compiling (DEFCONSTANT +MD5-MAGIC-D+ ...) ; compiling (DECLAIM (INLINE INITIAL-MD5-REGS)) ; compiling (DEFUN INITIAL-MD5-REGS ...) ; compiling (DEFUN UPDATE-MD5-BLOCK ...) ; compiling (DECLAIM (INLINE FILL-BLOCK ...)) ; compiling (DEFUN FILL-BLOCK ...) ; compiling (DEFUN FILL-BLOCK-UB8 ...) ; compiling (DEFUN FILL-BLOCK-CHAR ...) ; compiling (DECLAIM (INLINE MD5REGS-DIGEST)) ; compiling (DEFUN MD5REGS-DIGEST ...); in: LAMBDA (#:WHOLE569 #:ENVIRONMENT570) ; (+ SB-MD5::OFFSET 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ SB-MD5::OFFSET 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ SB-MD5::OFFSET 3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ SB-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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-md5/md5.lisp ; in: DEFUN UPDATE-MD5-STATE ; (INCF (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE) LENGTH) ; --> LET* ; ==> ; (+ (SB-MD5::MD5-STATE-AMOUNT #:STATE810) #:G811) ; ; 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 -4611686018427387904) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER -4611686018427387904) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &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 -4611686018427387904) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER -4611686018427387904) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST ; T). ; etc. ; compiling (DEFUN FINALIZE-MD5-STATE ...); in: LAMBDA (#:WHOLE899 #:ENVIRONMENT900) ; (+ SB-MD5::OFFSET 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ SB-MD5::OFFSET 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ SB-MD5::OFFSET 3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ SB-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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-md5/md5.lisp ; in: DEFUN FINALIZE-MD5-STATE ; (* 8 (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE)) ; ==> ; (ASH SB-C::X 3) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; 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 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; compiling (DEFUN MD5SUM-SEQUENCE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.507 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-cover/cover.lisp" (written 28 JUN 2014 03:46:25 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 PATHNAME-AS-DIRECTORY ...) ; 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.277 ; ; compilation unit finished ; printed 29 notes * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-cover")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-cover/tests.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE SB-COVER-TEST ...) ; compiling (IN-PACKAGE SB-COVER-TEST) ; compiling (DEFPARAMETER *SOURCE-DIRECTORY* ...) ; compiling (DEFPARAMETER *OUTPUT-DIRECTORY* ...) ; compiling (SETF *DEFAULT-PATHNAME-DEFAULTS* ...) ; compiling (DEFUN COMPILE-LOAD ...) ; compiling (DEFUN REPORT ...) ; compiling (DEFUN REPORT-EXPECT-FAILURE ...) ; compiling (COMPILE-LOAD "test-data-1") ; compiling (REPORT-EXPECT-FAILURE) ; compiling (PROCLAIM (QUOTE #)) ; compiling (COMPILE-LOAD "test-data-1") ; compiling (CATCH (QUOTE OK) ...) ; 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 (COMPILE-LOAD "test-data-2") ; 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 (COMPILE-LOAD "test-data-3") ; compiling (TEST-2) ; compiling (MAP NIL ...) ; SYS:CONTRIB;SB-COVER;TESTS-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.061 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-cover/test-data-1.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE SB-COVER-TEST) ; compiling (DEFUN TEST1 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-cover/test-data-1.fasl written ; compilation finished in 0:00:00.002 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-cover/test-data-1.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE SB-COVER-TEST) ; compiling (DEFUN TEST1 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-cover/test-data-1.fasl written ; compilation finished in 0:00:00.002 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-cover/test-data-2.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE SB-COVER-TEST) ; compiling (DEFUN TEST2 ...) ; compiling (IDENTITY 1) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-cover/test-data-2.fasl written ; compilation finished in 0:00:00.003 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-cover/test-data-3.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DECLAIM (OPTIMIZE SB-C:STORE-COVERAGE-DATA)) ; compiling (DEFUN TEST-1 ...) ; compiling (DEFUN TEST-2 ...) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-cover/test-data-3.fasl written ; compilation finished in 0:00:00.003 ((1 3 1)) * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "sb-executable" "sb-executable") :output-file (parse-native-namestring "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-executable.fasl"))' /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-executable.asd ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-executable/sb-executable.lisp" (written 28 JUN 2014 03:46:25 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)) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-executable.fasl written ; compilation finished in 0:00:00.044 * true /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-gmp :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-gmp.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-gmp")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-gmp/module-setup.lisp" (written 28 JUL 2014 05:10:22 AM): ; compiling (PROVIDE :SB-GMP) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-gmp/module-setup.fasl written ; compilation finished in 0:00:01.174 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE "SB-GMP" ...) ; compiling (IN-PACKAGE "SB-GMP") ; compiling (DEFVAR *GMP-DISABLED* ...) ; compiling (DEFCONSTANT +BIGNUM-RAW-AREA-OFFSET+ ...) ; compiling (DECLAIM (INLINE BIGNUM-DATA-SAP)) ; compiling (DEFUN BIGNUM-DATA-SAP ...) ; compiling (DEFUN TRY-LOAD-SHARED-OBJECT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFUN TRY-LOAD-SHARED-OBJECT ; (HANDLER-CASE (LOAD-SHARED-OBJECT PATHNAME :DONT-SAVE T) ; (ERROR (SB-GMP::E) NIL)) ; --> SB-INT:DX-FLET ; ==> ; (FLET ((#:FORM-FUN-9 () ; (LOAD-SHARED-OBJECT PATHNAME :DONT-SAVE T)) ; (#:FUN6 (SB-GMP::E) ; NIL)) ; (DECLARE ; (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:FORM-FUN-9) (FUNCTION #:FUN6))) ; (DECLARE (OPTIMIZE (SB-C::CHECK-TAG-EXISTENCE 0))) ; (BLOCK #:BLOCK7 ; (SB-INT:DX-LET ((#:CELL8 #)) ; (DECLARE (IGNORABLE #:CELL8)) ; (TAGBODY ; (SB-IMPL::%HANDLER-BIND # #) ; #:TAG5 ; (RETURN-FROM #:BLOCK7 #))))) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; compiling (DEFUN %LOAD-GMP ...) ; compiling (DEFVAR *GMP-FEATURES* ...) ; compiling (DEFVAR *GMP-VERSION* ...) ; compiling (%LOAD-GMP) ; compiling (DEFINE-ALIEN-TYPE NIL ...) ; compiling (DECLAIM (INLINE Z-TO-BIGNUM ...)) ; compiling (DEFUN Z-TO-BIGNUM ...) ; compiling (DEFUN Z-TO-BIGNUM-NEG ...) ; compiling (DECLAIM (INLINE GMP-Z-TO-BIGNUM)) ; compiling (DEFUN GMP-Z-TO-BIGNUM ...) ; compiling (DECLAIM (INLINE BLENGTH ...) ...) ; compiling (DEFUN BLENGTH ...) ; compiling (DEFUN BASSERT ...) ; compiling (DEFINE-ALIEN-TYPE NIL ...) ; compiling (DECLAIM (INLINE __GMPZ_INIT ...)) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_INIT ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_CLEAR ...) ; compiling (DEFMACRO DEFINE-TWOARG-MPZ-FUNS ...) ; compiling (DEFMACRO DEFINE-THREEARG-MPZ-FUNS ...) ; compiling (DEFMACRO DEFINE-FOURARG-MPZ-FUNS ...) ; compiling (DEFINE-TWOARG-MPZ-FUNS (__GMPZ_SQRT __GMPZ_NEXTPRIME)) ; compiling (DEFINE-THREEARG-MPZ-FUNS (__GMPZ_ADD __GMPZ_SUB ...)) ; compiling (DEFINE-FOURARG-MPZ-FUNS (__GMPZ_CDIV_QR __GMPZ_FDIV_QR ...)) ; compiling (DECLAIM (INLINE __GMPZ_MUL_2EXP ...)) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_MUL_2EXP ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_FDIV_Q_2EXP ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_POW_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_PROBAB_PRIME_P ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_FAC_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_2FAC_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_MFAC_UIUI ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_PRIMORIAL_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_REMOVE ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_BIN_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_FIB2_UI ...) ; compiling (DEFMACRO DEFINE-THREEARG-MPQ-FUNS ...) ; compiling (DEFINE-THREEARG-MPQ-FUNS (__GMPQ_ADD __GMPQ_SUB ...)) ; compiling (DEFMACRO WITH-MPZ-RESULTS ...) ; compiling (DEFMACRO WITH-MPZ-VARS ...) ; compiling (DEFMACRO WITH-GMP-MPZ-RESULTS ...) ; compiling (DEFMACRO DEFGMPFUN ...) ; compiling (DEFGMPFUN MPZ-ADD ...) ; compiling (DEFGMPFUN MPZ-SUB ...) ; compiling (DEFGMPFUN MPZ-MUL ...) ; compiling (DEFGMPFUN MPZ-MUL-2EXP ...) ; compiling (DEFGMPFUN MPZ-MOD ...) ; compiling (DEFGMPFUN MPZ-CDIV ...) ; compiling (DEFGMPFUN MPZ-FDIV ...) ; compiling (DEFGMPFUN MPZ-FDIV-2EXP ...) ; compiling (DEFGMPFUN MPZ-TDIV ...) ; compiling (DEFGMPFUN MPZ-POW ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFGMPFUN MPZ-POW ; (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::ROP) ; (SB-GMP::WITH-MPZ-VARS ((SB-GMP::BASE SB-GMP::GBASE)) ; (SB-GMP::__GMPZ_POW_UI (ADDR SB-GMP::ROP) (ADDR SB-GMP::GBASE) EXP))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> LET SB-SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN SETF SETQ THE IF - ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::ROP 'SB-GMP::MP_D) #:RESULT3374 ; #:SIZE3375))) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; 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 (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; etc. ; compiling (DEFGMPFUN MPZ-POWM ...) ; compiling (DEFGMPFUN MPZ-GCD ...) ; compiling (DEFGMPFUN MPZ-LCM ...) ; compiling (DEFGMPFUN MPZ-SQRT ...) ; compiling (DEFUN MPZ-PROBABLY-PRIME-P ...) ; compiling (DEFGMPFUN MPZ-NEXTPRIME ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFGMPFUN MPZ-NEXTPRIME ; (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::PRIME) ; (SB-GMP::WITH-MPZ-VARS ((SB-GMP::A SB-GMP::GA)) ; (SB-GMP::__GMPZ_NEXTPRIME (ADDR SB-GMP::PRIME) (ADDR SB-GMP::GA)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> LET SB-SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN SETF SETQ THE IF - ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::PRIME 'SB-GMP::MP_D) ; #:RESULT4235 #:SIZE4236))) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; 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 (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; etc. ; compiling (DEFGMPFUN MPZ-FAC ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFGMPFUN MPZ-FAC ; (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::FAC) ; (SB-GMP::__GMPZ_FAC_UI (ADDR SB-GMP::FAC) SB-GMP::N)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> LET SB-SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN SETF SETQ THE IF - ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FAC 'SB-GMP::MP_D) #:RESULT4345 ; #:SIZE4346))) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; 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 (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; etc. ; compiling (DEFGMPFUN %MPZ-2FAC ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFGMPFUN %MPZ-2FAC ; (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::FAC) ; (SB-GMP::__GMPZ_2FAC_UI (ADDR SB-GMP::FAC) SB-GMP::N)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> LET SB-SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN SETF SETQ THE IF - ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FAC 'SB-GMP::MP_D) #:RESULT4406 ; #:SIZE4407))) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; 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 (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; etc. ; compiling (DEFGMPFUN %MPZ-MFAC ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFGMPFUN %MPZ-MFAC ; (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::FAC) ; (SB-GMP::__GMPZ_MFAC_UIUI (ADDR SB-GMP::FAC) SB-GMP::N SB-GMP::M)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> LET SB-SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN SETF SETQ THE IF - ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FAC 'SB-GMP::MP_D) #:RESULT4470 ; #:SIZE4471))) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; 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 (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; etc. ; compiling (DEFGMPFUN %MPZ-PRIMORIAL ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFGMPFUN %MPZ-PRIMORIAL ; (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R) ; (SB-GMP::__GMPZ_PRIMORIAL_UI (ADDR SB-GMP::R) SB-GMP::N)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> LET SB-SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN SETF SETQ THE IF - ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4533 ; #:SIZE4534))) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; 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 (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; etc. ; compiling (DEFGMPFUN MPZ-REMOVE-5.1 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFGMPFUN MPZ-REMOVE-5.1 ; (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R) ; (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::F SB-GMP::GF)) ; (SETF SB-GMP::C (SB-GMP::__GMPZ_REMOVE # # #)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> LET SB-SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN SETF SETQ THE IF - ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4596 ; #:SIZE4597))) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CHECK-TYPE SB-GMP::F UNSIGNED-BYTE "handled by GMP prior to version 5.1") ; --> DO BLOCK LET TAGBODY UNLESS IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND IF ; --> AND THE LOCALLY AND THE >= IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R) ; (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::F SB-GMP::GF)) ; (SETF SB-GMP::C (SB-GMP::__GMPZ_REMOVE # # #)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> LET SB-SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN SETF SETQ THE IF - ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4596 ; #:SIZE4597))) ; ; 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 (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; etc. ; (SETF SB-GMP::C ; (SB-GMP::__GMPZ_REMOVE (ADDR SB-GMP::R) (ADDR SB-GMP::GN) ; (ADDR SB-GMP::GF))) ; ==> ; (SETQ SB-GMP::C ; (SB-GMP::__GMPZ_REMOVE (ADDR SB-GMP::R) (ADDR SB-GMP::GN) ; (ADDR SB-GMP::GF))) ; ; note: doing unsigned word to integer coercion (cost 20) to C ; compiling (DEFGMPFUN MPZ-REMOVE ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFGMPFUN MPZ-REMOVE ; (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R) ; (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN) (SB-GMP::F SB-GMP::GF)) ; (SETF SB-GMP::C (SB-GMP::__GMPZ_REMOVE # # #)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> LET SB-SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN SETF SETQ THE IF - ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4750 ; #:SIZE4751))) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; 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 (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; etc. ; (SETF SB-GMP::C ; (SB-GMP::__GMPZ_REMOVE (ADDR SB-GMP::R) (ADDR SB-GMP::GN) ; (ADDR SB-GMP::GF))) ; ==> ; (SETQ SB-GMP::C ; (SB-GMP::__GMPZ_REMOVE (ADDR SB-GMP::R) (ADDR SB-GMP::GN) ; (ADDR SB-GMP::GF))) ; ; note: doing unsigned word to integer coercion (cost 20) to C ; compiling (DEFUN SETUP-5.1-STUBS ...) ; compiling (DEFGMPFUN MPZ-BIN ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFGMPFUN MPZ-BIN ; (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::R) ; (SB-GMP::WITH-MPZ-VARS ((SB-GMP::N SB-GMP::GN)) ; (SB-GMP::__GMPZ_BIN_UI (ADDR SB-GMP::R) (ADDR SB-GMP::GN) SB-GMP::K))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> LET SB-SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN SETF SETQ THE IF - ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::R 'SB-GMP::MP_D) #:RESULT4991 ; #:SIZE4992))) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; 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 (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; etc. ; compiling (DEFGMPFUN MPZ-FIB2 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFGMPFUN MPZ-FIB2 ; (SB-GMP::WITH-GMP-MPZ-RESULTS (SB-GMP::FIBN SB-GMP::FIBN-1) ; (SB-GMP::__GMPZ_FIB2_UI (ADDR SB-GMP::FIBN) (ADDR SB-GMP::FIBN-1) ; SB-GMP::N)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET LET LET SB-SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN SETF ; --> SETQ THE IF - ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FIBN 'SB-GMP::MP_D) #:RESULT5103 ; #:SIZE5104))) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FIBN-1 'SB-GMP::MP_D) ; #:RESULT5105 #:SIZE5106))) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FIBN 'SB-GMP::MP_D) #:RESULT5103 ; #:SIZE5104))) ; ; 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 (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; etc. ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::FIBN-1 'SB-GMP::MP_D) ; #:RESULT5105 #:SIZE5106))) ; ; 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 (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; etc. ; compiling (DEFINE-ALIEN-TYPE NIL ...) ; compiling (DECLAIM (INLINE __GMP_RANDINIT_MT ...)) ; compiling (DEFINE-ALIEN-ROUTINE __GMP_RANDINIT_MT ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMP_RANDINIT_LC_2EXP ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMP_RANDSEED ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMP_RANDSEED_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_URANDOMB ...) ; compiling (DEFINE-ALIEN-ROUTINE __GMPZ_URANDOMM ...) ; compiling (DEFSTRUCT (GMP-RSTATE #) ...) ; compiling (DECLAIM (SB-EXT:MAYBE-INLINE MAKE-GMP-RSTATE ...)) ; compiling (DEFUN MAKE-GMP-RSTATE ...) ; compiling (DEFUN MAKE-GMP-RSTATE-LC ...) ; compiling (DEFUN RAND-SEED ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFUN RAND-SEED ; (TYPEP SB-GMP::SEED '(INTEGER 0 *)) ; --> LET SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 18446744073709551616)), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 18446744073709551616)), not a FIXNUM. ; etc. ; compiling (DEFUN RANDOM-BITCOUNT ...) ; compiling (DEFUN RANDOM-INT ...) ; compiling (DECLAIM (INLINE %LSIZE)) ; compiling (DEFUN %LSIZE ...) ; compiling (DEFMACRO WITH-MPQ-VAR ...) ; compiling (DEFMACRO DEFMPQFUN ...) ; compiling (DEFMPQFUN MPQ-ADD ...) ; compiling (DEFMPQFUN MPQ-SUB ...) ; compiling (DEFMPQFUN MPQ-MUL ...) ; compiling (DEFMPQFUN MPQ-DIV ...) ; compiling (DEF ORIG-MUL ...) ; compiling (DEF ORIG-TRUNCATE ...) ; compiling (DEF ORIG-GCD ...) ; compiling (DEF ORIG-LCM ...) ; compiling (DEF ORIG-ISQRT ...) ; compiling (DEF ORIG-TWO-ARG-+ ...) ; compiling (DEF ORIG-TWO-ARG-- ...) ; compiling (DEF ORIG-TWO-ARG-* ...) ; compiling (DEF ORIG-TWO-ARG-/ ...) ; compiling (DEF ORIG-INTEXP ...) ; compiling (DEFUN GMP-MUL ...) ; compiling (DEFUN GMP-TRUNCATE ...) ; compiling (DEFUN GMP-LCM ...) ; compiling (DEFUN GMP-ISQRT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFUN GMP-ISQRT ; (DEFUN SB-GMP::GMP-ISQRT (SB-GMP::N) ; (DECLARE (OPTIMIZE (SPEED 3) (SPACE 3)) ; (TYPE UNSIGNED-BYTE SB-GMP::N) ; (INLINE SB-GMP:MPZ-SQRT)) ; (IF (OR (TYPEP SB-GMP::N 'FIXNUM) SB-GMP:*GMP-DISABLED*) ; (SB-GMP::ORIG-ISQRT SB-GMP::N) ; (SB-GMP:MPZ-SQRT SB-GMP::N))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB-C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFUN GMP-TWO-ARG-+ ...) ; compiling (DEFUN GMP-TWO-ARG-- ...) ; compiling (DEFUN GMP-TWO-ARG-* ...) ; compiling (DEFUN GMP-TWO-ARG-/ ...) ; compiling (DEFUN GMP-INTEXP ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-gmp/gmp.lisp ; in: DEFUN GMP-INTEXP ; (SB-GMP:MPZ-POW SB-GMP::BASE SB-GMP::POWER) ; --> BLOCK SB-GMP::WITH-GMP-MPZ-RESULTS WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET LET ; --> SB-SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN SETF SETQ THE IF - ; ==> ; (SB-KERNEL:%NEGATE ; (THE NUMBER ; (SB-GMP::GMP-Z-TO-BIGNUM (SLOT SB-GMP::ROP 'SB-GMP::MP_D) #:RESULT9544 ; #:SIZE9545))) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; 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 (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; etc. ; compiling (DEFMACRO WITH-PACKAGE-LOCKS-IGNORED ...) ; compiling (DEFUN INSTALL-GMP-FUNS ...) ; compiling (DEFUN UNINSTALL-GMP-FUNS ...) ; compiling (DEFUN LOAD-GMP ...) ; compiling (DEFUN UNLOAD-GMP ...) ; compiling (LOAD-GMP) ; SYS:CONTRIB;SB-GMP;GMP-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:02.398 WARNING: Lisp compilation had style-warnings while compiling # WARNING: GMP not loaded. STYLE-WARNING: Undefined alien: "__gmpz_init" STYLE-WARNING: Undefined alien: "__gmpz_clear" STYLE-WARNING: Undefined alien: "__gmpz_sqrt" STYLE-WARNING: Undefined alien: "__gmpz_nextprime" STYLE-WARNING: Undefined alien: "__gmpz_add" STYLE-WARNING: Undefined alien: "__gmpz_sub" STYLE-WARNING: Undefined alien: "__gmpz_mul" STYLE-WARNING: Undefined alien: "__gmpz_mod" STYLE-WARNING: Undefined alien: "__gmpz_gcd" STYLE-WARNING: Undefined alien: "__gmpz_lcm" STYLE-WARNING: Undefined alien: "__gmpz_cdiv_qr" STYLE-WARNING: Undefined alien: "__gmpz_fdiv_qr" STYLE-WARNING: Undefined alien: "__gmpz_tdiv_qr" STYLE-WARNING: Undefined alien: "__gmpz_powm" STYLE-WARNING: Undefined alien: "__gmpz_mul_2exp" STYLE-WARNING: Undefined alien: "__gmpz_fdiv_q_2exp" STYLE-WARNING: Undefined alien: "__gmpz_pow_ui" STYLE-WARNING: Undefined alien: "__gmpz_probab_prime_p" STYLE-WARNING: Undefined alien: "__gmpz_fac_ui" STYLE-WARNING: Undefined alien: "__gmpz_2fac_ui" STYLE-WARNING: Undefined alien: "__gmpz_mfac_uiui" STYLE-WARNING: Undefined alien: "__gmpz_primorial_ui" STYLE-WARNING: Undefined alien: "__gmpz_remove" STYLE-WARNING: Undefined alien: "__gmpz_bin_ui" STYLE-WARNING: Undefined alien: "__gmpz_fib2_ui" STYLE-WARNING: Undefined alien: "__gmpq_add" STYLE-WARNING: Undefined alien: "__gmpq_sub" STYLE-WARNING: Undefined alien: "__gmpq_mul" STYLE-WARNING: Undefined alien: "__gmpq_div" STYLE-WARNING: Undefined alien: "__gmp_randinit_mt" STYLE-WARNING: Undefined alien: "__gmp_randinit_lc_2exp" STYLE-WARNING: Undefined alien: "__gmp_randseed" STYLE-WARNING: Undefined alien: "__gmp_randseed_ui" STYLE-WARNING: Undefined alien: "__gmpz_urandomb" STYLE-WARNING: Undefined alien: "__gmpz_urandomm" STYLE-WARNING: Undefined alien: "__gmp_version" WARNING: GMP not loaded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 29 notes * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-gmp")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN WARNING: GMP not loaded. STYLE-WARNING: Undefined alien: "__gmpz_init" STYLE-WARNING: Undefined alien: "__gmpz_clear" STYLE-WARNING: Undefined alien: "__gmpz_sqrt" STYLE-WARNING: Undefined alien: "__gmpz_nextprime" STYLE-WARNING: Undefined alien: "__gmpz_add" STYLE-WARNING: Undefined alien: "__gmpz_sub" STYLE-WARNING: Undefined alien: "__gmpz_mul" STYLE-WARNING: Undefined alien: "__gmpz_mod" STYLE-WARNING: Undefined alien: "__gmpz_gcd" STYLE-WARNING: Undefined alien: "__gmpz_lcm" STYLE-WARNING: Undefined alien: "__gmpz_cdiv_qr" STYLE-WARNING: Undefined alien: "__gmpz_fdiv_qr" STYLE-WARNING: Undefined alien: "__gmpz_tdiv_qr" STYLE-WARNING: Undefined alien: "__gmpz_powm" STYLE-WARNING: Undefined alien: "__gmpz_mul_2exp" STYLE-WARNING: Undefined alien: "__gmpz_fdiv_q_2exp" STYLE-WARNING: Undefined alien: "__gmpz_pow_ui" STYLE-WARNING: Undefined alien: "__gmpz_probab_prime_p" STYLE-WARNING: Undefined alien: "__gmpz_fac_ui" STYLE-WARNING: Undefined alien: "__gmpz_2fac_ui" STYLE-WARNING: Undefined alien: "__gmpz_mfac_uiui" STYLE-WARNING: Undefined alien: "__gmpz_primorial_ui" STYLE-WARNING: Undefined alien: "__gmpz_remove" STYLE-WARNING: Undefined alien: "__gmpz_bin_ui" STYLE-WARNING: Undefined alien: "__gmpz_fib2_ui" STYLE-WARNING: Undefined alien: "__gmpq_add" STYLE-WARNING: Undefined alien: "__gmpq_sub" STYLE-WARNING: Undefined alien: "__gmpq_mul" STYLE-WARNING: Undefined alien: "__gmpq_div" STYLE-WARNING: Undefined alien: "__gmp_randinit_mt" STYLE-WARNING: Undefined alien: "__gmp_randinit_lc_2exp" STYLE-WARNING: Undefined alien: "__gmp_randseed" STYLE-WARNING: Undefined alien: "__gmp_randseed_ui" STYLE-WARNING: Undefined alien: "__gmpz_urandomb" STYLE-WARNING: Undefined alien: "__gmpz_urandomm" STYLE-WARNING: Undefined alien: "__gmp_version" WARNING: GMP not loaded. WARNING: unable to test sb-gmp: libgmp unavailable * /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-grovel :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-grovel.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-grovel")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-grovel/module-setup.lisp" (written 28 JUL 2014 05:10:28 AM): ; compiling (PROVIDE :SB-GROVEL) ; compiling (REQUIRE :ASDF) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-grovel/module-setup.fasl written ; compilation finished in 0:00:00.951 * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-grovel")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN * /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-introspect :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-introspect.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-introspect")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-introspect/module-setup.lisp" (written 28 JUL 2014 05:10:32 AM): ; compiling (PROVIDE :SB-INTROSPECT) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-introspect/module-setup.fasl written ; compilation finished in 0:00:00.006 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-introspect/introspect.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-introspect/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 ; ==> ; (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 VOP-SOURCES-FROM-FUN-TEMPLATES ...) ; compiling (DEFUN FIND-VOP-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 (SB-INT:DEFINE-DEPRECATED-FUNCTION :LATE ...) ; compiling (DEFUN FUNCTION-LAMBDA-LIST ...) ; compiling (DEFUN DEFTYPE-LAMBDA-LIST ...) ; compiling (DEFUN FUNCTION-TYPE ...) ; 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 CALL-WITH-EACH-GLOBAL-FUNCTOID ...) ; 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 (DEFUN WHO-SPECIALIZES-DIRECTLY ...) ; compiling (DEFUN WHO-SPECIALIZES-GENERALLY ...) ; compiling (DEFUN CANONICALIZE-CLASS-DESIGNATOR ...) ; compiling (DEFUN METHOD-GENERIC-FUNCTION-NAME ...) ; compiling (DEFUN COLLECT-SPECIALIZING-METHODS ...) ; compiling (DEFUN ALLOCATION-INFORMATION ...) ; compiling (DEFUN MAP-ROOT ...) ; SYS:CONTRIB;SB-INTROSPECT;INTROSPECT-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.357 ; ; compilation unit finished ; printed 1 note * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-introspect")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-introspect/xref-test-data.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE :SB-INTROSPECT-TEST/XREF ...) ; compiling (IN-PACKAGE :SB-INTROSPECT-TEST/XREF) ; compiling (DEFVAR *A* ...) ; compiling (DEFCONSTANT +Z+ ...) ; compiling (DEFUN FOO ...) ; compiling (DEFUN BAR ...) ; compiling (DEFUN XREF/1 ...) ; compiling (DEFUN XREF/2 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-introspect/xref-test-data.lisp ; in: DEFUN XREF/2 ; (SB-INTROSPECT-TEST/XREF::XREF/1) ; ; note: deleting unreachable code ; compiling (LET (#) ...) ; compiling (FLET (#) ...) ; compiling (DEFUN XREF/7 ...) ; compiling (LET (#) ...) ; compiling (DEFVAR *C* ...) ; compiling (DEFUN XREF/8 ...) ; compiling (DEFMETHOD XREF/10 ...) ; compiling (DEFMETHOD XREF/11 ...) ; compiling (DEFMETHOD XREF/11 ...) ; compiling (DECLAIM (INLINE INLINE/1)) ; compiling (DEFUN INLINE/1 ...) ; compiling (DEFUN XREF/12 ...) ; compiling (DEFUN XREF/13 ...) ; compiling (DEFUN XREF/14 ...) ; compiling (DEFMACRO MACRO/1 ...) ; 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 ...) ; compiling (DECLAIM (INLINE INLINE/3)) ; compiling (DEFUN INLINE/3 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-introspect/xref-test-data.lisp ; in: DEFUN INLINE/3 ; (DEFUN SB-INTROSPECT-TEST/XREF::INLINE/3 ; (SB-INTROSPECT-TEST/XREF::A ; &OPTIONAL SB-INTROSPECT-TEST/XREF::B ; &KEY SB-INTROSPECT-TEST/XREF::C SB-INTROSPECT-TEST/XREF::D) ; (LIST SB-INTROSPECT-TEST/XREF::A SB-INTROSPECT-TEST/XREF::B ; SB-INTROSPECT-TEST/XREF::C SB-INTROSPECT-TEST/XREF::D)) ; --> PROGN ; ==> ; (SB-IMPL::%DEFUN 'SB-INTROSPECT-TEST/XREF::INLINE/3 ; (SB-INT:NAMED-LAMBDA SB-INTROSPECT-TEST/XREF::INLINE/3 ; (SB-INTROSPECT-TEST/XREF::A &OPTIONAL ; SB-INTROSPECT-TEST/XREF::B &KEY ; SB-INTROSPECT-TEST/XREF::C SB-INTROSPECT-TEST/XREF::D) ; (BLOCK SB-INTROSPECT-TEST/XREF::INLINE/3 ; (LIST SB-INTROSPECT-TEST/XREF::A ; SB-INTROSPECT-TEST/XREF::B ; SB-INTROSPECT-TEST/XREF::C ; SB-INTROSPECT-TEST/XREF::D))) ; NIL ; '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL ; (SB-INTROSPECT-TEST/XREF::A &OPTIONAL ; SB-INTROSPECT-TEST/XREF::B &KEY ; SB-INTROSPECT-TEST/XREF::C SB-INTROSPECT-TEST/XREF::D) ; (BLOCK SB-INTROSPECT-TEST/XREF::INLINE/3 ; (LIST SB-INTROSPECT-TEST/XREF::A ; SB-INTROSPECT-TEST/XREF::B ; SB-INTROSPECT-TEST/XREF::C ; SB-INTROSPECT-TEST/XREF::D))) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D) ; compiling (DEFUN INLINE/3-USER/1 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-introspect/xref-test-data.lisp ; in: DEFUN INLINE/3-USER/1 ; (SB-INTROSPECT-TEST/XREF::INLINE/3 SB-INTROSPECT-TEST/XREF::A) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D) ; compiling (DEFUN INLINE/3-USER/2 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-introspect/xref-test-data.lisp ; in: DEFUN INLINE/3-USER/2 ; (SB-INTROSPECT-TEST/XREF::INLINE/3 SB-INTROSPECT-TEST/XREF::A ; SB-INTROSPECT-TEST/XREF::B) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D) ; compiling (DEFUN INLINE/3-USER/3 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-introspect/xref-test-data.lisp ; in: DEFUN INLINE/3-USER/3 ; (SB-INTROSPECT-TEST/XREF::INLINE/3 SB-INTROSPECT-TEST/XREF::A ; SB-INTROSPECT-TEST/XREF::B :C SB-INTROSPECT-TEST/XREF::C) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D) ; compiling (DEFUN INLINE/3-USER/4 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-introspect/xref-test-data.lisp ; in: DEFUN INLINE/3-USER/4 ; (SB-INTROSPECT-TEST/XREF::INLINE/3 SB-INTROSPECT-TEST/XREF::A ; SB-INTROSPECT-TEST/XREF::B :D SB-INTROSPECT-TEST/XREF::D :C ; SB-INTROSPECT-TEST/XREF::C) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C D) ; compiling (DECLAIM (INLINE INLINE/4)) ; compiling (DEFUN INLINE/4 ...) ; compiling (DEFUN INLINE/4-USER ...) ; compiling (DEFINE-COMPILER-MACRO CMACRO ...) ; compiling (DEFSTRUCT STRUCT ...) ; compiling (DEFUN SOURCE-USER ...) ; compiling (DEFCLASS A-CLASS ...) ; compiling (DEFCLASS A-SUBCLASS ...) ; compiling (DEFSTRUCT A-STRUCTURE) ; compiling (DEFSTRUCT (A-SUBSTRUCTURE #)) ; compiling (DEFVAR *AN-INSTANCE-OF-A-CLASS* ...) ; compiling (DEFVAR *AN-INSTANCE-OF-A-SUBCLASS* ...) ; compiling (DEFVAR *AN-INSTANCE-OF-A-STRUCTURE* ...) ; compiling (DEFVAR *AN-INSTANCE-OF-A-SUBSTRUCTURE* ...) ; compiling (DEFMETHOD A-GF-1 ...) ; compiling (DEFMETHOD A-GF-1 ...) ; compiling (DEFMETHOD A-GF-2 ...) ; compiling (DEFMETHOD A-GF-2 ...) ; compiling (DEFMETHOD A-GF-3 ...) ; compiling (DEFMETHOD A-GF-3 ...) ; SYS:CONTRIB;SB-INTROSPECT;XREF-TEST-DATA-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:01.016 WARNING: Lisp compilation had style-warnings while compiling # STYLE-WARNING: Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::XREF/10. STYLE-WARNING: Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::XREF/11. STYLE-WARNING: Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::A-GF-1. STYLE-WARNING: Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::A-GF-2. STYLE-WARNING: Implicitly creating new generic function SB-INTROSPECT-TEST/XREF::A-GF-3. ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-introspect/xref-test.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE :SB-INTROSPECT-TEST/XREF) ; compiling (DEFMACRO DEFINE-XREF-TEST ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.1 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.2 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.3 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.4 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.5 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.6 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.7 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.8 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.9 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.10 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.11 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.12 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.13 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.14 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.15 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.16 ...) ; compiling (DEFINE-XREF-TEST WHO-MACROEXPANDS.1 ...) ; compiling (DEFINE-XREF-TEST WHO-BINDS.1 ...) ; compiling (DEFINE-XREF-TEST WHO-SETS.1 ...) ; compiling (DEFINE-XREF-TEST WHO-REFERENCES.1 ...) ; compiling (DEFINE-XREF-TEST WHO-REFERENCES.2 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.STRUCT-SLOT.1 ...) ; compiling (DEFINE-XREF-TEST WHO-CALLS.CMACRO.1 ...) ; compiling (DEFINE-XREF-TEST WHO-SPECIALIZES-DIRECTLY.1 ...) ; compiling (DEFINE-XREF-TEST WHO-SPECIALIZES-DIRECTLY.2 ...) ; compiling (DEFINE-XREF-TEST WHO-SPECIALIZES-GENERALLY.1 ...) ; compiling (DEFINE-XREF-TEST WHO-SPECIALIZES-GENERALLY.2 ...) ; SYS:CONTRIB;SB-INTROSPECT;XREF-TEST-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.010 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-introspect/test.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; compiling (DEFGLOBAL **GLOBAL** ...) ; SYS:CONTRIB;SB-INTROSPECT;TEST-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.083 STYLE-WARNING: Implicitly creating new generic function COMMON-LISP-USER::J. STYLE-WARNING: Implicitly creating new generic function (COMMON-LISP:SETF COMMON-LISP-USER::P). STYLE-WARNING: redefining SB-INTROSPECT::FUNCTION-DEBUG-INFO in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::FUNCTION-DEBUG-SOURCE in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::DEBUG-INFO-SOURCE in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::DEBUG-INFO-DEBUG-FUNCTION in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:VALID-FUNCTION-NAME-P in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::COPY-DEFINITION-SOURCE in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::DEFINITION-SOURCE-P in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:DEFINITION-SOURCE-PATHNAME in DEFUN STYLE-WARNING: redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-PATHNAME) in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:DEFINITION-SOURCE-FORM-PATH in DEFUN STYLE-WARNING: redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-FORM-PATH) in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:DEFINITION-SOURCE-CHARACTER-OFFSET in DEFUN STYLE-WARNING: redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-CHARACTER-OFFSET) in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:DEFINITION-SOURCE-FILE-WRITE-DATE in DEFUN STYLE-WARNING: redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-FILE-WRITE-DATE) in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:DEFINITION-SOURCE-PLIST in DEFUN STYLE-WARNING: redefining (COMMON-LISP:SETF SB-INTROSPECT:DEFINITION-SOURCE-PLIST) in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::DEFINITION-SOURCE-DESCRIPTION in DEFUN STYLE-WARNING: redefining (COMMON-LISP:SETF SB-INTROSPECT::DEFINITION-SOURCE-DESCRIPTION) in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::MAKE-DEFINITION-SOURCE in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::VOP-SOURCES-FROM-FUN-TEMPLATES in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::FIND-VOP-SOURCE in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:FIND-DEFINITION-SOURCES-BY-NAME in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:FIND-DEFINITION-SOURCE in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::FIND-FUNCTION-DEFINITION-SOURCE in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::TRANSLATE-SOURCE-LOCATION in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:FUNCTION-ARGLIST in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:FUNCTION-LAMBDA-LIST in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:DEFTYPE-LAMBDA-LIST in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:FUNCTION-TYPE in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:FIND-FUNCTION-CALLEES in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:FIND-FUNCTION-CALLERS in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::MAP-CODE-CONSTANTS in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::MAP-ALLOCATED-CODE-COMPONENTS in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::MAP-CALLER-CODE-COMPONENTS in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::GET-SIMPLE-FUN in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::CALL-WITH-EACH-GLOBAL-FUNCTOID in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::COLLECT-XREF in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:WHO-CALLS in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:WHO-BINDS in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:WHO-REFERENCES in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:WHO-SETS in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:WHO-MACROEXPANDS in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:WHO-SPECIALIZES-DIRECTLY in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:WHO-SPECIALIZES-GENERALLY in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::CANONICALIZE-CLASS-DESIGNATOR in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::METHOD-GENERIC-FUNCTION-NAME in DEFUN STYLE-WARNING: redefining SB-INTROSPECT::COLLECT-SPECIALIZING-METHODS in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:ALLOCATION-INFORMATION in DEFUN STYLE-WARNING: redefining SB-INTROSPECT:MAP-ROOT in DEFUN STYLE-WARNING: redefining SB-RT::PEND in DEFUN STYLE-WARNING: redefining (COMMON-LISP:SETF SB-RT::PEND) in DEFUN STYLE-WARNING: redefining SB-RT::NAME in DEFUN STYLE-WARNING: redefining (COMMON-LISP:SETF SB-RT::NAME) in DEFUN STYLE-WARNING: redefining SB-RT::FORM in DEFUN STYLE-WARNING: redefining (COMMON-LISP:SETF SB-RT::FORM) in DEFUN STYLE-WARNING: redefining SB-RT::MAKE-ENTRY in DEFUN STYLE-WARNING: redefining SB-RT::VALS in DEFMACRO STYLE-WARNING: redefining SB-RT::DEFN in DEFMACRO STYLE-WARNING: redefining SB-RT:PENDING-TESTS in DEFUN STYLE-WARNING: redefining SB-RT:REM-ALL-TESTS in DEFUN STYLE-WARNING: redefining SB-RT:REM-TEST in DEFUN STYLE-WARNING: redefining SB-RT:GET-TEST in DEFUN STYLE-WARNING: redefining SB-RT::GET-ENTRY in DEFUN STYLE-WARNING: redefining SB-RT:DEFTEST in DEFMACRO STYLE-WARNING: redefining SB-RT::ADD-ENTRY in DEFUN STYLE-WARNING: redefining SB-RT::REPORT-ERROR in DEFUN STYLE-WARNING: redefining SB-RT:DO-TEST in DEFUN STYLE-WARNING: redefining SB-RT::EQUALP-WITH-CASE in DEFUN STYLE-WARNING: redefining SB-RT::DO-ENTRY in DEFUN STYLE-WARNING: redefining SB-RT:CONTINUE-TESTING in DEFUN STYLE-WARNING: redefining SB-RT:DO-TESTS in DEFUN STYLE-WARNING: redefining SB-RT::DO-ENTRIES in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-introspect/test-driver.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE :SB-INTROSPECT-TEST ...) ; compiling (IN-PACKAGE :SB-INTROSPECT-TEST) ; compiling (DEFMACRO DEFTEST* ...) ; compiling (DEFTEST FUNCTION-LAMBDA-LIST.1 ...) ; compiling (DEFTEST FUNCTION-LAMBDA-LIST.2 ...) ; compiling (DEFTEST FUNCTION-LAMBDA-LIST.3 ...) ; compiling (DEFTEST DEFINITION-SOURCE-PLIST.1 ...) ; compiling (DEFTEST DEFINITION-SOURCE-PLIST.2 ...) ; compiling (DEFUN MATCHP ...) ; compiling (DEFUN MATCHP-NAME ...) ; compiling (DEFUN MATCHP-LENGTH ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.1 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.2 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.3 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.4 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.5 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.6 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.7 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.8 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.9 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.10 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.11 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.12 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.13 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.14 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.15 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.16 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.17 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.18 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.19 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.20 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.21 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.22 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.23 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.24 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.25 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.26 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.27 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.28 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.29 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.30 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.31 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.32 ...) ; compiling (DEFTEST FIND-SOURCE-STUFF.33 ...) ; compiling (DEFGENERIC XUUQ ...) ; compiling (DEFMETHOD XUUQ ...) ; compiling (DEFMETHOD XUUQ ...) ; compiling (DEFTEST GF-INTERPLAY.1 ...) ; compiling (DEFMETHOD KROOLZ ...) ; compiling (DEFTEST GF-INTERPLAY.2 ...) ; compiling (DEFTYPE FOOBAR-TYPE ...) ; compiling (DEFTEST DEFTYPE-LAMBDA-LIST.1 ...) ; compiling (DEFTEST DEFTYPE-LAMBDA-LIST.2 ...) ; compiling (DEFTEST DEFTYPE-LAMBDA-LIST.3 ...) ; compiling (DEFTEST DEFTYPE-LAMBDA-LIST.4 ...) ; compiling (DEFUN TAI ...) ; compiling (DEFTEST ALLOCATION-INFROMATION.1 ...) ; compiling (DEFTEST ALLOCATION-INFORMATION.2 ...) ; compiling (DEFTEST ALLOCATION-INFORMATION.3 ...) ; compiling (DEFTEST ALLOCATION-INFORMATION.3B ...) ; compiling (DEFTEST* (ALLOCATION-INFORMATION.4 :FAILS-ON ...) ...) ; compiling (DEFTEST ALLOCATION-INFORMATION.THREAD.1 ...) ; compiling (DEFUN THREAD-TAI ...) ; compiling (DEFTEST ALLOCATION-INFORMATION.THREAD.2 ...) ; compiling (DEFUN THREAD-TAI2 ...) ; compiling (DEFTEST ALLOCATION-INFORMATION.THREAD.3 ...) ; compiling (DEFUN TYPE-EQUAL ...) ; compiling (DEFMACRO INTERPRET ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MOON ...) ; compiling (DEFTEST FUNCTION-TYPE.1 ...) ; compiling (DEFUN SUN ...) ; compiling (DEFTEST FUNCTION-TYPE.2 ...) ; compiling (DEFTEST FUNCTION-TYPE.5 ...) ; compiling (DEFTEST FUNCTION-TYPE.6 ...) ; compiling (DEFTEST FUNCTION-TYPE.7 ...) ; compiling (DEFTEST FUNCTION-TYPE.8 ...) ; compiling (DEFGENERIC EARTH ...) ; compiling (DEFTEST FUNCTION-TYPE+GFS.1 ...) ; compiling (DEFMETHOD MARS ...) ; compiling (DEFSTRUCT (STRUCT # ...) ...) ; compiling (DEFTEST FUNCTION-TYPE+DEFSTRUCT.2 ...) ; compiling (DEFTEST FUNCTION-TYPE+DEFSTRUCT.3 ...) ; compiling (DEFSTRUCT (TYPED-STRUCT :NAMED ...) ...) ; compiling (DEFTEST FUNCTION-TYPE+DEFSTRUCT.4 ...) ; compiling (DEFTEST FUNCTION-TYPE+DEFSTRUCT.5 ...) ; compiling (DEFUN (SETF SUN) ...) ; compiling (DEFTEST FUNCTION-TYPE+SETF.1 ...) ; compiling (DEFTEST FUNCTION-TYPE+MISC.1 ...) ; compiling (DEFTEST DEFSTRUCT-FUN-SOURCES ...) ; compiling (DEFTEST DEFSTRUCT-FUN-SOURCES-BY-NAME ...) ; SYS:CONTRIB;SB-INTROSPECT;TEST-DRIVER-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.095 STYLE-WARNING: Implicitly creating new generic function SB-INTROSPECT-TEST::KROOLZ. STYLE-WARNING: Implicitly creating new generic function SB-INTROSPECT-TEST::MARS. Doing 94 pending tests of 94 tests total. SB-INTROSPECT-TEST/XREF::WHO-CALLS.1 SB-INTROSPECT-TEST/XREF::WHO-CALLS.2 SB-INTROSPECT-TEST/XREF::WHO-CALLS.3 SB-INTROSPECT-TEST/XREF::WHO-CALLS.4 SB-INTROSPECT-TEST/XREF::WHO-CALLS.5 SB-INTROSPECT-TEST/XREF::WHO-CALLS.6 SB-INTROSPECT-TEST/XREF::WHO-CALLS.7 SB-INTROSPECT-TEST/XREF::WHO-CALLS.8 SB-INTROSPECT-TEST/XREF::WHO-CALLS.9 SB-INTROSPECT-TEST/XREF::WHO-CALLS.10 SB-INTROSPECT-TEST/XREF::WHO-CALLS.11 SB-INTROSPECT-TEST/XREF::WHO-CALLS.12 SB-INTROSPECT-TEST/XREF::WHO-CALLS.13 SB-INTROSPECT-TEST/XREF::WHO-CALLS.14 SB-INTROSPECT-TEST/XREF::WHO-CALLS.15 SB-INTROSPECT-TEST/XREF::WHO-CALLS.16 SB-INTROSPECT-TEST/XREF::WHO-MACROEXPANDS.1 SB-INTROSPECT-TEST/XREF::WHO-BINDS.1 SB-INTROSPECT-TEST/XREF::WHO-SETS.1 SB-INTROSPECT-TEST/XREF::WHO-REFERENCES.1 SB-INTROSPECT-TEST/XREF::WHO-REFERENCES.2 SB-INTROSPECT-TEST/XREF::WHO-CALLS.STRUCT-SLOT.1 SB-INTROSPECT-TEST/XREF::WHO-CALLS.CMACRO.1 SB-INTROSPECT-TEST/XREF::WHO-SPECIALIZES-DIRECTLY.1 SB-INTROSPECT-TEST/XREF::WHO-SPECIALIZES-DIRECTLY.2 SB-INTROSPECT-TEST/XREF::WHO-SPECIALIZES-GENERALLY.1 SB-INTROSPECT-TEST/XREF::WHO-SPECIALIZES-GENERALLY.2 SB-INTROSPECT-TEST::FUNCTION-LAMBDA-LIST.1 SB-INTROSPECT-TEST::FUNCTION-LAMBDA-LIST.2 SB-INTROSPECT-TEST::FUNCTION-LAMBDA-LIST.3 SB-INTROSPECT-TEST::DEFINITION-SOURCE-PLIST.1 SB-INTROSPECT-TEST::DEFINITION-SOURCE-PLIST.2 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.1 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.2 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.3 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.4 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.5 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.6 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.7 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.8 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.9 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.10 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.11 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.12 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.13 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.14 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.15 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.16 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.17 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.18 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.19 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.20 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.21 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.22 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.23 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.24 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.25 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.26 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.27 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.28 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.29 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.30 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.31 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.32 SB-INTROSPECT-TEST::FIND-SOURCE-STUFF.33 SB-INTROSPECT-TEST::GF-INTERPLAY.1 SB-INTROSPECT-TEST::GF-INTERPLAY.2 SB-INTROSPECT-TEST::DEFTYPE-LAMBDA-LIST.1 SB-INTROSPECT-TEST::DEFTYPE-LAMBDA-LIST.2 SB-INTROSPECT-TEST::DEFTYPE-LAMBDA-LIST.3 SB-INTROSPECT-TEST::DEFTYPE-LAMBDA-LIST.4 SB-INTROSPECT-TEST::ALLOCATION-INFROMATION.1 SB-INTROSPECT-TEST::ALLOCATION-INFORMATION.2 SB-INTROSPECT-TEST::ALLOCATION-INFORMATION.3 SB-INTROSPECT-TEST::ALLOCATION-INFORMATION.3B SB-INTROSPECT-TEST::ALLOCATION-INFORMATION.4 SB-INTROSPECT-TEST::ALLOCATION-INFORMATION.THREAD.1 SB-INTROSPECT-TEST::ALLOCATION-INFORMATION.THREAD.2 SB-INTROSPECT-TEST::ALLOCATION-INFORMATION.THREAD.3 SB-INTROSPECT-TEST::FUNCTION-TYPE.1 SB-INTROSPECT-TEST::FUNCTION-TYPE.2 SB-INTROSPECT-TEST::FUNCTION-TYPE.5 SB-INTROSPECT-TEST::FUNCTION-TYPE.6 SB-INTROSPECT-TEST::FUNCTION-TYPE.7 SB-INTROSPECT-TEST::FUNCTION-TYPE.8 SB-INTROSPECT-TEST::FUNCTION-TYPE+GFS.1 SB-INTROSPECT-TEST::FUNCTION-TYPE+DEFSTRUCT.2 SB-INTROSPECT-TEST::FUNCTION-TYPE+DEFSTRUCT.3 SB-INTROSPECT-TEST::FUNCTION-TYPE+DEFSTRUCT.4 SB-INTROSPECT-TEST::FUNCTION-TYPE+DEFSTRUCT.5 SB-INTROSPECT-TEST::FUNCTION-TYPE+SETF.1 SB-INTROSPECT-TEST::FUNCTION-TYPE+MISC.1 SB-INTROSPECT-TEST::DEFSTRUCT-FUN-SOURCES SB-INTROSPECT-TEST::DEFSTRUCT-FUN-SOURCES-BY-NAME No tests failed. ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; printed 1 note * /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-md5 :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-md5.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-md5")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-md5/module-setup.lisp" (written 28 JUL 2014 05:10:37 AM): ; compiling (PROVIDE :SB-MD5) ; compiling (REQUIRE :SB-ROTATE-BYTE) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-md5/module-setup.fasl written ; compilation finished in 0:00:00.922 * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-md5")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-md5/md5-tests.lisp" (written 28 JUN 2014 03:46:25 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 ...) ; SYS:CONTRIB;SB-MD5;MD5-TESTS-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.969 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. * /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-mpfr :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-mpfr.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-mpfr")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-mpfr/module-setup.lisp" (written 28 JUL 2014 05:10:41 AM): ; compiling (PROVIDE :SB-MPFR) ; compiling (REQUIRE :SB-GMP) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-mpfr/module-setup.fasl written ; compilation finished in 0:00:00.003 WARNING: GMP not loaded. STYLE-WARNING: Undefined alien: "__gmpz_init" STYLE-WARNING: Undefined alien: "__gmpz_clear" STYLE-WARNING: Undefined alien: "__gmpz_sqrt" STYLE-WARNING: Undefined alien: "__gmpz_nextprime" STYLE-WARNING: Undefined alien: "__gmpz_add" STYLE-WARNING: Undefined alien: "__gmpz_sub" STYLE-WARNING: Undefined alien: "__gmpz_mul" STYLE-WARNING: Undefined alien: "__gmpz_mod" STYLE-WARNING: Undefined alien: "__gmpz_gcd" STYLE-WARNING: Undefined alien: "__gmpz_lcm" STYLE-WARNING: Undefined alien: "__gmpz_cdiv_qr" STYLE-WARNING: Undefined alien: "__gmpz_fdiv_qr" STYLE-WARNING: Undefined alien: "__gmpz_tdiv_qr" STYLE-WARNING: Undefined alien: "__gmpz_powm" STYLE-WARNING: Undefined alien: "__gmpz_mul_2exp" STYLE-WARNING: Undefined alien: "__gmpz_fdiv_q_2exp" STYLE-WARNING: Undefined alien: "__gmpz_pow_ui" STYLE-WARNING: Undefined alien: "__gmpz_probab_prime_p" STYLE-WARNING: Undefined alien: "__gmpz_fac_ui" STYLE-WARNING: Undefined alien: "__gmpz_2fac_ui" STYLE-WARNING: Undefined alien: "__gmpz_mfac_uiui" STYLE-WARNING: Undefined alien: "__gmpz_primorial_ui" STYLE-WARNING: Undefined alien: "__gmpz_remove" STYLE-WARNING: Undefined alien: "__gmpz_bin_ui" STYLE-WARNING: Undefined alien: "__gmpz_fib2_ui" STYLE-WARNING: Undefined alien: "__gmpq_add" STYLE-WARNING: Undefined alien: "__gmpq_sub" STYLE-WARNING: Undefined alien: "__gmpq_mul" STYLE-WARNING: Undefined alien: "__gmpq_div" STYLE-WARNING: Undefined alien: "__gmp_randinit_mt" STYLE-WARNING: Undefined alien: "__gmp_randinit_lc_2exp" STYLE-WARNING: Undefined alien: "__gmp_randseed" STYLE-WARNING: Undefined alien: "__gmp_randseed_ui" STYLE-WARNING: Undefined alien: "__gmpz_urandomb" STYLE-WARNING: Undefined alien: "__gmpz_urandomm" STYLE-WARNING: Undefined alien: "__gmp_version" WARNING: GMP not loaded. ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-mpfr/mpfr.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE :SB-MPFR ...) ; compiling (IN-PACKAGE :SB-MPFR) ; compiling (DEFVAR +MPFR-PRECISION+) ; compiling (DEFVAR *MPFR-VERSION* ...) ; compiling (DEFVAR *MPFR-FEATURES* ...) ; compiling (DEFUN TRY-LOAD-SHARED-OBJECT ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-mpfr/mpfr.lisp ; in: DEFUN TRY-LOAD-SHARED-OBJECT ; (HANDLER-CASE (LOAD-SHARED-OBJECT PATHNAME :DONT-SAVE T) ; (ERROR (SB-MPFR::E) NIL)) ; --> SB-INT:DX-FLET ; ==> ; (FLET ((#:FORM-FUN-4 () ; (LOAD-SHARED-OBJECT PATHNAME :DONT-SAVE T)) ; (#:FUN1 (SB-MPFR::E) ; NIL)) ; (DECLARE ; (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION #:FORM-FUN-4) (FUNCTION #:FUN1))) ; (DECLARE (OPTIMIZE (SB-C::CHECK-TAG-EXISTENCE 0))) ; (BLOCK #:BLOCK2 ; (SB-INT:DX-LET ((#:CELL3 #)) ; (DECLARE (IGNORABLE #:CELL3)) ; (TAGBODY ; (SB-IMPL::%HANDLER-BIND # #) ; #:TAG0 ; (RETURN-FROM #:BLOCK2 #))))) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; compiling (DEFUN %LOAD-MPFR ...) ; compiling (DEFUN LOAD-MPFR ...) ; compiling (LOAD-MPFR) ; compiling (DEFINE-ALIEN-TYPE NIL ...) ; compiling (DEFINE-ALIEN-TYPE MPFR_RND_ENUM ...) ; compiling (DECLAIM (INLINE MPFR_INIT2 ...)) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_INIT2 ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_CLEAR ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_SI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_FLT ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_D ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_Z ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_Q ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_NAN ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_INF ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_ZERO ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_DEFAULT_PREC ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_STR ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-mpfr/mpfr.lisp ; in: DEFINE-ALIEN-ROUTINE MPFR_GET_STR ; (DEFINE-ALIEN-ROUTINE SB-MPFR::MPFR_GET_STR (* CHAR) (SB-MPFR::STR (* CHAR)) ; (SB-MPFR:EXP (* LONG)) (SB-MPFR::BASE INT) ; (SB-MPFR::N UNSIGNED) ; (SB-MPFR::X (* (STRUCT SB-MPFR::MPFRFLOAT))) ; (SB-MPFR::RND SB-MPFR::MPFR_RND_ENUM)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DECLAIM (INLINE MPFR_GET_FLT ...)) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_FLT ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_D ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_SI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_GET_Z ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_FREE_STR ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SET_STR ...) ; compiling (DECLAIM (INLINE MPFR_ADD ...)) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_SI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_D ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_Z ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_ADD_Q ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_UI_SUB ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SI_SUB ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_SI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_D_SUB ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_D ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_Z_SUB ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_Z ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUB_Q ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_SI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_D ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_Z ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_Q ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SQR ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_UI_DIV ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SI_DIV ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_SI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_D_DIV ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_D ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_Z ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_Q ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SQRT ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SQRT_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_REC_SQRT ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_CBRT ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_ROOT ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_POW ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_POW_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_POW_SI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_POW_Z ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_UI_POW ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_NEG ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_ABS ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIM ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_2UI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_MUL_2SI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_2UI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_DIV_2SI ...) ; compiling (DEFMACRO DEFINE-ONEARG-MPFR-INT ...) ; compiling (DEFINE-ONEARG-MPFR-INT (MPFR_LOG MPFR_LOG2 ...)) ; compiling (DEFMACRO DEFINE-TWOARG-MPFR-INT ...) ; compiling (DEFINE-TWOARG-MPFR-INT (MPFR_SIN_COS MPFR_ATAN2 ...)) ; compiling (DECLAIM (INLINE MPFR_FAC_UI ...)) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_FAC_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_ZETA_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_JN ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_YN ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_FMA ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_FMS ...) ; compiling (DEFMACRO DEFINE-CONST-MPFR-INT ...) ; compiling (DEFINE-CONST-MPFR-INT (MPFR_CONST_LOG2 MPFR_CONST_PI ...)) ; compiling (DECLAIM (INLINE MPFR_SUM)) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SUM ...) ; compiling (DECLAIM (INLINE MPFR_CMP ...)) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_UI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_SI ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_D ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_Z ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_Q ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_UI_2EXP ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMP_SI_2EXP ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_CMPABS ...) ; compiling (DEFMACRO DEFINE-ONEARG-MPFR-BOOL ...) ; compiling (DEFINE-ONEARG-MPFR-BOOL (MPFR_NAN_P MPFR_INF_P ...)) ; compiling (DECLAIM (INLINE MPFR_SGN)) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_SGN ...) ; compiling (DEFMACRO DEFINE-TWOARG-MPFR-BOOL ...) ; compiling (DEFINE-TWOARG-MPFR-BOOL (MPFR_GREATER_P MPFR_GREATEREQUAL_P ...)) ; compiling (DEFMACRO DEFINE-MPFR-VOID ...) ; compiling (DEFINE-MPFR-VOID (MPFR_CLEAR_UNDERFLOW MPFR_CLEAR_OVERFLOW ...)) ; compiling (DEFMACRO DEFINE-MPFR-BOOL ...) ; compiling (DEFINE-MPFR-BOOL (MPFR_UNDERFLOW_P MPFR_OVERFLOW_P ...)) ; compiling (DECLAIM (INLINE MPFR_URANDOMB ...)) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_URANDOMB ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_URANDOM ...) ; compiling (DEFINE-ONEARG-MPFR-INT (MPFR_RINT MPFR_RINT_CEIL ...)) ; compiling (DECLAIM (INLINE MPFR_CEIL ...)) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_CEIL ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_FLOOR ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_ROUND ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_TRUNC ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_MODF ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_FMOD ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_REMAINDER ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_REMQUO ...) ; compiling (DEFPARAMETER *MPFR-RND* ...) ; compiling (DEFPARAMETER *MPFR-BASE* ...) ; compiling (DECLAIM (INLINE MPFR-FLOAT-REF ...)) ; compiling (DEFSTRUCT (MPFR-FLOAT #) ...) ; compiling (DEFUN MAKE-MPFR-FLOAT ...) ; compiling (DEFMACRO WITH-PRECISION ...) ; compiling (DEFUN SET-PRECISION ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFUN MPFR-FLOAT-TO-STRING ...) ; compiling (DEFUN MPFR-READER ...) ; compiling (DEFUN ENABLE-MPFR-SYNTAX ...) ; compiling (ENABLE-MPFR-SYNTAX *READTABLE*) ; compiling (DEFUN ADD ...) ; compiling (DEFUN SUB ...) ; compiling (DEFUN MUL ...) ; compiling (DEFUN SQARE ...) ; compiling (DEFUN DIV ...) ; compiling (DEFUN SQRT ...) ; compiling (DEFUN RECIPROCAL-SQRT ...) ; compiling (DEFUN CUBIC-ROOT ...) ; compiling (DEFUN K-ROOT ...) ; compiling (DEFUN POWER ...) ; compiling (DEFUN NEGATE ...) ; compiling (DEFUN ABS ...) ; compiling (DEFUN DIM ...) ; compiling (DEFUN MUL-2-RAISED ...) ; compiling (DEFUN DIV-2-RAISED ...) ; compiling (DEFMACRO DEFINE-ONEARG-MPFR-FUNS ...) ; compiling (DEFINE-ONEARG-MPFR-FUNS (# # ...)) ; compiling (DEFUN ATAN ...) ; compiling (DEFUN SIN-COS ...) ; compiling (DEFUN SINH-COSH ...) ; compiling (DEFUN ARITHMETIC-GEOMETRIC-MEAN ...) ; compiling (DEFUN HYPOT ...) ; compiling (DEFUN FAC ...) ; compiling (DEFUN ZETA ...) ; compiling (DEFUN JN ...) ; compiling (DEFUN YN ...) ; compiling (DEFUN FMA ...) ; compiling (DEFUN FMS ...) ; compiling (DEFUN SUM ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-mpfr/mpfr.lisp ; in: DEFUN SUM ; (SETF (DEREF SB-MPFR::AR (INCF SB-MPFR::IDX)) ; (SB-MPFR::MPFR-FLOAT-REF SB-MPFR::X)) ; --> LET* MULTIPLE-VALUE-BIND LET SB-ALIEN-INTERNALS:%SET-DEREF SETF LET* ; --> MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL ; --> (SETF SB-ALIEN-INTERNALS:%ALIEN-VALUE) LET ; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFMACRO DEFINE-CONST-MPFR-FUNS ...) ; compiling (DEFINE-CONST-MPFR-FUNS (# # ...)) ; compiling (DEFMACRO DEFINE-ONEARG-MPFR-PREDICATES ...) ; compiling (DEFINE-ONEARG-MPFR-PREDICATES (# # ...)) ; compiling (DEFMACRO DEFINE-TWOARG-MPFR-PREDICATES ...) ; compiling (DEFINE-TWOARG-MPFR-PREDICATES (# # ...)) ; compiling (DEFUN COMPARE ...) ; compiling (DEFUN COMPARE-2EXP ...) ; compiling (DEFMACRO DEFINE-MPFR-FLAG-FUNS ...) ; compiling (DEFINE-MPFR-FLAG-FUNS (# # ...)) ; compiling (DEFMACRO DEFINE-MPFR-FLAG-PREDICATES ...) ; compiling (DEFINE-MPFR-FLAG-PREDICATES (# # ...)) ; compiling (DEFUN URANDOMB ...) ; compiling (DEFUN URANDOM ...) ; compiling (DEFINE-ONEARG-MPFR-FUNS (# # ...)) ; compiling (DEFMACRO DEFINE-ONEARG-NO-RND-MPFR-FUNS ...) ; compiling (DEFINE-ONEARG-NO-RND-MPFR-FUNS (# # ...)) ; compiling (DEFUN MODF ...) ; compiling (DEFUN FMOD ...) ; compiling (DEFUN REMAINDER ...) ; compiling (DEFUN REMAINDER-QUOT ...) ; compiling (DECLAIM (INLINE MPFR_FITS_ULONG_P ...)) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_FITS_ULONG_P ...) ; compiling (DEFINE-ALIEN-ROUTINE MPFR_FITS_SLONG_P ...) ; compiling (DEFUN COERCE ...) ; SYS:CONTRIB;SB-MPFR;MPFR-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:06.521 WARNING: Lisp compilation had style-warnings while compiling # STYLE-WARNING: Undefined alien: "mpfr_get_version" STYLE-WARNING: Undefined alien: "mpfr_get_default_prec" WARNING: MPFR not loaded. STYLE-WARNING: Undefined alien: "mpfr_init2" STYLE-WARNING: Undefined alien: "mpfr_clear" STYLE-WARNING: Undefined alien: "mpfr_set" STYLE-WARNING: Undefined alien: "mpfr_set_ui" STYLE-WARNING: Undefined alien: "mpfr_set_si" STYLE-WARNING: Undefined alien: "mpfr_set_flt" STYLE-WARNING: Undefined alien: "mpfr_set_d" STYLE-WARNING: Undefined alien: "mpfr_set_z" STYLE-WARNING: Undefined alien: "mpfr_set_q" STYLE-WARNING: Undefined alien: "mpfr_set_nan" STYLE-WARNING: Undefined alien: "mpfr_set_inf" STYLE-WARNING: Undefined alien: "mpfr_set_zero" STYLE-WARNING: Undefined alien: "mpfr_set_default_prec" STYLE-WARNING: Undefined alien: "mpfr_get_str" STYLE-WARNING: Undefined alien: "mpfr_get_flt" STYLE-WARNING: Undefined alien: "mpfr_get_d" STYLE-WARNING: Undefined alien: "mpfr_get_si" STYLE-WARNING: Undefined alien: "mpfr_get_ui" STYLE-WARNING: Undefined alien: "mpfr_get_z" STYLE-WARNING: Undefined alien: "mpfr_free_str" STYLE-WARNING: Undefined alien: "mpfr_set_str" STYLE-WARNING: Undefined alien: "mpfr_add" STYLE-WARNING: Undefined alien: "mpfr_add_ui" STYLE-WARNING: Undefined alien: "mpfr_add_si" STYLE-WARNING: Undefined alien: "mpfr_add_d" STYLE-WARNING: Undefined alien: "mpfr_add_z" STYLE-WARNING: Undefined alien: "mpfr_add_q" STYLE-WARNING: Undefined alien: "mpfr_sub" STYLE-WARNING: Undefined alien: "mpfr_ui_sub" STYLE-WARNING: Undefined alien: "mpfr_sub_ui" STYLE-WARNING: Undefined alien: "mpfr_si_sub" STYLE-WARNING: Undefined alien: "mpfr_sub_si" STYLE-WARNING: Undefined alien: "mpfr_d_sub" STYLE-WARNING: Undefined alien: "mpfr_sub_d" STYLE-WARNING: Undefined alien: "mpfr_z_sub" STYLE-WARNING: Undefined alien: "mpfr_sub_z" STYLE-WARNING: Undefined alien: "mpfr_sub_q" STYLE-WARNING: Undefined alien: "mpfr_mul" STYLE-WARNING: Undefined alien: "mpfr_mul_ui" STYLE-WARNING: Undefined alien: "mpfr_mul_si" STYLE-WARNING: Undefined alien: "mpfr_mul_d" STYLE-WARNING: Undefined alien: "mpfr_mul_z" STYLE-WARNING: Undefined alien: "mpfr_mul_q" STYLE-WARNING: Undefined alien: "mpfr_sqr" STYLE-WARNING: Undefined alien: "mpfr_div" STYLE-WARNING: Undefined alien: "mpfr_ui_div" STYLE-WARNING: Undefined alien: "mpfr_div_ui" STYLE-WARNING: Undefined alien: "mpfr_si_div" STYLE-WARNING: Undefined alien: "mpfr_div_si" STYLE-WARNING: Undefined alien: "mpfr_d_div" STYLE-WARNING: Undefined alien: "mpfr_div_d" STYLE-WARNING: Undefined alien: "mpfr_div_z" STYLE-WARNING: Undefined alien: "mpfr_div_q" STYLE-WARNING: Undefined alien: "mpfr_sqrt" STYLE-WARNING: Undefined alien: "mpfr_sqrt_ui" STYLE-WARNING: Undefined alien: "mpfr_rec_sqrt" STYLE-WARNING: Undefined alien: "mpfr_cbrt" STYLE-WARNING: Undefined alien: "mpfr_root" STYLE-WARNING: Undefined alien: "mpfr_pow" STYLE-WARNING: Undefined alien: "mpfr_pow_ui" STYLE-WARNING: Undefined alien: "mpfr_pow_si" STYLE-WARNING: Undefined alien: "mpfr_pow_z" STYLE-WARNING: Undefined alien: "mpfr_ui_pow" STYLE-WARNING: Undefined alien: "mpfr_neg" STYLE-WARNING: Undefined alien: "mpfr_abs" STYLE-WARNING: Undefined alien: "mpfr_dim" STYLE-WARNING: Undefined alien: "mpfr_mul_2ui" STYLE-WARNING: Undefined alien: "mpfr_mul_2si" STYLE-WARNING: Undefined alien: "mpfr_div_2ui" STYLE-WARNING: Undefined alien: "mpfr_div_2si" STYLE-WARNING: Undefined alien: "mpfr_log" STYLE-WARNING: Undefined alien: "mpfr_log2" STYLE-WARNING: Undefined alien: "mpfr_log10" STYLE-WARNING: Undefined alien: "mpfr_exp" STYLE-WARNING: Undefined alien: "mpfr_exp2" STYLE-WARNING: Undefined alien: "mpfr_exp10" STYLE-WARNING: Undefined alien: "mpfr_cos" STYLE-WARNING: Undefined alien: "mpfr_sin" STYLE-WARNING: Undefined alien: "mpfr_tan" STYLE-WARNING: Undefined alien: "mpfr_sec" STYLE-WARNING: Undefined alien: "mpfr_csc" STYLE-WARNING: Undefined alien: "mpfr_cot" STYLE-WARNING: Undefined alien: "mpfr_acos" STYLE-WARNING: Undefined alien: "mpfr_asin" STYLE-WARNING: Undefined alien: "mpfr_atan" STYLE-WARNING: Undefined alien: "mpfr_cosh" STYLE-WARNING: Undefined alien: "mpfr_sinh" STYLE-WARNING: Undefined alien: "mpfr_tanh" STYLE-WARNING: Undefined alien: "mpfr_sech" STYLE-WARNING: Undefined alien: "mpfr_csch" STYLE-WARNING: Undefined alien: "mpfr_coth" STYLE-WARNING: Undefined alien: "mpfr_acosh" STYLE-WARNING: Undefined alien: "mpfr_asinh" STYLE-WARNING: Undefined alien: "mpfr_atanh" STYLE-WARNING: Undefined alien: "mpfr_log1p" STYLE-WARNING: Undefined alien: "mpfr_expm1" STYLE-WARNING: Undefined alien: "mpfr_eint" STYLE-WARNING: Undefined alien: "mpfr_li2" STYLE-WARNING: Undefined alien: "mpfr_gamma" STYLE-WARNING: Undefined alien: "mpfr_lngamma" STYLE-WARNING: Undefined alien: "mpfr_digamma" STYLE-WARNING: Undefined alien: "mpfr_zeta" STYLE-WARNING: Undefined alien: "mpfr_erf" STYLE-WARNING: Undefined alien: "mpfr_erfc" STYLE-WARNING: Undefined alien: "mpfr_j0" STYLE-WARNING: Undefined alien: "mpfr_j1" STYLE-WARNING: Undefined alien: "mpfr_y0" STYLE-WARNING: Undefined alien: "mpfr_y1" STYLE-WARNING: Undefined alien: "mpfr_ai" STYLE-WARNING: Undefined alien: "mpfr_sin_cos" STYLE-WARNING: Undefined alien: "mpfr_atan2" STYLE-WARNING: Undefined alien: "mpfr_sinh_cosh" STYLE-WARNING: Undefined alien: "mpfr_agm" STYLE-WARNING: Undefined alien: "mpfr_hypot" STYLE-WARNING: Undefined alien: "mpfr_fac_ui" STYLE-WARNING: Undefined alien: "mpfr_zeta_ui" STYLE-WARNING: Undefined alien: "mpfr_jn" STYLE-WARNING: Undefined alien: "mpfr_yn" STYLE-WARNING: Undefined alien: "mpfr_fma" STYLE-WARNING: Undefined alien: "mpfr_fms" STYLE-WARNING: Undefined alien: "mpfr_const_log2" STYLE-WARNING: Undefined alien: "mpfr_const_pi" STYLE-WARNING: Undefined alien: "mpfr_const_euler" STYLE-WARNING: Undefined alien: "mpfr_const_catalan" STYLE-WARNING: Undefined alien: "mpfr_sum" STYLE-WARNING: Undefined alien: "mpfr_cmp" STYLE-WARNING: Undefined alien: "mpfr_cmp_ui" STYLE-WARNING: Undefined alien: "mpfr_cmp_si" STYLE-WARNING: Undefined alien: "mpfr_cmp_d" STYLE-WARNING: Undefined alien: "mpfr_cmp_z" STYLE-WARNING: Undefined alien: "mpfr_cmp_q" STYLE-WARNING: Undefined alien: "mpfr_cmp_ui_2exp" STYLE-WARNING: Undefined alien: "mpfr_cmp_si_2exp" STYLE-WARNING: Undefined alien: "mpfr_cmpabs" STYLE-WARNING: Undefined alien: "mpfr_nan_p" STYLE-WARNING: Undefined alien: "mpfr_inf_p" STYLE-WARNING: Undefined alien: "mpfr_number_p" STYLE-WARNING: Undefined alien: "mpfr_zero_p" STYLE-WARNING: Undefined alien: "mpfr_integer_p" STYLE-WARNING: Undefined alien: "mpfr_regular_p" STYLE-WARNING: Undefined alien: "mpfr_sgn" STYLE-WARNING: Undefined alien: "mpfr_greater_p" STYLE-WARNING: Undefined alien: "mpfr_greaterequal_p" STYLE-WARNING: Undefined alien: "mpfr_less_p" STYLE-WARNING: Undefined alien: "mpfr_lessequal_p" STYLE-WARNING: Undefined alien: "mpfr_equal_p" STYLE-WARNING: Undefined alien: "mpfr_lessgreater_p" STYLE-WARNING: Undefined alien: "mpfr_unordered_p" STYLE-WARNING: Undefined alien: "mpfr_clear_underflow" STYLE-WARNING: Undefined alien: "mpfr_clear_overflow" STYLE-WARNING: Undefined alien: "mpfr_clear_divby0" STYLE-WARNING: Undefined alien: "mpfr_clear_nanflag" STYLE-WARNING: Undefined alien: "mpfr_clear_inexflag" STYLE-WARNING: Undefined alien: "mpfr_clear_erangeflag" STYLE-WARNING: Undefined alien: "mpfr_set_underflow" STYLE-WARNING: Undefined alien: "mpfr_set_overflow" STYLE-WARNING: Undefined alien: "mpfr_set_divby0" STYLE-WARNING: Undefined alien: "mpfr_set_nanflag" STYLE-WARNING: Undefined alien: "mpfr_set_inexflag" STYLE-WARNING: Undefined alien: "mpfr_set_erangeflag" STYLE-WARNING: Undefined alien: "mpfr_clear_flags" STYLE-WARNING: Undefined alien: "mpfr_underflow_p" STYLE-WARNING: Undefined alien: "mpfr_overflow_p" STYLE-WARNING: Undefined alien: "mpfr_divby0_p" STYLE-WARNING: Undefined alien: "mpfr_nanflag_p" STYLE-WARNING: Undefined alien: "mpfr_inexflag_p" STYLE-WARNING: Undefined alien: "mpfr_erangeflag_p" STYLE-WARNING: Undefined alien: "mpfr_urandomb" STYLE-WARNING: Undefined alien: "mpfr_urandom" STYLE-WARNING: Undefined alien: "mpfr_rint" STYLE-WARNING: Undefined alien: "mpfr_rint_ceil" STYLE-WARNING: Undefined alien: "mpfr_rint_floor" STYLE-WARNING: Undefined alien: "mpfr_rint_round" STYLE-WARNING: Undefined alien: "mpfr_rint_trunc" STYLE-WARNING: Undefined alien: "mpfr_frac" STYLE-WARNING: Undefined alien: "mpfr_ceil" STYLE-WARNING: Undefined alien: "mpfr_floor" STYLE-WARNING: Undefined alien: "mpfr_round" STYLE-WARNING: Undefined alien: "mpfr_trunc" STYLE-WARNING: Undefined alien: "mpfr_modf" STYLE-WARNING: Undefined alien: "mpfr_fmod" STYLE-WARNING: Undefined alien: "mpfr_remainder" STYLE-WARNING: Undefined alien: "mpfr_remquo" STYLE-WARNING: Undefined alien: "mpfr_fits_ulong_p" STYLE-WARNING: Undefined alien: "mpfr_fits_slong_p" WARNING: GMP not loaded. WARNING: GMP not loaded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 2 notes * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-mpfr")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN WARNING: GMP not loaded. STYLE-WARNING: Undefined alien: "__gmpz_init" STYLE-WARNING: Undefined alien: "__gmpz_clear" STYLE-WARNING: Undefined alien: "__gmpz_sqrt" STYLE-WARNING: Undefined alien: "__gmpz_nextprime" STYLE-WARNING: Undefined alien: "__gmpz_add" STYLE-WARNING: Undefined alien: "__gmpz_sub" STYLE-WARNING: Undefined alien: "__gmpz_mul" STYLE-WARNING: Undefined alien: "__gmpz_mod" STYLE-WARNING: Undefined alien: "__gmpz_gcd" STYLE-WARNING: Undefined alien: "__gmpz_lcm" STYLE-WARNING: Undefined alien: "__gmpz_cdiv_qr" STYLE-WARNING: Undefined alien: "__gmpz_fdiv_qr" STYLE-WARNING: Undefined alien: "__gmpz_tdiv_qr" STYLE-WARNING: Undefined alien: "__gmpz_powm" STYLE-WARNING: Undefined alien: "__gmpz_mul_2exp" STYLE-WARNING: Undefined alien: "__gmpz_fdiv_q_2exp" STYLE-WARNING: Undefined alien: "__gmpz_pow_ui" STYLE-WARNING: Undefined alien: "__gmpz_probab_prime_p" STYLE-WARNING: Undefined alien: "__gmpz_fac_ui" STYLE-WARNING: Undefined alien: "__gmpz_2fac_ui" STYLE-WARNING: Undefined alien: "__gmpz_mfac_uiui" STYLE-WARNING: Undefined alien: "__gmpz_primorial_ui" STYLE-WARNING: Undefined alien: "__gmpz_remove" STYLE-WARNING: Undefined alien: "__gmpz_bin_ui" STYLE-WARNING: Undefined alien: "__gmpz_fib2_ui" STYLE-WARNING: Undefined alien: "__gmpq_add" STYLE-WARNING: Undefined alien: "__gmpq_sub" STYLE-WARNING: Undefined alien: "__gmpq_mul" STYLE-WARNING: Undefined alien: "__gmpq_div" STYLE-WARNING: Undefined alien: "__gmp_randinit_mt" STYLE-WARNING: Undefined alien: "__gmp_randinit_lc_2exp" STYLE-WARNING: Undefined alien: "__gmp_randseed" STYLE-WARNING: Undefined alien: "__gmp_randseed_ui" STYLE-WARNING: Undefined alien: "__gmpz_urandomb" STYLE-WARNING: Undefined alien: "__gmpz_urandomm" STYLE-WARNING: Undefined alien: "__gmp_version" WARNING: GMP not loaded. STYLE-WARNING: Undefined alien: "mpfr_get_version" STYLE-WARNING: Undefined alien: "mpfr_get_default_prec" WARNING: MPFR not loaded. STYLE-WARNING: Undefined alien: "mpfr_init2" STYLE-WARNING: Undefined alien: "mpfr_clear" STYLE-WARNING: Undefined alien: "mpfr_set" STYLE-WARNING: Undefined alien: "mpfr_set_ui" STYLE-WARNING: Undefined alien: "mpfr_set_si" STYLE-WARNING: Undefined alien: "mpfr_set_flt" STYLE-WARNING: Undefined alien: "mpfr_set_d" STYLE-WARNING: Undefined alien: "mpfr_set_z" STYLE-WARNING: Undefined alien: "mpfr_set_q" STYLE-WARNING: Undefined alien: "mpfr_set_nan" STYLE-WARNING: Undefined alien: "mpfr_set_inf" STYLE-WARNING: Undefined alien: "mpfr_set_zero" STYLE-WARNING: Undefined alien: "mpfr_set_default_prec" STYLE-WARNING: Undefined alien: "mpfr_get_str" STYLE-WARNING: Undefined alien: "mpfr_get_flt" STYLE-WARNING: Undefined alien: "mpfr_get_d" STYLE-WARNING: Undefined alien: "mpfr_get_si" STYLE-WARNING: Undefined alien: "mpfr_get_ui" STYLE-WARNING: Undefined alien: "mpfr_get_z" STYLE-WARNING: Undefined alien: "mpfr_free_str" STYLE-WARNING: Undefined alien: "mpfr_set_str" STYLE-WARNING: Undefined alien: "mpfr_add" STYLE-WARNING: Undefined alien: "mpfr_add_ui" STYLE-WARNING: Undefined alien: "mpfr_add_si" STYLE-WARNING: Undefined alien: "mpfr_add_d" STYLE-WARNING: Undefined alien: "mpfr_add_z" STYLE-WARNING: Undefined alien: "mpfr_add_q" STYLE-WARNING: Undefined alien: "mpfr_sub" STYLE-WARNING: Undefined alien: "mpfr_ui_sub" STYLE-WARNING: Undefined alien: "mpfr_sub_ui" STYLE-WARNING: Undefined alien: "mpfr_si_sub" STYLE-WARNING: Undefined alien: "mpfr_sub_si" STYLE-WARNING: Undefined alien: "mpfr_d_sub" STYLE-WARNING: Undefined alien: "mpfr_sub_d" STYLE-WARNING: Undefined alien: "mpfr_z_sub" STYLE-WARNING: Undefined alien: "mpfr_sub_z" STYLE-WARNING: Undefined alien: "mpfr_sub_q" STYLE-WARNING: Undefined alien: "mpfr_mul" STYLE-WARNING: Undefined alien: "mpfr_mul_ui" STYLE-WARNING: Undefined alien: "mpfr_mul_si" STYLE-WARNING: Undefined alien: "mpfr_mul_d" STYLE-WARNING: Undefined alien: "mpfr_mul_z" STYLE-WARNING: Undefined alien: "mpfr_mul_q" STYLE-WARNING: Undefined alien: "mpfr_sqr" STYLE-WARNING: Undefined alien: "mpfr_div" STYLE-WARNING: Undefined alien: "mpfr_ui_div" STYLE-WARNING: Undefined alien: "mpfr_div_ui" STYLE-WARNING: Undefined alien: "mpfr_si_div" STYLE-WARNING: Undefined alien: "mpfr_div_si" STYLE-WARNING: Undefined alien: "mpfr_d_div" STYLE-WARNING: Undefined alien: "mpfr_div_d" STYLE-WARNING: Undefined alien: "mpfr_div_z" STYLE-WARNING: Undefined alien: "mpfr_div_q" STYLE-WARNING: Undefined alien: "mpfr_sqrt" STYLE-WARNING: Undefined alien: "mpfr_sqrt_ui" STYLE-WARNING: Undefined alien: "mpfr_rec_sqrt" STYLE-WARNING: Undefined alien: "mpfr_cbrt" STYLE-WARNING: Undefined alien: "mpfr_root" STYLE-WARNING: Undefined alien: "mpfr_pow" STYLE-WARNING: Undefined alien: "mpfr_pow_ui" STYLE-WARNING: Undefined alien: "mpfr_pow_si" STYLE-WARNING: Undefined alien: "mpfr_pow_z" STYLE-WARNING: Undefined alien: "mpfr_ui_pow" STYLE-WARNING: Undefined alien: "mpfr_neg" STYLE-WARNING: Undefined alien: "mpfr_abs" STYLE-WARNING: Undefined alien: "mpfr_dim" STYLE-WARNING: Undefined alien: "mpfr_mul_2ui" STYLE-WARNING: Undefined alien: "mpfr_mul_2si" STYLE-WARNING: Undefined alien: "mpfr_div_2ui" STYLE-WARNING: Undefined alien: "mpfr_div_2si" STYLE-WARNING: Undefined alien: "mpfr_log" STYLE-WARNING: Undefined alien: "mpfr_log2" STYLE-WARNING: Undefined alien: "mpfr_log10" STYLE-WARNING: Undefined alien: "mpfr_exp" STYLE-WARNING: Undefined alien: "mpfr_exp2" STYLE-WARNING: Undefined alien: "mpfr_exp10" STYLE-WARNING: Undefined alien: "mpfr_cos" STYLE-WARNING: Undefined alien: "mpfr_sin" STYLE-WARNING: Undefined alien: "mpfr_tan" STYLE-WARNING: Undefined alien: "mpfr_sec" STYLE-WARNING: Undefined alien: "mpfr_csc" STYLE-WARNING: Undefined alien: "mpfr_cot" STYLE-WARNING: Undefined alien: "mpfr_acos" STYLE-WARNING: Undefined alien: "mpfr_asin" STYLE-WARNING: Undefined alien: "mpfr_atan" STYLE-WARNING: Undefined alien: "mpfr_cosh" STYLE-WARNING: Undefined alien: "mpfr_sinh" STYLE-WARNING: Undefined alien: "mpfr_tanh" STYLE-WARNING: Undefined alien: "mpfr_sech" STYLE-WARNING: Undefined alien: "mpfr_csch" STYLE-WARNING: Undefined alien: "mpfr_coth" STYLE-WARNING: Undefined alien: "mpfr_acosh" STYLE-WARNING: Undefined alien: "mpfr_asinh" STYLE-WARNING: Undefined alien: "mpfr_atanh" STYLE-WARNING: Undefined alien: "mpfr_log1p" STYLE-WARNING: Undefined alien: "mpfr_expm1" STYLE-WARNING: Undefined alien: "mpfr_eint" STYLE-WARNING: Undefined alien: "mpfr_li2" STYLE-WARNING: Undefined alien: "mpfr_gamma" STYLE-WARNING: Undefined alien: "mpfr_lngamma" STYLE-WARNING: Undefined alien: "mpfr_digamma" STYLE-WARNING: Undefined alien: "mpfr_zeta" STYLE-WARNING: Undefined alien: "mpfr_erf" STYLE-WARNING: Undefined alien: "mpfr_erfc" STYLE-WARNING: Undefined alien: "mpfr_j0" STYLE-WARNING: Undefined alien: "mpfr_j1" STYLE-WARNING: Undefined alien: "mpfr_y0" STYLE-WARNING: Undefined alien: "mpfr_y1" STYLE-WARNING: Undefined alien: "mpfr_ai" STYLE-WARNING: Undefined alien: "mpfr_sin_cos" STYLE-WARNING: Undefined alien: "mpfr_atan2" STYLE-WARNING: Undefined alien: "mpfr_sinh_cosh" STYLE-WARNING: Undefined alien: "mpfr_agm" STYLE-WARNING: Undefined alien: "mpfr_hypot" STYLE-WARNING: Undefined alien: "mpfr_fac_ui" STYLE-WARNING: Undefined alien: "mpfr_zeta_ui" STYLE-WARNING: Undefined alien: "mpfr_jn" STYLE-WARNING: Undefined alien: "mpfr_yn" STYLE-WARNING: Undefined alien: "mpfr_fma" STYLE-WARNING: Undefined alien: "mpfr_fms" STYLE-WARNING: Undefined alien: "mpfr_const_log2" STYLE-WARNING: Undefined alien: "mpfr_const_pi" STYLE-WARNING: Undefined alien: "mpfr_const_euler" STYLE-WARNING: Undefined alien: "mpfr_const_catalan" STYLE-WARNING: Undefined alien: "mpfr_sum" STYLE-WARNING: Undefined alien: "mpfr_cmp" STYLE-WARNING: Undefined alien: "mpfr_cmp_ui" STYLE-WARNING: Undefined alien: "mpfr_cmp_si" STYLE-WARNING: Undefined alien: "mpfr_cmp_d" STYLE-WARNING: Undefined alien: "mpfr_cmp_z" STYLE-WARNING: Undefined alien: "mpfr_cmp_q" STYLE-WARNING: Undefined alien: "mpfr_cmp_ui_2exp" STYLE-WARNING: Undefined alien: "mpfr_cmp_si_2exp" STYLE-WARNING: Undefined alien: "mpfr_cmpabs" STYLE-WARNING: Undefined alien: "mpfr_nan_p" STYLE-WARNING: Undefined alien: "mpfr_inf_p" STYLE-WARNING: Undefined alien: "mpfr_number_p" STYLE-WARNING: Undefined alien: "mpfr_zero_p" STYLE-WARNING: Undefined alien: "mpfr_integer_p" STYLE-WARNING: Undefined alien: "mpfr_regular_p" STYLE-WARNING: Undefined alien: "mpfr_sgn" STYLE-WARNING: Undefined alien: "mpfr_greater_p" STYLE-WARNING: Undefined alien: "mpfr_greaterequal_p" STYLE-WARNING: Undefined alien: "mpfr_less_p" STYLE-WARNING: Undefined alien: "mpfr_lessequal_p" STYLE-WARNING: Undefined alien: "mpfr_equal_p" STYLE-WARNING: Undefined alien: "mpfr_lessgreater_p" STYLE-WARNING: Undefined alien: "mpfr_unordered_p" STYLE-WARNING: Undefined alien: "mpfr_clear_underflow" STYLE-WARNING: Undefined alien: "mpfr_clear_overflow" STYLE-WARNING: Undefined alien: "mpfr_clear_divby0" STYLE-WARNING: Undefined alien: "mpfr_clear_nanflag" STYLE-WARNING: Undefined alien: "mpfr_clear_inexflag" STYLE-WARNING: Undefined alien: "mpfr_clear_erangeflag" STYLE-WARNING: Undefined alien: "mpfr_set_underflow" STYLE-WARNING: Undefined alien: "mpfr_set_overflow" STYLE-WARNING: Undefined alien: "mpfr_set_divby0" STYLE-WARNING: Undefined alien: "mpfr_set_nanflag" STYLE-WARNING: Undefined alien: "mpfr_set_inexflag" STYLE-WARNING: Undefined alien: "mpfr_set_erangeflag" STYLE-WARNING: Undefined alien: "mpfr_clear_flags" STYLE-WARNING: Undefined alien: "mpfr_underflow_p" STYLE-WARNING: Undefined alien: "mpfr_overflow_p" STYLE-WARNING: Undefined alien: "mpfr_divby0_p" STYLE-WARNING: Undefined alien: "mpfr_nanflag_p" STYLE-WARNING: Undefined alien: "mpfr_inexflag_p" STYLE-WARNING: Undefined alien: "mpfr_erangeflag_p" STYLE-WARNING: Undefined alien: "mpfr_urandomb" STYLE-WARNING: Undefined alien: "mpfr_urandom" STYLE-WARNING: Undefined alien: "mpfr_rint" STYLE-WARNING: Undefined alien: "mpfr_rint_ceil" STYLE-WARNING: Undefined alien: "mpfr_rint_floor" STYLE-WARNING: Undefined alien: "mpfr_rint_round" STYLE-WARNING: Undefined alien: "mpfr_rint_trunc" STYLE-WARNING: Undefined alien: "mpfr_frac" STYLE-WARNING: Undefined alien: "mpfr_ceil" STYLE-WARNING: Undefined alien: "mpfr_floor" STYLE-WARNING: Undefined alien: "mpfr_round" STYLE-WARNING: Undefined alien: "mpfr_trunc" STYLE-WARNING: Undefined alien: "mpfr_modf" STYLE-WARNING: Undefined alien: "mpfr_fmod" STYLE-WARNING: Undefined alien: "mpfr_remainder" STYLE-WARNING: Undefined alien: "mpfr_remquo" STYLE-WARNING: Undefined alien: "mpfr_fits_ulong_p" STYLE-WARNING: Undefined alien: "mpfr_fits_slong_p" WARNING: unable to test sb-mpfr: libmpfr unavailable * /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-posix :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-posix.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-posix")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/module-setup.lisp" (written 28 JUL 2014 05:10:50 AM): ; compiling (PROVIDE :SB-POSIX) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-posix/module-setup.fasl written ; compilation finished in 0:00:00.809 * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-posix")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN 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_RSYNC (unknown to the C compiler). 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 "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-posix/posix-tests.lisp" (written 28 JUL 2014 05:02:09 AM): ; compiling (DEFPACKAGE "SB-POSIX-TESTS" ...) ; compiling (IN-PACKAGE "SB-POSIX-TESTS") ; compiling (DEFVAR *TEST-DIRECTORY* ...) ; compiling (DEFVAR *CURRENT-DIRECTORY* ...) ; compiling (DEFVAR *THIS-FILE* ...) ; compiling (DEFCONSTANT +MODE-RWX-ALL+ ...) ; compiling (DEFMACRO DEFINE-EACCES-TEST ...) ; compiling (DEFTEST CHDIR.1 ...) ; compiling (DEFTEST CHDIR.2 ...) ; compiling (DEFTEST CHDIR.3 ...) ; compiling (DEFTEST CHDIR.4 ...) ; compiling (DEFTEST CHDIR.5 ...) ; compiling (DEFTEST CHDIR.6 ...) ; compiling (DEFTEST CHDIR.7 ...) ; compiling (DEFTEST CHDIR.8 ...) ; compiling (DEFTEST CHDIR.ERROR.1 ...) ; compiling (DEFTEST CHDIR.ERROR.2 ...) ; compiling (DEFTEST MKDIR.1 ...) ; compiling (DEFTEST MKDIR.2 ...) ; compiling (DEFTEST MKDIR.ERROR.1 ...) ; compiling (DEFTEST MKDIR.ERROR.2 ...) ; compiling (DEFINE-EACCES-TEST MKDIR.ERROR.3 ...) ; compiling (DEFTEST RMDIR.1 ...) ; compiling (DEFTEST RMDIR.2 ...) ; compiling (DEFTEST RMDIR.ERROR.1 ...) ; compiling (DEFTEST RMDIR.ERROR.2 ...) ; compiling (DEFTEST RMDIR.ERROR.3 ...) ; compiling (DEFTEST RMDIR.ERROR.4 ...) ; compiling (DEFINE-EACCES-TEST RMDIR.ERROR.5 ...) ; compiling (DEFTEST STAT.1 ...) ; compiling (DEFTEST STAT.2 ...) ; compiling (DEFTEST STAT.3 ...) ; compiling (DEFTEST STAT.4 ...) ; compiling (DEFTEST STAT.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 READ.1 ...) ; compiling (DEFTEST OPENDIR.1 ...) ; compiling (DEFTEST WRITE.1 ...) ; 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 ...) ; compiling (DEFTEST MKSTEMP.NULL-TERMINATE ...) ; compiling (DEFTEST ENVSTUFF ...) ; SYS:CONTRIB;SB-POSIX;POSIX-TESTS-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.903 Doing 69 pending tests of 69 tests total. SB-POSIX-TESTS::CHDIR.1 SB-POSIX-TESTS::CHDIR.2 SB-POSIX-TESTS::CHDIR.3 SB-POSIX-TESTS::CHDIR.4 SB-POSIX-TESTS::CHDIR.5 SB-POSIX-TESTS::CHDIR.6 SB-POSIX-TESTS::CHDIR.7 SB-POSIX-TESTS::CHDIR.8 SB-POSIX-TESTS::CHDIR.ERROR.1 SB-POSIX-TESTS::CHDIR.ERROR.2 SB-POSIX-TESTS::MKDIR.1 SB-POSIX-TESTS::MKDIR.2 SB-POSIX-TESTS::MKDIR.ERROR.1 SB-POSIX-TESTS::MKDIR.ERROR.2 SB-POSIX-TESTS::MKDIR.ERROR.3 SB-POSIX-TESTS::RMDIR.1 SB-POSIX-TESTS::RMDIR.2 SB-POSIX-TESTS::RMDIR.ERROR.1 SB-POSIX-TESTS::RMDIR.ERROR.2 SB-POSIX-TESTS::RMDIR.ERROR.3 SB-POSIX-TESTS::RMDIR.ERROR.4 SB-POSIX-TESTS::RMDIR.ERROR.5 SB-POSIX-TESTS::STAT.1 SB-POSIX-TESTS::STAT.2 SB-POSIX-TESTS::STAT.3 SB-POSIX-TESTS::STAT.4 SB-POSIX-TESTS::STAT.5 SB-POSIX-TESTS::STAT.ERROR.1 SB-POSIX-TESTS::STAT.ERROR.2 SB-POSIX-TESTS::STAT-MODE.1 SB-POSIX-TESTS::STAT-MODE.2 SB-POSIX-TESTS::STAT-MODE.3 SB-POSIX-TESTS::STAT-MODE.4 SB-POSIX-TESTS::STAT-MODE.5 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 SB-POSIX-TESTS::FCNTL.FLOCK.1 SB-POSIX-TESTS::FCNTL.FLOCK.2 SB-POSIX-TESTS::READ.1 SB-POSIX-TESTS::OPENDIR.1 SB-POSIX-TESTS::WRITE.1 SB-POSIX-TESTS::PWENT.1 SB-POSIX-TESTS::PWENT.2 SB-POSIX-TESTS::PWENT.NON-EXISTING SB-POSIX-TESTS::GRENT.1 SB-POSIX-TESTS::GRENT.2 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 SB-POSIX-TESTS::MKSTEMP.NULL-TERMINATE SB-POSIX-TESTS::ENVSTUFF No tests failed. * /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-queue :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-queue.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-queue")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-queue/module-setup.lisp" (written 28 JUL 2014 05:10:58 AM): ; compiling (PROVIDE :SB-QUEUE) ; compiling (REQUIRE :SB-CONCURRENCY) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-queue/module-setup.fasl written ; compilation finished in 0:00:00.004 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-queue/package.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE :SB-QUEUE ...) ; SYS:CONTRIB;SB-QUEUE;PACKAGE-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.025 * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-queue")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN * /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-rotate-byte :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-rotate-byte.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-rotate-byte")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-rotate-byte/module-setup.lisp" (written 28 JUL 2014 05:11:00 AM): ; compiling (PROVIDE :SB-ROTATE-BYTE) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-rotate-byte/module-setup.fasl written ; compilation finished in 0:00:00.004 * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-rotate-byte")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-rotate-byte/rotate-byte-tests.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB-ROTATE-BYTE") ; compiling (ASSERT (= # ...)) ; 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 (= # ...)) ; compiling (DEFUN UB64/C ...) ; compiling (DEFUN UB64/-C ...) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (DEFUN UB64 ...) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; SYS:CONTRIB;SB-ROTATE-BYTE;ROTATE-BYTE-TESTS-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.076 * /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-rt :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-rt.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-rt")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-rt/module-setup.lisp" (written 28 JUL 2014 05:11:01 AM): ; compiling (PROVIDE :SB-RT) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-rt/module-setup.fasl written ; compilation finished in 0:00:00.977 * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-rt")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN * /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ../asdf echo "(defsystem :sb-simple-streams :class require-system)" > /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-simple-streams.asd make[1]: Nothing to be done for `fasl'. /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::build-asdf-contrib "sb-simple-streams")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-simple-streams/module-setup.lisp" (written 28 JUL 2014 05:11:04 AM): ; compiling (PROVIDE :SB-SIMPLE-STREAMS) ; compiling (REQUIRE :SB-BSD-SOCKETS) ; compiling (REQUIRE :SB-POSIX) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/asdf-cache/sb-simple-streams/module-setup.fasl written ; compilation finished in 0:00:00.003 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_RSYNC (unknown to the C compiler). 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 "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/package.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (DEFPACKAGE SB-SIMPLE-STREAMS ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;PACKAGE-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.011 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/iodefs.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS") ; compiling (DEFUN %FILE-NAMESTRING ...) ; 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.109 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/classes.lisp" (written 28 JUN 2014 03:46:25 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.132 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/internal.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/internal.lisp ; in: DEFUN READ-OCTETS ; (SB-UNIX:UNIX-READ SB-SIMPLE-STREAMS::FD ; (SB-SIMPLE-STREAMS::BUFFER-SAP SB-SIMPLE-STREAMS::BUFFER ; SB-SIMPLE-STREAMS::START) ; (THE FIXNUM ; (- SB-SIMPLE-STREAMS::END SB-SIMPLE-STREAMS::START))) ; ; note: doing SAP to pointer coercion (cost 20) ; compiling (DEFUN WRITE-OCTETS ...) ; compiling (DEFUN DO-SOME-OUTPUT ...) ; compiling (DEFUN QUEUE-WRITE ...) ; compiling (DEFUN %FD-OPEN ...) ; compiling (DEFUN OPEN-FD-STREAM ...) ; compiling (DEFSTRUCT (FILESPEC-PARSER #) ...) ; compiling (DEFVAR *FILESPEC-PARSERS* ...) ; compiling (DEFUN ADD-FILESPEC ...) ; compiling (DEFMACRO DEFINE-FILESPEC ...) ; compiling (DEFUN PARSE-FILESPEC ...) ; compiling (DEFINE-FILESPEC PATHNAME ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;INTERNAL-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.425 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/strategy.lisp" (written 28 JUN 2014 03:46:25 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/strategy.lisp ; in: DEFUN STR-LISTEN-E-CRLF ; (DEFUN SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF (STREAM) ; (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS (SB-SIMPLE-STREAMS:COMPOSING-STREAM ; STREAM) ; (SB-SIMPLE-STREAMS:FUNCALL-STM-HANDLER SB-SIMPLE-STREAMS::J-LISTEN ; (SB-SIMPLE-STREAMS:SM ; SB-SIMPLE-STREAMS::MELDED-STREAM ; STREAM)))) ; --> PROGN ; ==> ; (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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:02.016 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/terminal.lisp" (written 28 JUN 2014 03:46:25 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.051 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/string.lisp" (written 28 JUN 2014 03:46:25 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.156 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/socket.lisp" (written 28 JUN 2014 03:46:25 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.110 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/null.lisp" (written 28 JUN 2014 03:46:25 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.051 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/direct.lisp" (written 28 JUN 2014 03:46:25 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.005 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/file.lisp" (written 28 JUN 2014 03:46:25 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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.330 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/fndb.lisp" (written 28 JUN 2014 03:46:25 PM): ; compiling (IN-PACKAGE "COMMON-LISP") ; compiling (SB-C:DEFKNOWN OPEN ...) ; compiling (SB-C:DEFKNOWN LISTEN ...) ; compiling (SB-C:DEFKNOWN READ-SEQUENCE ...) ; compiling (SB-C:DEFKNOWN CLEAR-INPUT ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;FNDB-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.019 ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/impl.lisp" (written 28 JUN 2014 03:46:25 PM): ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/impl.lisp ; in: DEFUN %READ-LINE ; (REPLACE SB-SIMPLE-STREAMS::CBUF SB-SIMPLE-STREAMS::BUF :START1 ; SB-SIMPLE-STREAMS::IDX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; 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 ; (SB-SIMPLE-STREAMS:SM SB-SIMPLE-STREAMS::J-READ-CHARS #:G495)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be 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 ...) ; 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 ...) ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/impl.lisp ; in: DEFUN FILE-STRING-LENGTH ; (SB-SIMPLE-STREAMS::%FILE-STRING-LENGTH STREAM SB-SIMPLE-STREAMS::OBJECT) ; ==> ; STREAM ; ; note: deleting unreachable code ; 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 ...) ; 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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/impl.lisp ; in: DEFUN WRITE-STRING ; (DEFUN WRITE-STRING ; (STRING ; &OPTIONAL (STREAM *STANDARD-OUTPUT*) ; &KEY (SB-SIMPLE-STREAMS::START 0) (SB-SIMPLE-STREAMS::END NIL)) ; "Outputs the String to the given Stream." ; (LET ((STREAM (SB-IMPL::OUT-SYNONYM-OF STREAM)) ; (SB-SIMPLE-STREAMS::END ; (SB-KERNEL:%CHECK-VECTOR-SEQUENCE-BOUNDS STRING ; SB-SIMPLE-STREAMS::START ; SB-SIMPLE-STREAMS::END))) ; (ETYPECASE STREAM ; (SB-SIMPLE-STREAMS:SIMPLE-STREAM ; (SB-SIMPLE-STREAMS::%WRITE-STRING STREAM STRING ; SB-SIMPLE-STREAMS::START SB-SIMPLE-STREAMS::END) ; STRING) ; (SB-KERNEL:ANSI-STREAM ; (SB-IMPL::ANSI-STREAM-WRITE-STRING STRING STREAM ; SB-SIMPLE-STREAMS::START ; SB-SIMPLE-STREAMS::END)) ; (FUNDAMENTAL-STREAM ; (STREAM-WRITE-STRING STREAM STRING SB-SIMPLE-STREAMS::START ; SB-SIMPLE-STREAMS::END))))) ; --> PROGN ; ==> ; (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: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/impl.lisp ; in: DEFUN WRITE-LINE ; (DEFUN WRITE-LINE ; (STRING ; &OPTIONAL (STREAM *STANDARD-OUTPUT*) ; &KEY (SB-SIMPLE-STREAMS::START 0) SB-SIMPLE-STREAMS::END) ; (DECLARE (TYPE STRING STRING)) ; (LET ((STREAM (SB-IMPL::OUT-SYNONYM-OF STREAM)) ; (SB-SIMPLE-STREAMS::END ; (SB-KERNEL:%CHECK-VECTOR-SEQUENCE-BOUNDS STRING ; SB-SIMPLE-STREAMS::START ; SB-SIMPLE-STREAMS::END))) ; (ETYPECASE STREAM ; (SB-SIMPLE-STREAMS:SIMPLE-STREAM ; (SB-SIMPLE-STREAMS::%CHECK STREAM :OUTPUT) ; (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS # ; # ; #)) ; (SB-KERNEL:ANSI-STREAM ; (SB-IMPL::ANSI-STREAM-WRITE-STRING STRING STREAM ; SB-SIMPLE-STREAMS::START ; SB-SIMPLE-STREAMS::END) ; (FUNCALL # STREAM #\Newline)) ; (FUNDAMENTAL-STREAM ; (STREAM-WRITE-STRING STREAM STRING SB-SIMPLE-STREAMS::START ; SB-SIMPLE-STREAMS::END) ; (STREAM-TERPRI STREAM)))) ; STRING) ; --> PROGN ; ==> ; (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-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:03.410 WARNING: Lisp compilation had style-warnings while compiling # WARNING: SB-BSD-SOCKETS also exports the following symbols: (SB-BSD-SOCKETS:SOCKOPT-TCP-NODELAY SB-BSD-SOCKETS:SOCKET-TYPE-NOT-SUPPORTED-ERROR SB-BSD-SOCKETS:SOCKOPT-BIND-TO-DEVICE SB-BSD-SOCKETS:SOCKOPT-BROADCAST SB-BSD-SOCKETS:SOCKOPT-RECEIVE-LOW-WATER SB-BSD-SOCKETS:SOCKOPT-OOB-INLINE SB-BSD-SOCKETS:OPERATION-TIMEOUT-ERROR SB-BSD-SOCKETS:SOCKOPT-DEBUG SB-BSD-SOCKETS:SOCKOPT-TCP-KEEPINTVL SB-BSD-SOCKETS:SOCKOPT-SEND-BUFFER SB-BSD-SOCKETS:ADDRESS-IN-USE-ERROR SB-BSD-SOCKETS:SOCKOPT-TYPE SB-BSD-SOCKETS:OUT-OF-MEMORY-ERROR SB-BSD-SOCKETS:SOCKOPT-REUSE-ADDRESS SB-BSD-SOCKETS:SOCKOPT-TCP-KEEPIDLE SB-BSD-SOCKETS:NETWORK-UNREACHABLE-ERROR SB-BSD-SOCKETS:SOCKOPT-PRIORITY SB-BSD-SOCKETS:SOCKOPT-RECEIVE-BUFFER SB-BSD-SOCKETS:SOCKOPT-PASS-CREDENTIALS SB-BSD-SOCKETS:OPERATION-NOT-PERMITTED-ERROR SB-BSD-SOCKETS:NO-BUFFERS-ERROR SB-BSD-SOCKETS:SOCKOPT-KEEP-ALIVE SB-BSD-SOCKETS:BAD-FILE-DESCRIPTOR-ERROR SB-BSD-SOCKETS:NOT-CONNECTED-ERROR SB-BSD-SOCKETS:PROTOCOL-NOT-SUPPORTED-ERROR SB-BSD-SOCKETS:SOCKOPT-BSD-COMPATIBLE SB-BSD-SOCKETS:CONNECTION-REFUSED-ERROR SB-BSD-SOCKETS:SOCKOPT-SEND-LOW-WATER SB-BSD-SOCKETS:SOCKOPT-TCP-KEEPCNT SB-BSD-SOCKETS:OPERATION-NOT-SUPPORTED-ERROR SB-BSD-SOCKETS:INVALID-ARGUMENT-ERROR SB-BSD-SOCKETS:SOCKOPT-DONT-ROUTE SB-BSD-SOCKETS:INTERRUPTED-ERROR) See also: The ANSI Standard, Macro DEFPACKAGE The SBCL Manual, Variable *ON-PACKAGE-VARIANCE* WARNING: SB-POSIX also exports the following symbols: (SB-POSIX:WAIT SB-POSIX:GETRESUID SB-POSIX:GETPID SB-POSIX:PIPE SB-POSIX:LSTAT SB-POSIX:OPENDIR SB-POSIX:VQUIT SB-POSIX:EPROTO SB-POSIX:LOG-NEWS SB-POSIX:INPCK SB-POSIX:PARMRK SB-POSIX:LOG-LOCAL6 SB-POSIX:WIFEXITED SB-POSIX:EFAULT SB-POSIX:O-APPEND SB-POSIX:ENODEV SB-POSIX:S-ISFIFO SB-POSIX:LOG-ERR SB-POSIX:NOFLSH SB-POSIX:ENETRESET SB-POSIX:EINVAL SB-POSIX:ENOLCK SB-POSIX:MAP-PRIVATE SB-POSIX:UNSETENV SB-POSIX:GETGID SB-POSIX:NL1 SB-POSIX:TAB1 SB-POSIX:UNLINK SB-POSIX:NL0 SB-POSIX:B150 SB-POSIX:VEOF SB-POSIX:CS5 SB-POSIX:LOCKF SB-POSIX:LOG-LOCAL0 SB-POSIX:SIGSEGV SB-POSIX:B115200 SB-POSIX:SIGTRAP SB-POSIX:TAB2 SB-POSIX:EMEDIUMTYPE SB-POSIX:LOG-ALERT SB-POSIX:ELNRNG SB-POSIX:TCSADRAIN SB-POSIX:O-CREAT SB-POSIX:HUPCL SB-POSIX:VSTOP SB-POSIX:_EXIT SB-POSIX:SIGQUIT SB-POSIX:S-IXGRP SB-POSIX:EREMOTEIO SB-POSIX:SIGWINCH SB-POSIX:LOG-PID SB-POSIX:TCSENDBREAK SB-POSIX:LOG-AUTHPRIV SB-POSIX:IXOFF SB-POSIX:INLCR SB-POSIX:SIGURG SB-POSIX:SIGCHLD SB-POSIX:B9600 SB-POSIX:SIGVTALRM SB-POSIX:MCL-CURRENT SB-POSIX:TCSETATTR SB-POSIX:ENOTDIR SB-POSIX:ENOMEDIUM SB-POSIX:SIGUSR2 SB-POSIX:TCSAFLUSH SB-POSIX:WNOHANG SB-POSIX:EDEADLK SB-POSIX:ELIBEXEC SB-POSIX:ENOLINK SB-POSIX:B1800 SB-POSIX:OPEN SB-POSIX:EBADF SB-POSIX:S-ISVTX SB-POSIX:S-ISREG SB-POSIX:OPENLOG SB-POSIX:GETGRNAM SB-POSIX:ENETDOWN SB-POSIX:O-EXCL SB-POSIX:CHDIR SB-POSIX:LOG-CONS SB-POSIX:LOG-KERN SB-POSIX:GETPPID SB-POSIX:O-RDONLY SB-POSIX:O-DSYNC SB-POSIX:S-ISLNK SB-POSIX:ELIBACC SB-POSIX:B110 SB-POSIX:SIGXFSZ SB-POSIX:S-IXUSR SB-POSIX:DUP SB-POSIX:B300 SB-POSIX:GETPWNAM SB-POSIX:O-SYNC SB-POSIX:ENAMETOOLONG SB-POSIX:OFILL SB-POSIX:SETUP-MACH-EXCEPTIONS SB-POSIX:TCDRAIN SB-POSIX:ETOOMANYREFS SB-POSIX:MAP-ANON SB-POSIX:ENOTCONN SB-POSIX:LOG-ODELAY SB-POSIX:ELIBSCN SB-POSIX:EWOULDBLOCK SB-POSIX:ENXIO SB-POSIX:F-GETLK SB-POSIX:SIGBUS SB-POSIX:TAB0 SB-POSIX:ECHOE SB-POSIX:MAP-FIXED SB-POSIX:MKDTEMP SB-POSIX:LOG-WARNING SB-POSIX:EXIT SB-POSIX:S-IWUSR SB-POSIX:GETENV SB-POSIX:F-SETFL SB-POSIX:SYMLINK SB-POSIX:ESHUTDOWN SB-POSIX:ECONNABORTED SB-POSIX:TIME SB-POSIX:S-IFWHT SB-POSIX:CSTOPB SB-POSIX:EMLINK SB-POSIX:EROFS SB-POSIX:EUNATCH SB-POSIX:EPFNOSUPPORT SB-POSIX:ESTRPIPE SB-POSIX:FFDLY SB-POSIX:GETSID SB-POSIX:ECHO SB-POSIX:ENOTSOCK SB-POSIX:LINK SB-POSIX:SEEK-END SB-POSIX:EPROTOTYPE SB-POSIX:TCOON SB-POSIX:EADV SB-POSIX:EREMOTE SB-POSIX:LOG-CRIT SB-POSIX:FLOCK SB-POSIX:AF-INET SB-POSIX:MS-SYNC SB-POSIX:EDOM SB-POSIX:F-SETLKW SB-POSIX:F-OK SB-POSIX:F-SETOWN SB-POSIX:B2400 SB-POSIX:B38400 SB-POSIX:EREMCHG SB-POSIX:FTRUNCATE SB-POSIX:ACCESS SB-POSIX:ENOMSG SB-POSIX:S-IROTH SB-POSIX:ENOEXEC SB-POSIX:ENAVAIL SB-POSIX:ELIBBAD SB-POSIX:GETEUID SB-POSIX:LOG-NDELAY SB-POSIX:PUTENV SB-POSIX:WAITPID SB-POSIX:FSYNC SB-POSIX:WTERMSIG SB-POSIX:SIGILL SB-POSIX:CLOSELOG SB-POSIX:EBADE SB-POSIX:WIFSIGNALED SB-POSIX:CR3 SB-POSIX:B0 SB-POSIX:O-NONBLOCK SB-POSIX:S-IWRITE SB-POSIX:BS1 SB-POSIX:GETPGID SB-POSIX:RENAME SB-POSIX:F-TEST SB-POSIX:SIGTTOU SB-POSIX:CLOSEDIR SB-POSIX:CFGETISPEED SB-POSIX:LOG-UUCP SB-POSIX:LOG-PERROR SB-POSIX:PASSWD SB-POSIX:S-IFBLK SB-POSIX:SIGKILL SB-POSIX:PROT-NONE SB-POSIX:GETPGRP SB-POSIX:EOVERFLOW SB-POSIX:LOG-NOTICE SB-POSIX:S-IFSOCK SB-POSIX:EACCES SB-POSIX:ESTALE SB-POSIX:BRKINT SB-POSIX:VT1 SB-POSIX:TCSANOW SB-POSIX:ESRCH SB-POSIX:O-DIRECT SB-POSIX:SEEK-CUR SB-POSIX:ENOTBLK SB-POSIX:WEXITSTATUS SB-POSIX:ESPIPE SB-POSIX:EIDRM SB-POSIX:CFSETOSPEED SB-POSIX:SIGSYS SB-POSIX:B200 SB-POSIX:S-IFIFO SB-POSIX:CFGETOSPEED SB-POSIX:FORK SB-POSIX:ENOANO SB-POSIX:READ SB-POSIX:EISDIR SB-POSIX:CS8 SB-POSIX:UMASK SB-POSIX:ESRMNT SB-POSIX:EBUSY SB-POSIX:SIGEMT SB-POSIX:EBADR SB-POSIX:EALREADY SB-POSIX:S-ISBLK SB-POSIX:CRDLY SB-POSIX:READLINK SB-POSIX:F-SETLK SB-POSIX:WSTOPSIG SB-POSIX:IEXTEN SB-POSIX:OPOST SB-POSIX:LOG-LPR SB-POSIX:OFDEL SB-POSIX:KILLPG SB-POSIX:SPEED-T SB-POSIX:BSDLY SB-POSIX:S-IREAD SB-POSIX:F-GETFD SB-POSIX:SETRESGID SB-POSIX:UTIMES SB-POSIX:CS7 SB-POSIX:B50 SB-POSIX:ECHRNG SB-POSIX:VSTART SB-POSIX:CR2 SB-POSIX:EAFNOSUPPORT SB-POSIX:MUNLOCKALL SB-POSIX:CSIZE SB-POSIX:ENOENT SB-POSIX:GROUP SB-POSIX:SIGUSR1 SB-POSIX:RMDIR SB-POSIX:EIO SB-POSIX:EBADFD SB-POSIX:F-LOCK SB-POSIX:PARENB SB-POSIX:ENOPROTOOPT SB-POSIX:B57600 SB-POSIX:S-IFDIR SB-POSIX:VINTR SB-POSIX:X-OK SB-POSIX:ENOTUNIQ SB-POSIX:SETRESUID SB-POSIX:ELOOP SB-POSIX:EADDRNOTAVAIL SB-POSIX:ENOTTY SB-POSIX:O-TRUNC SB-POSIX:LOG-DEBUG SB-POSIX:TRUNCATE SB-POSIX:WIFSTOPPED SB-POSIX:MCL-FUTURE SB-POSIX:EDESTADDRREQ SB-POSIX:LCHOWN SB-POSIX:FF0 SB-POSIX:SIGXCPU SB-POSIX:LSEEK SB-POSIX:F-UNLCK SB-POSIX:POSIX-FORK SB-POSIX:LOG-INFO SB-POSIX:SETENV SB-POSIX:S-ISSOCK SB-POSIX:LOG-LOCAL5 SB-POSIX:MSYNC SB-POSIX:ONLRET SB-POSIX:MLOCKALL SB-POSIX:B4800 SB-POSIX:ENOSR SB-POSIX:SYSLOG SB-POSIX:SIGABRT SB-POSIX:GETRESGID SB-POSIX:F-ULOCK SB-POSIX:ENODATA SB-POSIX:TCIFLUSH SB-POSIX:SIGINT SB-POSIX:IXON SB-POSIX:EPROTONOSUPPORT SB-POSIX:SETREUID SB-POSIX:EDEADLOCK SB-POSIX:S-ISUID SB-POSIX:EHOSTDOWN SB-POSIX:LOG-LOCAL3 SB-POSIX:EDOTDOT SB-POSIX:TCOOFF SB-POSIX:EILSEQ SB-POSIX:VEOL SB-POSIX:S-IFCHR SB-POSIX:ISIG SB-POSIX:LOG-LOCAL1 SB-POSIX:ERESTART SB-POSIX:MUNMAP SB-POSIX:EAGAIN SB-POSIX:SIGPIPE SB-POSIX:F-SETFD SB-POSIX:LOG-LOCAL4 SB-POSIX:MKSTEMP SB-POSIX:ENFILE SB-POSIX:ECHONL SB-POSIX:NLDLY SB-POSIX:VSUSP SB-POSIX:EL2NSYNC SB-POSIX:EBADMSG SB-POSIX:ETIMEDOUT SB-POSIX:VERASE SB-POSIX:SIGPWR SB-POSIX:EMULTIHOP SB-POSIX:S-IWOTH SB-POSIX:ISTRIP SB-POSIX:S-ISDIR SB-POSIX:O-ASYNC SB-POSIX:F-DUPFD SB-POSIX:EL3HLT SB-POSIX:ENONET SB-POSIX:ALARM SB-POSIX:LOG-MAIL SB-POSIX:ECHOK SB-POSIX:S-IWGRP SB-POSIX:B600 SB-POSIX:S-IFREG SB-POSIX:IGNBRK SB-POSIX:SIGTTIN SB-POSIX:SIGFPE SB-POSIX:FCNTL SB-POSIX:SETSID SB-POSIX:SIGIO SB-POSIX:CREAT SB-POSIX:UTIME SB-POSIX:ECHILD SB-POSIX:ECOMM SB-POSIX:EISCONN SB-POSIX:PAUSE SB-POSIX:EINTR SB-POSIX:CLOSE SB-POSIX:MKTEMP SB-POSIX:ABORT SB-POSIX:SETGID SB-POSIX:MS-ASYNC SB-POSIX:SETPGID SB-POSIX:O-NOCTTY SB-POSIX:ENETUNREACH SB-POSIX:EBADSLT SB-POSIX:MKFIFO SB-POSIX:VT0 SB-POSIX:IGNPAR SB-POSIX:O-RDWR SB-POSIX:BS0 SB-POSIX:PROT-READ SB-POSIX:F-RDLCK SB-POSIX:EL2HLT SB-POSIX:SETREGID SB-POSIX:TCFLOW SB-POSIX:ENOTNAM SB-POSIX:GETUID SB-POSIX:E2BIG SB-POSIX:FDATASYNC SB-POSIX:SEEK-SET SB-POSIX:LOG-SYSLOG SB-POSIX:TCGETATTR SB-POSIX:KILL SB-POSIX:ENOPKG SB-POSIX:VTDLY SB-POSIX:LOG-DAEMON SB-POSIX:TIMEVAL SB-POSIX:PROT-WRITE SB-POSIX:EUSERS SB-POSIX:SIGALRM SB-POSIX:ENOMEM SB-POSIX:EHOSTUNREACH SB-POSIX:LOG-CRON SB-POSIX:PARODD SB-POSIX:SIGTSTP SB-POSIX:SETFSUID SB-POSIX:VDISABLE SB-POSIX:F-TLOCK SB-POSIX:EMFILE SB-POSIX:SETFSGID SB-POSIX:LOG-USER SB-POSIX:EXFULL SB-POSIX:VMIN SB-POSIX:ECONNREFUSED SB-POSIX:FCHOWN SB-POSIX:SIGCONT SB-POSIX:ESOCKTNOSUPPORT SB-POSIX:CS6 SB-POSIX:CREAD SB-POSIX:O-LARGEFILE SB-POSIX:GETPAGESIZE SB-POSIX:O-NDELAY SB-POSIX:GETEGID SB-POSIX:EFBIG SB-POSIX:VKILL SB-POSIX:B230400 SB-POSIX:B1200 SB-POSIX:TCFLAG-T SB-POSIX:ELIBMAX SB-POSIX:SETUID SB-POSIX:F-GETOWN SB-POSIX:S-ISGID SB-POSIX:CHOWN SB-POSIX:SIGSTOP SB-POSIX:TCIOFLUSH SB-POSIX:STAT SB-POSIX:FF1 SB-POSIX:S-ISCHR SB-POSIX:O-DIRECTORY SB-POSIX:TOSTOP SB-POSIX:CR0 SB-POSIX:SETEUID SB-POSIX:NCCS SB-POSIX:B75 SB-POSIX:TERMIOS SB-POSIX:S-IFMT SB-POSIX:TCFLUSH SB-POSIX:R-OK SB-POSIX:WRITE SB-POSIX:GETPWUID SB-POSIX:F-GETFL SB-POSIX:OCRNL SB-POSIX:LOG-EMERG SB-POSIX:ENOSYS SB-POSIX:ONOCR SB-POSIX:SIGHUP SB-POSIX:MMAP SB-POSIX:SIGTERM SB-POSIX:ERANGE SB-POSIX:O-WRONLY SB-POSIX:SETEGID SB-POSIX:IGNCR SB-POSIX:ENOTEMPTY SB-POSIX:O-NOFOLLOW SB-POSIX:EPIPE SB-POSIX:EXDEV SB-POSIX:MS-INVALIDATE SB-POSIX:FCHMOD SB-POSIX:MKDIR SB-POSIX:EADDRINUSE SB-POSIX:SIGRTMAX SB-POSIX:PROT-EXEC SB-POSIX:GETCWD SB-POSIX:DUP2 SB-POSIX:SYNC SB-POSIX:TABDLY SB-POSIX:S-IXOTH SB-POSIX:EINPROGRESS SB-POSIX:EOPNOTSUPP SB-POSIX:LOG-LOCAL7 SB-POSIX:W-OK SB-POSIX:CHROOT SB-POSIX:TAB3 SB-POSIX:GETGRGID SB-POSIX:ECONNRESET SB-POSIX:EBADRQC SB-POSIX:SETPGRP SB-POSIX:IOCTL SB-POSIX:EEXIST SB-POSIX:S-IEXEC SB-POSIX:TCGETSID SB-POSIX:ENOSTR SB-POSIX:SIGRTMIN SB-POSIX:S-IRGRP SB-POSIX:ENOCSI SB-POSIX:WUNTRACED SB-POSIX:LOG-LOCAL2 SB-POSIX:ENOSPC SB-POSIX:FSTAT SB-POSIX:S-IFLNK SB-POSIX:CR1 SB-POSIX:READDIR SB-POSIX:FCHDIR SB-POSIX:VTIME SB-POSIX:O-RSYNC SB-POSIX:ICRNL SB-POSIX:SIGPROF SB-POSIX:B19200 SB-POSIX:B134 SB-POSIX:EBFONT SB-POSIX:TCION SB-POSIX:TCOFLUSH SB-POSIX:CHMOD SB-POSIX:LOG-FTP SB-POSIX:EUCLEAN SB-POSIX:ENOBUFS SB-POSIX:F-WRLCK SB-POSIX:LOG-NOWAIT SB-POSIX:TCIOFF SB-POSIX:ETIME SB-POSIX:S-IRUSR SB-POSIX:EDQUOT SB-POSIX:EPERM SB-POSIX:ETXTBSY SB-POSIX:CFSETISPEED SB-POSIX:CLOCAL SB-POSIX:EMSGSIZE SB-POSIX:EL3RST SB-POSIX:MAP-SHARED SB-POSIX:ICANON) See also: The ANSI Standard, Macro DEFPACKAGE The SBCL Manual, Variable *ON-PACKAGE-VARIANCE* 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_RSYNC (unknown to the C compiler). 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" ; file: /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/internal.lisp ; in: DEFUN SB-SIMPLE-STREAMS:READ-OCTETS ; (SB-SIMPLE-STREAMS::%READ-VECTOR SB-SIMPLE-STREAMS::BUFFER ; SB-SIMPLE-STREAMS::FD SB-SIMPLE-STREAMS::START SB-SIMPLE-STREAMS::END ; :BYTE-8 ; (IF SB-SIMPLE-STREAMS::BLOCKING ; :BNB ; NIL)) ; ; caught STYLE-WARNING: ; undefined function: SB-SIMPLE-STREAMS::%READ-VECTOR ; ; compilation unit finished ; Undefined function: ; SB-SIMPLE-STREAMS::%READ-VECTOR ; caught 3 STYLE-WARNING conditions ; printed 8 notes * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --load ../asdf-stub.lisp \ --eval '(asdf::test-asdf-contrib "sb-simple-streams")' STYLE-WARNING: redefining ASDF/SOURCE-REGISTRY:WRAPPING-SOURCE-REGISTRY in DEFUN 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_RSYNC (unknown to the C compiler). 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: Generic function OPEN-STREAM-P clobbers an earlier FTYPE proclamation (FUNCTION (STREAM) (VALUES (MEMBER T NIL) &OPTIONAL)) for the same name with (FUNCTION (T) *). STYLE-WARNING: Generic function CLOSE clobbers an earlier FTYPE proclamation (FUNCTION (STREAM &KEY (:ABORT T)) (VALUES (MEMBER T) &OPTIONAL)) for the same name with (FUNCTION (T &KEY (:ABORT T)) *). STYLE-WARNING: redefining COMMON-LISP:INTERACTIVE-STREAM-P in DEFUN STYLE-WARNING: redefining COMMON-LISP:FILE-STRING-LENGTH in DEFUN STYLE-WARNING: redefining COMMON-LISP:STREAM-EXTERNAL-FORMAT in DEFUN STYLE-WARNING: redefining COMMON-LISP:OPEN in DEFUN STYLE-WARNING: redefining COMMON-LISP:READ-BYTE in DEFUN STYLE-WARNING: redefining COMMON-LISP:READ-CHAR in DEFUN STYLE-WARNING: redefining COMMON-LISP:READ-CHAR-NO-HANG in DEFUN STYLE-WARNING: redefining COMMON-LISP:UNREAD-CHAR in DEFUN STYLE-WARNING: redefining COMMON-LISP:PEEK-CHAR in DEFUN STYLE-WARNING: redefining COMMON-LISP:LISTEN in DEFUN STYLE-WARNING: redefining COMMON-LISP:READ-LINE in DEFUN STYLE-WARNING: redefining COMMON-LISP:READ-SEQUENCE in DEFUN STYLE-WARNING: redefining COMMON-LISP:CLEAR-INPUT in DEFUN STYLE-WARNING: redefining COMMON-LISP:WRITE-BYTE in DEFUN STYLE-WARNING: redefining COMMON-LISP:WRITE-CHAR in DEFUN STYLE-WARNING: redefining COMMON-LISP:WRITE-STRING in DEFUN STYLE-WARNING: redefining COMMON-LISP:WRITE-LINE in DEFUN STYLE-WARNING: redefining COMMON-LISP:WRITE-SEQUENCE in DEFUN STYLE-WARNING: redefining COMMON-LISP:TERPRI in DEFUN STYLE-WARNING: redefining COMMON-LISP:FRESH-LINE in DEFUN STYLE-WARNING: redefining COMMON-LISP:FINISH-OUTPUT in DEFUN STYLE-WARNING: redefining COMMON-LISP:FORCE-OUTPUT in DEFUN STYLE-WARNING: redefining COMMON-LISP:CLEAR-OUTPUT in DEFUN STYLE-WARNING: redefining COMMON-LISP:FILE-POSITION in DEFUN STYLE-WARNING: redefining COMMON-LISP:FILE-LENGTH in DEFUN STYLE-WARNING: redefining SB-KERNEL:CHARPOS in DEFUN STYLE-WARNING: redefining SB-KERNEL:LINE-LENGTH in DEFUN STYLE-WARNING: redefining SB-INT:FILE-NAME in DEFUN STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-READ-CHAR in DEFUN STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-READ-CHARS in DEFUN STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-UNREAD-CHAR in DEFUN STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-WRITE-CHAR in DEFUN STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-WRITE-CHARS in DEFUN STYLE-WARNING: redefining SB-SIMPLE-STREAMS::NULL-LISTEN in DEFUN ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-simple-streams/simple-stream-tests.lisp" (written 28 JUN 2014 03:46: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 NON-EXISTENT-CLASS ...) ; compiling (DEFTEST NON-STREAM-CLASS ...) ; 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 ...) ; compiling (DEFTEST LP491087 ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;SIMPLE-STREAM-TESTS-ASDF-TMP.FASL.NEWEST written ; compilation finished in 0:00:00.828 * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "sb-sprof" "sb-sprof") :output-file (parse-native-namestring "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-sprof.fasl"))' /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-sprof.asd ; compiling file "/sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/contrib/sb-sprof/sb-sprof.lisp" (written 28 JUN 2014 03:46:25 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 INDEX ...)) ; compiling (DEFSTRUCT (SAMPLES) ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; 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 (DECLAIM (INLINE PTHREAD-KILL)) ; 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 ...) ; compiling (PROVIDE (QUOTE SB-SPROF)) ; /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-sprof.fasl written ; compilation finished in 0:00:00.854 * /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/src/runtime/sbcl --noinform --core /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/output/sbcl.core --lose-on-corruption --disable-debugger --no-sysinit --no-userinit --eval '(load (format nil "SYS:CONTRIB;~:@(~A~);TEST.LISP" "sb-sprof"))' LET WITH-HASH-TABLE-ITERATOR LET MACROLET LOOP BLOCK TAGBODY PROGN ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (#:N-MORE-10) (KEY) (VAL) &REST #:G17) ; (DECLARE (IGNORE #:G17)) ; (UNLESS #:N-MORE-10 (RETURN NIL)) ; (PUSHNEW (SB-IMPL::EF-NAMES VAL) RESULT :TEST #'EQUAL)) ; ; caught STYLE-WARNING: ; The variable KEY is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition /usr/bin/makeinfo -I "docstrings/" -I "../../contrib/" sbcl.texinfo /usr/bin/makeinfo -I "docstrings/" -I "../../contrib/" asdf.texinfo /usr/bin/makeinfo -I "docstrings/" -I "../../contrib/" --html --no-split --css-include=style-single.css sbcl.texinfo /usr/bin/makeinfo --html --no-split --css-include=style-single.css asdf.texinfo touch html-stamp /bin/rm -rf /sw/build.build/root-sbcl-1.2.1-1 /bin/mkdir -p /sw/build.build/root-sbcl-1.2.1-1/sw /bin/mkdir -p /sw/build.build/root-sbcl-1.2.1-1/DEBIAN /usr/sbin/chown -R fink-bld:fink-bld /sw/build.build/root-sbcl-1.2.1-1 sudo -u fink-bld [ENV] sh -c /tmp/fink.0f7sb find /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1 -depth -type d -name CVS -exec rm -rf {} \; find /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1 -depth -type f -name .cvsignore -exec rm -f {} \; find /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1 -depth -type f -name a.out -exec rm -f {} \; unset SBCL_HOME ; INSTALL_ROOT=/sw/build.build/root-sbcl-1.2.1-1/sw sh install.sh cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//asdf.fasl "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-aclrepl.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-aclrepl.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-bsd-sockets.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-bsd-sockets.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-cltl2.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-cltl2.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-concurrency.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-concurrency.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-cover.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-cover.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-executable.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-executable.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-gmp.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-gmp.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-grovel.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-grovel.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-introspect.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-introspect.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-md5.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-md5.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-mpfr.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-mpfr.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-posix.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-posix.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-queue.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-queue.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-rotate-byte.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-rotate-byte.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-rt.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-rt.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-simple-streams.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-simple-streams.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" cp /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-sprof.fasl /sw/build.build/sbcl-1.2.1-1/sbcl-1.2.1/obj/sbcl-home/contrib//sb-sprof.asd "/sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/contrib/" SBCL has been installed: binary /sw/build.build/root-sbcl-1.2.1-1/sw/bin/sbcl core and contribs in /sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/ Documentation: man /sw/build.build/root-sbcl-1.2.1-1/sw/share/man/man1/sbcl.1 info /sw/build.build/root-sbcl-1.2.1-1/sw/share/info/asdf.info [/sw/build.build/root-sbcl-1.2.1-1/sw/share/info/dir] info /sw/build.build/root-sbcl-1.2.1-1/sw/share/info/sbcl.info [/sw/build.build/root-sbcl-1.2.1-1/sw/share/info/dir] info /sw/build.build/root-sbcl-1.2.1-1/sw/share/info/sbcl.info-1 info /sw/build.build/root-sbcl-1.2.1-1/sw/share/info/sbcl.info-2 cp: doc/manual/*.pdf: No such file or directory html /sw/build.build/root-sbcl-1.2.1-1/sw/share/doc/sbcl/sbcl.html html /sw/build.build/root-sbcl-1.2.1-1/sw/share/doc/sbcl/asdf.html mv /sw/build.build/root-sbcl-1.2.1-1/sw/bin/sbcl /sw/build.build/root-sbcl-1.2.1-1/sw/lib/sbcl/sbcl echo '#! /bin/sh' > /sw/build.build/root-sbcl-1.2.1-1/sw/bin/sbcl echo 'SBCL_HOME=/sw/lib/sbcl/ exec /sw/lib/sbcl/sbcl "$@"' >> /sw/build.build/root-sbcl-1.2.1-1/sw/bin/sbcl chmod 755 /sw/build.build/root-sbcl-1.2.1-1/sw/bin/sbcl sudo -u fink-bld [ENV] sh -c /tmp/fink.NPqG7 /bin/rm -f /sw/build.build/root-sbcl-1.2.1-1/sw/info/dir /sw/build.build/root-sbcl-1.2.1-1/sw/info/dir.old /sw/build.build/root-sbcl-1.2.1-1/sw/share/info/dir /sw/build.build/root-sbcl-1.2.1-1/sw/share/info/dir.old Reverting ownership of install dir to root Writing control file... Writing package script postinst... Writing package script prerm... Writing md5sums file... env LANG=C LC_ALL=C dpkg-deb -b root-sbcl-1.2.1-1 /sw/fink/10.9/stable/main/binary-darwin-x86_64/languages dpkg-deb: building package `sbcl' in `/sw/fink/10.9/stable/main/binary-darwin-x86_64/languages/sbcl_1.2.1-1_darwin-x86_64.deb'. Removing runtime build-lock... Removing build-lock package... /sw/bin/dpkg-lockwait -r fink-buildlock-sbcl-1.2.1-1 (Reading database ... 4297 files and directories currently installed.) Removing fink-buildlock-sbcl-1.2.1-1 ...