REPL Output
;;; ASDF-INSTALL: Downloading 10759 bytes from http://common-lisp.net/project/cl-containers/clnuplot/clnuplot_latest.tar.gz to /Users/gwking/temporary/asdf-test/CLNUPLOT.asdf-install-tmp ...
;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/CLNUPLOT.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/
clnuplot/
clnuplot/clnuplot.asd
clnuplot/COPYING
clnuplot/dev/
clnuplot/dev/clnuplot.system
clnuplot/dev/examples.lisp
clnuplot/dev/load-glu.lisp
clnuplot/dev/notes.text
clnuplot/dev/package.lisp
clnuplot/dev/plot-window.lisp
clnuplot/dev/plots/
clnuplot/dev/plots.lisp
clnuplot/dev/roc-curves.lisp
clnuplot/dev/serialize.lisp
clnuplot/dev/utilities.lisp
clnuplot/website/
clnuplot/website/source/
clnuplot/website/source/images/
clnuplot/website/source/index.lml
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clnuplot/"
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clnuplot/" ;;; ASDF-INSTALL: Downloading package CL-MATHSTATS, required by clnuplot
;;; 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 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 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:00
; 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:01
; 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:03
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {10009059}> on
#<CL-SOURCE-FILE "moptilities" {10009069}>.
;
; 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:01
; 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:00
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40008B91}> on
#<CL-SOURCE-FILE "l0-utils" {40008BA1}>.
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:01
; 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:01
; 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:00
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:05
; 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:01
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:00
; 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:11
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:04
; 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:01
; 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:09
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:03
; 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:01
; 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:08
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:04
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:01
; 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:01
; 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:01
; 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:07
WARNING:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {40007EB9}> on
#<CL-SOURCE-FILE "basic-statistics" {40007EC9}>.
; 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:01
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
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clnuplot/dev/package.lisp" (written 04 APR 2006 09:26:48 AM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (UNLESS (FIND-PACKAGE #:CLNUPLOT) ...)
; compilation aborted after 0:00:00
;
; compilation unit aborted
; caught 2 fatal ERROR conditions
The variable #:CLNUPLOT is unbound.