tinaa/sbcl-0.9.9-darwin-ppc [ASDF Details]

REPL Output

;;; ASDF-INSTALL: Downloading 76185 bytes from http://common-lisp.net/project/tinaa/tinaa_latest.tar.gz to /Users/gwking/temporary/asdf-test/TINAA.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/TINAA.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
tinaa/
tinaa/COPYING
tinaa/dev/
tinaa/dev/api.lisp
tinaa/dev/build-contents.lisp
tinaa/dev/build-indexes.lisp
tinaa/dev/class-defs.lisp
tinaa/dev/definitions.lisp
tinaa/dev/doc-asdf-system.lisp
tinaa/dev/doc-class.lisp
tinaa/dev/doc-function.lisp
tinaa/dev/doc-glu-system.lisp
tinaa/dev/doc-lisp-things.lisp
tinaa/dev/doc-package.lisp
tinaa/dev/doc-symbol.lisp
tinaa/dev/doc-tapir.lisp
tinaa/dev/doc-variable.lisp
tinaa/dev/eksl-system.lisp
tinaa/dev/epilogue.lisp
tinaa/dev/files-and-urls.lisp
tinaa/dev/generate-output.lisp
tinaa/dev/load-glu.lisp
tinaa/dev/load-tinaa.lisp
tinaa/dev/macros.lisp
tinaa/dev/notes.text
tinaa/dev/package.lisp
tinaa/dev/permuted-index.lisp
tinaa/dev/templates.lisp
tinaa/dev/tinaa-page.lisp
tinaa/dev/tinaa.css
tinaa/dev/tinaa.lisp
tinaa/dev/tinaa.system
tinaa/dev/utilities.lisp
tinaa/tinaa.asd
tinaa/unit-tests/
tinaa/unit-tests/tests.lisp
tinaa/version
tinaa/website/
tinaa/website/source/
tinaa/website/source/images/
tinaa/website/source/images/logo.jpg
tinaa/website/source/images/this-is-not-a-pipe.jpg
tinaa/website/source/index.css
tinaa/website/source/index.lml
tinaa/website/stuff/
tinaa/website/stuff/logo.graffle

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tinaa/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tinaa/" ;;; ASDF-INSTALL: Downloading package CL-GRAPH, required by tinaa

;;; ASDF-INSTALL: Downloading 51891 bytes from http://common-lisp.net/project/cl-graph/cl-graph_latest.tar.gz to /Users/gwking/temporary/asdf-test/cl-graph.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/cl-graph.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
cl-graph/
cl-graph/cl-graph.asd
cl-graph/COPYING
cl-graph/dev/
cl-graph/dev/api.lisp
cl-graph/dev/cl-graph.system
cl-graph/dev/copying.lisp
cl-graph/dev/examples/
cl-graph/dev/examples/basic-graph-manipulation.lisp
cl-graph/dev/examples/class-hierarchy-to-dot.lisp
cl-graph/dev/examples/delicious-graphs.lisp
cl-graph/dev/examples/simple-graph.xml
cl-graph/dev/graph-algorithms.lisp
cl-graph/dev/graph-and-variates.lisp
cl-graph/dev/graph-container.lisp
cl-graph/dev/graph-generation.lisp
cl-graph/dev/graph-iterators.lisp
cl-graph/dev/graph-matrix.lisp
cl-graph/dev/graph-metrics.lisp
cl-graph/dev/graph.lisp
cl-graph/dev/graphviz/
cl-graph/dev/graphviz/graphviz-support-optional.lisp
cl-graph/dev/graphviz/graphviz-support.lisp
cl-graph/dev/load-glu.lisp
cl-graph/dev/macros.lisp
cl-graph/dev/notes.text
cl-graph/dev/package.lisp
cl-graph/dev/test-connected-components.lisp
cl-graph/dev/test-graph-algorithms.lisp
cl-graph/dev/test-graph-container.lisp
cl-graph/dev/test-graph-metrics.lisp
cl-graph/dev/test-graph.lisp
cl-graph/website/
cl-graph/website/source/
cl-graph/website/source/images/
cl-graph/website/source/index.lml

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/" 
"Trying to install asdf-system-connections with ASDF-Install..." ;;; ASDF-INSTALL: Downloading 3498 bytes from http://common-lisp.net/project/cl-containers/asdf-system-connections/asdf-system-connections_latest.tar.gz to /Users/gwking/temporary/asdf-test/ASDF-SYSTEM-CONNECTIONS.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/ASDF-SYSTEM-CONNECTIONS.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
asdf-system-connections/
asdf-system-connections/asdf-system-connections.asd
asdf-system-connections/COPYING
asdf-system-connections/dev/
asdf-system-connections/dev/asdf-system-connections.lisp
asdf-system-connections/dev/notes.text
asdf-system-connections/version
asdf-system-connections/website/
asdf-system-connections/website/source/
asdf-system-connections/website/source/images/
asdf-system-connections/website/source/index.lml

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-system-connections/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-system-connections/" 
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-system-connections/dev/asdf-system-connections.lisp" (written 04 APR 2006 09:26:12 AM):
; compiling (IN-PACKAGE ASDF)
; compiling (EXPORT (QUOTE #))
; compiling (DEFCLASS SYSTEM-CONNECTION ...)
; compiling (DEFUN MAP-SYSTEM-CONNECTIONS ...)
; compiling (DEFMACRO DEFSYSTEM-CONNECTION ...)
; compiling (DEFUN LOAD-CONNECTED-SYSTEMS ...)
; compiling (DEFUN REQUIRED-SYSTEMS-LOADED-P ...)
; compiling (DEFUN SYSTEM-LOADED-P ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD OPERATION-DONE-P ...)
; compiling (DEFUN FIND-SYSTEM-IN-MEMORY ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/asdf-system-connections/dev/asdf-system-connections.fasl written
; compilation finished in 0:00:01
;;; ASDF-INSTALL: Downloading package CL-MATHSTATS, required by cl-graph

;;; ASDF-INSTALL: Downloading 84446 bytes from http://common-lisp.net/project/cl-mathstats/cl-mathstats_latest.tar.gz to /Users/gwking/temporary/asdf-test/cl-mathstats.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/cl-mathstats.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
cl-mathstats/
cl-mathstats/cl-mathstats.asd
cl-mathstats/COPYING
cl-mathstats/dev/
cl-mathstats/dev/anova.lisp
cl-mathstats/dev/api.lisp
cl-mathstats/dev/basic-statistics.lisp
cl-mathstats/dev/binary-math.lisp
cl-mathstats/dev/class-defs.lisp
cl-mathstats/dev/correlation-regression.lisp
cl-mathstats/dev/define-statistical-fun.lisp
cl-mathstats/dev/definitions.lisp
cl-mathstats/dev/density-fns.lisp
cl-mathstats/dev/load-glu.lisp
cl-mathstats/dev/math-utilities.lisp
cl-mathstats/dev/matrices.lisp
cl-mathstats/dev/matrix-fns.lisp
cl-mathstats/dev/md5.lisp
cl-mathstats/dev/mersenne-twister.lisp
cl-mathstats/dev/package.lisp
cl-mathstats/dev/parameters.lisp
cl-mathstats/dev/sha1.lisp
cl-mathstats/dev/smoothing.lisp
cl-mathstats/dev/svd.lisp
cl-mathstats/dev/test-basic-statistics.lisp
cl-mathstats/dev/test-math-utilities.lisp
cl-mathstats/dev/utilities.lisp
cl-mathstats/unit-tests/
cl-mathstats/unit-tests/package.lisp
cl-mathstats/unit-tests/tests.lisp
cl-mathstats/website/
cl-mathstats/website/source/
cl-mathstats/website/source/images/
cl-mathstats/website/source/index.lml

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/" ;;; ASDF-INSTALL: Downloading package CL-CONTAINERS, required by cl-mathstats

;;; ASDF-INSTALL: Downloading 207838 bytes from http://common-lisp.net/project/cl-containers/cl-containers_latest.tar.gz to /Users/gwking/temporary/asdf-test/cl-containers.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/cl-containers.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
cl-containers/
cl-containers/cl-containers.asd
cl-containers/COPYING
cl-containers/dev/
cl-containers/dev/associative.lisp
cl-containers/dev/bags-and-sets.lisp
cl-containers/dev/basic-operations.lisp
cl-containers/dev/cl-containers.system
cl-containers/dev/compatibility.lisp
cl-containers/dev/container-api.lisp
cl-containers/dev/container-mixins.lisp
cl-containers/dev/container-sampling.lisp
cl-containers/dev/container-thread-safe.lisp
cl-containers/dev/containers-readtable.lisp
cl-containers/dev/containers.asdf
cl-containers/dev/containers.lisp
cl-containers/dev/copying.lisp
cl-containers/dev/eksl-priority-queue.lisp
cl-containers/dev/extra-stuff.lisp
cl-containers/dev/file-backed-table-container.lisp
cl-containers/dev/file-iterators.lisp
cl-containers/dev/flagged-issues.text
cl-containers/dev/heaps.lisp
cl-containers/dev/historical-notes.lisp
cl-containers/dev/immutable-containers.lisp
cl-containers/dev/iterator-api.lisp
cl-containers/dev/iterators.lisp
cl-containers/dev/lists.lisp
cl-containers/dev/load-glu.lisp
cl-containers/dev/miscellaneous.lisp
cl-containers/dev/more-containers.lisp
cl-containers/dev/notes.text
cl-containers/dev/package-container.lisp
cl-containers/dev/package.lisp
cl-containers/dev/quad-tree.lisp
cl-containers/dev/queues.lisp
cl-containers/dev/r-tree.lisp
cl-containers/dev/ring-buffers.lisp
cl-containers/dev/stacks.lisp
cl-containers/dev/table-container.lisp
cl-containers/dev/trees.lisp
cl-containers/dev/union-find-container.lisp
cl-containers/dev/utilities-integration.lisp
cl-containers/dev/vectors.lisp
cl-containers/dev/weighted-sampling.lisp
cl-containers/doc/
cl-containers/doc/acm_proc_article-sp.cls
cl-containers/doc/containers-hierarchy.graffle
cl-containers/doc/introduction-to-cl-containers.pdf
cl-containers/doc/introduction-to-cl-containers.tex
cl-containers/test/
cl-containers/test/package.lisp
cl-containers/test/scratch.lisp
cl-containers/test/test-containers.lisp
cl-containers/test/test-file-iterators.lisp
cl-containers/test/test-iterators.lisp
cl-containers/test/test-queue-delete.lisp
cl-containers/test/test-queues.lisp
cl-containers/test/test-reverse-container.lisp
cl-containers/test/test-set-container.lisp
cl-containers/test/test-vectors.lisp
cl-containers/version
cl-containers/website/
cl-containers/website/source/
cl-containers/website/source/images/
cl-containers/website/source/images/containers.pdf
cl-containers/website/source/images/iterators.pdf
cl-containers/website/source/index.lml
cl-containers/website/source/shared/
cl-containers/website/source/shared/buttons/
cl-containers/website/source/shared/buttons/cssvalid.gif
cl-containers/website/source/shared/buttons/hacker.png
cl-containers/website/source/shared/buttons/lambda-lisp.png
cl-containers/website/source/shared/buttons/lisp-lizard.png
cl-containers/website/source/shared/buttons/lml2-powered.png
cl-containers/website/source/shared/buttons/xhtml.gif
cl-containers/website/source/shared/lambda.png
cl-containers/website/source/shared/lisp-flag-with-hand.gif
cl-containers/website/source/shared/metabang-2.png
cl-containers/website/source/shared/style.css
cl-containers/website/stuff/
cl-containers/website/stuff/containers.dot
cl-containers/website/stuff/index.shtml
cl-containers/website/stuff/iterators.dot
cl-containers/website/stuff/project-name
cl-containers/website/stuff/Temp.lisp

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/" ;;; ASDF-INSTALL: Downloading package METABANG-DYNAMIC-CLASSES, required by cl-containers

;;; ASDF-INSTALL: Downloading 271337 bytes from http://common-lisp.net/project/cl-containers/metatilities/metatilities_latest.tar.gz to /Users/gwking/temporary/asdf-test/metabang-dynamic-classes.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/metabang-dynamic-classes.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
metatilities/
metatilities/COPYING
metatilities/dev/
metatilities/dev/allegro/
metatilities/dev/allegro/generic-interface-support.lisp
metatilities/dev/allegro/generic-lisp.lisp
metatilities/dev/contrib/
metatilities/dev/contrib/mcl/
metatilities/dev/contrib/mcl/appearance-mcl.lisp
metatilities/dev/contrib/mcl/appleevent-toolkit.lisp
metatilities/dev/contrib/mcl/eval-apple-script.lisp
metatilities/dev/contrib/mcl/framework-0.91/
metatilities/dev/contrib/mcl/framework-0.91/CFBundle.lisp
metatilities/dev/contrib/mcl/framework-0.91/cfm-fp-to-macho-fp.lisp
metatilities/dev/contrib/mcl/framework-0.91/framework.lisp
metatilities/dev/contrib/mcl/framework-0.91/package.lisp
metatilities/dev/contrib/mcl/framework-0.91/reader-macro.lisp
metatilities/dev/contrib/mcl/framework-0.91/ReadMe.lisp
metatilities/dev/contrib/mcl/Image-Dialog-Item.lisp
metatilities/dev/contrib/mcl/image-window.lisp
metatilities/dev/contrib/mcl/processes.lisp
metatilities/dev/contrib/mcl/profile.lisp
metatilities/dev/contrib/mcl/progress-indicator.lisp
metatilities/dev/contrib/mcl/qt-midi.lisp
metatilities/dev/contrib/mcl/scrolling-windows.lisp
metatilities/dev/contrib/mcl/Speech-Recognition-Manager.lisp
metatilities/dev/contrib/mcl/windoid-key-events.lisp
metatilities/dev/contrib/metering.lisp
metatilities/dev/defclass-star.lisp
metatilities/dev/define-class.lisp
metatilities/dev/dynamic-class.lisp
metatilities/dev/experimental/
metatilities/dev/experimental/write-missing-generics.lisp
metatilities/dev/generic-interface.lisp
metatilities/dev/generic-lisp.lisp
metatilities/dev/l0-arrays.lisp
metatilities/dev/l0-clos.lisp
metatilities/dev/l0-files.lisp
metatilities/dev/l0-macros.lisp
metatilities/dev/l0-utils.lisp
metatilities/dev/lispworks/
metatilities/dev/lispworks/generic-interface-support.lisp
metatilities/dev/lispworks/generic-lisp.lisp
metatilities/dev/load-glu.lisp
metatilities/dev/mcl/
metatilities/dev/mcl/generic-interface-support.lisp
metatilities/dev/mcl/generic-lisp.lisp
metatilities/dev/mcl/pop-up-menu.lisp
metatilities/dev/metatilities.system
metatilities/dev/names.lisp
metatilities/dev/notes.text
metatilities/dev/openmcl/
metatilities/dev/openmcl/generic-interface-support.lisp
metatilities/dev/openmcl/generic-lisp.lisp
metatilities/dev/package.lisp
metatilities/dev/sbcl/
metatilities/dev/sbcl/generic-interface-support.lisp
metatilities/dev/sbcl/generic-lisp.lisp
metatilities/dev/sbcl-warnings.text
metatilities/dev/set-equal.lisp
metatilities/dev/unsupported/
metatilities/dev/unsupported/generic-interface-support.lisp
metatilities/dev/unsupported/generic-lisp.lisp
metatilities/dev/utilities/
metatilities/dev/utilities/allegro/
metatilities/dev/utilities/allegro/tcp-allegro.lisp
metatilities/dev/utilities/anaphoric.lisp
metatilities/dev/utilities/copy-file.lisp
metatilities/dev/utilities/dates-and-times.lisp
metatilities/dev/utilities/debugging-utils.lisp
metatilities/dev/utilities/defsystem-compatibility.lisp
metatilities/dev/utilities/dev/
metatilities/dev/utilities/files.lisp
metatilities/dev/utilities/graham.lisp
metatilities/dev/utilities/lispworks/
metatilities/dev/utilities/lispworks/tcp-lispworks.lisp
metatilities/dev/utilities/locks.lisp
metatilities/dev/utilities/macros.lisp
metatilities/dev/utilities/make-allocatable.lisp
metatilities/dev/utilities/mcl/
metatilities/dev/utilities/mcl/tcp-mcl.lisp
metatilities/dev/utilities/more-view-and-window-utilities.lisp
metatilities/dev/utilities/notifications.lisp
metatilities/dev/utilities/openmcl/
metatilities/dev/utilities/openmcl/tcp-openmcl.lisp
metatilities/dev/utilities/package-additional.lisp
metatilities/dev/utilities/searching.lisp
metatilities/dev/utilities/sequences.lisp
metatilities/dev/utilities/settings.lisp
metatilities/dev/utilities/source-compare.lisp
metatilities/dev/utilities/spy.lisp
metatilities/dev/utilities/strings.lisp
metatilities/dev/utilities/test-dates-and-times.lisp
metatilities/dev/utilities/test-files.lisp
metatilities/dev/utilities/threads.lisp
metatilities/dev/utilities/utilities.lisp
metatilities/dev/utilities/views-and-windows.lisp
metatilities/metabang-dynamic-classes.asd
metatilities/metatilities-base.asd
metatilities/metatilities.asd
metatilities/website/
metatilities/website/source/
metatilities/website/source/images/
metatilities/website/source/index.lml

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/" ;;; ASDF-INSTALL: Downloading package MOPTILITIES, required by metatilities-base

;;; ASDF-INSTALL: Downloading 11213 bytes from http://common-lisp.net/project/cl-containers/moptilities/moptilities_latest.tar.gz to /Users/gwking/temporary/asdf-test/moptilities.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/moptilities.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
moptilities/
moptilities/COPYING
moptilities/dev/
moptilities/dev/moptilities.lisp
moptilities/dev/notes.text
moptilities/moptilities-test.asd
moptilities/moptilities.asd
moptilities/test/
moptilities/test/tests.lisp
moptilities/version
moptilities/website/
moptilities/website/source/
moptilities/website/source/images/
moptilities/website/source/index.lml

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/moptilities/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/moptilities/" ;;; ASDF-INSTALL: Downloading package CLOSER-MOP, required by moptilities

;;; ASDF-INSTALL: Downloading 20656 bytes from http://common-lisp.net/project/cl-containers/closer-mop/closer-mop_latest.tar.gz to /Users/gwking/temporary/asdf-test/closer-mop.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/closer-mop.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
closer-mop/
closer-mop/allegro/
closer-mop/allegro/closer-mop-packages.lisp
closer-mop/allegro/closer-mop.lisp
closer-mop/clisp/
closer-mop/clisp/closer-mop-packages.lisp
closer-mop/clisp/closer-mop.lisp
closer-mop/closer-mop-utility-packages.lisp
closer-mop/closer-mop.asd
closer-mop/features.lisp
closer-mop/features.txt
closer-mop/lispworks/
closer-mop/lispworks/closer-mop-packages.lisp
closer-mop/lispworks/closer-mop.lisp
closer-mop/mcl/
closer-mop/mcl/closer-mop-packages.lisp
closer-mop/mcl/closer-mop.lisp
closer-mop/pcl/
closer-mop/pcl/closer-mop-packages.lisp
closer-mop/pcl/closer-mop.lisp
closer-mop/release-notes.txt
closer-mop/supported-cls.txt
closer-mop/test/
closer-mop/test/jeffs-code.lisp

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/" ;;; ASDF-INSTALL: Downloading package LW-COMPAT, required by closer-mop

;;; ASDF-INSTALL: Downloading 1817 bytes from http://common-lisp.net/project/cl-containers/lw-compat/lw-compat_latest.tar.gz to /Users/gwking/temporary/asdf-test/lw-compat.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/lw-compat.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
lw-compat/
lw-compat/lw-compat-package.lisp
lw-compat/lw-compat.asd
lw-compat/lw-compat.lisp

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lw-compat/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lw-compat/" 
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lw-compat/lw-compat-package.lisp" (written 04 APR 2006 09:27:44 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE #:LISPWORKS ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lw-compat/lw-compat-package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lw-compat/lw-compat.lisp" (written 04 APR 2006 09:27:44 AM):
; compiling (IN-PACKAGE #:LISPWORKS)
; compiling (DEFINE-MODIFY-MACRO APPENDF ...)
; compiling (DEFINE-MODIFY-MACRO NCONCF ...)
; compiling (DEFMACRO REBINDING ...)
; compiling (DEFINE-MODIFY-MACRO REMOVEF ...)
; compiling (DEFMACRO WHEN-LET ...)
; compiling (DEFMACRO WHEN-LET* ...)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lw-compat/lw-compat.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/pcl/closer-mop-packages.lisp" (written 04 APR 2006 09:27:57 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE #:CLOSER-MOP ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/pcl/closer-mop-packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/pcl/closer-mop.lisp" (written 04 APR 2006 09:27:57 AM):
; compiling (IN-PACKAGE :CLOSER-MOP)
; compiling (DEFUN REQUIRED-ARGS ...)
; compiling (DEFUN MODIFY-ACCESSORS ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...)
; compiling (DEFGENERIC TRANSFORM-SPECIALIZER ...)
; compiling (DEFUN ENSURE-METHOD ...)
; compiling (DEFVAR *STANDARD-SLOT-KEYS* ...)
; compiling (DEFUN FIX-SLOT-INITARGS ...)
; compiling (DEFGENERIC TYPEP ...)
; compiling (DEFGENERIC SUBTYPEP ...)
; compiling (PUSHNEW :CLOSER-MOP ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/pcl/closer-mop.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/closer-mop-utility-packages.lisp" (written 04 APR 2006 09:27:56 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE #:CLOSER-COMMON-LISP ...)
; compiling (LET (#) ...)
; compiling (DEFPACKAGE #:CLOSER-COMMON-LISP-USER ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/closer-mop/closer-mop-utility-packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/moptilities/dev/moptilities.lisp" (written 04 APR 2006 09:27:32 AM):
; compiling (IN-PACKAGE CL-USER)
; compiling (REQUIRE (QUOTE SB-INTROSPECT))
; compiling (DEFPACKAGE #:METABANG.MOPTILITIES ...)
; compiling (IN-PACKAGE #:MOPTILITIES)
; compiling (DEFMACRO NYI ...)
; compiling (DEFGENERIC GET-CLASS ...)
; compiling (DEFGENERIC SUBCLASSP ...)
; compiling (DEFMETHOD SUBCLASSP ...)
; compiling (DEFUN FINALIZE-CLASS-IF-NECESSARY ...)
; compiling (DEFUN SUPERCLASSES ...)
; compiling (DEFUN DIRECT-SUPERCLASSES ...)
; compiling (DEFUN DIRECT-SUBCLASSES ...)
; compiling (DEFGENERIC METHOD-NAME ...)
; compiling (DEFGENERIC GET-METHOD ...)
; compiling (DEFGENERIC SLOT-NAMES ...)
; compiling (DEFGENERIC SLOT-PROPERTIES ...)
; compiling (DEFGENERIC GET-SLOT-DEFINITION ...)
; compiling (DEFGENERIC DIRECT-SLOT-NAMES ...)
; compiling (DEFGENERIC READER-METHOD-P ...)
; compiling (DEFGENERIC WRITER-METHOD-P ...)
; compiling (DEFUN MAP-METHODS ...)
; compiling (DEFUN REMOVE-METHODS ...)
; compiling (DEFUN REMOVE-METHODS-IF ...)
; compiling (DEFUN GENERIC-FUNCTIONS ...)
; compiling (DEFUN DIRECT-SPECIALIZERS-OF ...)
; compiling (DEFUN SPECIALIZERS-OF ...)
; compiling (DEFUN MAP-SUBCLASSES ...)
; compiling (DEFUN SUBCLASSES ...)
; compiling (DEFUN IN-ORDER-P ...)
; compiling (DEFUN GET-STRUCTURE ...)
; compiling (DEFUN FUNCTION-ARGLIST ...)
; compiling (DEFUN MOPU-CLASS-INITARGS ...)
; compiling (DEFGENERIC EQL-SPECIALIZER-P ...)
; compiling (DEFUN DEFAULT-INITARGS ...)
; compiling (DEFUN LEAF-CLASS-P ...)
; compiling (DEFUN LEAF-SUBCLASSES ...)
; compiling (DEFGENERIC CLASS-NAME-OF ...)
; compiling (DEFGENERIC COPY-TEMPLATE ...)
; compiling (DEFMETHOD COPY-TEMPLATE ...)
; compiling (DEFGENERIC WHEN-GARBAGE-COLLECTED ...)
; compiling (DEFMETHOD WHEN-GARBAGE-COLLECTED ...)
; compiling (DEFUN CARE-WHEN-GARBAGE-COLLECTED ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/moptilities/dev/moptilities.lisp
; in: DEFUN CARE-WHEN-GARBAGE-COLLECTED
;     (DEFUN METABANG.MOPTILITIES::CARE-WHEN-GARBAGE-COLLECTED
;          (METABANG.MOPTILITIES::OBJECT)
;     (METABANG.MOPTILITIES::NYI
;      'METABANG.MOPTILITIES::CARE-WHEN-GARBAGE-COLLECTED))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA METABANG.MOPTILITIES::CARE-WHEN-GARBAGE-COLLECTED
;                          (METABANG.MOPTILITIES::OBJECT)
;                          (BLOCK
;                              METABANG.MOPTILITIES::CARE-WHEN-GARBAGE-COLLECTED
;                            (METABANG.MOPTILITIES::NYI
;                             'METABANG.MOPTILITIES::CARE-WHEN-GARBAGE-COLLECTED)))
; 
; caught STYLE-WARNING:
;   The variable OBJECT is defined but never used.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/moptilities/dev/moptilities.fasl written
; compilation finished in 0:00:07
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {400096B9}> on
   #<CL-SOURCE-FILE "moptilities" {400096C9}>.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/package.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE :COMMON-LISP-USER)
; compiling (DEFPACKAGE #:METABANG.UTILITIES ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-utils.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFMACRO WITH-STANDARD-PRINTING ...)
; compiling (DEFUN NEQ ...)
; compiling (DECLAIM (INLINE NEQ))
; compiling (DEFINE-COMPILER-MACRO NEQ ...)
; compiling (DEFUN FORM-SYMBOL-IN-PACKAGE ...)
; compiling (DEFUN FORM-SYMBOL ...)
; compiling (DEFUN FORM-KEYWORD ...)
; compiling (DEFUN FORM-UNINTERNED-SYMBOL ...)
; compiling (DEFUN CURRENT-LOAD-FILE ...)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; compiling (DEFUN ENSURE-LIST ...)
; 
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names EVAL LOAD COMPILE

; compiling (DEFVAR *NEWSYM-COUNTER* ...)
; compiling (DEFUN NEWSYM ...)
; compiling (DEFUN EXPORT-EXPORTED-SYMBOLS ...)
; compiling (DEFGENERIC LENGTH-AT-LEAST-P ...)
; compiling (DEFMETHOD LENGTH-AT-LEAST-P ...)
; compiling (DEFMETHOD LENGTH-AT-LEAST-P ...)
; compiling (DEFGENERIC LENGTH-AT-MOST-P ...)
; compiling (DEFMETHOD LENGTH-AT-MOST-P ...)
; compiling (DEFMETHOD LENGTH-AT-MOST-P ...)
; compiling (DECLAIM (INLINE LENGTH-1-LIST-P))
; compiling (DEFUN LENGTH-1-LIST-P ...)
; compiling (DEFUN NEARLY-ZERO-P ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-utils.lisp
; in: DEFUN NEARLY-ZERO-P
;     (< 0.0 METABANG.UTILITIES::X)
; --> > IF 
; ==>
;   (> SB-C::Y SB-C::X)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a DOUBLE-FLOAT.

;     (> METABANG.UTILITIES::THRESHOLD METABANG.UTILITIES::X)
; 
; 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.

;     (> METABANG.UTILITIES::X METABANG.UTILITIES::THRESHOLD)
; 
; 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.

;     (< 0.0 METABANG.UTILITIES::X)
; --> > IF 
; ==>
;   (> SB-C::Y SB-C::X)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.

;     (> METABANG.UTILITIES::X METABANG.UTILITIES::THRESHOLD)
; 
; 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.

;     (> METABANG.UTILITIES::THRESHOLD METABANG.UTILITIES::X)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       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.

; compiling (DEFUN NEARLY-EQUAL-P ...)
; compiling (DEFPARAMETER +WHITESPACE-CHARACTERS+ ...)
; compiling (DEFUN WHITESPACEP ...)
; compiling (DEFUN DOTTED-PAIR-P ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-utils.fasl written
; compilation finished in 0:00:02
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {10009039}> on
   #<CL-SOURCE-FILE "l0-utils" {10009049}>.
STYLE-WARNING: redefining FORM-SYMBOL-IN-PACKAGE in DEFUN
STYLE-WARNING: redefining FORM-SYMBOL in DEFUN
STYLE-WARNING: redefining FORM-KEYWORD in DEFUN
STYLE-WARNING: redefining FORM-UNINTERNED-SYMBOL in DEFUN
STYLE-WARNING: redefining NEWSYM in DEFUN
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-macros.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFMACRO DEPRECATED ...)
; compiling (DEFMACRO ONCE-ONLY ...)
; compiling (DEFMACRO WITH-VARIABLES ...)
; compiling (DEFMACRO EVAL-ALWAYS ...)
; compiling (DEFMACRO DEFCLASS-PROPERTY ...)
; compiling (DEFMACRO WITH-ATOMIC-EXECUTION ...)
; compiling (DEFMACRO HANDLER-BIND* ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-macros.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-arrays.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN LINEARIZE-ARRAY ...)
; compiling (DEFUN COPY-ARRAY ...)
; compiling (DEFUN MAPARRAY ...)
; compiling (DEFUN MAPARRAY! ...)
; compiling (DEFUN ARRAY-ROW ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-arrays.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-clos.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFMETHOD RESET ...)
; compiling (DECLAIM (SPECIAL *SAMEP-TOLERANCE*))
; compiling (DEFVAR *SAMEP-TOLERANCE* ...)
; compiling (DECLAIM (SPECIAL *SAMEP-TEST*))
; compiling (DEFVAR *SAMEP-TEST* ...)
; compiling (DEFGENERIC SAMEP ...)
; compiling (DEFGENERIC NEARLY-SAMEP ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-clos.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-files.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN PATHNAME-NAME+TYPE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/l0-files.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/set-equal.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN SET-EQUAL ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/set-equal.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/generic-lisp.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFVAR *DEFAULT-INTERFACE* ...)
; compiling (DEFUN DEFAULT-INTERFACE ...)
; compiling (DEFUN (SETF DEFAULT-INTERFACE) ...)
; compiling (DEFGENERIC IS-INTERFACE-AVAILABLE-P ...)
; compiling (DEFMETHOD IS-INTERFACE-AVAILABLE-P ...)
; compiling (DEFUN IS-DEFAULT-INTERFACE-AVAILABLE-P ...)
; compiling (DEFMETHOD QUIT-LISP* ...)
; compiling (DEFUN QUIT-LISP ...)
; compiling (DEFGENERIC TOTAL-BYTES-ALLOCATED* ...)
; compiling (DEFUN TOTAL-BYTES-ALLOCATED ...)
; compiling (DEFGENERIC GC-TIME* ...)
; compiling (DEFUN GC-TIME ...)
; compiling (DEFGENERIC COLLECT-GARBAGE* ...)
; compiling (DEFUN COLLECT-GARBAGE ...)
; compiling (DEFMACRO MAKE-LOAD-FORM* ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/generic-lisp.fasl written
; compilation finished in 0:00:01
STYLE-WARNING: implicitly creating new generic function QUIT-LISP*
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/generic-interface.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DECLAIM (SPECIAL *DEVELOPMENT-MODE* ...))
; compiling (DEFVAR *DEVELOPMENT-MODE* ...)
; compiling (DEFVAR *USE-NATIVE-DEBUGGER* ...)
; compiling (DEFGENERIC MAKE-PROGRESS-BAR ...)
; compiling (DEFGENERIC PROGRESS-BAR-VALUE ...)
; compiling (DEFGENERIC (SETF PROGRESS-BAR-VALUE) ...)
; compiling (DEFGENERIC CLOSE-PROGRESS-BAR ...)
; compiling (DEFVAR *DUMMY-PROGRESS-VARIABLE*)
; compiling (DEFVAR *PROGRESS-BAR-COUNT* ...)
; compiling (DEFMACRO WITH-PROGRESS-BAR ...)
; compiling (DEFMACRO WITH-PROCESS-MESSAGE ...)
; compiling (DEFMACRO HANDLE-ERRORS ...)
; compiling (DEFGENERIC GUI-ERROR ...)
; compiling (DEFGENERIC GUI-WARN ...)
; compiling (DEFGENERIC MAKE-COLOR** ...)
; compiling (DEFMETHOD INTERFACE-BEEP* ...)
; compiling (DEFMETHOD INTERFACE-BEEP ...)
; compiling (DEFGENERIC QUIT-LISP* ...)
; compiling (DEFGENERIC Y-OR-N-QUESTION* ...)
; compiling (DEFMETHOD MAKE-PROGRESS-BAR ...)
; compiling (DEFMETHOD PROGRESS-BAR-VALUE ...)
; compiling (DEFMETHOD (SETF PROGRESS-BAR-VALUE) ...)
; compiling (DEFMETHOD CLOSE-PROGRESS-BAR ...)
; compiling (DEFMETHOD REPORT-CONDITION ...)
; compiling (DEFMETHOD GUI-ERROR* ...)
; compiling (DEFMETHOD GUI-ERROR ...)
; compiling (DEFMETHOD GUI-WARN* ...)
; compiling (DEFMETHOD GUI-WARN ...)
; compiling (DEFMETHOD MAKE-COLOR** ...)
; compiling (DEFMETHOD MAKE-COLOR* ...)
; compiling (DEFMETHOD MAKE-GRAY* ...)
; compiling (DEFMETHOD MAKE-GRAY ...)
; compiling (DEFMETHOD MAKE-SCALED-COLOR* ...)
; compiling (DEFMETHOD MAKE-SCALED-COLOR ...)
; compiling (DEFMETHOD Y-OR-N-QUESTION* ...)
; compiling (DEFUN Y-OR-N-QUESTION ...)
; compiling (DEFMETHOD CHOOSE-FILE-QUESTION* ...)
; compiling (DEFUN CHOOSE-FILE-QUESTION ...)
; compiling (DEFMETHOD CHOOSE-NEW-FILE-QUESTION* ...)
; compiling (DEFUN CHOOSE-NEW-FILE-QUESTION ...)
; compiling (DEFMETHOD CHOOSE-DIRECTORY-QUESTION* ...)
; compiling (DEFUN CHOOSE-DIRECTORY-QUESTION ...)
; compiling (DEFMETHOD CHOOSE-ITEM-QUESTION* ...)
; compiling (DEFUN CHOOSE-ITEM-QUESTION ...)
; compiling (DEFMETHOD CHOOSE-ITEM-FROM-PUP* ...)
; compiling (DEFUN CHOOSE-ITEM-FROM-PUP ...)
; compiling (DEFUN CHOOSE-ITEM-FROM-PUP-NO-SINGLETONS ...)
; compiling (DEFMETHOD MAKE-UI-POINT* ...)
; compiling (DEFUN MAKE-UI-POINT ...)
; compiling (DEFMETHOD PROCESS-PARAMETERS* ...)
; compiling (DEFMETHOD PROCESS-PARAMETERS ...)
; compiling (DEFMETHOD PUT-ITEM-ON-CLIPBOARD* ...)
; compiling (DEFMETHOD PUT-ITEM-ON-CLIPBOARD ...)
; compiling (DEFMETHOD INSPECT-THING* ...)
; compiling (DEFMETHOD INSPECT-THING ...)
; compiling (DEFUN INSPECT-THINGS ...)
; compiling (DEFMETHOD SOUND-NOTE* ...)
; compiling (DEFMETHOD SOUND-NOTE ...)
; compiling (DEFMETHOD STOP-NOTES* ...)
; compiling (DEFUN STOP-NOTES ...)
; compiling (DEFMETHOD SELECT-INSTRUMENT* ...)
; compiling (DEFMETHOD SELECT-INSTRUMENT ...)
; compiling (DEFUN QUERY-USER-FOR-STRING ...)
; compiling (DEFUN QUERY-USER-FOR-INTEGER ...)
; compiling (DEFMETHOD PROMPT-FOR* ...)
; compiling (DEFMETHOD PROMPT-FOR* ...)
; compiling (DEFMETHOD PROMPT-FOR* ...)
; compiling (DEFMETHOD PROMPT-FOR ...)
; compiling (DEFMETHOD SHELL-COMMAND* ...)
; compiling (DEFMETHOD SHELL-COMMAND ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/generic-interface.fasl written
; compilation finished in 0:00:08
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/defclass-star.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFVAR *AUTOMATIC-SLOT-ACCESSORS?* ...)
; compiling (DEFVAR *AUTOMATIC-SLOT-INITARGS?* ...)
; compiling (DEFVAR *CLOS-SLOT-OPTIONS* ...)
; compiling (DEFUN PARSE-BRIEF-SLOT ...)
; compiling (DEFMACRO DEFCLASS-BRIEF ...)
; compiling (DEFPARAMETER *DEFCLASS-COPY-CONDITION-FUNCTION* ...)
; compiling (DEFVAR *DEFCLASS-GENERATE-MAKE-LOAD-FORM* ...)
; compiling (DEFCLASS-PROPERTY DEFCLASS*-SUPERCLASSES)
; compiling (DEFUN CLASS-COPYABLE-P ...)
; compiling (DEFMACRO DEFCLASS* ...)
; compiling (DEFPARAMETER *DEFCONDITION-OPTIONS* ...)
; compiling (DEFMACRO DEFCONDITION ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/defclass-star.fasl written
; compilation finished in 0:00:02
STYLE-WARNING: implicitly creating new generic function DEFCLASS*-SUPERCLASSES
STYLE-WARNING:
   implicitly creating new generic function (SETF DEFCLASS*-SUPERCLASSES)
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/define-class.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFVAR *DEFINE-CLASS-FORM* ...)
; compiling (DEFUN SIMPLE-DEFINE-CLASS ...)
; compiling (DEFUN SIMPLE-DEFINE-CLASS-NAME ...)
; compiling (DEFUN DEFINE-CLASS ...)
; compiling (DEFUN FIND-EXISTING-SUBCLASS ...)
; compiling (DEFUN FIND-OR-CREATE-CLASS ...)
; compiling (DEFUN REMOVE-REDUNDANT-CLASSES ...)
; compiling (DEFUN CLASS-REDUNDANT-P ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/define-class.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: implicitly creating new generic function RESET
STYLE-WARNING: implicitly creating new generic function INTERFACE-BEEP*
STYLE-WARNING: implicitly creating new generic function INTERFACE-BEEP
STYLE-WARNING: redefining QUIT-LISP* in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function REPORT-CONDITION
STYLE-WARNING: implicitly creating new generic function GUI-ERROR*
STYLE-WARNING: implicitly creating new generic function GUI-WARN*
STYLE-WARNING: implicitly creating new generic function MAKE-COLOR*
STYLE-WARNING: implicitly creating new generic function MAKE-GRAY*
STYLE-WARNING: implicitly creating new generic function MAKE-GRAY
STYLE-WARNING: implicitly creating new generic function MAKE-SCALED-COLOR*
STYLE-WARNING: implicitly creating new generic function MAKE-SCALED-COLOR
STYLE-WARNING: implicitly creating new generic function CHOOSE-FILE-QUESTION*
STYLE-WARNING:
   implicitly creating new generic function CHOOSE-NEW-FILE-QUESTION*
STYLE-WARNING:
   implicitly creating new generic function CHOOSE-DIRECTORY-QUESTION*
STYLE-WARNING: implicitly creating new generic function CHOOSE-ITEM-QUESTION*
STYLE-WARNING: implicitly creating new generic function CHOOSE-ITEM-FROM-PUP*
STYLE-WARNING: implicitly creating new generic function MAKE-UI-POINT*
STYLE-WARNING: implicitly creating new generic function PROCESS-PARAMETERS*
STYLE-WARNING: implicitly creating new generic function PROCESS-PARAMETERS
STYLE-WARNING: implicitly creating new generic function PUT-ITEM-ON-CLIPBOARD*
STYLE-WARNING: implicitly creating new generic function PUT-ITEM-ON-CLIPBOARD
STYLE-WARNING: implicitly creating new generic function INSPECT-THING*
STYLE-WARNING: implicitly creating new generic function INSPECT-THING
STYLE-WARNING: implicitly creating new generic function SOUND-NOTE*
STYLE-WARNING: implicitly creating new generic function SOUND-NOTE
STYLE-WARNING: implicitly creating new generic function STOP-NOTES*
STYLE-WARNING: implicitly creating new generic function SELECT-INSTRUMENT*
STYLE-WARNING: implicitly creating new generic function SELECT-INSTRUMENT
STYLE-WARNING: implicitly creating new generic function PROMPT-FOR*
STYLE-WARNING: implicitly creating new generic function PROMPT-FOR
STYLE-WARNING: implicitly creating new generic function SHELL-COMMAND*
STYLE-WARNING: implicitly creating new generic function SHELL-COMMAND
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/dynamic-class.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFVAR *PARAMETER-DYNAMIC-CLASS-TABLE* ...)
; compiling (DEFUN TYPE->PARAMETER-TABLE ...)
; compiling (DEFUN (SETF TYPE->PARAMETER-TABLE) ...)
; compiling (DEFUN PARAMETER->DYNAMIC-CLASS ...)
; compiling (DEFUN (SETF PARAMETER->DYNAMIC-CLASS) ...)
; compiling (DEFUN TABLE&PARAMETER->DYNAMIC-CLASS ...)
; compiling (DEFUN ADD-PARAMETER->DYNAMIC-CLASS ...)
; compiling (DEFUN ADD-DYNAMIC-CLASS-FOR-PARAMETERS ...)
; compiling (DEFUN EMPTY-ADD-PARAMETER->DYNAMIC-CLASS ...)
; compiling (DEFUN EMPTY-ALL-ADD-PARAMETER->DYNAMIC-CLASS ...)
; compiling (DEFUN DYNAMIC-CLASS-INFORMATION ...)
; compiling (DEFMETHOD INCLUDE-CLASS-DEPENDENCIES ...)
; compiling (DEFMETHOD EXISTING-SUBCLASS ...)
; compiling (DEFUN DETERMINE-DYNAMIC-CLASS ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/dynamic-class.fasl written
; compilation finished in 0:00:01
STYLE-WARNING:
   implicitly creating new generic function INCLUDE-CLASS-DEPENDENCIES
STYLE-WARNING: implicitly creating new generic function EXISTING-SUBCLASS
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 10 notes
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/package.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE COMMON-LISP-USER)
; compiling (DEFPACKAGE #:METABANG.CL-CONTAINERS ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/package.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/container-api.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFGENERIC SAMPLE-ELEMENTS ...)
; compiling (DEFGENERIC SAMPLE-KEY ...)
; compiling (DEFGENERIC SAMPLE-UNIQUE-ELEMENTS ...)
; compiling (DEFGENERIC SAMPLE-ELEMENT ...)
; compiling (DEFGENERIC SAMPLE-ITEM ...)
; compiling (DEFGENERIC BEST-ITEM ...)
; compiling (DEFGENERIC ARGMAX ...)
; compiling (DEFGENERIC ARGMIN ...)
; compiling (DEFGENERIC MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFGENERIC NODE-EMPTY-P ...)
; compiling (DEFGENERIC SIZE ...)
; compiling (DEFGENERIC EMPTY! ...)
; compiling (DEFGENERIC SOME-ITEM-P ...)
; compiling (DEFGENERIC EVERY-ITEM-P ...)
; compiling (DEFGENERIC MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFGENERIC NTH-ELEMENT ...)
; compiling (DEFGENERIC NTH-ITEM ...)
; compiling (DEFGENERIC TOTAL-SIZE ...)
; compiling (DEFGENERIC ITEM-AT ...)
; compiling (DEFGENERIC ITEM-AT! ...)
; compiling (DEFGENERIC FIND-ITEM ...)
; compiling (DEFGENERIC FIND-NODE ...)
; compiling (DEFGENERIC FIND-ELEMENT ...)
; compiling (DEFGENERIC SEARCH-FOR-ITEM ...)
; compiling (DEFGENERIC SEARCH-FOR-MATCH ...)
; compiling (DEFGENERIC ITERATE-NODES ...)
; compiling (DEFGENERIC PRINT-CONTAINER ...)
; compiling (DEFGENERIC COLLECT-NODES ...)
; compiling (DEFGENERIC COLLECT-ELEMENTS ...)
; compiling (DEFGENERIC COLLECT-KEY-VALUE ...)
; compiling (DEFGENERIC COLLECT-KEYS ...)
; compiling (DEFGENERIC ITERATE-KEY-VALUE ...)
; compiling (DEFGENERIC ITERATE-VALUE-KEY ...)
; compiling (DEFGENERIC FIRST-ELEMENT ...)
; compiling (DEFUN FIRST-ITEM ...)
; compiling (DEFGENERIC LAST-ELEMENT ...)
; compiling (DEFUN LAST-ITEM ...)
; compiling (DEFGENERIC DELETE-FIRST ...)
; compiling (DEFGENERIC DELETE-LAST ...)
; compiling (DEFGENERIC INSERT-ITEM ...)
; compiling (DEFGENERIC APPEND-ITEM ...)
; compiling (DEFGENERIC INSERT-NEW-ITEM ...)
; compiling (DEFGENERIC APPEND-NEW-ITEM ...)
; compiling (DEFGENERIC INSERT-SEQUENCE ...)
; compiling (DEFGENERIC INSERT-LIST ...)
; compiling (DEFGENERIC DELETE-LIST ...)
; compiling (DEFGENERIC REVERSE-FIND ...)
; compiling (DEFGENERIC ENQUEUE ...)
; compiling (DEFGENERIC DEQUEUE ...)
; compiling (DEFGENERIC POP-ITEM ...)
; compiling (DEFGENERIC CHILDREN ...)
; compiling (DEFGENERIC ENSURE-SORTED ...)
; compiling (DEFGENERIC FORCE-SORT ...)
; compiling (DEFGENERIC REMOVE-ITEMS-IF ...)
; compiling (DEFGENERIC CONTAINER->ARRAY ...)
; compiling (DEFGENERIC ELEMENT-POSITION ...)
; compiling (DEFGENERIC DELETE-ITEM ...)
; compiling (DEFGENERIC DELETE-ITEM-IF ...)
; compiling (DEFGENERIC REVERSE-CONTAINER ...)
; compiling (DEFGENERIC UNIQUE-ELEMENTS ...)
; compiling (DEFGENERIC UNIQUE-NODES ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/container-api.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/containers.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFPARAMETER +EMPTY-INITIAL-ELEMENT+ ...)
; compiling (DEFCLASS* ABSTRACT-CONTAINER ...)
; compiling (DEFCLASS* CONCRETE-CONTAINER ...)
; compiling (DEFCLASS* CONTAINER-NODE-MIXIN ...)
; compiling (DEFCLASS* LIST-CONTAINER ...)
; compiling (DEFCLASS* PARENT-NODE-MIXIN ...)
; compiling (DEFCLASS* TWO-CHILD-NODE ...)
; compiling (DEFCLASS* KEYED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* TYPED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* BOUNDED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* INDEXED-CONTAINER-MIXIN ...)
; compiling (DEFMETHOD (SETF ITEM-AT) ...)
; compiling (DEFCLASS* INITIAL-ELEMENT-MIXIN ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFUN RETURN-EMPTY-INITIAL-ELEMENT ...)
; compiling (DEFMETHOD MAKE-INITIAL-ELEMENT ...)
; compiling (DEFCLASS* BASIC-INITIAL-CONTENTS-MIXIN ...)
; compiling (DEFCLASS* INITIAL-CONTENTS-MIXIN ...)
; compiling (DEFGENERIC INSERT-INITIAL-CONTENTS-P ...)
; compiling (DEFCLASS* INITIAL-CONTENTS-KEY-VALUE-MIXIN ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFCLASS* TEST-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* CONTAINER-USES-NODES-MIXIN ...)
; compiling (DEFCLASS* FINDABLE-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* SEARCHABLE-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* ITERATABLE-CONTAINER-MIXIN ...)
; compiling (DEFGENERIC ITERATABLE-P ...)
; compiling (DEFMETHOD ITERATE-CONTAINER ...)
; compiling (DEFMETHOD COLLECT-ITEMS ...)
; compiling (DEFCLASS* I-KNOW-MY-NODE-MIXIN ...)
; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFCLASS* NON-ASSOCIATIVE-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* UNORDERED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* ORDERED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* SORTED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* CLASSIFIED-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* USES-CONTENTS-MIXIN ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFCLASS* CONTENTS-AS-SEQUENCE-MIXIN ...)
; compiling (DEFCLASS* CONTENTS-AS-ARRAY-MIXIN ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD TOTAL-SIZE ...)
; compiling (DEFMETHOD INSERT-INITIAL-CONTENTS-P ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFCLASS* CONTENTS-AS-LIST-MIXIN ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFCLASS* CONTENTS-AS-HASHTABLE-MIXIN ...)
; compiling (DEFCLASS* STABLE-ASSOCIATIVE-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFCLASS* ASSOCIATIVE-ARRAY ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/containers.fasl written
; compilation finished in 0:00:04
STYLE-WARNING: implicitly creating new generic function (SETF ITEM-AT)
STYLE-WARNING: implicitly creating new generic function MAKE-INITIAL-ELEMENT
STYLE-WARNING: implicitly creating new generic function ITERATE-CONTAINER
STYLE-WARNING: implicitly creating new generic function COLLECT-ITEMS
STYLE-WARNING: implicitly creating new generic function MAKE-NODE-FOR-CONTAINER
STYLE-WARNING: implicitly creating new generic function COLLECT-ELEMENTS
STYLE-WARNING: implicitly creating new generic function ITERATE-NODES
STYLE-WARNING: implicitly creating new generic function SIZE
STYLE-WARNING: implicitly creating new generic function TOTAL-SIZE
STYLE-WARNING:
   implicitly creating new generic function MAKE-CONTAINER-FOR-CONTENTS
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/basic-operations.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCONDITION CONTAINER-ERROR ...)
; compiling (DEFCONDITION INDEX-OUT-OF-RANGE-ERROR ...)
; compiling (DEFGENERIC MAKE-CONTAINER ...)
; compiling (DEFUN FIND-MATCHING-CONTAINER-CLASS ...)
; compiling (DEFGENERIC EMPTY-P ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD FIND-ELEMENT ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ELEMENT ...)
; compiling (DEFMETHOD PRINT-CONTAINER ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD COLLECT-NODES ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFUN COLLECTOR-INTERNAL ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD SEARCH-FOR-ELEMENT ...)
; compiling (DEFMETHOD SEARCH-FOR-NODE ...)
; compiling (DEFUN %SEARCH-IN-CONTAINER ...)
; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
; compiling (DEFUN %SEARCH-FOR-MATCH ...)
; compiling (DEFMETHOD SEARCH-FOR-MATCHING-NODE ...)
; compiling (DEFMETHOD SEARCH-FOR-NODE ...)
; compiling (DEFMETHOD SEARCH-FOR-NODE ...)
; compiling (DEFMETHOD SEARCH-FOR-NODE* ...)
; compiling (DEFMETHOD SEARCH-FOR-NODE* ...)
; compiling (DEFMETHOD BEST-ITEM ...)
; compiling (DEFMETHOD BEST-ITEM ...)
; compiling (DEFMETHOD BEST-NODE ...)
; compiling (DEFMETHOD BEST-ELEMENT ...)
; compiling (DEFUN %BEST-HELPER ...)
; compiling (DEFMETHOD ARGMAX ...)
; compiling (DEFMETHOD ARGMIN ...)
; compiling (DEFMETHOD REDUCE-CONTAINER ...)
; compiling (DEFMETHOD REDUCE-ELEMENTS ...)
; compiling (DEFMETHOD REDUCE-NODES ...)
; compiling (DEFUN REDUCE-INTERNAL ...)
; compiling (DEFMETHOD DELETE-ITEM-IF ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFCLASS* KEY-VALUE-ITERATABLE-CONTAINER-MIXIN ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-LIST ...)
; compiling (DEFMETHOD INSERT-LIST ...)
; compiling (DEFMETHOD INSERT-SEQUENCE ...)
; compiling (DEFMETHOD INSERT-SEQUENCE ...)
; compiling (DEFMETHOD INSERT-SEQUENCE ...)
; compiling (DEFMETHOD INSERT-NEW-ITEM ...)
; compiling (DEFGENERIC SUCCESSOR ...)
; compiling (DEFGENERIC PREDECESSOR ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD SORT-ELEMENTS ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD SOME-ITEM-P ...)
; compiling (DEFMETHOD EVERY-ITEM-P ...)
; compiling (DEFMETHOD SOME-ELEMENT-P ...)
; compiling (DEFMETHOD EVERY-ELEMENT-P ...)
; compiling (DEFUN %EVERY-THING-P ...)
; compiling (DEFUN %SOME-THING-P ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD APPEND-ITEM ...)
; compiling (DEFMETHOD APPEND-NEW-ITEM ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITERATE-KEYS ...)
; compiling (DEFMETHOD COLLECT-KEY-VALUE ...)
; compiling (DEFUN %COLLECT-KEY-VALUE ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD REVERSE-FIND ...)
; compiling (DEFMETHOD FIND-VALUE ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD ADD-DEFAULT-ITEM ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD ITERATE-KEYS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS-STABLY ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; compiling (DEFMETHOD COLLECT-KEYS ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE-STABLY ...)
; compiling (DEFMETHOD COLLECT-KEY-VALUE-STABLY ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS-STABLY ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFUN TUPLE-INDEX ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD CONTAINER-DIMENSION ...)
; compiling (DEFMETHOD DIMENSIONS ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFUN COLLECT-USING ...)
; compiling (DEFUN COUNT-USING ...)
; compiling (DEFMETHOD CONTAINER-DIFFERENCE ...)
; compiling (DEFUN ASSOCIATIVE-CONTAINER-P ...)
; compiling (DEFMETHOD ADD-INITIAL-CONTENTS ...)
; compiling (DEFMETHOD ADD-INITIAL-CONTENTS ...)
; compiling (DEFUN ADD-INITIAL-CONTENTS-INTERNAL ...)
; compiling (DEFMETHOD ADD-INITIAL-CONTENTS ...)
; compiling (DEFMETHOD ELEMENT-POSITION ...)
; compiling (DEFMETHOD ELEMENT-POSITION ...)
; compiling (DEFMETHOD SAMEP ...)
; compiling (DEFMETHOD SAMEP ...)
; compiling (DEFMETHOD SAMEP ...)
; compiling (DEFMETHOD SAMEP ...)
; compiling (DEFMETHOD REVERSE-CONTAINER ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/basic-operations.fasl written
; compilation finished in 0:00:12
STYLE-WARNING: implicitly creating new generic function ITERATE-ELEMENTS
STYLE-WARNING: implicitly creating new generic function FIND-ELEMENT
STYLE-WARNING: implicitly creating new generic function DELETE-ITEM
STYLE-WARNING: implicitly creating new generic function DELETE-ELEMENT
STYLE-WARNING: implicitly creating new generic function PRINT-CONTAINER
STYLE-WARNING: implicitly creating new generic function NTH-ELEMENT
STYLE-WARNING: implicitly creating new generic function COLLECT-NODES
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-ITEM
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-ELEMENT
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-NODE
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-MATCH
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-MATCHING-NODE
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-NODE*
STYLE-WARNING: implicitly creating new generic function BEST-ITEM
STYLE-WARNING: implicitly creating new generic function BEST-NODE
STYLE-WARNING: implicitly creating new generic function BEST-ELEMENT
STYLE-WARNING: implicitly creating new generic function ARGMAX
STYLE-WARNING: implicitly creating new generic function ARGMIN
STYLE-WARNING: implicitly creating new generic function REDUCE-CONTAINER
STYLE-WARNING: implicitly creating new generic function REDUCE-ELEMENTS
STYLE-WARNING: implicitly creating new generic function REDUCE-NODES
STYLE-WARNING: implicitly creating new generic function DELETE-ITEM-IF
STYLE-WARNING: implicitly creating new generic function FIRST-ELEMENT
STYLE-WARNING: implicitly creating new generic function (SETF FIRST-ELEMENT)
STYLE-WARNING: implicitly creating new generic function DELETE-LIST
STYLE-WARNING: implicitly creating new generic function INSERT-LIST
STYLE-WARNING: implicitly creating new generic function INSERT-SEQUENCE
STYLE-WARNING: implicitly creating new generic function INSERT-NEW-ITEM
STYLE-WARNING: implicitly creating new generic function SORT-ELEMENTS
STYLE-WARNING: implicitly creating new generic function EMPTY!
STYLE-WARNING: implicitly creating new generic function FIND-ITEM
STYLE-WARNING: implicitly creating new generic function SOME-ITEM-P
STYLE-WARNING: implicitly creating new generic function EVERY-ITEM-P
STYLE-WARNING: implicitly creating new generic function SOME-ELEMENT-P
STYLE-WARNING: implicitly creating new generic function EVERY-ELEMENT-P
STYLE-WARNING: implicitly creating new generic function INSERT-ITEM
STYLE-WARNING: implicitly creating new generic function APPEND-ITEM
STYLE-WARNING: implicitly creating new generic function APPEND-NEW-ITEM
STYLE-WARNING: implicitly creating new generic function ITERATE-KEYS
STYLE-WARNING: implicitly creating new generic function COLLECT-KEY-VALUE
STYLE-WARNING: implicitly creating new generic function REVERSE-FIND
STYLE-WARNING: implicitly creating new generic function FIND-VALUE
STYLE-WARNING: implicitly creating new generic function ITEM-AT!
STYLE-WARNING: implicitly creating new generic function ADD-DEFAULT-ITEM
STYLE-WARNING: implicitly creating new generic function ITEM-AT
STYLE-WARNING: implicitly creating new generic function ITERATE-ELEMENTS-STABLY
STYLE-WARNING: implicitly creating new generic function ITERATE-KEY-VALUE
STYLE-WARNING: implicitly creating new generic function COLLECT-KEYS
STYLE-WARNING: implicitly creating new generic function ITERATE-KEY-VALUE-STABLY
STYLE-WARNING: implicitly creating new generic function COLLECT-KEY-VALUE-STABLY
STYLE-WARNING: implicitly creating new generic function COLLECT-ELEMENTS-STABLY
STYLE-WARNING: implicitly creating new generic function CONTAINER-DIMENSION
STYLE-WARNING: implicitly creating new generic function DIMENSIONS
STYLE-WARNING: implicitly creating new generic function CONTAINER-DIFFERENCE
STYLE-WARNING: implicitly creating new generic function ADD-INITIAL-CONTENTS
STYLE-WARNING: implicitly creating new generic function ELEMENT-POSITION
STYLE-WARNING: implicitly creating new generic function REVERSE-CONTAINER
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/queues.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* ABSTRACT-QUEUE ...)
; compiling (DEFINE-CONDITION EKSL-QUEUE-EMPTY ...)
; compiling (DEFMETHOD ENQUEUE ...)
; compiling (DEFMETHOD DEQUEUE ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD ERROR-IF-QUEUE-EMPTY ...)
; compiling (DEFCLASS* PRIORITY-QUEUE-ON-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD FIND-NODE ...)
; compiling (DEFMETHOD FIND-ELEMENT ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-NODE ...)
; compiling (DEFMETHOD DELETE-ELEMENT ...)
; compiling (DEFMETHOD DELETE-ITEM-IF ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFCLASS* BASIC-QUEUE ...)
; compiling (DEFUN FRONT-OF-QUEUE ...)
; compiling (DEFUN FRONT-OF-QUEUE! ...)
; compiling (DEFSETF FRONT-OF-QUEUE ...)
; compiling (DEFUN TAIL-OF-QUEUE ...)
; compiling (DEFUN TAIL-OF-QUEUE! ...)
; compiling (DEFSETF TAIL-OF-QUEUE ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD DELETE-ITEM ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/queues.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/stacks.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* ABSTRACT-STACK ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD PUSH-ITEM ...)
; compiling (DEFCLASS* STACK-CONTAINER ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD POP-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/stacks.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/trees.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* ABSTRACT-TREE-CONTAINER ...)
; compiling (DEFCLASS* ROOTED-TREE-CONTAINER ...)
; compiling (DEFCLASS* MANY-CHILD-NODE ...)
; compiling (DEFMETHOD ITERATE-CHILDREN ...)
; compiling (DEFMETHOD HAS-CHILDREN-P ...)
; compiling (DEFMETHOD FIND-CHILD-NODE ...)
; compiling (DEFCLASS* MANY-ORDERED-CHILD-NODE ...)
; compiling (DEFMETHOD CHILDREN ...)
; compiling (DEFCLASS* MANY-UNORDERED-CHILD-NODE ...)
; compiling (DEFCLASS* BINARY-SEARCH-TREE ...)
; compiling (DEFCLASS* BST-NODE ...)
; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFMETHOD NODE-EMPTY-P ...)
; compiling (DEFMETHOD NODE-EMPTY-P ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD FIND-NODE ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFMETHOD SUCCESSOR ...)
; compiling (DEFMETHOD PREDECESSOR ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-NODE ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM-IF ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD INORDER-WALK ...)
; compiling (DEFMETHOD PREORDER-WALK ...)
; compiling (DEFMETHOD POSTORDER-WALK ...)
; compiling (DEFMETHOD INORDER-WALK-NODES ...)
; compiling (DEFMETHOD PREORDER-WALK-NODES ...)
; compiling (DEFMETHOD POSTORDER-WALK-NODES ...)
; compiling (DEFMETHOD WALK-TREE ...)
; compiling (DEFMETHOD WALK-TREE ...)
; compiling (DEFMETHOD WALK-TREE-NODES ...)
; compiling (DEFMETHOD WALK-TREE-NODES ...)
; compiling (DEFCONSTANT +RBT-COLOR-BLACK+ ...)
; compiling (DEFCONSTANT +RBT-COLOR-RED+ ...)
; compiling (DEFVAR *RBT-EMPTY-NODE* ...)
; compiling (DEFCLASS* RED-BLACK-TREE ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFCLASS* RED-BLACK-NODE ...)
; compiling (DEFMETHOD NODE-EMPTY-P ...)
; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (SETF *RBT-EMPTY-NODE* ...)
; compiling (DEFMETHOD ROTATE-LEFT ...)
; compiling (DEFMETHOD ROTATE-RIGHT ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD RB-DELETE-FIXUP ...)
; compiling (DEFMETHOD WALK-TREE-NODES ...)
; compiling (DEFMETHOD WALK-TREE ...)
; compiling (DEFMETHOD HEIGHT ...)
; compiling (DEFMETHOD HEIGHT ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD UPDATE-ELEMENT ...)
; compiling (DEFGENERIC BST-NODE-IS-LEFT-CHILD ...)
; compiling (DEFGENERIC BST-NODE-IS-RIGHT-CHILD ...)
; compiling (DEFGENERIC BST-NODE-SET-RIGHT-CHILD ...)
; compiling (DEFGENERIC BST-NODE-SET-LEFT-CHILD ...)
; compiling (DEFGENERIC BST-NODE-REPLACE-CHILD ...)
; compiling (DEFCLASS* SPLAY-TREE ...)
; compiling (DEFGENERIC SPLAY-TREE-ROTATE ...)
; compiling (DEFGENERIC SPLAY-TREE-SPLAY ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD UPDATE-ELEMENT ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFGENERIC RIGHT-MOST-CHILD ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/trees.fasl written
; compilation finished in 0:00:08
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/lists.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFMETHOD INSERT-LIST ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD PRINT-CONTAINER ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFCLASS* SORTED-LIST-CONTAINER ...)
; compiling (DEFMETHOD SET-DIRTY-FLAG ...)
; compiling (DEFMETHOD CLEAN-UP ...)
; compiling (DEFMETHOD INSERT-LIST ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD PRINT-CONTAINER ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD ENSURE-SORTED ...)
; compiling (DEFMETHOD FORCE-SORT ...)
; compiling (DEFCLASS* DLIST-CONTAINER-NODE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS* DLIST-CONTAINER ...)
; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM-AFTER ...)
; compiling (DEFMETHOD INSERT-ITEM-AFTER ...)
; compiling (DEFMETHOD INSERT-ITEM-AFTER ...)
; compiling (DEFMETHOD INSERT-ITEM-AFTER ...)
; compiling (DEFMETHOD INSERT-ITEM-BEFORE ...)
; compiling (DEFMETHOD INSERT-ITEM-BEFORE ...)
; compiling (DEFMETHOD INSERT-ITEM-BEFORE ...)
; compiling (DEFMETHOD DELETE-ITEM-AFTER ...)
; compiling (DEFMETHOD DELETE-ITEM-BEFORE ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD REPLACE-ITEM ...)
; compiling (DEFMETHOD REPLACE-ITEM ...)
; compiling (DEFMETHOD SUCCESSOR ...)
; compiling (DEFMETHOD PREDECESSOR ...)
; compiling (DEFCLASS* SORTED-DLIST-CONTAINER ...)
; compiling (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...)
; compiling (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...)
; compiling (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...)
; compiling (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...)
; compiling (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...)
; compiling (DEFMETHOD INSERT-ITEM-ORDERED ...)
; compiling (DEFMETHOD INSERT-ITEM-ORDERED ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD FORCE-SORT ...)
; compiling (DEFMETHOD ENSURE-SORTED ...)
; compiling (DEFMETHOD LEFT-NODE-FOR-ITEM ...)
; compiling (DEFMETHOD RIGHT-NODE-FOR-ITEM ...)
; compiling (DEFMETHOD LEFT-AND-RIGHT-NODES-FOR-ITEM ...)
; compiling (DEFMETHOD ITERATE-LEFT-NODES ...)
; compiling (DEFMETHOD ITERATE-LEFT-NODES ...)
; compiling (DEFMETHOD ITERATE-LEFT-NODES ...)
; compiling (DEFMETHOD ITERATE-RIGHT-NODES ...)
; compiling (DEFMETHOD ITERATE-RIGHT-NODES ...)
; compiling (DEFMETHOD ITERATE-RIGHT-NODES ...)
; compiling (DEFMETHOD ITERATE-LEFT ...)
; compiling (DEFMETHOD ITERATE-LEFT ...)
; compiling (DEFMETHOD ITERATE-LEFT ...)
; compiling (DEFMETHOD ITERATE-RIGHT ...)
; compiling (DEFMETHOD ITERATE-RIGHT ...)
; compiling (DEFMETHOD ITERATE-RIGHT ...)
; compiling (DEFMETHOD SORT-UPDATE-LEFT ...)
; compiling (DEFMETHOD SORT-UPDATE-RIGHT ...)
; compiling (DEFMETHOD UPDATE-ITEM ...)
; compiling (DEFMETHOD UPDATE-ITEM ...)
; compiling (DEFMETHOD UPDATE-ITEM ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/lists.fasl written
; compilation finished in 0:00:10
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/bags-and-sets.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* ABSTRACT-BAG/SET-CONTAINER ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFCLASS* BAG-CONTAINER ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFCLASS* SET-CONTAINER ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFCLASS* BAG/SET-CONTAINER ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD FIND-VALUE ...)
; compiling (DEFCLASS* KEYED-BAG/SET-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD ITERATE-NODES ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/bags-and-sets.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/ring-buffers.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* RING-BUFFER ...)
; compiling (DEFUN MAKE-RING-BUFFER ...)
; compiling (DEFMETHOD MAKE-CONTAINER ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD INCREMENT-END ...)
; compiling (DEFMETHOD NEXT-ITEM ...)
; compiling (DEFMETHOD CURRENT-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD ITERATE-NODES ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/ring-buffers.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/miscellaneous.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFUN MERGE-ELEMENTS ...)
; compiling (DEFUN MERGE-NODES ...)
; compiling (DEFUN %MERGE-HELPER ...)
; compiling (DEFUN ELEMENT-COUNTS ...)
; compiling (DEFUN NODE-COUNTS ...)
; compiling (DEFUN %CONTAINER-COUNTS ...)
; compiling (DEFUN MAP-WINDOW-OVER-ELEMENTS ...)
; compiling (DEFUN MAP-WINDOW-OVER-NODES ...)
; compiling (DEFUN COLLECT-WINDOW-OVER-ELEMENTS ...)
; compiling (DEFUN COLLECT-WINDOW-OVER-NODES ...)
; compiling (DEFUN MAP-WINDOW-OVER-ELEMENTS-HELPER ...)
; compiling (DEFUN MAP-PAIRS ...)
; compiling (DEFUN COLLECT-PAIRS ...)
; compiling (DEFMETHOD UNIQUE-ELEMENTS ...)
; compiling (DEFMETHOD UNIQUE-ELEMENTS ...)
; compiling (DEFMETHOD UNIQUE-NODES ...)
; compiling (DEFMETHOD UNIQUE-NODES ...)
; compiling (DEFUN %UNIQUE-ELEMENTS ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/miscellaneous.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/associative.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* ASSOCIATIVE-CONTAINER-MIXIN ...)
; compiling (DEFMETHOD SOME-KEY-VALUE-P ...)
; compiling (DEFMETHOD EVERY-KEY-VALUE-P ...)
; compiling (DEFMETHOD SAMEP ...)
; compiling (DEFMETHOD COLLECT-KEYS ...)
; compiling (DEFMETHOD SEARCH-FOR-KEY ...)
; compiling (DEFMETHOD REMOVE-ITEMS-IF ...)
; compiling (DEFMETHOD REMOVE-ITEMS-IF ...)
; compiling (DEFMETHOD COUNT-ITEMS ...)
; compiling (DEFMETHOD COUNT-ELEMENTS ...)
; compiling (DEFMETHOD COUNT-ELEMENTS ...)
; compiling (DEFMETHOD COUNT-ELEMENTS-IF ...)
; compiling (DEFMETHOD COUNT-ELEMENTS-IF ...)
; compiling (DEFCLASS* ARRAY-CONTAINER-ABSTRACT ...)
; compiling (DEFCLASS* ARRAY-CONTAINER ...)
; compiling (DEFMETHOD PRINT-CONTAINER-SUMMARY ...)
; compiling (DEFUN MAKE-ARRAY-CONTAINER ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFMETHOD MAKE-CONTAINER ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD DIMENSIONS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFCLASS* SPARSE-ARRAY-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFMETHOD TOTAL-SIZE ...)
; compiling (DEFUN SPARSE-ARRAY-ROW-MAJOR-INDEX ...)
; compiling (DEFUN SPARSE-ARRAY-VALUE-TO-INDEX ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFCLASS* SIMPLE-ASSOCIATIVE-CONTAINER ...)
; compiling (DEFMETHOD ITEM-AT-1 ...)
; compiling (DEFMETHOD ITEM-AT-1! ...)
; compiling (DEFMETHOD (SETF ITEM-AT-1) ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; compiling (DEFCLASS* ASSOCIATIVE-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; compiling (DEFUN DESCEND-HT ...)
; compiling (DEFUN FIND-OR-CREATE-HT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD PRINT-CONTAINER ...)
; compiling (DEFMETHOD PRINT-CONTAINER ...)
; compiling (DEFCLASS* BIASSOCIATIVE-CONTAINER-MIXIN ...)
; compiling (DEFCLASS* ALIST-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-CONTAINER ...)
; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT-1 ...)
; compiling (DEFMETHOD ITEM-AT-1! ...)
; compiling (DEFUN MAYBE-SET-INITIAL-ELEMENT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITERATE-KEYS ...)
; compiling (DEFMETHOD REVERSE-FIND ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; compiling (DEFMETHOD SORT-KEYS ...)
; compiling (DEFMETHOD SORT-ELEMENTS ...)
; compiling (DEFMETHOD SORT-CONTAINER ...)
; compiling (DEFCLASS* KEYED-ASSOCIATIVE-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFUN IDENTITY-2 ...)
; compiling (DEFMETHOD ITEM-KEY ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFGENERIC KEY-EXISTS-P ...)
; compiling (DEFMETHOD KEY-EXISTS-P ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/associative.fasl written
; compilation finished in 0:00:08
STYLE-WARNING: implicitly creating new generic function SOME-KEY-VALUE-P
STYLE-WARNING: implicitly creating new generic function EVERY-KEY-VALUE-P
STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-KEY
STYLE-WARNING: implicitly creating new generic function REMOVE-ITEMS-IF
STYLE-WARNING: implicitly creating new generic function COUNT-ITEMS
STYLE-WARNING: implicitly creating new generic function COUNT-ELEMENTS
STYLE-WARNING: implicitly creating new generic function COUNT-ELEMENTS-IF
STYLE-WARNING: implicitly creating new generic function PRINT-CONTAINER-SUMMARY
STYLE-WARNING: implicitly creating new generic function ITEM-AT-1
STYLE-WARNING: implicitly creating new generic function ITEM-AT-1!
STYLE-WARNING: implicitly creating new generic function (SETF ITEM-AT-1)
STYLE-WARNING: implicitly creating new generic function DELETE-ITEM-AT
STYLE-WARNING: implicitly creating new generic function INITIALIZE-CONTAINER
STYLE-WARNING: implicitly creating new generic function SORT-KEYS
STYLE-WARNING: implicitly creating new generic function SORT-CONTAINER
STYLE-WARNING: implicitly creating new generic function ITEM-KEY
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/compatibility.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFMETHOD ITERATABLE-P ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD ELEMENT-POSITION ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD FIND-ITEM ...)
; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
; compiling (DEFMETHOD SEARCH-FOR-ELEMENT ...)
; compiling (DEFMETHOD REDUCE-ELEMENTS ...)
; compiling (DEFMETHOD SOME-ITEM-P ...)
; compiling (DEFMETHOD SOME-ELEMENT-P ...)
; compiling (DEFMETHOD EVERY-ITEM-P ...)
; compiling (DEFMETHOD EVERY-ELEMENT-P ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITERATABLE-P ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
; compiling (DEFMETHOD SOME-ITEM-P ...)
; compiling (DEFMETHOD SOME-ELEMENT-P ...)
; compiling (DEFMETHOD EVERY-ITEM-P ...)
; compiling (DEFMETHOD EVERY-ELEMENT-P ...)
; compiling (DEFMETHOD SORT-ELEMENTS ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITERATABLE-P ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
; compiling (DEFMETHOD SOME-ELEMENT-P ...)
; compiling (DEFMETHOD EVERY-ELEMENT-P ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD ITERATABLE-P ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD COLLECT-KEYS ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD ITEM-AT-1 ...)
; compiling (DEFMETHOD ITEM-AT-1! ...)
; compiling (DEFMETHOD PRINT-CONTAINER ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT-1 ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
; compiling (DEFMETHOD COLLECT-KEY-VALUE ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/compatibility.fasl written
; compilation finished in 0:00:08
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/vectors.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* VECTOR-CONTAINER-MIXIN ...)
; compiling (DEFMETHOD ITEM-AT ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFMETHOD NTH-ELEMENT ...)
; compiling (DEFMETHOD FIRST-ELEMENT ...)
; compiling (DEFMETHOD (SETF FIRST-ELEMENT) ...)
; compiling (DEFMETHOD LAST-ELEMENT ...)
; compiling (DEFMETHOD (SETF LAST-ELEMENT) ...)
; compiling (DEFCLASS* BASIC-VECTOR-CONTAINER ...)
; compiling (DEFCLASS* BOUNDED-VECTOR-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFCLASS* VECTOR-CONTAINER ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM-AT ...)
; compiling (DEFMETHOD DELETE-ITEM-AT ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD DELETE-FIRST ...)
; compiling (DEFMETHOD DELETE-LAST ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFCLASS* FLEXIBLE-VECTOR-CONTAINER ...)
; compiling (DEFMETHOD ITEM-AT! ...)
; compiling (DEFUN RESIZE-VECTOR ...)
; compiling (DEFMETHOD SAMEP ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/vectors.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/quad-tree.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* QUAD-TREE ...)
; compiling (DEFCLASS* FOUR-CHILD-NODE ...)
; compiling (DEFCLASS* QUAD-TREE-NODE ...)
; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFMETHOD NODE-EMPTY-P ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFGENERIC NOTIFY-ELEMENT-OF-CHILD-STATUS ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFMETHOD FIND-ITEM ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/quad-tree.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/heaps.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* HEAP-CONTAINER ...)
; compiling (DEFCLASS* HEAP-NODE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD L-CHILD ...)
; compiling (DEFMETHOD R-CHILD ...)
; compiling (DEFMETHOD HEAP-NODE-PARENT ...)
; compiling (DEFMETHOD L-CHILD-INDEX ...)
; compiling (DEFMETHOD R-CHILD-INDEX ...)
; compiling (DEFMETHOD NODE-PARENT-INDEX ...)
; compiling (DEFMETHOD EXCHANGE-HEAP-NODES ...)
; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFMETHOD HEAPIFY ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD BIGGEST-ITEM ...)
; compiling (DEFMETHOD DELETE-BIGGEST-ITEM ...)
; compiling (DEFMETHOD DELETE-ITEM ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFCLASS* K-BEST-HEAP-CONTAINER ...)
; compiling (DEFMETHOD INSERT-ITEM ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/heaps.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/container-mixins.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* FILTERED-CONTAINER-MIXIN ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/container-mixins.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/union-find-container.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* UNION-FIND-NODE ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD MAKE-SET ...)
; compiling (DEFMETHOD GRAFT-NODES ...)
; compiling (DEFMETHOD FIND-SET ...)
; compiling (DEFMETHOD LINK-NODES ...)
; compiling (DEFCLASS* UNION-FIND-CONTAINER ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD REPRESENTATIVE ...)
; compiling (DEFMETHOD REPRESENTATIVE-NODE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/union-find-container.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/package-container.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* PACKAGE-CONTAINER ...)
; compiling (DEFMETHOD (SETF PACKAGES) ...)
; compiling (DEFMETHOD (SETF PACKAGES) ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFUN BOUND-SYMBOLS-IN-PACKAGE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/package-container.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/iterator-api.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFGENERIC PRINT-ITERATOR ...)
; compiling (DEFGENERIC MOVE-P ...)
; compiling (DEFGENERIC ELEMENT-PASSES-P ...)
; compiling (DEFGENERIC MOVE ...)
; compiling (DEFGENERIC BASE-CLASS-FOR-ITERATEE ...)
; compiling (DEFGENERIC CLASS-FOR-CONTENTS-AS ...)
; compiling (DEFGENERIC CURRENT-ELEMENT ...)
; compiling (DEFGENERIC INCLUDE-CLASS-DEPENDENCIES ...)
; compiling (DEFGENERIC EXISTING-SUBCLASS ...)
; compiling (DEFGENERIC SETUP-INITIAL-CONTAINER ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/iterator-api.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: redefining INCLUDE-CLASS-DEPENDENCIES in DEFGENERIC
STYLE-WARNING: redefining EXISTING-SUBCLASS in DEFGENERIC
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/iterators.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCONSTANT +ITERATOR-BEFORE-BEGINNING+ ...)
; compiling (DEFCONSTANT +ITERATOR-AFTER-END+ ...)
; compiling (DEFCONDITION BASIC-ITERATOR-CONDITION ...)
; compiling (DEFCONDITION NO-CURRENT-ELEMENT-ERROR ...)
; compiling (DEFCLASS* ABSTRACT-GENERATOR ...)
; compiling (DEFCLASS* BASIC-ITERATOR ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD SETUP-INITIAL-CONTAINER ...)
; compiling (DEFMETHOD PRINT-ITERATOR ...)
; compiling (DEFMETHOD RESET ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-ITERATOR ...)
; compiling (DEFCLASS* FORWARD-ITERATOR ...)
; compiling (DEFMETHOD ITERATE-CONTAINER ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD ELEMENT ...)
; compiling (DEFMETHOD NEXT-ELEMENT ...)
; compiling (DEFMETHOD CURRENT-ELEMENT-P ...)
; compiling (DEFMETHOD ELEMENT ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFUN MOVE-FORWARD-P ...)
; compiling (DEFMETHOD MOVE-FORWARD ...)
; compiling (DEFMETHOD ITERATE-FORWARD ...)
; compiling (DEFCLASS* TRANSFORMING-ITERATOR-MIXIN ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFCLASS* BASIC-FILTERED-ITERATOR-MIXIN ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFCLASS* FILTERED-ITERATOR-MIXIN ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...)
; compiling (DEFMETHOD ELEMENT-PASSES-P ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD MOVE-FORWARD-TO-NEXT-ELEMENT ...)
; compiling (DEFCLASS* UNIQUE-VALUE-ITERATOR-MIXIN ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD ELEMENT-PASSES-P ...)
; compiling (DEFMETHOD ELEMENT ...)
; compiling (DEFCLASS* CIRCULAR-ITERATOR-MIXIN ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :ITERATOR ...)
; compiling (DEFCLASS* LIST-ITERATOR ...)
; compiling (DEFMETHOD RESET ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFCLASS* ARRAY-ITERATOR ...)
; compiling (DEFMETHOD RESET ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFCLASS* HASH-TABLE-ITERATOR ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD RESET ...)
; compiling (DEFVAR *CURRENT-ITERATEE* ...)
; compiling (DEFUN DETERMINE-ITERATOR-CLASS ...)
; compiling (DEFUN MAKE-ITERATOR ...)
; compiling (DEFMETHOD CLASS-FOR-CONTENTS-AS ...)
; compiling (DEFMETHOD INCLUDE-CLASS-DEPENDENCIES ...)
; compiling (DEFMETHOD EXISTING-SUBCLASS ...)
; compiling (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; compiling (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; compiling (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; compiling (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; compiling (DEFUN DETERMINE-GENERATOR-CLASS ...)
; compiling (DEFUN MAKE-GENERATOR ...)
; compiling (DEFMETHOD INCLUDE-CLASS-DEPENDENCIES ...)
; compiling (DEFMETHOD EXISTING-SUBCLASS ...)
; compiling (DEFCLASS* BASIC-GENERATOR ...)
; compiling (DEFCLASS* ARITHMETIC-SEQUENCE-GENERATOR ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (ADD-DYNAMIC-CLASS-FOR-PARAMETERS :GENERATOR ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFCLASS* FINITE-ARITHMETIC-SEQUENCE-GENERATOR ...)
; compiling (ADD-PARAMETER->DYNAMIC-CLASS :GENERATOR ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFUN MAP-CONTAINERS ...)
; compiling (DEFUN COLLECT-CONTAINERS ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/iterators.fasl written
; compilation finished in 0:00:07
STYLE-WARNING: implicitly creating new generic function NEXT-ELEMENT
STYLE-WARNING: implicitly creating new generic function CURRENT-ELEMENT-P
STYLE-WARNING: implicitly creating new generic function MOVE-FORWARD
STYLE-WARNING: implicitly creating new generic function ITERATE-FORWARD
STYLE-WARNING:
   implicitly creating new generic function MOVE-FORWARD-TO-NEXT-ELEMENT
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/file-iterators.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE CONTAINERS)
; compiling (DEFCLASS* BASIC-STREAM-ITERATOR ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD OPEN-FILE-FOR-ITERATOR ...)
; compiling (DEFMETHOD OPEN-FILE-FOR-ITERATOR ...)
; compiling (DEFMETHOD OPEN-FILE-FOR-ITERATOR ...)
; compiling (DEFCLASS* FILE-ITERATOR ...)
; compiling (DEFMETHOD BASE-CLASS-FOR-ITERATEE ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFMETHOD ADVANCE ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFMETHOD CURRENT-ELEMENT-P ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFCLASS* FILE-LINE-ITERATOR ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFMETHOD ADVANCE ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFMETHOD CURRENT-ELEMENT-P ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFMETHOD CLASS-FOR-CONTENTS-AS ...)
; compiling (DEFCLASS* DELIMITED-ITERATOR ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD CHECK-DELIMITER ...)
; compiling (DEFMETHOD MOVE ...)
; compiling (DEFMETHOD ADVANCE ...)
; compiling (DEFMETHOD CURRENT-ELEMENT ...)
; compiling (DEFMETHOD CURRENT-ELEMENT-P ...)
; compiling (DEFMETHOD MOVE-P ...)
; compiling (DEFCLASS* WORD-ITERATOR ...)
; compiling (DEFCLASS* LINE-ITERATOR ...)
; compiling (DEFMETHOD CLASS-FOR-CONTENTS-AS ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/file-iterators.fasl written
; compilation finished in 0:00:03
STYLE-WARNING: redefining BEST-ITEM in DEFGENERIC
STYLE-WARNING: redefining ARGMAX in DEFGENERIC
STYLE-WARNING: redefining ARGMIN in DEFGENERIC
STYLE-WARNING: redefining MAKE-NODE-FOR-CONTAINER in DEFGENERIC
STYLE-WARNING: redefining SIZE in DEFGENERIC
STYLE-WARNING: redefining EMPTY! in DEFGENERIC
STYLE-WARNING: redefining SOME-ITEM-P in DEFGENERIC
STYLE-WARNING: redefining EVERY-ITEM-P in DEFGENERIC
STYLE-WARNING: redefining MAKE-CONTAINER-FOR-CONTENTS in DEFGENERIC
STYLE-WARNING: redefining NTH-ELEMENT in DEFGENERIC
STYLE-WARNING: redefining TOTAL-SIZE in DEFGENERIC
STYLE-WARNING: redefining ITEM-AT in DEFGENERIC
STYLE-WARNING: redefining ITEM-AT! in DEFGENERIC
STYLE-WARNING: redefining FIND-ITEM in DEFGENERIC
STYLE-WARNING: redefining FIND-ELEMENT in DEFGENERIC
STYLE-WARNING: redefining SEARCH-FOR-ITEM in DEFGENERIC
STYLE-WARNING: redefining SEARCH-FOR-MATCH in DEFGENERIC
STYLE-WARNING: redefining ITERATE-NODES in DEFGENERIC
STYLE-WARNING: redefining PRINT-CONTAINER in DEFGENERIC
STYLE-WARNING: redefining COLLECT-NODES in DEFGENERIC
STYLE-WARNING: redefining COLLECT-ELEMENTS in DEFGENERIC
STYLE-WARNING: redefining COLLECT-KEY-VALUE in DEFGENERIC
STYLE-WARNING: redefining COLLECT-KEYS in DEFGENERIC
STYLE-WARNING: redefining ITERATE-KEY-VALUE in DEFGENERIC
STYLE-WARNING: redefining FIRST-ELEMENT in DEFGENERIC
STYLE-WARNING: redefining LAST-ELEMENT in DEFGENERIC
STYLE-WARNING: redefining INSERT-ITEM in DEFGENERIC
STYLE-WARNING: redefining APPEND-ITEM in DEFGENERIC
STYLE-WARNING: redefining INSERT-NEW-ITEM in DEFGENERIC
STYLE-WARNING: redefining APPEND-NEW-ITEM in DEFGENERIC
STYLE-WARNING: redefining INSERT-SEQUENCE in DEFGENERIC
STYLE-WARNING: redefining INSERT-LIST in DEFGENERIC
STYLE-WARNING: redefining DELETE-LIST in DEFGENERIC
STYLE-WARNING: redefining REVERSE-FIND in DEFGENERIC
STYLE-WARNING: redefining REMOVE-ITEMS-IF in DEFGENERIC
STYLE-WARNING: redefining ELEMENT-POSITION in DEFGENERIC
STYLE-WARNING: redefining DELETE-ITEM in DEFGENERIC
STYLE-WARNING: redefining DELETE-ITEM-IF in DEFGENERIC
STYLE-WARNING: redefining REVERSE-CONTAINER in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function ERROR-IF-QUEUE-EMPTY
STYLE-WARNING: implicitly creating new generic function DELETE-NODE
STYLE-WARNING: implicitly creating new generic function PUSH-ITEM
STYLE-WARNING: implicitly creating new generic function ITERATE-CHILDREN
STYLE-WARNING: implicitly creating new generic function HAS-CHILDREN-P
STYLE-WARNING: implicitly creating new generic function FIND-CHILD-NODE
STYLE-WARNING: implicitly creating new generic function INORDER-WALK
STYLE-WARNING: implicitly creating new generic function PREORDER-WALK
STYLE-WARNING: implicitly creating new generic function POSTORDER-WALK
STYLE-WARNING: implicitly creating new generic function INORDER-WALK-NODES
STYLE-WARNING: implicitly creating new generic function PREORDER-WALK-NODES
STYLE-WARNING: implicitly creating new generic function POSTORDER-WALK-NODES
STYLE-WARNING: implicitly creating new generic function WALK-TREE
STYLE-WARNING: implicitly creating new generic function WALK-TREE-NODES
STYLE-WARNING: implicitly creating new generic function ROTATE-LEFT
STYLE-WARNING: implicitly creating new generic function ROTATE-RIGHT
STYLE-WARNING: implicitly creating new generic function RB-DELETE-FIXUP
STYLE-WARNING: implicitly creating new generic function HEIGHT
STYLE-WARNING: implicitly creating new generic function UPDATE-ELEMENT
STYLE-WARNING: implicitly creating new generic function SET-DIRTY-FLAG
STYLE-WARNING: implicitly creating new generic function CLEAN-UP
STYLE-WARNING: implicitly creating new generic function INSERT-ITEM-AFTER
STYLE-WARNING: implicitly creating new generic function INSERT-ITEM-BEFORE
STYLE-WARNING: implicitly creating new generic function DELETE-ITEM-AFTER
STYLE-WARNING: implicitly creating new generic function DELETE-ITEM-BEFORE
STYLE-WARNING: implicitly creating new generic function REPLACE-ITEM
STYLE-WARNING: implicitly creating new generic function ITERATE-NODES-ABOUT-NODE
STYLE-WARNING:
   implicitly creating new generic function INSERT-ITEM-ORDERED-ABOUT-NODE
STYLE-WARNING: implicitly creating new generic function INSERT-ITEM-ORDERED
STYLE-WARNING: implicitly creating new generic function LEFT-NODE-FOR-ITEM
STYLE-WARNING: implicitly creating new generic function RIGHT-NODE-FOR-ITEM
STYLE-WARNING:
   implicitly creating new generic function LEFT-AND-RIGHT-NODES-FOR-ITEM
STYLE-WARNING: implicitly creating new generic function ITERATE-LEFT-NODES
STYLE-WARNING: implicitly creating new generic function ITERATE-RIGHT-NODES
STYLE-WARNING: implicitly creating new generic function ITERATE-LEFT
STYLE-WARNING: implicitly creating new generic function ITERATE-RIGHT
STYLE-WARNING: implicitly creating new generic function SORT-UPDATE-LEFT
STYLE-WARNING: implicitly creating new generic function SORT-UPDATE-RIGHT
STYLE-WARNING: implicitly creating new generic function UPDATE-ITEM
STYLE-WARNING: implicitly creating new generic function INCREMENT-END
STYLE-WARNING: implicitly creating new generic function CURRENT-ITEM
STYLE-WARNING: implicitly creating new generic function INSERT-ITEM-AT
STYLE-WARNING: implicitly creating new generic function L-CHILD
STYLE-WARNING: implicitly creating new generic function R-CHILD
STYLE-WARNING: implicitly creating new generic function HEAP-NODE-PARENT
STYLE-WARNING: implicitly creating new generic function L-CHILD-INDEX
STYLE-WARNING: implicitly creating new generic function R-CHILD-INDEX
STYLE-WARNING: implicitly creating new generic function NODE-PARENT-INDEX
STYLE-WARNING: implicitly creating new generic function EXCHANGE-HEAP-NODES
STYLE-WARNING: implicitly creating new generic function HEAPIFY
STYLE-WARNING: implicitly creating new generic function BIGGEST-ITEM
STYLE-WARNING: implicitly creating new generic function DELETE-BIGGEST-ITEM
STYLE-WARNING: implicitly creating new generic function MAKE-SET
STYLE-WARNING: implicitly creating new generic function GRAFT-NODES
STYLE-WARNING: implicitly creating new generic function FIND-SET
STYLE-WARNING: implicitly creating new generic function LINK-NODES
STYLE-WARNING: implicitly creating new generic function REPRESENTATIVE
STYLE-WARNING: implicitly creating new generic function REPRESENTATIVE-NODE
STYLE-WARNING: implicitly creating new generic function (SETF PACKAGES)
STYLE-WARNING: implicitly creating new generic function OPEN-FILE-FOR-ITERATOR
STYLE-WARNING: implicitly creating new generic function ADVANCE
STYLE-WARNING: implicitly creating new generic function CHECK-DELIMITER
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/utilities-integration.lisp" (written 04 APR 2006 09:26:18 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (MAKE-LOAD-FORM* ABSTRACT-CONTAINER)
; compiling (MAKE-LOAD-FORM* CONTAINER-NODE-MIXIN)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-containers/dev/utilities-integration.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/package.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE COMMON-LISP-USER)
; compiling (DEFPACKAGE #:CL-MATHSTATS ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/api.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE CL-MATHSTATS)
; compiling (DEFGENERIC DOT-PRODUCT ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/api.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/parameters.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DEFPARAMETER *GAUSSIAN-CDF-SIGNALS-ZERO-STANDARD-DEVIATION-ERROR* ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/parameters.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/math-utilities.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DECLAIM (INLINE ENSURE-FLOAT))
; compiling (DEFUN ENSURE-FLOAT ...)
; compiling (DEFUN LINEAR-SCALE ...)
; compiling (DEFUN TRUNCATE-TO-FACTOR ...)
; compiling (DEFUN ROUND-TO-FACTOR ...)
; compiling (DEFCONSTANT FPI ...)
; compiling (DEFCONSTANT 2FPI ...)
; compiling (DEFCONSTANT +E+ ...)
; compiling (DEFUN DEGREES->RADIANS ...)
; compiling (DEFUN RADIANS->DEGREES ...)
; compiling (DEFUN ON-INTERVAL ...)
; compiling (DEFUN COMBINATION-COUNT ...)
; compiling (DEFUN PERMUTATION-COUNT ...)
; compiling (DECLAIM (INLINE SQUARE))
; compiling (DEFUN SQUARE ...)
; compiling (DEFUN F-MEASURE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/math-utilities.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/class-defs.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE CL-MATHSTATS)
; compiling (DEFCONDITION DATA-ERROR ...)
; compiling (DEFCONDITION INSUFFICIENT-DATA ...)
; compiling (DEFCONDITION NO-DATA ...)
; compiling (DEFCONDITION ZERO-STANDARD-DEVIATION ...)
; compiling (DEFCONDITION ZERO-VARIANCE ...)
; compiling (DEFCONDITION UNMATCHED-SEQUENCES ...)
; compiling (DEFCONDITION NOT-BINARY-VARIABLES ...)
; compiling (DEFCONDITION ENORMOUS-CONTINGENCY-TABLE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/class-defs.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/definitions.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DEFCONSTANT +0DEGREES+ ...)
; compiling (DEFCONSTANT +5DEGREES+ ...)
; compiling (DEFCONSTANT +10DEGREES+ ...)
; compiling (DEFCONSTANT +15DEGREES+ ...)
; compiling (DEFCONSTANT +30DEGREES+ ...)
; compiling (DEFCONSTANT +45DEGREES+ ...)
; compiling (DEFCONSTANT +60DEGREES+ ...)
; compiling (DEFCONSTANT +90DEGREES+ ...)
; compiling (DEFCONSTANT +120DEGREES+ ...)
; compiling (DEFCONSTANT +135DEGREES+ ...)
; compiling (DEFCONSTANT +150DEGREES+ ...)
; compiling (DEFCONSTANT +180DEGREES+ ...)
; compiling (DEFCONSTANT +210DEGREES+ ...)
; compiling (DEFCONSTANT +225DEGREES+ ...)
; compiling (DEFCONSTANT +240DEGREES+ ...)
; compiling (DEFCONSTANT +270DEGREES+ ...)
; compiling (DEFCONSTANT +300DEGREES+ ...)
; compiling (DEFCONSTANT +315DEGREES+ ...)
; compiling (DEFCONSTANT +330DEGREES+ ...)
; compiling (DEFCONSTANT +360DEGREES+ ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/definitions.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/binary-math.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DEFUN TIMES2 ...)
; compiling (DEFUN DIV2 ...)
; compiling (DEFUN EXP2 ...)
; compiling (DEFUN LOG2 ...)
; compiling (DEFUN TRUNC2 ...)
; compiling (DEFUN MOD2 ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/binary-math.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/matrices.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DEFMACRO CHECK-TYPE-OF-ARG ...)
; compiling (DEFUN SCALAR-MATRIX-MULTIPLY ...)
; compiling (DEFUN 1-OR-2D-ARRAYP ...)
; compiling (DEFUN LIST-2D-ARRAY ...)
; compiling (DEFUN FILL-2D-ARRAY ...)
; compiling (DEFUN MULTIPLY-MATRICES ...)
; compiling (DEFUN INVERT-MATRIX ...)
; compiling (DEFUN MATRIX-NORM ...)
; compiling (DEFUN INVERT-MATRIX-ITERATE ...)
; compiling (DEFUN TRANSPOSE-MATRIX ...)
; compiling (DEFUN NORMALIZE-MATRIX ...)
; compiling (DEFUN SUM-OF-ARRAY-ELEMENTS ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/matrices.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/matrix-fns.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DEFUN MATRIX-TRACE ...)
; compiling (DEFUN MATRIX-MULTIPLY ...)
; compiling (DEFUN MATRIX-TIMES-SCALAR! ...)
; compiling (DEFUN MATRIX-TIMES-SCALAR ...)
; compiling (DEFUN MATRIX-TIMES-MATRIX ...)
; compiling (DEFUN MATRIX-ADDITION ...)
; compiling (DEFUN MATRIX-PLUS-SCALAR ...)
; compiling (DEFUN MATRIX-PLUS-MATRIX ...)
; compiling (DEFUN REDUCE-MATRIX ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/matrix-fns.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/density-fns.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DEFCONSTANT +LOG-PI+ ...)
; compiling (DEFCONSTANT +SQRT-PI+ ...)
; compiling (DEFUN GAMMA-LN ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/density-fns.lisp
; in: DEFUN GAMMA-LN
;     (LOG (SIN (* PI CL-MATHSTATS::Z)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES (OR (DOUBLE-FLOAT * 0.0d0) (COMPLEX DOUBLE-FLOAT))
;                           &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (+ (CL-MATHSTATS:GAMMA-LN (+ 1.0d0 CL-MATHSTATS::Z))
;      (LOG (SIN (* PI CL-MATHSTATS::Z))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
;   The second argument is a (OR (DOUBLE-FLOAT * 0.0d0)
;                                (COMPLEX DOUBLE-FLOAT)), not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a (OR (DOUBLE-FLOAT * 0.0d0)
;                                (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a (OR (DOUBLE-FLOAT * 0.0d0)
;                                (COMPLEX DOUBLE-FLOAT)), not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a (OR (DOUBLE-FLOAT * 0.0d0)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a (OR (DOUBLE-FLOAT * 0.0d0)
;                                (COMPLEX DOUBLE-FLOAT)), not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a (OR (DOUBLE-FLOAT * 0.0d0)
;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                                DOUBLE-FLOAT).

;     (- (+ (LOG CL-MATHSTATS::Z) CL-MATHSTATS::+LOG-PI+)
;      (+ (CL-MATHSTATS:GAMMA-LN (+ 1.0d0 CL-MATHSTATS::Z))
;         (LOG (SIN (* PI CL-MATHSTATS::Z)))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (LOG (* 2.50662827465d0 CL-MATHSTATS::SER))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES (OR DOUBLE-FLOAT (COMPLEX DOUBLE-FLOAT))
;                           &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (- (LOG (* 2.50662827465d0 CL-MATHSTATS::SER)) CL-MATHSTATS::TMP)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR DOUBLE-FLOAT
;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).

;     (+ (CL-MATHSTATS:GAMMA-LN (+ 1.0d0 CL-MATHSTATS::Z))
;      (LOG (SIN (* PI CL-MATHSTATS::Z))))
; 
; 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 (OR (DOUBLE-FLOAT * 0.0d0)
;                                    (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER
;                               &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).

;     (- (+ (LOG CL-MATHSTATS::Z) CL-MATHSTATS::+LOG-PI+)
;      (+ (CL-MATHSTATS:GAMMA-LN (+ 1.0d0 CL-MATHSTATS::Z))
;         (LOG (SIN (* PI CL-MATHSTATS::Z)))))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER
;                               &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).

;     (- (LOG (* 2.50662827465d0 CL-MATHSTATS::SER)) CL-MATHSTATS::TMP)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a (OR DOUBLE-FLOAT
;                                   (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES (OR (COMPLEX DOUBLE-FLOAT) DOUBLE-FLOAT)
;                               &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).

;     (LOG (* 2.50662827465d0 CL-MATHSTATS::SER))
; 
; note: doing float to pointer coercion (cost 13)

;     (- (LOG (* 2.50662827465d0 CL-MATHSTATS::SER)) CL-MATHSTATS::TMP)
; 
; note: doing float to pointer coercion (cost 13) from TMP, for:
;       the second argument of GENERIC--

;     (CL-MATHSTATS:GAMMA-LN (+ 1.0d0 CL-MATHSTATS::Z))
; 
; note: doing float to pointer coercion (cost 13) to X

;     (LOG (SIN (* PI CL-MATHSTATS::Z)))
; 
; note: doing float to pointer coercion (cost 13)

;     (- (+ (LOG CL-MATHSTATS::Z) CL-MATHSTATS::+LOG-PI+)
;      (+ (CL-MATHSTATS:GAMMA-LN (+ 1.0d0 CL-MATHSTATS::Z))
;         (LOG (SIN (* PI CL-MATHSTATS::Z)))))
; 
; note: doing float to pointer coercion (cost 13), for:
;       the first argument of GENERIC--

; compiling (DEFUN FACTORIAL-EXACT ...)
; compiling (DEFUN FACTORIAL ...)
; compiling (DEFUN FACTORIAL-LN ...)
; compiling (DEFUN BINOMIAL-COEFFICIENT ...)
; compiling (DEFUN BINOMIAL-COEFFICIENT-EXACT ...)
; compiling (DEFUN BINOMIAL-PROBABILITY ...)
; compiling (DEFUN BINOMIAL-PROBABILITY-EXACT ...)
; compiling (DEFUN BETA ...)
; compiling (DEFUN SAFE-EXP ...)
; compiling (DEFMACRO UNDERFLOW-GOES-TO-ZERO ...)
; compiling (DEFUN GAMMA-INCOMPLETE ...)
; compiling (DEFUN ERROR-FUNCTION ...)
; compiling (DEFUN GAUSSIAN-CDF ...)
; compiling (DEFUN ERROR-FUNCTION-COMPLEMENT ...)
; compiling (DEFUN ERROR-FUNCTION-COMPLEMENT-SHORT-1 ...)
; compiling (DEFUN ERROR-FUNCTION-COMPLEMENT-SHORT-2 ...)
; compiling (DEFUN GAUSSIAN-SIGNIFICANCE ...)
; compiling (DEFUN POISSON-CDF ...)
; compiling (DEFUN CHI-SQUARE-SIGNIFICANCE ...)
; compiling (DEFUN BETA-INCOMPLETE ...)
; compiling (DEFUN STUDENTS-T-SIGNIFICANCE ...)
; compiling (DEFUN F-SIGNIFICANCE ...)
; compiling (DEFUN BINOMIAL-CDF ...)
; compiling (DEFUN BINOMIAL-CDF-EXACT ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/density-fns.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/svd.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DEFMACRO AREF1 ...)
; compiling (DEFMACRO AREF11 ...)
; compiling (DEFMACRO SIGN-DF ...)
; compiling (DEFUN PYTHAG-DF ...)
; compiling (DEFUN SVBKSB-DF ...)
; compiling (DEFUN SVDCMP-DF ...)
; compiling (DEFUN SVZERO-DF ...)
; compiling (DEFUN SVD-INVERSE-SLOW-DF ...)
; compiling (DEFUN SVD-INVERSE-FAST-DF ...)
; compiling (DEFMACRO SIGN-SF ...)
; compiling (DEFUN PYTHAG-SF ...)
; compiling (DEFUN SVBKSB-SF ...)
; compiling (DEFUN SVDCMP-SF ...)
; compiling (DEFUN SVZERO-SF ...)
; compiling (DEFUN SVD-INVERSE-SLOW-SF ...)
; compiling (DEFUN SVD-INVERSE-FAST-SF ...)
; compiling (DEFUN SINGULAR-VALUE-DECOMPOSITION ...)
; compiling (DEFUN SVD-ZERO ...)
; compiling (DEFUN SVD-BACK-SUBSTITUTE ...)
; compiling (DEFUN SVD-SOLVE-LINEAR-SYSTEM ...)
; compiling (DEFUN SVDVAR ...)
; compiling (DEFUN SVD-MATRIX-INVERSE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/svd.fasl written
; compilation finished in 0:00:08
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/utilities.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DEFVAR *TEMPORARY-VECTOR* ...)
; compiling (DEFMACRO WITH-TEMP-VECTOR ...)
; compiling (DEFVAR *TEMPORARY-TABLE* ...)
; compiling (DEFMACRO WITH-TEMP-TABLE ...)
; compiling (DEFUN EXTRACT-UNIQUE-VALUES ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/utilities.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/define-statistical-fun.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DEFMACRO WITH-ROUTINE-ERROR-HANDLING ...)
; compiling (DEFMACRO DEFINE-STATISTIC ...)
; compiling (DEFUN REMOVE-&REST ...)
; compiling (DEFMETHOD MAKE-STATISTIC ...)
; compiling (DEFMETHOD CONVERT ...)
; compiling (DEFPARAMETER *CREATE-STATISTICAL-OBJECTS* ...)
; compiling (DEFCLASS DATA ...)
; compiling (DEFCLASS STATISTIC ...)
; compiling (DEFCLASS SIMPLE-STATISTIC ...)
; compiling (DEFCLASS COMPOSITE-STATISTIC ...)
; compiling (DEFMETHOD STATISTICP ...)
; compiling (DEFMETHOD STATISTICP ...)
; compiling (DEFMETHOD COMPOSITE-STATISTIC-P ...)
; compiling (DEFMETHOD COMPOSITE-STATISTIC-P ...)
; compiling (DEFMETHOD SIMPLE-STATISTIC-P ...)
; compiling (DEFMETHOD SIMPLE-STATISTIC-P ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/define-statistical-fun.fasl written
; compilation finished in 0:00:01
STYLE-WARNING: implicitly creating new generic function MAKE-STATISTIC
STYLE-WARNING: implicitly creating new generic function CONVERT
STYLE-WARNING: implicitly creating new generic function STATISTICP
STYLE-WARNING: implicitly creating new generic function COMPOSITE-STATISTIC-P
STYLE-WARNING: implicitly creating new generic function SIMPLE-STATISTIC-P
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DEFMETHOD CONVERT ...)
; compiling (DEFMETHOD CONVERT ...)
; compiling (DEFINE-STATISTIC DATA-LENGTH ...)
; compiling (DEFINE-STATISTIC MEAN ...)
; compiling (DEFUN SUM-OF-SQUARES ...)
; compiling (DEFINE-STATISTIC VARIANCE ...)
; compiling (DEFINE-STATISTIC STANDARD-DEVIATION ...)
; compiling (DEFINE-STATISTIC SKEWNESS ...)
; compiling (DEFINE-STATISTIC MINIMUM ...)
; compiling (DEFINE-STATISTIC MAXIMUM ...)
; compiling (DEFINE-STATISTIC RANGE ...)
; compiling (DEFINE-STATISTIC QUANTILE ...)
; compiling (DEFINE-STATISTIC MEDIAN ...)
; compiling (DEFINE-STATISTIC TRIMMED-MEAN ...)
; compiling (DEFMACRO START/END ...)
; compiling (DEFINE-STATISTIC MODE ...)
; compiling (DEFPARAMETER *CONTINUOUS-VARIABLE-UNIQUENESS-FACTOR* ...)
; compiling (DEFPARAMETER *CONTINOUS-DATA-WINDOW-DIVISOR* ...)
; compiling (DEFUN MODE-FOR-CONTINUOUS-DATA ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN MODE-FOR-CONTINUOUS-DATA
;     (DEFUN CL-MATHSTATS::MODE-FOR-CONTINUOUS-DATA
;          (CL-MATHSTATS::DATA
;           &REST CL-MATHSTATS::STANDARD-ARGS
;           &KEY CL-MATHSTATS::START CL-MATHSTATS::END CL-MATHSTATS::KEY
;           CL-MATHSTATS::WINDOW)
;     "Returns the most frequent element of `data,' which should be a sequence.  The
; algorithm involves sorting, and so the data must be numbers or the `key'
; function must produce numbers.  Consider `sxhash' if no better function is
; available.  Also returns the number of occurrences of the mode.  If there is
; more than one mode, this returns the first mode, as determined by the sorting of
; the numbers.
; 
; Keep in mind that if the data has multiple runs of like values that are bigger
; than the window size (currently defaults to 10% of the size of the data) this
; function will blindly pick the first one. If this is the case you probabaly
; should be calling `mode' instead of this function."
;     (DECLARE
;      (VALUES METABANG.UTILITIES:ELEMENT CL-MATHSTATS::NUMBER-OF-OCCURRENCES))
;     (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;     (WHEN (NOT (CL-MATHSTATS::DATA-CONTINUOUS-P CL-MATHSTATS::DATA))
;       (WARN 'CL-MATHSTATS::SEEMS-TO-BE-DISCRETE))
;     (LET* ((CL-MATHSTATS::N
;             (APPLY #'CL-MATHSTATS:DATA-LENGTH
;                    CL-MATHSTATS::DATA
;                    :ALLOW-OTHER-KEYS
;                    T
;                    CL-MATHSTATS::STANDARD-ARGS))
;            (CL-MATHSTATS::START2 (OR CL-MATHSTATS::START 0))
;            (CL-MATHSTATS::END2 (OR CL-MATHSTATS::END #))
;            (CL-MATHSTATS::J (OR CL-MATHSTATS::WINDOW #)))
;       (WHEN (ZEROP CL-MATHSTATS::N) (ERROR 'CL-MATHSTATS::NO-DATA))
;       (CL-MATHSTATS:WITH-TEMP-VECTOR (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
;                                      (REPLACE CL-MATHSTATS::TEMP
;                                               CL-MATHSTATS::DATA
;                                               :END1
;                                               CL-MATHSTATS::N
;                                               :START2
;                                               CL-MATHSTATS::START2
;                                               :END2
;                                               CL-MATHSTATS::END2)
;                                      (IF (NULL CL-MATHSTATS::KEY)
;                                          (SORT CL-MATHSTATS::TEMP #'<)
;                                          (SORT CL-MATHSTATS::TEMP
;                                                #'<
;                                                :KEY
;                                                CL-MATHSTATS::KEY))
;                                      (MACROLET (#)
;                                        (IF CL-MATHSTATS::KEY # #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (THE
;    #<SB-KERNEL:VALUES-TYPE (VALUES &OPTIONAL
;                                    METABANG.UTILITIES:ELEMENT
;                                    CL-MATHSTATS::NUMBER-OF-OCCURRENCES
;                                    &REST
;                                    T)>
;    (PROGN
;     (BLOCK CL-MATHSTATS::MODE-FOR-CONTINUOUS-DATA
;       (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;       (WHEN (NOT #) (WARN 'CL-MATHSTATS::SEEMS-TO-BE-DISCRETE))
;       (LET* (# # # #)
;         (WHEN # #)
;         (CL-MATHSTATS:WITH-TEMP-VECTOR # # # #)))))
; 
; note: type assertion too complex to check:
;  (VALUES &OPTIONAL ELEMENT NUMBER-OF-OCCURRENCES &REST T).

; compiling (DEFUN DATA-CONTINUOUS-P ...)
; compiling (DEFUN SMART-MODE ...)
; compiling (DEFINE-STATISTIC MULTIPLE-MODES ...)
; compiling (DEFINE-STATISTIC INTERQUARTILE-RANGE ...)
; compiling (DEFINE-STATISTIC TUKEY-SUMMARY ...)
; compiling (DEFINE-STATISTIC STATISTICAL-SUMMARY ...)
; compiling (DEFINE-STATISTIC SIGNIFICANCE ...)
; compiling (DEFINE-STATISTIC T-SIGNIFICANCE ...)
; compiling (DEFINE-STATISTIC T-TEST-ONE-SAMPLE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFINE-STATISTIC T-TEST-ONE-SAMPLE
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:T-TEST-ONE-SAMPLE
;                                   (CL-MATHSTATS:T-SIGNIFICANCE)
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
;                                                       &OPTIONAL
;                                                       (CL-MATHSTATS::H0-MEAN 0)
;                                                       &REST
;                                                       CL-MATHSTATS::STANDARD-ARGS
;                                                       &KEY
;                                                       CL-MATHSTATS::START
;                                                       CL-MATHSTATS::END
;                                                       CL-MATHSTATS::KEY)
;                                   "Returns the t-statistic for the mean of the data, which should be a sequence
; of numbers.  Let D be the sample mean.  The null hypothesis is that D equals the
; `H0-mean.' The alternative hypothesis is specified by `tails': `:both' means D
; /= H0-mean, `:positive' means D > H0-mean, and `:negative' means D < H0-mean.
; 
; The function also returns the significance, the standard error, and the degrees
; of freedom.  Signals `zero-variance' if that condition occurs.  Signals
; `insufficient-data' unless there are at least two elements in the sample."
;                                   (DECLARE
;                                    (IGNORE CL-MATHSTATS::START
;                                            CL-MATHSTATS::END
;                                            CL-MATHSTATS::KEY)
;                                    (VALUES CL-MATHSTATS::T-STATISTIC
;                                            CL-MATHSTATS:SIGNIFICANCE
;                                            CL-MATHSTATS::SAMPLE-ERROR
;                                            CL-MATHSTATS::DOF))
;                                   (LET ((CL-MATHSTATS::N
;                                          (APPLY #'CL-MATHSTATS:DATA-LENGTH
;                                                 CL-MATHSTATS::DATA
;                                                 CL-MATHSTATS::STANDARD-ARGS)))
;                                     (WHEN (ZEROP CL-MATHSTATS::N)
;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
;                                     (LET ((CL-MATHSTATS::D #)
;                                           (CL-MATHSTATS::V #))
;                                       (WHEN (ZEROP CL-MATHSTATS::V)
;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;                                       (LET* (# # #)
;                                         (VALUES CL-MATHSTATS::TT
;                                                 CL-MATHSTATS::SIG
;                                                 CL-MATHSTATS::SE
;                                                 #)))))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
;                          (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
;                                              &OPTIONAL
;                                              (CL-MATHSTATS::H0-MEAN 0)
;                                              &REST
;                                              CL-MATHSTATS::STANDARD-ARGS
;                                              &KEY
;                                              CL-MATHSTATS::START
;                                              CL-MATHSTATS::END
;                                              CL-MATHSTATS::KEY)
;                          (DECLARE
;                           (IGNORE CL-MATHSTATS::START
;                                   CL-MATHSTATS::END
;                                   CL-MATHSTATS::KEY)
;                           (VALUES CL-MATHSTATS::T-STATISTIC
;                                   CL-MATHSTATS:SIGNIFICANCE
;                                   CL-MATHSTATS::SAMPLE-ERROR
;                                   CL-MATHSTATS::DOF))
;                          (BLOCK CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
;                            (LET ((CL-MATHSTATS::N #))
;                              (WHEN (ZEROP CL-MATHSTATS::N)
;                                (ERROR 'CL-MATHSTATS::NO-DATA))
;                              (LET (# #)
;                                (WHEN # #)
;                                (LET* #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (DATA TAILS
;                                                           &OPTIONAL
;                                                           (H0-MEAN 0)
;                                                           &REST
;                                                           STANDARD-ARGS
;                                                           &KEY
;                                                           START
;                                                           END
;                                                           KEY)

; compiling (DEFINE-STATISTIC T-TEST ...)
; compiling (DEFINE-STATISTIC D-TEST ...)
; compiling (DEFINE-STATISTIC T-TEST-MATCHED ...)
; compiling (DEFINE-STATISTIC Z-TEST-ONE-SAMPLE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFINE-STATISTIC Z-TEST-ONE-SAMPLE
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:Z-TEST-ONE-SAMPLE
;                                   (CL-MATHSTATS:SIGNIFICANCE)
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
;                                                       &OPTIONAL
;                                                       (CL-MATHSTATS::H0-MEAN 0)
;                                                       (CL-MATHSTATS::H0-STD-DEV
;                                                        1)
;                                                       &REST
;                                                       CL-MATHSTATS::STANDARD-ARGS
;                                                       &KEY
;                                                       CL-MATHSTATS::START
;                                                       CL-MATHSTATS::END
;                                                       CL-MATHSTATS::KEY)
;                                   (DECLARE
;                                    (IGNORE CL-MATHSTATS::START
;                                            CL-MATHSTATS::END
;                                            CL-MATHSTATS::KEY
;                                            CL-MATHSTATS::TAILS)
;                                    (VALUES CL-MATHSTATS::Z-STATISTIC
;                                            CL-MATHSTATS:SIGNIFICANCE))
;                                   (LET ((CL-MATHSTATS::N
;                                          (APPLY #'CL-MATHSTATS:DATA-LENGTH
;                                                 CL-MATHSTATS::DATA
;                                                 CL-MATHSTATS::STANDARD-ARGS)))
;                                     (WHEN (ZEROP CL-MATHSTATS::N)
;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
;                                     (LET ((CL-MATHSTATS::D #)
;                                           (CL-MATHSTATS::V #))
;                                       (WHEN (ZEROP CL-MATHSTATS::V)
;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;                                       (LET* (# CL-MATHSTATS::SIG)
;                                         (VALUES CL-MATHSTATS::ZS
;                                                 CL-MATHSTATS::SIG)))))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::Z-TEST-ONE-SAMPLE-INTERNAL
;                          (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
;                                              &OPTIONAL
;                                              (CL-MATHSTATS::H0-MEAN 0)
;                                              (CL-MATHSTATS::H0-STD-DEV 1)
;                                              &REST
;                                              CL-MATHSTATS::STANDARD-ARGS
;                                              &KEY
;                                              CL-MATHSTATS::START
;                                              CL-MATHSTATS::END
;                                              CL-MATHSTATS::KEY)
;                          (DECLARE
;                           (IGNORE CL-MATHSTATS::START
;                                   CL-MATHSTATS::END
;                                   CL-MATHSTATS::KEY
;                                   CL-MATHSTATS::TAILS)
;                           (VALUES CL-MATHSTATS::Z-STATISTIC
;                                   CL-MATHSTATS:SIGNIFICANCE))
;                          (BLOCK CL-MATHSTATS::Z-TEST-ONE-SAMPLE-INTERNAL
;                            (LET ((CL-MATHSTATS::N #))
;                              (WHEN (ZEROP CL-MATHSTATS::N)
;                                (ERROR 'CL-MATHSTATS::NO-DATA))
;                              (LET (# #)
;                                (WHEN # #)
;                                (LET* #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (DATA TAILS
;                                                           &OPTIONAL
;                                                           (H0-MEAN 0)
;                                                           (H0-STD-DEV 1)
;                                                           &REST
;                                                           STANDARD-ARGS
;                                                           &KEY
;                                                           START
;                                                           END
;                                                           KEY)

; compiling (DEFUN INNER-PRODUCT ...)
; compiling (DEFINE-STATISTIC COVARIANCE ...)
; compiling (DEFINE-STATISTIC CONFIDENCE-INTERVAL ...)
; compiling (DEFINE-STATISTIC CONFIDENCE-INTERVAL-Z ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFINE-STATISTIC CONFIDENCE-INTERVAL-Z
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:CONFIDENCE-INTERVAL-Z
;                                   (CL-MATHSTATS:CONFIDENCE-INTERVAL)
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::CONFIDENCE)
;                                   "Suppose you have a sample of 50 numbers and you want to compute a 90 percent
; confidence interval on the population mean.  This function is the one to use.
; Note that it makes the assumption that the sampling distribution is normal, so
; it's inappropriate for small sample sizes.  Use confidence-interval-t instead.
; It returns three values: the mean and the lower and upper bound of the
; confidence interval.  True, only two numbers are necessary, but the confidence
; intervals of other statistics may be asymmetrical and these values would be
; consistent with those confidence intervals.  This function handles 90, 95 and 99
; percent confidence intervals as special cases, so those will be quite fast.
; `Sample' should be a sequence of numbers.  `Confidence' should be a number
; between 0 and 1, exclusive."
;                                   (DECLARE
;                                    (VALUES CL-MATHSTATS:MEAN
;                                            CL-MATHSTATS::LOWER
;                                            CL-MATHSTATS::UPPER))
;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                                   (CHECK-TYPE CL-MATHSTATS::CONFIDENCE
;                                               (REAL (0) (1)))
;                                   (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
;                                    (CL-MATHSTATS:MEAN CL-MATHSTATS::DATA)
;                                    (SQRT
;                                     (/
;                                      (CL-MATHSTATS:VARIANCE CL-MATHSTATS::DATA)
;                                      (LENGTH CL-MATHSTATS::DATA)))
;                                    CL-MATHSTATS::CONFIDENCE))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (THE
;    #<SB-KERNEL:VALUES-TYPE (VALUES &OPTIONAL
;                                    CL-MATHSTATS:MEAN
;                                    CL-MATHSTATS::LOWER
;                                    CL-MATHSTATS::UPPER
;                                    &REST
;                                    T)>
;    (PROGN
;     (BLOCK CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-INTERNAL
;       (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;       (CHECK-TYPE CL-MATHSTATS::CONFIDENCE (REAL # #))
;       (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
;        (CL-MATHSTATS:MEAN CL-MATHSTATS::DATA)
;        (SQRT #)
;        CL-MATHSTATS::CONFIDENCE))))
; 
; note: type assertion too complex to check:
;  (VALUES &OPTIONAL MEAN LOWER UPPER &REST T).

; compiling (DEFUN CONFIDENCE-INTERVAL-Z-SUMMARIES ...)
; compiling (DEFINE-STATISTIC CONFIDENCE-INTERVAL-T ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFINE-STATISTIC CONFIDENCE-INTERVAL-T
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:CONFIDENCE-INTERVAL-T
;                                   (CL-MATHSTATS:CONFIDENCE-INTERVAL)
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::CONFIDENCE)
;                                   "Suppose you have a sample of 10 numbers and you want to compute a 90 percent
; confidence interval on the population mean.  This function is the one to use.
; This function uses the t-distribution, and so it is appropriate for small sample
; sizes.  It can also be used for large sample sizes, but the function
; `confidence-interval-z' may be computationally faster.  It returns three values:
; the mean and the lower and upper bound of the confidence interval.  True, only
; two numbers are necessary, but the confidence intervals of other statistics may
; be asymmetrical and these values would be consistent with those confidence
; intervals.  `Sample' should be a sequence of numbers.  `Confidence' should be a
; number between 0 and 1, exclusive."
;                                   (DECLARE
;                                    (VALUES CL-MATHSTATS:MEAN
;                                            CL-MATHSTATS::LOWER
;                                            CL-MATHSTATS::UPPER))
;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                                   (CHECK-TYPE CL-MATHSTATS::CONFIDENCE
;                                               (REAL (0) (1)))
;                                   (LET* ((CL-MATHSTATS::N
;                                           (LENGTH CL-MATHSTATS::DATA)))
;                                     (CL-MATHSTATS:CONFIDENCE-INTERVAL-T-SUMMARIES
;                                      (CL-MATHSTATS:MEAN CL-MATHSTATS::DATA)
;                                      (- CL-MATHSTATS::N 1)
;                                      (SQRT (/ # CL-MATHSTATS::N))
;                                      CL-MATHSTATS::CONFIDENCE)))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION 
; ==>
;   (THE
;    #<SB-KERNEL:VALUES-TYPE (VALUES &OPTIONAL
;                                    CL-MATHSTATS:MEAN
;                                    CL-MATHSTATS::LOWER
;                                    CL-MATHSTATS::UPPER
;                                    &REST
;                                    T)>
;    (PROGN
;     (BLOCK CL-MATHSTATS::CONFIDENCE-INTERVAL-T-INTERNAL
;       (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;       (CHECK-TYPE CL-MATHSTATS::CONFIDENCE (REAL # #))
;       (LET* (#)
;         (CL-MATHSTATS:CONFIDENCE-INTERVAL-T-SUMMARIES #
;                                                       #
;                                                       #
;                                                       CL-MATHSTATS::CONFIDENCE)))))
; 
; note: type assertion too complex to check:
;  (VALUES &OPTIONAL MEAN LOWER UPPER &REST T).

; compiling (DEFUN CONFIDENCE-INTERVAL-T-SUMMARIES ...)
; compiling (DEFINE-STATISTIC CONFIDENCE-INTERVAL-PROPORTION ...)
; compiling (DEFUN SCHEFFE-TESTS ...)
; compiling (DEFUN PRINT-SCHEFFE-TABLE ...)
; compiling (DEFMETHOD CROSS-PRODUCT ...)
; compiling (DEFMETHOD DOT-PRODUCT ...)
; compiling (DEFUN R-SCORE ...)
; compiling (DEFUN DIFFERENCE-LIST ...)
; compiling (DEFUN SUM-LIST ...)
; compiling (DEFUN CHI-SQUARE-2X2-COUNTS ...)
; compiling (DEFUN CHI-SQUARE-2X2 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN CHI-SQUARE-2X2
;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2 (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;     "Performs a chi-square test for independence of the two variables, `v1' and
; `v2.' These should be categorial variables with only two values; the function
; will construct a 2x2 contingency table by counting the number of occurrences of
; each combination of the variables.  See the manual for more details."
;     (DECLARE
;      (VALUES CL-MATHSTATS::CHI-SQUARE
;              CL-MATHSTATS:SIGNIFICANCE
;              CL-MATHSTATS::CONTINGENCY-TABLE
;              CL-MATHSTATS::V1-VALUES
;              CL-MATHSTATS::V2-VALUES))
;     (MULTIPLE-VALUE-BIND
;         (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
;                                  CL-MATHSTATS::V2-VALUES)
;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
;                                               CL-MATHSTATS::V2)
;       (UNLESS (EQUAL '(2 2) (ARRAY-DIMENSIONS CL-MATHSTATS::2X2-TABLE))
;         (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
;       (LET ((CL-MATHSTATS::A #)
;             (CL-MATHSTATS::B #)
;             (CL-MATHSTATS::C #)
;             (CL-MATHSTATS::D #))
;         (MULTIPLE-VALUE-CALL #'VALUES
;           (CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS CL-MATHSTATS::A
;                                                CL-MATHSTATS::B
;                                                CL-MATHSTATS::C
;                                                CL-MATHSTATS::D)
;           CL-MATHSTATS::2X2-TABLE
;           CL-MATHSTATS::V1-VALUES
;           CL-MATHSTATS::V2-VALUES))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (THE
;    #<SB-KERNEL:VALUES-TYPE (VALUES &OPTIONAL
;                                    CL-MATHSTATS::CHI-SQUARE
;                                    CL-MATHSTATS:SIGNIFICANCE
;                                    CL-MATHSTATS::CONTINGENCY-TABLE
;                                    CL-MATHSTATS::V1-VALUES
;                                    CL-MATHSTATS::V2-VALUES
;                                    &REST
;                                    T)>
;    (PROGN
;     (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2
;       (MULTIPLE-VALUE-BIND
;           (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
;                                    CL-MATHSTATS::V2-VALUES)
;           (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
;                                                 CL-MATHSTATS::V2)
;         (UNLESS # #)
;         (LET #
;           #)))))
; 
; note: type assertion too complex to check:
;  (VALUES &OPTIONAL
;          CHI-SQUARE
;          SIGNIFICANCE
;          CONTINGENCY-TABLE
;          V1-VALUES
;          V2-VALUES
;          &REST
;          T).

; compiling (DEFUN CHI-SQUARE-RXC-COUNTS ...)
; compiling (DEFVAR *WAY-TOO-BIG-CONTINGENCY-TABLE-DIMENSION* ...)
; compiling (DEFUN MAKE-CONTINGENCY-TABLE ...)
; compiling (DEFUN CHI-SQUARE-RXC ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN CHI-SQUARE-RXC
;     (DEFUN CL-MATHSTATS::CHI-SQUARE-RXC (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;     "Performs a chi-square test for independence of the two variables, `v1' and
; `v2.' These should be categorial variables; the function will construct a
; contingency table by counting the number of occurrences of each combination of
; the variables.  See the manual for more details."
;     (DECLARE
;      (VALUES CL-MATHSTATS::CHI-SQUARE
;              CL-MATHSTATS:SIGNIFICANCE
;              CL-MATHSTATS::CONTIGENCY-TABLE
;              CL-MATHSTATS::V1-VALUES
;              CL-MATHSTATS::V2-VALUES))
;     (CHECK-TYPE CL-MATHSTATS::V1 SEQUENCE)
;     (CHECK-TYPE CL-MATHSTATS::V2 SEQUENCE)
;     (MULTIPLE-VALUE-BIND
;         (CL-MATHSTATS::TABLE CL-MATHSTATS::V1-VALUES CL-MATHSTATS::V2-VALUES)
;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
;                                               CL-MATHSTATS::V2)
;       (MULTIPLE-VALUE-CALL #'VALUES
;         (CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS CL-MATHSTATS::TABLE)
;         (CL-MATHSTATS::G-TEST CL-MATHSTATS::TABLE NIL NIL)
;         CL-MATHSTATS::TABLE
;         CL-MATHSTATS::V1-VALUES
;         CL-MATHSTATS::V2-VALUES)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (THE
;    #<SB-KERNEL:VALUES-TYPE (VALUES &OPTIONAL
;                                    CL-MATHSTATS::CHI-SQUARE
;                                    CL-MATHSTATS:SIGNIFICANCE
;                                    CL-MATHSTATS::CONTIGENCY-TABLE
;                                    CL-MATHSTATS::V1-VALUES
;                                    CL-MATHSTATS::V2-VALUES
;                                    &REST
;                                    T)>
;    (PROGN
;     (BLOCK CL-MATHSTATS::CHI-SQUARE-RXC
;       (CHECK-TYPE CL-MATHSTATS::V1 SEQUENCE)
;       (CHECK-TYPE CL-MATHSTATS::V2 SEQUENCE)
;       (MULTIPLE-VALUE-BIND
;           (CL-MATHSTATS::TABLE CL-MATHSTATS::V1-VALUES CL-MATHSTATS::V2-VALUES)
;           (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
;                                                 CL-MATHSTATS::V2)
;         (MULTIPLE-VALUE-CALL #'VALUES
;           #
;           #
;           CL-MATHSTATS::TABLE
;           CL-MATHSTATS::V1-VALUES
;           CL-MATHSTATS::V2-VALUES)))))
; 
; note: type assertion too complex to check:
;  (VALUES &OPTIONAL
;          CHI-SQUARE
;          SIGNIFICANCE
;          CONTIGENCY-TABLE
;          V1-VALUES
;          V2-VALUES
;          &REST
;          T).

; compiling (DEFUN G-TEST ...)
; compiling (DEFUN FIND-CRITICAL-VALUE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.fasl written
; compilation finished in 0:00:06
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {40008651}> on
   #<CL-SOURCE-FILE "basic-statistics" {40008661}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/smoothing.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DEFUN SMOOTH-MEDIAN-2 ...)
; compiling (DEFUN SMOOTH-MEDIAN-3 ...)
; compiling (DEFUN SMOOTH-MEDIAN-4 ...)
; compiling (DEFUN SMOOTH-MEDIAN-5 ...)
; compiling (DEFUN SMOOTH-HANNING ...)
; compiling (DEFUN SMOOTH-4253H ...)
; compiling (DEFUN SMOOTH-MEAN-2 ...)
; compiling (DEFUN SMOOTH-MEAN-3 ...)
; compiling (DEFUN SMOOTH-MEAN-4 ...)
; compiling (DEFUN SMOOTH-MEAN-5 ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/smoothing.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DEFINE-STATISTIC CORRELATION ...)
; compiling (DEFUN CORRELATION-FROM-SUMMARIES ...)
; compiling (DEFUN PARTIALS-FROM-PARENTS ...)
; compiling (DEFUN LAGGED-CORRELATION ...)
; compiling (DEFINE-STATISTIC CROSS-CORRELATION ...)
; compiling (DEFINE-STATISTIC AUTOCORRELATION ...)
; compiling (DEFUN LINEAR-REGRESSION-MINIMAL-SUMMARIES ...)
; compiling (DEFUN LINEAR-REGRESSION-MINIMAL ...)
; compiling (DEFUN LINEAR-REGRESSION-BRIEF-SUMMARIES ...)
; compiling (DEFUN LINEAR-REGRESSION-BRIEF ...)
; compiling (DEFUN LINEAR-REGRESSION-VERBOSE-SUMMARIES ...)
; compiling (DEFUN LINEAR-REGRESSION-VERBOSE ...)
; compiling (DEFUN MULTIPLE-LINEAR-REGRESSION-NORMAL ...)
; compiling (DEFUN MULTIPLE-LINEAR-REGRESSION-ARRAYS ...)
; compiling (DEFUN MULTIPLE-LINEAR-REGRESSION-MINIMAL ...)
; compiling (DEFUN MULTIPLE-LINEAR-REGRESSION-BRIEF ...)
; compiling (DEFUN MULTIPLE-LINEAR-REGRESSION-VERBOSE ...)
; compiling (DEFUN CORRELATION-MATRIX ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/anova.lisp" (written 04 APR 2006 09:26:37 AM):
; compiling (IN-PACKAGE METABANG.MATH)
; compiling (DEFINE-STATISTIC ANOVA-ONE-WAY-VARIABLES ...)
; compiling (DEFUN ANOVA-ONE-WAY-GROUPS ...)
; compiling (DEFUN PRINT-ANOVA-TABLE ...)
; compiling (DEFUN ANOVA-TWO-WAY-GROUPS ...)
; compiling (DEFUN MAKE-3D-TABLE ...)
; compiling (DEFINE-STATISTIC ANOVA-TWO-WAY-VARIABLES-UNEQUAL-CELL-SIZES ...)
; compiling (DEFINE-STATISTIC ANOVA-TWO-WAY-VARIABLES ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/anova.fasl written
; compilation finished in 0:00:02
STYLE-WARNING: implicitly creating new generic function CROSS-PRODUCT

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:LINEAR-REGRESSION-VERBOSE-SUMMARIES
;     (DEFUN CL-MATHSTATS:LINEAR-REGRESSION-VERBOSE-SUMMARIES
;          (CL-MATHSTATS::N CL-MATHSTATS::X CL-MATHSTATS::Y CL-MATHSTATS::X2
;           CL-MATHSTATS::Y2 CL-MATHSTATS::XY)
;     "Calculates almost every statistic of a linear regression: the slope and
; intercept of the line, the standard error on each, the correlation coefficient,
; the coefficient of determination, also known as r-square, and an ANOVA table as
; described in the manual.
; 
; If you don't need all this information, consider using the ``-brief'' or
; ``-minimal'' functions, which do less computation.
; 
; This function differs from `linear-regression-verbose' in that it takes summary
; variables: `x' and `y' are the sums of the independent variable and dependent
; variables, respectively; `x2' and `y2' are the sums of the squares of the
; independent variable and dependent variables, respectively; and `xy' is the sum
; of the products of the independent and dependent variables.
; 
; You should first look at your data with a scatter plot to see if a linear model
; is plausible.  See the manual for a fuller explanation of linear regression
; statistics."
;     (DECLARE
;      (VALUES CL-MATHSTATS::SLOPE
;              CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::DETERMINATION
;              CL-MATHSTATS:CORRELATION
;              CL-MATHSTATS::STD-ERR-SLOPE
;              CL-MATHSTATS::STD-ERR-INTERCEPT
;              CL-MATHSTATS::ANOVA-TABLE))
;     (LET ((CL-MATHSTATS::NSSX (- # #))
;           (CL-MATHSTATS::NSSY (- # #))
;           (CL-MATHSTATS::NSSXY (- # #)))
;       (WHEN (OR (ZEROP CL-MATHSTATS::NSSX) (ZEROP CL-MATHSTATS::NSSY))
;         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;       (LET* ((CL-MATHSTATS::SLOPE #)
;              (CL-MATHSTATS::INTERCEPT #)
;              (CL-MATHSTATS::NSSR #)
;              (CL-MATHSTATS::NSSE #)
;              (CL-MATHSTATS::DETERMINATION #)
;              (CL-MATHSTATS:CORRELATION #)
;              (CL-MATHSTATS::DOF #)
;              (CL-MATHSTATS::STD-ERR-SLOPE #)
;              (CL-MATHSTATS::STD-ERR-INTERCEPT NIL)
;              (CL-MATHSTATS::F #)
;              (CL-MATHSTATS::P-VALUE #)
;              (CL-MATHSTATS::SSR #)
;              ...)
;         (VALUES CL-MATHSTATS::SLOPE
;                 CL-MATHSTATS::INTERCEPT
;                 CL-MATHSTATS::DETERMINATION
;                 CL-MATHSTATS:CORRELATION
;                 CL-MATHSTATS::STD-ERR-SLOPE
;                 CL-MATHSTATS::STD-ERR-INTERCEPT
;                 CL-MATHSTATS::ANOVA-TABLE))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G227 'CL-MATHSTATS::ANOVA-TABLE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::ANOVA-TABLE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G227 'CL-MATHSTATS::ANOVA-TABLE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::ANOVA-TABLE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:LINEAR-REGRESSION-VERBOSE-SUMMARIES
;                          (CL-MATHSTATS::N CL-MATHSTATS::X
;                                           CL-MATHSTATS::Y
;                                           CL-MATHSTATS::X2
;                                           CL-MATHSTATS::Y2
;                                           CL-MATHSTATS::XY)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::SLOPE
;                                   CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::DETERMINATION
;                                   CL-MATHSTATS:CORRELATION
;                                   CL-MATHSTATS::STD-ERR-SLOPE
;                                   CL-MATHSTATS::STD-ERR-INTERCEPT
;                                   CL-MATHSTATS::ANOVA-TABLE))
;                          (BLOCK
;                              CL-MATHSTATS:LINEAR-REGRESSION-VERBOSE-SUMMARIES
;                            (LET ((CL-MATHSTATS::NSSX #)
;                                  (CL-MATHSTATS::NSSY #)
;                                  (CL-MATHSTATS::NSSXY #))
;                              (WHEN (OR # #)
;                                (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;                              (LET* (# # # # # # # # # # # # ...)
;                                (VALUES CL-MATHSTATS::SLOPE
;                                        CL-MATHSTATS::INTERCEPT
;                                        CL-MATHSTATS::DETERMINATION
;                                        CL-MATHSTATS:CORRELATION
;                                        CL-MATHSTATS::STD-ERR-SLOPE
;                                        CL-MATHSTATS::STD-ERR-INTERCEPT
;                                        CL-MATHSTATS::ANOVA-TABLE)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::ANOVA-TABLE

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type CL-MATHSTATS::ANOVA-TABLE


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;     (DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;     "Performs linear regression of the dependent variable, `dv,' on multiple
; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
; regression coefficient.  Calculates the F statistic, intercept and the
; correlation coefficient for Y on X's."
;     (DECLARE
;      (VALUES CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::COEFFICIENTS
;              CL-MATHSTATS::R-LIST
;              CL-MATHSTATS::T-BS
;              CL-MATHSTATS::BETAS
;              CL-MATHSTATS::R-SQUARE
;              CL-MATHSTATS::F
;              CL-MATHSTATS::SS-REG-LIST
;              CL-MATHSTATS::SS-PERCENT-LIST
;              CL-MATHSTATS::SS-REG
;              CL-MATHSTATS::SS-RES
;              ...))
;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
;            (CL-MATHSTATS::X-0
;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
;            (CL-MATHSTATS::ITEM-LIST NIL))
;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
;              (CL-MATHSTATS::Z-MAT #)
;              (CL-MATHSTATS::Z-TRANS-Z #)
;              (CL-MATHSTATS::X-DIM #)
;              (CL-MATHSTATS::X-TRANS-X #)
;              (CL-MATHSTATS::X-TRANS-Y #)
;              (CL-MATHSTATS::Y-TRANS-Y #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
;                 (AREF CL-MATHSTATS::Z-TRANS-Z
;                       CL-MATHSTATS::X-DIM
;                       CL-MATHSTATS::X-DIM))
;         (LET (#)
;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
;           (LET* #
;             #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G543 'CL-MATHSTATS::BETAS)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::BETAS

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G543 'CL-MATHSTATS::BETAS)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::BETAS

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::COEFFICIENTS
;                                   CL-MATHSTATS::R-LIST
;                                   CL-MATHSTATS::T-BS
;                                   CL-MATHSTATS::BETAS
;                                   CL-MATHSTATS::R-SQUARE
;                                   CL-MATHSTATS::F
;                                   CL-MATHSTATS::SS-REG-LIST
;                                   CL-MATHSTATS::SS-PERCENT-LIST
;                                   CL-MATHSTATS::SS-REG
;                                   CL-MATHSTATS::SS-RES
;                                   ...))
;                          (BLOCK CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                            (LET* ((CL-MATHSTATS::NUM-X #)
;                                   (CL-MATHSTATS::ROWS #)
;                                   (CL-MATHSTATS::COLS #)
;                                   (CL-MATHSTATS::X-0 #)
;                                   (CL-MATHSTATS::ITEM-LIST NIL))
;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;                                (WHEN # #)
;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;                              (LET* (# # # # # # #)
;                                (DOTIMES # #)
;                                (DOTIMES # #)
;                                (SETF # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::BETAS

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::BETAS


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS
;     (DEFUN CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS (CL-MATHSTATS::CONTINGENCY-TABLE)
;     "Calculates the chi-square statistic and corresponding p-value for the given
; contingency table.  The result says whether the row factor is independent of the
; column factor.  Does not apply Yate's correction."
;     (DECLARE (VALUES CL-MATHSTATS::CHI-SQUARE CL-MATHSTATS::P-VALUE))
;     (CHECK-TYPE CL-MATHSTATS::CONTINGENCY-TABLE (ARRAY * 2))
;     (DESTRUCTURING-BIND
;         (CL-MATHSTATS::ROWS CL-MATHSTATS::COLS)
;         (ARRAY-DIMENSIONS CL-MATHSTATS::CONTINGENCY-TABLE)
;       (MACROLET ((CL-MATHSTATS::ROW-SUM #
;                    `#)
;                  (CL-MATHSTATS::COL-SUM #
;                    `#))
;         (LET (# #)
;           (DOTIMES # #)
;           (VALUES CL-MATHSTATS::CHI-2 #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G2348 'CL-MATHSTATS::CHI-SQUARE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::CHI-SQUARE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS
;                          (CL-MATHSTATS::CONTINGENCY-TABLE)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::CHI-SQUARE
;                                   CL-MATHSTATS::P-VALUE))
;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS
;                            (CHECK-TYPE CL-MATHSTATS::CONTINGENCY-TABLE
;                                        (ARRAY * 2))
;                            (DESTRUCTURING-BIND
;                                (CL-MATHSTATS::ROWS CL-MATHSTATS::COLS)
;                                (ARRAY-DIMENSIONS
;                                 CL-MATHSTATS::CONTINGENCY-TABLE)
;                              (MACROLET (# #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::CHI-SQUARE

; in: DEFUN CL-MATHSTATS::CHI-SQUARE-2X2
;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2 (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;     "Performs a chi-square test for independence of the two variables, `v1' and
; `v2.' These should be categorial variables with only two values; the function
; will construct a 2x2 contingency table by counting the number of occurrences of
; each combination of the variables.  See the manual for more details."
;     (DECLARE
;      (VALUES CL-MATHSTATS::CHI-SQUARE
;              CL-MATHSTATS:SIGNIFICANCE
;              CL-MATHSTATS::CONTINGENCY-TABLE
;              CL-MATHSTATS::V1-VALUES
;              CL-MATHSTATS::V2-VALUES))
;     (MULTIPLE-VALUE-BIND
;         (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
;                                  CL-MATHSTATS::V2-VALUES)
;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
;                                               CL-MATHSTATS::V2)
;       (UNLESS (EQUAL '(2 2) (ARRAY-DIMENSIONS CL-MATHSTATS::2X2-TABLE))
;         (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
;       (LET ((CL-MATHSTATS::A #)
;             (CL-MATHSTATS::B #)
;             (CL-MATHSTATS::C #)
;             (CL-MATHSTATS::D #))
;         (MULTIPLE-VALUE-CALL #'VALUES
;           (CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS CL-MATHSTATS::A
;                                                CL-MATHSTATS::B
;                                                CL-MATHSTATS::C
;                                                CL-MATHSTATS::D)
;           CL-MATHSTATS::2X2-TABLE
;           CL-MATHSTATS::V1-VALUES
;           CL-MATHSTATS::V2-VALUES))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-2X2
;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::CHI-SQUARE
;                                   CL-MATHSTATS:SIGNIFICANCE
;                                   CL-MATHSTATS::CONTINGENCY-TABLE
;                                   CL-MATHSTATS::V1-VALUES
;                                   CL-MATHSTATS::V2-VALUES))
;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2
;                            (MULTIPLE-VALUE-BIND
;                                (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
;                                                         CL-MATHSTATS::V2-VALUES)
;                                (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;                                 CL-MATHSTATS::V1
;                                 CL-MATHSTATS::V2)
;                              (UNLESS (EQUAL '# #)
;                                (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
;                              (LET (# # # #)
;                                (MULTIPLE-VALUE-CALL #'VALUES
;                                  #
;                                  CL-MATHSTATS::2X2-TABLE
;                                  CL-MATHSTATS::V1-VALUES
;                                  CL-MATHSTATS::V2-VALUES)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::CHI-SQUARE

; 
; caught STYLE-WARNING:
;   6 more uses of undefined type CL-MATHSTATS::CHI-SQUARE


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
;          (CL-MATHSTATS::A CL-MATHSTATS::B CL-MATHSTATS::C CL-MATHSTATS::D
;           &OPTIONAL (CL-MATHSTATS::YATES T))
;     "Runs a chi-square test for association on a simple 2 x 2 table.  If `yates'
; is nil, the correction for continuity is not done; default is t.
; 
; Returns the chi-square statistic and the significance of the value."
;     (DECLARE (VALUES CL-MATHSTATS::CHI2 CL-MATHSTATS::P-VALUE))
;     (CHECK-TYPE CL-MATHSTATS::A INTEGER)
;     (CHECK-TYPE CL-MATHSTATS::B INTEGER)
;     (CHECK-TYPE CL-MATHSTATS::C INTEGER)
;     (CHECK-TYPE CL-MATHSTATS::D INTEGER)
;     (LET ((CL-MATHSTATS::N
;            (+ CL-MATHSTATS::A CL-MATHSTATS::B CL-MATHSTATS::C CL-MATHSTATS::D))
;           (CL-MATHSTATS::DENOM (* # # # #))
;           (CL-MATHSTATS::NUMER (- # #)))
;       (WHEN CL-MATHSTATS::YATES (SETF CL-MATHSTATS::NUMER (- # #)))
;       (SETF CL-MATHSTATS::NUMER
;               (* CL-MATHSTATS::N (CL-MATHSTATS:SQUARE CL-MATHSTATS::NUMER)))
;       (LET* ((CL-MATHSTATS::CHI2 #) (CL-MATHSTATS::P-VALUE #))
;         (VALUES CL-MATHSTATS::CHI2 CL-MATHSTATS::P-VALUE))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G2277 'CL-MATHSTATS::CHI2)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::CHI2

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G2277 'CL-MATHSTATS::CHI2)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::CHI2

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
;                          (CL-MATHSTATS::A CL-MATHSTATS::B
;                                           CL-MATHSTATS::C
;                                           CL-MATHSTATS::D
;                                           &OPTIONAL
;                                           (CL-MATHSTATS::YATES T))
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::CHI2 CL-MATHSTATS::P-VALUE))
;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
;                            (CHECK-TYPE CL-MATHSTATS::A INTEGER)
;                            (CHECK-TYPE CL-MATHSTATS::B INTEGER)
;                            (CHECK-TYPE CL-MATHSTATS::C INTEGER)
;                            (CHECK-TYPE CL-MATHSTATS::D INTEGER)
;                            (LET ((CL-MATHSTATS::N #)
;                                  (CL-MATHSTATS::DENOM #)
;                                  (CL-MATHSTATS::NUMER #))
;                              (WHEN CL-MATHSTATS::YATES
;                                (SETF CL-MATHSTATS::NUMER #))
;                              (SETF CL-MATHSTATS::NUMER (* CL-MATHSTATS::N #))
;                              (LET* (# #)
;                                (VALUES CL-MATHSTATS::CHI2
;                                        CL-MATHSTATS::P-VALUE)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::CHI2

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::CHI2


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;     (DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;     "Performs linear regression of the dependent variable, `dv,' on multiple
; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
; regression coefficient.  Calculates the F statistic, intercept and the
; correlation coefficient for Y on X's."
;     (DECLARE
;      (VALUES CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::COEFFICIENTS
;              CL-MATHSTATS::R-LIST
;              CL-MATHSTATS::T-BS
;              CL-MATHSTATS::BETAS
;              CL-MATHSTATS::R-SQUARE
;              CL-MATHSTATS::F
;              CL-MATHSTATS::SS-REG-LIST
;              CL-MATHSTATS::SS-PERCENT-LIST
;              CL-MATHSTATS::SS-REG
;              CL-MATHSTATS::SS-RES
;              ...))
;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
;            (CL-MATHSTATS::X-0
;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
;            (CL-MATHSTATS::ITEM-LIST NIL))
;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
;              (CL-MATHSTATS::Z-MAT #)
;              (CL-MATHSTATS::Z-TRANS-Z #)
;              (CL-MATHSTATS::X-DIM #)
;              (CL-MATHSTATS::X-TRANS-X #)
;              (CL-MATHSTATS::X-TRANS-Y #)
;              (CL-MATHSTATS::Y-TRANS-Y #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
;                 (AREF CL-MATHSTATS::Z-TRANS-Z
;                       CL-MATHSTATS::X-DIM
;                       CL-MATHSTATS::X-DIM))
;         (LET (#)
;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
;           (LET* #
;             #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G540 'CL-MATHSTATS::COEFFICIENTS)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::COEFFICIENTS

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G540 'CL-MATHSTATS::COEFFICIENTS)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::COEFFICIENTS

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::COEFFICIENTS
;                                   CL-MATHSTATS::R-LIST
;                                   CL-MATHSTATS::T-BS
;                                   CL-MATHSTATS::BETAS
;                                   CL-MATHSTATS::R-SQUARE
;                                   CL-MATHSTATS::F
;                                   CL-MATHSTATS::SS-REG-LIST
;                                   CL-MATHSTATS::SS-PERCENT-LIST
;                                   CL-MATHSTATS::SS-REG
;                                   CL-MATHSTATS::SS-RES
;                                   ...))
;                          (BLOCK CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                            (LET* ((CL-MATHSTATS::NUM-X #)
;                                   (CL-MATHSTATS::ROWS #)
;                                   (CL-MATHSTATS::COLS #)
;                                   (CL-MATHSTATS::X-0 #)
;                                   (CL-MATHSTATS::ITEM-LIST NIL))
;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;                                (WHEN # #)
;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;                              (LET* (# # # # # # #)
;                                (DOTIMES # #)
;                                (DOTIMES # #)
;                                (SETF # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::COEFFICIENTS

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::COEFFICIENTS


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;     (DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;     "Performs linear regression of the dependent variable, `dv,' on multiple
; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
; regression coefficient.  Calculates the F statistic, intercept and the
; correlation coefficient for Y on X's."
;     (DECLARE
;      (VALUES CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::COEFFICIENTS
;              CL-MATHSTATS::R-LIST
;              CL-MATHSTATS::T-BS
;              CL-MATHSTATS::BETAS
;              CL-MATHSTATS::R-SQUARE
;              CL-MATHSTATS::F
;              CL-MATHSTATS::SS-REG-LIST
;              CL-MATHSTATS::SS-PERCENT-LIST
;              CL-MATHSTATS::SS-REG
;              CL-MATHSTATS::SS-RES
;              ...))
;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
;            (CL-MATHSTATS::X-0
;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
;            (CL-MATHSTATS::ITEM-LIST NIL))
;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
;              (CL-MATHSTATS::Z-MAT #)
;              (CL-MATHSTATS::Z-TRANS-Z #)
;              (CL-MATHSTATS::X-DIM #)
;              (CL-MATHSTATS::X-TRANS-X #)
;              (CL-MATHSTATS::X-TRANS-Y #)
;              (CL-MATHSTATS::Y-TRANS-Y #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
;                 (AREF CL-MATHSTATS::Z-TRANS-Z
;                       CL-MATHSTATS::X-DIM
;                       CL-MATHSTATS::X-DIM))
;         (LET (#)
;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
;           (LET* #
;             #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G552 'CL-MATHSTATS::COMPATIBILITY-VALUE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::COMPATIBILITY-VALUE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G552 'CL-MATHSTATS::COMPATIBILITY-VALUE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::COMPATIBILITY-VALUE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::COEFFICIENTS
;                                   CL-MATHSTATS::R-LIST
;                                   CL-MATHSTATS::T-BS
;                                   CL-MATHSTATS::BETAS
;                                   CL-MATHSTATS::R-SQUARE
;                                   CL-MATHSTATS::F
;                                   CL-MATHSTATS::SS-REG-LIST
;                                   CL-MATHSTATS::SS-PERCENT-LIST
;                                   CL-MATHSTATS::SS-REG
;                                   CL-MATHSTATS::SS-RES
;                                   ...))
;                          (BLOCK CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                            (LET* ((CL-MATHSTATS::NUM-X #)
;                                   (CL-MATHSTATS::ROWS #)
;                                   (CL-MATHSTATS::COLS #)
;                                   (CL-MATHSTATS::X-0 #)
;                                   (CL-MATHSTATS::ITEM-LIST NIL))
;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;                                (WHEN # #)
;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;                              (LET* (# # # # # # #)
;                                (DOTIMES # #)
;                                (DOTIMES # #)
;                                (SETF # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::COMPATIBILITY-VALUE

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::COMPATIBILITY-VALUE


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN CL-MATHSTATS::CHI-SQUARE-RXC
;     (DEFUN CL-MATHSTATS::CHI-SQUARE-RXC (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;     "Performs a chi-square test for independence of the two variables, `v1' and
; `v2.' These should be categorial variables; the function will construct a
; contingency table by counting the number of occurrences of each combination of
; the variables.  See the manual for more details."
;     (DECLARE
;      (VALUES CL-MATHSTATS::CHI-SQUARE
;              CL-MATHSTATS:SIGNIFICANCE
;              CL-MATHSTATS::CONTIGENCY-TABLE
;              CL-MATHSTATS::V1-VALUES
;              CL-MATHSTATS::V2-VALUES))
;     (CHECK-TYPE CL-MATHSTATS::V1 SEQUENCE)
;     (CHECK-TYPE CL-MATHSTATS::V2 SEQUENCE)
;     (MULTIPLE-VALUE-BIND
;         (CL-MATHSTATS::TABLE CL-MATHSTATS::V1-VALUES CL-MATHSTATS::V2-VALUES)
;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
;                                               CL-MATHSTATS::V2)
;       (MULTIPLE-VALUE-CALL #'VALUES
;         (CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS CL-MATHSTATS::TABLE)
;         (CL-MATHSTATS::G-TEST CL-MATHSTATS::TABLE NIL NIL)
;         CL-MATHSTATS::TABLE
;         CL-MATHSTATS::V1-VALUES
;         CL-MATHSTATS::V2-VALUES)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-RXC
;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::CHI-SQUARE
;                                   CL-MATHSTATS:SIGNIFICANCE
;                                   CL-MATHSTATS::CONTIGENCY-TABLE
;                                   CL-MATHSTATS::V1-VALUES
;                                   CL-MATHSTATS::V2-VALUES))
;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-RXC
;                            (CHECK-TYPE CL-MATHSTATS::V1 SEQUENCE)
;                            (CHECK-TYPE CL-MATHSTATS::V2 SEQUENCE)
;                            (MULTIPLE-VALUE-BIND
;                                (CL-MATHSTATS::TABLE CL-MATHSTATS::V1-VALUES
;                                                     CL-MATHSTATS::V2-VALUES)
;                                (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;                                 CL-MATHSTATS::V1
;                                 CL-MATHSTATS::V2)
;                              (MULTIPLE-VALUE-CALL #'VALUES
;                                (CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS
;                                 CL-MATHSTATS::TABLE)
;                                (CL-MATHSTATS::G-TEST CL-MATHSTATS::TABLE
;                                                      NIL
;                                                      NIL)
;                                CL-MATHSTATS::TABLE
;                                CL-MATHSTATS::V1-VALUES
;                                CL-MATHSTATS::V2-VALUES))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::CONTIGENCY-TABLE

; in: DEFUN CL-MATHSTATS::CHI-SQUARE-2X2
;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2 (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;     "Performs a chi-square test for independence of the two variables, `v1' and
; `v2.' These should be categorial variables with only two values; the function
; will construct a 2x2 contingency table by counting the number of occurrences of
; each combination of the variables.  See the manual for more details."
;     (DECLARE
;      (VALUES CL-MATHSTATS::CHI-SQUARE
;              CL-MATHSTATS:SIGNIFICANCE
;              CL-MATHSTATS::CONTINGENCY-TABLE
;              CL-MATHSTATS::V1-VALUES
;              CL-MATHSTATS::V2-VALUES))
;     (MULTIPLE-VALUE-BIND
;         (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
;                                  CL-MATHSTATS::V2-VALUES)
;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
;                                               CL-MATHSTATS::V2)
;       (UNLESS (EQUAL '(2 2) (ARRAY-DIMENSIONS CL-MATHSTATS::2X2-TABLE))
;         (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
;       (LET ((CL-MATHSTATS::A #)
;             (CL-MATHSTATS::B #)
;             (CL-MATHSTATS::C #)
;             (CL-MATHSTATS::D #))
;         (MULTIPLE-VALUE-CALL #'VALUES
;           (CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS CL-MATHSTATS::A
;                                                CL-MATHSTATS::B
;                                                CL-MATHSTATS::C
;                                                CL-MATHSTATS::D)
;           CL-MATHSTATS::2X2-TABLE
;           CL-MATHSTATS::V1-VALUES
;           CL-MATHSTATS::V2-VALUES))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-2X2
;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::CHI-SQUARE
;                                   CL-MATHSTATS:SIGNIFICANCE
;                                   CL-MATHSTATS::CONTINGENCY-TABLE
;                                   CL-MATHSTATS::V1-VALUES
;                                   CL-MATHSTATS::V2-VALUES))
;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2
;                            (MULTIPLE-VALUE-BIND
;                                (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
;                                                         CL-MATHSTATS::V2-VALUES)
;                                (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;                                 CL-MATHSTATS::V1
;                                 CL-MATHSTATS::V2)
;                              (UNLESS (EQUAL '# #)
;                                (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
;                              (LET (# # # #)
;                                (MULTIPLE-VALUE-CALL #'VALUES
;                                  #
;                                  CL-MATHSTATS::2X2-TABLE
;                                  CL-MATHSTATS::V1-VALUES
;                                  CL-MATHSTATS::V2-VALUES)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::CONTINGENCY-TABLE

; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:D-TEST
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:D-TEST
;                                   (CL-MATHSTATS:SIGNIFICANCE)
;                                   ((COUNT) (CL-MATHSTATS::TIMES))
;                                   (CL-MATHSTATS::STATISTIC CL-MATHSTATS::LEVEL
;                                                            COUNT
;                                                            CL-MATHSTATS::TIMES)
;                                   ((CL-MATHSTATS::SAMPLE-1 'SEQUENCE)
;                                    (CL-MATHSTATS::SAMPLE-2 'SEQUENCE))
;                                   (CL-MATHSTATS::SAMPLE-1
;                                    CL-MATHSTATS::SAMPLE-2
;                                    CL-MATHSTATS::TAILS
;                                    &KEY
;                                    (CL-MATHSTATS::TIMES 1000)
;                                    (CL-MATHSTATS::H0MEAN 0))
;                                   "Two-sample test for difference in means.  Competes with the unmatched,
; two-sample t-test.  Each sample should be a sequence of numbers.  We calculate
; the mean of `sample-1' minus the mean of `sample-2'; call that D.  Under the null
; hypothesis, D is zero.  There are three possible alternative hypotheses: D is
; positive, D is negative, and D is either, and they are selected by the `tails'
; parameter, which must be :positive, :negative, or :both, respectively.  We count
; the number of chance occurrences of D in the desired rejection region, and
; return the estimated probability."
;                                   (DECLARE
;                                    (VALUES CL-MATHSTATS::D
;                                            CL-MATHSTATS:SIGNIFICANCE
;                                            COUNT))
;                                   (CHECK-TYPE CL-MATHSTATS::SAMPLE-1 SEQUENCE)
;                                   (CHECK-TYPE CL-MATHSTATS::SAMPLE-2 SEQUENCE)
;                                   (CHECK-TYPE CL-MATHSTATS::TAILS
;                                               (MEMBER :BOTH
;                                                       :POSITIVE
;                                                       :NEGATIVE))
;                                   ...)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G1586 'COUNT)
; 
; caught STYLE-WARNING:
;   undefined type: COUNT

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF 
; ==>
;   (TYPEP #:G1586 'COUNT)
; 
; caught STYLE-WARNING:
;   undefined type: COUNT

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::D-TEST-INTERNAL
;                          (CL-MATHSTATS::SAMPLE-1 CL-MATHSTATS::SAMPLE-2
;                                                  CL-MATHSTATS::TAILS
;                                                  &KEY
;                                                  (CL-MATHSTATS::TIMES 1000)
;                                                  (CL-MATHSTATS::H0MEAN 0))
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::D
;                                   CL-MATHSTATS:SIGNIFICANCE
;                                   COUNT))
;                          (BLOCK CL-MATHSTATS::D-TEST-INTERNAL
;                            (CHECK-TYPE CL-MATHSTATS::SAMPLE-1 SEQUENCE)
;                            (CHECK-TYPE CL-MATHSTATS::SAMPLE-2 SEQUENCE)
;                            (CHECK-TYPE CL-MATHSTATS::TAILS
;                                        (MEMBER :BOTH :POSITIVE :NEGATIVE))
;                            (LET ((CL-MATHSTATS::N1 #) (CL-MATHSTATS::N2 #))
;                              (WHEN (OR # #) (ERROR 'CL-MATHSTATS::NO-DATA))
;                              (WHEN (OR # #)
;                                (ERROR 'CL-MATHSTATS::INSUFFICIENT-DATA))
;                              (LET* (# #)
;                                (IF # # #)))))
; 
; caught STYLE-WARNING:
;   undefined type: COUNT

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


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:D-TEST
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:D-TEST
;                                   (CL-MATHSTATS:SIGNIFICANCE)
;                                   ((COUNT) (CL-MATHSTATS::TIMES))
;                                   (CL-MATHSTATS::STATISTIC CL-MATHSTATS::LEVEL
;                                                            COUNT
;                                                            CL-MATHSTATS::TIMES)
;                                   ((CL-MATHSTATS::SAMPLE-1 'SEQUENCE)
;                                    (CL-MATHSTATS::SAMPLE-2 'SEQUENCE))
;                                   (CL-MATHSTATS::SAMPLE-1
;                                    CL-MATHSTATS::SAMPLE-2
;                                    CL-MATHSTATS::TAILS
;                                    &KEY
;                                    (CL-MATHSTATS::TIMES 1000)
;                                    (CL-MATHSTATS::H0MEAN 0))
;                                   "Two-sample test for difference in means.  Competes with the unmatched,
; two-sample t-test.  Each sample should be a sequence of numbers.  We calculate
; the mean of `sample-1' minus the mean of `sample-2'; call that D.  Under the null
; hypothesis, D is zero.  There are three possible alternative hypotheses: D is
; positive, D is negative, and D is either, and they are selected by the `tails'
; parameter, which must be :positive, :negative, or :both, respectively.  We count
; the number of chance occurrences of D in the desired rejection region, and
; return the estimated probability."
;                                   (DECLARE
;                                    (VALUES CL-MATHSTATS::D
;                                            CL-MATHSTATS:SIGNIFICANCE
;                                            COUNT))
;                                   (CHECK-TYPE CL-MATHSTATS::SAMPLE-1 SEQUENCE)
;                                   (CHECK-TYPE CL-MATHSTATS::SAMPLE-2 SEQUENCE)
;                                   (CHECK-TYPE CL-MATHSTATS::TAILS
;                                               (MEMBER :BOTH
;                                                       :POSITIVE
;                                                       :NEGATIVE))
;                                   ...)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G1584 'CL-MATHSTATS::D)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::D

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF 
; ==>
;   (TYPEP #:G1584 'CL-MATHSTATS::D)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::D

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::D-TEST-INTERNAL
;                          (CL-MATHSTATS::SAMPLE-1 CL-MATHSTATS::SAMPLE-2
;                                                  CL-MATHSTATS::TAILS
;                                                  &KEY
;                                                  (CL-MATHSTATS::TIMES 1000)
;                                                  (CL-MATHSTATS::H0MEAN 0))
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::D
;                                   CL-MATHSTATS:SIGNIFICANCE
;                                   COUNT))
;                          (BLOCK CL-MATHSTATS::D-TEST-INTERNAL
;                            (CHECK-TYPE CL-MATHSTATS::SAMPLE-1 SEQUENCE)
;                            (CHECK-TYPE CL-MATHSTATS::SAMPLE-2 SEQUENCE)
;                            (CHECK-TYPE CL-MATHSTATS::TAILS
;                                        (MEMBER :BOTH :POSITIVE :NEGATIVE))
;                            (LET ((CL-MATHSTATS::N1 #) (CL-MATHSTATS::N2 #))
;                              (WHEN (OR # #) (ERROR 'CL-MATHSTATS::NO-DATA))
;                              (WHEN (OR # #)
;                                (ERROR 'CL-MATHSTATS::INSUFFICIENT-DATA))
;                              (LET* (# #)
;                                (IF # # #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::D

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type CL-MATHSTATS::D


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:LINEAR-REGRESSION-BRIEF-SUMMARIES
;     (DEFUN CL-MATHSTATS:LINEAR-REGRESSION-BRIEF-SUMMARIES
;          (CL-MATHSTATS::N CL-MATHSTATS::X CL-MATHSTATS::Y CL-MATHSTATS::X2
;           CL-MATHSTATS::Y2 CL-MATHSTATS::XY)
;     "Calculates the main statistics of a linear regression: the slope and
; intercept of the line, the coefficient of determination, also known as r-square,
; the standard error of the slope, and the p-value for the regression.  This
; function differs from `linear-regression-brief' in that it takes summary
; variables: `x' and `y' are the sums of the independent variable and dependent
; variables, respectively; `x2' and `y2' are the sums of the squares of the
; independent variable and dependent variables, respectively; and `xy' is the sum
; of the products of the independent and dependent variables.
; 
; You should first look at your data with a scatter plot to see if a linear model
; is plausible.  See the manual for a fuller explanation of linear regression
; statistics."
;     (DECLARE
;      (VALUES CL-MATHSTATS::SLOPE
;              CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::DETERMINATION
;              CL-MATHSTATS::STD-ERR-SLOPE
;              CL-MATHSTATS::P-VALUE))
;     (LET ((CL-MATHSTATS::NSSX (- # #))
;           (CL-MATHSTATS::NSSY (- # #))
;           (CL-MATHSTATS::NSSXY (- # #)))
;       (WHEN (OR (ZEROP CL-MATHSTATS::NSSX) (ZEROP CL-MATHSTATS::NSSY))
;         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;       (LET* ((CL-MATHSTATS::SLOPE #)
;              (CL-MATHSTATS::INTERCEPT #)
;              (CL-MATHSTATS::NSSR #)
;              (CL-MATHSTATS::NSSE #)
;              (CL-MATHSTATS::DETERMINATION #)
;              (CL-MATHSTATS::DOF #)
;              (CL-MATHSTATS::STD-ERR-SLOPE #)
;              (CL-MATHSTATS::P-VALUE #))
;         (VALUES CL-MATHSTATS::SLOPE
;                 CL-MATHSTATS::INTERCEPT
;                 CL-MATHSTATS::DETERMINATION
;                 CL-MATHSTATS::STD-ERR-SLOPE
;                 CL-MATHSTATS::P-VALUE))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G194 'CL-MATHSTATS::DETERMINATION)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::DETERMINATION

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G194 'CL-MATHSTATS::DETERMINATION)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::DETERMINATION

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:LINEAR-REGRESSION-BRIEF-SUMMARIES
;                          (CL-MATHSTATS::N CL-MATHSTATS::X
;                                           CL-MATHSTATS::Y
;                                           CL-MATHSTATS::X2
;                                           CL-MATHSTATS::Y2
;                                           CL-MATHSTATS::XY)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::SLOPE
;                                   CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::DETERMINATION
;                                   CL-MATHSTATS::STD-ERR-SLOPE
;                                   CL-MATHSTATS::P-VALUE))
;                          (BLOCK CL-MATHSTATS:LINEAR-REGRESSION-BRIEF-SUMMARIES
;                            (LET ((CL-MATHSTATS::NSSX #)
;                                  (CL-MATHSTATS::NSSY #)
;                                  (CL-MATHSTATS::NSSXY #))
;                              (WHEN (OR # #)
;                                (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;                              (LET* (# # # # # # # #)
;                                (VALUES CL-MATHSTATS::SLOPE
;                                        CL-MATHSTATS::INTERCEPT
;                                        CL-MATHSTATS::DETERMINATION
;                                        CL-MATHSTATS::STD-ERR-SLOPE
;                                        CL-MATHSTATS::P-VALUE)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::DETERMINATION

; 
; caught STYLE-WARNING:
;   9 more uses of undefined type CL-MATHSTATS::DETERMINATION


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:T-TEST-ONE-SAMPLE
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:T-TEST-ONE-SAMPLE
;                                   (CL-MATHSTATS:T-SIGNIFICANCE)
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
;                                                       &OPTIONAL
;                                                       (CL-MATHSTATS::H0-MEAN 0)
;                                                       &REST
;                                                       CL-MATHSTATS::STANDARD-ARGS
;                                                       &KEY
;                                                       CL-MATHSTATS::START
;                                                       CL-MATHSTATS::END
;                                                       CL-MATHSTATS::KEY)
;                                   "Returns the t-statistic for the mean of the data, which should be a sequence
; of numbers.  Let D be the sample mean.  The null hypothesis is that D equals the
; `H0-mean.' The alternative hypothesis is specified by `tails': `:both' means D
; /= H0-mean, `:positive' means D > H0-mean, and `:negative' means D < H0-mean.
; 
; The function also returns the significance, the standard error, and the degrees
; of freedom.  Signals `zero-variance' if that condition occurs.  Signals
; `insufficient-data' unless there are at least two elements in the sample."
;                                   (DECLARE
;                                    (IGNORE CL-MATHSTATS::START
;                                            CL-MATHSTATS::END
;                                            CL-MATHSTATS::KEY)
;                                    (VALUES CL-MATHSTATS::T-STATISTIC
;                                            CL-MATHSTATS:SIGNIFICANCE
;                                            CL-MATHSTATS::SAMPLE-ERROR
;                                            CL-MATHSTATS::DOF))
;                                   (LET ((CL-MATHSTATS::N
;                                          (APPLY #'CL-MATHSTATS:DATA-LENGTH
;                                                 CL-MATHSTATS::DATA
;                                                 CL-MATHSTATS::STANDARD-ARGS)))
;                                     (WHEN (ZEROP CL-MATHSTATS::N)
;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
;                                     (LET ((CL-MATHSTATS::D #)
;                                           (CL-MATHSTATS::V #))
;                                       (WHEN (ZEROP CL-MATHSTATS::V)
;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;                                       (LET* (# # #)
;                                         (VALUES CL-MATHSTATS::TT
;                                                 CL-MATHSTATS::SIG
;                                                 CL-MATHSTATS::SE
;                                                 #)))))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G1368 'CL-MATHSTATS::DOF)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::DOF

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF 
; ==>
;   (TYPEP #:G1368 'CL-MATHSTATS::DOF)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::DOF

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
;                          (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
;                                              &OPTIONAL
;                                              (CL-MATHSTATS::H0-MEAN 0)
;                                              &REST
;                                              CL-MATHSTATS::STANDARD-ARGS
;                                              &KEY
;                                              CL-MATHSTATS::START
;                                              CL-MATHSTATS::END
;                                              CL-MATHSTATS::KEY)
;                          (DECLARE
;                           (IGNORE CL-MATHSTATS::START
;                                   CL-MATHSTATS::END
;                                   CL-MATHSTATS::KEY)
;                           (VALUES CL-MATHSTATS::T-STATISTIC
;                                   CL-MATHSTATS:SIGNIFICANCE
;                                   CL-MATHSTATS::SAMPLE-ERROR
;                                   CL-MATHSTATS::DOF))
;                          (BLOCK CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
;                            (LET ((CL-MATHSTATS::N #))
;                              (WHEN (ZEROP CL-MATHSTATS::N)
;                                (ERROR 'CL-MATHSTATS::NO-DATA))
;                              (LET (# #)
;                                (WHEN # #)
;                                (LET* #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::DOF

; 
; caught STYLE-WARNING:
;   15 more uses of undefined type CL-MATHSTATS::DOF


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:MODE
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:MODE
;                                   NIL
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA &REST
;                                                       CL-MATHSTATS::STANDARD-ARGS
;                                                       &KEY
;                                                       CL-MATHSTATS::START
;                                                       CL-MATHSTATS::END
;                                                       CL-MATHSTATS::KEY)
;                                   "Returns the most frequent element of `data,' which should be a sequence.  The
; algorithm involves sorting, and so the data must be numbers or the `key'
; function must produce numbers.  Consider `sxhash' if no better function is
; available.  Also returns the number of occurrences of the mode.  If there is
; more than one mode, this returns the first mode, as determined by the sorting of
; the numbers."
;                                   (DECLARE
;                                    (VALUES METABANG.UTILITIES:ELEMENT
;                                            CL-MATHSTATS::NUMBER-OF-OCCURRENCES))
;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                                   (LET* ((CL-MATHSTATS::N
;                                           (APPLY #'CL-MATHSTATS:DATA-LENGTH
;                                                  CL-MATHSTATS::DATA
;                                                  CL-MATHSTATS::STANDARD-ARGS))
;                                          (CL-MATHSTATS::START2
;                                           (OR CL-MATHSTATS::START 0))
;                                          (CL-MATHSTATS::END2
;                                           (OR CL-MATHSTATS::END #)))
;                                     (WHEN (ZEROP CL-MATHSTATS::N)
;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
;                                     (CL-MATHSTATS:WITH-TEMP-VECTOR
;                                      (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
;                                      (REPLACE CL-MATHSTATS::TEMP
;                                               CL-MATHSTATS::DATA
;                                               :END1
;                                               CL-MATHSTATS::N
;                                               :START2
;                                               CL-MATHSTATS::START2
;                                               :END2
;                                               CL-MATHSTATS::END2)
;                                      (IF (NULL CL-MATHSTATS::KEY)
;                                          (SORT CL-MATHSTATS::TEMP #'<)
;                                          (SORT CL-MATHSTATS::TEMP
;                                                #'<
;                                                :KEY
;                                                CL-MATHSTATS::KEY))
;                                      (LET* (# # # # #)
;                                        (IF # # #)
;                                        (WHEN # #)
;                                        (VALUES CL-MATHSTATS::BIGGEST-GROUP
;                                                CL-MATHSTATS::BIGGEST-GROUP-SIZE)))))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G855 'METABANG.UTILITIES:ELEMENT)
; 
; caught STYLE-WARNING:
;   undefined type: METABANG.UTILITIES:ELEMENT

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF 
; ==>
;   (TYPEP #:G855 'METABANG.UTILITIES:ELEMENT)
; 
; caught STYLE-WARNING:
;   undefined type: METABANG.UTILITIES:ELEMENT

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MODE-INTERNAL
;                          (CL-MATHSTATS::DATA &REST
;                                              CL-MATHSTATS::STANDARD-ARGS
;                                              &KEY
;                                              CL-MATHSTATS::START
;                                              CL-MATHSTATS::END
;                                              CL-MATHSTATS::KEY)
;                          (DECLARE
;                           (VALUES METABANG.UTILITIES:ELEMENT
;                                   CL-MATHSTATS::NUMBER-OF-OCCURRENCES))
;                          (BLOCK CL-MATHSTATS::MODE-INTERNAL
;                            (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                            (LET* ((CL-MATHSTATS::N #)
;                                   (CL-MATHSTATS::START2 #)
;                                   (CL-MATHSTATS::END2 #))
;                              (WHEN (ZEROP CL-MATHSTATS::N)
;                                (ERROR 'CL-MATHSTATS::NO-DATA))
;                              (CL-MATHSTATS:WITH-TEMP-VECTOR
;                               (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
;                               (REPLACE CL-MATHSTATS::TEMP
;                                        CL-MATHSTATS::DATA
;                                        :END1
;                                        CL-MATHSTATS::N
;                                        :START2
;                                        CL-MATHSTATS::START2
;                                        :END2
;                                        CL-MATHSTATS::END2)
;                               (IF # # #)
;                               (LET* #
;                                 #
;                                 #
;                                 #)))))
; 
; caught STYLE-WARNING:
;   undefined type: METABANG.UTILITIES:ELEMENT

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type METABANG.UTILITIES:ELEMENT


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;     (DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;     "Performs linear regression of the dependent variable, `dv,' on multiple
; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
; regression coefficient.  Calculates the F statistic, intercept and the
; correlation coefficient for Y on X's."
;     (DECLARE
;      (VALUES CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::COEFFICIENTS
;              CL-MATHSTATS::R-LIST
;              CL-MATHSTATS::T-BS
;              CL-MATHSTATS::BETAS
;              CL-MATHSTATS::R-SQUARE
;              CL-MATHSTATS::F
;              CL-MATHSTATS::SS-REG-LIST
;              CL-MATHSTATS::SS-PERCENT-LIST
;              CL-MATHSTATS::SS-REG
;              CL-MATHSTATS::SS-RES
;              ...))
;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
;            (CL-MATHSTATS::X-0
;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
;            (CL-MATHSTATS::ITEM-LIST NIL))
;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
;              (CL-MATHSTATS::Z-MAT #)
;              (CL-MATHSTATS::Z-TRANS-Z #)
;              (CL-MATHSTATS::X-DIM #)
;              (CL-MATHSTATS::X-TRANS-X #)
;              (CL-MATHSTATS::X-TRANS-Y #)
;              (CL-MATHSTATS::Y-TRANS-Y #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
;                 (AREF CL-MATHSTATS::Z-TRANS-Z
;                       CL-MATHSTATS::X-DIM
;                       CL-MATHSTATS::X-DIM))
;         (LET (#)
;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
;           (LET* #
;             #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G545 'CL-MATHSTATS::F)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::F

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G545 'CL-MATHSTATS::F)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::F

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::COEFFICIENTS
;                                   CL-MATHSTATS::R-LIST
;                                   CL-MATHSTATS::T-BS
;                                   CL-MATHSTATS::BETAS
;                                   CL-MATHSTATS::R-SQUARE
;                                   CL-MATHSTATS::F
;                                   CL-MATHSTATS::SS-REG-LIST
;                                   CL-MATHSTATS::SS-PERCENT-LIST
;                                   CL-MATHSTATS::SS-REG
;                                   CL-MATHSTATS::SS-RES
;                                   ...))
;                          (BLOCK CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                            (LET* ((CL-MATHSTATS::NUM-X #)
;                                   (CL-MATHSTATS::ROWS #)
;                                   (CL-MATHSTATS::COLS #)
;                                   (CL-MATHSTATS::X-0 #)
;                                   (CL-MATHSTATS::ITEM-LIST NIL))
;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;                                (WHEN # #)
;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;                              (LET* (# # # # # # #)
;                                (DOTIMES # #)
;                                (DOTIMES # #)
;                                (SETF # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::F

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::F


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:TUKEY-SUMMARY
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:TUKEY-SUMMARY
;                                   NIL
;                                   ((CL-MATHSTATS:MINIMUM)
;                                    (CL-MATHSTATS::FIRST-QUARTILE)
;                                    (CL-MATHSTATS:MEDIAN)
;                                    (CL-MATHSTATS::THIRD-QUARTILE)
;                                    (CL-MATHSTATS:MAXIMUM))
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA &REST
;                                                       CL-MATHSTATS::STANDARD-ARGS
;                                                       &KEY
;                                                       CL-MATHSTATS::START
;                                                       CL-MATHSTATS::END
;                                                       CL-MATHSTATS::KEY)
;                                   "Computes a Tukey five-number summary of the data.  That is, it returns, in
; increasing order, the extremes and the quartiles: the minimum, the 1/4 quartile,
; the median, the 3/4 quartile, and the maximum."
;                                   (DECLARE
;                                    (VALUES CL-MATHSTATS:MINIMUM
;                                            CL-MATHSTATS::FIRST-QUARTILE
;                                            CL-MATHSTATS:MEDIAN
;                                            CL-MATHSTATS::THIRD-QUARTILE
;                                            CL-MATHSTATS:MAXIMUM))
;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                                   (LET* ((CL-MATHSTATS::N
;                                           (APPLY #'CL-MATHSTATS:DATA-LENGTH
;                                                  CL-MATHSTATS::DATA
;                                                  CL-MATHSTATS::STANDARD-ARGS))
;                                          (CL-MATHSTATS::START2
;                                           (OR CL-MATHSTATS::START 0))
;                                          (CL-MATHSTATS::END2
;                                           (OR CL-MATHSTATS::END #)))
;                                     (WHEN (ZEROP CL-MATHSTATS::N)
;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
;                                     (CL-MATHSTATS:WITH-TEMP-VECTOR
;                                      (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
;                                      (REPLACE CL-MATHSTATS::TEMP
;                                               CL-MATHSTATS::DATA
;                                               :END1
;                                               CL-MATHSTATS::N
;                                               :START2
;                                               CL-MATHSTATS::START2
;                                               :END2
;                                               CL-MATHSTATS::END2)
;                                      (IF (NULL CL-MATHSTATS::KEY)
;                                          (SORT CL-MATHSTATS::TEMP #'<)
;                                          (SORT CL-MATHSTATS::TEMP
;                                                #'<
;                                                :KEY
;                                                CL-MATHSTATS::KEY))
;                                      (FLET (#)
;                                        (VALUES # # # # #)))))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G1198 'CL-MATHSTATS::FIRST-QUARTILE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::FIRST-QUARTILE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF 
; ==>
;   (TYPEP #:G1198 'CL-MATHSTATS::FIRST-QUARTILE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::FIRST-QUARTILE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::TUKEY-SUMMARY-INTERNAL
;                          (CL-MATHSTATS::DATA &REST
;                                              CL-MATHSTATS::STANDARD-ARGS
;                                              &KEY
;                                              CL-MATHSTATS::START
;                                              CL-MATHSTATS::END
;                                              CL-MATHSTATS::KEY)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS:MINIMUM
;                                   CL-MATHSTATS::FIRST-QUARTILE
;                                   CL-MATHSTATS:MEDIAN
;                                   CL-MATHSTATS::THIRD-QUARTILE
;                                   CL-MATHSTATS:MAXIMUM))
;                          (BLOCK CL-MATHSTATS::TUKEY-SUMMARY-INTERNAL
;                            (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                            (LET* ((CL-MATHSTATS::N #)
;                                   (CL-MATHSTATS::START2 #)
;                                   (CL-MATHSTATS::END2 #))
;                              (WHEN (ZEROP CL-MATHSTATS::N)
;                                (ERROR 'CL-MATHSTATS::NO-DATA))
;                              (CL-MATHSTATS:WITH-TEMP-VECTOR
;                               (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
;                               (REPLACE CL-MATHSTATS::TEMP
;                                        CL-MATHSTATS::DATA
;                                        :END1
;                                        CL-MATHSTATS::N
;                                        :START2
;                                        CL-MATHSTATS::START2
;                                        :END2
;                                        CL-MATHSTATS::END2)
;                               (IF # # #)
;                               (FLET #
;                                 #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::FIRST-QUARTILE

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::FIRST-QUARTILE


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN CL-MATHSTATS::G-TEST
;     (FLET ((CL-MATHSTATS::DOIT
;              (CL-MATHSTATS::CONTINGENCY-TABLE
;               &OPTIONAL CL-MATHSTATS::EXPECTED-VALUE-MATRIX)
;            (DECLARE
;             (VALUES CL-MATHSTATS::G-SCORE
;                     CL-MATHSTATS::G-SIGNIFICANCE
;                     CL-MATHSTATS::DOF))
;            (DESTRUCTURING-BIND
;                (CL-MATHSTATS::ROWS CL-MATHSTATS::COLUMNS)
;                (ARRAY-DIMENSIONS CL-MATHSTATS::CONTINGENCY-TABLE)
;              (LET #
;                #
;                #
;                #
;                #))))
;     (IF CL-MATHSTATS::ERROR-P
;         (CL-MATHSTATS::DOIT CL-MATHSTATS::CONTINGENCY-TABLE
;                             CL-MATHSTATS::EXPECTED-VALUE-MATRIX)
;         (CATCH 'CL-MATHSTATS::RECOVER
;           (HANDLER-BIND (# #)
;                         (CL-MATHSTATS::DOIT CL-MATHSTATS::CONTINGENCY-TABLE
;                                             CL-MATHSTATS::EXPECTED-VALUE-MATRIX)))))
; --> THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT 
; --> IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G2518 'CL-MATHSTATS::G-SCORE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::G-SCORE

; --> THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT 
; --> IF 
; ==>
;   (TYPEP #:G2518 'CL-MATHSTATS::G-SCORE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::G-SCORE
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::G-SCORE

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::G-SCORE


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN CL-MATHSTATS::G-TEST
;     (FLET ((CL-MATHSTATS::DOIT
;              (CL-MATHSTATS::CONTINGENCY-TABLE
;               &OPTIONAL CL-MATHSTATS::EXPECTED-VALUE-MATRIX)
;            (DECLARE
;             (VALUES CL-MATHSTATS::G-SCORE
;                     CL-MATHSTATS::G-SIGNIFICANCE
;                     CL-MATHSTATS::DOF))
;            (DESTRUCTURING-BIND
;                (CL-MATHSTATS::ROWS CL-MATHSTATS::COLUMNS)
;                (ARRAY-DIMENSIONS CL-MATHSTATS::CONTINGENCY-TABLE)
;              (LET #
;                #
;                #
;                #
;                #))))
;     (IF CL-MATHSTATS::ERROR-P
;         (CL-MATHSTATS::DOIT CL-MATHSTATS::CONTINGENCY-TABLE
;                             CL-MATHSTATS::EXPECTED-VALUE-MATRIX)
;         (CATCH 'CL-MATHSTATS::RECOVER
;           (HANDLER-BIND (# #)
;                         (CL-MATHSTATS::DOIT CL-MATHSTATS::CONTINGENCY-TABLE
;                                             CL-MATHSTATS::EXPECTED-VALUE-MATRIX)))))
; --> THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT 
; --> IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G2519 'CL-MATHSTATS::G-SIGNIFICANCE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::G-SIGNIFICANCE

; --> THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT 
; --> IF 
; ==>
;   (TYPEP #:G2519 'CL-MATHSTATS::G-SIGNIFICANCE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::G-SIGNIFICANCE
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::G-SIGNIFICANCE

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type CL-MATHSTATS::G-SIGNIFICANCE


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:LINEAR-REGRESSION-MINIMAL-SUMMARIES
;     (DEFUN CL-MATHSTATS:LINEAR-REGRESSION-MINIMAL-SUMMARIES
;          (CL-MATHSTATS::N CL-MATHSTATS::X CL-MATHSTATS::Y CL-MATHSTATS::X2
;           CL-MATHSTATS::Y2 CL-MATHSTATS::XY)
;     "Calculates the slope and intercept of the regression line.  This function
; differs from `linear-regression-minimal' in that it takes summary statistics:
; `x' and `y' are the sums of the independent variable and dependent variables,
; respectively; `x2' and `y2' are the sums of the squares of the independent
; variable and dependent variables, respectively; and `xy' is the sum of the
; products of the independent and dependent variables.
; 
; You should first look at your data with a scatter plot to see if a linear model
; is plausible.  See the manual for a fuller explanation of linear regression
; statistics."
;     (DECLARE (VALUES CL-MATHSTATS::SLOPE CL-MATHSTATS::INTERCEPT)
;              (IGNORE CL-MATHSTATS::Y2))
;     (LET ((CL-MATHSTATS::NSSX (- # #)) (CL-MATHSTATS::NSSXY (- # #)))
;       (WHEN (ZEROP CL-MATHSTATS::NSSX) (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;       (LET* ((CL-MATHSTATS::SLOPE #) (CL-MATHSTATS::INTERCEPT #))
;         (VALUES CL-MATHSTATS::SLOPE CL-MATHSTATS::INTERCEPT))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G169 'CL-MATHSTATS::INTERCEPT)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::INTERCEPT

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G169 'CL-MATHSTATS::INTERCEPT)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::INTERCEPT

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:LINEAR-REGRESSION-MINIMAL-SUMMARIES
;                          (CL-MATHSTATS::N CL-MATHSTATS::X
;                                           CL-MATHSTATS::Y
;                                           CL-MATHSTATS::X2
;                                           CL-MATHSTATS::Y2
;                                           CL-MATHSTATS::XY)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::SLOPE CL-MATHSTATS::INTERCEPT)
;                           (IGNORE CL-MATHSTATS::Y2))
;                          (BLOCK
;                              CL-MATHSTATS:LINEAR-REGRESSION-MINIMAL-SUMMARIES
;                            (LET ((CL-MATHSTATS::NSSX #) (CL-MATHSTATS::NSSXY #))
;                              (WHEN (ZEROP CL-MATHSTATS::NSSX)
;                                (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;                              (LET* (# #)
;                                (VALUES CL-MATHSTATS::SLOPE
;                                        CL-MATHSTATS::INTERCEPT)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::INTERCEPT

; 
; caught STYLE-WARNING:
;   19 more uses of undefined type CL-MATHSTATS::INTERCEPT


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:STATISTICAL-SUMMARY
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:STATISTICAL-SUMMARY
;                                   (CL-MATHSTATS:DATA-LENGTH
;                                    CL-MATHSTATS:MINIMUM
;                                    CL-MATHSTATS:MAXIMUM
;                                    CL-MATHSTATS:RANGE
;                                    CL-MATHSTATS:MEDIAN
;                                    CL-MATHSTATS:MODE
;                                    CL-MATHSTATS:MEAN
;                                    CL-MATHSTATS:VARIANCE
;                                    CL-MATHSTATS:STANDARD-DEVIATION
;                                    CL-MATHSTATS:INTERQUARTILE-RANGE
;                                    CL-MATHSTATS:SKEWNESS)
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA &REST
;                                                       CL-MATHSTATS::STANDARD-ARGS
;                                                       &KEY
;                                                       CL-MATHSTATS::START
;                                                       CL-MATHSTATS::END
;                                                       CL-MATHSTATS::KEY)
;                                   "Compute the length, minimum, maximum, range, median, mode, mean, variance,
; standard deviation, and interquartile-range of `sequence' from `start' to `end',
; accessed by `key'."
;                                   (DECLARE
;                                    (IGNORE CL-MATHSTATS::START
;                                            CL-MATHSTATS::END)
;                                    (VALUES LENGTH
;                                            CL-MATHSTATS:MINIMUM
;                                            CL-MATHSTATS:MAXIMUM
;                                            CL-MATHSTATS:RANGE
;                                            CL-MATHSTATS:MEDIAN
;                                            CL-MATHSTATS:MODE
;                                            CL-MATHSTATS:MEAN
;                                            CL-MATHSTATS:VARIANCE
;                                            CL-MATHSTATS:STANDARD-DEVIATION
;                                            CL-MATHSTATS:INTERQUARTILE-RANGE))
;                                   (LET* ((LENGTH
;                                           (APPLY #'CL-MATHSTATS:DATA-LENGTH
;                                                  CL-MATHSTATS::DATA
;                                                  CL-MATHSTATS::STANDARD-ARGS))
;                                          (CL-MATHSTATS:MINIMUM
;                                           (APPLY #'CL-MATHSTATS:MINIMUM
;                                                  CL-MATHSTATS::DATA
;                                                  CL-MATHSTATS::STANDARD-ARGS))
;                                          (CL-MATHSTATS:MAXIMUM
;                                           (APPLY #'CL-MATHSTATS:MAXIMUM
;                                                  CL-MATHSTATS::DATA
;                                                  CL-MATHSTATS::STANDARD-ARGS))
;                                          (CL-MATHSTATS:RANGE (IF # # #))
;                                          (CL-MATHSTATS:MEDIAN
;                                           (APPLY #'CL-MATHSTATS:MEDIAN
;                                                  CL-MATHSTATS::DATA
;                                                  CL-MATHSTATS::STANDARD-ARGS))
;                                          (CL-MATHSTATS:MODE
;                                           (APPLY #'CL-MATHSTATS::SMART-MODE
;                                                  CL-MATHSTATS::DATA
;                                                  CL-MATHSTATS::STANDARD-ARGS))
;                                          (CL-MATHSTATS:MEAN
;                                           (APPLY #'CL-MATHSTATS:MEAN
;                                                  CL-MATHSTATS::DATA
;                                                  CL-MATHSTATS::STANDARD-ARGS))
;                                          (CL-MATHSTATS:VARIANCE
;                                           (APPLY #'CL-MATHSTATS:VARIANCE
;                                                  CL-MATHSTATS::DATA
;                                                  CL-MATHSTATS::STANDARD-ARGS))
;                                          (CL-MATHSTATS::SD
;                                           (SQRT CL-MATHSTATS:VARIANCE))
;                                          (CL-MATHSTATS::IQR
;                                           (APPLY
;                                            #'CL-MATHSTATS:INTERQUARTILE-RANGE
;                                            CL-MATHSTATS::DATA
;                                            CL-MATHSTATS::STANDARD-ARGS))
;                                          (CL-MATHSTATS:SKEWNESS
;                                           (APPLY #'CL-MATHSTATS:SKEWNESS
;                                                  CL-MATHSTATS::DATA
;                                                  CL-MATHSTATS::STANDARD-ARGS)))
;                                     (VALUES LENGTH
;                                             CL-MATHSTATS:MINIMUM
;                                             CL-MATHSTATS:MAXIMUM
;                                             CL-MATHSTATS:RANGE
;                                             CL-MATHSTATS:MEDIAN
;                                             CL-MATHSTATS:MODE
;                                             CL-MATHSTATS:MEAN
;                                             CL-MATHSTATS:VARIANCE
;                                             CL-MATHSTATS::SD
;                                             CL-MATHSTATS::IQR
;                                             CL-MATHSTATS:SKEWNESS)))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G1265 'LENGTH)
; 
; caught STYLE-WARNING:
;   undefined type: LENGTH

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF 
; ==>
;   (TYPEP #:G1265 'LENGTH)
; 
; caught STYLE-WARNING:
;   undefined type: LENGTH

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::STATISTICAL-SUMMARY-INTERNAL
;                          (CL-MATHSTATS::DATA &REST
;                                              CL-MATHSTATS::STANDARD-ARGS
;                                              &KEY
;                                              CL-MATHSTATS::START
;                                              CL-MATHSTATS::END
;                                              CL-MATHSTATS::KEY)
;                          (DECLARE
;                           (IGNORE CL-MATHSTATS::START CL-MATHSTATS::END)
;                           (VALUES LENGTH
;                                   CL-MATHSTATS:MINIMUM
;                                   CL-MATHSTATS:MAXIMUM
;                                   CL-MATHSTATS:RANGE
;                                   CL-MATHSTATS:MEDIAN
;                                   CL-MATHSTATS:MODE
;                                   CL-MATHSTATS:MEAN
;                                   CL-MATHSTATS:VARIANCE
;                                   CL-MATHSTATS:STANDARD-DEVIATION
;                                   CL-MATHSTATS:INTERQUARTILE-RANGE))
;                          (BLOCK CL-MATHSTATS::STATISTICAL-SUMMARY-INTERNAL
;                            (LET* ((LENGTH #)
;                                   (CL-MATHSTATS:MINIMUM #)
;                                   (CL-MATHSTATS:MAXIMUM #)
;                                   (CL-MATHSTATS:RANGE #)
;                                   (CL-MATHSTATS:MEDIAN #)
;                                   (CL-MATHSTATS:MODE #)
;                                   (CL-MATHSTATS:MEAN #)
;                                   (CL-MATHSTATS:VARIANCE #)
;                                   (CL-MATHSTATS::SD #)
;                                   (CL-MATHSTATS::IQR #)
;                                   (CL-MATHSTATS:SKEWNESS #))
;                              (VALUES LENGTH
;                                      CL-MATHSTATS:MINIMUM
;                                      CL-MATHSTATS:MAXIMUM
;                                      CL-MATHSTATS:RANGE
;                                      CL-MATHSTATS:MEDIAN
;                                      CL-MATHSTATS:MODE
;                                      CL-MATHSTATS:MEAN
;                                      CL-MATHSTATS:VARIANCE
;                                      CL-MATHSTATS::SD
;                                      CL-MATHSTATS::IQR
;                                      CL-MATHSTATS:SKEWNESS))))
; 
; caught STYLE-WARNING:
;   undefined type: LENGTH

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


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN CL-MATHSTATS:CONFIDENCE-INTERVAL-T-SUMMARIES
;     (DEFUN CL-MATHSTATS:CONFIDENCE-INTERVAL-T-SUMMARIES
;          (CL-MATHSTATS:MEAN CL-MATHSTATS::DOF CL-MATHSTATS::STANDARD-ERROR
;           CL-MATHSTATS::CONFIDENCE)
;     "This function is just like `confidence-interval-t,' except that instead of
; its arguments being the actual data, it takes the following summary statistics:
; `mean,' which is the estimator of some t-distributed parameter; `dof,' which is
; the number of degrees of freedom in estimating the mean; and the
; `standard-error' of the estimator.  In general, `mean' is a point estimator of
; the mean of a t-distribution, which may be the slope parameter of a regression,
; the difference between two means, or other practical t-distributions.
; `Confidence' should be a number between 0 and 1, exclusive."
;     (DECLARE
;      (VALUES CL-MATHSTATS:MEAN CL-MATHSTATS::LOWER CL-MATHSTATS::UPPER))
;     (CHECK-TYPE CL-MATHSTATS::DOF (REAL 1 *))
;     (CHECK-TYPE CL-MATHSTATS:MEAN REAL)
;     (CHECK-TYPE CL-MATHSTATS::STANDARD-ERROR REAL)
;     (CHECK-TYPE CL-MATHSTATS::CONFIDENCE (REAL (0) (1)))
;     (LET* ((CL-MATHSTATS::T-X (CL-MATHSTATS::FIND-CRITICAL-VALUE #'# #))
;            (CL-MATHSTATS::W (* CL-MATHSTATS::STANDARD-ERROR CL-MATHSTATS::T-X))
;            (CL-MATHSTATS::UPPER (+ CL-MATHSTATS:MEAN CL-MATHSTATS::W))
;            (CL-MATHSTATS::LOWER (- CL-MATHSTATS:MEAN CL-MATHSTATS::W)))
;       (VALUES CL-MATHSTATS:MEAN CL-MATHSTATS::LOWER CL-MATHSTATS::UPPER)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G2003 'CL-MATHSTATS::LOWER)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::LOWER

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G2003 'CL-MATHSTATS::LOWER)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::LOWER

; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:CONFIDENCE-INTERVAL-Z
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:CONFIDENCE-INTERVAL-Z
;                                   (CL-MATHSTATS:CONFIDENCE-INTERVAL)
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::CONFIDENCE)
;                                   "Suppose you have a sample of 50 numbers and you want to compute a 90 percent
; confidence interval on the population mean.  This function is the one to use.
; Note that it makes the assumption that the sampling distribution is normal, so
; it's inappropriate for small sample sizes.  Use confidence-interval-t instead.
; It returns three values: the mean and the lower and upper bound of the
; confidence interval.  True, only two numbers are necessary, but the confidence
; intervals of other statistics may be asymmetrical and these values would be
; consistent with those confidence intervals.  This function handles 90, 95 and 99
; percent confidence intervals as special cases, so those will be quite fast.
; `Sample' should be a sequence of numbers.  `Confidence' should be a number
; between 0 and 1, exclusive."
;                                   (DECLARE
;                                    (VALUES CL-MATHSTATS:MEAN
;                                            CL-MATHSTATS::LOWER
;                                            CL-MATHSTATS::UPPER))
;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                                   (CHECK-TYPE CL-MATHSTATS::CONFIDENCE
;                                               (REAL (0) (1)))
;                                   (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
;                                    (CL-MATHSTATS:MEAN CL-MATHSTATS::DATA)
;                                    (SQRT
;                                     (/
;                                      (CL-MATHSTATS:VARIANCE CL-MATHSTATS::DATA)
;                                      (LENGTH CL-MATHSTATS::DATA)))
;                                    CL-MATHSTATS::CONFIDENCE))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-INTERNAL
;                          (CL-MATHSTATS::DATA CL-MATHSTATS::CONFIDENCE)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS:MEAN
;                                   CL-MATHSTATS::LOWER
;                                   CL-MATHSTATS::UPPER))
;                          (BLOCK CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-INTERNAL
;                            (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                            (CHECK-TYPE CL-MATHSTATS::CONFIDENCE (REAL (0) (1)))
;                            (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
;                             (CL-MATHSTATS:MEAN CL-MATHSTATS::DATA)
;                             (SQRT (/ # #))
;                             CL-MATHSTATS::CONFIDENCE)))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::LOWER

; 
; caught STYLE-WARNING:
;   9 more uses of undefined type CL-MATHSTATS::LOWER


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;     (DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;     "Performs linear regression of the dependent variable, `dv,' on multiple
; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
; regression coefficient.  Calculates the F statistic, intercept and the
; correlation coefficient for Y on X's."
;     (DECLARE
;      (VALUES CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::COEFFICIENTS
;              CL-MATHSTATS::R-LIST
;              CL-MATHSTATS::T-BS
;              CL-MATHSTATS::BETAS
;              CL-MATHSTATS::R-SQUARE
;              CL-MATHSTATS::F
;              CL-MATHSTATS::SS-REG-LIST
;              CL-MATHSTATS::SS-PERCENT-LIST
;              CL-MATHSTATS::SS-REG
;              CL-MATHSTATS::SS-RES
;              ...))
;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
;            (CL-MATHSTATS::X-0
;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
;            (CL-MATHSTATS::ITEM-LIST NIL))
;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
;              (CL-MATHSTATS::Z-MAT #)
;              (CL-MATHSTATS::Z-TRANS-Z #)
;              (CL-MATHSTATS::X-DIM #)
;              (CL-MATHSTATS::X-TRANS-X #)
;              (CL-MATHSTATS::X-TRANS-Y #)
;              (CL-MATHSTATS::Y-TRANS-Y #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
;                 (AREF CL-MATHSTATS::Z-TRANS-Z
;                       CL-MATHSTATS::X-DIM
;                       CL-MATHSTATS::X-DIM))
;         (LET (#)
;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
;           (LET* #
;             #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G550 'CL-MATHSTATS::MSE-REG)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::MSE-REG

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G550 'CL-MATHSTATS::MSE-REG)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::MSE-REG

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::COEFFICIENTS
;                                   CL-MATHSTATS::R-LIST
;                                   CL-MATHSTATS::T-BS
;                                   CL-MATHSTATS::BETAS
;                                   CL-MATHSTATS::R-SQUARE
;                                   CL-MATHSTATS::F
;                                   CL-MATHSTATS::SS-REG-LIST
;                                   CL-MATHSTATS::SS-PERCENT-LIST
;                                   CL-MATHSTATS::SS-REG
;                                   CL-MATHSTATS::SS-RES
;                                   ...))
;                          (BLOCK CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                            (LET* ((CL-MATHSTATS::NUM-X #)
;                                   (CL-MATHSTATS::ROWS #)
;                                   (CL-MATHSTATS::COLS #)
;                                   (CL-MATHSTATS::X-0 #)
;                                   (CL-MATHSTATS::ITEM-LIST NIL))
;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;                                (WHEN # #)
;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;                              (LET* (# # # # # # #)
;                                (DOTIMES # #)
;                                (DOTIMES # #)
;                                (SETF # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::MSE-REG

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::MSE-REG


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;     (DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;     "Performs linear regression of the dependent variable, `dv,' on multiple
; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
; regression coefficient.  Calculates the F statistic, intercept and the
; correlation coefficient for Y on X's."
;     (DECLARE
;      (VALUES CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::COEFFICIENTS
;              CL-MATHSTATS::R-LIST
;              CL-MATHSTATS::T-BS
;              CL-MATHSTATS::BETAS
;              CL-MATHSTATS::R-SQUARE
;              CL-MATHSTATS::F
;              CL-MATHSTATS::SS-REG-LIST
;              CL-MATHSTATS::SS-PERCENT-LIST
;              CL-MATHSTATS::SS-REG
;              CL-MATHSTATS::SS-RES
;              ...))
;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
;            (CL-MATHSTATS::X-0
;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
;            (CL-MATHSTATS::ITEM-LIST NIL))
;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
;              (CL-MATHSTATS::Z-MAT #)
;              (CL-MATHSTATS::Z-TRANS-Z #)
;              (CL-MATHSTATS::X-DIM #)
;              (CL-MATHSTATS::X-TRANS-X #)
;              (CL-MATHSTATS::X-TRANS-Y #)
;              (CL-MATHSTATS::Y-TRANS-Y #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
;                 (AREF CL-MATHSTATS::Z-TRANS-Z
;                       CL-MATHSTATS::X-DIM
;                       CL-MATHSTATS::X-DIM))
;         (LET (#)
;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
;           (LET* #
;             #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G551 'CL-MATHSTATS::MSE-RES)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::MSE-RES

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G551 'CL-MATHSTATS::MSE-RES)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::MSE-RES

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::COEFFICIENTS
;                                   CL-MATHSTATS::R-LIST
;                                   CL-MATHSTATS::T-BS
;                                   CL-MATHSTATS::BETAS
;                                   CL-MATHSTATS::R-SQUARE
;                                   CL-MATHSTATS::F
;                                   CL-MATHSTATS::SS-REG-LIST
;                                   CL-MATHSTATS::SS-PERCENT-LIST
;                                   CL-MATHSTATS::SS-REG
;                                   CL-MATHSTATS::SS-RES
;                                   ...))
;                          (BLOCK CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                            (LET* ((CL-MATHSTATS::NUM-X #)
;                                   (CL-MATHSTATS::ROWS #)
;                                   (CL-MATHSTATS::COLS #)
;                                   (CL-MATHSTATS::X-0 #)
;                                   (CL-MATHSTATS::ITEM-LIST NIL))
;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;                                (WHEN # #)
;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;                              (LET* (# # # # # # #)
;                                (DOTIMES # #)
;                                (DOTIMES # #)
;                                (SETF # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::MSE-RES

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::MSE-RES


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:MODE
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:MODE
;                                   NIL
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA &REST
;                                                       CL-MATHSTATS::STANDARD-ARGS
;                                                       &KEY
;                                                       CL-MATHSTATS::START
;                                                       CL-MATHSTATS::END
;                                                       CL-MATHSTATS::KEY)
;                                   "Returns the most frequent element of `data,' which should be a sequence.  The
; algorithm involves sorting, and so the data must be numbers or the `key'
; function must produce numbers.  Consider `sxhash' if no better function is
; available.  Also returns the number of occurrences of the mode.  If there is
; more than one mode, this returns the first mode, as determined by the sorting of
; the numbers."
;                                   (DECLARE
;                                    (VALUES METABANG.UTILITIES:ELEMENT
;                                            CL-MATHSTATS::NUMBER-OF-OCCURRENCES))
;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                                   (LET* ((CL-MATHSTATS::N
;                                           (APPLY #'CL-MATHSTATS:DATA-LENGTH
;                                                  CL-MATHSTATS::DATA
;                                                  CL-MATHSTATS::STANDARD-ARGS))
;                                          (CL-MATHSTATS::START2
;                                           (OR CL-MATHSTATS::START 0))
;                                          (CL-MATHSTATS::END2
;                                           (OR CL-MATHSTATS::END #)))
;                                     (WHEN (ZEROP CL-MATHSTATS::N)
;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
;                                     (CL-MATHSTATS:WITH-TEMP-VECTOR
;                                      (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
;                                      (REPLACE CL-MATHSTATS::TEMP
;                                               CL-MATHSTATS::DATA
;                                               :END1
;                                               CL-MATHSTATS::N
;                                               :START2
;                                               CL-MATHSTATS::START2
;                                               :END2
;                                               CL-MATHSTATS::END2)
;                                      (IF (NULL CL-MATHSTATS::KEY)
;                                          (SORT CL-MATHSTATS::TEMP #'<)
;                                          (SORT CL-MATHSTATS::TEMP
;                                                #'<
;                                                :KEY
;                                                CL-MATHSTATS::KEY))
;                                      (LET* (# # # # #)
;                                        (IF # # #)
;                                        (WHEN # #)
;                                        (VALUES CL-MATHSTATS::BIGGEST-GROUP
;                                                CL-MATHSTATS::BIGGEST-GROUP-SIZE)))))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G856 'CL-MATHSTATS::NUMBER-OF-OCCURRENCES)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::NUMBER-OF-OCCURRENCES

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF 
; ==>
;   (TYPEP #:G856 'CL-MATHSTATS::NUMBER-OF-OCCURRENCES)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::NUMBER-OF-OCCURRENCES

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MODE-INTERNAL
;                          (CL-MATHSTATS::DATA &REST
;                                              CL-MATHSTATS::STANDARD-ARGS
;                                              &KEY
;                                              CL-MATHSTATS::START
;                                              CL-MATHSTATS::END
;                                              CL-MATHSTATS::KEY)
;                          (DECLARE
;                           (VALUES METABANG.UTILITIES:ELEMENT
;                                   CL-MATHSTATS::NUMBER-OF-OCCURRENCES))
;                          (BLOCK CL-MATHSTATS::MODE-INTERNAL
;                            (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                            (LET* ((CL-MATHSTATS::N #)
;                                   (CL-MATHSTATS::START2 #)
;                                   (CL-MATHSTATS::END2 #))
;                              (WHEN (ZEROP CL-MATHSTATS::N)
;                                (ERROR 'CL-MATHSTATS::NO-DATA))
;                              (CL-MATHSTATS:WITH-TEMP-VECTOR
;                               (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
;                               (REPLACE CL-MATHSTATS::TEMP
;                                        CL-MATHSTATS::DATA
;                                        :END1
;                                        CL-MATHSTATS::N
;                                        :START2
;                                        CL-MATHSTATS::START2
;                                        :END2
;                                        CL-MATHSTATS::END2)
;                               (IF # # #)
;                               (LET* #
;                                 #
;                                 #
;                                 #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::NUMBER-OF-OCCURRENCES

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::NUMBER-OF-OCCURRENCES


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in:
;      CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:CONFIDENCE-INTERVAL-PROPORTION
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:CONFIDENCE-INTERVAL-PROPORTION
;                                   (CL-MATHSTATS:CONFIDENCE-INTERVAL)
;                                   NIL
;                                   NIL
;                                   NIL
;                                   (CL-MATHSTATS::X CL-MATHSTATS::N
;                                                    CL-MATHSTATS::CONFIDENCE)
;                                   "Suppose we have a sample of `n' things and `x' of them are ``successes.'' We
; can estimate the population proportion of successes as x/n; call it `p-hat.'
; This function computes the estimate and a confidence interval on it.  This
; function is not appropriate for small samples with p-hat far from 1/2: `x'
; should be at least 5, and so should `n'-`x.' This function returns three values:
; p-hat, and the lower and upper bounds of the confidence interval.  `Confidence'
; should be a number between 0 and 1, exclusive."
;                                   (DECLARE
;                                    (VALUES CL-MATHSTATS::P-HAT
;                                            CL-MATHSTATS::LOWER
;                                            CL-MATHSTATS::UPPER))
;                                   (LET ((CL-MATHSTATS::P-HAT
;                                          (/ CL-MATHSTATS::X CL-MATHSTATS::N))
;                                         (CL-MATHSTATS::STANDARD-ERROR (SQRT #)))
;                                     (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
;                                      CL-MATHSTATS::P-HAT
;                                      CL-MATHSTATS::STANDARD-ERROR
;                                      CL-MATHSTATS::CONFIDENCE)))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G2017 'CL-MATHSTATS::P-HAT)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::P-HAT

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF 
; ==>
;   (TYPEP #:G2017 'CL-MATHSTATS::P-HAT)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::P-HAT

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CONFIDENCE-INTERVAL-PROPORTION-INTERNAL
;                          (CL-MATHSTATS::X CL-MATHSTATS::N
;                                           CL-MATHSTATS::CONFIDENCE)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::P-HAT
;                                   CL-MATHSTATS::LOWER
;                                   CL-MATHSTATS::UPPER))
;                          (BLOCK
;                              CL-MATHSTATS::CONFIDENCE-INTERVAL-PROPORTION-INTERNAL
;                            (LET ((CL-MATHSTATS::P-HAT #)
;                                  (CL-MATHSTATS::STANDARD-ERROR #))
;                              (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
;                               CL-MATHSTATS::P-HAT
;                               CL-MATHSTATS::STANDARD-ERROR
;                               CL-MATHSTATS::CONFIDENCE))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::P-HAT

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::P-HAT


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
;          (CL-MATHSTATS::A CL-MATHSTATS::B CL-MATHSTATS::C CL-MATHSTATS::D
;           &OPTIONAL (CL-MATHSTATS::YATES T))
;     "Runs a chi-square test for association on a simple 2 x 2 table.  If `yates'
; is nil, the correction for continuity is not done; default is t.
; 
; Returns the chi-square statistic and the significance of the value."
;     (DECLARE (VALUES CL-MATHSTATS::CHI2 CL-MATHSTATS::P-VALUE))
;     (CHECK-TYPE CL-MATHSTATS::A INTEGER)
;     (CHECK-TYPE CL-MATHSTATS::B INTEGER)
;     (CHECK-TYPE CL-MATHSTATS::C INTEGER)
;     (CHECK-TYPE CL-MATHSTATS::D INTEGER)
;     (LET ((CL-MATHSTATS::N
;            (+ CL-MATHSTATS::A CL-MATHSTATS::B CL-MATHSTATS::C CL-MATHSTATS::D))
;           (CL-MATHSTATS::DENOM (* # # # #))
;           (CL-MATHSTATS::NUMER (- # #)))
;       (WHEN CL-MATHSTATS::YATES (SETF CL-MATHSTATS::NUMER (- # #)))
;       (SETF CL-MATHSTATS::NUMER
;               (* CL-MATHSTATS::N (CL-MATHSTATS:SQUARE CL-MATHSTATS::NUMER)))
;       (LET* ((CL-MATHSTATS::CHI2 #) (CL-MATHSTATS::P-VALUE #))
;         (VALUES CL-MATHSTATS::CHI2 CL-MATHSTATS::P-VALUE))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G2278 'CL-MATHSTATS::P-VALUE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::P-VALUE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G2278 'CL-MATHSTATS::P-VALUE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::P-VALUE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
;                          (CL-MATHSTATS::A CL-MATHSTATS::B
;                                           CL-MATHSTATS::C
;                                           CL-MATHSTATS::D
;                                           &OPTIONAL
;                                           (CL-MATHSTATS::YATES T))
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::CHI2 CL-MATHSTATS::P-VALUE))
;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
;                            (CHECK-TYPE CL-MATHSTATS::A INTEGER)
;                            (CHECK-TYPE CL-MATHSTATS::B INTEGER)
;                            (CHECK-TYPE CL-MATHSTATS::C INTEGER)
;                            (CHECK-TYPE CL-MATHSTATS::D INTEGER)
;                            (LET ((CL-MATHSTATS::N #)
;                                  (CL-MATHSTATS::DENOM #)
;                                  (CL-MATHSTATS::NUMER #))
;                              (WHEN CL-MATHSTATS::YATES
;                                (SETF CL-MATHSTATS::NUMER #))
;                              (SETF CL-MATHSTATS::NUMER (* CL-MATHSTATS::N #))
;                              (LET* (# #)
;                                (VALUES CL-MATHSTATS::CHI2
;                                        CL-MATHSTATS::P-VALUE)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::P-VALUE

; 
; caught STYLE-WARNING:
;   12 more uses of undefined type CL-MATHSTATS::P-VALUE


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;     (DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;     "Performs linear regression of the dependent variable, `dv,' on multiple
; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
; regression coefficient.  Calculates the F statistic, intercept and the
; correlation coefficient for Y on X's."
;     (DECLARE
;      (VALUES CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::COEFFICIENTS
;              CL-MATHSTATS::R-LIST
;              CL-MATHSTATS::T-BS
;              CL-MATHSTATS::BETAS
;              CL-MATHSTATS::R-SQUARE
;              CL-MATHSTATS::F
;              CL-MATHSTATS::SS-REG-LIST
;              CL-MATHSTATS::SS-PERCENT-LIST
;              CL-MATHSTATS::SS-REG
;              CL-MATHSTATS::SS-RES
;              ...))
;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
;            (CL-MATHSTATS::X-0
;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
;            (CL-MATHSTATS::ITEM-LIST NIL))
;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
;              (CL-MATHSTATS::Z-MAT #)
;              (CL-MATHSTATS::Z-TRANS-Z #)
;              (CL-MATHSTATS::X-DIM #)
;              (CL-MATHSTATS::X-TRANS-X #)
;              (CL-MATHSTATS::X-TRANS-Y #)
;              (CL-MATHSTATS::Y-TRANS-Y #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
;                 (AREF CL-MATHSTATS::Z-TRANS-Z
;                       CL-MATHSTATS::X-DIM
;                       CL-MATHSTATS::X-DIM))
;         (LET (#)
;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
;           (LET* #
;             #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G541 'CL-MATHSTATS::R-LIST)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::R-LIST

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G541 'CL-MATHSTATS::R-LIST)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::R-LIST

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::COEFFICIENTS
;                                   CL-MATHSTATS::R-LIST
;                                   CL-MATHSTATS::T-BS
;                                   CL-MATHSTATS::BETAS
;                                   CL-MATHSTATS::R-SQUARE
;                                   CL-MATHSTATS::F
;                                   CL-MATHSTATS::SS-REG-LIST
;                                   CL-MATHSTATS::SS-PERCENT-LIST
;                                   CL-MATHSTATS::SS-REG
;                                   CL-MATHSTATS::SS-RES
;                                   ...))
;                          (BLOCK CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                            (LET* ((CL-MATHSTATS::NUM-X #)
;                                   (CL-MATHSTATS::ROWS #)
;                                   (CL-MATHSTATS::COLS #)
;                                   (CL-MATHSTATS::X-0 #)
;                                   (CL-MATHSTATS::ITEM-LIST NIL))
;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;                                (WHEN # #)
;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;                              (LET* (# # # # # # #)
;                                (DOTIMES # #)
;                                (DOTIMES # #)
;                                (SETF # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::R-LIST

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::R-LIST


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;     (DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;     "Performs linear regression of the dependent variable, `dv,' on multiple
; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
; regression coefficient.  Calculates the F statistic, intercept and the
; correlation coefficient for Y on X's."
;     (DECLARE
;      (VALUES CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::COEFFICIENTS
;              CL-MATHSTATS::R-LIST
;              CL-MATHSTATS::T-BS
;              CL-MATHSTATS::BETAS
;              CL-MATHSTATS::R-SQUARE
;              CL-MATHSTATS::F
;              CL-MATHSTATS::SS-REG-LIST
;              CL-MATHSTATS::SS-PERCENT-LIST
;              CL-MATHSTATS::SS-REG
;              CL-MATHSTATS::SS-RES
;              ...))
;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
;            (CL-MATHSTATS::X-0
;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
;            (CL-MATHSTATS::ITEM-LIST NIL))
;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
;              (CL-MATHSTATS::Z-MAT #)
;              (CL-MATHSTATS::Z-TRANS-Z #)
;              (CL-MATHSTATS::X-DIM #)
;              (CL-MATHSTATS::X-TRANS-X #)
;              (CL-MATHSTATS::X-TRANS-Y #)
;              (CL-MATHSTATS::Y-TRANS-Y #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
;                 (AREF CL-MATHSTATS::Z-TRANS-Z
;                       CL-MATHSTATS::X-DIM
;                       CL-MATHSTATS::X-DIM))
;         (LET (#)
;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
;           (LET* #
;             #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G544 'CL-MATHSTATS::R-SQUARE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::R-SQUARE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G544 'CL-MATHSTATS::R-SQUARE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::R-SQUARE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::COEFFICIENTS
;                                   CL-MATHSTATS::R-LIST
;                                   CL-MATHSTATS::T-BS
;                                   CL-MATHSTATS::BETAS
;                                   CL-MATHSTATS::R-SQUARE
;                                   CL-MATHSTATS::F
;                                   CL-MATHSTATS::SS-REG-LIST
;                                   CL-MATHSTATS::SS-PERCENT-LIST
;                                   CL-MATHSTATS::SS-REG
;                                   CL-MATHSTATS::SS-RES
;                                   ...))
;                          (BLOCK CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                            (LET* ((CL-MATHSTATS::NUM-X #)
;                                   (CL-MATHSTATS::ROWS #)
;                                   (CL-MATHSTATS::COLS #)
;                                   (CL-MATHSTATS::X-0 #)
;                                   (CL-MATHSTATS::ITEM-LIST NIL))
;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;                                (WHEN # #)
;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;                              (LET* (# # # # # # #)
;                                (DOTIMES # #)
;                                (DOTIMES # #)
;                                (SETF # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::R-SQUARE

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::R-SQUARE


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:T-TEST-ONE-SAMPLE
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:T-TEST-ONE-SAMPLE
;                                   (CL-MATHSTATS:T-SIGNIFICANCE)
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
;                                                       &OPTIONAL
;                                                       (CL-MATHSTATS::H0-MEAN 0)
;                                                       &REST
;                                                       CL-MATHSTATS::STANDARD-ARGS
;                                                       &KEY
;                                                       CL-MATHSTATS::START
;                                                       CL-MATHSTATS::END
;                                                       CL-MATHSTATS::KEY)
;                                   "Returns the t-statistic for the mean of the data, which should be a sequence
; of numbers.  Let D be the sample mean.  The null hypothesis is that D equals the
; `H0-mean.' The alternative hypothesis is specified by `tails': `:both' means D
; /= H0-mean, `:positive' means D > H0-mean, and `:negative' means D < H0-mean.
; 
; The function also returns the significance, the standard error, and the degrees
; of freedom.  Signals `zero-variance' if that condition occurs.  Signals
; `insufficient-data' unless there are at least two elements in the sample."
;                                   (DECLARE
;                                    (IGNORE CL-MATHSTATS::START
;                                            CL-MATHSTATS::END
;                                            CL-MATHSTATS::KEY)
;                                    (VALUES CL-MATHSTATS::T-STATISTIC
;                                            CL-MATHSTATS:SIGNIFICANCE
;                                            CL-MATHSTATS::SAMPLE-ERROR
;                                            CL-MATHSTATS::DOF))
;                                   (LET ((CL-MATHSTATS::N
;                                          (APPLY #'CL-MATHSTATS:DATA-LENGTH
;                                                 CL-MATHSTATS::DATA
;                                                 CL-MATHSTATS::STANDARD-ARGS)))
;                                     (WHEN (ZEROP CL-MATHSTATS::N)
;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
;                                     (LET ((CL-MATHSTATS::D #)
;                                           (CL-MATHSTATS::V #))
;                                       (WHEN (ZEROP CL-MATHSTATS::V)
;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;                                       (LET* (# # #)
;                                         (VALUES CL-MATHSTATS::TT
;                                                 CL-MATHSTATS::SIG
;                                                 CL-MATHSTATS::SE
;                                                 #)))))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G1367 'CL-MATHSTATS::SAMPLE-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SAMPLE-ERROR

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF 
; ==>
;   (TYPEP #:G1367 'CL-MATHSTATS::SAMPLE-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SAMPLE-ERROR

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
;                          (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
;                                              &OPTIONAL
;                                              (CL-MATHSTATS::H0-MEAN 0)
;                                              &REST
;                                              CL-MATHSTATS::STANDARD-ARGS
;                                              &KEY
;                                              CL-MATHSTATS::START
;                                              CL-MATHSTATS::END
;                                              CL-MATHSTATS::KEY)
;                          (DECLARE
;                           (IGNORE CL-MATHSTATS::START
;                                   CL-MATHSTATS::END
;                                   CL-MATHSTATS::KEY)
;                           (VALUES CL-MATHSTATS::T-STATISTIC
;                                   CL-MATHSTATS:SIGNIFICANCE
;                                   CL-MATHSTATS::SAMPLE-ERROR
;                                   CL-MATHSTATS::DOF))
;                          (BLOCK CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
;                            (LET ((CL-MATHSTATS::N #))
;                              (WHEN (ZEROP CL-MATHSTATS::N)
;                                (ERROR 'CL-MATHSTATS::NO-DATA))
;                              (LET (# #)
;                                (WHEN # #)
;                                (LET* #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SAMPLE-ERROR

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::SAMPLE-ERROR


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:LINEAR-REGRESSION-MINIMAL-SUMMARIES
;     (DEFUN CL-MATHSTATS:LINEAR-REGRESSION-MINIMAL-SUMMARIES
;          (CL-MATHSTATS::N CL-MATHSTATS::X CL-MATHSTATS::Y CL-MATHSTATS::X2
;           CL-MATHSTATS::Y2 CL-MATHSTATS::XY)
;     "Calculates the slope and intercept of the regression line.  This function
; differs from `linear-regression-minimal' in that it takes summary statistics:
; `x' and `y' are the sums of the independent variable and dependent variables,
; respectively; `x2' and `y2' are the sums of the squares of the independent
; variable and dependent variables, respectively; and `xy' is the sum of the
; products of the independent and dependent variables.
; 
; You should first look at your data with a scatter plot to see if a linear model
; is plausible.  See the manual for a fuller explanation of linear regression
; statistics."
;     (DECLARE (VALUES CL-MATHSTATS::SLOPE CL-MATHSTATS::INTERCEPT)
;              (IGNORE CL-MATHSTATS::Y2))
;     (LET ((CL-MATHSTATS::NSSX (- # #)) (CL-MATHSTATS::NSSXY (- # #)))
;       (WHEN (ZEROP CL-MATHSTATS::NSSX) (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;       (LET* ((CL-MATHSTATS::SLOPE #) (CL-MATHSTATS::INTERCEPT #))
;         (VALUES CL-MATHSTATS::SLOPE CL-MATHSTATS::INTERCEPT))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G168 'CL-MATHSTATS::SLOPE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SLOPE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G168 'CL-MATHSTATS::SLOPE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SLOPE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:LINEAR-REGRESSION-MINIMAL-SUMMARIES
;                          (CL-MATHSTATS::N CL-MATHSTATS::X
;                                           CL-MATHSTATS::Y
;                                           CL-MATHSTATS::X2
;                                           CL-MATHSTATS::Y2
;                                           CL-MATHSTATS::XY)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::SLOPE CL-MATHSTATS::INTERCEPT)
;                           (IGNORE CL-MATHSTATS::Y2))
;                          (BLOCK
;                              CL-MATHSTATS:LINEAR-REGRESSION-MINIMAL-SUMMARIES
;                            (LET ((CL-MATHSTATS::NSSX #) (CL-MATHSTATS::NSSXY #))
;                              (WHEN (ZEROP CL-MATHSTATS::NSSX)
;                                (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;                              (LET* (# #)
;                                (VALUES CL-MATHSTATS::SLOPE
;                                        CL-MATHSTATS::INTERCEPT)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SLOPE

; 
; caught STYLE-WARNING:
;   14 more uses of undefined type CL-MATHSTATS::SLOPE


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;     (DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;     "Performs linear regression of the dependent variable, `dv,' on multiple
; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
; regression coefficient.  Calculates the F statistic, intercept and the
; correlation coefficient for Y on X's."
;     (DECLARE
;      (VALUES CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::COEFFICIENTS
;              CL-MATHSTATS::R-LIST
;              CL-MATHSTATS::T-BS
;              CL-MATHSTATS::BETAS
;              CL-MATHSTATS::R-SQUARE
;              CL-MATHSTATS::F
;              CL-MATHSTATS::SS-REG-LIST
;              CL-MATHSTATS::SS-PERCENT-LIST
;              CL-MATHSTATS::SS-REG
;              CL-MATHSTATS::SS-RES
;              ...))
;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
;            (CL-MATHSTATS::X-0
;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
;            (CL-MATHSTATS::ITEM-LIST NIL))
;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
;              (CL-MATHSTATS::Z-MAT #)
;              (CL-MATHSTATS::Z-TRANS-Z #)
;              (CL-MATHSTATS::X-DIM #)
;              (CL-MATHSTATS::X-TRANS-X #)
;              (CL-MATHSTATS::X-TRANS-Y #)
;              (CL-MATHSTATS::Y-TRANS-Y #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
;                 (AREF CL-MATHSTATS::Z-TRANS-Z
;                       CL-MATHSTATS::X-DIM
;                       CL-MATHSTATS::X-DIM))
;         (LET (#)
;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
;           (LET* #
;             #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G547 'CL-MATHSTATS::SS-PERCENT-LIST)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SS-PERCENT-LIST

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G547 'CL-MATHSTATS::SS-PERCENT-LIST)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SS-PERCENT-LIST

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::COEFFICIENTS
;                                   CL-MATHSTATS::R-LIST
;                                   CL-MATHSTATS::T-BS
;                                   CL-MATHSTATS::BETAS
;                                   CL-MATHSTATS::R-SQUARE
;                                   CL-MATHSTATS::F
;                                   CL-MATHSTATS::SS-REG-LIST
;                                   CL-MATHSTATS::SS-PERCENT-LIST
;                                   CL-MATHSTATS::SS-REG
;                                   CL-MATHSTATS::SS-RES
;                                   ...))
;                          (BLOCK CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                            (LET* ((CL-MATHSTATS::NUM-X #)
;                                   (CL-MATHSTATS::ROWS #)
;                                   (CL-MATHSTATS::COLS #)
;                                   (CL-MATHSTATS::X-0 #)
;                                   (CL-MATHSTATS::ITEM-LIST NIL))
;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;                                (WHEN # #)
;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;                              (LET* (# # # # # # #)
;                                (DOTIMES # #)
;                                (DOTIMES # #)
;                                (SETF # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SS-PERCENT-LIST

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::SS-PERCENT-LIST


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;     (DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;     "Performs linear regression of the dependent variable, `dv,' on multiple
; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
; regression coefficient.  Calculates the F statistic, intercept and the
; correlation coefficient for Y on X's."
;     (DECLARE
;      (VALUES CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::COEFFICIENTS
;              CL-MATHSTATS::R-LIST
;              CL-MATHSTATS::T-BS
;              CL-MATHSTATS::BETAS
;              CL-MATHSTATS::R-SQUARE
;              CL-MATHSTATS::F
;              CL-MATHSTATS::SS-REG-LIST
;              CL-MATHSTATS::SS-PERCENT-LIST
;              CL-MATHSTATS::SS-REG
;              CL-MATHSTATS::SS-RES
;              ...))
;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
;            (CL-MATHSTATS::X-0
;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
;            (CL-MATHSTATS::ITEM-LIST NIL))
;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
;              (CL-MATHSTATS::Z-MAT #)
;              (CL-MATHSTATS::Z-TRANS-Z #)
;              (CL-MATHSTATS::X-DIM #)
;              (CL-MATHSTATS::X-TRANS-X #)
;              (CL-MATHSTATS::X-TRANS-Y #)
;              (CL-MATHSTATS::Y-TRANS-Y #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
;                 (AREF CL-MATHSTATS::Z-TRANS-Z
;                       CL-MATHSTATS::X-DIM
;                       CL-MATHSTATS::X-DIM))
;         (LET (#)
;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
;           (LET* #
;             #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G548 'CL-MATHSTATS::SS-REG)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SS-REG

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G548 'CL-MATHSTATS::SS-REG)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SS-REG

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::COEFFICIENTS
;                                   CL-MATHSTATS::R-LIST
;                                   CL-MATHSTATS::T-BS
;                                   CL-MATHSTATS::BETAS
;                                   CL-MATHSTATS::R-SQUARE
;                                   CL-MATHSTATS::F
;                                   CL-MATHSTATS::SS-REG-LIST
;                                   CL-MATHSTATS::SS-PERCENT-LIST
;                                   CL-MATHSTATS::SS-REG
;                                   CL-MATHSTATS::SS-RES
;                                   ...))
;                          (BLOCK CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                            (LET* ((CL-MATHSTATS::NUM-X #)
;                                   (CL-MATHSTATS::ROWS #)
;                                   (CL-MATHSTATS::COLS #)
;                                   (CL-MATHSTATS::X-0 #)
;                                   (CL-MATHSTATS::ITEM-LIST NIL))
;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;                                (WHEN # #)
;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;                              (LET* (# # # # # # #)
;                                (DOTIMES # #)
;                                (DOTIMES # #)
;                                (SETF # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SS-REG

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::SS-REG


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;     (DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;     "Performs linear regression of the dependent variable, `dv,' on multiple
; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
; regression coefficient.  Calculates the F statistic, intercept and the
; correlation coefficient for Y on X's."
;     (DECLARE
;      (VALUES CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::COEFFICIENTS
;              CL-MATHSTATS::R-LIST
;              CL-MATHSTATS::T-BS
;              CL-MATHSTATS::BETAS
;              CL-MATHSTATS::R-SQUARE
;              CL-MATHSTATS::F
;              CL-MATHSTATS::SS-REG-LIST
;              CL-MATHSTATS::SS-PERCENT-LIST
;              CL-MATHSTATS::SS-REG
;              CL-MATHSTATS::SS-RES
;              ...))
;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
;            (CL-MATHSTATS::X-0
;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
;            (CL-MATHSTATS::ITEM-LIST NIL))
;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
;              (CL-MATHSTATS::Z-MAT #)
;              (CL-MATHSTATS::Z-TRANS-Z #)
;              (CL-MATHSTATS::X-DIM #)
;              (CL-MATHSTATS::X-TRANS-X #)
;              (CL-MATHSTATS::X-TRANS-Y #)
;              (CL-MATHSTATS::Y-TRANS-Y #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
;                 (AREF CL-MATHSTATS::Z-TRANS-Z
;                       CL-MATHSTATS::X-DIM
;                       CL-MATHSTATS::X-DIM))
;         (LET (#)
;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
;           (LET* #
;             #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G546 'CL-MATHSTATS::SS-REG-LIST)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SS-REG-LIST

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G546 'CL-MATHSTATS::SS-REG-LIST)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SS-REG-LIST

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::COEFFICIENTS
;                                   CL-MATHSTATS::R-LIST
;                                   CL-MATHSTATS::T-BS
;                                   CL-MATHSTATS::BETAS
;                                   CL-MATHSTATS::R-SQUARE
;                                   CL-MATHSTATS::F
;                                   CL-MATHSTATS::SS-REG-LIST
;                                   CL-MATHSTATS::SS-PERCENT-LIST
;                                   CL-MATHSTATS::SS-REG
;                                   CL-MATHSTATS::SS-RES
;                                   ...))
;                          (BLOCK CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                            (LET* ((CL-MATHSTATS::NUM-X #)
;                                   (CL-MATHSTATS::ROWS #)
;                                   (CL-MATHSTATS::COLS #)
;                                   (CL-MATHSTATS::X-0 #)
;                                   (CL-MATHSTATS::ITEM-LIST NIL))
;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;                                (WHEN # #)
;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;                              (LET* (# # # # # # #)
;                                (DOTIMES # #)
;                                (DOTIMES # #)
;                                (SETF # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SS-REG-LIST

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::SS-REG-LIST


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;     (DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;     "Performs linear regression of the dependent variable, `dv,' on multiple
; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
; regression coefficient.  Calculates the F statistic, intercept and the
; correlation coefficient for Y on X's."
;     (DECLARE
;      (VALUES CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::COEFFICIENTS
;              CL-MATHSTATS::R-LIST
;              CL-MATHSTATS::T-BS
;              CL-MATHSTATS::BETAS
;              CL-MATHSTATS::R-SQUARE
;              CL-MATHSTATS::F
;              CL-MATHSTATS::SS-REG-LIST
;              CL-MATHSTATS::SS-PERCENT-LIST
;              CL-MATHSTATS::SS-REG
;              CL-MATHSTATS::SS-RES
;              ...))
;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
;            (CL-MATHSTATS::X-0
;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
;            (CL-MATHSTATS::ITEM-LIST NIL))
;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
;              (CL-MATHSTATS::Z-MAT #)
;              (CL-MATHSTATS::Z-TRANS-Z #)
;              (CL-MATHSTATS::X-DIM #)
;              (CL-MATHSTATS::X-TRANS-X #)
;              (CL-MATHSTATS::X-TRANS-Y #)
;              (CL-MATHSTATS::Y-TRANS-Y #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
;                 (AREF CL-MATHSTATS::Z-TRANS-Z
;                       CL-MATHSTATS::X-DIM
;                       CL-MATHSTATS::X-DIM))
;         (LET (#)
;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
;           (LET* #
;             #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G549 'CL-MATHSTATS::SS-RES)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SS-RES

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G549 'CL-MATHSTATS::SS-RES)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SS-RES

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::COEFFICIENTS
;                                   CL-MATHSTATS::R-LIST
;                                   CL-MATHSTATS::T-BS
;                                   CL-MATHSTATS::BETAS
;                                   CL-MATHSTATS::R-SQUARE
;                                   CL-MATHSTATS::F
;                                   CL-MATHSTATS::SS-REG-LIST
;                                   CL-MATHSTATS::SS-PERCENT-LIST
;                                   CL-MATHSTATS::SS-REG
;                                   CL-MATHSTATS::SS-RES
;                                   ...))
;                          (BLOCK CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                            (LET* ((CL-MATHSTATS::NUM-X #)
;                                   (CL-MATHSTATS::ROWS #)
;                                   (CL-MATHSTATS::COLS #)
;                                   (CL-MATHSTATS::X-0 #)
;                                   (CL-MATHSTATS::ITEM-LIST NIL))
;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;                                (WHEN # #)
;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;                              (LET* (# # # # # # #)
;                                (DOTIMES # #)
;                                (DOTIMES # #)
;                                (SETF # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::SS-RES

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::SS-RES


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:LINEAR-REGRESSION-VERBOSE-SUMMARIES
;     (DEFUN CL-MATHSTATS:LINEAR-REGRESSION-VERBOSE-SUMMARIES
;          (CL-MATHSTATS::N CL-MATHSTATS::X CL-MATHSTATS::Y CL-MATHSTATS::X2
;           CL-MATHSTATS::Y2 CL-MATHSTATS::XY)
;     "Calculates almost every statistic of a linear regression: the slope and
; intercept of the line, the standard error on each, the correlation coefficient,
; the coefficient of determination, also known as r-square, and an ANOVA table as
; described in the manual.
; 
; If you don't need all this information, consider using the ``-brief'' or
; ``-minimal'' functions, which do less computation.
; 
; This function differs from `linear-regression-verbose' in that it takes summary
; variables: `x' and `y' are the sums of the independent variable and dependent
; variables, respectively; `x2' and `y2' are the sums of the squares of the
; independent variable and dependent variables, respectively; and `xy' is the sum
; of the products of the independent and dependent variables.
; 
; You should first look at your data with a scatter plot to see if a linear model
; is plausible.  See the manual for a fuller explanation of linear regression
; statistics."
;     (DECLARE
;      (VALUES CL-MATHSTATS::SLOPE
;              CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::DETERMINATION
;              CL-MATHSTATS:CORRELATION
;              CL-MATHSTATS::STD-ERR-SLOPE
;              CL-MATHSTATS::STD-ERR-INTERCEPT
;              CL-MATHSTATS::ANOVA-TABLE))
;     (LET ((CL-MATHSTATS::NSSX (- # #))
;           (CL-MATHSTATS::NSSY (- # #))
;           (CL-MATHSTATS::NSSXY (- # #)))
;       (WHEN (OR (ZEROP CL-MATHSTATS::NSSX) (ZEROP CL-MATHSTATS::NSSY))
;         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;       (LET* ((CL-MATHSTATS::SLOPE #)
;              (CL-MATHSTATS::INTERCEPT #)
;              (CL-MATHSTATS::NSSR #)
;              (CL-MATHSTATS::NSSE #)
;              (CL-MATHSTATS::DETERMINATION #)
;              (CL-MATHSTATS:CORRELATION #)
;              (CL-MATHSTATS::DOF #)
;              (CL-MATHSTATS::STD-ERR-SLOPE #)
;              (CL-MATHSTATS::STD-ERR-INTERCEPT NIL)
;              (CL-MATHSTATS::F #)
;              (CL-MATHSTATS::P-VALUE #)
;              (CL-MATHSTATS::SSR #)
;              ...)
;         (VALUES CL-MATHSTATS::SLOPE
;                 CL-MATHSTATS::INTERCEPT
;                 CL-MATHSTATS::DETERMINATION
;                 CL-MATHSTATS:CORRELATION
;                 CL-MATHSTATS::STD-ERR-SLOPE
;                 CL-MATHSTATS::STD-ERR-INTERCEPT
;                 CL-MATHSTATS::ANOVA-TABLE))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G226 'CL-MATHSTATS::STD-ERR-INTERCEPT)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::STD-ERR-INTERCEPT

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G226 'CL-MATHSTATS::STD-ERR-INTERCEPT)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::STD-ERR-INTERCEPT

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:LINEAR-REGRESSION-VERBOSE-SUMMARIES
;                          (CL-MATHSTATS::N CL-MATHSTATS::X
;                                           CL-MATHSTATS::Y
;                                           CL-MATHSTATS::X2
;                                           CL-MATHSTATS::Y2
;                                           CL-MATHSTATS::XY)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::SLOPE
;                                   CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::DETERMINATION
;                                   CL-MATHSTATS:CORRELATION
;                                   CL-MATHSTATS::STD-ERR-SLOPE
;                                   CL-MATHSTATS::STD-ERR-INTERCEPT
;                                   CL-MATHSTATS::ANOVA-TABLE))
;                          (BLOCK
;                              CL-MATHSTATS:LINEAR-REGRESSION-VERBOSE-SUMMARIES
;                            (LET ((CL-MATHSTATS::NSSX #)
;                                  (CL-MATHSTATS::NSSY #)
;                                  (CL-MATHSTATS::NSSXY #))
;                              (WHEN (OR # #)
;                                (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;                              (LET* (# # # # # # # # # # # # ...)
;                                (VALUES CL-MATHSTATS::SLOPE
;                                        CL-MATHSTATS::INTERCEPT
;                                        CL-MATHSTATS::DETERMINATION
;                                        CL-MATHSTATS:CORRELATION
;                                        CL-MATHSTATS::STD-ERR-SLOPE
;                                        CL-MATHSTATS::STD-ERR-INTERCEPT
;                                        CL-MATHSTATS::ANOVA-TABLE)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::STD-ERR-INTERCEPT

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::STD-ERR-INTERCEPT


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:LINEAR-REGRESSION-BRIEF-SUMMARIES
;     (DEFUN CL-MATHSTATS:LINEAR-REGRESSION-BRIEF-SUMMARIES
;          (CL-MATHSTATS::N CL-MATHSTATS::X CL-MATHSTATS::Y CL-MATHSTATS::X2
;           CL-MATHSTATS::Y2 CL-MATHSTATS::XY)
;     "Calculates the main statistics of a linear regression: the slope and
; intercept of the line, the coefficient of determination, also known as r-square,
; the standard error of the slope, and the p-value for the regression.  This
; function differs from `linear-regression-brief' in that it takes summary
; variables: `x' and `y' are the sums of the independent variable and dependent
; variables, respectively; `x2' and `y2' are the sums of the squares of the
; independent variable and dependent variables, respectively; and `xy' is the sum
; of the products of the independent and dependent variables.
; 
; You should first look at your data with a scatter plot to see if a linear model
; is plausible.  See the manual for a fuller explanation of linear regression
; statistics."
;     (DECLARE
;      (VALUES CL-MATHSTATS::SLOPE
;              CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::DETERMINATION
;              CL-MATHSTATS::STD-ERR-SLOPE
;              CL-MATHSTATS::P-VALUE))
;     (LET ((CL-MATHSTATS::NSSX (- # #))
;           (CL-MATHSTATS::NSSY (- # #))
;           (CL-MATHSTATS::NSSXY (- # #)))
;       (WHEN (OR (ZEROP CL-MATHSTATS::NSSX) (ZEROP CL-MATHSTATS::NSSY))
;         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;       (LET* ((CL-MATHSTATS::SLOPE #)
;              (CL-MATHSTATS::INTERCEPT #)
;              (CL-MATHSTATS::NSSR #)
;              (CL-MATHSTATS::NSSE #)
;              (CL-MATHSTATS::DETERMINATION #)
;              (CL-MATHSTATS::DOF #)
;              (CL-MATHSTATS::STD-ERR-SLOPE #)
;              (CL-MATHSTATS::P-VALUE #))
;         (VALUES CL-MATHSTATS::SLOPE
;                 CL-MATHSTATS::INTERCEPT
;                 CL-MATHSTATS::DETERMINATION
;                 CL-MATHSTATS::STD-ERR-SLOPE
;                 CL-MATHSTATS::P-VALUE))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G195 'CL-MATHSTATS::STD-ERR-SLOPE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::STD-ERR-SLOPE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G195 'CL-MATHSTATS::STD-ERR-SLOPE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::STD-ERR-SLOPE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:LINEAR-REGRESSION-BRIEF-SUMMARIES
;                          (CL-MATHSTATS::N CL-MATHSTATS::X
;                                           CL-MATHSTATS::Y
;                                           CL-MATHSTATS::X2
;                                           CL-MATHSTATS::Y2
;                                           CL-MATHSTATS::XY)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::SLOPE
;                                   CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::DETERMINATION
;                                   CL-MATHSTATS::STD-ERR-SLOPE
;                                   CL-MATHSTATS::P-VALUE))
;                          (BLOCK CL-MATHSTATS:LINEAR-REGRESSION-BRIEF-SUMMARIES
;                            (LET ((CL-MATHSTATS::NSSX #)
;                                  (CL-MATHSTATS::NSSY #)
;                                  (CL-MATHSTATS::NSSXY #))
;                              (WHEN (OR # #)
;                                (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;                              (LET* (# # # # # # # #)
;                                (VALUES CL-MATHSTATS::SLOPE
;                                        CL-MATHSTATS::INTERCEPT
;                                        CL-MATHSTATS::DETERMINATION
;                                        CL-MATHSTATS::STD-ERR-SLOPE
;                                        CL-MATHSTATS::P-VALUE)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::STD-ERR-SLOPE

; 
; caught STYLE-WARNING:
;   9 more uses of undefined type CL-MATHSTATS::STD-ERR-SLOPE


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:T-TEST
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:T-TEST
;                                   (CL-MATHSTATS:T-SIGNIFICANCE)
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::SAMPLE-1 'SEQUENCE)
;                                    (CL-MATHSTATS::SAMPLE-2 'SEQUENCE))
;                                   (CL-MATHSTATS::SAMPLE-1
;                                    CL-MATHSTATS::SAMPLE-2
;                                    &OPTIONAL
;                                    (CL-MATHSTATS::TAILS :BOTH)
;                                    (CL-MATHSTATS::H0MEAN 0))
;                                   "Returns the t-statistic for the difference in the means of two samples, which
; should each be a sequence of numbers.  Let D=mean1-mean2.  The null hypothesis
; is that D=0.  The alternative hypothesis is specified by `tails': `:both' means
; D/=0, `:positive' means D>0, and `:negative' means D<0.  Unless you're using
; :both tails, be careful what order the two samples are in: it matters!
; 
; The function also returns the significance, the standard error, and the degrees
; of freedom.  Signals `standard-error-is-zero' if that condition occurs.  Signals
; `insufficient-data' unless there are at least two elements in each sample."
;                                   (DECLARE
;                                    (VALUES CL-MATHSTATS::T-STATISTIC
;                                            CL-MATHSTATS:SIGNIFICANCE
;                                            CL-MATHSTATS::STD-ERROR
;                                            CL-MATHSTATS::DOF))
;                                   (CHECK-TYPE CL-MATHSTATS::TAILS
;                                               (MEMBER :BOTH
;                                                       :POSITIVE
;                                                       :NEGATIVE))
;                                   (LET ((CL-MATHSTATS::N1
;                                          (CL-MATHSTATS:DATA-LENGTH
;                                           CL-MATHSTATS::SAMPLE-1))
;                                         (CL-MATHSTATS::N2
;                                          (CL-MATHSTATS:DATA-LENGTH
;                                           CL-MATHSTATS::SAMPLE-2)))
;                                     (WHEN
;                                         (OR (ZEROP CL-MATHSTATS::N1)
;                                             (ZEROP CL-MATHSTATS::N2))
;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
;                                     (WHEN
;                                         (OR (< CL-MATHSTATS::N1 2)
;                                             (< CL-MATHSTATS::N2 2))
;                                       (ERROR 'CL-MATHSTATS::INSUFFICIENT-DATA))
;                                     (LET* ((CL-MATHSTATS::MEAN1 #)
;                                            (CL-MATHSTATS::MEAN2 #)
;                                            (CL-MATHSTATS::SS1 #)
;                                            (CL-MATHSTATS::SS2 #)
;                                            (CL-MATHSTATS::DOF #)
;                                            (CL-MATHSTATS::SP #))
;                                       (WHEN (ZEROP CL-MATHSTATS::SP)
;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;                                       (LET* (# # #)
;                                         (VALUES CL-MATHSTATS::T-STATISTIC
;                                                 CL-MATHSTATS:SIGNIFICANCE
;                                                 CL-MATHSTATS::STD-ERROR
;                                                 CL-MATHSTATS::DOF)))))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G1425 'CL-MATHSTATS::STD-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::STD-ERROR

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF 
; ==>
;   (TYPEP #:G1425 'CL-MATHSTATS::STD-ERROR)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::STD-ERROR

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::T-TEST-INTERNAL
;                          (CL-MATHSTATS::SAMPLE-1 CL-MATHSTATS::SAMPLE-2
;                                                  &OPTIONAL
;                                                  (CL-MATHSTATS::TAILS :BOTH)
;                                                  (CL-MATHSTATS::H0MEAN 0))
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::T-STATISTIC
;                                   CL-MATHSTATS:SIGNIFICANCE
;                                   CL-MATHSTATS::STD-ERROR
;                                   CL-MATHSTATS::DOF))
;                          (BLOCK CL-MATHSTATS::T-TEST-INTERNAL
;                            (CHECK-TYPE CL-MATHSTATS::TAILS
;                                        (MEMBER :BOTH :POSITIVE :NEGATIVE))
;                            (LET ((CL-MATHSTATS::N1 #) (CL-MATHSTATS::N2 #))
;                              (WHEN (OR # #) (ERROR 'CL-MATHSTATS::NO-DATA))
;                              (WHEN (OR # #)
;                                (ERROR 'CL-MATHSTATS::INSUFFICIENT-DATA))
;                              (LET* (# # # # # #)
;                                (WHEN # #)
;                                (LET* #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::STD-ERROR

; 
; caught STYLE-WARNING:
;   8 more uses of undefined type CL-MATHSTATS::STD-ERROR


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/correlation-regression.lisp
; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;     (DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;     "Performs linear regression of the dependent variable, `dv,' on multiple
; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
; regression coefficient.  Calculates the F statistic, intercept and the
; correlation coefficient for Y on X's."
;     (DECLARE
;      (VALUES CL-MATHSTATS::INTERCEPT
;              CL-MATHSTATS::COEFFICIENTS
;              CL-MATHSTATS::R-LIST
;              CL-MATHSTATS::T-BS
;              CL-MATHSTATS::BETAS
;              CL-MATHSTATS::R-SQUARE
;              CL-MATHSTATS::F
;              CL-MATHSTATS::SS-REG-LIST
;              CL-MATHSTATS::SS-PERCENT-LIST
;              CL-MATHSTATS::SS-REG
;              CL-MATHSTATS::SS-RES
;              ...))
;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
;            (CL-MATHSTATS::X-0
;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
;            (CL-MATHSTATS::ITEM-LIST NIL))
;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
;              (CL-MATHSTATS::Z-MAT #)
;              (CL-MATHSTATS::Z-TRANS-Z #)
;              (CL-MATHSTATS::X-DIM #)
;              (CL-MATHSTATS::X-TRANS-X #)
;              (CL-MATHSTATS::X-TRANS-Y #)
;              (CL-MATHSTATS::Y-TRANS-Y #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
;                 (AREF CL-MATHSTATS::Z-TRANS-Z
;                       CL-MATHSTATS::X-DIM
;                       CL-MATHSTATS::X-DIM))
;         (LET (#)
;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
;           (LET* #
;             #
;             #
;             #
;             #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G542 'CL-MATHSTATS::T-BS)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::T-BS

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G542 'CL-MATHSTATS::T-BS)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::T-BS

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::INTERCEPT
;                                   CL-MATHSTATS::COEFFICIENTS
;                                   CL-MATHSTATS::R-LIST
;                                   CL-MATHSTATS::T-BS
;                                   CL-MATHSTATS::BETAS
;                                   CL-MATHSTATS::R-SQUARE
;                                   CL-MATHSTATS::F
;                                   CL-MATHSTATS::SS-REG-LIST
;                                   CL-MATHSTATS::SS-PERCENT-LIST
;                                   CL-MATHSTATS::SS-REG
;                                   CL-MATHSTATS::SS-RES
;                                   ...))
;                          (BLOCK CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
;                            (LET* ((CL-MATHSTATS::NUM-X #)
;                                   (CL-MATHSTATS::ROWS #)
;                                   (CL-MATHSTATS::COLS #)
;                                   (CL-MATHSTATS::X-0 #)
;                                   (CL-MATHSTATS::ITEM-LIST NIL))
;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
;                                (WHEN # #)
;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
;                              (LET* (# # # # # # #)
;                                (DOTIMES # #)
;                                (DOTIMES # #)
;                                (SETF # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::T-BS

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::T-BS


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:T-TEST-ONE-SAMPLE
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:T-TEST-ONE-SAMPLE
;                                   (CL-MATHSTATS:T-SIGNIFICANCE)
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
;                                                       &OPTIONAL
;                                                       (CL-MATHSTATS::H0-MEAN 0)
;                                                       &REST
;                                                       CL-MATHSTATS::STANDARD-ARGS
;                                                       &KEY
;                                                       CL-MATHSTATS::START
;                                                       CL-MATHSTATS::END
;                                                       CL-MATHSTATS::KEY)
;                                   "Returns the t-statistic for the mean of the data, which should be a sequence
; of numbers.  Let D be the sample mean.  The null hypothesis is that D equals the
; `H0-mean.' The alternative hypothesis is specified by `tails': `:both' means D
; /= H0-mean, `:positive' means D > H0-mean, and `:negative' means D < H0-mean.
; 
; The function also returns the significance, the standard error, and the degrees
; of freedom.  Signals `zero-variance' if that condition occurs.  Signals
; `insufficient-data' unless there are at least two elements in the sample."
;                                   (DECLARE
;                                    (IGNORE CL-MATHSTATS::START
;                                            CL-MATHSTATS::END
;                                            CL-MATHSTATS::KEY)
;                                    (VALUES CL-MATHSTATS::T-STATISTIC
;                                            CL-MATHSTATS:SIGNIFICANCE
;                                            CL-MATHSTATS::SAMPLE-ERROR
;                                            CL-MATHSTATS::DOF))
;                                   (LET ((CL-MATHSTATS::N
;                                          (APPLY #'CL-MATHSTATS:DATA-LENGTH
;                                                 CL-MATHSTATS::DATA
;                                                 CL-MATHSTATS::STANDARD-ARGS)))
;                                     (WHEN (ZEROP CL-MATHSTATS::N)
;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
;                                     (LET ((CL-MATHSTATS::D #)
;                                           (CL-MATHSTATS::V #))
;                                       (WHEN (ZEROP CL-MATHSTATS::V)
;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;                                       (LET* (# # #)
;                                         (VALUES CL-MATHSTATS::TT
;                                                 CL-MATHSTATS::SIG
;                                                 CL-MATHSTATS::SE
;                                                 #)))))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G1365 'CL-MATHSTATS::T-STATISTIC)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::T-STATISTIC

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF 
; ==>
;   (TYPEP #:G1365 'CL-MATHSTATS::T-STATISTIC)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::T-STATISTIC

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
;                          (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
;                                              &OPTIONAL
;                                              (CL-MATHSTATS::H0-MEAN 0)
;                                              &REST
;                                              CL-MATHSTATS::STANDARD-ARGS
;                                              &KEY
;                                              CL-MATHSTATS::START
;                                              CL-MATHSTATS::END
;                                              CL-MATHSTATS::KEY)
;                          (DECLARE
;                           (IGNORE CL-MATHSTATS::START
;                                   CL-MATHSTATS::END
;                                   CL-MATHSTATS::KEY)
;                           (VALUES CL-MATHSTATS::T-STATISTIC
;                                   CL-MATHSTATS:SIGNIFICANCE
;                                   CL-MATHSTATS::SAMPLE-ERROR
;                                   CL-MATHSTATS::DOF))
;                          (BLOCK CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
;                            (LET ((CL-MATHSTATS::N #))
;                              (WHEN (ZEROP CL-MATHSTATS::N)
;                                (ERROR 'CL-MATHSTATS::NO-DATA))
;                              (LET (# #)
;                                (WHEN # #)
;                                (LET* #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::T-STATISTIC

; 
; caught STYLE-WARNING:
;   9 more uses of undefined type CL-MATHSTATS::T-STATISTIC


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;     (DEFUN CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;     "Counts each unique combination of an element of `v1' and an element of `v2.'
; Returns a two-dimensional table of integers."
;     (DECLARE
;      (VALUES CL-MATHSTATS::TABLE
;              CL-MATHSTATS::V1-VALUES
;              CL-MATHSTATS::V2-VALUES))
;     (LET ((CL-MATHSTATS::N (LENGTH CL-MATHSTATS::V1)))
;       (WHEN (/= CL-MATHSTATS::N (LENGTH CL-MATHSTATS::V2))
;         (ERROR 'CL-MATHSTATS::UNMATCHED-SEQUENCES))
;       (LET ((CL-MATHSTATS::V1-VALUES #) (CL-MATHSTATS::V2-VALUES #))
;         (WHEN (OR # #)
;           (CERROR "Make it anyway"
;                   'CL-MATHSTATS::ENORMOUS-CONTINGENCY-TABLE
;                   :SIZE-OF-TABLE
;                   #))
;         (LET (#)
;           (MAP NIL #'# CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;           (VALUES CL-MATHSTATS::TABLE
;                   CL-MATHSTATS::V1-VALUES
;                   CL-MATHSTATS::V2-VALUES)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G2445 'CL-MATHSTATS::TABLE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::TABLE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G2445 'CL-MATHSTATS::TABLE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::TABLE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::TABLE
;                                   CL-MATHSTATS::V1-VALUES
;                                   CL-MATHSTATS::V2-VALUES))
;                          (BLOCK CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;                            (LET ((CL-MATHSTATS::N #))
;                              (WHEN (/= CL-MATHSTATS::N #)
;                                (ERROR 'CL-MATHSTATS::UNMATCHED-SEQUENCES))
;                              (LET (# #)
;                                (WHEN # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::TABLE

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::TABLE


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:TUKEY-SUMMARY
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:TUKEY-SUMMARY
;                                   NIL
;                                   ((CL-MATHSTATS:MINIMUM)
;                                    (CL-MATHSTATS::FIRST-QUARTILE)
;                                    (CL-MATHSTATS:MEDIAN)
;                                    (CL-MATHSTATS::THIRD-QUARTILE)
;                                    (CL-MATHSTATS:MAXIMUM))
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA &REST
;                                                       CL-MATHSTATS::STANDARD-ARGS
;                                                       &KEY
;                                                       CL-MATHSTATS::START
;                                                       CL-MATHSTATS::END
;                                                       CL-MATHSTATS::KEY)
;                                   "Computes a Tukey five-number summary of the data.  That is, it returns, in
; increasing order, the extremes and the quartiles: the minimum, the 1/4 quartile,
; the median, the 3/4 quartile, and the maximum."
;                                   (DECLARE
;                                    (VALUES CL-MATHSTATS:MINIMUM
;                                            CL-MATHSTATS::FIRST-QUARTILE
;                                            CL-MATHSTATS:MEDIAN
;                                            CL-MATHSTATS::THIRD-QUARTILE
;                                            CL-MATHSTATS:MAXIMUM))
;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                                   (LET* ((CL-MATHSTATS::N
;                                           (APPLY #'CL-MATHSTATS:DATA-LENGTH
;                                                  CL-MATHSTATS::DATA
;                                                  CL-MATHSTATS::STANDARD-ARGS))
;                                          (CL-MATHSTATS::START2
;                                           (OR CL-MATHSTATS::START 0))
;                                          (CL-MATHSTATS::END2
;                                           (OR CL-MATHSTATS::END #)))
;                                     (WHEN (ZEROP CL-MATHSTATS::N)
;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
;                                     (CL-MATHSTATS:WITH-TEMP-VECTOR
;                                      (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
;                                      (REPLACE CL-MATHSTATS::TEMP
;                                               CL-MATHSTATS::DATA
;                                               :END1
;                                               CL-MATHSTATS::N
;                                               :START2
;                                               CL-MATHSTATS::START2
;                                               :END2
;                                               CL-MATHSTATS::END2)
;                                      (IF (NULL CL-MATHSTATS::KEY)
;                                          (SORT CL-MATHSTATS::TEMP #'<)
;                                          (SORT CL-MATHSTATS::TEMP
;                                                #'<
;                                                :KEY
;                                                CL-MATHSTATS::KEY))
;                                      (FLET (#)
;                                        (VALUES # # # # #)))))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G1200 'CL-MATHSTATS::THIRD-QUARTILE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::THIRD-QUARTILE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF 
; ==>
;   (TYPEP #:G1200 'CL-MATHSTATS::THIRD-QUARTILE)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::THIRD-QUARTILE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::TUKEY-SUMMARY-INTERNAL
;                          (CL-MATHSTATS::DATA &REST
;                                              CL-MATHSTATS::STANDARD-ARGS
;                                              &KEY
;                                              CL-MATHSTATS::START
;                                              CL-MATHSTATS::END
;                                              CL-MATHSTATS::KEY)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS:MINIMUM
;                                   CL-MATHSTATS::FIRST-QUARTILE
;                                   CL-MATHSTATS:MEDIAN
;                                   CL-MATHSTATS::THIRD-QUARTILE
;                                   CL-MATHSTATS:MAXIMUM))
;                          (BLOCK CL-MATHSTATS::TUKEY-SUMMARY-INTERNAL
;                            (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                            (LET* ((CL-MATHSTATS::N #)
;                                   (CL-MATHSTATS::START2 #)
;                                   (CL-MATHSTATS::END2 #))
;                              (WHEN (ZEROP CL-MATHSTATS::N)
;                                (ERROR 'CL-MATHSTATS::NO-DATA))
;                              (CL-MATHSTATS:WITH-TEMP-VECTOR
;                               (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
;                               (REPLACE CL-MATHSTATS::TEMP
;                                        CL-MATHSTATS::DATA
;                                        :END1
;                                        CL-MATHSTATS::N
;                                        :START2
;                                        CL-MATHSTATS::START2
;                                        :END2
;                                        CL-MATHSTATS::END2)
;                               (IF # # #)
;                               (FLET #
;                                 #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::THIRD-QUARTILE

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type CL-MATHSTATS::THIRD-QUARTILE


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN CL-MATHSTATS:CONFIDENCE-INTERVAL-T-SUMMARIES
;     (DEFUN CL-MATHSTATS:CONFIDENCE-INTERVAL-T-SUMMARIES
;          (CL-MATHSTATS:MEAN CL-MATHSTATS::DOF CL-MATHSTATS::STANDARD-ERROR
;           CL-MATHSTATS::CONFIDENCE)
;     "This function is just like `confidence-interval-t,' except that instead of
; its arguments being the actual data, it takes the following summary statistics:
; `mean,' which is the estimator of some t-distributed parameter; `dof,' which is
; the number of degrees of freedom in estimating the mean; and the
; `standard-error' of the estimator.  In general, `mean' is a point estimator of
; the mean of a t-distribution, which may be the slope parameter of a regression,
; the difference between two means, or other practical t-distributions.
; `Confidence' should be a number between 0 and 1, exclusive."
;     (DECLARE
;      (VALUES CL-MATHSTATS:MEAN CL-MATHSTATS::LOWER CL-MATHSTATS::UPPER))
;     (CHECK-TYPE CL-MATHSTATS::DOF (REAL 1 *))
;     (CHECK-TYPE CL-MATHSTATS:MEAN REAL)
;     (CHECK-TYPE CL-MATHSTATS::STANDARD-ERROR REAL)
;     (CHECK-TYPE CL-MATHSTATS::CONFIDENCE (REAL (0) (1)))
;     (LET* ((CL-MATHSTATS::T-X (CL-MATHSTATS::FIND-CRITICAL-VALUE #'# #))
;            (CL-MATHSTATS::W (* CL-MATHSTATS::STANDARD-ERROR CL-MATHSTATS::T-X))
;            (CL-MATHSTATS::UPPER (+ CL-MATHSTATS:MEAN CL-MATHSTATS::W))
;            (CL-MATHSTATS::LOWER (- CL-MATHSTATS:MEAN CL-MATHSTATS::W)))
;       (VALUES CL-MATHSTATS:MEAN CL-MATHSTATS::LOWER CL-MATHSTATS::UPPER)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G2004 'CL-MATHSTATS::UPPER)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::UPPER

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G2004 'CL-MATHSTATS::UPPER)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::UPPER

; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:CONFIDENCE-INTERVAL-Z
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:CONFIDENCE-INTERVAL-Z
;                                   (CL-MATHSTATS:CONFIDENCE-INTERVAL)
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::CONFIDENCE)
;                                   "Suppose you have a sample of 50 numbers and you want to compute a 90 percent
; confidence interval on the population mean.  This function is the one to use.
; Note that it makes the assumption that the sampling distribution is normal, so
; it's inappropriate for small sample sizes.  Use confidence-interval-t instead.
; It returns three values: the mean and the lower and upper bound of the
; confidence interval.  True, only two numbers are necessary, but the confidence
; intervals of other statistics may be asymmetrical and these values would be
; consistent with those confidence intervals.  This function handles 90, 95 and 99
; percent confidence intervals as special cases, so those will be quite fast.
; `Sample' should be a sequence of numbers.  `Confidence' should be a number
; between 0 and 1, exclusive."
;                                   (DECLARE
;                                    (VALUES CL-MATHSTATS:MEAN
;                                            CL-MATHSTATS::LOWER
;                                            CL-MATHSTATS::UPPER))
;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                                   (CHECK-TYPE CL-MATHSTATS::CONFIDENCE
;                                               (REAL (0) (1)))
;                                   (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
;                                    (CL-MATHSTATS:MEAN CL-MATHSTATS::DATA)
;                                    (SQRT
;                                     (/
;                                      (CL-MATHSTATS:VARIANCE CL-MATHSTATS::DATA)
;                                      (LENGTH CL-MATHSTATS::DATA)))
;                                    CL-MATHSTATS::CONFIDENCE))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-INTERNAL
;                          (CL-MATHSTATS::DATA CL-MATHSTATS::CONFIDENCE)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS:MEAN
;                                   CL-MATHSTATS::LOWER
;                                   CL-MATHSTATS::UPPER))
;                          (BLOCK CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-INTERNAL
;                            (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
;                            (CHECK-TYPE CL-MATHSTATS::CONFIDENCE (REAL (0) (1)))
;                            (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
;                             (CL-MATHSTATS:MEAN CL-MATHSTATS::DATA)
;                             (SQRT (/ # #))
;                             CL-MATHSTATS::CONFIDENCE)))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::UPPER

; 
; caught STYLE-WARNING:
;   9 more uses of undefined type CL-MATHSTATS::UPPER


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;     (DEFUN CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;     "Counts each unique combination of an element of `v1' and an element of `v2.'
; Returns a two-dimensional table of integers."
;     (DECLARE
;      (VALUES CL-MATHSTATS::TABLE
;              CL-MATHSTATS::V1-VALUES
;              CL-MATHSTATS::V2-VALUES))
;     (LET ((CL-MATHSTATS::N (LENGTH CL-MATHSTATS::V1)))
;       (WHEN (/= CL-MATHSTATS::N (LENGTH CL-MATHSTATS::V2))
;         (ERROR 'CL-MATHSTATS::UNMATCHED-SEQUENCES))
;       (LET ((CL-MATHSTATS::V1-VALUES #) (CL-MATHSTATS::V2-VALUES #))
;         (WHEN (OR # #)
;           (CERROR "Make it anyway"
;                   'CL-MATHSTATS::ENORMOUS-CONTINGENCY-TABLE
;                   :SIZE-OF-TABLE
;                   #))
;         (LET (#)
;           (MAP NIL #'# CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;           (VALUES CL-MATHSTATS::TABLE
;                   CL-MATHSTATS::V1-VALUES
;                   CL-MATHSTATS::V2-VALUES)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G2446 'CL-MATHSTATS::V1-VALUES)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::V1-VALUES

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::TABLE
;                                   CL-MATHSTATS::V1-VALUES
;                                   CL-MATHSTATS::V2-VALUES))
;                          (BLOCK CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;                            (LET ((CL-MATHSTATS::N #))
;                              (WHEN (/= CL-MATHSTATS::N #)
;                                (ERROR 'CL-MATHSTATS::UNMATCHED-SEQUENCES))
;                              (LET (# #)
;                                (WHEN # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::V1-VALUES

; in: DEFUN CL-MATHSTATS::CHI-SQUARE-2X2
;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2 (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;     "Performs a chi-square test for independence of the two variables, `v1' and
; `v2.' These should be categorial variables with only two values; the function
; will construct a 2x2 contingency table by counting the number of occurrences of
; each combination of the variables.  See the manual for more details."
;     (DECLARE
;      (VALUES CL-MATHSTATS::CHI-SQUARE
;              CL-MATHSTATS:SIGNIFICANCE
;              CL-MATHSTATS::CONTINGENCY-TABLE
;              CL-MATHSTATS::V1-VALUES
;              CL-MATHSTATS::V2-VALUES))
;     (MULTIPLE-VALUE-BIND
;         (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
;                                  CL-MATHSTATS::V2-VALUES)
;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
;                                               CL-MATHSTATS::V2)
;       (UNLESS (EQUAL '(2 2) (ARRAY-DIMENSIONS CL-MATHSTATS::2X2-TABLE))
;         (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
;       (LET ((CL-MATHSTATS::A #)
;             (CL-MATHSTATS::B #)
;             (CL-MATHSTATS::C #)
;             (CL-MATHSTATS::D #))
;         (MULTIPLE-VALUE-CALL #'VALUES
;           (CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS CL-MATHSTATS::A
;                                                CL-MATHSTATS::B
;                                                CL-MATHSTATS::C
;                                                CL-MATHSTATS::D)
;           CL-MATHSTATS::2X2-TABLE
;           CL-MATHSTATS::V1-VALUES
;           CL-MATHSTATS::V2-VALUES))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-2X2
;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::CHI-SQUARE
;                                   CL-MATHSTATS:SIGNIFICANCE
;                                   CL-MATHSTATS::CONTINGENCY-TABLE
;                                   CL-MATHSTATS::V1-VALUES
;                                   CL-MATHSTATS::V2-VALUES))
;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2
;                            (MULTIPLE-VALUE-BIND
;                                (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
;                                                         CL-MATHSTATS::V2-VALUES)
;                                (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;                                 CL-MATHSTATS::V1
;                                 CL-MATHSTATS::V2)
;                              (UNLESS (EQUAL '# #)
;                                (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
;                              (LET (# # # #)
;                                (MULTIPLE-VALUE-CALL #'VALUES
;                                  #
;                                  CL-MATHSTATS::2X2-TABLE
;                                  CL-MATHSTATS::V1-VALUES
;                                  CL-MATHSTATS::V2-VALUES)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::V1-VALUES

; 
; caught STYLE-WARNING:
;   5 more uses of undefined type CL-MATHSTATS::V1-VALUES


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: DEFUN CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;     (DEFUN CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;     "Counts each unique combination of an element of `v1' and an element of `v2.'
; Returns a two-dimensional table of integers."
;     (DECLARE
;      (VALUES CL-MATHSTATS::TABLE
;              CL-MATHSTATS::V1-VALUES
;              CL-MATHSTATS::V2-VALUES))
;     (LET ((CL-MATHSTATS::N (LENGTH CL-MATHSTATS::V1)))
;       (WHEN (/= CL-MATHSTATS::N (LENGTH CL-MATHSTATS::V2))
;         (ERROR 'CL-MATHSTATS::UNMATCHED-SEQUENCES))
;       (LET ((CL-MATHSTATS::V1-VALUES #) (CL-MATHSTATS::V2-VALUES #))
;         (WHEN (OR # #)
;           (CERROR "Make it anyway"
;                   'CL-MATHSTATS::ENORMOUS-CONTINGENCY-TABLE
;                   :SIZE-OF-TABLE
;                   #))
;         (LET (#)
;           (MAP NIL #'# CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;           (VALUES CL-MATHSTATS::TABLE
;                   CL-MATHSTATS::V1-VALUES
;                   CL-MATHSTATS::V2-VALUES)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND 
; --> IF NOT IF 
; ==>
;   (TYPEP #:G2447 'CL-MATHSTATS::V2-VALUES)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::V2-VALUES

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::TABLE
;                                   CL-MATHSTATS::V1-VALUES
;                                   CL-MATHSTATS::V2-VALUES))
;                          (BLOCK CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;                            (LET ((CL-MATHSTATS::N #))
;                              (WHEN (/= CL-MATHSTATS::N #)
;                                (ERROR 'CL-MATHSTATS::UNMATCHED-SEQUENCES))
;                              (LET (# #)
;                                (WHEN # #)
;                                (LET #
;                                  #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::V2-VALUES

; in: DEFUN CL-MATHSTATS::CHI-SQUARE-2X2
;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2 (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;     "Performs a chi-square test for independence of the two variables, `v1' and
; `v2.' These should be categorial variables with only two values; the function
; will construct a 2x2 contingency table by counting the number of occurrences of
; each combination of the variables.  See the manual for more details."
;     (DECLARE
;      (VALUES CL-MATHSTATS::CHI-SQUARE
;              CL-MATHSTATS:SIGNIFICANCE
;              CL-MATHSTATS::CONTINGENCY-TABLE
;              CL-MATHSTATS::V1-VALUES
;              CL-MATHSTATS::V2-VALUES))
;     (MULTIPLE-VALUE-BIND
;         (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
;                                  CL-MATHSTATS::V2-VALUES)
;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
;                                               CL-MATHSTATS::V2)
;       (UNLESS (EQUAL '(2 2) (ARRAY-DIMENSIONS CL-MATHSTATS::2X2-TABLE))
;         (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
;       (LET ((CL-MATHSTATS::A #)
;             (CL-MATHSTATS::B #)
;             (CL-MATHSTATS::C #)
;             (CL-MATHSTATS::D #))
;         (MULTIPLE-VALUE-CALL #'VALUES
;           (CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS CL-MATHSTATS::A
;                                                CL-MATHSTATS::B
;                                                CL-MATHSTATS::C
;                                                CL-MATHSTATS::D)
;           CL-MATHSTATS::2X2-TABLE
;           CL-MATHSTATS::V1-VALUES
;           CL-MATHSTATS::V2-VALUES))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-2X2
;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
;                          (DECLARE
;                           (VALUES CL-MATHSTATS::CHI-SQUARE
;                                   CL-MATHSTATS:SIGNIFICANCE
;                                   CL-MATHSTATS::CONTINGENCY-TABLE
;                                   CL-MATHSTATS::V1-VALUES
;                                   CL-MATHSTATS::V2-VALUES))
;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2
;                            (MULTIPLE-VALUE-BIND
;                                (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
;                                                         CL-MATHSTATS::V2-VALUES)
;                                (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
;                                 CL-MATHSTATS::V1
;                                 CL-MATHSTATS::V2)
;                              (UNLESS (EQUAL '# #)
;                                (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
;                              (LET (# # # #)
;                                (MULTIPLE-VALUE-CALL #'VALUES
;                                  #
;                                  CL-MATHSTATS::2X2-TABLE
;                                  CL-MATHSTATS::V1-VALUES
;                                  CL-MATHSTATS::V2-VALUES)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::V2-VALUES

; 
; caught STYLE-WARNING:
;   5 more uses of undefined type CL-MATHSTATS::V2-VALUES


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-mathstats/dev/basic-statistics.lisp
; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:Z-TEST-ONE-SAMPLE
;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:Z-TEST-ONE-SAMPLE
;                                   (CL-MATHSTATS:SIGNIFICANCE)
;                                   NIL
;                                   NIL
;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
;                                                       &OPTIONAL
;                                                       (CL-MATHSTATS::H0-MEAN 0)
;                                                       (CL-MATHSTATS::H0-STD-DEV
;                                                        1)
;                                                       &REST
;                                                       CL-MATHSTATS::STANDARD-ARGS
;                                                       &KEY
;                                                       CL-MATHSTATS::START
;                                                       CL-MATHSTATS::END
;                                                       CL-MATHSTATS::KEY)
;                                   (DECLARE
;                                    (IGNORE CL-MATHSTATS::START
;                                            CL-MATHSTATS::END
;                                            CL-MATHSTATS::KEY
;                                            CL-MATHSTATS::TAILS)
;                                    (VALUES CL-MATHSTATS::Z-STATISTIC
;                                            CL-MATHSTATS:SIGNIFICANCE))
;                                   (LET ((CL-MATHSTATS::N
;                                          (APPLY #'CL-MATHSTATS:DATA-LENGTH
;                                                 CL-MATHSTATS::DATA
;                                                 CL-MATHSTATS::STANDARD-ARGS)))
;                                     (WHEN (ZEROP CL-MATHSTATS::N)
;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
;                                     (LET ((CL-MATHSTATS::D #)
;                                           (CL-MATHSTATS::V #))
;                                       (WHEN (ZEROP CL-MATHSTATS::V)
;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
;                                       (LET* (# CL-MATHSTATS::SIG)
;                                         (VALUES CL-MATHSTATS::ZS
;                                                 CL-MATHSTATS::SIG)))))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G1688 'CL-MATHSTATS::Z-STATISTIC)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::Z-STATISTIC

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION UNLESS COND IF NOT IF 
; ==>
;   (TYPEP #:G1688 'CL-MATHSTATS::Z-STATISTIC)
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::Z-STATISTIC

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::Z-TEST-ONE-SAMPLE-INTERNAL
;                          (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
;                                              &OPTIONAL
;                                              (CL-MATHSTATS::H0-MEAN 0)
;                                              (CL-MATHSTATS::H0-STD-DEV 1)
;                                              &REST
;                                              CL-MATHSTATS::STANDARD-ARGS
;                                              &KEY
;                                              CL-MATHSTATS::START
;                                              CL-MATHSTATS::END
;                                              CL-MATHSTATS::KEY)
;                          (DECLARE
;                           (IGNORE CL-MATHSTATS::START
;                                   CL-MATHSTATS::END
;                                   CL-MATHSTATS::KEY
;                                   CL-MATHSTATS::TAILS)
;                           (VALUES CL-MATHSTATS::Z-STATISTIC
;                                   CL-MATHSTATS:SIGNIFICANCE))
;                          (BLOCK CL-MATHSTATS::Z-TEST-ONE-SAMPLE-INTERNAL
;                            (LET ((CL-MATHSTATS::N #))
;                              (WHEN (ZEROP CL-MATHSTATS::N)
;                                (ERROR 'CL-MATHSTATS::NO-DATA))
;                              (LET (# #)
;                                (WHEN # #)
;                                (LET* #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   undefined type: CL-MATHSTATS::Z-STATISTIC

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type CL-MATHSTATS::Z-STATISTIC

; 
; caught STYLE-WARNING:
;   These types are undefined:
;     CL-MATHSTATS::ANOVA-TABLE CL-MATHSTATS::BETAS CL-MATHSTATS::CHI-SQUARE CL-MATHSTATS::CHI2 CL-MATHSTATS::COEFFICIENTS CL-MATHSTATS::COMPATIBILITY-VALUE CL-MATHSTATS::CONTIGENCY-TABLE CL-MATHSTATS::CONTINGENCY-TABLE COUNT CL-MATHSTATS::D CL-MATHSTATS::DETERMINATION CL-MATHSTATS::DOF METABANG.UTILITIES:ELEMENT CL-MATHSTATS::F CL-MATHSTATS::FIRST-QUARTILE CL-MATHSTATS::G-SCORE CL-MATHSTATS::G-SIGNIFICANCE CL-MATHSTATS::INTERCEPT LENGTH CL-MATHSTATS::LOWER CL-MATHSTATS::MSE-REG CL-MATHSTATS::MSE-RES CL-MATHSTATS::NUMBER-OF-OCCURRENCES CL-MATHSTATS::P-HAT CL-MATHSTATS::P-VALUE CL-MATHSTATS::R-LIST CL-MATHSTATS::R-SQUARE CL-MATHSTATS::SAMPLE-ERROR CL-MATHSTATS::SLOPE CL-MATHSTATS::SS-PERCENT-LIST CL-MATHSTATS::SS-REG CL-MATHSTATS::SS-REG-LIST CL-MATHSTATS::SS-RES CL-MATHSTATS::STD-ERR-INTERCEPT CL-MATHSTATS::STD-ERR-SLOPE CL-MATHSTATS::STD-ERROR CL-MATHSTATS::T-BS CL-MATHSTATS::T-STATISTIC CL-MATHSTATS::TABLE CL-MATHSTATS::THIRD-QUARTILE CL-MATHSTATS::UPPER CL-MATHSTATS::V1-VALUES CL-MATHSTATS::V2-VALUES CL-MATHSTATS::Z-STATISTIC
; 
; compilation unit finished
;   caught 173 STYLE-WARNING conditions
;   printed 26 notes
;;; ASDF-INSTALL: Downloading package METABANG-BIND, required by cl-graph

;;; ASDF-INSTALL: Downloading 6199 bytes from http://common-lisp.net/project/cl-containers/metabang-bind/metabang-bind_latest.tar.gz to /Users/gwking/temporary/asdf-test/metabang-bind.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/metabang-bind.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
metabang-bind/
metabang-bind/COPYING
metabang-bind/dev/
metabang-bind/dev/bind.lisp
metabang-bind/dev/metabang-bind.system
metabang-bind/metabang-bind-test.asd
metabang-bind/metabang-bind.asd
metabang-bind/unit-tests/
metabang-bind/unit-tests/package.lisp
metabang-bind/unit-tests/test-bind.lisp
metabang-bind/version
metabang-bind/website/
metabang-bind/website/source/
metabang-bind/website/source/images/
metabang-bind/website/source/index.lml

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metabang-bind/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metabang-bind/" ; in: LAMBDA NIL
;     (IF (EQ 'METABANG.BIND-SYSTEM::A 'METABANG.BIND-SYSTEM::A)
;       "EXPORT-EXPORTED-SYMBOLS"
;       "export-exported-symbols")
; ==>
;   "export-exported-symbols"
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note

; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metabang-bind/dev/bind.lisp" (written 04 APR 2006 09:27:28 AM):
; compiling (DEFPACKAGE #:METABANG.BIND ...)
; compiling (IN-PACKAGE METABANG.BIND)
; compiling (DEFPARAMETER *BIND-ALL-DECLARATIONS* ...)
; compiling (DEFPARAMETER *BIND-NON-VAR-DECLARATIONS* ...)
; compiling (DEFPARAMETER *BIND-SIMPLE-VAR-DECLARATIONS* ...)
; compiling (DEFINE-CONDITION BIND-ERROR ...)
; compiling (DEFINE-CONDITION BIND-KEYWORD/OPTIONAL-NIL-WITH-DEFAULT-ERROR ...)
; compiling (DEFMACRO BIND ...)
; compiling (DEFUN BIND-MACRO-HELPER ...)
; compiling (DEFUN BIND-FIX-NILS ...)
; compiling (DEFUN BIND-FIX-NILS-DESTRUCTURED ...)
; compiling (DEFUN BIND-EXPAND-DECLARATIONS ...)
; compiling (DEFUN BIND-FILTER-DECLARATIONS ...)
; compiling (DEFMACRO FLUID-BIND ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metabang-bind/dev/bind.fasl written
; compilation finished in 0:00:01
;;; ASDF-INSTALL: Downloading package CL-FAD, required by metatilities

;;; ASDF-INSTALL: Downloading 10097 bytes from http://weitz.de/files/cl-fad.tar.gz to /Users/gwking/temporary/asdf-test/cl-fad.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/cl-fad.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
cl-fad-0.4.3/
cl-fad-0.4.3/doc/
cl-fad-0.4.3/doc/index.html
cl-fad-0.4.3/CHANGELOG
cl-fad-0.4.3/README
cl-fad-0.4.3/cl-fad.asd
cl-fad-0.4.3/cl-fad.system
cl-fad-0.4.3/corman.lisp
cl-fad-0.4.3/fad.lisp
cl-fad-0.4.3/load.lisp
cl-fad-0.4.3/openmcl.lisp
cl-fad-0.4.3/packages.lisp
cl-fad-0.4.3/test.lisp

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/" 
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/packages.lisp" (written 03 JAN 2006 01:44:32 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE :CL-FAD ...)
; compiling (DEFPACKAGE :CL-FAD-TEST ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/fad.lisp" (written 15 MAR 2006 04:37:14 AM):
; compiling (IN-PACKAGE :CL-FAD)
; compiling (DEFUN COMPONENT-PRESENT-P ...)
; compiling (DEFUN DIRECTORY-PATHNAME-P ...)
; compiling (DEFUN PATHNAME-AS-DIRECTORY ...)
; compiling (DEFUN DIRECTORY-WILDCARD ...)
; compiling (DEFUN LIST-DIRECTORY ...)
; compiling (DEFUN PATHNAME-AS-FILE ...)
; compiling (DEFUN FILE-EXISTS-P ...)
; compiling (DEFUN DIRECTORY-EXISTS-P ...)
; compiling (DEFUN WALK-DIRECTORY ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/fad.lisp
; in: DEFUN WALK-DIRECTORY
;     (LET ((CL-FAD::*DIRECTORIES-SEEN* (MAKE-HASH-TABLE :TEST #'EQUAL)))
;     (LABELS ((CL-FAD::WALK (CL-FAD::NAME)
;                (LET #
;                  #)))
;       (LET ((CL-FAD:PATHNAME-AS-DIRECTORY #))
;         (CASE CL-FAD::IF-DOES-NOT-EXIST (# #) (# #) (OTHERWISE #)))
;       (VALUES)))
; 
; caught STYLE-WARNING:
;   using the lexical binding of the symbol *DIRECTORIES-SEEN*, not the
;   dynamic binding, even though the symbol name follows the usual naming
;   convention (names like *FOO*) for special variables

; compiling (DECLAIM (INLINE COPY-STREAM))
; compiling (DEFUN COPY-STREAM ...)
; compiling (DEFUN COPY-FILE ...)
; compiling (DEFUN DELETE-DIRECTORY-AND-FILES ...)
; compiling (PUSHNEW :CL-FAD ...)
; compiling (DEFVAR *HYPERDOC-BASE-URI* ...)
; compiling (LET (#) ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-fad-0.4.3/fad.fasl written
; compilation finished in 0:00:01
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {400087E9}> on
   #<CL-SOURCE-FILE "fad" {400087F9}>.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;;; ASDF-INSTALL: Downloading package DEFSYSTEM-COMPATIBILITY, required by metatilities

;;; ASDF-INSTALL: Downloading 8662 bytes from http://common-lisp.net/project/cl-containers/defsystem-compatibility/defsystem-compatibility_latest.tar.gz to /Users/gwking/temporary/asdf-test/defsystem-compatibility.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/defsystem-compatibility.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
defsystem-compatibility/
defsystem-compatibility/COPYING
defsystem-compatibility/defsystem-compatibility-test.asd
defsystem-compatibility/defsystem-compatibility.asd
defsystem-compatibility/dev/
defsystem-compatibility/dev/api.lisp
defsystem-compatibility/dev/asdf.lisp
defsystem-compatibility/dev/defsystem-compatibility.lisp
defsystem-compatibility/dev/glu.lisp
defsystem-compatibility/dev/mini-module-system.lisp
defsystem-compatibility/dev/mk-defsystem.lisp
defsystem-compatibility/dev/package.lisp
defsystem-compatibility/unit-tests/
defsystem-compatibility/unit-tests/asdf-systems.lisp
defsystem-compatibility/unit-tests/package.lisp
defsystem-compatibility/unit-tests/tests.lisp
defsystem-compatibility/website/
defsystem-compatibility/website/source/
defsystem-compatibility/website/source/images/
defsystem-compatibility/website/source/index.lml

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/" 
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/package.lisp" (written 04 APR 2006 09:26:53 AM):
; compiling (IN-PACKAGE :COMMON-LISP-USER)
; compiling (DEFPACKAGE #:DEFSYSTEM-COMPATIBILITY ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/api.lisp" (written 04 APR 2006 09:26:53 AM):
; compiling (IN-PACKAGE DEFSYSTEM-COMPATIBILITY)
; compiling (DEFGENERIC ASSOCIATED-TEST-SYSTEM* ...)
; compiling (DEFGENERIC ENSURE-SYSTEM-NAME* ...)
; compiling (DEFGENERIC FILENAME-LOOKS-LIKE-SYSTEM-FILE-P* ...)
; compiling (DEFGENERIC FIND-SYSTEM* ...)
; compiling (DEFGENERIC LOADED-SYSTEMS* ...)
; compiling (DEFGENERIC MAP-SYSTEM-FILES ...)
; compiling (DEFGENERIC REGISTERED-SYSTEMS* ...)
; compiling (DEFGENERIC SYSTEM-DEPENDENCIES* ...)
; compiling (DEFGENERIC SYSTEM-NAME-FOR-DISPLAY* ...)
; compiling (DEFGENERIC SYSTEM-PROPERTY* ...)
; compiling (DEFGENERIC SYSTEM-SOURCE-FILE* ...)
; compiling (DEFGENERIC SYSTEM-SUB-SYSTEMS* ...)
; compiling (DEFGENERIC TOP-LEVEL-SYSTEM-P* ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/api.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/defsystem-compatibility.lisp" (written 04 APR 2006 09:26:53 AM):
; compiling (IN-PACKAGE DEFSYSTEM-COMPATIBILITY)
; compiling (DEFPARAMETER *PREFERED-SYSTEM-DEFINER* ...)
; compiling (DEFMETHOD FIND-SYSTEM* ...)
; compiling (DEFMETHOD FIND-SYSTEM* ...)
; compiling (DEFPARAMETER *PREFERED-DEFINER-FOR-SYSTEMS* ...)
; compiling (DEFMETHOD SELECT-SYSTEM-DEFINER ...)
; compiling (DEFMETHOD SELECT-SYSTEM-DEFINER ...)
; compiling (DEFMETHOD SELECT-SYSTEM-DEFINER ...)
; compiling (DEFUN SELECT-SYSTEM-DEFINER% ...)
; compiling (DEFUN REGISTERED-SYSTEMS ...)
; compiling (DEFUN LOADED-SYSTEMS ...)
; compiling (DEFUN FIND-SYSTEM ...)
; compiling (DEFUN ASSOCIATED-TEST-SYSTEM ...)
; compiling (DEFUN SYSTEM-SUB-SYSTEMS ...)
; compiling (DEFUN SYSTEM-PROPERTY ...)
; compiling (DEFUN SYSTEM-SOURCE-FILE ...)
; compiling (DEFUN TOP-LEVEL-SYSTEM-P ...)
; compiling (DEFUN SYSTEM-NAME-FOR-DISPLAY ...)
; compiling (DEFUN ENSURE-SYSTEM-NAME ...)
; compiling (DEFUN FILENAME-LOOKS-LIKE-SYSTEM-FILE-P ...)
; compiling (DEFUN SYSTEM-DEPENDENCIES ...)
; compiling (DEFUN SYSTEM-SOURCE-DIRECTORY ...)
; compiling (DEFUN COLLECT-SYSTEM-DEPENDENCIES ...)
; compiling (DEFUN MAP-SYSTEM-DEPENDENCIES ...)
; compiling (DEFMETHOD MAP-SYSTEM-FILES ...)
; compiling (DEFMETHOD MAP-SYSTEM-FILES ...)
; compiling (DEFUN COLLECT-SYSTEM-FILES ...)
; compiling (DEFUN PATHNAME-FOR-SYSTEM-FILE ...)
; compiling (DEFUN ENSURE-STRING ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/defsystem-compatibility.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/asdf.lisp" (written 04 APR 2006 09:26:53 AM):
; compiling (IN-PACKAGE DEFSYSTEM-COMPATIBILITY)
; compiling (DEFPARAMETER *RELATIVE-PATHNAME* ...)
; compiling (DEFMETHOD REGISTERED-SYSTEMS* ...)
; compiling (DEFMETHOD LOADED-SYSTEMS* ...)
; compiling (DEFMETHOD ASSOCIATED-TEST-SYSTEM* ...)
; compiling (DEFMETHOD SYSTEM-SUB-SYSTEMS* ...)
; compiling (DEFMETHOD TOP-LEVEL-SYSTEM-P* ...)
; compiling (DEFMETHOD SYSTEM-NAME-FOR-DISPLAY* ...)
; compiling (DEFMETHOD SYSTEM-SOURCE-FILE* ...)
; compiling (DEFMETHOD ENSURE-SYSTEM-NAME* ...)
; compiling (DEFMETHOD ENSURE-SYSTEM-NAME* ...)
; compiling (DEFMETHOD FILENAME-LOOKS-LIKE-SYSTEM-FILE-P* ...)
; compiling (DEFMETHOD SYSTEM-DEPENDENCIES* ...)
; compiling (DEFUN SAFE-SLOT-VALUE ...)
; compiling (DEFMETHOD %MAP-SYSTEM-FILES ...)
; compiling (DEFMETHOD %MAP-SYSTEM-FILES ...)
; compiling (DEFMETHOD %MAP-SYSTEM-FILES ...)
; compiling (DEFMETHOD SYSTEM-PROPERTY* ...)
; compiling (DEFMETHOD SELECT-SYSTEM-DEFINER ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/defsystem-compatibility/dev/asdf.fasl written
; compilation finished in 0:00:02
STYLE-WARNING: implicitly creating new generic function SELECT-SYSTEM-DEFINER
STYLE-WARNING: implicitly creating new generic function %MAP-SYSTEM-FILES
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/package-additional.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (EXPORT-EXPORTED-SYMBOLS (QUOTE METABANG.BIND) ...)
; compiling (SHADOWING-IMPORT (QUOTE #) ...)
; compiling (SHADOWING-IMPORT (QUOTE #) ...)
; compiling (SHADOWING-IMPORT (QUOTE #) ...)
; compiling (USE-PACKAGE (QUOTE CL-FAD) ...)
; compiling (EXPORT-EXPORTED-SYMBOLS (QUOTE CONTAINERS) ...)
; compiling (MAKE-LOAD-FORM* METABANG.CL-CONTAINERS::BST-NODE)
; compiling (MAKE-LOAD-FORM* METABANG.CL-CONTAINERS::QUAD-TREE-NODE)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/package-additional.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/anaphoric.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFMACRO AIF ...)
; compiling (DEFMACRO AWHEN ...)
; compiling (DEFMACRO AWHILE ...)
; compiling (DEFMACRO AAND ...)
; compiling (DEFMACRO ACOND ...)
; compiling (DEFMACRO ALAMBDA ...)
; compiling (DEFMACRO ABLOCK ...)
; compiling (DEFMACRO AIF2 ...)
; compiling (DEFMACRO AWHEN2 ...)
; compiling (DEFMACRO AWHILE2 ...)
; compiling (DEFMACRO ACOND2 ...)
; compiling (DEFMACRO APROG1 ...)
; compiling (DEFMACRO ATYPECASE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/anaphoric.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/graham.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN MOST ...)
; compiling (DEFUN BEST ...)
; compiling (DEFUN MOSTN ...)
; compiling (DEFUN MAP0-N ...)
; compiling (DEFUN MAP1-N ...)
; compiling (DEFUN MAPA-B ...)
; compiling (DEFUN MAP-> ...)
; compiling (DEFUN MAPCARS ...)
; compiling (DEFUN FILTER-VALUES ...)
; compiling (DEFMACRO WITH-GENSYMS ...)
; compiling (DEFMACRO ALLF ...)
; compiling (DEFMACRO NILF ...)
; compiling (DEFMACRO TF ...)
; compiling (DEFMACRO TOGGLE! ...)
; compiling (DEFINE-MODIFY-MACRO TOGGLE-AUX ...)
; compiling (DEFINE-MODIFY-MACRO CONCF ...)
; compiling (DEFMACRO FN ...)
; compiling (DEFUN RBUILD ...)
; compiling (DEFUN BUILD-CALL ...)
; compiling (DEFUN BUILD-COMPOSE ...)
; compiling (DEFMACRO WITH-MATRIX ...)
; compiling (DEFMACRO WITH-ARRAY ...)
; compiling (DEFMACRO WITH-STRUCT ...)
; compiling (DEFUN MATCH ...)
; compiling (DEFUN VARSYM? ...)
; compiling (DEFUN BINDING ...)
; compiling (DEFMACRO IF-MATCH ...)
; compiling (DEFUN VARS-IN ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/graham.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/dates-and-times.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFCONSTANT +MINUTES-PER-HOUR+ ...)
; compiling (DEFCONSTANT +SECONDS-PER-MINUTE+ ...)
; compiling (DEFCONSTANT +USUAL-DAYS-PER-YEAR+ ...)
; compiling (DEFCONSTANT +SECONDS-PER-HOUR+ ...)
; compiling (DEFPARAMETER +MONTH-LIST+ ...)
; compiling (DEFPARAMETER +DAY-LIST+ ...)
; compiling (DEFPARAMETER +FLUFF-LIST+ ...)
; compiling (DEFCONSTANT +LONGER-FORMAT-INDEX+ ...)
; compiling (DEFCONSTANT +SHORTER-FORMAT-INDEX+ ...)
; compiling (DEFPARAMETER +MONTH-OUTPUT-LIST+ ...)
; compiling (DEFPARAMETER +DOW-OUTPUT-LIST ...)
; compiling (DEFPARAMETER +DAYS-PER-MONTH+ ...)
; compiling (DEFUN DAY->STRING ...)
; compiling (DEFUN MONTH->STRING ...)
; compiling (DEFUN STRING->MONTH ...)
; compiling (DEFUN PRINT-DATE ...)
; compiling (DEFUN DATE-STRING ...)
; compiling (DEFUN DATE-STRING-BRIEF ...)
; compiling (DEFUN PRINT-TIME-WITH-NO-COLONS ...)
; compiling (DEFUN PRINT-TIME ...)
; compiling (DEFUN PRINT-UNIVERSAL-TIME-WITH-NO-COLONS ...)
; compiling (DEFUN PRINT-UNIVERSAL-TIME ...)
; compiling (DEFUN TIME-STRING ...)
; compiling (DEFUN TIME-STRING-WITH-NO-COLONS ...)
; compiling (DEFUN DATE-AND-TIME-STRING ...)
; compiling (DECLAIM (INLINE MONTH-OK-P ...))
; compiling (DEFUN NTH-OK-P ...)
; compiling (DEFUN MONTH-OK-P ...)
; compiling (DEFUN DAY-OK-P ...)
; compiling (DEFUN YEARP ...)
; compiling (DEFUN INDEX-OF ...)
; compiling (DEFUN TOKEN-TYPE ...)
; compiling (DEFUN READ-TIME ...)
; compiling (DEFUN READ-DATE ...)
; compiling (DEFMACRO HANDLE-TOKEN ...)
; compiling (DEFUN PARSE-DATE-AND-TIME-STRING ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/dates-and-times.lisp
; in: DEFUN PARSE-DATE-AND-TIME-STRING
;     (ERROR "unsupported reader call")
; ==>
;   "unsupported reader call"
; 
; note: deleting unreachable code

; compiling (DEFUN PARSE-DATE-AND-TIME ...)
; compiling (DEFUN PRINT-BRIEF-UT ...)
; compiling (DEFUN PRINT-UT ...)
; compiling (DEFUN PRINT-TIME-INTERVAL ...)
; compiling (DEFUN PRINT-BRIEF-TIME-INTERVAL ...)
; compiling (DEFUN PARSE-NUMBER ...)
; compiling (DEFVAR TIME-INTERVAL-ARRAY ...)
; compiling (DEFVAR TIME-INTERVAL-UNIT-TYPES ...)
; compiling (DEFUN TIME-INTERVAL-TO-SECONDS ...)
; compiling (DEFUN PARSE-INTERVAL-OR-NEVER ...)
; compiling (DEFUN PARSE-TIME ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/dates-and-times.lisp
; in: DEFUN PARSE-TIME
;     (+ METABANG.UTILITIES:IT 4)
; 
; note: deleting unreachable code

; compiling (DEFUN INIT-TIME-INTERVAL-ARRAY ...)
; compiling (INIT-TIME-INTERVAL-ARRAY)
; compiling (DEFUN PRINT-UNIVERSAL-DATE-VERBOSE ...)
; compiling (DEFUN PRINT-DATE-VERBOSE ...)
; compiling (EVAL-ALWAYS (DEFMACRO GENERATE-TIME-PART-FUNCTION ...) ...)
; compiling (DEFUN FORMAT-DATE ...)
; compiling (DEFUN DAYS-IN-MONTH ...)
; compiling (DEFUN LEAP-YEAR-P ...)
; compiling (DEFUN DAY-OF-YEAR ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/dates-and-times.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/files.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFCONSTANT +MAC-OS-FILENAME-LIMIT+ ...)
; compiling (DEFUN NICELY-FORMAT-FILENAME ...)
; compiling (DEFUN FILE-TO-LIST ...)
; compiling (DEFUN UNIQUE-FILE-NAME-FROM-DATE ...)
; compiling (DEFUN PRETTY-NAMESTRING-FROM-DATE ...)
; compiling (DEFUN EOS-NAMESTRING-FROM-DATE ...)
; compiling (DEFUN SHORT-EOS-NAMESTRING-FROM-DATE ...)
; compiling (DEFUN RENAME-FILE-IF-PRESENT ...)
; compiling (DEFGENERIC UNIQUIFY-FILE-NAME ...)
; compiling (DEFMETHOD UNIQUIFY-FILE-NAME ...)
; compiling (DEFMETHOD UNIQUIFY-FILE-NAME ...)
; compiling (DEFUN MAP-FILES ...)
; compiling (DEFMETHOD MAP-FORMS-IN-FILE ...)
; compiling (DEFGENERIC MAP-FORMS-IN-FILE ...)
; compiling (DEFMETHOD MAP-FORMS-IN-FILE ...)
; compiling (DEFMETHOD MAP-FORMS-IN-FILE ...)
; compiling (DEFMETHOD MAP-LINES-IN-FILE ...)
; compiling (DEFGENERIC MAP-LINES-IN-FILE ...)
; compiling (DEFMETHOD MAP-LINES-IN-FILE ...)
; compiling (DEFMETHOD MAP-LINES-IN-FILE ...)
; compiling (DEFMACRO MAP-LINES ...)
; compiling (DEFUN FILE-NEWER-THAN-FILE-P ...)
; compiling (DEFUN ENSURE-WILD-FILE-SPEC ...)
; compiling (DEFUN REMOVE-DEAD-VERSIONS ...)
; compiling (DEFUN FILE-PACKAGE ...)
; compiling (DEFVAR *GLU-BLAST-PATHNAME-DEFAULTS* ...)
; compiling (DEFVAR *GLU-BLAST-DEFAULT-SELECTOR* ...)
; compiling (DEFUN GLU-BLAST ...)
; compiling (DEFUN PATHNAME-IS-OLD-CVS-JUNK-P ...)
; compiling (DEFPARAMETER *FILENAME-ESCAPE-CHARACTERS* ...)
; compiling (DEFUN ENSURE-FILENAME-SAFE-FOR-OS ...)
; compiling (DEFUN GOOD-FILENAME-CHAR-P ...)
; compiling (DEFUN REMOVE-ILLEGAL-FILENAME-CHARACTERS ...)
; compiling (DEFGENERIC SHORTEN-FILENAME-FOR-OS ...)
; compiling (DEFMETHOD SHORTEN-FILENAME-FOR-OS ...)
; compiling (DEFMETHOD SHORTEN-FILENAME-FOR-OS ...)
; compiling (DEFUN MAXIMUM-FILENAME-LENGTH ...)
; compiling (DEFUN PHYSICAL-PATHNAME-DIRECTORY-SEPARATOR ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/files.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/macros.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFMACRO NYI ...)
; 
; caught STYLE-WARNING:
;   NYI is being redefined as a macro when it was previously assumed to be a function.

; compiling (DEFMACRO MAKE-OBSOLETE ...)
; compiling (DEFMACRO NAMED-LAMBDA ...)
; compiling (DEFMACRO DELETEF ...)
; compiling (DEFMACRO REMOVEF ...)
; compiling (DEFMACRO DOPLIST ...)
; compiling (DEFMACRO ASSERT* ...)
; compiling (DEFINE-MODIFY-MACRO MAXF ...)
; compiling (DEFINE-MODIFY-MACRO MINF ...)
; compiling (DEFINE-MODIFY-MACRO MULTF ...)
; compiling (DEFMACRO SOME* ...)
; compiling (DEFMACRO HANDLER-CASE-IF ...)
; compiling (DEFUN GENSYM* ...)
; compiling (DEFMACRO REBINDING ...)
; compiling (DEFUN FUNCTION-EXPRESSION-P ...)
; compiling (DEFUN EXTRACT-HEAD-FORM ...)
; compiling (DEFMACRO |\\| ...)
; compiling (DEFMACRO ENSURE-TYPE ...)
; compiling (DEFMACRO WITH-SLOT-BINDINGS ...)
; compiling (DEFMACRO FUNCALL-IF ...)
; compiling (DEFVAR *FILE-IF-EXISTS* ...)
; compiling (DEFVAR *FILE-PRINT-RIGHT-MARGIN* ...)
; compiling (DEFMACRO WITH-NEW-FILE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/macros.fasl written
; compilation finished in 0:00:01
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {40007F89}> on
   #<CL-SOURCE-FILE "macros" {401BEEF9}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/sequences.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN REDUCE-IF ...)
; compiling (DEFUN MINIMIZE ...)
; compiling (DEFUN MAPCAN1 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/sequences.lisp
; in: DEFUN MAPCAN1
;     (FUNCALL METABANG.UTILITIES::FUN (CAR LIST))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

;     (FUNCALL METABANG.UTILITIES::FUN ELT)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

; compiling (DEFUN FLATTEN ...)
; compiling (DEFUN POWER-SET ...)
; compiling (DEFUN ALL-PAIRS ...)
; compiling (DEFUN MAP-COMBINATIONS ...)
; compiling (DEFUN COMBINATIONS ...)
; compiling (DEFUN PERMUTE ...)
; compiling (DEFUN REMOVE-MEMBERS ...)
; compiling (DEFUN TRANSPOSE ...)
; compiling (DEFUN TRANSPOSE2 ...)
; compiling (DEFUN LIST-CHOOSE-K ...)
; compiling (DEFUN SAME-LENGTH-P ...)
; compiling (DEFUN LENGTH-EXACTLY-P ...)
; compiling (DEFUN PERCENT-OVERLAP ...)
; compiling (DEFUN ITERATE-OVER-INDEXES ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/sequences.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/spy.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFPARAMETER *SPY-DEBUGGING* ...)
; compiling (DEFPARAMETER *SPY-OUTPUT* ...)
; compiling (DEFPARAMETER *SPY-NO-NEWLINE* ...)
; compiling (DEFPARAMETER *SPY-NO-EXPAND* ...)
; compiling (DEFUN SPY-PRIN1 ...)
; compiling (DEFUN SPY-PARSE-ARGLIST ...)
; compiling (DEFUN SPY-DO-FORM ...)
; compiling (DEFUN SPY-EXPAND-FORM ...)
; compiling (DEFMACRO SPY ...)
; compiling (DEFMACRO SPY* ...)
; compiling (DEFMACRO SPYX ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/spy.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/strings.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN STRING-BEFORE ...)
; compiling (DEFUN STRING-AFTER ...)
; compiling (DEFUN STRING-STARTS-WITH ...)
; compiling (DEFUN STRING-ENDS-WITH ...)
; compiling (DEFUN SUBSTRING ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/strings.lisp
; in: DEFUN SUBSTRING
;     (CHAR STRING METABANG.UTILITIES::R-INDEX)
; --> AREF LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (CHAR-DOWNCASE METABANG.UTILITIES::C)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.

; compiling (DEFUN (SETF SUBSTRING) ...)
; compiling (DEFUN STRING-CONTAINS-P ...)
; compiling (DEFUN COLLECT-TO-CHAR ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/strings.lisp
; in: DEFUN COLLECT-TO-CHAR
;     (POSITION CHAR
;             STRING
;             :START
;             METABANG.UTILITIES::START
;             :END
;             METABANG.UTILITIES::END
;             :TEST
;             #'CHAR=)
; --> 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))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time

; compiling (DEFUN COLLECT-TO-NOT ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/strings.lisp
; in: DEFUN COLLECT-TO-NOT
;     (POSITION CHAR
;             STRING
;             :START
;             METABANG.UTILITIES::START
;             :END
;             METABANG.UTILITIES::END
;             :TEST-NOT
;             #'CHAR=)
; --> 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))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time

; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST LET LET 
; --> COND IF COND IF COND IF PROGN 
; ==>
;   (COMPLEMENT (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-412))
; 
; note: unable to open code because: The function doesn't have a fixed argument count.

; compiling (DEFUN STRING->SYMBOL ...)
; compiling (DEFUN SYMBOL->STRING ...)
; compiling (DEFUN TOKENIZE-STRING ...)
; compiling (DEFUN LIST->FORMATTED-STRING ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/strings.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/utilities.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN MAPAPPEND ...)
; 
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names LOAD

; compiling (SETF (FDEFINITION #) ...)
; compiling (DEFUN TREE-MAP ...)
; compiling (DEFUN TREE-FIND ...)
; compiling (DEFUN TREE-FIND-IF ...)
; compiling (DEFUN TREE-REMOVE-IF ...)
; compiling (DEFUN PARTITION ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; compiling (DECLAIM (INLINE FIND-ALL))
; compiling (DEFUN FIND-ALL ...)
; compiling (DEFUN NMERGE-LIST ...)
; compiling (DEFUN DELETE-IF! ...)
; compiling (DEFUN COMPACT-ARRAY ...)
; compiling (DEFUN CIRCULAR-LIST ...)
; compiling (DEFUN GENSYM0 ...)
; compiling (DEFUN GROUP ...)
; compiling (DEFUN MAKE-INITIALIZED-ARRAY ...)
; compiling (DEFUN FIXNUMP ...)
; compiling (DEFUN OBJECT->STRING ...)
; compiling (DEFUN FLOAT->INTEGER ...)
; compiling (DEFUN SORT-USING-LIST-ORDER ...)
; compiling (DEFUN UNUSED-VARIABLES ...)
; compiling (DEFUN LAMBDA-LIST->ARGS ...)
; compiling (DECLAIM (INLINE CAR-SAFE))
; compiling (DEFUN CAR-SAFE ...)
; compiling (DECLAIM (INLINE CAR-SAFE))
; compiling (DEFUN CDR-SAFE ...)
; compiling (DEFPARAMETER +VERY-SMALL-NUMBER+ ...)
; compiling (DEFUN VERY-SMALL-NUMBER-P ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/utilities.lisp
; in: DEFUN VERY-SMALL-NUMBER-P
;     (ABS NUMBER)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The result is a (VALUES (REAL 0)
;                           &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The result is a (VALUES (REAL 0)
;                           &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (< (ABS NUMBER) METABANG.UTILITIES:+VERY-SMALL-NUMBER+)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SINGLE-FLOAT 0.0)
;                               (DOUBLE-FLOAT 0.0d0)
;                               (RATIONAL 0)), not a 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 (OR (SINGLE-FLOAT 0.0)
;                               (DOUBLE-FLOAT 0.0d0)
;                               (RATIONAL 0)), 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 (OR (SINGLE-FLOAT 0.0)
;                               (DOUBLE-FLOAT 0.0d0)
;                               (RATIONAL 0)), not a FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (ABS NUMBER)
; 
; note: forced to do full call
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES (REAL 0)
;                               &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES (REAL 0)
;                               &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).

;     (< (ABS NUMBER) METABANG.UTILITIES:+VERY-SMALL-NUMBER+)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (SINGLE-FLOAT 0.0)
;                                   (DOUBLE-FLOAT 0.0d0)
;                                   (RATIONAL 0)), 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 (OR (SINGLE-FLOAT 0.0)
;                                   (DOUBLE-FLOAT 0.0d0)
;                                   (RATIONAL 0)), not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; compiling (DEFUN CONVERT-CLAUSES-INTO-LISTS ...)
; compiling (DEFUN CONVERT-CLAUSES-INTO-LISTS* ...)
; compiling (DEFUN CLEANUP-PARSED-PARAMETER ...)
; compiling (DEFUN FIRSTN ...)
; compiling (DEFUN CURRY ...)
; compiling (DEFINE-COMPILER-MACRO CURRY ...)
; compiling (DEFUN CURRY-AFTER ...)
; compiling (DEFUN COMPOSE ...)
; compiling (DEFUN CONJOIN ...)
; compiling (DEFINE-COMPILER-MACRO CONJOIN ...)
; compiling (DEFUN DISJOIN ...)
; compiling (DEFINE-COMPILER-MACRO DISJOIN ...)
; compiling (DEFUN ADD-CLASSES-IF-NECESSARY ...)
; compiling (DEFUN DIRECT-SUPERCLASSES-DEFCLASS* ...)
; compiling (DEFUN SUPERCLASSES-DEFCLASS* ...)
; compiling (DEFUN ADD-CLASS-IF-NECESSARY ...)
; compiling (DEFUN REMOVE-LEADING-QUOTE ...)
; compiling (DEFUN NTH-ELT-OF-CROSS-PRODUCT ...)
; compiling (DEFUN NTH-ELT-OF-CROSS-PRODUCT-AS-MULTIPLE-VALUES ...)
; compiling (DEFUN CONSTANT-EXPRESSION-P ...)
; compiling (DEFUN CONSTANT-FUNCTION-P ...)
; compiling (DEFUN MAKE-SORTER ...)
; compiling (DEFMACRO PUSH-END ...)
; 
; caught STYLE-WARNING:
;   PUSH-END is being redefined as a macro when it was previously assumed to be a function.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/utilities.fasl written
; compilation finished in 0:00:01
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {10007F51}> on
   #<CL-SOURCE-FILE "utilities" {10007F61}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/searching.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFUN BINARY-SEARCH ...)
; compiling (DEFUN TREE-SEARCH ...)
; compiling (DEFUN PREPEND ...)
; compiling (DEFUN DEPTH-FIRST-SEARCH ...)
; compiling (DEFUN BREADTH-FIRST-SEARCH ...)
; compiling (DEFUN MAKE-SORTER-FN ...)
; compiling (DEFUN BEST-FIRST-SEARCH ...)
; compiling (DEFUN BEAM-SEARCH ...)
; compiling (DEFUN ITER-WIDE-SEARCH ...)
; compiling (DEFUN GRAPH-SEARCH ...)
; compiling (DEFUN NEW-STATES ...)
; compiling (DEFVAR *A*-COUNT* ...)
; compiling (DEFVAR *A*-LIMIT* ...)
; compiling (DEFUN SEARCH-ALL ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/searching.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/copy-file.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFINE-CONDITION SOURCE/TARGET-FILE-ERROR ...)
; compiling (DEFINE-CONDITION SOURCE/TARGET-TARGET-ALREADY-EXISTS-ERROR ...)
; 
; caught STYLE-WARNING:
;   Too many arguments (2) to FORMAT "File action failed because target ~S already exists": uses at most 1.
;   See also:
;     The ANSI Standard, Section 22.3.10.2

; compiling (DEFINE-CONDITION SOURCE/TARGET-SOURCE-DOES-NOT-EXIST-ERROR ...)
; compiling (DEFUN COPY-FILE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/copy-file.fasl written
; compilation finished in 0:00:00
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {10007F51}> on
   #<CL-SOURCE-FILE "copy-file" {101C01C1}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/views-and-windows.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFCLASS VIEW-REQUIRING-CLEANUP-MIXIN ...)
; compiling (DEFGENERIC CLEAN-UP-VIEW ...)
; compiling (DEFGENERIC UPDATE-DIALOG-UI ...)
; compiling (DEFCLASS* HELP-TEXT-MIXIN ...)
; compiling (DEFMETHOD HELP-SPEC ...)
; compiling (DEFCLASS* MARGINS-MIXIN ...)
; compiling (DEFMETHOD (SETF LEFT-MARGIN) ...)
; compiling (DEFMETHOD (SETF TOP-MARGIN) ...)
; compiling (DEFMETHOD (SETF RIGHT-MARGIN) ...)
; compiling (DEFMETHOD (SETF BOTTOM-MARGIN) ...)
; compiling (DEFMETHOD VIEW-X/VIEW-Y->X/Y ...)
; compiling (DEFMETHOD VIEW-SCALE ...)
; compiling (DEFGENERIC ADJUST-POINT-FOR-SCALING ...)
; compiling (DEFGENERIC VIEW-X/VIEW-Y->POINT ...)
; compiling (DEFGENERIC NOTE-VIEW-SETTINGS-CHANGED ...)
; compiling (DEFGENERIC REDRAW ...)
; compiling (DEFGENERIC DIALOG-ITEM-VALUE ...)
; compiling (DEFGENERIC (SETF DIALOG-ITEM-VALUE) ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/views-and-windows.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/sbcl/generic-lisp.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (SETF (DEFAULT-INTERFACE) ...)
; compiling (DEFMETHOD IS-INTERFACE-AVAILABLE-P ...)
; compiling (DEFMETHOD QUIT-LISP* ...)
; compiling (DEFMETHOD TOTAL-BYTES-ALLOCATED* ...)
; compiling (DEFMETHOD GC-TIME* ...)
; compiling (DEFMETHOD COLLECT-GARBAGE* ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/sbcl/generic-lisp.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/sbcl/generic-interface-support.lisp" (written 04 APR 2006 09:27:20 AM):
; compiling (IN-PACKAGE METATILITIES)
; compiling (DEFMETHOD CHOOSE-FILE-QUESTION* ...)
; compiling (DEFMETHOD CHOOSE-NEW-FILE-QUESTION* ...)
; compiling (DEFMETHOD CHOOSE-DIRECTORY-QUESTION* ...)
; compiling (DEFMETHOD INSPECT-THING* ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/sbcl/generic-interface-support.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: redefining TIME-SECOND in DEFUN
STYLE-WARNING: redefining TIME-MINUTE in DEFUN
STYLE-WARNING: redefining TIME-HOUR in DEFUN
STYLE-WARNING: redefining TIME-DATE in DEFUN
STYLE-WARNING: redefining TIME-MONTH in DEFUN
STYLE-WARNING: redefining TIME-YEAR in DEFUN
STYLE-WARNING: redefining TIME-DAY-OF-WEEK in DEFUN
STYLE-WARNING: redefining TIME-DAYLIGHT-SAVINGS-TIME-P in DEFUN
STYLE-WARNING: implicitly creating new generic function MAP-FORMS-IN-FILE
STYLE-WARNING: redefining MAP-FORMS-IN-FILE in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function MAP-LINES-IN-FILE
STYLE-WARNING: redefining MAP-LINES-IN-FILE in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function HELP-SPEC
STYLE-WARNING: implicitly creating new generic function VIEW-X/VIEW-Y->X/Y
STYLE-WARNING: implicitly creating new generic function VIEW-SCALE
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/package.lisp" (written 04 APR 2006 09:26:26 AM):
; compiling (IN-PACKAGE COMMON-LISP-USER)
; compiling (DEFPACKAGE #:CL-GRAPH ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/api.lisp" (written 04 APR 2006 09:26:26 AM):
; compiling (IN-PACKAGE CL-GRAPH)
; compiling (DEFGENERIC MAKE-VERTEX-CONTAINER ...)
; compiling (DEFGENERIC MAKE-EDGE-CONTAINER ...)
; compiling (DEFGENERIC MAKE-GRAPH ...)
; compiling (DEFGENERIC MAKE-EDGE-FOR-GRAPH ...)
; compiling (DEFGENERIC ADD-EDGE ...)
; compiling (DEFGENERIC ADD-EDGE-BETWEEN-VERTEXES ...)
; compiling (DEFGENERIC DELETE-EDGE ...)
; compiling (DEFGENERIC DELETE-EDGE-BETWEEN-VERTEXES ...)
; compiling (DEFGENERIC ADD-VERTEX ...)
; compiling (DEFGENERIC DELETE-VERTEX ...)
; compiling (DEFGENERIC FIND-VERTEX ...)
; compiling (DEFGENERIC SEARCH-FOR-VERTEX ...)
; compiling (DEFGENERIC FIND-EDGE ...)
; compiling (DEFGENERIC FIND-EDGE-BETWEEN-VERTEXES ...)
; compiling (DEFGENERIC SOURCE-VERTEX ...)
; compiling (DEFGENERIC TARGET-VERTEX ...)
; compiling (DEFGENERIC ITERATE-EDGES ...)
; compiling (DEFGENERIC ITERATE-SOURCE-EDGES ...)
; compiling (DEFGENERIC ITERATE-TARGET-EDGES ...)
; compiling (DEFGENERIC ITERATE-CHILDREN ...)
; compiling (DEFGENERIC HAS-CHILDREN-P ...)
; compiling (DEFGENERIC HAS-PARENT-P ...)
; compiling (DEFGENERIC ITERATE-PARENTS ...)
; compiling (DEFGENERIC ITERATE-NEIGHBORS ...)
; compiling (DEFGENERIC RENUMBER-VERTEXES ...)
; compiling (DEFGENERIC RENUMBER-EDGES ...)
; compiling (DEFGENERIC GENERATE-DIRECTED-FREE-TREE ...)
; compiling (DEFGENERIC IN-UNDIRECTED-CYCLE-P ...)
; compiling (DEFGENERIC UNDIRECTED-EDGE-P ...)
; compiling (DEFGENERIC DIRECTED-EDGE-P ...)
; compiling (DEFGENERIC TAGGED-EDGE-P ...)
; compiling (DEFGENERIC UNTAGGED-EDGE-P ...)
; compiling (DEFGENERIC ADJACENTP ...)
; compiling (DEFGENERIC MAKE-FILTERED-GRAPH ...)
; compiling (DEFGENERIC PROJECT-BIPARTITE-GRAPH ...)
; compiling (DEFGENERIC ASSORTATIVITY-COEFFICIENT ...)
; compiling (DEFGENERIC GRAPH->DOT ...)
; compiling (DEFGENERIC GRAPH->DOT-PROPERTIES ...)
; compiling (DEFGENERIC VERTEX->DOT ...)
; compiling (DEFGENERIC EDGE->DOT ...)
; compiling (DEFGENERIC GENERATE-GNM ...)
; compiling (DEFGENERIC GENERATE-GNP ...)
; compiling (DEFGENERIC GENERATE-UNDIRECTED-GRAPH-VIA-ASSORTATIVITY-MATRIX ...)
; compiling (DEFGENERIC GENERATE-UNDIRECTED-GRAPH-VIA-VERTEX-PROBABILITIES ...)
; compiling (DEFGENERIC GENERATE-SCALE-FREE-GRAPH ...)
; compiling (DEFGENERIC GENERATE-ASSORTATIVE-GRAPH-WITH-DEGREE-DISTRIBUTIONS ...)
; compiling (DEFGENERIC GENERATE-SIMPLE-PREFERENTIAL-ATTACHMENT-GRAPH ...)
; compiling (DEFGENERIC GENERATE-PREFERENTIAL-ATTACHMENT-GRAPH ...)
; compiling (DEFGENERIC MAKE-VERTEX-FOR-GRAPH ...)
; compiling (DEFGENERIC TAG-ALL-EDGES ...)
; compiling (DEFGENERIC UNTAG-ALL-EDGES ...)
; compiling (DEFGENERIC UNTAG-EDGES ...)
; compiling (DEFGENERIC TAG-EDGES ...)
; compiling (DEFGENERIC REPLACE-VERTEX ...)
; compiling (DEFGENERIC ADD-EDGE-TO-VERTEX ...)
; compiling (DEFGENERIC SOURCE-EDGES ...)
; compiling (DEFGENERIC TARGET-EDGES ...)
; compiling (DEFGENERIC CHILD-VERTEXES ...)
; compiling (DEFGENERIC PARENT-VERTEXES ...)
; compiling (DEFGENERIC NEIGHBOR-VERTEXES ...)
; compiling (DEFGENERIC NUMBER-OF-NEIGHBORS ...)
; compiling (DEFGENERIC IN-CYCLE-P ...)
; compiling (DEFGENERIC ITERATE-VERTEXES ...)
; compiling (DEFGENERIC EDGES ...)
; compiling (DEFGENERIC VERTEX-COUNT ...)
; compiling (DEFGENERIC VERTEXES ...)
; compiling (DEFGENERIC SOURCE-EDGE-COUNT ...)
; compiling (DEFGENERIC TARGET-EDGE-COUNT ...)
; compiling (DEFGENERIC GRAPH-ROOTS ...)
; compiling (DEFGENERIC ROOTP ...)
; compiling (DEFGENERIC FIND-VERTEX-IF ...)
; compiling (DEFGENERIC FIND-EDGE-IF ...)
; compiling (DEFGENERIC FIND-EDGES-IF ...)
; compiling (DEFGENERIC FIND-VERTEXES-IF ...)
; compiling (DEFGENERIC FORCE-UNDIRECTED ...)
; compiling (DEFGENERIC TRAVERSE-ELEMENTS ...)
; compiling (DEFGENERIC TRAVERSE-ELEMENTS-HELPER ...)
; compiling (DEFGENERIC ANY-UNDIRECTED-CYCLE-P ...)
; compiling (DEFGENERIC EDGE-COUNT ...)
; compiling (DEFGENERIC TOPOLOGICAL-SORT ...)
; compiling (DEFGENERIC ASSIGN-LEVEL ...)
; compiling (DEFGENERIC DEPTH ...)
; compiling (DEFGENERIC MAKE-VERTEX-EDGES-CONTAINER ...)
; compiling (DEFGENERIC OTHER-VERTEX ...)
; compiling (DEFGENERIC FIND-EDGE-BETWEEN-VERTEXES-IF ...)
; compiling (DEFGENERIC VERTICES-SHARE-EDGE-P ...)
; compiling (DEFGENERIC GRAPH-EDGE-MIXTURE-MATRIX ...)
; compiling (DEFGENERIC GRAPH-MIXING-MATRIX ...)
; compiling (DEFGENERIC CONNECTED-COMPONENTS ...)
; compiling (DEFGENERIC CONNECTED-COMPONENT-COUNT ...)
; compiling (DEFGENERIC FIND-CONNECTED-COMPONENTS ...)
; compiling (DEFGENERIC INITIALIZE-VERTEX-DATA ...)
; compiling (DEFGENERIC BREADTH-FIRST-VISITOR ...)
; compiling (DEFGENERIC BREADTH-FIRST-SEARCH-GRAPH ...)
; compiling (DEFGENERIC MST-FIND-SET ...)
; compiling (DEFGENERIC MST-MAKE-SET ...)
; compiling (DEFGENERIC MST-TREE-UNION ...)
; compiling (DEFGENERIC MST-LINK ...)
; compiling (DEFGENERIC ADD-EDGES-TO-GRAPH ...)
; compiling (DEFGENERIC MAKE-GRAPH-FROM-VERTEXES ...)
; compiling (DEFGENERIC EDGE-LESSP-BY-WEIGHT ...)
; compiling (DEFGENERIC MINIMUM-SPANNING-TREE ...)
; compiling (DEFGENERIC CONNECTED-GRAPH-P ...)
; compiling (DEFGENERIC EDGE-LESSP-BY-DIRECTION ...)
; compiling (DEFGENERIC OUT-EDGE-FOR-VERTEX-P ...)
; compiling (DEFGENERIC DFS ...)
; compiling (DEFGENERIC DFS-VISIT ...)
; compiling (DEFGENERIC DFS-TREE-EDGE-P ...)
; compiling (DEFGENERIC DFS-BACK-EDGE-P ...)
; compiling (DEFGENERIC DFS-FORWARD-EDGE-P ...)
; compiling (DEFGENERIC DFS-CROSS-EDGE-P ...)
; compiling (DEFGENERIC DFS-EDGE-TYPE ...)
; compiling (DEFGENERIC MAP-OVER-ALL-COMBINATIONS-OF-K-VERTEXES ...)
; compiling (DEFGENERIC MAP-OVER-ALL-COMBINATIONS-OF-K-EDGES ...)
; compiling (DEFGENERIC COMPLETE-LINKS ...)
; compiling (DEFGENERIC SUBGRAPH-CONTAINING ...)
; compiling (DEFGENERIC WEIGHT ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/api.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/macros.lisp" (written 04 APR 2006 09:26:26 AM):
; compiling (IN-PACKAGE METABANG.GRAPH)
; compiling (DEFMACRO WITH-CHANGING-VERTEX ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/macros.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: redefining ITERATE-CHILDREN in DEFGENERIC
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graph.lisp" (written 04 APR 2006 09:26:26 AM):
; compiling (IN-PACKAGE METABANG.GRAPH)
; compiling (DEFCONDITION GRAPH-ERROR ...)
; compiling (DEFCONDITION EDGE-ERROR ...)
; compiling (DEFCONDITION GRAPH-VERTEX-NOT-FOUND-ERROR ...)
; compiling (DEFCONDITION GRAPH-VERTEX-NOT-FOUND-IN-EDGE-ERROR ...)
; compiling (DEFCONDITION GRAPH-EDGE-NOT-FOUND-ERROR ...)
; compiling (DEFCLASS* BASIC-VERTEX ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS* BASIC-EDGE ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS* DIRECTED-EDGE-MIXIN ...)
; compiling (DEFCLASS* WEIGHTED-EDGE-MIXIN ...)
; compiling (DEFMETHOD WEIGHT ...)
; compiling (DEFCLASS* BASIC-GRAPH ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD ADD-VERTEX ...)
; compiling (DEFMETHOD MAKE-VERTEX-FOR-GRAPH ...)
; compiling (DEFMETHOD MAKE-EDGE-FOR-GRAPH ...)
; compiling (DEFMETHOD MAKE-GRAPH ...)
; compiling (DEFMETHOD MAKE-GRAPH ...)
; compiling (DEFMETHOD UNDIRECTED-EDGE-P ...)
; compiling (DEFMETHOD DIRECTED-EDGE-P ...)
; compiling (DEFMETHOD TAGGED-EDGE-P ...)
; compiling (DEFMETHOD UNTAGGED-EDGE-P ...)
; compiling (DEFMETHOD TAG-ALL-EDGES ...)
; compiling (DEFMETHOD TAG-ALL-EDGES ...)
; compiling (DEFMETHOD UNTAG-ALL-EDGES ...)
; compiling (DEFMETHOD UNTAG-ALL-EDGES ...)
; compiling (DEFMETHOD UNTAG-EDGES ...)
; compiling (DEFMETHOD TAG-EDGES ...)
; compiling (DEFMETHOD (SETF ELEMENT) ...)
; compiling (DEFMETHOD ADD-VERTEX ...)
; compiling (DEFMETHOD REPLACE-VERTEX ...)
; compiling (DEFMETHOD ADD-EDGE-BETWEEN-VERTEXES ...)
; compiling (DEFMETHOD ADD-EDGE-BETWEEN-VERTEXES ...)
; compiling (DEFMETHOD ADD-EDGE-TO-VERTEX ...)
; compiling (DEFMETHOD FIND-EDGE-BETWEEN-VERTEXES ...)
; compiling (DEFMETHOD DELETE-EDGE-BETWEEN-VERTEXES ...)
; compiling (DEFMETHOD DELETE-EDGE ...)
; compiling (DEFMETHOD DELETE-VERTEX ...)
; compiling (DEFMETHOD DELETE-VERTEX ...)
; compiling (DEFMETHOD DELETE-VERTEX ...)
; compiling (DEFMETHOD INSERT-ITEM ...)
; compiling (DEFMETHOD SOURCE-EDGES ...)
; compiling (DEFMETHOD TARGET-EDGES ...)
; compiling (DEFMETHOD CHILD-VERTEXES ...)
; compiling (DEFMETHOD PARENT-VERTEXES ...)
; compiling (DEFMETHOD NEIGHBOR-VERTEXES ...)
; compiling (DEFMETHOD ADJACENTP ...)
; compiling (DEFMETHOD ADJACENTP ...)
; compiling (DEFMETHOD NUMBER-OF-NEIGHBORS ...)
; compiling (DEFMETHOD IN-CYCLE-P ...)
; compiling (DEFMETHOD RENUMBER-VERTEXES ...)
; compiling (DEFMETHOD RENUMBER-EDGES ...)
; compiling (DEPRECATED (DEFMETHOD CONTAINER->LIST ...))
; compiling (DEFMETHOD ADD-VERTEX ...)
; compiling (DEFMETHOD ADD-EDGE ...)
; compiling (DEFMETHOD FIND-VERTEX ...)
; compiling (DEFMETHOD FIND-VERTEX ...)
; compiling (DEFMETHOD SEARCH-FOR-VERTEX ...)
; compiling (DEFMETHOD SEARCH-FOR-VERTEX ...)
; compiling (DEFMETHOD SEARCH-FOR-VERTEX ...)
; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
; compiling (DEFMETHOD ITERATE-NODES ...)
; compiling (DEFMETHOD ITERATE-VERTEXES ...)
; compiling (DEFMETHOD ITERATE-VERTEXES ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFMETHOD EDGES ...)
; compiling (DEFMETHOD EDGES ...)
; compiling (DEPRECATED "Use size instead" ...)
; compiling (DEFMETHOD VERTEXES ...)
; compiling (DEFMETHOD SOURCE-EDGE-COUNT ...)
; compiling (DEFMETHOD TARGET-EDGE-COUNT ...)
; compiling (DEFMETHOD GRAPH-ROOTS ...)
; compiling (DEFMETHOD ROOTP ...)
; compiling (DEFMETHOD FIND-VERTEX-IF ...)
; compiling (DEFMETHOD FIND-VERTEX-IF ...)
; compiling (DEFMETHOD FIND-EDGE-IF ...)
; compiling (DEFMETHOD FIND-EDGES-IF ...)
; compiling (DEFMETHOD FIND-VERTEXES-IF ...)
; compiling (DEFMETHOD EMPTY! ...)
; compiling (DEFUN NEIGHBORS-TO-CHILDREN ...)
; compiling (DEFMETHOD GENERATE-DIRECTED-FREE-TREE ...)
; compiling (DEFMETHOD FORCE-UNDIRECTED ...)
; compiling (DEFMETHOD TRAVERSE-ELEMENTS ...)
; compiling (DEFMETHOD TRAVERSE-ELEMENTS-HELPER ...)
; compiling (DEFMETHOD TRAVERSE-ELEMENTS-HELPER ...)
; compiling (DEFMETHOD IN-CYCLE-P ...)
; compiling (DEFMETHOD IN-UNDIRECTED-CYCLE-P ...)
; compiling (DEFMETHOD ANY-UNDIRECTED-CYCLE-P ...)
; compiling (DEFUN REMOVE-LIST ...)
; compiling (DEFUN GET-NODELIST-RELATIVES ...)
; compiling (DEFUN GET-TRANSITIVE-CLOSURE ...)
; compiling (DEFMETHOD COMPLETE-LINKS ...)
; compiling (DEFMETHOD MAKE-FILTERED-GRAPH ...)
; compiling (DEFMETHOD SUBGRAPH-CONTAINING ...)
; compiling (DEFMETHOD EDGE-COUNT ...)
; compiling (DEFMETHOD EDGE-COUNT ...)
; compiling (DEFMETHOD TOPOLOGICAL-SORT ...)
; compiling (DEFMETHOD ASSIGN-LEVEL ...)
; compiling (DEFMETHOD ASSIGN-LEVEL ...)
; compiling (DEFMETHOD DEPTH ...)
; compiling (DEFUN MAP-PATHS ...)
; compiling (DEFUN MAP-SHORTEST-PATHS ...)
; compiling (DEFUN APPEND-UNIQUE ...)
; compiling (DEFMETHOD PROJECT-BIPARTITE-GRAPH ...)
; compiling (DEFMETHOD PROJECT-BIPARTITE-GRAPH ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graph.fasl written
; compilation finished in 0:00:12
STYLE-WARNING: redefining MAKE-LOAD-FORM (BASIC-VERTEX) in DEFMETHOD
STYLE-WARNING: redefining MAKE-LOAD-FORM (BASIC-EDGE) in DEFMETHOD
STYLE-WARNING: redefining MAKE-LOAD-FORM (BASIC-GRAPH) in DEFMETHOD
STYLE-WARNING: implicitly creating new generic function CONTAINER->LIST
STYLE-WARNING: redefining SEARCH-FOR-VERTEX (BASIC-GRAPH T) in DEFMETHOD
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graph-container.lisp" (written 04 APR 2006 09:26:26 AM):
; compiling (IN-PACKAGE METABANG.GRAPH)
; compiling (DEFCLASS* GRAPH-CONTAINER ...)
; compiling (DEFCLASS* GRAPH-CONTAINER-EDGE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS* WEIGHTED-EDGE ...)
; compiling (DEFCLASS* GRAPH-CONTAINER-VERTEX ...)
; compiling (DEFMETHOD MAKE-VERTEX-EDGES-CONTAINER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD MAKE-VERTEX-CONTAINER ...)
; compiling (DEFMETHOD MAKE-EDGE-CONTAINER ...)
; compiling (DEFCLASS* GRAPH-CONTAINER-DIRECTED-EDGE ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD SOURCE-VERTEX ...)
; compiling (DEFMETHOD TARGET-VERTEX ...)
; compiling (DEFMETHOD OTHER-VERTEX ...)
; compiling (DEFMETHOD OTHER-VERTEX ...)
; compiling (DEFMETHOD ADD-EDGE ...)
; compiling (DEFMETHOD ADD-EDGE-TO-VERTEX ...)
; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
; compiling (DEFMETHOD FIND-EDGE-BETWEEN-VERTEXES ...)
; compiling (DEFMETHOD FIND-EDGE-BETWEEN-VERTEXES-IF ...)
; compiling (DEFMETHOD FIND-EDGE-BETWEEN-VERTEXES-IF ...)
; compiling (DEFMETHOD FIND-EDGE ...)
; compiling (DEFMETHOD DELETE-EDGE ...)
; compiling (DEFMETHOD ITERATE-EDGES ...)
; compiling (DEFMETHOD ITERATE-EDGES ...)
; compiling (DEFMETHOD ITERATE-SOURCE-EDGES ...)
; compiling (DEFMETHOD ITERATE-TARGET-EDGES ...)
; compiling (DEFMETHOD ITERATE-CHILDREN ...)
; compiling (DEFMETHOD ITERATE-PARENTS ...)
; compiling (DEFMETHOD ITERATE-NEIGHBORS ...)
; compiling (DEFMETHOD VERTEXES ...)
; compiling (DEFMETHOD HAS-CHILDREN-P ...)
; compiling (DEFMETHOD HAS-PARENT-P ...)
; compiling (DEFMETHOD VERTICES-SHARE-EDGE-P ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graph-container.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graph-matrix.lisp" (written 04 APR 2006 09:26:26 AM):
; compiling (IN-PACKAGE METABANG.GRAPH)
; compiling (DEFCLASS* GRAPH-MATRIX ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD MAKE-VERTEX-CONTAINER ...)
; compiling (DEFMETHOD MAKE-EDGE-CONTAINER ...)
; compiling (DEFCLASS* GRAPH-MATRIX-EDGE ...)
; compiling (DEFCLASS* GRAPH-MATRIX-VERTEX ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graph-matrix.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graph-metrics.lisp" (written 04 APR 2006 09:26:26 AM):
; compiling (IN-PACKAGE METABANG.GRAPH)
; compiling (DEFUN VERTEX-DEGREE-COUNTS ...)
; compiling (DEFUN AVERAGE-VERTEX-DEGREE ...)
; compiling (DEFUN VERTEX-DEGREE ...)
; compiling (DEFUN %VERTEX-DEGREE ...)
; compiling (DEFUN VERTEX-DEGREE-SUMMARY ...)
; compiling (DEFUN AVERAGE-VERTEX-CLUSTERING-COEFFICIENT ...)
; compiling (DEFUN VERTEX-CLUSTERING-COEFFICIENT ...)
; compiling (DEFUN VERTEX-TRIANGLE-COUNT ...)
; compiling (DEFUN ROW-SUMS ...)
; compiling (DEFUN COLUMN-SUMS ...)
; compiling (DEFMETHOD ASSORTATIVITY-COEFFICIENT ...)
; compiling (DEFMETHOD GRAPH-EDGE-MIXTURE-MATRIX ...)
; compiling (DEFMETHOD GRAPH-MIXING-MATRIX ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graph-metrics.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graph-algorithms.lisp" (written 04 APR 2006 09:26:26 AM):
; compiling (IN-PACKAGE METABANG.GRAPH)
; compiling (DEFSTRUCT (VERTEX-DATUM # ...) ...)
; compiling (DEFMETHOD INITIALIZE-VERTEX-DATA ...)
; compiling (DEFMETHOD BREADTH-FIRST-VISITOR ...)
; compiling (DEFMETHOD BREADTH-FIRST-VISITOR ...)
; compiling (DEFMETHOD BREADTH-FIRST-SEARCH-GRAPH ...)
; compiling (DEFMETHOD BREADTH-FIRST-SEARCH-GRAPH ...)
; compiling (DEFMETHOD CONNECTED-COMPONENTS ...)
; compiling (DEFMETHOD CONNECTED-COMPONENT-COUNT ...)
; compiling (DEFMETHOD FIND-CONNECTED-COMPONENTS ...)
; compiling (DEFMETHOD MST-FIND-SET ...)
; compiling (DEFMETHOD MST-MAKE-SET ...)
; compiling (DEFMETHOD MST-TREE-UNION ...)
; compiling (DEFMETHOD MST-LINK ...)
; compiling (DEFMETHOD ADD-EDGES-TO-GRAPH ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graph-algorithms.lisp
; in: DEFMETHOD ADD-EDGES-TO-GRAPH (BASIC-GRAPH LIST)
;     (CL-GRAPH:ADD-EDGE-BETWEEN-VERTEXES CL-GRAPH:GRAPH
;                                       CL-GRAPH::V1
;                                       CL-GRAPH::V2
;                                       :EDGE-CLASS
;                                       (TYPE-OF CL-GRAPH:EDGE)
;                                       :EDGE-TYPE
;                                       (IF
;                                        (CL-GRAPH:DIRECTED-EDGE-P CL-GRAPH:EDGE)
;                                        :DIRECTED
;                                        :UNDIRECTED)
;                                       :VALUE
;                                       (CL-GRAPH::VALUE CL-GRAPH:EDGE)
;                                       :EDGE-ID
;                                       (CL-GRAPH:EDGE-ID CL-GRAPH:EDGE)
;                                       ...)
; 
; caught STYLE-WARNING:
;   :EDGE-CLASS is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :VALUE is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :EDGE-ID is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :ELEMENT is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :TAG is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :GRAPH is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :COLOR is not a known argument keyword.

; compiling (DEFMETHOD MAKE-GRAPH-FROM-VERTEXES ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graph-algorithms.lisp
; in: DEFMETHOD MAKE-GRAPH-FROM-VERTEXES (LIST)
;     (CL-GRAPH:ADD-EDGE-BETWEEN-VERTEXES CL-GRAPH::G
;                                       (METABANG.UTILITIES:ELEMENT CL-GRAPH::V1)
;                                       (METABANG.UTILITIES:ELEMENT CL-GRAPH::V2)
;                                       :EDGE-TYPE
;                                       (IF
;                                        (CL-GRAPH:DIRECTED-EDGE-P CL-GRAPH::E)
;                                        :DIRECTED
;                                        :UNDIRECTED)
;                                       :IF-DUPLICATE-DO
;                                       :FORCE
;                                       :EDGE-CLASS
;                                       (TYPE-OF CL-GRAPH::E)
;                                       :VALUE
;                                       (CL-GRAPH::VALUE CL-GRAPH::E)
;                                       ...)
; 
; caught STYLE-WARNING:
;   :EDGE-CLASS is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :VALUE is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :EDGE-ID is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :ELEMENT is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :TAG is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :GRAPH is not a known argument keyword.
; 
; caught STYLE-WARNING:
;   :COLOR is not a known argument keyword.

; compiling (DEFMETHOD EDGE-LESSP-BY-WEIGHT ...)
; compiling (DEFMETHOD MINIMUM-SPANNING-TREE ...)
; compiling (DEFMETHOD CONNECTED-GRAPH-P ...)
; compiling (DEFPARAMETER *DEPTH-FIRST-SEARCH-TIMER* ...)
; compiling (DEFMETHOD EDGE-LESSP-BY-DIRECTION ...)
; compiling (DEFMETHOD OUT-EDGE-FOR-VERTEX-P ...)
; compiling (DEFMETHOD DFS ...)
; compiling (DEFMETHOD DFS ...)
; compiling (DEFMETHOD DFS-VISIT ...)
; compiling (DEFMETHOD DFS-TREE-EDGE-P ...)
; compiling (DEFMETHOD DFS-BACK-EDGE-P ...)
; compiling (DEFMETHOD DFS-FORWARD-EDGE-P ...)
; compiling (DEFMETHOD DFS-CROSS-EDGE-P ...)
; compiling (DEFMETHOD DFS-EDGE-TYPE ...)
; compiling (DEFMETHOD MAP-OVER-ALL-COMBINATIONS-OF-K-VERTEXES ...)
; compiling (DEFMETHOD MAP-OVER-ALL-COMBINATIONS-OF-K-EDGES ...)
; compiling (DEFMETHOD MAP-OVER-ALL-COMBINATIONS-OF-K-EDGES ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graph-algorithms.fasl written
; compilation finished in 0:00:04
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {40007F71}> on
   #<CL-SOURCE-FILE "graph-algorithms" {40007F81}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graphviz/graphviz-support.lisp" (written 04 APR 2006 09:26:26 AM):
; 
; caught STYLE-WARNING:
;   Character decoding error in a #|-comment at position 50 reading source file #<FD-STREAM for "file /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graphviz/graphviz-support.lisp" {413EDB89}>, resyncing.

; 
; caught STYLE-WARNING:
;   Character decoding error in a #|-comment at position 304 reading source file #<FD-STREAM for "file /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graphviz/graphviz-support.lisp" {413EDB89}>, resyncing.

; compiling (IN-PACKAGE METABANG.GRAPH)
; compiling (DEFMETHOD GRAPH->DOT ...)
; compiling (DEFMETHOD GRAPH->DOT ...)
; compiling (DEFMETHOD GRAPH->DOT ...)
; compiling (DEFMETHOD GRAPH->DOT ...)
; compiling (DEFMETHOD GRAPH->DOT ...)
; compiling (DEFMETHOD GRAPH->DOT-PROPERTIES ...)
; compiling (DEFMETHOD VERTEX->DOT ...)
; compiling (DEFMETHOD EDGE->DOT ...)
; compiling (DEFPARAMETER *DOT-GRAPH-ATTRIBUTES* ...)
; compiling (DEFPARAMETER *DOT-VERTEX-ATTRIBUTES* ...)
; compiling (DEFPARAMETER *DOT-EDGE-ATTRIBUTES* ...)
; compiling (DEFCLASS* DOT-ATTRIBUTES-MIXIN ...)
; compiling (DEFCLASS* DOT-GRAPH-MIXIN ...)
; compiling (DEFCLASS* DOT-VERTEX-MIXIN ...)
; compiling (DEFCLASS* DOT-EDGE-MIXIN ...)
; compiling (DEFCLASS* DOT-GRAPH ...)
; compiling (DEFCLASS* DOT-VERTEX ...)
; compiling (DEFCLASS* DOT-EDGE ...)
; compiling (DEFCLASS* DOT-DIRECTED-EDGE ...)
; compiling (DEFMETHOD (SETF DOT-ATTRIBUTE-VALUE) ...)
; compiling (DEFMETHOD (SETF DOT-ATTRIBUTE-VALUE) ...)
; compiling (DEFMETHOD DOT-ATTRIBUTE-VALUE ...)
; compiling (DEFMETHOD GRAPH->DOT-PROPERTIES ...)
; compiling (DEFMETHOD VERTEX->DOT ...)
; compiling (DEFMETHOD EDGE->DOT ...)
; compiling (DEFUN FORMAT-DOT-ATTRIBUTES ...)
; compiling (DEFMETHOD ENSURE-VALID-DOT-ATTRIBUTE ...)
; compiling (DEFMETHOD ENSURE-VALID-DOT-ATTRIBUTE ...)
; compiling (DEFMETHOD ENSURE-VALID-DOT-ATTRIBUTE ...)
; compiling (DEFUN PRINT-DOT-KEY-VALUE ...)
; compiling (DEFMETHOD WRITE-NAME-FOR-DOT ...)
; compiling (DEFMETHOD WRITE-NAME-FOR-DOT ...)
; compiling (DEFUN TEXTIFY ...)
; compiling (DEFVAR *DOT-PATH* ...)
; compiling (DEFMETHOD GRAPH->DOT-EXTERNAL ...)
; compiling (DEFUN TEST-DOT-EXTERNAL ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graphviz/graphviz-support.lisp
; in: DEFUN TEST-DOT-EXTERNAL
;     (CL-GRAPH:ADD-EDGE-BETWEEN-VERTEXES CL-GRAPH::G
;                                       CL-GRAPH::V1
;                                       CL-GRAPH::V2
;                                       :DOT-ATTRIBUTES
;                                       '(:ARROWHEAD :OPEN
;                                                    :ARROWTAIL
;                                                    :NORMAL
;                                                    :STYLE
;                                                    :DOTTED))
; 
; caught STYLE-WARNING:
;   :DOT-ATTRIBUTES is not a known argument keyword.

;     (CL-GRAPH:ADD-VERTEX CL-GRAPH::G
;                        'CL-GRAPH::B
;                        :DOT-ATTRIBUTES
;                        '(:SHAPE :CIRCLE :STYLE :FILLED :COLOR :YELLOW))
; 
; caught STYLE-WARNING:
;   :DOT-ATTRIBUTES is not a known argument keyword.

;     (CL-GRAPH:ADD-VERTEX CL-GRAPH::G
;                        'CL-GRAPH::A
;                        :DOT-ATTRIBUTES
;                        '(:SHAPE :BOX :COLOR :BLUE))
; 
; caught STYLE-WARNING:
;   :DOT-ATTRIBUTES is not a known argument keyword.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/cl-graph/dev/graphviz/graphviz-support.fasl written
; compilation finished in 0:00:02
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {10007DA1}> on
   #<CL-SOURCE-FILE "graphviz-support" {10007DB1}>.
STYLE-WARNING:
   implicitly creating new generic function (SETF DOT-ATTRIBUTE-VALUE)
STYLE-WARNING: implicitly creating new generic function DOT-ATTRIBUTE-VALUE
STYLE-WARNING:
   implicitly creating new generic function ENSURE-VALID-DOT-ATTRIBUTE
STYLE-WARNING: implicitly creating new generic function WRITE-NAME-FOR-DOT
STYLE-WARNING: implicitly creating new generic function GRAPH->DOT-EXTERNAL

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/spy.lisp
; in: DEFUN METABANG.UTILITIES::SPY-PARSE-ARGLIST
;     (METABANG.UTILITIES::DEBUGGING-P-FN DEBUG)
; 
; caught STYLE-WARNING:
;   undefined function: METABANG.UTILITIES::DEBUGGING-P-FN


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/dates-and-times.lisp
; in: DEFUN METABANG.UTILITIES:FORMAT-DATE
;     (METABANG.UTILITIES:NYI)
; 
; caught STYLE-WARNING:
;   undefined function: METABANG.UTILITIES:NYI


; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/metatilities/dev/utilities/utilities.lisp
; in: DEFUN METABANG.UTILITIES:ADD-CLASS-IF-NECESSARY
;     (METABANG.UTILITIES:PUSH-END METABANG.UTILITIES::SUPERCLASS-NAME
;                                METABANG.UTILITIES::CLASS-LIST)
; 
; caught STYLE-WARNING:
;   undefined function: METABANG.UTILITIES:PUSH-END

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     METABANG.UTILITIES::DEBUGGING-P-FN METABANG.UTILITIES:NYI METABANG.UTILITIES:PUSH-END
; 
; compilation unit finished
;   caught 27 STYLE-WARNING conditions
;   printed 18 notes
;;; ASDF-INSTALL: Downloading package LML2, required by tinaa

;;; ASDF-INSTALL: Downloading 28251 bytes from http://files.b9.com/lml2/lml2-latest.tar.gz to /Users/gwking/temporary/asdf-test/lml2.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/lml2.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
lml2-1.5.5/
lml2-1.5.5/read-macro.lisp
lml2-1.5.5/data.lisp
lml2-1.5.5/base.lisp
lml2-1.5.5/LICENSE
lml2-1.5.5/downloads.lisp
lml2-1.5.5/stdsite.lisp
lml2-1.5.5/ChangeLog
lml2-1.5.5/README
lml2-1.5.5/apache-dir.lisp
lml2-1.5.5/package.lisp
lml2-1.5.5/doc/
lml2-1.5.5/doc/readme.html
lml2-1.5.5/doc/readme.lml
lml2-1.5.5/doc/make.lisp
lml2-1.5.5/doc/Makefile
lml2-1.5.5/htmlgen.lisp
lml2-1.5.5/lml2-tests.asd
lml2-1.5.5/utils.lisp
lml2-1.5.5/tests.lisp
lml2-1.5.5/files.lisp
lml2-1.5.5/lml2.asd

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/" ;;; ASDF-INSTALL: Downloading package KMRCL, required by lml2

;;; ASDF-INSTALL: Downloading 43672 bytes from http://files.b9.com/kmrcl/kmrcl-latest.tar.gz to /Users/gwking/temporary/asdf-test/kmrcl.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/kmrcl.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
kmrcl-1.85/
kmrcl-1.85/seqs.lisp
kmrcl-1.85/sockets.lisp
kmrcl-1.85/buff-input.lisp
kmrcl-1.85/color.lisp
kmrcl-1.85/listener.lisp
kmrcl-1.85/random.lisp
kmrcl-1.85/docbook.lisp
kmrcl-1.85/os.lisp
kmrcl-1.85/macros.lisp
kmrcl-1.85/attrib-class.lisp
kmrcl-1.85/strmatch.lisp
kmrcl-1.85/symbols.lisp
kmrcl-1.85/ifstar.lisp
kmrcl-1.85/strings.lisp
kmrcl-1.85/math.lisp
kmrcl-1.85/datetime.lisp
kmrcl-1.85/byte-stream.lisp
kmrcl-1.85/xml-utils.lisp
kmrcl-1.85/impl.lisp
kmrcl-1.85/repl.lisp
kmrcl-1.85/console.lisp
kmrcl-1.85/processes.lisp
kmrcl-1.85/Makefile
kmrcl-1.85/equal.lisp
kmrcl-1.85/functions.lisp
kmrcl-1.85/kmrcl.asd
kmrcl-1.85/web-utils.lisp
kmrcl-1.85/README
kmrcl-1.85/package.lisp
kmrcl-1.85/mop.lisp
kmrcl-1.85/run-tests.lisp
kmrcl-1.85/lists.lisp
kmrcl-1.85/tests.lisp
kmrcl-1.85/io.lisp
kmrcl-1.85/kmrcl-tests.asd

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/" 
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/package.lisp" (written 26 APR 2005 09:40:35 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE #:KMRCL ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/ifstar.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFVAR IF*-KEYWORD-LIST ...)
; compiling (DEFMACRO IF* ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/ifstar.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/byte-stream.lisp" (written 06 APR 2005 01:40:45 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (WHEN (SB-EXT:WITHOUT-PACKAGE-LOCKS #) ...)
; compiling (DEFSTRUCT (BYTE-ARRAY-OUTPUT-STREAM # ...) ...)
; compiling (DEFUN %PRINT-BYTE-ARRAY-OUTPUT-STREAM ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN BYTE-ARRAY-BOUT ...)
; compiling (DEFUN BYTE-ARRAY-OUT-MISC ...)
; compiling (DEFUN GET-OUTPUT-STREAM-DATA ...)
; compiling (DEFUN DUMP-OUTPUT-STREAM-DATA ...)
; compiling (SB-EXT:WITHOUT-PACKAGE-LOCKS (DEFVAR *SYSTEM-COPY-FN* ...) ...)
; compiling (DEFSTRUCT (BYTE-ARRAY-INPUT-STREAM # ...) ...)
; compiling (DEFUN %PRINT-BYTE-ARRAY-INPUT-STREAM ...)
; compiling (DEFUN BYTE-ARRAY-INCH ...)
; compiling (DEFUN BYTE-ARRAY-BINCH ...)
; compiling (DEFUN BYTE-ARRAY-STREAM-READ-N-BYTES ...)
; compiling (DEFUN BYTE-ARRAY-IN-MISC ...)
; compiling (DEFUN MAKE-BYTE-ARRAY-INPUT-STREAM ...)
; compiling (SETQ *FEATURES* ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/byte-stream.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/macros.lisp" (written 01 OCT 2004 02:41:31 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFMACRO LET-WHEN ...)
; compiling (DEFMACRO LET-IF ...)
; compiling (DEFMACRO AIF ...)
; compiling (DEFMACRO AWHEN ...)
; compiling (DEFMACRO AWHILE ...)
; compiling (DEFMACRO AAND ...)
; compiling (DEFMACRO ACOND ...)
; compiling (DEFMACRO ALAMBDA ...)
; compiling (DEFMACRO AIF2 ...)
; compiling (DEFMACRO AWHEN2 ...)
; compiling (DEFMACRO AWHILE2 ...)
; compiling (DEFMACRO ACOND2 ...)
; compiling (DEFMACRO MAC ...)
; compiling (DEFMACRO PRINT-FORM-AND-RESULTS ...)
; compiling (DEFMACRO UNTIL ...)
; compiling (DEFMACRO WHILE ...)
; compiling (DEFMACRO FOR ...)
; compiling (DEFMACRO WITH-EACH-STREAM-LINE ...)
; compiling (DEFMACRO WITH-EACH-FILE-LINE ...)
; compiling (DEFMACRO IN ...)
; compiling (DEFMACRO MEAN ...)
; compiling (DEFMACRO WITH-GENSYMS ...)
; compiling (DEFMACRO TIME-SECONDS ...)
; compiling (DEFMACRO TIME-ITERATIONS ...)
; compiling (DEFMACRO MV-BIND ...)
; compiling (DEFMACRO DEFLEX ...)
; compiling (DEFMACRO DEF-CACHED-VECTOR ...)
; compiling (DEFMACRO DEF-CACHED-INSTANCE ...)
; compiling (DEFMACRO WITH-IGNORE-ERRORS ...)
; compiling (DEFMACRO PPMX ...)
; compiling (DEFMACRO DEFCONSTANT* ...)
; compiling (DEFMACRO DEFVAR-UNBOUND ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/macros.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/functions.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE :KMRCL)
; compiling (DEFUN MEMO-PROC ...)
; compiling (DEFUN MEMOIZE ...)
; compiling (DEFMACRO DEFUN-MEMO ...)
; compiling (DEFMACRO _F ...)
; compiling (DEFUN COMPOSE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/functions.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/lists.lisp" (written 11 NOV 2004 04:58:24 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN MKLIST ...)
; compiling (DEFUN MAP-AND-REMOVE-NILS ...)
; compiling (DEFUN FILTER ...)
; compiling (DEFUN APPENDNEW ...)
; compiling (DEFUN REMOVE-FROM-TREE-IF ...)
; compiling (DEFUN FIND-TREE ...)
; compiling (DEFUN FLATTEN ...)
; compiling (DEFUN REMOVE-KEYWORD ...)
; compiling (DEFUN REMOVE-KEYWORDS ...)
; compiling (DEFUN MAPAPPEND ...)
; compiling (DEFUN MAPCAR-APPEND-STRING-NONTAILREC ...)
; compiling (DEFUN MAPCAR-APPEND-STRING ...)
; compiling (DEFUN MAPCAR2-APPEND-STRING-NONTAILREC ...)
; compiling (DEFUN MAPCAR2-APPEND-STRING ...)
; compiling (DEFUN APPEND-SUBLISTS ...)
; compiling (DEFUN ALIST-ELEM-P ...)
; compiling (DEFUN ALISTP ...)
; compiling (DEFMACRO UPDATE-ALIST ...)
; compiling (DEFUN GET-ALIST ...)
; compiling (DEFUN (SETF GET-ALIST) ...)
; compiling (DEFUN ALIST-PLIST ...)
; compiling (DEFUN PLIST-ALIST ...)
; compiling (DEFMACRO UPDATE-PLIST ...)
; compiling (DEFUN UNIQUE-SLOT-VALUES ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/lists.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/seqs.lisp" (written 15 SEP 2004 12:45:06 PM):
; compiling (IN-PACKAGE :KMRCL)
; compiling (DEFUN NSUBSEQ ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/seqs.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/impl.lisp" (written 01 OCT 2004 02:41:31 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN CANONICALIZE-DIRECTORY-NAME ...)
; compiling (DEFUN PROBE-DIRECTORY ...)
; compiling (DEFUN CWD ...)
; compiling (DEFUN QUIT ...)
; compiling (DEFUN COMMAND-LINE-ARGUMENTS ...)
; compiling (DEFUN COPY-FILE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/impl.lisp
; in: DEFUN COPY-FILE
;     (DEFUN KMRCL:COPY-FILE
;          (KMRCL::FROM KMRCL::TO
;           &KEY KMRCL::LINK KMRCL::OVERWRITE KMRCL::PRESERVE-SYMBOLIC-LINKS
;           (KMRCL::PRESERVE-TIME T) KMRCL::REMOVE-DESTINATION KMRCL::FORCE
;           KMRCL::VERBOSE)
;     (COND
;      ((AND (TYPEP KMRCL::FROM 'STREAM) (TYPEP KMRCL::TO 'STREAM))
;       (KMRCL:COPY-BINARY-STREAM KMRCL::FROM KMRCL::TO))
;      ((NOT (PROBE-FILE KMRCL::FROM))
;       (ERROR "File ~A does not exist." KMRCL::FROM))
;      ((EQ KMRCL::LINK :HARD)
;       (KMRCL:RUN-SHELL-COMMAND "ln -f ~A ~A"
;                                (NAMESTRING KMRCL::FROM)
;                                (NAMESTRING KMRCL::TO)))
;      (KMRCL::LINK
;       (MULTIPLE-VALUE-BIND
;           (KMRCL::STDOUT KMRCL::STDERR KMRCL::STATUS)
;           (KMRCL:COMMAND-OUTPUT "ln -f ~A ~A" # #)
;         (DECLARE #)
;         (UNLESS # #)))
;      (T (WHEN (AND # #) (DELETE-FILE KMRCL::TO))
;         (LET* (# #)
;           (KMRCL:RUN-SHELL-COMMAND KMRCL::CMD)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA KMRCL:COPY-FILE
;                          (KMRCL::FROM KMRCL::TO
;                                       &KEY
;                                       KMRCL::LINK
;                                       KMRCL::OVERWRITE
;                                       KMRCL::PRESERVE-SYMBOLIC-LINKS
;                                       (KMRCL::PRESERVE-TIME T)
;                                       KMRCL::REMOVE-DESTINATION
;                                       KMRCL::FORCE
;                                       KMRCL::VERBOSE)
;                          (BLOCK KMRCL:COPY-FILE
;                            (COND
;                             ((AND # #)
;                              (KMRCL:COPY-BINARY-STREAM KMRCL::FROM KMRCL::TO))
;                             ((NOT #)
;                              (ERROR "File ~A does not exist." KMRCL::FROM))
;                             ((EQ KMRCL::LINK :HARD)
;                              (KMRCL:RUN-SHELL-COMMAND "ln -f ~A ~A" # #))
;                             (KMRCL::LINK (MULTIPLE-VALUE-BIND # # # #))
;                             (T (WHEN # #)
;                                (LET* #
;                                  #)))))
; 
; caught STYLE-WARNING:
;   The variable OVERWRITE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PRESERVE-SYMBOLIC-LINKS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable VERBOSE is defined but never used.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/impl.fasl written
; compilation finished in 0:00:00
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {10008541}> on
   #<CL-SOURCE-FILE "impl" {10203B89}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/io.lisp" (written 11 NOV 2004 04:58:24 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN PRINT-FILE-CONTENTS ...)
; compiling (DEFUN READ-STREAM-TO-STRING ...)
; compiling (DEFUN READ-FILE-TO-STRING ...)
; compiling (DEFUN READ-FILE-TO-USB8-ARRAY ...)
; compiling (DEFUN READ-STREAM-TO-STRINGS ...)
; compiling (DEFUN READ-FILE-TO-STRINGS ...)
; compiling (DEFUN FILE-SUBST ...)
; compiling (DEFUN PRINT-N-CHARS ...)
; compiling (DEFUN PRINT-N-STRINGS ...)
; compiling (DEFUN INDENT-SPACES ...)
; compiling (DEFUN INDENT-HTML-SPACES ...)
; compiling (DEFUN PRINT-LIST ...)
; compiling (DEFUN PRINT-ROWS ...)
; compiling (DEFSTRUCT BUF ...)
; compiling (DEFUN BREF ...)
; compiling (DEFUN (SETF BREF) ...)
; compiling (DEFUN NEW-BUF ...)
; compiling (DEFUN BUF-INSERT ...)
; compiling (DEFUN BUF-POP ...)
; compiling (DEFUN BUF-NEXT ...)
; compiling (DEFUN BUF-RESET ...)
; compiling (DEFUN BUF-CLEAR ...)
; compiling (DEFUN BUF-FLUSH ...)
; compiling (DEFUN STREAM-SUBST ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/io.lisp
; in: DEFUN STREAM-SUBST
;     (KMRCL::BUF-FLUSH KMRCL::BUF KMRCL::OUT)
; ==>
;   KMRCL::BUF
; 
; note: deleting unreachable code

; compiling (DECLAIM (INLINE WRITE-FIXNUM))
; compiling (DEFUN WRITE-FIXNUM ...)
; compiling (DEFUN NULL-OUTPUT-STREAM ...)
; compiling (DEFUN DIRECTORY-TREE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/io.lisp
; in: DEFUN DIRECTORY-TREE
;     (ERROR "~A" KMRCL::ROOT)
; ==>
;   "~A"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; compiling (DEFMACRO WITH-UTIME-DECODING ...)
; compiling (DEFVAR +DATETIME-NUMBER-STRINGS+ ...)
; compiling (DEFUN IS-DST ...)
; compiling (DEFMACRO WITH-UTIME-DECODING-UTC-OFFSET ...)
; compiling (DEFUN WRITE-UTIME-HMS ...)
; compiling (DEFUN WRITE-UTIME-HMS-STREAM ...)
; compiling (DEFUN WRITE-UTIME-HM ...)
; compiling (DEFUN WRITE-UTIME-HM-STREAM ...)
; compiling (DEFUN WRITE-UTIME-YMDHMS ...)
; compiling (DEFUN WRITE-UTIME-YMDHMS-STREAM ...)
; compiling (DEFUN WRITE-UTIME-YMDHM ...)
; compiling (DEFUN WRITE-UTIME-YMDHM-STREAM ...)
; compiling (DEFUN COPY-BINARY-STREAM ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/io.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/console.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFVAR *CONSOLE-MSGS* ...)
; compiling (DEFVAR *CONSOLE-MSGS-TYPES* ...)
; compiling (DEFUN CMSG ...)
; compiling (DEFUN CMSG-C ...)
; compiling (DEFUN CMSG-ADD ...)
; compiling (DEFUN CMSG-REMOVE ...)
; compiling (DEFUN FIXME ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/console.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp" (written 01 OCT 2004 02:41:31 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFMACRO STRING-APPEND ...)
; compiling (DEFUN LIST-TO-STRING ...)
; compiling (DEFUN COUNT-STRING-WORDS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN COUNT-STRING-WORDS
;     (ALPHANUMERICP (SCHAR KMRCL::STR KMRCL::I))
; --> BLOCK LET OR LET < IF 
; ==>
;   (< GC 5)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> BLOCK LET OR LET IF OR = IF 
; ==>
;   (= GC 12)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK LET OR LET < IF 
; ==>
;   (< GC 5)
; 
; 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.

; compiling (DEFUN POSITION-CHAR ...)
; compiling (DEFUN POSITION-NOT-CHAR ...)
; compiling (DEFUN DELIMITED-STRING-TO-LIST ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN DELIMITED-STRING-TO-LIST
;     (SUBSEQ STRING KMRCL::POS KMRCL::END)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY CHARACTER (*))
;                                              &REST
;                                              T).

;     (SUBSEQ STRING KMRCL::POS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY CHARACTER (*))
;                                              &REST
;                                              T).

; compiling (DEFUN LIST-TO-DELIMITED-STRING ...)
; compiling (DEFUN STRING-INVERT ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN STRING-INVERT
;     (UPPER-CASE-P CHAR)
; --> BLOCK = IF 
; ==>
;   (= (SB-IMPL::UCD-VALUE-0 CHAR) 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (LOWER-CASE-P CHAR)
; --> BLOCK = IF 
; ==>
;   (= (SB-IMPL::UCD-VALUE-0 CHAR) 1)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; compiling (DEFUN ADD-SQL-QUOTES ...)
; compiling (DEFUN ESCAPE-BACKSLASHES ...)
; compiling (DEFUN SUBSTITUTE-STRING-FOR-CHAR ...)
; compiling (DEFUN STRING-SUBSTITUTE ...)
; compiling (DEFUN STRING-TRIM-LAST-CHARACTER ...)
; compiling (DEFUN NSTRING-TRIM-LAST-CHARACTER ...)
; compiling (DEFUN STRING-HASH ...)
; compiling (DEFUN IS-STRING-EMPTY ...)
; compiling (DEFVAR *WHITESPACE-CHARS* ...)
; compiling (DEFUN IS-CHAR-WHITESPACE ...)
; compiling (DEFUN IS-STRING-WHITESPACE ...)
; compiling (DEFUN STRING-RIGHT-TRIM-WHITESPACE ...)
; compiling (DEFUN STRING-LEFT-TRIM-WHITESPACE ...)
; compiling (DEFUN STRING-TRIM-WHITESPACE ...)
; compiling (DEFUN REPLACED-STRING-LENGTH ...)
; compiling (DEFUN SUBSTITUTE-CHARS-STRINGS ...)
; compiling (DEFUN ESCAPE-XML-STRING ...)
; compiling (DEFUN MAKE-USB8-ARRAY ...)
; compiling (DEFUN USB8-ARRAY-TO-STRING ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN USB8-ARRAY-TO-STRING
;     (- KMRCL::END KMRCL::START)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.

; compiling (DEFUN STRING-TO-USB8-ARRAY ...)
; compiling (DEFUN CONCAT-SEPARATED-STRINGS ...)
; compiling (DEFUN ONLY-NULL-LIST-ELEMENTS-P ...)
; compiling (DEFUN PRINT-SEPARATED-STRINGS ...)
; compiling (DEFUN PREFIXED-FIXNUM-STRING ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN PREFIXED-FIXNUM-STRING
;     (MOD KMRCL::VAL 10)
; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
; 
; note: forced to do fixnum truncate (cost 50)
;       unable to do unsigned fixnum truncate (cost 45) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES (INTEGER -53687091 53687091)
;                               (INTEGER -9 9)
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
;                                                         (UNSIGNED-BYTE 29)
;                                                         &REST
;                                                         T).

;     (FLOOR KMRCL::VAL 10)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
; 
; note: forced to do fixnum truncate (cost 50)
;       unable to do unsigned fixnum truncate (cost 45) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES (INTEGER -53687091 53687091)
;                               (INTEGER -9 9)
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
;                                                         (UNSIGNED-BYTE 29)
;                                                         &REST
;                                                         T).

;     (MOD KMRCL::VAL 10)
; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-KERNEL::DIVISOR)
; 
; note: forced to do fixnum truncate (cost 50)
;       unable to do unsigned fixnum truncate (cost 45) because:
;       The first argument is a (INTEGER -53687092
;                                        53687091), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES (INTEGER -5368709 5368709)
;                               (INTEGER -9 9)
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
;                                                         (UNSIGNED-BYTE 29)
;                                                         &REST
;                                                         T).

; compiling (DEFUN INTEGER-STRING ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN INTEGER-STRING
;     (MINUSP KMRCL::NUM)
; --> < IF 
; ==>
;   (< KMRCL::NUM 0)
; 
; 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.

;     (- 0 KMRCL::NUM)
; ==>
;   (SB-KERNEL:%NEGATE SB-C::Y)
; 
; note: forced to do static-fun %Negate (cost 52)
;       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 (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).

;     (MOD KMRCL::VAL 10)
; --> BLOCK LET IF AND IF AND IF MINUSP 
; ==>
;   (< NUMBER 0)
; 
; 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.

;     (FLOOR KMRCL::VAL 10)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF AND IF 
; --> MINUSP 
; ==>
;   (< NUMBER 0)
; 
; 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.

; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES 1- 
; ==>
;   (- SB-KERNEL::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.

;     (MOD KMRCL::VAL 10)
; --> BLOCK LET IF AND IF AND IF MINUSP 
; ==>
;   (< NUMBER 0)
; 
; 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 FAST-STRING-SEARCH ...)
; compiling (DEFUN STRING-DELIMITED-STRING-TO-LIST ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN STRING-DELIMITED-STRING-TO-LIST
;     (SUBSEQ KMRCL::STR KMRCL::POS KMRCL::END)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY CHARACTER (*))
;                                              &REST
;                                              T).

;     (SUBSEQ KMRCL::STR KMRCL::POS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY CHARACTER (*))
;                                              &REST
;                                              T).

; compiling (DEFUN STRING-TO-LIST-SKIP-DELIMITER ...)
; compiling (DEFUN STRING-STARTS-WITH ...)
; compiling (DEFUN COUNT-STRING-CHAR ...)
; compiling (DEFUN COUNT-STRING-CHAR-IF ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN COUNT-STRING-CHAR-IF
;     (FUNCALL KMRCL::PRED (SCHAR KMRCL::S KMRCL::I))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

; compiling (DEFUN NON-ALPHANUMERICP ...)
; compiling (DEFVAR +HEX-CHARS+ ...)
; compiling (DECLAIM (TYPE SIMPLE-STRING ...))
; compiling (DEFUN HEXCHAR ...)
; compiling (DEFCONSTANT* +CHAR-CODE-LOWER-A+ ...)
; compiling (DEFCONSTANT* +CHAR-CODE-UPPER-A+ ...)
; compiling (DEFCONSTANT* +CHAR-CODE-0+ ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFUN CHARHEX ...)
; compiling (DEFUN ENCODE-URI-STRING ...)
; compiling (DEFUN DECODE-URI-STRING ...)
; compiling (DEFVAR +UNAMBIGUOUS-CHARSET+ ...)
; compiling (DEFCONSTANT* +UNAMBIGUOUS-LENGTH+ ...)
; compiling (DEFUN RANDOM-CHAR ...)
; compiling (DEFUN RANDOM-STRING ...)
; compiling (DEFUN FIRST-CHAR ...)
; compiling (DEFUN LAST-CHAR ...)
; compiling (DEFUN ENSURE-STRING ...)
; compiling (DEFUN STRING-RIGHT-TRIM-ONE-CHAR ...)
; compiling (DEFUN STRING-STRIP-ENDING ...)
; compiling (DEFUN STRING-MAYBE-SHORTEN ...)
; compiling (DEFUN STRING-ELIDE ...)
; compiling (DEFUN SHRINK-VECTOR ...)
; compiling (DEFUN LEX-STRING ...)
; compiling (DEFUN SPLIT-ALPHANUMERIC-STRING ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN SPLIT-ALPHANUMERIC-STRING
;     (POSITION-IF-NOT #'KMRCL::IS-SEP STRING)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF-NOT
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
;    SEQUENCE
;    SB-C::FROM-END
;    SB-C::START
;    SB-C::END
;    (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time

;     (POSITION-IF #'KMRCL::IS-SEP STRING :START KMRCL::TOKEN-START)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
;    SEQUENCE
;    SB-C::FROM-END
;    SB-C::START
;    SB-C::END
;    (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time

;     (SUBSEQ STRING KMRCL::TOKEN-START KMRCL::TOKEN-END)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY CHARACTER (*))
;                                              &REST
;                                              T).

;     (POSITION-IF-NOT #'KMRCL::IS-SEP STRING :START (1+ KMRCL::TOKEN-END))
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF-NOT
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
;    SEQUENCE
;    SB-C::FROM-END
;    SB-C::START
;    SB-C::END
;    (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time

;     (POSITION-IF #'KMRCL::IS-SEP STRING :START KMRCL::TOKEN-START)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C:PREDICATE)
;    SEQUENCE
;    SB-C::FROM-END
;    SB-C::START
;    SB-C::END
;    (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; note: unable to
;   expand inline
; because:
;   upgraded array element type not known at compile time

; compiling (DEFUN TRIM-NON-ALPHANUMERIC ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.lisp
; in: DEFUN TRIM-NON-ALPHANUMERIC
;     (ALPHANUMERICP (SCHAR KMRCL::WORD (1- KMRCL::END)))
; --> BLOCK LET OR LET < IF 
; ==>
;   (< GC 5)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> BLOCK LET OR LET IF OR = IF 
; ==>
;   (= GC 12)
; 
; 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.

;     (SUBSEQ KMRCL::WORD KMRCL::START KMRCL::END)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY CHARACTER (*))
;                                              &REST
;                                              T).

;     (ALPHANUMERICP (SCHAR KMRCL::WORD KMRCL::START))
; --> BLOCK LET OR LET < IF 
; ==>
;   (< GC 5)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

; --> BLOCK LET OR LET IF OR = IF 
; ==>
;   (= GC 12)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK LET OR LET < IF 
; ==>
;   (< GC 5)
; 
; 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.

;     (ALPHANUMERICP (SCHAR KMRCL::WORD (1- KMRCL::END)))
; --> BLOCK LET OR LET < IF 
; ==>
;   (< GC 5)
; 
; 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.

; compiling (DEFUN COLLAPSE-WHITESPACE ...)
; compiling (DEFUN STRING->LIST ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strings.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strmatch.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN SCORE-MULTIWORD-MATCH ...)
; compiling (DEFUN MULTIWORD-MATCH ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/strmatch.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp" (written 19 JAN 2006 01:11:42 PM):
; compiling (IN-PACKAGE :KMRCL)
; compiling (DEFCONSTANT +MAX-FIELD+ ...)
; compiling (DEFCONSTANT +MAX-FIELDS-PER-LINE+ ...)
; compiling (DEFCONSTANT +FIELD-DELIM+ ...)
; compiling (DEFCONSTANT +EOF-CHAR+ ...)
; compiling (DEFCONSTANT +NEWLINE+ ...)
; compiling (DECLAIM (TYPE CHARACTER ...) ...)
; compiling (DEFUN MAKE-FIELDS-BUFFER ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp
; in: DEFUN MAKE-FIELDS-BUFFER
;     (MAKE-ARRAY KMRCL::MAX-FIELDS
;               :ELEMENT-TYPE
;               'VECTOR
;               :FILL-POINTER
;               0
;               :ADJUSTABLE
;               NIL)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST.

;     (MAKE-ARRAY KMRCL::MAX-FIELD-LEN
;               :ELEMENT-TYPE
;               'CHARACTER
;               :FILL-POINTER
;               0
;               :ADJUSTABLE
;               NIL)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST.

;     (SETF (AREF KMRCL::BUFS KMRCL::I)
;           (MAKE-ARRAY KMRCL::MAX-FIELD-LEN
;                       :ELEMENT-TYPE
;                       'CHARACTER
;                       :FILL-POINTER
;                       0
;                       :ADJUSTABLE
;                       NIL))
; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR T), not a SIMPLE-ARRAY.

; compiling (DEFUN READ-BUFFERED-FIELDS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp
; in: DEFUN READ-BUFFERED-FIELDS
;     (AREF KMRCL::FIELDS KMRCL::IFIELD)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (CHAR KMRCL::FIELD KMRCL::IPOS) KMRCL::RC)
; --> SB-KERNEL:%CHARSET SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a BASE-STRING, not a SIMPLE-ARRAY.

; compiling (DEFSTRUCT FIELD-BUFFERS ...)
; compiling (DEFUN MAKE-FIELDS-BUFFER2 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp
; in: DEFUN MAKE-FIELDS-BUFFER2
;     (MAKE-ARRAY KMRCL::MAX-FIELDS
;               :ELEMENT-TYPE
;               'VECTOR
;               :FILL-POINTER
;               NIL
;               :ADJUSTABLE
;               NIL)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST.

;     (MAKE-ARRAY KMRCL::MAX-FIELD-LEN
;               :ELEMENT-TYPE
;               'CHARACTER
;               :FILL-POINTER
;               NIL
;               :ADJUSTABLE
;               NIL)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST.

; compiling (DEFUN READ-BUFFERED-FIELDS2 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp
; in: DEFUN READ-BUFFERED-FIELDS2
;     (AREF (KMRCL::FIELD-BUFFERS-BUFFERS KMRCL::FIELDS) KMRCL::IFIELD)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SETF (AREF (KMRCL::FIELD-BUFFERS-FIELD-LENGTHS KMRCL::FIELDS) KMRCL::IFIELD)
;           KMRCL::IPOS)
; --> SB-KERNEL:%ASET LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN BFIELD ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp
; in: DEFUN BFIELD
;     (>= KMRCL::I (KMRCL::FIELD-BUFFERS-NFIELDS KMRCL::FIELDS))
; --> IF 
; ==>
;   (< KMRCL::I (KMRCL::FIELD-BUFFERS-NFIELDS KMRCL::FIELDS))
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (AREF (KMRCL::FIELD-BUFFERS-BUFFERS KMRCL::FIELDS) KMRCL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (AREF (KMRCL::FIELD-BUFFERS-FIELD-LENGTHS KMRCL::FIELDS) KMRCL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SUBSEQ (AREF (KMRCL::FIELD-BUFFERS-BUFFERS KMRCL::FIELDS) KMRCL::I)
;           0
;           (AREF (KMRCL::FIELD-BUFFERS-FIELD-LENGTHS KMRCL::FIELDS) KMRCL::I))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING.
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY CHARACTER (*))
;                                              &REST
;                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY SINGLE-FLOAT (*))
;                                              &REST
;                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR.
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY (UNSIGNED-BYTE 2)
;                                                            (*))
;                                              &REST
;                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY (UNSIGNED-BYTE 4)
;                                                            (*))
;                                              &REST
;                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY (UNSIGNED-BYTE 7)
;                                                            (*))
;                                              &REST
;                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY (UNSIGNED-BYTE 8)
;                                                            (*))
;                                              &REST
;                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY (UNSIGNED-BYTE 15)
;                                                            (*))
;                                              &REST
;                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY (UNSIGNED-BYTE 16)
;                                                            (*))
;                                              &REST
;                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY (UNSIGNED-BYTE 29)
;                                                            (*))
;                                              &REST
;                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY (UNSIGNED-BYTE 31)
;                                                            (*))
;                                              &REST
;                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY (UNSIGNED-BYTE 32)
;                                                            (*))
;                                              &REST
;                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
;                                              &REST
;                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY (SIGNED-BYTE 16)
;                                                            (*))
;                                              &REST
;                                              T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*))
;                                                     &REST
;                                                     T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY (SIGNED-BYTE 32)
;                                                            (*))
;                                              &REST
;                                              T).

;     (>= KMRCL::I (KMRCL::FIELD-BUFFERS-NFIELDS KMRCL::FIELDS))
; --> IF 
; ==>
;   (< KMRCL::I (KMRCL::FIELD-BUFFERS-NFIELDS KMRCL::FIELDS))
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.

; compiling (DEFCONSTANT +MAX-LINE+ ...)
; compiling (LET (#) ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.lisp
; in: DEFUN READ-BUFFERED-LINE
;     (SETF (CHAR KMRCL::LINEBUFFER KMRCL::POS) KMRCL::C)
; --> SB-KERNEL:%CHARSET SB-KERNEL:%ASET THE 
; ==>
;   KMRCL::LINEBUFFER
; 
; note: deleting unreachable code

;     (INCF KMRCL::POS)
; --> LET* + 
; ==>
;   KMRCL::POS
; 
; note: deleting unreachable code

;     (SETF (FILL-POINTER KMRCL::LINEBUFFER) (1- KMRCL::POS))
; --> SB-KERNEL:%SET-FILL-POINTER 
; ==>
;   KMRCL::LINEBUFFER
; 
; note: deleting unreachable code

;     (WARN "Line overflow")
; ==>
;   "Line overflow"
; 
; note: deleting unreachable code

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/buff-input.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/random.lisp" (written 15 SEP 2004 12:45:06 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN SEED-RANDOM-GENERATOR ...)
; compiling (DEFMACRO RANDOM-CHOICE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/random.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/symbols.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN CL-SYMBOLS ...)
; compiling (DEFUN CL-VARIABLES ...)
; compiling (DEFUN CL-FUNCTIONS ...)
; compiling (WHEN (CHAR= #\a ...) ...); in: LAMBDA NIL
;     (PUSHNEW :KMRCL-LOWERCASE-READER *FEATURES*)
; --> LET* ADJOIN 
; ==>
;   *FEATURES*
; 
; note: deleting unreachable code

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/symbols.lisp
; in: EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
;     (PUSHNEW :KMRCL-LOWERCASE-READER *FEATURES*)
; --> LET* ADJOIN 
; ==>
;   *FEATURES*
; 
; note: deleting unreachable code

; compiling (WHEN (NOT #) ...); in: LAMBDA NIL
;     (PUSHNEW :KMRCL-CASE-SENSITIVE *FEATURES*)
; --> LET* ADJOIN 
; ==>
;   *FEATURES*
; 
; note: deleting unreachable code

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/symbols.lisp
; in: EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
;     (PUSHNEW :KMRCL-CASE-SENSITIVE *FEATURES*)
; --> LET* ADJOIN 
; ==>
;   *FEATURES*
; 
; note: deleting unreachable code

; compiling (DEFUN STRING-DEFAULT-CASE ...)
; compiling (SETQ *FEATURES* ...)
; compiling (SETQ *FEATURES* ...)
; compiling (DEFUN CONCAT-SYMBOL-PKG ...)
; compiling (DEFUN CONCAT-SYMBOL ...)
; compiling (DEFUN ENSURE-KEYWORD ...)
; compiling (DEFUN ENSURE-KEYWORD-UPCASE ...)
; compiling (DEFUN ENSURE-KEYWORD-DEFAULT-CASE ...)
; compiling (DEFUN SHOW ...)
; compiling (DEFUN SHOW-VARIABLES ...)
; compiling (DEFUN SHOW-FUNCTIONS ...)
; compiling (DEFUN FIND-TEST-GENERIC-FUNCTIONS ...)
; compiling (DEFUN RUN-TESTS-FOR-INSTANCE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/symbols.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/datetime.lisp" (written 04 OCT 2004 01:42:33 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN PRETTY-DATE ...)
; compiling (DEFUN DATE-STRING ...)
; compiling (DEFUN PRINT-SECONDS ...)
; compiling (DEFUN PRINT-FLOAT-UNITS ...)
; compiling (DEFCONSTANT +POSIX-EPOCH+ ...)
; compiling (DEFUN POSIX-TIME-TO-UTIME ...)
; compiling (DEFUN UTIME-TO-POSIX-TIME ...)
; compiling (DEFVAR *MONTHNAMES* ...)
; compiling (DEFUN MONTHNAME ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/datetime.lisp
; in: DEFUN MONTHNAME
;     (DEFUN KMRCL::MONTHNAME
;          (STREAM KMRCL::ARG KMRCL::COLON-P KMRCL::AT-P
;           &OPTIONAL KMRCL::WIDTH (KMRCL::MINCOL 0) (KMRCL::COLINC 1)
;           (KMRCL::MINPAD 0) (KMRCL::PADCHAR #\ ))
;     "Print the name of the month (1=January) corresponding to ARG on STREAM.  This is intended for embedding in a FORMAT directive: WIDTH governs the number of characters of text printed, MINCOL, COLINC, MINPAD, PADCHAR work as for ~A"
;     (LET ((KMRCL::MONTHSTRING (CDR #)))
;       (IF (NOT KMRCL::MONTHSTRING) (RETURN-FROM KMRCL::MONTHNAME NIL))
;       (LET ((TRUNCATE #))
;         (FORMAT STREAM
;                 (IF KMRCL::AT-P "~V,V,V,V@A" "~V,V,V,VA")
;                 KMRCL::MINCOL
;                 KMRCL::COLINC
;                 KMRCL::MINPAD
;                 KMRCL::PADCHAR
;                 (SUBSEQ KMRCL::MONTHSTRING 0 TRUNCATE)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA KMRCL::MONTHNAME
;                          (STREAM KMRCL::ARG
;                                  KMRCL::COLON-P
;                                  KMRCL::AT-P
;                                  &OPTIONAL
;                                  KMRCL::WIDTH
;                                  (KMRCL::MINCOL 0)
;                                  (KMRCL::COLINC 1)
;                                  (KMRCL::MINPAD 0)
;                                  (KMRCL::PADCHAR #\ ))
;                          (BLOCK KMRCL::MONTHNAME
;                            (LET ((KMRCL::MONTHSTRING #))
;                              (IF (NOT KMRCL::MONTHSTRING)
;                                  (RETURN-FROM KMRCL::MONTHNAME NIL))
;                              (LET (#)
;                                (FORMAT STREAM
;                                        #
;                                        KMRCL::MINCOL
;                                        KMRCL::COLINC
;                                        KMRCL::MINPAD
;                                        KMRCL::PADCHAR
;                                        #)))))
; 
; caught STYLE-WARNING:
;   The variable COLON-P is defined but never used.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/datetime.fasl written
; compilation finished in 0:00:00
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {40008749}> on
   #<CL-SOURCE-FILE "datetime" {4020E349}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/math.lisp" (written 26 APR 2005 09:40:35 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN DERIV ...)
; compiling (DEFUN SIN^ ...)
; compiling (DEFMACRO ENSURE-INTEGER ...)
; compiling (DEFUN HISTOGRAM ...)
; compiling (DEFUN FIXNUM-WIDTH ...)
; compiling (DEFUN SCALED-EPSILON ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/math.lisp
; in: DEFUN SCALED-EPSILON
;     (TYPECASE FLOAT
;     (SHORT-FLOAT SHORT-FLOAT-NEGATIVE-EPSILON)
;     (SINGLE-FLOAT SINGLE-FLOAT-NEGATIVE-EPSILON)
;     (DOUBLE-FLOAT DOUBLE-FLOAT-NEGATIVE-EPSILON)
;     (LONG-FLOAT LONG-FLOAT-NEGATIVE-EPSILON))
; --> LET COND IF COND IF PROGN 
; ==>
;   SINGLE-FLOAT-NEGATIVE-EPSILON
; 
; note: deleting unreachable code

; --> LET COND IF COND IF COND IF COND IF PROGN 
; ==>
;   LONG-FLOAT-NEGATIVE-EPSILON
; 
; note: deleting unreachable code

;     (TYPECASE FLOAT
;     (SHORT-FLOAT SHORT-FLOAT-EPSILON)
;     (SINGLE-FLOAT SINGLE-FLOAT-EPSILON)
;     (DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON)
;     (LONG-FLOAT LONG-FLOAT-EPSILON))
; --> LET COND IF COND IF PROGN 
; ==>
;   SINGLE-FLOAT-EPSILON
; 
; note: deleting unreachable code

; --> LET COND IF COND IF COND IF COND IF PROGN 
; ==>
;   LONG-FLOAT-EPSILON
; 
; note: deleting unreachable code

; compiling (DEFUN SINC ...)
; compiling (DEFUN NUMBERS-WITHIN-PERCENTAGE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/math.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp" (written 15 SEP 2004 12:45:06 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN HSV->RGB ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN HSV->RGB
;     (ZEROP KMRCL::S)
; ==>
;   (= KMRCL::S 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (MINUSP KMRCL::H)
; ==>
;   (< KMRCL::H 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (INCF KMRCL::H 360)
; --> LET* 
; ==>
;   (+ KMRCL::H #:G9)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (>= KMRCL::H 360)
; --> IF 
; ==>
;   (< KMRCL::H 360)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (DECF KMRCL::H 360)
; --> LET* 
; ==>
;   (- KMRCL::H #:G13)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (/ KMRCL::H 60)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   convert x/2^k to shift
; due to type uncertainty:
;   The first argument is a REAL, not a INTEGER.

;     (TRUNCATE KMRCL::H-POS)
; --> 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.

;     (- 1 KMRCL::S)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (* KMRCL::V (- 1 KMRCL::S))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
;   The second argument is a NUMBER, not a INTEGER.

;     (* KMRCL::S KMRCL::H-FRAC)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
;   The second argument is a (OR (RATIONAL (-1) (1))
;                                (DOUBLE-FLOAT (-1.0d0) (1.0d0))
;                                (SINGLE-FLOAT (-1.0) (1.0))), 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 (OR (RATIONAL (-1) (1))
;                                (DOUBLE-FLOAT (-1.0d0) (1.0d0))
;                                (SINGLE-FLOAT (-1.0) (1.0))), 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 (OR (RATIONAL (-1) (1))
;                                (DOUBLE-FLOAT (-1.0d0) (1.0d0))
;                                (SINGLE-FLOAT (-1.0) (1.0))), 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 (OR (RATIONAL (-1) (1))
;                                (DOUBLE-FLOAT (-1.0d0) (1.0d0))
;                                (SINGLE-FLOAT (-1.0) (1.0))), not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
;   The second argument is a (OR (RATIONAL (-1) (1))
;                                (DOUBLE-FLOAT (-1.0d0) (1.0d0))
;                                (SINGLE-FLOAT (-1.0) (1.0))), not a INTEGER.

;     (- 1 (* KMRCL::S KMRCL::H-FRAC))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (* KMRCL::V (- 1 (* KMRCL::S KMRCL::H-FRAC)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
;   The second argument is a NUMBER, not a INTEGER.

;     (- 1 KMRCL::H-FRAC)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a (OR (RATIONAL (-1) (1))
;                                (DOUBLE-FLOAT (-1.0d0) (1.0d0))
;                                (SINGLE-FLOAT (-1.0) (1.0))), not a FLOAT.

;     (* KMRCL::S (- 1 KMRCL::H-FRAC))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
;   The second argument is a (OR (SINGLE-FLOAT (0.0) (2.0))
;                                (DOUBLE-FLOAT (0.0d0) (2.0d0))
;                                (RATIONAL (0) (2))), 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 (OR (SINGLE-FLOAT (0.0) (2.0))
;                                (DOUBLE-FLOAT (0.0d0) (2.0d0))
;                                (RATIONAL (0) (2))), 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 (OR (SINGLE-FLOAT (0.0) (2.0))
;                                (DOUBLE-FLOAT (0.0d0) (2.0d0))
;                                (RATIONAL (0) (2))), 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 (OR (SINGLE-FLOAT (0.0) (2.0))
;                                (DOUBLE-FLOAT (0.0d0) (2.0d0))
;                                (RATIONAL (0) (2))), not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
;   The second argument is a (OR (SINGLE-FLOAT (0.0) (2.0))
;                                (DOUBLE-FLOAT (0.0d0) (2.0d0))
;                                (RATIONAL (0) (2))), not a INTEGER.

;     (- 1 (* KMRCL::S (- 1 KMRCL::H-FRAC)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (* KMRCL::V (- 1 (* KMRCL::S (- 1 KMRCL::H-FRAC))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a NUMBER, not a INTEGER.
;   The second argument is a NUMBER, not a INTEGER.

;     (MINUSP KMRCL::H)
; ==>
;   (< KMRCL::H 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.

;     (INCF KMRCL::H 360)
; --> LET* 
; ==>
;   (+ KMRCL::H #:G9)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (>= KMRCL::H 360)
; --> IF 
; ==>
;   (< KMRCL::H 360)
; 
; 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.

;     (TRUNCATE KMRCL::H-POS)
; --> TRUNCATE LET 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
; 
; note: forced to do full call
;       unable to do inline float truncate (cost 5) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       unable to do inline float truncate (cost 5) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).

; --> TRUNCATE LET VALUES 
; ==>
;   (- SB-C::X SB-C::RES)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (- 1 KMRCL::S)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (* KMRCL::V (- 1 KMRCL::S))
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline float arithmetic (cost 4) 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.

;     (* KMRCL::S KMRCL::H-FRAC)
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a (OR (RATIONAL (-1) (1))
;                                    (DOUBLE-FLOAT (-1.0d0) (1.0d0))
;                                    (SINGLE-FLOAT (-1.0) (1.0))), not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline float arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a (OR (RATIONAL (-1) (1))
;                                    (DOUBLE-FLOAT (-1.0d0) (1.0d0))
;                                    (SINGLE-FLOAT (-1.0)
;                                                  (1.0))), not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER
;                               &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

;     (- 1 (* KMRCL::S KMRCL::H-FRAC))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (* KMRCL::V (- 1 (* KMRCL::S KMRCL::H-FRAC)))
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline float arithmetic (cost 4) 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 KMRCL::H-FRAC)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (OR (RATIONAL (-1) (1))
;                                    (DOUBLE-FLOAT (-1.0d0) (1.0d0))
;                                    (SINGLE-FLOAT (-1.0) (1.0))), not a FIXNUM.
;       The result is a (VALUES
;                        (OR (SINGLE-FLOAT (0.0) (2.0))
;                            (DOUBLE-FLOAT (0.0d0) (2.0d0))
;                            (RATIONAL (0) (2)))
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The second argument is a (OR (RATIONAL (-1) (1))
;                                    (DOUBLE-FLOAT (-1.0d0) (1.0d0))
;                                    (SINGLE-FLOAT (-1.0) (1.0))), not a FIXNUM.
;       The result is a (VALUES
;                        (OR (SINGLE-FLOAT (0.0) (2.0))
;                            (DOUBLE-FLOAT (0.0d0) (2.0d0))
;                            (RATIONAL (0) (2)))
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (* KMRCL::S (- 1 KMRCL::H-FRAC))
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a (OR (SINGLE-FLOAT (0.0) (2.0))
;                                    (DOUBLE-FLOAT (0.0d0) (2.0d0))
;                                    (RATIONAL (0) (2))), not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline float arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a (OR (SINGLE-FLOAT (0.0) (2.0))
;                                    (DOUBLE-FLOAT (0.0d0) (2.0d0))
;                                    (RATIONAL (0) (2))), not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER
;                               &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

;     (- 1 (* KMRCL::S (- 1 KMRCL::H-FRAC)))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (* KMRCL::V (- 1 (* KMRCL::S (- 1 KMRCL::H-FRAC))))
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline float arithmetic (cost 4) 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.

;     (DECF KMRCL::H 360)
; --> LET* 
; ==>
;   (- KMRCL::H #:G13)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; compiling (DEFUN HSV255->RGB255 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN HSV255->RGB255
;     (ZEROP KMRCL::S)
; ==>
;   (= KMRCL::S 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (* 255 KMRCL::FV (- 1 KMRCL::FS))
; --> * * 
; ==>
;   (* SB-C::Y 255)
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a (RATIONAL -536870912/255
;                                     536870911/255), not a INTEGER.
; 
; note: unable to
;   recode as shifts and adds
; due to type uncertainty:
;   The first argument is a (RATIONAL -536870912/255
;                                     536870911/255), not a (UNSIGNED-BYTE 32).
;   The result is a (VALUES (RATIONAL -536870912 536870911)
;                           &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).

; ==>
;   (* (* 255 KMRCL::FV) (- 1 KMRCL::FS))
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a (RATIONAL -536870912 536870911), not a INTEGER.
;   The second argument is a (RATIONAL -536870656/255
;                                      536871167/255), not a INTEGER.

;     (* 255 KMRCL::FV (- 1 (* KMRCL::FS KMRCL::H-FRAC)))
; --> * * 
; ==>
;   (* SB-C::Y 255)
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a (RATIONAL -536870912/255
;                                     536870911/255), not a INTEGER.
; 
; note: unable to
;   recode as shifts and adds
; due to type uncertainty:
;   The first argument is a (RATIONAL -536870912/255
;                                     536870911/255), not a (UNSIGNED-BYTE 32).
;   The result is a (VALUES (RATIONAL -536870912 536870911)
;                           &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).

;     (* KMRCL::FS KMRCL::H-FRAC)
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a (RATIONAL -536870912/255
;                                     536870911/255), not a INTEGER.
;   The second argument is a (RATIONAL -134217803/15 536871239/60), not a INTEGER.

;     (* 255 KMRCL::FV (- 1 (* KMRCL::FS KMRCL::H-FRAC)))
; ==>
;   (* (* 255 KMRCL::FV) (- 1 (* KMRCL::FS KMRCL::H-FRAC)))
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a (RATIONAL -536870912 536870911), not a INTEGER.
;   The second argument is a (RATIONAL -288230551171613429/15300
;                                      72057637927128817/3825), not a INTEGER.

;     (* 255 KMRCL::FV (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC))))
; --> * * 
; ==>
;   (* SB-C::Y 255)
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a (RATIONAL -536870912/255
;                                     536870911/255), not a INTEGER.
; 
; note: unable to
;   recode as shifts and adds
; due to type uncertainty:
;   The first argument is a (RATIONAL -536870912/255
;                                     536870911/255), not a (UNSIGNED-BYTE 32).
;   The result is a (VALUES (RATIONAL -536870912 536870911)
;                           &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).

;     (* KMRCL::FS (- 1 KMRCL::H-FRAC))
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a (RATIONAL -536870912/255
;                                     536870911/255), not a INTEGER.
;   The second argument is a (RATIONAL -536871179/60 134217818/15), not a INTEGER.

;     (* 255 KMRCL::FV (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC))))
; ==>
;   (* (* 255 KMRCL::FV) (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC))))
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a (RATIONAL -536870912 536870911), not a INTEGER.
;   The second argument is a (RATIONAL -72057642222088373/3825
;                                      72057642356313841/3825), not a INTEGER.

;     (TRUNCATE KMRCL::H-POS)
; --> TRUNCATE LET VALUES 
; ==>
;   (- SB-C::X SB-C::RES)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (RATIONAL -134217728/15 359/60), not a FIXNUM.
;       The result is a (VALUES (RATIONAL -134217803/15 536871239/60)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The first argument is a (RATIONAL -134217728/15 359/60), not a FIXNUM.
;       The result is a (VALUES (RATIONAL -134217803/15 536871239/60)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (* 255 KMRCL::FV (- 1 KMRCL::FS))
; --> * * 
; ==>
;   (* SB-C::Y 255)
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (RATIONAL -536870912/255
;                                         536870911/255), not a FIXNUM.
;       The result is a (VALUES (RATIONAL -536870912 536870911)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (RATIONAL -536870912/255
;                                         536870911/255), not a FIXNUM.
;       The result is a (VALUES (RATIONAL -536870912 536870911)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (- 1 KMRCL::FS)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (RATIONAL -536870912/255
;                                          536870911/255), not a FIXNUM.
;       The result is a (VALUES (RATIONAL -536870656/255 536871167/255)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The second argument is a (RATIONAL -536870912/255
;                                          536870911/255), not a FIXNUM.
;       The result is a (VALUES (RATIONAL -536870656/255 536871167/255)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (* 255 KMRCL::FV (- 1 KMRCL::FS))
; ==>
;   (* (* 255 KMRCL::FV) (- 1 KMRCL::FS))
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (RATIONAL -536870912 536870911), not a FIXNUM.
;       The second argument is a (RATIONAL -536870656/255
;                                          536871167/255), not a FIXNUM.
;       The result is a (VALUES
;                        (RATIONAL -288230513053794304/255
;                                  288230512516923137/255)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (RATIONAL -536870912
;                                         536870911), not a (SIGNED-BYTE 32).
;       The second argument is a (RATIONAL -536870656/255
;                                          536871167/255), not a (SIGNED-BYTE 32).
;       The result is a (VALUES
;                        (RATIONAL -288230513053794304/255
;                                  288230512516923137/255)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
;       etc.

;     (* 255 KMRCL::FV (- 1 (* KMRCL::FS KMRCL::H-FRAC)))
; --> * * 
; ==>
;   (* SB-C::Y 255)
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (RATIONAL -536870912/255
;                                         536870911/255), not a FIXNUM.
;       The result is a (VALUES (RATIONAL -536870912 536870911)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (RATIONAL -536870912/255
;                                         536870911/255), not a FIXNUM.
;       The result is a (VALUES (RATIONAL -536870912 536870911)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (* KMRCL::FS KMRCL::H-FRAC)
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (RATIONAL -536870912/255
;                                         536870911/255), not a FIXNUM.
;       The second argument is a (RATIONAL -134217803/15
;                                          536871239/60), not a FIXNUM.
;       The result is a (VALUES
;                        (RATIONAL -72057637927124992/3825
;                                  288230551171628729/15300)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (RATIONAL -536870912/255
;                                         536870911/255), not a (SIGNED-BYTE 32).
;       The second argument is a (RATIONAL -134217803/15
;                                          536871239/60), not a (SIGNED-BYTE 32).
;       The result is a (VALUES
;                        (RATIONAL -72057637927124992/3825
;                                  288230551171628729/15300)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
;       etc.

;     (- 1 (* KMRCL::FS KMRCL::H-FRAC))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (RATIONAL -72057637927124992/3825
;                                          288230551171628729/15300), not a FIXNUM.
;       The result is a (VALUES
;                        (RATIONAL -288230551171613429/15300
;                                  72057637927128817/3825)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The second argument is a (RATIONAL -72057637927124992/3825
;                                          288230551171628729/15300), not a FIXNUM.
;       The result is a (VALUES
;                        (RATIONAL -288230551171613429/15300
;                                  72057637927128817/3825)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (* 255 KMRCL::FV (- 1 (* KMRCL::FS KMRCL::H-FRAC)))
; ==>
;   (* (* 255 KMRCL::FV) (- 1 (* KMRCL::FS KMRCL::H-FRAC)))
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (RATIONAL -536870912 536870911), not a FIXNUM.
;       The second argument is a (RATIONAL -288230551171613429/15300
;                                          72057637927128817/3825), not a FIXNUM.
;       The result is a (VALUES
;                        (RATIONAL -38685649790503437524271104/3825
;                                  38685649718445799597142287/3825)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (RATIONAL -536870912
;                                         536870911), not a (SIGNED-BYTE 32).
;       The second argument is a (RATIONAL -288230551171613429/15300
;                                          72057637927128817/3825), not a (SIGNED-BYTE
;                                                                          32).
;       The result is a (VALUES
;                        (RATIONAL -38685649790503437524271104/3825
;                                  38685649718445799597142287/3825)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
;       etc.

;     (* 255 KMRCL::FV (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC))))
; --> * * 
; ==>
;   (* SB-C::Y 255)
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (RATIONAL -536870912/255
;                                         536870911/255), not a FIXNUM.
;       The result is a (VALUES (RATIONAL -536870912 536870911)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (RATIONAL -536870912/255
;                                         536870911/255), not a FIXNUM.
;       The result is a (VALUES (RATIONAL -536870912 536870911)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (- 1 KMRCL::H-FRAC)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (RATIONAL -134217803/15
;                                          536871239/60), not a FIXNUM.
;       The result is a (VALUES (RATIONAL -536871179/60 134217818/15)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The second argument is a (RATIONAL -134217803/15
;                                          536871239/60), not a FIXNUM.
;       The result is a (VALUES (RATIONAL -536871179/60 134217818/15)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (* KMRCL::FS (- 1 KMRCL::H-FRAC))
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (RATIONAL -536870912/255
;                                         536870911/255), not a FIXNUM.
;       The second argument is a (RATIONAL -536871179/60
;                                          134217818/15), not a FIXNUM.
;       The result is a (VALUES
;                        (RATIONAL -72057642356310016/3825
;                                  72057642222092198/3825)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (RATIONAL -536870912/255
;                                         536870911/255), not a (SIGNED-BYTE 32).
;       The second argument is a (RATIONAL -536871179/60
;                                          134217818/15), not a (SIGNED-BYTE 32).
;       The result is a (VALUES
;                        (RATIONAL -72057642356310016/3825
;                                  72057642222092198/3825)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
;       etc.

;     (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC)))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (RATIONAL -72057642356310016/3825
;                                          72057642222092198/3825), not a FIXNUM.
;       The result is a (VALUES
;                        (RATIONAL -72057642222088373/3825
;                                  72057642356313841/3825)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The second argument is a (RATIONAL -72057642356310016/3825
;                                          72057642222092198/3825), not a FIXNUM.
;       The result is a (VALUES
;                        (RATIONAL -72057642222088373/3825
;                                  72057642356313841/3825)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (* 255 KMRCL::FV (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC))))
; ==>
;   (* (* 255 KMRCL::FV) (- 1 (* KMRCL::FS (- 1 KMRCL::H-FRAC))))
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (RATIONAL -536870912 536870911), not a FIXNUM.
;       The second argument is a (RATIONAL -72057642222088373/3825
;                                          72057642356313841/3825), not a FIXNUM.
;       The result is a (VALUES
;                        (RATIONAL -38685652168404040775892992/3825
;                                  38685652096346398419579151/3825)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 4) because:
;       The first argument is a (RATIONAL -536870912
;                                         536870911), not a (SIGNED-BYTE 32).
;       The second argument is a (RATIONAL -72057642222088373/3825
;                                          72057642356313841/3825), not a (SIGNED-BYTE
;                                                                          32).
;       The result is a (VALUES
;                        (RATIONAL -38685652168404040775892992/3825
;                                  38685652096346398419579151/3825)
;                        &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T).
;       etc.

; compiling (DEFUN RGB->HSV ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN RGB->HSV
;     (MIN KMRCL::R KMRCL::G KMRCL::B)
; --> LET LET MIN LET LET IF <= IF 
; ==>
;   (> #:ONCE-ONLY-49 SB-C::MINREST)
; 
; 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.

; --> LET LET IF <= IF 
; ==>
;   (> #:ONCE-ONLY-48 SB-C::MINREST)
; 
; 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.

;     (MAX KMRCL::R KMRCL::G KMRCL::B)
; --> LET LET MAX LET LET IF >= IF 
; ==>
;   (< #:ONCE-ONLY-45 SB-C::MAXREST)
; 
; 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.

; --> LET LET IF >= IF 
; ==>
;   (< #:ONCE-ONLY-44 SB-C::MAXREST)
; 
; 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.

;     (- MAX MIN)
; 
; 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.

;     (PLUSP MAX)
; ==>
;   (> MAX 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (/ KMRCL::DELTA MAX)
; 
; 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.
; 
; note: unable to
;   convert x/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.

;     (PLUSP KMRCL::DELTA)
; ==>
;   (> KMRCL::DELTA 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (= MAX KMRCL::R)
; 
; 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.
; 
; note: unable to open code because: The operands might not be the same type.

;     (- KMRCL::G KMRCL::B)
; 
; 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.

;     (/ (- KMRCL::G KMRCL::B) KMRCL::DELTA)
; 
; 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.
; 
; note: unable to
;   convert x/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.

;     (= MAX KMRCL::G)
; 
; 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.
; 
; note: unable to open code because: The operands might not be the same type.

;     (- KMRCL::B KMRCL::R)
; 
; 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.

;     (/ (- KMRCL::B KMRCL::R) KMRCL::DELTA)
; 
; 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.
; 
; note: unable to
;   convert x/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.

;     (+ 2 (/ (- KMRCL::B KMRCL::R) KMRCL::DELTA))
; ==>
;   (+ SB-C::Y 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (- KMRCL::R KMRCL::G)
; 
; 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.

;     (/ (- KMRCL::R KMRCL::G) KMRCL::DELTA)
; 
; 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.
; 
; note: unable to
;   convert x/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.

;     (+ 4 (/ (- KMRCL::R KMRCL::G) KMRCL::DELTA))
; ==>
;   (+ SB-C::Y 4)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (* 60 KMRCL::H)
; ==>
;   (* SB-C::Y 60)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: unable to
;   convert x*2^k to shift
; due to type uncertainty:
;   The first argument is a REAL, not a INTEGER.
; 
; note: unable to
;   recode as shifts and adds
; due to type uncertainty:
;   The first argument is a REAL, not a (UNSIGNED-BYTE 32).
;   The result is a (VALUES FIXNUM
;                           &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).

;     (MIN KMRCL::R KMRCL::G KMRCL::B)
; --> LET LET MIN LET LET IF <= IF 
; ==>
;   (> #:ONCE-ONLY-49 SB-C::MINREST)
; 
; 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.

; --> LET LET IF <= IF 
; ==>
;   (> #:ONCE-ONLY-48 SB-C::MINREST)
; 
; 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.

;     (MAX KMRCL::R KMRCL::G KMRCL::B)
; --> LET LET MAX LET LET IF >= IF 
; ==>
;   (< #:ONCE-ONLY-45 SB-C::MAXREST)
; 
; 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.

; --> LET LET IF >= IF 
; ==>
;   (< #:ONCE-ONLY-44 SB-C::MAXREST)
; 
; 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.

;     (- MAX MIN)
; 
; 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.

;     (PLUSP MAX)
; ==>
;   (> MAX 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.

;     (/ KMRCL::DELTA MAX)
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 12) 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).
;       unable to do inline float arithmetic (cost 19) 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).

;     (PLUSP KMRCL::DELTA)
; ==>
;   (> KMRCL::DELTA 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.

;     (= MAX KMRCL::R)
; 
; 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.

;     (- KMRCL::G KMRCL::B)
; 
; 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.

;     (/ (- KMRCL::G KMRCL::B) KMRCL::DELTA)
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 12) 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).
;       unable to do inline float arithmetic (cost 19) 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).

;     (= MAX KMRCL::G)
; 
; 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.

;     (- KMRCL::B KMRCL::R)
; 
; 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.

;     (/ (- KMRCL::B KMRCL::R) KMRCL::DELTA)
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 12) 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).
;       unable to do inline float arithmetic (cost 19) 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).

;     (+ 2 (/ (- KMRCL::B KMRCL::R) KMRCL::DELTA))
; ==>
;   (+ SB-C::Y 2)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (- KMRCL::R KMRCL::G)
; 
; 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.

;     (/ (- KMRCL::R KMRCL::G) KMRCL::DELTA)
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 12) 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).
;       unable to do inline float arithmetic (cost 19) 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).

;     (+ 4 (/ (- KMRCL::R KMRCL::G) KMRCL::DELTA))
; ==>
;   (+ SB-C::Y 4)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (* 60 KMRCL::H)
; ==>
;   (* SB-C::Y 60)
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

; compiling (DEFUN RGB255->HSV255 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN RGB255->HSV255
;     (* 255 KMRCL::DELTA)
; ==>
;   (* SB-C::Y 255)
; 
; note: unable to
;   recode as shifts and adds
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
;   The result is a (VALUES FIXNUM
;                           &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).

;     (* 60 (THE FIXNUM (- KMRCL::G KMRCL::B)))
; ==>
;   (* SB-C::Y 60)
; 
; note: unable to
;   recode as shifts and adds
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
;   The result is a (VALUES FIXNUM
;                           &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).

;     (* 60 (THE FIXNUM (- KMRCL::B KMRCL::R)))
; ==>
;   (* SB-C::Y 60)
; 
; note: unable to
;   recode as shifts and adds
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
;   The result is a (VALUES FIXNUM
;                           &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).

;     (* 60 (THE FIXNUM (- KMRCL::R KMRCL::G)))
; ==>
;   (* SB-C::Y 60)
; 
; note: unable to
;   recode as shifts and adds
; due to type uncertainty:
;   The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
;   The result is a (VALUES FIXNUM
;                           &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).

;     (TRUNCATE (THE FIXNUM (* 255 KMRCL::DELTA)) MAX)
; 
; note: forced to do fixnum truncate (cost 50)
;       unable to do unsigned fixnum truncate (cost 45) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES FIXNUM
;                               (INTEGER -536870910 536870910)
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
;                                                         (UNSIGNED-BYTE 29)
;                                                         &REST
;                                                         T).

;     (TRUNCATE (THE FIXNUM (* 60 (THE FIXNUM (- KMRCL::R KMRCL::G)))) KMRCL::DELTA)
; 
; note: forced to do fixnum truncate (cost 50)
;       unable to do unsigned fixnum truncate (cost 45) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES FIXNUM
;                               (INTEGER -536870910 536870910)
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
;                                                         (UNSIGNED-BYTE 29)
;                                                         &REST
;                                                         T).

;     (TRUNCATE (THE FIXNUM (* 60 (THE FIXNUM (- KMRCL::B KMRCL::R)))) KMRCL::DELTA)
; 
; note: forced to do fixnum truncate (cost 50)
;       unable to do unsigned fixnum truncate (cost 45) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES FIXNUM
;                               (INTEGER -536870910 536870910)
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
;                                                         (UNSIGNED-BYTE 29)
;                                                         &REST
;                                                         T).

;     (TRUNCATE (THE FIXNUM (* 60 (THE FIXNUM (- KMRCL::G KMRCL::B)))) KMRCL::DELTA)
; 
; note: forced to do fixnum truncate (cost 50)
;       unable to do unsigned fixnum truncate (cost 45) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES FIXNUM
;                               (INTEGER -536870910 536870910)
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 29)
;                                                         (UNSIGNED-BYTE 29)
;                                                         &REST
;                                                         T).

; compiling (DEFUN HSV-EQUAL ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN HSV-EQUAL
;     (- KMRCL::A KMRCL::B)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
;   The second argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
;   The second argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
;   The second argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The second argument is a NUMBER, not a REAL.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a REAL.
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (ABS (- KMRCL::A KMRCL::B))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The result is a (VALUES (REAL 0)
;                           &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The result is a (VALUES (REAL 0)
;                           &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (< (ABS (- KMRCL::A KMRCL::B)) KMRCL::LIMIT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (SINGLE-FLOAT 0.0)
;                               (DOUBLE-FLOAT 0.0d0)
;                               (RATIONAL 0)), not a 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 (OR (SINGLE-FLOAT 0.0)
;                               (DOUBLE-FLOAT 0.0d0)
;                               (RATIONAL 0)), 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 (OR (SINGLE-FLOAT 0.0)
;                               (DOUBLE-FLOAT 0.0d0)
;                               (RATIONAL 0)), not a FLOAT.
;   The second argument is a REAL, not a RATIONAL.

;     (- KMRCL::A KMRCL::B)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER
;                               &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER
;                               &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

;     (ABS (- KMRCL::A KMRCL::B))
; 
; note: forced to do full call
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES (REAL 0)
;                               &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES (REAL 0)
;                               &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).

;     (< (ABS (- KMRCL::A KMRCL::B)) KMRCL::LIMIT)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (SINGLE-FLOAT 0.0)
;                                   (DOUBLE-FLOAT 0.0d0)
;                                   (RATIONAL 0)), 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 (OR (SINGLE-FLOAT 0.0)
;                                   (DOUBLE-FLOAT 0.0d0)
;                                   (RATIONAL 0)), not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; compiling (DEFUN HSV255-EQUAL ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN HSV255-EQUAL
;     (NULL KMRCL::B)
; --> IF 
; ==>
;   KMRCL::B
; 
; note: deleting unreachable code

; compiling (DEFUN HSV-SIMILAR ...)
; compiling (DEFUN HSV255-SIMILAR ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.lisp
; in: DEFUN HSV255-SIMILAR
;     (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;   The result is a (VALUES (REAL 0)
;                           &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;   The result is a (VALUES (REAL 0)
;                           &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (<= (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2)) KMRCL::HUE-RANGE)
; --> IF 
; ==>
;   (> (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2)) KMRCL::HUE-RANGE)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a (OR (SINGLE-FLOAT 0.0)
;                               (DOUBLE-FLOAT 0.0d0)
;                               (RATIONAL 0)), not a FLOAT.

;     (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2))
; 
; note: forced to do full call
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES (REAL 0)
;                               &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES (REAL 0)
;                               &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).

;     (<= (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2)) KMRCL::HUE-RANGE)
; --> IF 
; ==>
;   (> (ABS (KMRCL:HUE-DIFFERENCE-FIXNUM KMRCL::H1 KMRCL::H2)) KMRCL::HUE-RANGE)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR (SINGLE-FLOAT 0.0)
;                                   (DOUBLE-FLOAT 0.0d0)
;                                   (RATIONAL 0)), not a FIXNUM.

; compiling (DEFUN HUE-DIFFERENCE ...)
; compiling (DEFUN HUE-DIFFERENCE-FIXNUM ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/color.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/mop.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (IF (FIND-PACKAGE #) ...)
; compiling (DEFPACKAGE #:KMR-MOP ...)
; compiling (IN-PACKAGE #:KMR-MOP)
; compiling (DEFMACRO PROCESS-CLASS-OPTION ...)
; compiling (DEFMACRO PROCESS-SLOT-OPTION ...)
; compiling (SHADOWING-IMPORT (QUOTE #))
; compiling (EXPORT (QUOTE #))
; compiling (IF (FIND-PACKAGE #) ...)
; compiling (WHEN (>= # ...) ...)
; compiling (WHEN (>= # ...) ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/mop.fasl written
; compilation finished in 0:00:00
WARNING: KMR-MOP also shadows the following symbols:
  (SB-MOP:COMPUTE-SLOTS SB-MOP:GENERIC-FUNCTION-LAMBDA-LIST
                        SB-MOP:MAKE-METHOD-LAMBDA
                        SB-MOP:INTERN-EQL-SPECIALIZER
                        SB-MOP:GENERIC-FUNCTION-METHOD-CLASS
                        SB-MOP:CLASS-PROTOTYPE
                        SB-MOP:SLOT-VALUE-USING-CLASS
                        SB-PCL::COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS
                        SB-MOP:CLASS-DIRECT-SLOTS
                        SB-MOP:COMPUTE-EFFECTIVE-SLOT-DEFINITION
                        SB-MOP:EFFECTIVE-SLOT-DEFINITION-CLASS
                        SB-MOP:DIRECT-SLOT-DEFINITION-CLASS
                        SB-MOP:VALIDATE-SUPERCLASS
                        SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION
                        SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION
                        SB-MOP:FINALIZE-INHERITANCE
                        SB-MOP:SLOT-DEFINITION-NAME
                        STANDARD-CLASS
                        FIND-CLASS
                        SB-MOP:CLASS-SLOTS
                        CLASS-NAME
                        CLASS-OF)
See also:
  The ANSI Standard, Macro DEFPACKAGE
WARNING: KMR-MOP also exports the following symbols:
  (SB-MOP:CLASS-DIRECT-SLOTS CLASS-OF
                             SB-MOP:DIRECT-SLOT-DEFINITION-CLASS
                             SB-MOP:SLOT-VALUE-USING-CLASS
                             SB-MOP:STANDARD-EFFECTIVE-SLOT-DEFINITION
                             KMR-MOP:PROCESS-SLOT-OPTION
                             KMR-MOP:PROCESS-CLASS-OPTION
                             SB-MOP:CLASS-PROTOTYPE
                             SB-MOP:COMPUTE-SLOTS
                             STANDARD-CLASS
                             SB-MOP:CLASS-SLOTS
                             SB-MOP:COMPUTE-EFFECTIVE-SLOT-DEFINITION
                             FIND-CLASS
                             CLASS-NAME
                             SB-MOP:FINALIZE-INHERITANCE
                             SB-PCL::COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS
                             SB-MOP:MAKE-METHOD-LAMBDA
                             SB-MOP:STANDARD-DIRECT-SLOT-DEFINITION
                             SB-MOP:GENERIC-FUNCTION-METHOD-CLASS
                             SB-MOP:GENERIC-FUNCTION-LAMBDA-LIST
                             SB-MOP:INTERN-EQL-SPECIALIZER
                             SB-MOP:SLOT-DEFINITION-NAME
                             SB-MOP:VALIDATE-SUPERCLASS
                             SB-MOP:EFFECTIVE-SLOT-DEFINITION-CLASS)
See also:
  The ANSI Standard, Macro DEFPACKAGE
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/equal.lisp" (written 30 APR 2005 06:14:18 AM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN GENERALIZED-EQUAL ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/equal.lisp
; in: DEFUN GENERALIZED-EQUAL
;     (KMRCL::GENERALIZED-EQUAL-HASH-TABLE KMRCL::OBJ1 KMRCL::OBJ2)
; ==>
;   KMRCL::OBJ2
; 
; note: deleting unreachable code

; compiling (DEFUN GENERALIZED-EQUAL-FUNCTION ...)
; compiling (DEFUN GENERALIZED-EQUAL-ARRAY ...)
; compiling (DEFUN GENERALIZED-EQUAL-HASH-TABLE ...)
; compiling (DEFUN GENERALIZED-EQUAL-FIELDED-OBJECT ...)
; compiling (DEFUN CLASS-SLOT-NAMES ...)
; compiling (DEFUN STRUCTURE-SLOT-NAMES ...)
; compiling (DEFUN FUNCTION-TO-STRING ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/equal.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/web-utils.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFVAR *STANDARD-XML-HEADER* ...)
; compiling (DEFVAR *STANDARD-HTML-HEADER* ...)
; compiling (DEFVAR *STANDARD-XHTML-HEADER* ...)
; compiling (DEFUN USER-AGENT-IE-P ...)
; compiling (DEFVAR *BASE-URL* ...)
; compiling (DEFUN BASE-URL! ...)
; compiling (DEFUN MAKE-URL ...)
; compiling (DEFUN DECODE-URI-QUERY-STRING ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/web-utils.lisp
; in: DEFUN DECODE-URI-QUERY-STRING
;     (SUBSEQ KMRCL::S (1+ KMRCL::P-OLD) (+ KMRCL::P-OLD 3))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY CHARACTER (*))
;                                              &REST
;                                              T).

; compiling (DEFUN SPLIT-URI-QUERY-STRING ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/web-utils.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/xml-utils.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN FIND-START-TAG ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/xml-utils.lisp
; in: DEFUN FIND-START-TAG
;     (+ KMRCL::BRACKETPOS 1 KMRCL::TAGLEN)
; --> + 
; ==>
;   (+ KMRCL::BRACKETPOS 1)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; ==>
;   (+ (+ KMRCL::BRACKETPOS 1) KMRCL::TAGLEN)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (1+ KMRCL::ENDBRACK)
; ==>
;   (+ KMRCL::ENDBRACK 1)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (SUBSEQ KMRCL::XMLSTR KMRCL::ENDTAG KMRCL::ENDBRACK)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
;   The result is a (VALUES (OR CONS NULL (SIMPLE-ARRAY * (*)))
;                           &OPTIONAL), not a (VALUES
;                                              (SIMPLE-ARRAY CHARACTER (*))
;                                              &REST
;                                              T).

;     (+ KMRCL::BRACKETPOS 1 KMRCL::TAGLEN)
; --> + 
; ==>
;   (+ KMRCL::BRACKETPOS 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.

; ==>
;   (+ (+ KMRCL::BRACKETPOS 1) KMRCL::TAGLEN)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (1+ KMRCL::ENDBRACK)
; ==>
;   (+ KMRCL::ENDBRACK 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.

;     (1+ KMRCL::TAGLEN)
; ==>
;   (+ KMRCL::TAGLEN 1)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first result of inline (signed-byte 32) arithmetic

; compiling (DEFUN FIND-END-TAG ...)
; compiling (DEFUN POSITIONS-XML-TAG-CONTENTS ...)
; compiling (DEFUN XML-TAG-CONTENTS ...)
; compiling (DEFUN CDATA-STRING ...)
; compiling (DEFUN WRITE-CDATA ...)
; compiling (DEFUN XML-DECLARATION-STREAM ...)
; compiling (DEFUN DOCTYPE-STREAM ...)
; compiling (DEFUN DOCTYPE-FORMAT ...)
; compiling (DEFUN SGML-HEADER-STREAM ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/xml-utils.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/sockets.lisp" (written 21 DEC 2004 02:44:04 AM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (REQUIRE :SB-BSD-SOCKETS)
; compiling (DEFUN LISTEN-TO-INET-PORT ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/sockets.lisp
; in: DEFUN LISTEN-TO-INET-PORT
;     (DEFUN KMRCL::LISTEN-TO-INET-PORT
;          (&KEY (KMRCL::PORT 0) (KMRCL::KIND :STREAM) (KMRCL::REUSE ()))
;     "Create, bind and listen to an inet socket on *:PORT.
; setsockopt SO_REUSEADDR if :reuse is not nil"
;     (LET ((KMRCL::SOCKET
;            (MAKE-INSTANCE 'SB-BSD-SOCKETS:INET-SOCKET
;                           :TYPE
;                           :STREAM
;                           :PROTOCOL
;                           :TCP)))
;       (IF KMRCL::REUSE
;           (SETF (SB-BSD-SOCKETS:SOCKOPT-REUSE-ADDRESS KMRCL::SOCKET) T))
;       (SB-BSD-SOCKETS:SOCKET-BIND KMRCL::SOCKET
;                                   (SB-BSD-SOCKETS:MAKE-INET-ADDRESS "0.0.0.0")
;                                   KMRCL::PORT)
;       (SB-BSD-SOCKETS:SOCKET-LISTEN KMRCL::SOCKET 15)
;       KMRCL::SOCKET))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA KMRCL::LISTEN-TO-INET-PORT
;                          (&KEY (KMRCL::PORT 0)
;                                (KMRCL::KIND :STREAM)
;                                (KMRCL::REUSE NIL))
;                          (BLOCK KMRCL::LISTEN-TO-INET-PORT
;                            (LET ((KMRCL::SOCKET #))
;                              (IF KMRCL::REUSE (SETF # T))
;                              (SB-BSD-SOCKETS:SOCKET-BIND KMRCL::SOCKET
;                                                          (SB-BSD-SOCKETS:MAKE-INET-ADDRESS
;                                                           "0.0.0.0")
;                                                          KMRCL::PORT)
;                              (SB-BSD-SOCKETS:SOCKET-LISTEN KMRCL::SOCKET 15)
;                              KMRCL::SOCKET)))
; 
; caught STYLE-WARNING:
;   The variable KIND is defined but never used.

; compiling (DEFUN CREATE-INET-LISTENER ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/sockets.lisp
; in: DEFUN CREATE-INET-LISTENER
;     (DEFUN KMRCL::CREATE-INET-LISTENER
;          (KMRCL::PORT &KEY (FORMAT :TEXT) (KMRCL::REUSE-ADDRESS T))
;     (KMRCL::LISTEN-TO-INET-PORT :PORT KMRCL::PORT :REUSE KMRCL::REUSE-ADDRESS))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA KMRCL::CREATE-INET-LISTENER
;                          (KMRCL::PORT &KEY
;                                       (FORMAT :TEXT)
;                                       (KMRCL::REUSE-ADDRESS T))
;                          (BLOCK KMRCL::CREATE-INET-LISTENER
;                            (KMRCL::LISTEN-TO-INET-PORT :PORT
;                                                        KMRCL::PORT
;                                                        :REUSE
;                                                        KMRCL::REUSE-ADDRESS)))
; 
; caught STYLE-WARNING:
;   The variable FORMAT is defined but never used.

; compiling (DEFUN MAKE-FD-STREAM ...)
; compiling (DEFUN ACCEPT-TCP-CONNECTION ...)
; compiling (DEFMACRO ERRORSET ...)
; compiling (DEFUN CLOSE-PASSIVE-SOCKET ...)
; compiling (DEFUN CLOSE-ACTIVE-SOCKET ...)
; compiling (DEFUN IPADDR-TO-DOTTED ...)
; compiling (DEFUN DOTTED-TO-IPADDR ...)
; compiling (DEFUN IPADDR-TO-HOSTNAME ...)
; compiling (DEFUN LOOKUP-HOSTNAME ...)
; compiling (DEFUN MAKE-ACTIVE-SOCKET ...)
; compiling (DEFUN IPADDR-ARRAY-TO-DOTTED ...)
; compiling (DEFUN REMOTE-HOST ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/sockets.fasl written
; compilation finished in 0:00:00
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {40008599}> on
   #<CL-SOURCE-FILE "sockets" {4020D819}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp" (written 19 MAR 2005 04:40:22 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN MAKE-PROCESS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFUN MAKE-PROCESS
;     (DEFUN KMRCL::MAKE-PROCESS (KMRCL::NAME KMRCL::FUNC) (FUNCALL KMRCL::FUNC))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA KMRCL::MAKE-PROCESS
;                          (KMRCL::NAME KMRCL::FUNC)
;                          (BLOCK KMRCL::MAKE-PROCESS (FUNCALL KMRCL::FUNC)))
; 
; caught STYLE-WARNING:
;   The variable NAME is defined but never used.

; compiling (DEFUN DESTROY-PROCESS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFUN DESTROY-PROCESS
;     (DEFUN KMRCL::DESTROY-PROCESS (KMRCL::PROCESS))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA KMRCL::DESTROY-PROCESS
;                          (KMRCL::PROCESS)
;                          (BLOCK KMRCL::DESTROY-PROCESS))
; 
; caught STYLE-WARNING:
;   The variable PROCESS is defined but never used.

; compiling (DEFUN MAKE-LOCK ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFUN MAKE-LOCK
;     (DEFUN KMRCL::MAKE-LOCK (KMRCL::NAME))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA KMRCL::MAKE-LOCK
;                          (KMRCL::NAME)
;                          (BLOCK KMRCL::MAKE-LOCK))
; 
; caught STYLE-WARNING:
;   The variable NAME is defined but never used.

; compiling (DEFMACRO WITH-LOCK-HELD ...); in: LAMBDA NIL
;     (LET* ((KMRCL::LOCK (CAR #:SUBLIST-19)) (KMRCL::BODY (CDR (CDR #:WHOLE17))))
;     (BLOCK KMRCL::WITH-LOCK-HELD `(PROGN ,@KMRCL::BODY)))
; 
; caught STYLE-WARNING:
;   The variable LOCK is defined but never used.

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFMACRO WITH-LOCK-HELD
;     (DEFMACRO KMRCL::WITH-LOCK-HELD ((KMRCL::LOCK) &BODY KMRCL::BODY)
;     `(PROGN ,@KMRCL::BODY))
; --> EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO FUNCTION LET* 
; ==>
;   (LET* ((KMRCL::LOCK (CAR #:SUBLIST-19)) (KMRCL::BODY (CDR (CDR #:WHOLE17))))
;     (BLOCK KMRCL::WITH-LOCK-HELD `(PROGN ,@KMRCL::BODY)))
; 
; caught STYLE-WARNING:
;   The variable LOCK is defined but never used.

; compiling (DEFMACRO WITH-TIMEOUT ...); in: LAMBDA NIL
;     (LET* ((KMRCL::SECONDS (CAR #:SUBLIST-26))
;          (KMRCL::BODY (CDR (CDR #:WHOLE24))))
;     (BLOCK KMRCL::WITH-TIMEOUT `(PROGN ,@KMRCL::BODY)))
; 
; caught STYLE-WARNING:
;   The variable SECONDS is defined but never used.

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.lisp
; in: DEFMACRO WITH-TIMEOUT
;     (DEFMACRO KMRCL::WITH-TIMEOUT ((KMRCL::SECONDS) &BODY KMRCL::BODY)
;     `(PROGN ,@KMRCL::BODY))
; --> EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO FUNCTION LET* 
; ==>
;   (LET* ((KMRCL::SECONDS (CAR #:SUBLIST-26))
;          (KMRCL::BODY (CDR (CDR #:WHOLE24))))
;     (BLOCK KMRCL::WITH-TIMEOUT `(PROGN ,@KMRCL::BODY)))
; 
; caught STYLE-WARNING:
;   The variable SECONDS is defined but never used.

; compiling (DEFUN PROCESS-SLEEP ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/processes.fasl written
; compilation finished in 0:00:01
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {10008551}> on
   #<CL-SOURCE-FILE "processes" {10008561}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/listener.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFVAR *LISTENER-COUNT* ...)
; compiling (DEFVAR *WORKER-COUNT* ...)
; compiling (DEFVAR *ACTIVE-LISTENERS* ...)
; compiling (DEFCLASS LISTENER ...)
; compiling (DEFCLASS FIXED-WORKER ...)
; compiling (DEFCLASS WORKER ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN INIT/LISTENER ...)
; compiling (DEFUN STOP-ALL/LISTENER ...)
; compiling (DEFUN LISTENER-STARTUP ...)
; compiling (DEFUN LISTENER-SHUTDOWN ...)
; compiling (DEFUN NEXT-SERVER-NAME ...)
; compiling (DEFUN NEXT-WORKER-NAME ...)
; compiling (DEFUN MAKE-SOCKET-SERVER ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFUN ACCEPT-AND-CHECK-TCP-CONNECTION ...)
; compiling (DEFUN START-SOCKET-SERVER ...)
; compiling (DEFUN START-FIXED-NUMBER-OF-WORKERS ...)
; compiling (DEFUN FIXED-WORKER ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/listener.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/repl.lisp" (written 15 SEP 2004 12:45:07 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFCONSTANT +DEFAULT-REPL-SERVER-PORT+ ...)
; compiling (DEFCLASS REPL ...)
; compiling (DEFUN MAKE-REPL ...)
; compiling (DEFUN INIT/REPL ...)
; compiling (DEFUN REPL-WORKER ...)
; compiling (DEFUN READ-SOCKET-LINE ...)
; compiling (DEFUN PRINT-PROMPT ...)
; compiling (DEFUN REPL-ON-STREAM ...)
; compiling (DEFUN %REPL ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/repl.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/os.lisp" (written 26 AUG 2005 04:02:06 PM):
; compiling (IN-PACKAGE #:KMRCL)
; compiling (DEFUN COMMAND-OUTPUT ...)
; compiling (DEFUN RUN-SHELL-COMMAND ...)
; compiling (DEFUN DELETE-DIRECTORY-AND-FILES ...)
; compiling (DEFUN FILE-SIZE ...)
; compiling (DEFUN GETPID ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/kmrcl-1.85/os.fasl written
; compilation finished in 0:00:00
; 
; compilation unit finished
;   caught 13 STYLE-WARNING conditions
;   printed 352 notes
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/package.lisp" (written 15 SEP 2004 12:44:47 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE #:LISP-MARKUP-LANGUAGE-2 ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/data.lisp" (written 15 SEP 2004 12:44:46 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFVAR *HTML-STREAM* ...)
; compiling (DEFVAR *PRINT-SPACES* ...)
; compiling (DEFVAR *INDENT* ...)
; compiling (DEFVAR +XML-PROLOGUE-STRING+ ...)
; compiling (DEFVAR +HTML4-DTD-STRING+ ...)
; compiling (DEFVAR +XHTML11-DTD-STRING+ ...)
; compiling (DEFVAR +XHTML10-STRICT-DTD-STRING+ ...)
; compiling (DEFVAR +XHTML10-TRANSITIONAL-DTD-STRING+ ...)
; compiling (DEFVAR +XHTML10-FRAMESET-DTD-STRING+ ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/data.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/htmlgen.lisp" (written 15 SEP 2004 12:44:47 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFSTRUCT (HTML-PROCESS # ...) ...)
; compiling (DEFPARAMETER *HTML-PROCESS-TABLE* ...)
; compiling (DEFMACRO HTML ...)
; compiling (DEFUN POST-PROCESS-HTML-FORMS ...)
; compiling (DEFMACRO HTML-OUT-STREAM-CHECK ...)
; compiling (DEFMACRO HTML-STREAM ...)
; compiling (DEFUN PROCESS-HTML-FORMS ...)
; compiling (DEFUN HTML-ATOM-CHECK ...)
; compiling (DEFUN HTML-BODY-FORM ...)
; compiling (DEFUN ATTRIBUTE-NAME-STRING ...)
; compiling (DEFUN PROCESS-ATTRIBUTES ...)
; compiling (DEFUN HTML-BODY-KEY-FORM ...)
; compiling (DEFUN PRINC-HTTP ...)
; compiling (DEFUN PRIN1-HTTP ...)
; compiling (DEFUN PRINC-SAFE-HTTP ...)
; compiling (DEFUN PRIN1-SAFE-HTTP ...)
; compiling (DEFUN PRIN1-SAFE-HTTP-STRING ...)
; compiling (DEFUN EMIT-SAFE ...)
; compiling (DEFUN HTML-PRINT-LIST ...)
; compiling (DEFUN HTML-PRINT-LIST-SUBST ...)
; compiling (DEFUN HTML-PRINT ...)
; compiling (DEFUN HTML-PRINT-SUBST ...)
; compiling (DEFUN HTML-FIND-VALUE ...)
; compiling (DEFUN HTML-STANDARD-PRINT ...)
; compiling (DEFMACRO DEF-SPECIAL-HTML ...)
; compiling (DEFMACRO NAMED-FUNCTION ...)
; compiling (DEF-SPECIAL-HTML :NEWLINE ...)
; compiling (DEF-SPECIAL-HTML :PRINC ...)
; compiling (DEF-SPECIAL-HTML :PRINC-SAFE ...)
; compiling (DEF-SPECIAL-HTML :PRIN1 ...)
; compiling (DEF-SPECIAL-HTML :PRIN1-SAFE ...)
; compiling (DEF-SPECIAL-HTML :COMMENT ...)
; compiling (DEFMACRO DEF-STD-HTML ...)
; compiling (DEF-STD-HTML :A ...)
; compiling (DEF-STD-HTML :ABBR ...)
; compiling (DEF-STD-HTML :ACRONYM ...)
; compiling (DEF-STD-HTML :ADDRESS ...)
; compiling (DEF-STD-HTML :APPLET ...)
; compiling (DEF-STD-HTML :AREA ...)
; compiling (DEF-STD-HTML :B ...)
; compiling (DEF-STD-HTML :BASE ...)
; compiling (DEF-STD-HTML :BASEFONT ...)
; compiling (DEF-STD-HTML :BDO ...)
; compiling (DEF-STD-HTML :BGSOUND ...)
; compiling (DEF-STD-HTML :BIG ...)
; compiling (DEF-STD-HTML :BLINK ...)
; compiling (DEF-STD-HTML :BLOCKQUOTE ...)
; compiling (DEF-STD-HTML :BODY ...)
; compiling (DEF-STD-HTML :BR ...)
; compiling (DEF-STD-HTML :BUTTON ...)
; compiling (DEF-STD-HTML :CAPTION ...)
; compiling (DEF-STD-HTML :CENTER ...)
; compiling (DEF-STD-HTML :CITE ...)
; compiling (DEF-STD-HTML :CODE ...)
; compiling (DEF-STD-HTML :COL ...)
; compiling (DEF-STD-HTML :COLGROUP ...)
; compiling (DEF-STD-HTML :DD ...)
; compiling (DEF-STD-HTML :DEL ...)
; compiling (DEF-STD-HTML :DFN ...)
; compiling (DEF-STD-HTML :DIR ...)
; compiling (DEF-STD-HTML :DIV ...)
; compiling (DEF-STD-HTML :DL ...)
; compiling (DEF-STD-HTML :DT ...)
; compiling (DEF-STD-HTML :EM ...)
; compiling (DEF-STD-HTML :EMBED ...)
; compiling (DEF-STD-HTML :FIELDSET ...)
; compiling (DEF-STD-HTML :FONT ...)
; compiling (DEF-STD-HTML :FORM ...)
; compiling (DEF-STD-HTML :FRAME ...)
; compiling (DEF-STD-HTML :FRAMESET ...)
; compiling (DEF-STD-HTML :H1 ...)
; compiling (DEF-STD-HTML :H2 ...)
; compiling (DEF-STD-HTML :H3 ...)
; compiling (DEF-STD-HTML :H4 ...)
; compiling (DEF-STD-HTML :H5 ...)
; compiling (DEF-STD-HTML :H6 ...)
; compiling (DEF-STD-HTML :HEAD ...)
; compiling (DEF-STD-HTML :HR ...)
; compiling (DEF-STD-HTML :HTML ...)
; compiling (DEF-STD-HTML :I ...)
; compiling (DEF-STD-HTML :IFRAME ...)
; compiling (DEF-STD-HTML :ILAYER ...)
; compiling (DEF-STD-HTML :IMG ...)
; compiling (DEF-STD-HTML :INPUT ...)
; compiling (DEF-STD-HTML :INS ...)
; compiling (DEF-STD-HTML :ISINDEX ...)
; compiling (DEF-STD-HTML :KBD ...)
; compiling (DEF-STD-HTML :KEYGEN ...)
; compiling (DEF-STD-HTML :LABEL ...)
; compiling (DEF-STD-HTML :LAYER ...)
; compiling (DEF-STD-HTML :LEGEND ...)
; compiling (DEF-STD-HTML :LI ...)
; compiling (DEF-STD-HTML :LINK ...)
; compiling (DEF-STD-HTML :LISTING ...)
; compiling (DEF-STD-HTML :MAP ...)
; compiling (DEF-STD-HTML :MARQUEE ...)
; compiling (DEF-STD-HTML :MENU ...)
; compiling (DEF-STD-HTML :META ...)
; compiling (DEF-STD-HTML :MULTICOL ...)
; compiling (DEF-STD-HTML :NOBR ...)
; compiling (DEF-STD-HTML :NOEMBED ...)
; compiling (DEF-STD-HTML :NOFRAMES ...)
; compiling (DEF-STD-HTML :NOSCRIPT ...)
; compiling (DEF-STD-HTML :OBJECT ...)
; compiling (DEF-STD-HTML :OL ...)
; compiling (DEF-STD-HTML :OPTGROUP ...)
; compiling (DEF-STD-HTML :OPTION ...)
; compiling (DEF-STD-HTML :P ...)
; compiling (DEF-STD-HTML :PARAM ...)
; compiling (DEF-STD-HTML :PLAINTEXT ...)
; compiling (DEF-STD-HTML :PRE ...)
; compiling (DEF-STD-HTML :Q ...)
; compiling (DEF-STD-HTML :S ...)
; compiling (DEF-STD-HTML :SAMP ...)
; compiling (DEF-STD-HTML :SCRIPT ...)
; compiling (DEF-STD-HTML :SELECT ...)
; compiling (DEF-STD-HTML :SERVER ...)
; compiling (DEF-STD-HTML :SMALL ...)
; compiling (DEF-STD-HTML :SPACER ...)
; compiling (DEF-STD-HTML :SPAN ...)
; compiling (DEF-STD-HTML :STRIKE ...)
; compiling (DEF-STD-HTML :STRONG ...)
; compiling (DEF-STD-HTML :STYLE ...)
; compiling (DEF-STD-HTML :SUB ...)
; compiling (DEF-STD-HTML :SUP ...)
; compiling (DEF-STD-HTML :TABLE ...)
; compiling (DEF-STD-HTML :TBODY ...)
; compiling (DEF-STD-HTML :TD ...)
; compiling (DEF-STD-HTML :TEXTAREA ...)
; compiling (DEF-STD-HTML :TFOOT ...)
; compiling (DEF-STD-HTML :TH ...)
; compiling (DEF-STD-HTML :THEAD ...)
; compiling (DEF-STD-HTML :TITLE ...)
; compiling (DEF-STD-HTML :TR ...)
; compiling (DEF-STD-HTML :TT ...)
; compiling (DEF-STD-HTML :U ...)
; compiling (DEF-STD-HTML :UL ...)
; compiling (DEF-STD-HTML :VAR ...)
; compiling (DEF-STD-HTML :WBR ...)
; compiling (DEF-STD-HTML :XMP ...)
; compiling (DEF-SPECIAL-HTML :JSCRIPT ...)
; compiling (DEF-SPECIAL-HTML :NBSP ...)
; compiling (DEF-SPECIAL-HTML :LOAD-FILE ...)
; compiling (DEF-SPECIAL-HTML :INSERT-FILE ...)
; compiling (DEF-SPECIAL-HTML :WRITE-STRING ...)
; compiling (DEF-SPECIAL-HTML :WRITE-CHAR ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/htmlgen.fasl written
; compilation finished in 0:00:05
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/utils.lisp" (written 15 SEP 2004 12:44:47 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFUN LML-QUIT ...)
; compiling (DEFUN LML-CWD ...)
; compiling (DEFMACRO FFORMAT ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/utils.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/files.lisp" (written 03 SEP 2005 12:18:26 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFVAR *OUTPUT-DIR* ...)
; compiling (DEFVAR *SOURCES-DIR* ...)
; compiling (DEFUN LML-FILE-NAME ...)
; compiling (DEFMACRO WITH-DIR ...)
; compiling (DEFUN LML-LOAD-PATH ...)
; compiling (DEFUN PROCESS-DIR ...)
; compiling (DEFUN LML-LOAD ...)
; compiling (DEFUN INSERT-FILE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/files.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/base.lisp" (written 28 JAN 2005 09:22:15 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFUN LML-FORMAT ...)
; compiling (DEFUN LML-PRINC ...)
; compiling (DEFUN LML-PRINT ...)
; compiling (DEFUN LML-WRITE-CHAR ...)
; compiling (DEFUN LML-WRITE-STRING ...)
; compiling (DEFUN LML-PRINT-DATE ...)
; compiling (DEFUN XML-HEADER-STREAM ...)
; compiling (DEFUN DTD-PROLOGUE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/base.lisp
; in: DEFUN DTD-PROLOGUE
;     (DEFUN LISP-MARKUP-LANGUAGE-2:DTD-PROLOGUE
;          (&OPTIONAL (FORMAT :XHTML11) &KEY LISP-MARKUP-LANGUAGE-2::ENTITIES)
;     (CASE FORMAT
;       ((:XHTML :XHTML11 :XHTML10-STRICT :XHTML10-TRANSITIONAL :XHTML10-FRAMESET
;         :XML)
;        (LISP-MARKUP-LANGUAGE-2:LML-WRITE-STRING
;         LISP-MARKUP-LANGUAGE-2::+XML-PROLOGUE-STRING+)
;        (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\Newline)
;        (CASE FORMAT
;          (# #)
;          (:XHTML10-STRICT #)
;          (:XHTML10-TRANSITIONAL #)
;          (:XHTML10-FRAMESET #))
;        (WHEN LISP-MARKUP-LANGUAGE-2::ENTITIES
;          (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\ )
;          (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\[)
;          (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\Newline)
;          (LISP-MARKUP-LANGUAGE-2:LML-WRITE-STRING
;           LISP-MARKUP-LANGUAGE-2::ENTITIES)
;          (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\Newline)
;          (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\]))
;        (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\>))
;       (:HTML
;        (LISP-MARKUP-LANGUAGE-2:LML-WRITE-STRING
;         LISP-MARKUP-LANGUAGE-2::+HTML4-DTD-STRING+)))
;     (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\Newline))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA LISP-MARKUP-LANGUAGE-2:DTD-PROLOGUE
;                          (&OPTIONAL (FORMAT :XHTML11)
;                                     &KEY
;                                     LISP-MARKUP-LANGUAGE-2::ENTITIES)
;                          (BLOCK LISP-MARKUP-LANGUAGE-2:DTD-PROLOGUE
;                            (CASE FORMAT
;                              ((:XHTML :XHTML11 :XHTML10-STRICT
;                                :XHTML10-TRANSITIONAL :XHTML10-FRAMESET :XML)
;                               (LISP-MARKUP-LANGUAGE-2:LML-WRITE-STRING
;                                LISP-MARKUP-LANGUAGE-2::+XML-PROLOGUE-STRING+)
;                               (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\Newline)
;                               (CASE FORMAT # # # #)
;                               (WHEN LISP-MARKUP-LANGUAGE-2::ENTITIES
;                                 #
;                                 #
;                                 #
;                                 #
;                                 #
;                                 #)
;                               (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\>))
;                              (:HTML
;                               (LISP-MARKUP-LANGUAGE-2:LML-WRITE-STRING
;                                LISP-MARKUP-LANGUAGE-2::+HTML4-DTD-STRING+)))
;                            (LISP-MARKUP-LANGUAGE-2:LML-WRITE-CHAR #\Newline)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL (FORMAT :XHTML11)
;                                                                &KEY
;                                                                ENTITIES)

; compiling (DEFMACRO HTML-FILE-PAGE ...)
; compiling (DEFMACRO ALINK ...)
; compiling (DEFMACRO ALINK-C ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/base.fasl written
; compilation finished in 0:00:00
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {40007F11}> on
   #<CL-SOURCE-FILE "base" {4022CAE9}>.
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/stdsite.lisp" (written 28 JAN 2005 09:14:07 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFMACRO STD-HEAD ...)
; compiling (DEFUN STD-FOOTER ...)
; compiling (DEFMACRO STD-BODY ...)
; compiling (DEFMACRO PRINT-STD-PAGE ...)
; compiling (DEFMACRO STD-PAGE ...)
; compiling (DEFMACRO TITLED-PRE-SECTION ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/stdsite.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/downloads.lisp" (written 15 SEP 2004 12:44:47 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFSTRUCT DL-DATA ...)
; compiling (DEFUN LIST-FILES ...)
; compiling (DEFUN STRIP-DL-BASE ...)
; compiling (DEFUN PRINT-FILE ...)
; compiling (DEFUN DISPLAY-HEADER ...)
; compiling (DEFUN DISPLAY-FOOTER ...)
; compiling (DEFUN PRINT-SECT-TITLE ...)
; compiling (DEFUN MATCH-BASE-NAME? ...)
; compiling (DEFUN MATCH-BASE-NAME-LATEST? ...)
; compiling (DEFUN FILTER-AGAINST-BASE ...)
; compiling (DEFUN FILTER-LATEST ...)
; compiling (DEFUN SORT-PATHNAMES ...)
; compiling (DEFUN DISPLAY-ONE-SECTION ...)
; compiling (DEFUN DISPLAY-SECTIONS ...)
; compiling (DEFUN DISPLAY-PAGE ...)
; compiling (DEFUN STD-DL-PAGE ...)
; compiling (DEFUN FULL-DL-PAGE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/downloads.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/apache-dir.lisp" (written 15 SEP 2004 12:44:47 PM):
; compiling (IN-PACKAGE #:LML2)
; compiling (DEFPARAMETER *APACHE-NAME-WIDTH* ...)
; compiling (DEFUN WRITE-NAME-TRAILING-SPACES ...)
; compiling (DEFUN WRITE-NAME-LINK ...)
; compiling (DEFUN UNIVERSAL-TIME-TO-APACHE-DATE ...)
; compiling (DEFUN SORT-DIR-ENTRIES ...)
; compiling (DEFUN WRITE-HTML-APACHE-DIRECTORY ...)
; 
; caught STYLE-WARNING:
;   Too many arguments (3) to FORMAT "~Aback.png": uses at most 1.
;   See also:
;     The ANSI Standard, Section 22.3.10.2

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/lml2-1.5.5/apache-dir.fasl written
; compilation finished in 0:00:01
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {10008031}> on
   #<CL-SOURCE-FILE "apache-dir" {10213509}>.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tinaa/dev/package.lisp" (written 11 APR 2006 09:41:38 AM):
; compiling (IN-PACKAGE COMMON-LISP-USER)
; compiling (DEFPACKAGE #:TINAA ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tinaa/dev/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tinaa/dev/class-defs.lisp" (written 11 APR 2006 09:41:38 AM):
; compiling (IN-PACKAGE DOCLISP)
; compiling (DEFCLASS* BASIC-DOCLISP-PART ...)
; compiling (DEFMETHOD INDEX-KINDS ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD SPAN-CLASS-FOR-PART-NAME ...)
; compiling (DEFCLASS* SUBPART-KIND ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS* DOCLISP-PART ...)
; compiling (DEFCLASS* DOCLISP-ASSEMBLY ...)
; compiling (DEFCLASS* NAME-HOLDER-MIXIN ...)
; compiling (DEFCONDITION CANNOT-MAKE-PART ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tinaa/dev/class-defs.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tinaa/dev/api.lisp" (written 11 APR 2006 09:41:38 AM):
; compiling (IN-PACKAGE TINAA)
; compiling (DEFGENERIC DOCUMENT-PART-P ...)
; compiling (DEFGENERIC SUBPART-KINDS ...)
; compiling (DEFGENERIC INDEX-KINDS ...)
; compiling (DEFGENERIC PARTNAME-LIST ...)
; compiling (DEFGENERIC DISPLAY-PART ...)
; compiling (DEFGENERIC DOCUMENT-SYSTEM-PART ...)
; compiling (DEFGENERIC MAKE-SYSTEM-PART ...)
; compiling (DEFGENERIC PART-NAME ...)
; compiling (DEFGENERIC PART-DOCUMENTATION ...)
; compiling (DEFGENERIC SHORT-DOCUMENTATION ...)
; compiling (DEFGENERIC DOCUMENT-PART-TO-FILE ...)
; compiling (DEFGENERIC URL-FOR-PART ...)
; compiling (DEFGENERIC FIND-PART ...)
; compiling (DEFGENERIC GROVEL-PART ...)
; compiling (DEFGENERIC FINISH-GROVEL ...)
; compiling (DEFGENERIC DOCUMENTATION-EXISTS-P ...)
; compiling (DEFGENERIC MAKE-PART ...)
; compiling (DEFGENERIC INCLUDE-KIND-IN-INDEX-P ...)
; compiling (DEFGENERIC SPAN-CLASS-FOR-PART-NAME ...)
; compiling (DEFGENERIC SHOW-PART-PARENTS ...)
; compiling (DEFGENERIC OUTPUT-TABLE-SUMMARY-OF-PARTS ...)
; compiling (DEFGENERIC BUILD-INDEX-LINKS ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tinaa/dev/api.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tinaa/dev/macros.lisp" (written 11 APR 2006 09:41:38 AM):
; compiling (IN-PACKAGE DOCLISP)
; compiling (DEFMACRO WITH-HTML-OUTPUT ...)
; compiling (DEFMACRO DOCUMENTING ...)
; compiling (DEFMACRO DOCUMENTING-PAGE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tinaa/dev/macros.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tinaa/dev/utilities.lisp" (written 11 APR 2006 09:41:38 AM):
; compiling (IN-PACKAGE TINAA)
; compiling (LET (#) ...)
; compilation aborted after 0:00:00
; 
; compilation unit aborted
;   caught 2 fatal ERROR conditions
  full call to SB-KERNEL:DATA-VECTOR-REF
This is probably a bug in SBCL itself. (Alternatively, SBCL might have been
corrupted by bad user code, e.g. by an undefined Lisp operation like
(FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe
Lisp code; or there might be a bug in the OS or hardware that SBCL is running
on.) If it seems to be a bug in SBCL itself, the maintainers would like to know
about it. Bug reports are welcome on the SBCL mailing lists, which you can find
at <http://sbcl.sourceforge.net/>.
Author:	Gary Warren King <gwking@metabang.com>
Version:	0.5
Started at:	2006-04-16 01:53:15
Ended at:	2006-04-16 01:57:31
Elapsed time (seconds):	256
Depends On:	defsystem-compatibility, metatilities, lml2, cl-graph
Error:	full call to SB-KERNEL:DATA-VECTOR-REF This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at <http://sbcl.sourceforge.net/>.
Most recent change:	2006-04-11 09:41:38
Most recent file:	/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/tinaa/COPYING
tinaa on sbcl-0.9.9-darwin-ppc - Details

REPL Output
