1; loading system definition from /usr/local/lib/sbcl/systems/sb-bsd-sockets.asd
2; into #<PACKAGE "ASDF3905">
3; registering #<SYSTEM SB-BSD-SOCKETS {40490F81}> as SB-BSD-SOCKETS
4; registering #<SYSTEM SB-BSD-SOCKETS-TESTS {40857059}> as SB-BSD-SOCKETS-TESTS
5; loading system definition from /usr/local/lib/sbcl/systems/sb-posix.asd into
6; #<PACKAGE "ASDF4042">
7; registering #<SYSTEM SB-POSIX {1073BA29}> as SB-POSIX
8; registering #<SYSTEM SB-POSIX-TESTS {108B31A9}> as SB-POSIX-TESTS
9; loading system definition from
10; USER-HOME:DARCS;ASDF-SYSTEMS;CL-GRAPH.ASD.NEWEST into #<PACKAGE "ASDF4272">
11; registering #<SYSTEM CL-GRAPH {1035E2E9}> as CL-GRAPH
12; loading system definition from
13; USER-HOME:DARCS;ASDF-SYSTEMS;CL-MATHSTATS.ASD.NEWEST into
14; #<PACKAGE "ASDF4274">
15; registering #<SYSTEM CL-MATHSTATS {1052B6F1}> as CL-MATHSTATS
16; loading system definition from
17; USER-HOME:DARCS;ASDF-SYSTEMS;CL-CONTAINERS.ASD.NEWEST into
18; #<PACKAGE "ASDF4276">
19; loading system definition from
20; USER-HOME:DARCS;ASDF-SYSTEMS;ASDF-SYSTEM-CONNECTIONS.ASD.NEWEST into
21; #<PACKAGE "ASDF4277">
22; registering #<SYSTEM ASDF-SYSTEM-CONNECTIONS {106FC8F1}> as
23; ASDF-SYSTEM-CONNECTIONS
24; registering #<SYSTEM CL-CONTAINERS {108EEAF9}> as CL-CONTAINERS
25; loading system definition from
26; USER-HOME:DARCS;ASDF-SYSTEMS;METATILITIES-BASE.ASD.NEWEST into
27; #<PACKAGE "ASDF4301">
28; registering #<SYSTEM METATILITIES-BASE {10A98241}> as METATILITIES-BASE
29; loading system definition from
30; USER-HOME:DARCS;ASDF-SYSTEMS;MOPTILITIES.ASD.NEWEST into #<PACKAGE "ASDF4303">
31; registering #<SYSTEM MOPTILITIES {10C3DA51}> as MOPTILITIES
32; loading system definition from
33; USER-HOME:DARCS;ASDF-SYSTEMS;METABANG-BIND.ASD.NEWEST into
34; #<PACKAGE "ASDF4305">
35; registering #<SYSTEM METABANG-BIND {40296EC1}> as METABANG-BIND
36; registering #<SYSTEM-CONNECTION BIND-AND-METATILITIES {40432269}> as
37; BIND-AND-METATILITIES
38; loading system definition from
39; USER-HOME:DARCS;ASDF-SYSTEMS;METATILITIES.ASD.NEWEST into
40; #<PACKAGE "ASDF4316">
41; registering #<SYSTEM METABANG-GENERIC-LISP {40706581}> as
42; METABANG-GENERIC-LISP
43; in: LAMBDA NIL
44;     (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)
45; ==>
46;   *LOAD-TRUENAME*
47;
48; note: deleting unreachable code
49
50;     (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*))
51;       *DEFAULT-PATHNAME-DEFAULTS*)
52; --> LET IF OR
53; ==>
54;   *DEFAULT-PATHNAME-DEFAULTS*
55;
56; note: deleting unreachable code
57;
58; compilation unit finished
59;   printed 2 notes
60; registering #<SYSTEM METATILITIES {4088F0A9}> as METATILITIES
61;     (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)
62; ==>
63;   *LOAD-TRUENAME*
64;
65; note: deleting unreachable code
66
67;     (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*))
68;       *DEFAULT-PATHNAME-DEFAULTS*)
69; --> LET IF OR
70; ==>
71;   *DEFAULT-PATHNAME-DEFAULTS*
72;
73; note: deleting unreachable code
74;
75; compilation unit finished
76;   printed 2 notes
77STYLE-WARNING: implicitly creating new generic function SUBCLASSP
78STYLE-WARNING: implicitly creating new generic function MOPU-METHOD-SPECIALIZERS
79STYLE-WARNING: implicitly creating new generic function MOPU-METHOD-QUALIFIERS
80STYLE-WARNING:
81   implicitly creating new generic function MOPU-GENERIC-FUNCTION-METHODS
82STYLE-WARNING:
83   implicitly creating new generic function MOPU-SPECIALIZER-DIRECT-GENERIC-FUNCTIONS
84STYLE-WARNING:
85   implicitly creating new generic function MOPU-GENERIC-FUNCTION-NAME
86STYLE-WARNING: implicitly creating new generic function MOPU-EQL-SPECIALIZER-P
87STYLE-WARNING: implicitly creating new generic function RESET
88STYLE-WARNING: implicitly creating new generic function MACINTOSH-PATH->UNIX
89STYLE-WARNING: implicitly creating new generic function IS-INTERFACE-AVAILABLE-P
90STYLE-WARNING: implicitly creating new generic function QUIT-LISP*
91STYLE-WARNING: implicitly creating new generic function INTERFACE-BEEP*
92STYLE-WARNING: implicitly creating new generic function INTERFACE-BEEP
93STYLE-WARNING: redefining QUIT-LISP* in DEFGENERIC
94STYLE-WARNING: implicitly creating new generic function GUI-ERROR*
95STYLE-WARNING: implicitly creating new generic function GUI-WARN*
96STYLE-WARNING: implicitly creating new generic function MAKE-COLOR*
97STYLE-WARNING: implicitly creating new generic function MAKE-GRAY*
98STYLE-WARNING: implicitly creating new generic function MAKE-GRAY
99STYLE-WARNING: implicitly creating new generic function MAKE-SCALED-COLOR*
100STYLE-WARNING: implicitly creating new generic function MAKE-SCALED-COLOR
101STYLE-WARNING: implicitly creating new generic function CHOOSE-FILE-QUESTION*
102STYLE-WARNING:
103   implicitly creating new generic function CHOOSE-NEW-FILE-QUESTION*
104STYLE-WARNING:
105   implicitly creating new generic function CHOOSE-DIRECTORY-QUESTION*
106STYLE-WARNING: implicitly creating new generic function CHOOSE-ITEM-QUESTION*
107STYLE-WARNING: implicitly creating new generic function CHOOSE-ITEM-FROM-PUP*
108STYLE-WARNING: implicitly creating new generic function MAKE-UI-POINT*
109STYLE-WARNING: implicitly creating new generic function PROCESS-PARAMETERS*
110STYLE-WARNING: implicitly creating new generic function PROCESS-PARAMETERS
111STYLE-WARNING: implicitly creating new generic function PUT-ITEM-ON-CLIPBOARD*
112STYLE-WARNING: implicitly creating new generic function PUT-ITEM-ON-CLIPBOARD
113STYLE-WARNING: implicitly creating new generic function INSPECT-THING*
114STYLE-WARNING: implicitly creating new generic function INSPECT-THING
115STYLE-WARNING: implicitly creating new generic function SOUND-NOTE*
116STYLE-WARNING: implicitly creating new generic function SOUND-NOTE
117STYLE-WARNING: implicitly creating new generic function STOP-NOTES*
118STYLE-WARNING: implicitly creating new generic function SELECT-INSTRUMENT*
119STYLE-WARNING: implicitly creating new generic function SELECT-INSTRUMENT
120STYLE-WARNING: implicitly creating new generic function PROMPT-FOR*
121STYLE-WARNING: implicitly creating new generic function PROMPT-FOR
122STYLE-WARNING: implicitly creating new generic function SHELL-COMMAND*
123STYLE-WARNING: implicitly creating new generic function SHELL-COMMAND
124STYLE-WARNING: implicitly creating new generic function DEFCLASS*-SUPERCLASSES
125STYLE-WARNING:
126   implicitly creating new generic function (SETF DEFCLASS*-SUPERCLASSES)
127; compiling file "/Users/gwking/darcs/cl-containers/dev/package.lisp" (written 18 NOV 2005 08:16:42 AM):
128; compiling (IN-PACKAGE COMMON-LISP-USER)
129; compiling (DEFPACKAGE "METABANG.CL-CONTAINERS" ...)
130
131; /Users/gwking/darcs/cl-containers/dev/package.fasl written
132; compilation finished in 0:00:00
133; compiling file "/Users/gwking/darcs/cl-containers/dev/container-api.lisp" (written 21 OCT 2005 03:54:51 PM):
134; compiling (IN-PACKAGE CONTAINERS)
135; compiling (DEFGENERIC SAMPLE-ELEMENTS ...)
136; compiling (DEFGENERIC SAMPLE-KEY ...)
137; compiling (DEFGENERIC SAMPLE-UNIQUE-ELEMENTS ...)
138; compiling (DEFGENERIC SAMPLE-ELEMENT ...)
139; compiling (DEFGENERIC SAMPLE-ITEM ...)
140; compiling (DEFGENERIC BEST-ITEM ...)
141; compiling (DEFGENERIC ARGMAX ...)
142; compiling (DEFGENERIC ARGMIN ...)
143; compiling (DEFGENERIC MAKE-NODE-FOR-CONTAINER ...)
144; compiling (DEFGENERIC NODE-EMPTY-P ...)
145; compiling (DEFGENERIC SIZE ...)
146; compiling (DEFGENERIC EMPTY! ...)
147; compiling (DEFGENERIC SOME-ITEM-P ...)
148; compiling (DEFGENERIC EVERY-ITEM-P ...)
149; compiling (DEFGENERIC MAKE-CONTAINER-FOR-CONTENTS ...)
150; compiling (DEFGENERIC NTH-ELEMENT ...)
151; compiling (DEFGENERIC NTH-ITEM ...)
152; compiling (DEFGENERIC TOTAL-SIZE ...)
153; compiling (DEFGENERIC ITEM-AT ...)
154; compiling (DEFGENERIC ITEM-AT! ...)
155; compiling (DEFGENERIC FIND-ITEM ...)
156; compiling (DEFGENERIC FIND-NODE ...)
157; compiling (DEFGENERIC FIND-ELEMENT ...)
158; compiling (DEFGENERIC SEARCH-FOR-ITEM ...)
159; compiling (DEFGENERIC SEARCH-FOR-MATCH ...)
160; compiling (DEFGENERIC ITERATE-NODES ...)
161; compiling (DEFGENERIC PRINT-CONTAINER ...)
162; compiling (DEFGENERIC COLLECT-NODES ...)
163; compiling (DEFGENERIC COLLECT-ELEMENTS ...)
164; compiling (DEFGENERIC COLLECT-KEY-VALUE ...)
165; compiling (DEFGENERIC COLLECT-KEYS ...)
166; compiling (DEFGENERIC ITERATE-KEY-VALUE ...)
167; compiling (DEFGENERIC ITERATE-VALUE-KEY ...)
168; compiling (DEFGENERIC FIRST-ITEM ...)
169; compiling (DEFGENERIC LAST-ITEM ...)
170; compiling (DEFGENERIC DELETE-FIRST ...)
171; compiling (DEFGENERIC DELETE-LAST ...)
172; compiling (DEFGENERIC INSERT-ITEM ...)
173; compiling (DEFGENERIC APPEND-ITEM ...)
174; compiling (DEFGENERIC INSERT-NEW-ITEM ...)
175; compiling (DEFGENERIC APPEND-NEW-ITEM ...)
176; compiling (DEFGENERIC INSERT-SEQUENCE ...)
177; compiling (DEFGENERIC INSERT-LIST ...)
178; compiling (DEFGENERIC DELETE-LIST ...)
179; compiling (DEFGENERIC REVERSE-FIND ...)
180; compiling (DEFGENERIC ENQUEUE ...)
181; compiling (DEFGENERIC DEQUEUE ...)
182; compiling (DEFGENERIC POP-ITEM ...)
183; compiling (DEFGENERIC CHILDREN ...)
184; compiling (DEFGENERIC ENSURE-SORTED ...)
185; compiling (DEFGENERIC FORCE-SORT ...)
186; compiling (DEFGENERIC REMOVE-ITEMS-IF ...)
187; compiling (DEFGENERIC CONTAINER->ARRAY ...)
188; compiling (DEFGENERIC ELEMENT-POSITION ...)
189; compiling (DEFGENERIC DELETE-ITEM ...)
190; compiling (DEFGENERIC DELETE-ITEM-IF ...)
191
192; /Users/gwking/darcs/cl-containers/dev/container-api.fasl written
193; compilation finished in 0:00:02
194; compiling file "/Users/gwking/darcs/cl-containers/dev/containers.lisp" (written 21 OCT 2005 03:54:51 PM):
195; compiling (IN-PACKAGE CONTAINERS)
196; compiling (DEFPARAMETER +EMPTY-INITIAL-ELEMENT+ ...)
197; compiling (DEFCLASS* ABSTRACT-CONTAINER ...)
198; compiling (DEFCLASS* CONCRETE-CONTAINER ...)
199; compiling (DEFCLASS* CONTAINER-NODE-MIXIN ...)
200; compiling (DEFCLASS* LIST-CONTAINER ...)
201; compiling (DEFCLASS* PARENT-NODE-MIXIN ...)
202; compiling (DEFCLASS* TWO-CHILD-NODE ...)
203; compiling (DEFCLASS* KEYED-CONTAINER-MIXIN ...)
204; compiling (DEFCLASS* TYPED-CONTAINER-MIXIN ...)
205; compiling (DEFCLASS* BOUNDED-CONTAINER-MIXIN ...)
206; compiling (DEFCLASS* INDEXED-CONTAINER-MIXIN ...)
207; compiling (DEFMETHOD (SETF ITEM-AT) ...)
208; compiling (DEFCLASS* INITIAL-ELEMENT-MIXIN ...)
209; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
210; compiling (DEFUN RETURN-EMPTY-INITIAL-ELEMENT ...)
211; compiling (DEFMETHOD MAKE-INITIAL-ELEMENT ...)
212; compiling (DEFCLASS* BASIC-INITIAL-CONTENTS-MIXIN ...)
213; compiling (DEFCLASS* INITIAL-CONTENTS-MIXIN ...)
214; compiling (DEFGENERIC INSERT-INITIAL-CONTENTS-P ...)
215; compiling (DEFCLASS* INITIAL-CONTENTS-KEY-VALUE-MIXIN ...)
216; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
217; compiling (DEFCLASS* TEST-CONTAINER-MIXIN ...)
218; compiling (DEFCLASS* CONTAINER-USES-NODES-MIXIN ...)
219; compiling (DEFCLASS* FINDABLE-CONTAINER-MIXIN ...)
220; compiling (DEFCLASS* SEARCHABLE-CONTAINER-MIXIN ...)
221; compiling (DEFCLASS* ITERATABLE-CONTAINER-MIXIN ...)
222; compiling (DEFGENERIC ITERATABLE-P ...)
223; compiling (DEFMETHOD ITERATE-CONTAINER ...)
224; compiling (DEFMETHOD COLLECT-ITEMS ...)
225; compiling (DEFCLASS* I-KNOW-MY-NODE-MIXIN ...)
226; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
227; compiling (DEFCLASS* NON-ASSOCIATIVE-CONTAINER-MIXIN ...)
228; compiling (DEFCLASS* UNORDERED-CONTAINER-MIXIN ...)
229; compiling (DEFCLASS* ORDERED-CONTAINER-MIXIN ...)
230; compiling (DEFCLASS* SORTED-CONTAINER-MIXIN ...)
231; compiling (DEFCLASS* CLASSIFIED-CONTAINER-MIXIN ...)
232; compiling (DEFCLASS* USES-CONTENTS-MIXIN ...)
233; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
234; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
235; compiling (DEFMETHOD ITERATE-NODES ...)
236; compiling (DEFCLASS* CONTENTS-AS-SEQUENCE-MIXIN ...)
237; compiling (DEFCLASS* CONTENTS-AS-ARRAY-MIXIN ...)
238; compiling (DEFMETHOD SIZE ...)
239; compiling (DEFMETHOD TOTAL-SIZE ...)
240; compiling (DEFMETHOD INSERT-INITIAL-CONTENTS-P ...)
241; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
242; compiling (DEFCLASS* CONTENTS-AS-LIST-MIXIN ...)
243; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
244; compiling (DEFCLASS* CONTENTS-AS-HASHTABLE-MIXIN ...)
245; compiling (DEFCLASS* STABLE-ASSOCIATIVE-CONTAINER ...)
246; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
247; compiling (DEFCLASS* ASSOCIATIVE-ARRAY ...)
248; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
249
250; /Users/gwking/darcs/cl-containers/dev/containers.fasl written
251; compilation finished in 0:00:11
252STYLE-WARNING: implicitly creating new generic function (SETF ITEM-AT)
253STYLE-WARNING: implicitly creating new generic function MAKE-INITIAL-ELEMENT
254STYLE-WARNING: implicitly creating new generic function ITERATE-CONTAINER
255STYLE-WARNING: implicitly creating new generic function COLLECT-ITEMS
256STYLE-WARNING: implicitly creating new generic function MAKE-NODE-FOR-CONTAINER
257STYLE-WARNING: implicitly creating new generic function COLLECT-ELEMENTS
258STYLE-WARNING: implicitly creating new generic function ITERATE-NODES
259STYLE-WARNING: implicitly creating new generic function SIZE
260STYLE-WARNING: implicitly creating new generic function TOTAL-SIZE
261STYLE-WARNING:
262   implicitly creating new generic function MAKE-CONTAINER-FOR-CONTENTS
263; compiling file "/Users/gwking/darcs/cl-containers/dev/basic-operations.lisp" (written 28 OCT 2005 12:18:11 PM):
264; compiling (IN-PACKAGE CONTAINERS)
265; compiling (DEFCONDITION CONTAINER-ERROR ...)
266; compiling (DEFCONDITION INDEX-OUT-OF-RANGE-ERROR ...)
267; compiling (DEFGENERIC MAKE-CONTAINER ...)
268; compiling (DEFUN FIND-MATCHING-CONTAINER-CLASS ...)
269; compiling (DEFGENERIC EMPTY-P ...)
270; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
271; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
272; compiling (DEFMETHOD FIND-ELEMENT ...)
273; compiling (DEFMETHOD DELETE-ITEM ...)
274; compiling (DEFMETHOD DELETE-ELEMENT ...)
275; compiling (DEFMETHOD PRINT-CONTAINER ...)
276; compiling (DEPRECATED "Use collect-elements instead." ...)
277; compiling (DEFMETHOD NTH-ELEMENT ...)
278; compiling (DEFMETHOD NTH-ELEMENT ...)
279; compiling (DEFMETHOD COLLECT-NODES ...)
280; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
281; compiling (DEFUN COLLECTOR-INTERNAL ...)
282; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
283; compiling (DEFMETHOD SEARCH-FOR-ELEMENT ...)
284; compiling (DEFMETHOD SEARCH-FOR-NODE ...)
285; compiling (DEFUN %SEARCH-IN-CONTAINER ...)
286; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
287; compiling (DEFUN %SEARCH-FOR-MATCH ...)
288; compiling (DEFMETHOD SEARCH-FOR-MATCHING-NODE ...)
289; compiling (DEFMETHOD SEARCH-FOR-NODE ...)
290; compiling (DEFMETHOD SEARCH-FOR-NODE ...)
291; compiling (DEFMETHOD SEARCH-FOR-NODE* ...)
292; compiling (DEFMETHOD SEARCH-FOR-NODE* ...)
293; compiling (DEFMETHOD BEST-ITEM ...)
294; compiling (DEFMETHOD BEST-ITEM ...)
295; compiling (DEFMETHOD BEST-NODE ...)
296; compiling (DEFMETHOD BEST-ELEMENT ...)
297; compiling (DEFUN %BEST-HELPER ...)
298; compiling (DEFMETHOD ARGMAX ...)
299; file: /Users/gwking/darcs/cl-containers/dev/basic-operations.lisp
300; in: DEFMETHOD ARGMAX (T T)
301;     (DEFMETHOD METABANG.UTILITIES:ARGMAX
302;              ((METABANG.CL-CONTAINERS::ITEMS T) FUNCTION &REST
303;               METABANG.CL-CONTAINERS::ARGS &KEY METABANG.CL-CONTAINERS::KEY
304;               METABANG.CL-CONTAINERS:FILTER)
305;              (DECLARE
306;               (IGNORE METABANG.CL-CONTAINERS::TEST
307;                       METABANG.CL-CONTAINERS::KEY
308;                       METABANG.CL-CONTAINERS:FILTER))
309;              (APPLY #'METABANG.UTILITIES:BEST-ITEM
310;                     METABANG.CL-CONTAINERS::ITEMS
311;                     FUNCTION
312;                     :TEST
313;                     #'>
314;                     METABANG.CL-CONTAINERS::ARGS))
315; --> PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
316; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
317; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
318; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
319; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
320; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
321; ==>
322;   (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
323;          (METABANG.CL-CONTAINERS::ARGS SB-PCL::.ARGS-TAIL.)
324;          (METABANG.CL-CONTAINERS::KEY
325;           (CAR (SB-PCL::GET-KEY-ARG-TAIL :KEY SB-PCL::.ARGS-TAIL.)))
326;          (METABANG.CL-CONTAINERS:FILTER
327;           (CAR (SB-PCL::GET-KEY-ARG-TAIL :FILTER SB-PCL::.ARGS-TAIL.)))
328;          (SB-PCL::.DUMMY0.))
329;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
330;     (DECLARE
331;      (IGNORE METABANG.CL-CONTAINERS:FILTER
332;              METABANG.CL-CONTAINERS::KEY
333;              METABANG.CL-CONTAINERS::TEST))
334;     (BLOCK METABANG.UTILITIES:ARGMAX
335;       (APPLY #'METABANG.UTILITIES:BEST-ITEM
336;              METABANG.CL-CONTAINERS::ITEMS
337;              FUNCTION
338;              :TEST
339;              #'>
340;              METABANG.CL-CONTAINERS::ARGS)))
341;
342; caught STYLE-WARNING:
343;   declaring unknown variable TEST to be ignored
344
345; compiling (DEFMETHOD ARGMIN ...)
346; file: /Users/gwking/darcs/cl-containers/dev/basic-operations.lisp
347; in: DEFMETHOD ARGMIN (T T)
348;     (DEFMETHOD METABANG.UTILITIES:ARGMIN
349;              ((METABANG.CL-CONTAINERS::ITEMS T) FUNCTION &REST
350;               METABANG.CL-CONTAINERS::ARGS &KEY METABANG.CL-CONTAINERS::KEY
351;               METABANG.CL-CONTAINERS:FILTER)
352;              (DECLARE
353;               (IGNORE METABANG.CL-CONTAINERS::TEST
354;                       METABANG.CL-CONTAINERS::KEY
355;                       METABANG.CL-CONTAINERS:FILTER))
356;              (APPLY #'METABANG.UTILITIES:BEST-ITEM
357;                     METABANG.CL-CONTAINERS::ITEMS
358;                     FUNCTION
359;                     :TEST
360;                     #'<
361;                     METABANG.CL-CONTAINERS::ARGS))
362; --> PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
363; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
364; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
365; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
366; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
367; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS
368; ==>
369;   (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
370;          (METABANG.CL-CONTAINERS::ARGS SB-PCL::.ARGS-TAIL.)
371;          (METABANG.CL-CONTAINERS::KEY
372;           (CAR (SB-PCL::GET-KEY-ARG-TAIL :KEY SB-PCL::.ARGS-TAIL.)))
373;          (METABANG.CL-CONTAINERS:FILTER
374;           (CAR (SB-PCL::GET-KEY-ARG-TAIL :FILTER SB-PCL::.ARGS-TAIL.)))
375;          (SB-PCL::.DUMMY0.))
376;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
377;     (DECLARE
378;      (IGNORE METABANG.CL-CONTAINERS:FILTER
379;              METABANG.CL-CONTAINERS::KEY
380;              METABANG.CL-CONTAINERS::TEST))
381;     (BLOCK METABANG.UTILITIES:ARGMIN
382;       (APPLY #'METABANG.UTILITIES:BEST-ITEM
383;              METABANG.CL-CONTAINERS::ITEMS
384;              FUNCTION
385;              :TEST
386;              #'<
387;              METABANG.CL-CONTAINERS::ARGS)))
388;
389; caught STYLE-WARNING:
390;   declaring unknown variable TEST to be ignored
391
392; compiling (DEFMETHOD REDUCE-CONTAINER ...)
393; compiling (DEFMETHOD REDUCE-ELEMENTS ...)
394; compiling (DEFMETHOD REDUCE-NODES ...)
395; compiling (DEFUN REDUCE-INTERNAL ...)
396; compiling (DEFMETHOD DELETE-ITEM-IF ...)
397; compiling (DEFMETHOD FIRST-ITEM ...)
398; compiling (DEFCLASS* KEY-VALUE-ITERATABLE-CONTAINER-MIXIN ...)
399; compiling (DEFMETHOD DELETE-ITEM ...)
400; compiling (DEFMETHOD DELETE-LIST ...)
401; compiling (DEFMETHOD INSERT-LIST ...)
402; compiling (DEFMETHOD INSERT-SEQUENCE ...)
403; compiling (DEFMETHOD INSERT-SEQUENCE ...)
404; compiling (DEFMETHOD INSERT-SEQUENCE ...)
405; compiling (DEFMETHOD INSERT-NEW-ITEM ...)
406; compiling (DEFGENERIC SUCCESSOR ...)
407; compiling (DEFGENERIC PREDECESSOR ...)
408; compiling (DEFMETHOD SIZE ...)
409; compiling (DEFMETHOD EMPTY-P ...)
410; compiling (DEPRECATED "Use collect-elements instead." ...)
411; compiling (DEFMETHOD SORT-ELEMENTS ...)
412; compiling (DEFMETHOD EMPTY! ...)
413; compiling (DEFMETHOD ITERATE-NODES ...)
414; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
415; compiling (DEFMETHOD FIND-ITEM ...)
416; compiling (DEFMETHOD SOME-ITEM-P ...)
417; compiling (DEFMETHOD EVERY-ITEM-P ...)
418; compiling (DEFMETHOD SOME-ELEMENT-P ...)
419; compiling (DEFMETHOD EVERY-ELEMENT-P ...)
420; compiling (DEFUN %EVERY-THING-P ...)
421; compiling (DEFUN %SOME-THING-P ...)
422; compiling (DEFMETHOD INSERT-ITEM ...)
423; compiling (DEFMETHOD APPEND-ITEM ...)
424; compiling (DEFMETHOD APPEND-NEW-ITEM ...)
425; compiling (DEFMETHOD EMPTY-P ...)
426; compiling (DEFMETHOD EMPTY! ...)
427; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
428; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
429; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
430; compiling (DEFMETHOD SIZE ...)
431; compiling (DEFMETHOD EMPTY! ...)
432; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
433; compiling (DEFMETHOD ITERATE-NODES ...)
434; compiling (DEFMETHOD ITERATE-KEYS ...)
435; compiling (DEFMETHOD COLLECT-KEY-VALUE ...)
436; compiling (DEFUN %COLLECT-KEY-VALUE ...)
437; compiling (DEFMETHOD FIND-ITEM ...)
438; compiling (DEFMETHOD REVERSE-FIND ...)
439; compiling (DEFMETHOD FIND-VALUE ...)
440; compiling (DEFMETHOD ITEM-AT! ...)
441; compiling (DEFMETHOD ADD-DEFAULT-ITEM ...)
442; compiling (DEFMETHOD ITEM-AT ...)
443; compiling (DEFMETHOD SIZE ...)
444; compiling (DEFMETHOD ITERATE-KEYS ...)
445; compiling (DEFMETHOD ITERATE-NODES ...)
446; compiling (DEFMETHOD ITERATE-ELEMENTS-STABLY ...)
447; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
448; compiling (DEFMETHOD COLLECT-KEYS ...)
449; compiling (DEFMETHOD ITERATE-KEY-VALUE-STABLY ...)
450; compiling (DEFMETHOD COLLECT-KEY-VALUE-STABLY ...)
451; compiling (DEFMETHOD COLLECT-ELEMENTS-STABLY ...)
452; compiling (DEFMETHOD EMPTY! ...)
453; compiling (DEFMETHOD ITEM-AT! ...)
454; compiling (DEFUN TUPLE-INDEX ...)
455; compiling (DEFMETHOD ITEM-AT ...)
456; compiling (DEFMETHOD ITERATE-NODES ...)
457; compiling (DEFMETHOD CONTAINER-DIMENSION ...)
458; compiling (DEFMETHOD DIMENSIONS ...)
459; compiling (DEFMETHOD FIND-ITEM ...)
460; compiling (DEFMETHOD INSERT-ITEM ...)
461; compiling (DEFUN COLLECT-USING ...)
462; compiling (DEFUN COUNT-USING ...)
463; compiling (DEFMETHOD CONTAINER-DIFFERENCE ...)
464; compiling (DEFUN ASSOCIATIVE-CONTAINER-P ...)
465; compiling (DEFMETHOD ADD-INITIAL-CONTENTS ...)
466; compiling (DEFMETHOD ADD-INITIAL-CONTENTS ...)
467; compiling (DEFUN ADD-INITIAL-CONTENTS-INTERNAL ...)
468; compiling (DEFMETHOD ADD-INITIAL-CONTENTS ...)
469; compiling (DEFMETHOD ELEMENT-POSITION ...)
470; compiling (DEFMETHOD ELEMENT-POSITION ...)
471; compiling (DEFMETHOD SAMEP ...)
472; compiling (DEFMETHOD SAMEP ...)
473; compiling (DEFMETHOD SAMEP ...)
474; compiling (DEFMETHOD SAMEP ...)
475
476; /Users/gwking/darcs/cl-containers/dev/basic-operations.fasl written
477; compilation finished in 0:18:24
478WARNING:
479   COMPILE-FILE warned while performing #<COMPILE-OP NIL {10003249}> on
480   #<CL-SOURCE-FILE "basic-operations" {10003259}>.
481STYLE-WARNING: implicitly creating new generic function ITERATE-ELEMENTS
482STYLE-WARNING: implicitly creating new generic function FIND-ELEMENT
483STYLE-WARNING: implicitly creating new generic function DELETE-ITEM
484STYLE-WARNING: implicitly creating new generic function DELETE-ELEMENT
485STYLE-WARNING: implicitly creating new generic function PRINT-CONTAINER
486STYLE-WARNING: implicitly creating new generic function CONTAINER->LIST
487STYLE-WARNING: implicitly creating new generic function NTH-ELEMENT
488STYLE-WARNING: implicitly creating new generic function COLLECT-NODES
489STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-ITEM
490STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-ELEMENT
491STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-NODE
492STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-MATCH
493STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-MATCHING-NODE
494STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-NODE*
495STYLE-WARNING: implicitly creating new generic function BEST-ITEM
496STYLE-WARNING: implicitly creating new generic function BEST-NODE
497STYLE-WARNING: implicitly creating new generic function BEST-ELEMENT
498STYLE-WARNING: implicitly creating new generic function ARGMAX
499STYLE-WARNING: implicitly creating new generic function ARGMIN
500STYLE-WARNING: implicitly creating new generic function REDUCE-CONTAINER
501STYLE-WARNING: implicitly creating new generic function REDUCE-ELEMENTS
502STYLE-WARNING: implicitly creating new generic function REDUCE-NODES
503STYLE-WARNING: implicitly creating new generic function DELETE-ITEM-IF
504STYLE-WARNING: implicitly creating new generic function FIRST-ITEM
505STYLE-WARNING: implicitly creating new generic function DELETE-LIST
506STYLE-WARNING: implicitly creating new generic function INSERT-LIST
507STYLE-WARNING: implicitly creating new generic function INSERT-SEQUENCE
508STYLE-WARNING: implicitly creating new generic function INSERT-NEW-ITEM
509STYLE-WARNING: implicitly creating new generic function SORT-ELEMENTS
510STYLE-WARNING: implicitly creating new generic function EMPTY!
511STYLE-WARNING: implicitly creating new generic function FIND-ITEM
512STYLE-WARNING: implicitly creating new generic function SOME-ITEM-P
513STYLE-WARNING: implicitly creating new generic function EVERY-ITEM-P
514STYLE-WARNING: implicitly creating new generic function SOME-ELEMENT-P
515STYLE-WARNING: implicitly creating new generic function EVERY-ELEMENT-P
516STYLE-WARNING: implicitly creating new generic function INSERT-ITEM
517STYLE-WARNING: implicitly creating new generic function APPEND-ITEM
518STYLE-WARNING: implicitly creating new generic function APPEND-NEW-ITEM
519STYLE-WARNING: implicitly creating new generic function ITERATE-KEYS
520STYLE-WARNING: implicitly creating new generic function COLLECT-KEY-VALUE
521STYLE-WARNING: implicitly creating new generic function REVERSE-FIND
522STYLE-WARNING: implicitly creating new generic function FIND-VALUE
523STYLE-WARNING: implicitly creating new generic function ITEM-AT!
524STYLE-WARNING: implicitly creating new generic function ADD-DEFAULT-ITEM
525STYLE-WARNING: implicitly creating new generic function ITEM-AT
526STYLE-WARNING: implicitly creating new generic function ITERATE-ELEMENTS-STABLY
527STYLE-WARNING: implicitly creating new generic function ITERATE-KEY-VALUE
528STYLE-WARNING: implicitly creating new generic function COLLECT-KEYS
529STYLE-WARNING: implicitly creating new generic function ITERATE-KEY-VALUE-STABLY
530STYLE-WARNING: implicitly creating new generic function COLLECT-KEY-VALUE-STABLY
531STYLE-WARNING: implicitly creating new generic function COLLECT-ELEMENTS-STABLY
532STYLE-WARNING: implicitly creating new generic function CONTAINER-DIMENSION
533STYLE-WARNING: implicitly creating new generic function DIMENSIONS
534STYLE-WARNING: implicitly creating new generic function CONTAINER-DIFFERENCE
535STYLE-WARNING: implicitly creating new generic function ADD-INITIAL-CONTENTS
536STYLE-WARNING: implicitly creating new generic function ELEMENT-POSITION
537; compiling file "/Users/gwking/darcs/cl-containers/dev/queues.lisp" (written 21 OCT 2005 03:54:52 PM):
538; compiling (IN-PACKAGE CONTAINERS)
539; compiling (DEFCLASS* ABSTRACT-QUEUE ...)
540; compiling (DEFINE-CONDITION EKSL-QUEUE-EMPTY ...)
541; compiling (DEFMETHOD ENQUEUE ...)
542; compiling (DEFMETHOD DEQUEUE ...)
543; compiling (DEFMETHOD EMPTY! ...)
544; compiling (DEFMETHOD FIRST-ITEM ...)
545; compiling (DEFMETHOD DELETE-FIRST ...)
546; compiling (DEFMETHOD ERROR-IF-QUEUE-EMPTY ...)
547; compiling (DEFCLASS* PRIORITY-QUEUE-ON-CONTAINER ...)
548; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
549; compiling (DEFMETHOD INSERT-ITEM ...)
550; compiling (DEFMETHOD DELETE-FIRST ...)
551; compiling (DEFMETHOD EMPTY-P ...)
552; compiling (DEFMETHOD EMPTY! ...)
553; compiling (DEFMETHOD SIZE ...)
554; compiling (DEFMETHOD FIRST-ITEM ...)
555; compiling (DEFMETHOD FIND-ITEM ...)
556; compiling (DEFMETHOD FIND-NODE ...)
557; compiling (DEFMETHOD FIND-ELEMENT ...)
558; compiling (DEFMETHOD DELETE-ITEM ...)
559; compiling (DEFMETHOD DELETE-NODE ...)
560; compiling (DEFMETHOD DELETE-ELEMENT ...)
561; compiling (DEFMETHOD DELETE-ITEM-IF ...)
562; compiling (DEFMETHOD ITERATE-NODES ...)
563; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
564; compiling (DEFCLASS* BASIC-QUEUE ...)
565; compiling (DEFUN FRONT-OF-QUEUE ...)
566; compiling (DEFUN FRONT-OF-QUEUE! ...)
567; compiling (DEFSETF FRONT-OF-QUEUE ...)
568; compiling (PROCLAIM (QUOTE #))
569; compiling (DEFUN TAIL-OF-QUEUE ...)
570; compiling (DEFUN TAIL-OF-QUEUE! ...)
571; compiling (DEFSETF TAIL-OF-QUEUE ...)
572; compiling (PROCLAIM (QUOTE #))
573; compiling (DEFMETHOD INSERT-ITEM ...)
574; compiling (DEFMETHOD DELETE-FIRST ...)
575; compiling (DEFMETHOD EMPTY-P ...)
576; compiling (DEFMETHOD ITERATE-NODES ...)
577; compiling (DEFMETHOD SIZE ...)
578; compiling (DEFMETHOD FIRST-ITEM ...)
579; compiling (DEFMETHOD EMPTY! ...)
580; compiling (DEFMETHOD DELETE-ITEM ...)
581
582; /Users/gwking/darcs/cl-containers/dev/queues.fasl written
583; compilation finished in 0:00:25
584; compiling file "/Users/gwking/darcs/cl-containers/dev/stacks.lisp" (written 21 OCT 2005 03:54:52 PM):
585; compiling (IN-PACKAGE CONTAINERS)
586; compiling (DEFCLASS* ABSTRACT-STACK ...)
587; compiling (DEFMETHOD (SETF FIRST-ITEM) ...)
588; compiling (DEFMETHOD PUSH-ITEM ...)
589; compiling (DEFCLASS* STACK-CONTAINER ...)
590; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
591; compiling (DEFMETHOD FIRST-ITEM ...)
592; compiling (DEFMETHOD POP-ITEM ...)
593; compiling (DEFMETHOD INSERT-ITEM ...)
594; compiling (DEFMETHOD SIZE ...)
595; compiling (DEFMETHOD EMPTY-P ...)
596; compiling (DEFMETHOD EMPTY! ...)
597; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
598
599; /Users/gwking/darcs/cl-containers/dev/stacks.fasl written
600; compilation finished in 0:00:04
601; compiling file "/Users/gwking/darcs/cl-containers/dev/trees.lisp" (written 21 OCT 2005 03:54:52 PM):
602; compiling (IN-PACKAGE CONTAINERS)
603; compiling (DEFCLASS* ABSTRACT-TREE-CONTAINER ...)
604; compiling (DEFCLASS* ROOTED-TREE-CONTAINER ...)
605; compiling (DEFCLASS* MANY-CHILD-NODE ...)
606; compiling (DEFMETHOD ITERATE-CHILDREN ...)
607; compiling (DEFMETHOD HAS-CHILDREN-P ...)
608; compiling (DEFMETHOD FIND-CHILD-NODE ...)
609; compiling (DEFCLASS* MANY-ORDERED-CHILD-NODE ...)
610; compiling (DEFMETHOD CHILDREN ...)
611; compiling (DEFCLASS* MANY-UNORDERED-CHILD-NODE ...)
612; compiling (DEFCLASS* BINARY-SEARCH-TREE ...)
613; compiling (DEFCLASS* BST-NODE ...)
614; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
615; compiling (DEFMETHOD NODE-EMPTY-P ...)
616; compiling (DEFMETHOD NODE-EMPTY-P ...)
617; compiling (DEFMETHOD PRINT-OBJECT ...)
618; compiling (DEFMETHOD SIZE ...)
619; compiling (DEFMETHOD SIZE ...)
620; compiling (DEFMETHOD EMPTY-P ...)
621; compiling (DEFMETHOD EMPTY! ...)
622; compiling (DEFMETHOD FIND-ITEM ...)
623; compiling (DEFMETHOD FIND-NODE ...)
624; compiling (DEFMETHOD FIRST-ITEM ...)
625; compiling (DEFMETHOD FIRST-ITEM ...)
626; compiling (DEFMETHOD LAST-ITEM ...)
627; compiling (DEFMETHOD LAST-ITEM ...)
628; compiling (DEFMETHOD SUCCESSOR ...)
629; compiling (DEFMETHOD PREDECESSOR ...)
630; compiling (DEFMETHOD INSERT-ITEM ...)
631; compiling (DEFMETHOD DELETE-NODE ...)
632; compiling (DEFMETHOD DELETE-ITEM ...)
633; compiling (DEFMETHOD DELETE-ITEM ...)
634; compiling (DEFMETHOD DELETE-ITEM-IF ...)
635; compiling (DEFMETHOD ITERATE-NODES ...)
636; compiling (DEFMETHOD INORDER-WALK ...)
637; compiling (DEFMETHOD PREORDER-WALK ...)
638; compiling (DEFMETHOD POSTORDER-WALK ...)
639; compiling (DEFMETHOD INORDER-WALK-NODES ...)
640; compiling (DEFMETHOD PREORDER-WALK-NODES ...)
641; compiling (DEFMETHOD POSTORDER-WALK-NODES ...)
642; compiling (DEFMETHOD WALK-TREE ...)
643; compiling (DEFMETHOD WALK-TREE ...)
644; compiling (DEFMETHOD WALK-TREE-NODES ...)
645; compiling (DEFMETHOD WALK-TREE-NODES ...)
646; compiling (DEFCONSTANT +RBT-COLOR-BLACK+ ...)
647; compiling (DEFCONSTANT +RBT-COLOR-RED+ ...)
648; compiling (DEFVAR *RBT-EMPTY-NODE* ...)
649; compiling (DEFCLASS* RED-BLACK-TREE ...)
650; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
651; compiling (DEFCLASS* RED-BLACK-NODE ...)
652; compiling (DEFMETHOD NODE-EMPTY-P ...)
653; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
654; compiling (DEFMETHOD PRINT-OBJECT ...)
655; compiling (SETF *RBT-EMPTY-NODE* ...)
656; compiling (DEFMETHOD ROTATE-LEFT ...)
657; compiling (DEFMETHOD ROTATE-RIGHT ...)
658; compiling (DEFMETHOD INSERT-ITEM ...)
659; compiling (DEFMETHOD DELETE-ITEM ...)
660; compiling (DEFMETHOD RB-DELETE-FIXUP ...)
661; compiling (DEFMETHOD WALK-TREE-NODES ...)
662; compiling (DEFMETHOD WALK-TREE ...)
663; compiling (DEFMETHOD HEIGHT ...)
664; compiling (DEFMETHOD HEIGHT ...)
665; compiling (DEFMETHOD ITEM-AT ...)
666; compiling (DEFMETHOD UPDATE-ELEMENT ...)
667; compiling (DEFGENERIC BST-NODE-IS-LEFT-CHILD ...)
668; compiling (DEFGENERIC BST-NODE-IS-RIGHT-CHILD ...)
669; compiling (DEFGENERIC BST-NODE-SET-RIGHT-CHILD ...)
670; compiling (DEFGENERIC BST-NODE-SET-LEFT-CHILD ...)
671; compiling (DEFGENERIC BST-NODE-REPLACE-CHILD ...)
672; compiling (DEFCLASS* SPLAY-TREE ...)
673; compiling (DEFGENERIC SPLAY-TREE-ROTATE ...)
674; compiling (DEFGENERIC SPLAY-TREE-SPLAY ...)
675; compiling (DEFMETHOD INSERT-ITEM ...)
676; compiling (DEFMETHOD ITEM-AT ...)
677; compiling (DEFMETHOD UPDATE-ELEMENT ...)
678; compiling (DEFMETHOD FIND-ITEM ...)
679; compiling (DEFGENERIC RIGHT-MOST-CHILD ...)
680; compiling (DEFMETHOD DELETE-ITEM ...)
681; compiling (DEFMETHOD DELETE-ITEM ...)
682; compiling (DEFMETHOD DELETE-ITEM-AT ...)
683
684; /Users/gwking/darcs/cl-containers/dev/trees.fasl written
685; compilation finished in 0:00:22
686; compiling file "/Users/gwking/darcs/cl-containers/dev/lists.lisp" (written 21 OCT 2005 03:54:52 PM):
687; compiling (IN-PACKAGE CONTAINERS)
688; compiling (DEFMETHOD INSERT-LIST ...)
689; compiling (DEFMETHOD FIRST-ITEM ...)
690; compiling (DEFMETHOD DELETE-ITEM ...)
691; compiling (DEFMETHOD FIND-ITEM ...)
692; compiling (DEFMETHOD DELETE-FIRST ...)
693; compiling (DEFMETHOD NTH-ELEMENT ...)
694; compiling (DEFMETHOD ITEM-AT ...)
695; compiling (DEFMETHOD PRINT-CONTAINER ...)
696; compiling (DEFMETHOD LAST-ITEM ...)
697; compiling (DEFCLASS* SORTED-LIST-CONTAINER ...)
698; compiling (DEFMETHOD SET-DIRTY-FLAG ...)
699; compiling (DEFMETHOD CLEAN-UP ...)
700; compiling (DEFMETHOD INSERT-LIST ...)
701; compiling (DEFMETHOD INSERT-ITEM ...)
702; compiling (DEFMETHOD DELETE-ITEM ...)
703; compiling (DEFMETHOD FIRST-ITEM ...)
704; compiling (DEFMETHOD DELETE-FIRST ...)
705; compiling (DEFMETHOD ITEM-AT ...)
706; compiling (DEFMETHOD PRINT-CONTAINER ...)
707; compiling (DEFMETHOD ITERATE-NODES ...)
708; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
709; compiling (DEFMETHOD ENSURE-SORTED ...)
710; compiling (DEFMETHOD FORCE-SORT ...)
711; compiling (DEFCLASS* DLIST-CONTAINER-NODE ...)
712; compiling (DEFMETHOD PRINT-OBJECT ...)
713; compiling (DEFCLASS* DLIST-CONTAINER ...)
714; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
715; compiling (DEFMETHOD EMPTY! ...)
716; compiling (DEFMETHOD INSERT-ITEM ...)
717; compiling (DEFMETHOD INSERT-ITEM-AFTER ...)
718; compiling (DEFMETHOD INSERT-ITEM-AFTER ...)
719; compiling (DEFMETHOD INSERT-ITEM-AFTER ...)
720; compiling (DEFMETHOD INSERT-ITEM-AFTER ...)
721; compiling (DEFMETHOD INSERT-ITEM-BEFORE ...)
722; compiling (DEFMETHOD INSERT-ITEM-BEFORE ...)
723; compiling (DEFMETHOD INSERT-ITEM-BEFORE ...)
724; compiling (DEFMETHOD DELETE-ITEM-AFTER ...)
725; compiling (DEFMETHOD DELETE-ITEM-BEFORE ...)
726; compiling (DEFMETHOD DELETE-ITEM ...)
727; compiling (DEFMETHOD DELETE-ITEM ...)
728; compiling (DEFMETHOD ITERATE-NODES ...)
729; compiling (DEFMETHOD ITEM-AT ...)
730; compiling (DEFMETHOD REPLACE-ITEM ...)
731; compiling (DEFMETHOD REPLACE-ITEM ...)
732; compiling (DEFMETHOD SUCCESSOR ...)
733; compiling (DEFMETHOD PREDECESSOR ...)
734; compiling (DEFCLASS* SORTED-DLIST-CONTAINER ...)
735; compiling (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...)
736; compiling (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...)
737; compiling (DEFMETHOD ITERATE-NODES-ABOUT-NODE ...)
738; compiling (DEFMETHOD INSERT-ITEM ...)
739; compiling (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...)
740; compiling (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...)
741; compiling (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ...)
742; compiling (DEFMETHOD INSERT-ITEM-ORDERED ...)
743; compiling (DEFMETHOD INSERT-ITEM-ORDERED ...)
744; compiling (DEFMETHOD DELETE-ITEM ...)
745; compiling (DEFMETHOD DELETE-ITEM ...)
746; compiling (DEFMETHOD FORCE-SORT ...)
747; compiling (DEFMETHOD ENSURE-SORTED ...)
748; compiling (DEFMETHOD LEFT-NODE-FOR-ITEM ...)
749; compiling (DEFMETHOD RIGHT-NODE-FOR-ITEM ...)
750; compiling (DEFMETHOD LEFT-AND-RIGHT-NODES-FOR-ITEM ...)
751; compiling (DEFMETHOD ITERATE-LEFT-NODES ...)
752; compiling (DEFMETHOD ITERATE-LEFT-NODES ...)
753; compiling (DEFMETHOD ITERATE-LEFT-NODES ...)
754; compiling (DEFMETHOD ITERATE-RIGHT-NODES ...)
755; compiling (DEFMETHOD ITERATE-RIGHT-NODES ...)
756; compiling (DEFMETHOD ITERATE-RIGHT-NODES ...)
757; compiling (DEFMETHOD ITERATE-LEFT ...)
758; compiling (DEFMETHOD ITERATE-LEFT ...)
759; compiling (DEFMETHOD ITERATE-LEFT ...)
760; compiling (DEFMETHOD ITERATE-RIGHT ...)
761; compiling (DEFMETHOD ITERATE-RIGHT ...)
762; compiling (DEFMETHOD ITERATE-RIGHT ...)
763; compiling (DEFMETHOD SORT-UPDATE-LEFT ...)
764; compiling (DEFMETHOD SORT-UPDATE-RIGHT ...)
765; compiling (DEFMETHOD UPDATE-ITEM ...)
766; compiling (DEFMETHOD UPDATE-ITEM ...)
767; compiling (DEFMETHOD UPDATE-ITEM ...)
768
769; /Users/gwking/darcs/cl-containers/dev/lists.fasl written
770; compilation finished in 0:00:27
771; compiling file "/Users/gwking/darcs/cl-containers/dev/bags-and-sets.lisp" (written 21 OCT 2005 03:54:51 PM):
772; compiling (IN-PACKAGE CONTAINERS)
773; compiling (EXPORT (QUOTE #))
774; compiling (DEFCLASS* ABSTRACT-BAG/SET-CONTAINER ...)
775; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
776; compiling (DEFCLASS* BAG-CONTAINER ...)
777; compiling (DEFMETHOD INSERT-ITEM ...)
778; compiling (DEFMETHOD SIZE ...)
779; compiling (DEFMETHOD EMPTY-P ...)
780; compiling (DEFMETHOD EMPTY! ...)
781; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
782; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
783; compiling (DEFMETHOD DELETE-ITEM ...)
784; compiling (DEFMETHOD FIND-ITEM ...)
785; compiling (DEFCLASS* SET-CONTAINER ...)
786; compiling (DEFMETHOD INSERT-ITEM ...)
787; compiling (DEFCLASS* BAG/SET-CONTAINER ...)
788; compiling (DEFMETHOD INSERT-ITEM ...)
789; compiling (DEFMETHOD DELETE-ITEM ...)
790; compiling (DEFMETHOD SIZE ...)
791; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
792; compiling (DEFMETHOD ITERATE-NODES ...)
793; compiling (DEFMETHOD FIND-ITEM ...)
794; compiling (DEFMETHOD FIND-VALUE ...)
795; compiling (DEFCLASS* KEYED-BAG/SET-CONTAINER ...)
796; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
797; compiling (DEFMETHOD INSERT-ITEM ...)
798; compiling (DEFMETHOD DELETE-ITEM ...)
799; compiling (DEFMETHOD FIND-ITEM ...)
800; compiling (DEFMETHOD ITERATE-NODES ...)
801
802; /Users/gwking/darcs/cl-containers/dev/bags-and-sets.fasl written
803; compilation finished in 0:00:08
804; compiling file "/Users/gwking/darcs/cl-containers/dev/ring-buffers.lisp" (written 21 OCT 2005 03:54:52 PM):
805; compiling (IN-PACKAGE CONTAINERS)
806; compiling (DEFCLASS* RING-BUFFER ...)
807; compiling (DEFUN MAKE-RING-BUFFER ...)
808; compiling (DEFMETHOD MAKE-CONTAINER ...)
809; compiling (DEFMETHOD ITEM-AT ...)
810; compiling (DEFMETHOD ITEM-AT! ...)
811; compiling (DEFMETHOD INCREMENT-END ...)
812; compiling (DEFMETHOD NEXT-ITEM ...)
813; compiling (DEFMETHOD CURRENT-ITEM ...)
814; compiling (DEFMETHOD INSERT-ITEM ...)
815; compiling (DEFMETHOD DELETE-FIRST ...)
816; compiling (DEFMETHOD EMPTY! ...)
817; compiling (DEFMETHOD SIZE ...)
818; compiling (DEFMETHOD FIRST-ITEM ...)
819; compiling (DEFMETHOD ITERATE-NODES ...)
820
821; /Users/gwking/darcs/cl-containers/dev/ring-buffers.fasl written
822; compilation finished in 0:00:05
823; compiling file "/Users/gwking/darcs/cl-containers/dev/miscellaneous.lisp" (written 21 OCT 2005 03:54:52 PM):
824; compiling (IN-PACKAGE CONTAINERS)
825; compiling (EXPORT (QUOTE #))
826; compiling (DEFUN MERGE-ELEMENTS ...)
827; compiling (DEFUN MERGE-NODES ...)
828; compiling (DEFUN %MERGE-HELPER ...)
829; compiling (DEFUN ELEMENT-COUNTS ...)
830; compiling (DEFUN NODE-COUNTS ...)
831; compiling (DEFUN %CONTAINER-COUNTS ...)
832; compiling (DEFUN MAP-WINDOW-OVER-ELEMENTS ...)
833; compiling (DEFUN MAP-WINDOW-OVER-NODES ...)
834; compiling (DEFUN COLLECT-WINDOW-OVER-ELEMENTS ...)
835; compiling (DEFUN COLLECT-WINDOW-OVER-NODES ...)
836; compiling (DEFUN MAP-WINDOW-OVER-ELEMENTS-HELPER ...)
837; compiling (DEFUN MAP-PAIRS ...)
838; compiling (DEFUN COLLECT-PAIRS ...)
839
840; /Users/gwking/darcs/cl-containers/dev/miscellaneous.fasl written
841; compilation finished in 0:00:01
842; compiling file "/Users/gwking/darcs/cl-containers/dev/associative.lisp" (written 21 OCT 2005 03:54:51 PM):
843; compiling (IN-PACKAGE CONTAINERS)
844; compiling (DEFCLASS* ASSOCIATIVE-CONTAINER-MIXIN ...)
845; compiling (DEFMETHOD SOME-KEY-VALUE-P ...)
846; compiling (DEFMETHOD EVERY-KEY-VALUE-P ...)
847; compiling (DEFMETHOD SAMEP ...)
848; compiling (DEFMETHOD COLLECT-KEYS ...)
849; compiling (DEFMETHOD SEARCH-FOR-KEY ...)
850; compiling (DEFMETHOD REMOVE-ITEMS-IF ...)
851; compiling (DEFMETHOD REMOVE-ITEMS-IF ...)
852; compiling (DEFMETHOD COUNT-ITEMS ...)
853; compiling (DEFMETHOD COUNT-ELEMENTS ...)
854; compiling (DEFMETHOD COUNT-ELEMENTS ...)
855; compiling (DEFMETHOD COUNT-ELEMENTS-IF ...)
856; compiling (DEFMETHOD COUNT-ELEMENTS-IF ...)
857; compiling (DEFCLASS* ARRAY-CONTAINER-ABSTRACT ...)
858; compiling (DEFCLASS* ARRAY-CONTAINER ...)
859; compiling (DEFMETHOD PRINT-CONTAINER-SUMMARY ...)
860; compiling (DEFUN MAKE-ARRAY-CONTAINER ...)
861; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
862; compiling (DEFMETHOD MAKE-CONTAINER ...)
863; compiling (DEFMETHOD ITEM-AT ...)
864; compiling (DEFMETHOD ITEM-AT! ...)
865; compiling (DEFMETHOD DIMENSIONS ...)
866; compiling (DEFMETHOD ITERATE-NODES ...)
867; file: /Users/gwking/darcs/cl-containers/dev/associative.lisp
868; in: DEFMETHOD ITERATE-NODES (ARRAY-CONTAINER T)
869;     (DEFMETHOD METABANG.CL-CONTAINERS:ITERATE-NODES
870;              ((METABANG.CL-CONTAINERS::CONTAINER
871;                METABANG.CL-CONTAINERS:ARRAY-CONTAINER)
872;               METABANG.CL-CONTAINERS::FN)
873;              (WITH-SLOTS
874;               (METABANG.CL-CONTAINERS:CONTENTS METABANG.CL-CONTAINERS:CONTENTS)
875;               METABANG.CL-CONTAINERS::CONTAINER
876;               (DOTIMES
877;                   (METABANG.CL-CONTAINERS::I
878;                    (ARRAY-TOTAL-SIZE METABANG.CL-CONTAINERS:CONTENTS))
879;                 (FUNCALL METABANG.CL-CONTAINERS::FN
880;                          (ROW-MAJOR-AREF METABANG.CL-CONTAINERS:CONTENTS
881;                                          METABANG.CL-CONTAINERS::I)))))
882; --> PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST*
883; --> SB-INT:NAMED-LAMBDA FUNCTION MACROLET
884; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
885; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
886; --> SB-PCL::BIND-LEXICAL-METHOD-FUNCTIONS SB-PCL::CALL-NEXT-METHOD-BIND LET
887; --> FLET SB-PCL::WITH-REBOUND-ORIGINAL-ARGS LET SB-PCL::BIND-ARGS LET*
888; --> SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 SB-PCL::PV-ENV LET LET BLOCK LET
889; ==>
890;   (SYMBOL-MACROLET ((METABANG.CL-CONTAINERS:CONTENTS
891;                      (SLOT-VALUE #:G698 'METABANG.CL-CONTAINERS:CONTENTS))
892;                     (METABANG.CL-CONTAINERS:CONTENTS
893;                      (SLOT-VALUE #:G698 'METABANG.CL-CONTAINERS:CONTENTS)))
894;     (BLOCK NIL
895;       (LET ((METABANG.CL-CONTAINERS::I 0) (#:G702 #))
896;         (DECLARE (TYPE UNSIGNED-BYTE METABANG.CL-CONTAINERS::I))
897;         (TAGBODY
898;           (GO #:G704)
899;          #:G703
900;           (TAGBODY #)
901;           (PSETQ METABANG.CL-CONTAINERS::I #)
902;          #:G704
903;           (UNLESS # #)
904;           (RETURN-FROM NIL #)))))
905;
906; caught STYLE-WARNING:
907;   duplicate definitions in ((CONTENTS (SLOT-VALUE #:G698 'CONTENTS))
908;                             (CONTENTS (SLOT-VALUE #:G698 'CONTENTS)))
909
910; compiling (DEFMETHOD NTH-ELEMENT ...)
911; compiling (DEFCLASS* SPARSE-ARRAY-CONTAINER ...)
912; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
913; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
914; compiling (DEFMETHOD TOTAL-SIZE ...)
915; compiling (DEFUN SPARSE-ARRAY-ROW-MAJOR-INDEX ...)
916; compiling (DEFUN SPARSE-ARRAY-VALUE-TO-INDEX ...)
917; compiling (DEFMETHOD ITEM-AT ...)
918; compiling (DEFMETHOD ITEM-AT! ...)
919; compiling (DEFCLASS* SIMPLE-ASSOCIATIVE-CONTAINER ...)
920; compiling (DEFMETHOD ITEM-AT-1 ...)
921; compiling (DEFMETHOD ITEM-AT-1! ...)
922; compiling (DEFMETHOD (SETF ITEM-AT-1) ...)
923; compiling (DEFMETHOD ITEM-AT ...)
924; compiling (DEFMETHOD ITEM-AT! ...)
925; compiling (DEFMETHOD DELETE-ITEM-AT ...)
926; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
927; compiling (DEFCLASS* ASSOCIATIVE-CONTAINER ...)
928; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
929; compiling (DEFMETHOD ITEM-AT ...)
930; compiling (DEFMETHOD DELETE-ITEM-AT ...)
931; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
932; compiling (DEFUN DESCEND-HT ...)
933; compiling (DEFUN FIND-OR-CREATE-HT ...)
934; compiling (DEFMETHOD ITEM-AT! ...)
935; compiling (DEFMETHOD PRINT-CONTAINER ...)
936; compiling (DEFMETHOD PRINT-CONTAINER ...)
937; compiling (DEFCLASS* BIASSOCIATIVE-CONTAINER-MIXIN ...)
938; compiling (DEFCLASS* ALIST-CONTAINER ...)
939; compiling (DEFMETHOD INITIALIZE-CONTAINER ...)
940; compiling (DEFMETHOD MAKE-CONTAINER-FOR-CONTENTS ...)
941; compiling (DEFMETHOD ITEM-AT ...)
942; compiling (DEFMETHOD ITEM-AT-1 ...)
943; compiling (DEFMETHOD ITEM-AT-1! ...)
944; compiling (DEFUN MAYBE-SET-INITIAL-ELEMENT ...)
945; compiling (DEFMETHOD ITEM-AT! ...)
946; file: /Users/gwking/darcs/cl-containers/dev/associative.lisp
947; in: DEFMETHOD ITEM-AT! (ALIST-CONTAINER T)
948;     (WITH-SLOTS (METABANG.CL-CONTAINERS:CONTENTS METABANG.CL-CONTAINERS:CONTENTS)
949;               METABANG.CL-CONTAINERS::CONTAINER
950;               (PUSH METABANG.CL-CONTAINERS::ITEM
951;                     METABANG.CL-CONTAINERS:CONTENTS))
952; --> LET
953; ==>
954;   (SYMBOL-MACROLET ((METABANG.CL-CONTAINERS:CONTENTS
955;                      (SLOT-VALUE #:G1839 'METABANG.CL-CONTAINERS:CONTENTS))
956;                     (METABANG.CL-CONTAINERS:CONTENTS
957;                      (SLOT-VALUE #:G1839 'METABANG.CL-CONTAINERS:CONTENTS)))
958;     (PUSH METABANG.CL-CONTAINERS::ITEM METABANG.CL-CONTAINERS:CONTENTS))
959;
960; caught STYLE-WARNING:
961;   duplicate definitions in ((CONTENTS (SLOT-VALUE #:G1839 'CONTENTS))
962;                             (CONTENTS (SLOT-VALUE #:G1839 'CONTENTS)))
963
964; compiling (DEFMETHOD DELETE-ITEM-AT ...)
965; compiling (DEFMETHOD SIZE ...)
966; compiling (DEFMETHOD ITERATE-NODES ...)
967; compiling (DEFMETHOD ITERATE-KEYS ...)
968; compiling (DEFMETHOD REVERSE-FIND ...)
969; compiling (DEFMETHOD EMPTY! ...)
970; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
971; compiling (DEFMETHOD SORT-KEYS ...)
972; compiling (DEFMETHOD SORT-ELEMENTS ...)
973; compiling (DEFMETHOD SORT-CONTAINER ...)
974; compiling (DEFCLASS* KEYED-ASSOCIATIVE-CONTAINER ...)
975; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
976; compiling (DEFUN IDENTITY-2 ...)
977; compiling (DEFMETHOD ITEM-KEY ...)
978; compiling (DEFMETHOD ITEM-AT ...)
979; compiling (DEFMETHOD DELETE-ITEM-AT ...)
980; compiling (DEFMETHOD ITEM-AT! ...)
981; compiling (DEFGENERIC KEY-EXISTS-P ...)
982; compiling (DEFMETHOD KEY-EXISTS-P ...)
983; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
984
985; /Users/gwking/darcs/cl-containers/dev/associative.fasl written
986; compilation finished in 0:00:26
987WARNING:
988   COMPILE-FILE warned while performing #<COMPILE-OP NIL {100030C1}> on
989   #<CL-SOURCE-FILE "associative" {100030D1}>.
990STYLE-WARNING: implicitly creating new generic function SOME-KEY-VALUE-P
991STYLE-WARNING: implicitly creating new generic function EVERY-KEY-VALUE-P
992STYLE-WARNING: implicitly creating new generic function SEARCH-FOR-KEY
993STYLE-WARNING: implicitly creating new generic function REMOVE-ITEMS-IF
994STYLE-WARNING: implicitly creating new generic function COUNT-ITEMS
995STYLE-WARNING: implicitly creating new generic function COUNT-ELEMENTS
996STYLE-WARNING: implicitly creating new generic function COUNT-ELEMENTS-IF
997STYLE-WARNING: implicitly creating new generic function PRINT-CONTAINER-SUMMARY
998STYLE-WARNING: implicitly creating new generic function ITEM-AT-1
999STYLE-WARNING: implicitly creating new generic function ITEM-AT-1!
1000STYLE-WARNING: implicitly creating new generic function (SETF ITEM-AT-1)
1001STYLE-WARNING: implicitly creating new generic function DELETE-ITEM-AT
1002STYLE-WARNING: implicitly creating new generic function INITIALIZE-CONTAINER
1003STYLE-WARNING: implicitly creating new generic function SORT-KEYS
1004STYLE-WARNING: implicitly creating new generic function SORT-CONTAINER
1005STYLE-WARNING: implicitly creating new generic function ITEM-KEY
1006; compiling file "/Users/gwking/darcs/cl-containers/dev/compatibility.lisp" (written 28 OCT 2005 12:17:49 PM):
1007; compiling (IN-PACKAGE CONTAINERS)
1008; compiling (DEFMETHOD ITERATABLE-P ...)
1009; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
1010; compiling (DEFMETHOD ITERATE-NODES ...)
1011; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
1012; file: /Users/gwking/darcs/cl-containers/dev/compatibility.lisp
1013; in: DEFMETHOD COLLECT-ELEMENTS (LIST)
1014;     (IF METABANG.CL-CONTAINERS::TRANSFORM
1015;       (FUNCALL METABANG.CL-CONTAINERS::TRANSFORM METABANG.CL-CONTAINERS::ITEM)
1016;       METABANG.CL-CONTAINERS::ITEM)
1017; ==>
1018;   METABANG.CL-CONTAINERS::ITEM
1019;
1020; note: deleting unreachable code
1021
1022; compiling (DEFMETHOD ELEMENT-POSITION ...)
1023; compiling (DEFMETHOD EMPTY-P ...)
1024; compiling (DEFMETHOD FIRST-ITEM ...)
1025; compiling (DEFMETHOD LAST-ITEM ...)
1026; compiling (DEFMETHOD NTH-ELEMENT ...)
1027; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
1028; compiling (DEPRECATED "Use collect-elements instead." ...)
1029; compiling (DEFMETHOD SIZE ...)
1030; compiling (DEFMETHOD FIND-ITEM ...)
1031; compiling (DEFMETHOD SEARCH-FOR-ITEM ...)
1032; compiling (DEFMETHOD SEARCH-FOR-ELEMENT ...)
1033; compiling (DEFMETHOD REDUCE-ELEMENTS ...)
1034; compiling (DEFMETHOD SOME-ITEM-P ...)
1035; compiling (DEFMETHOD SOME-ELEMENT-P ...)
1036; compiling (DEFMETHOD EVERY-ITEM-P ...)
1037; compiling (DEFMETHOD EVERY-ELEMENT-P ...)
1038; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
1039; compiling (DEFMETHOD ITERATE-NODES ...)
1040; compiling (DEFMETHOD ITERATABLE-P ...)
1041; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
1042; compiling (DEFMETHOD SIZE ...)
1043; compiling (DEFMETHOD EMPTY-P ...)
1044; compiling (DEFMETHOD FIRST-ITEM ...)
1045; compiling (DEFMETHOD LAST-ITEM ...)
1046; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
1047; compiling (DEPRECATED "Use collect-elements instead." ...)
1048; compiling (DEFMETHOD SOME-ITEM-P ...)
1049; compiling (DEFMETHOD SOME-ELEMENT-P ...)
1050; compiling (DEFMETHOD EVERY-ITEM-P ...)
1051; compiling (DEFMETHOD EVERY-ELEMENT-P ...)
1052; compiling (DEFMETHOD SORT-ELEMENTS ...)
1053; compiling (DEFMETHOD NTH-ELEMENT ...)
1054; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
1055; compiling (DEFMETHOD ITERATE-NODES ...)
1056; compiling (DEFMETHOD ITERATABLE-P ...)
1057; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
1058; compiling (DEFMETHOD SIZE ...)
1059; compiling (DEFMETHOD FIRST-ITEM ...)
1060; compiling (DEFMETHOD LAST-ITEM ...)
1061; compiling (DEFMETHOD SEARCH-FOR-MATCH ...)
1062; compiling (DEFMETHOD SOME-ELEMENT-P ...)
1063; compiling (DEFMETHOD EVERY-ELEMENT-P ...)
1064; compiling (DEFMETHOD NTH-ELEMENT ...)
1065; compiling (DEFMETHOD ITEM-AT ...)
1066; compiling (DEFMETHOD ITEM-AT! ...)
1067; compiling (DEFMETHOD ITERATABLE-P ...)
1068; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
1069; compiling (DEFMETHOD ITERATE-NODES ...)
1070; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
1071; compiling (DEFMETHOD COLLECT-KEYS ...)
1072; compiling (DEFMETHOD EMPTY! ...)
1073; compiling (DEFMETHOD EMPTY-P ...)
1074; compiling (DEFMETHOD SIZE ...)
1075; compiling (DEFMETHOD ITEM-AT ...)
1076; compiling (DEFMETHOD ITEM-AT! ...)
1077; compiling (DEFMETHOD ITEM-AT-1 ...)
1078; compiling (DEFMETHOD ITEM-AT-1! ...)
1079; compiling (DEFMETHOD ITEM-AT ...)
1080; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
1081; compiling (DEFMETHOD COLLECT-KEY-VALUE ...)
1082
1083; /Users/gwking/darcs/cl-containers/dev/compatibility.fasl written
1084; compilation finished in 0:00:24
1085; compiling file "/Users/gwking/darcs/cl-containers/dev/vectors.lisp" (written 21 OCT 2005 03:54:52 PM):
1086; compiling (IN-PACKAGE CONTAINERS)
1087; compiling (DEFCLASS* VECTOR-CONTAINER-MIXIN ...)
1088; compiling (DEFMETHOD ITEM-AT ...)
1089; compiling (DEFMETHOD ITEM-AT! ...)
1090; compiling (DEFMETHOD NTH-ELEMENT ...)
1091; compiling (DEFMETHOD FIRST-ITEM ...)
1092; compiling (DEFMETHOD LAST-ITEM ...)
1093; compiling (DEFCLASS* BASIC-VECTOR-CONTAINER ...)
1094; compiling (DEFCLASS* BOUNDED-VECTOR-CONTAINER ...)
1095; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
1096; compiling (DEFCLASS* VECTOR-CONTAINER ...)
1097; compiling (DEFMETHOD INSERT-ITEM ...)
1098; compiling (DEFMETHOD INSERT-ITEM-AT ...)
1099; compiling (DEFMETHOD DELETE-ITEM-AT ...)
1100; compiling (DEFMETHOD DELETE-ITEM ...)
1101; compiling (DEFMETHOD DELETE-FIRST ...)
1102; compiling (DEFMETHOD DELETE-LAST ...)
1103; compiling (DEFMETHOD SIZE ...)
1104; compiling (DEFCLASS* FLEXIBLE-VECTOR-CONTAINER ...)
1105; compiling (DEFMETHOD ITEM-AT! ...)
1106; compiling (DEFUN RESIZE-VECTOR ...)
1107; compiling (DEFMETHOD SAMEP ...)
1108
1109; /Users/gwking/darcs/cl-containers/dev/vectors.fasl written
1110; compilation finished in 0:00:07
1111; compiling file "/Users/gwking/darcs/cl-containers/dev/quad-tree.lisp" (written 21 OCT 2005 03:54:52 PM):
1112; compiling (IN-PACKAGE CONTAINERS)
1113; compiling (DEFCLASS* QUAD-TREE ...)
1114; compiling (DEFCLASS* FOUR-CHILD-NODE ...)
1115; compiling (DEFCLASS* QUAD-TREE-NODE ...)
1116; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
1117; compiling (DEFMETHOD NODE-EMPTY-P ...)
1118; compiling (DEFMETHOD PRINT-OBJECT ...)
1119; compiling (DEFGENERIC NOTIFY-ELEMENT-OF-CHILD-STATUS ...)
1120; compiling (DEFMETHOD INSERT-ITEM ...)
1121; compiling (DEFMETHOD EMPTY-P ...)
1122; compiling (DEFMETHOD EMPTY! ...)
1123; compiling (DEFMETHOD FIND-ITEM ...)
1124
1125; /Users/gwking/darcs/cl-containers/dev/quad-tree.fasl written
1126; compilation finished in 0:00:05
1127; compiling file "/Users/gwking/darcs/cl-containers/dev/heaps.lisp" (written 21 OCT 2005 03:54:52 PM):
1128; compiling (IN-PACKAGE CONTAINERS)
1129; compiling (DEFCLASS* HEAP-CONTAINER ...)
1130; compiling (DEFCLASS* HEAP-NODE ...)
1131; compiling (DEFMETHOD PRINT-OBJECT ...)
1132; compiling (DEFMETHOD L-CHILD ...)
1133; compiling (DEFMETHOD R-CHILD ...)
1134; compiling (DEFMETHOD HEAP-NODE-PARENT ...)
1135; compiling (DEFMETHOD L-CHILD-INDEX ...)
1136; compiling (DEFMETHOD R-CHILD-INDEX ...)
1137; compiling (DEFMETHOD NODE-PARENT-INDEX ...)
1138; compiling (DEFMETHOD EXCHANGE-HEAP-NODES ...)
1139; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
1140; compiling (DEFMETHOD HEAPIFY ...)
1141; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
1142; compiling (DEFMETHOD BIGGEST-ITEM ...)
1143; compiling (DEFMETHOD DELETE-BIGGEST-ITEM ...)
1144; compiling (DEFMETHOD DELETE-ITEM ...)
1145; compiling (DEFMETHOD INSERT-ITEM ...)
1146; compiling (DEFCLASS* K-BEST-HEAP-CONTAINER ...)
1147; compiling (DEFMETHOD INSERT-ITEM ...)
1148
1149; /Users/gwking/darcs/cl-containers/dev/heaps.fasl written
1150; compilation finished in 0:00:12
1151; compiling file "/Users/gwking/darcs/cl-containers/dev/container-mixins.lisp" (written 30 OCT 2005 05:57:55 PM):
1152; compiling (IN-PACKAGE CONTAINERS)
1153; compiling (DEFCLASS* FILTERED-CONTAINER-MIXIN ...)
1154; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
1155; compiling (DEFMETHOD COLLECT-ELEMENTS ...)
1156; compiling (DEFMETHOD ITERATE-KEY-VALUE ...)
1157
1158; /Users/gwking/darcs/cl-containers/dev/container-mixins.fasl written
1159; compilation finished in 0:00:02
1160; compiling file "/Users/gwking/darcs/cl-containers/dev/union-find-container.lisp" (written 21 OCT 2005 03:54:52 PM):
1161; compiling (IN-PACKAGE CONTAINERS)
1162; compiling (EXPORT (QUOTE #))
1163; compiling (DEFCLASS* UNION-FIND-NODE ...)
1164; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
1165; compiling (DEFMETHOD PRINT-OBJECT ...)
1166; compiling (DEFMETHOD MAKE-SET ...)
1167; compiling (DEFMETHOD GRAFT-NODES ...)
1168; compiling (DEFMETHOD FIND-SET ...)
1169; compiling (DEFMETHOD LINK-NODES ...)
1170; compiling (DEFCLASS* UNION-FIND-CONTAINER ...)
1171; compiling (DEFMETHOD INSERT-ITEM ...)
1172; compiling (DEFMETHOD REPRESENTATIVE ...)
1173; compiling (DEFMETHOD REPRESENTATIVE-NODE ...)
1174
1175; /Users/gwking/darcs/cl-containers/dev/union-find-container.fasl written
1176; compilation finished in 0:00:04
1177; compiling file "/Users/gwking/darcs/cl-containers/dev/package-container.lisp" (written 17 NOV 2005 08:07:29 AM):
1178; compiling (IN-PACKAGE CONTAINERS)
1179; compiling (EXPORT (QUOTE #))
1180; compiling (DEFCLASS* PACKAGE-CONTAINER ...)
1181; compiling (DEFMETHOD (SETF PACKAGES) ...)
1182; compiling (DEFMETHOD (SETF PACKAGES) ...)
1183; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
1184; compiling (DEFMETHOD SIZE ...)
1185; compiling (DEFUN BOUND-SYMBOLS-IN-PACKAGE ...)
1186
1187; /Users/gwking/darcs/cl-containers/dev/package-container.fasl written
1188; compilation finished in 0:00:03
1189; compiling file "/Users/gwking/darcs/cl-containers/dev/containers-readtable.lisp" (written 17 NOV 2005 08:04:58 AM):
1190; compiling (IN-PACKAGE CONTAINERS)
1191; compiling (DEFVAR *CONTAINER-READTABLE* ...)
1192; compiling (DEFVAR *CONTAINER-PRINT-REPRESENTATION* ...)
1193; compiling (DEFVAR *CONTAINER-PRINT-LENGTH* ...)
1194; compiling (DEFVAR *CONTAINER-PRINT-ASSOCIATION-STRING* ...)
1195; compiling (DEFVAR *CONTAINER-PRINT-ASSOCIATION-SEPARATOR* ...)
1196; compiling (SET-MACRO-CHARACTER #\[ ...)
1197; compiling (SET-MACRO-CHARACTER #\] ...)
1198; compiling (DEFMETHOD PRINT-CONTAINER-SUMMARY ...)
1199; compiling (DEFMETHOD PRINT-CONTAINER-CONTENTS ...)
1200; compiling (DEFMETHOD PRINT-CONTAINER-CONTENTS ...)
1201; compiling (DEFMETHOD PRINT-CONTAINER-CONTENTS ...)
1202; compiling (DEFCLASS* CONTAINER-PRINTING-MIXIN ...)
1203; compiling (DEFMETHOD PRINT-OBJECT ...)
1204
1205; /Users/gwking/darcs/cl-containers/dev/containers-readtable.fasl written
1206; compilation finished in 0:00:03
1207STYLE-WARNING: redefining BEST-ITEM in DEFGENERIC
1208STYLE-WARNING: redefining ARGMAX in DEFGENERIC
1209STYLE-WARNING: redefining ARGMIN in DEFGENERIC
1210STYLE-WARNING: redefining MAKE-NODE-FOR-CONTAINER in DEFGENERIC
1211STYLE-WARNING: redefining SIZE in DEFGENERIC
1212STYLE-WARNING: redefining EMPTY! in DEFGENERIC
1213STYLE-WARNING: redefining SOME-ITEM-P in DEFGENERIC
1214STYLE-WARNING: redefining EVERY-ITEM-P in DEFGENERIC
1215STYLE-WARNING: redefining MAKE-CONTAINER-FOR-CONTENTS in DEFGENERIC
1216STYLE-WARNING: redefining NTH-ELEMENT in DEFGENERIC
1217STYLE-WARNING: redefining TOTAL-SIZE in DEFGENERIC
1218STYLE-WARNING: redefining ITEM-AT in DEFGENERIC
1219STYLE-WARNING: redefining ITEM-AT! in DEFGENERIC
1220STYLE-WARNING: redefining FIND-ITEM in DEFGENERIC
1221STYLE-WARNING: redefining FIND-ELEMENT in DEFGENERIC
1222STYLE-WARNING: redefining SEARCH-FOR-ITEM in DEFGENERIC
1223STYLE-WARNING: redefining SEARCH-FOR-MATCH in DEFGENERIC
1224STYLE-WARNING: redefining ITERATE-NODES in DEFGENERIC
1225STYLE-WARNING: redefining PRINT-CONTAINER in DEFGENERIC
1226STYLE-WARNING: redefining COLLECT-NODES in DEFGENERIC
1227STYLE-WARNING: redefining COLLECT-ELEMENTS in DEFGENERIC
1228STYLE-WARNING: redefining COLLECT-KEY-VALUE in DEFGENERIC
1229STYLE-WARNING: redefining COLLECT-KEYS in DEFGENERIC
1230STYLE-WARNING: redefining ITERATE-KEY-VALUE in DEFGENERIC
1231STYLE-WARNING: redefining FIRST-ITEM in DEFGENERIC
1232STYLE-WARNING: redefining LAST-ITEM in DEFGENERIC
1233STYLE-WARNING: redefining INSERT-ITEM in DEFGENERIC
1234STYLE-WARNING: redefining APPEND-ITEM in DEFGENERIC
1235STYLE-WARNING: redefining INSERT-NEW-ITEM in DEFGENERIC
1236STYLE-WARNING: redefining APPEND-NEW-ITEM in DEFGENERIC
1237STYLE-WARNING: redefining INSERT-SEQUENCE in DEFGENERIC
1238STYLE-WARNING: redefining INSERT-LIST in DEFGENERIC
1239STYLE-WARNING: redefining DELETE-LIST in DEFGENERIC
1240STYLE-WARNING: redefining REVERSE-FIND in DEFGENERIC
1241STYLE-WARNING: redefining REMOVE-ITEMS-IF in DEFGENERIC
1242STYLE-WARNING: redefining ELEMENT-POSITION in DEFGENERIC
1243STYLE-WARNING: redefining DELETE-ITEM in DEFGENERIC
1244STYLE-WARNING: redefining DELETE-ITEM-IF in DEFGENERIC
1245STYLE-WARNING: implicitly creating new generic function ERROR-IF-QUEUE-EMPTY
1246STYLE-WARNING: implicitly creating new generic function DELETE-NODE
1247STYLE-WARNING: implicitly creating new generic function PUSH-ITEM
1248STYLE-WARNING: implicitly creating new generic function ITERATE-CHILDREN
1249STYLE-WARNING: implicitly creating new generic function HAS-CHILDREN-P
1250STYLE-WARNING: implicitly creating new generic function FIND-CHILD-NODE
1251STYLE-WARNING: implicitly creating new generic function INORDER-WALK
1252STYLE-WARNING: implicitly creating new generic function PREORDER-WALK
1253STYLE-WARNING: implicitly creating new generic function POSTORDER-WALK
1254STYLE-WARNING: implicitly creating new generic function INORDER-WALK-NODES
1255STYLE-WARNING: implicitly creating new generic function PREORDER-WALK-NODES
1256STYLE-WARNING: implicitly creating new generic function POSTORDER-WALK-NODES
1257STYLE-WARNING: implicitly creating new generic function WALK-TREE
1258STYLE-WARNING: implicitly creating new generic function WALK-TREE-NODES
1259STYLE-WARNING: implicitly creating new generic function ROTATE-LEFT
1260STYLE-WARNING: implicitly creating new generic function ROTATE-RIGHT
1261STYLE-WARNING: implicitly creating new generic function RB-DELETE-FIXUP
1262STYLE-WARNING: implicitly creating new generic function HEIGHT
1263STYLE-WARNING: implicitly creating new generic function UPDATE-ELEMENT
1264STYLE-WARNING: implicitly creating new generic function SET-DIRTY-FLAG
1265STYLE-WARNING: implicitly creating new generic function CLEAN-UP
1266STYLE-WARNING: implicitly creating new generic function INSERT-ITEM-AFTER
1267STYLE-WARNING: implicitly creating new generic function INSERT-ITEM-BEFORE
1268STYLE-WARNING: implicitly creating new generic function DELETE-ITEM-AFTER
1269STYLE-WARNING: implicitly creating new generic function DELETE-ITEM-BEFORE
1270STYLE-WARNING: implicitly creating new generic function REPLACE-ITEM
1271STYLE-WARNING: implicitly creating new generic function ITERATE-NODES-ABOUT-NODE
1272STYLE-WARNING:
1273   implicitly creating new generic function INSERT-ITEM-ORDERED-ABOUT-NODE
1274STYLE-WARNING: implicitly creating new generic function INSERT-ITEM-ORDERED
1275STYLE-WARNING: implicitly creating new generic function LEFT-NODE-FOR-ITEM
1276STYLE-WARNING: implicitly creating new generic function RIGHT-NODE-FOR-ITEM
1277STYLE-WARNING:
1278   implicitly creating new generic function LEFT-AND-RIGHT-NODES-FOR-ITEM
1279STYLE-WARNING: implicitly creating new generic function ITERATE-LEFT-NODES
1280STYLE-WARNING: implicitly creating new generic function ITERATE-RIGHT-NODES
1281STYLE-WARNING: implicitly creating new generic function ITERATE-LEFT
1282STYLE-WARNING: implicitly creating new generic function ITERATE-RIGHT
1283STYLE-WARNING: implicitly creating new generic function SORT-UPDATE-LEFT
1284STYLE-WARNING: implicitly creating new generic function SORT-UPDATE-RIGHT
1285STYLE-WARNING: implicitly creating new generic function UPDATE-ITEM
1286STYLE-WARNING: implicitly creating new generic function INCREMENT-END
1287STYLE-WARNING: implicitly creating new generic function CURRENT-ITEM
1288STYLE-WARNING: redefining NTH-ELEMENT (ARRAY NUMBER) in DEFMETHOD
1289STYLE-WARNING: implicitly creating new generic function INSERT-ITEM-AT
1290STYLE-WARNING: implicitly creating new generic function L-CHILD
1291STYLE-WARNING: implicitly creating new generic function R-CHILD
1292STYLE-WARNING: implicitly creating new generic function HEAP-NODE-PARENT
1293STYLE-WARNING: implicitly creating new generic function L-CHILD-INDEX
1294STYLE-WARNING: implicitly creating new generic function R-CHILD-INDEX
1295STYLE-WARNING: implicitly creating new generic function NODE-PARENT-INDEX
1296STYLE-WARNING: implicitly creating new generic function EXCHANGE-HEAP-NODES
1297STYLE-WARNING: implicitly creating new generic function HEAPIFY
1298STYLE-WARNING: implicitly creating new generic function BIGGEST-ITEM
1299STYLE-WARNING: implicitly creating new generic function DELETE-BIGGEST-ITEM
1300STYLE-WARNING: implicitly creating new generic function MAKE-SET
1301STYLE-WARNING: implicitly creating new generic function GRAFT-NODES
1302STYLE-WARNING: implicitly creating new generic function FIND-SET
1303STYLE-WARNING: implicitly creating new generic function LINK-NODES
1304STYLE-WARNING: implicitly creating new generic function REPRESENTATIVE
1305STYLE-WARNING: implicitly creating new generic function REPRESENTATIVE-NODE
1306STYLE-WARNING: implicitly creating new generic function (SETF PACKAGES)
1307STYLE-WARNING: implicitly creating new generic function PRINT-CONTAINER-CONTENTS
1308; compiling file "/Users/gwking/darcs/cl-mathstats/dev/package.lisp" (written 17 NOV 2005 12:09:42 PM):
1309; compiling (IN-PACKAGE COMMON-LISP-USER)
1310; compiling (DEFPACKAGE "CL-MATHSTATS" ...)
1311
1312; /Users/gwking/darcs/cl-mathstats/dev/package.fasl written
1313; compilation finished in 0:00:01
1314; compiling file "/Users/gwking/darcs/cl-mathstats/dev/math-utilities.lisp" (written 21 OCT 2005 03:54:55 PM):
1315; compiling (IN-PACKAGE METABANG.MATH)
1316; compiling (EXPORT (QUOTE #))
1317; compiling (DECLAIM (INLINE ENSURE-FLOAT))
1318; compiling (DEFUN ENSURE-FLOAT ...)
1319; compiling (DEFUN LINEAR-SCALE ...)
1320; compiling (PROCLAIM (QUOTE #))
1321; compiling (DEFUN TRUNCATE-TO-FACTOR ...)
1322; compiling (PROCLAIM (QUOTE #))
1323; compiling (DEFUN ROUND-TO-FACTOR ...)
1324; compiling (DEFCONSTANT FPI ...)
1325; compiling (DEFCONSTANT 2FPI ...)
1326; compiling (DEFCONSTANT +E+ ...)
1327; compiling (DEFUN DEGREES->RADIANS ...)
1328; compiling (DEFUN RADIANS->DEGREES ...)
1329; compiling (DEFUN ON-INTERVAL ...)
1330; compiling (DEFUN COMBINATION-COUNT ...)
1331; compiling (DEFUN PERMUTATION-COUNT ...)
1332; compiling (DECLAIM (INLINE SQUARE))
1333; compiling (DEFUN SQUARE ...)
1334; compiling (DEFUN F-MEASURE ...)
1335
1336; /Users/gwking/darcs/cl-mathstats/dev/math-utilities.fasl written
1337; compilation finished in 0:00:00
1338; compiling file "/Users/gwking/darcs/cl-mathstats/dev/definitions.lisp" (written 21 OCT 2005 03:54:55 PM):
1339; compiling (IN-PACKAGE METABANG.MATH)
1340; compiling (EXPORT (QUOTE #))
1341; compiling (DEFCONSTANT +0DEGREES+ ...)
1342; compiling (DEFCONSTANT +5DEGREES+ ...)
1343; compiling (DEFCONSTANT +10DEGREES+ ...)
1344; compiling (DEFCONSTANT +15DEGREES+ ...)
1345; compiling (DEFCONSTANT +30DEGREES+ ...)
1346; compiling (DEFCONSTANT +45DEGREES+ ...)
1347; compiling (DEFCONSTANT +60DEGREES+ ...)
1348; compiling (DEFCONSTANT +90DEGREES+ ...)
1349; compiling (DEFCONSTANT +120DEGREES+ ...)
1350; compiling (DEFCONSTANT +135DEGREES+ ...)
1351; compiling (DEFCONSTANT +150DEGREES+ ...)
1352; compiling (DEFCONSTANT +180DEGREES+ ...)
1353; compiling (DEFCONSTANT +210DEGREES+ ...)
1354; compiling (DEFCONSTANT +225DEGREES+ ...)
1355; compiling (DEFCONSTANT +240DEGREES+ ...)
1356; compiling (DEFCONSTANT +270DEGREES+ ...)
1357; compiling (DEFCONSTANT +300DEGREES+ ...)
1358; compiling (DEFCONSTANT +315DEGREES+ ...)
1359; compiling (DEFCONSTANT +330DEGREES+ ...)
1360; compiling (DEFCONSTANT +360DEGREES+ ...)
1361
1362; /Users/gwking/darcs/cl-mathstats/dev/definitions.fasl written
1363; compilation finished in 0:00:01
1364; compiling file "/Users/gwking/darcs/cl-mathstats/dev/binary-math.lisp" (written 21 OCT 2005 03:54:55 PM):
1365; compiling (IN-PACKAGE METABANG.MATH)
1366; compiling (EXPORT (QUOTE #))
1367; compiling (PROCLAIM (QUOTE #))
1368; compiling (DEFUN TIMES2 ...)
1369; compiling (PROCLAIM (QUOTE #))
1370; compiling (DEFUN DIV2 ...)
1371; compiling (PROCLAIM (QUOTE #))
1372; compiling (DEFUN EXP2 ...)
1373; compiling (PROCLAIM (QUOTE #))
1374; compiling (DEFUN LOG2 ...)
1375; compiling (PROCLAIM (QUOTE #))
1376; compiling (DEFUN TRUNC2 ...)
1377; compiling (PROCLAIM (QUOTE #))
1378; compiling (DEFUN MOD2 ...)
1379
1380; /Users/gwking/darcs/cl-mathstats/dev/binary-math.fasl written
1381; compilation finished in 0:00:00
1382; compiling file "/Users/gwking/darcs/cl-mathstats/dev/matrices.lisp" (written 21 OCT 2005 03:54:55 PM):
1383; compiling (IN-PACKAGE METABANG.MATH)
1384; compiling (DEFMACRO CHECK-TYPE-OF-ARG ...)
1385; compiling (DEFUN SCALAR-MATRIX-MULTIPLY ...)
1386; compiling (DEFUN 1-OR-2D-ARRAYP ...)
1387; compiling (DEFUN LIST-2D-ARRAY ...)
1388; compiling (DEFUN FILL-2D-ARRAY ...)
1389; compiling (DEFUN MULTIPLY-MATRICES ...)
1390; compiling (DEFUN INVERT-MATRIX ...)
1391; compiling (DEFUN MATRIX-NORM ...)
1392; compiling (DEFUN INVERT-MATRIX-ITERATE ...)
1393; compiling (DEFUN TRANSPOSE-MATRIX ...)
1394; compiling (DEFUN NORMALIZE-MATRIX ...)
1395; compiling (DEFUN SUM-OF-ARRAY-ELEMENTS ...)
1396
1397; /Users/gwking/darcs/cl-mathstats/dev/matrices.fasl written
1398; compilation finished in 0:00:04
1399; compiling file "/Users/gwking/darcs/cl-mathstats/dev/matrix-fns.lisp" (written 21 OCT 2005 03:54:55 PM):
1400; compiling (IN-PACKAGE METABANG.MATH)
1401; compiling (DEFUN MATRIX-TRACE ...)
1402; compiling (DEFUN MATRIX-MULTIPLY ...)
1403; compiling (DEFUN MATRIX-TIMES-SCALAR! ...)
1404; compiling (DEFUN MATRIX-TIMES-SCALAR ...)
1405; compiling (DEFUN MATRIX-TIMES-MATRIX ...)
1406; compiling (DEFUN MATRIX-ADDITION ...)
1407; compiling (DEFUN MATRIX-PLUS-SCALAR ...)
1408; compiling (DEFUN MATRIX-PLUS-MATRIX ...)
1409; compiling (DEFUN REDUCE-MATRIX ...)
1410
1411; /Users/gwking/darcs/cl-mathstats/dev/matrix-fns.fasl written
1412; compilation finished in 0:00:02
1413; compiling file "/Users/gwking/darcs/cl-mathstats/dev/density-fns.lisp" (written 21 OCT 2005 03:54:55 PM):
1414; compiling (IN-PACKAGE METABANG.MATH)
1415; compiling (EXPORT (QUOTE #))
1416; compiling (DEFPARAMETER *GAUSSIAN-CDF-SIGNALS-ZERO-STANDARD-DEVIATION-ERROR* ...)
1417; compiling (DEFCONSTANT +LOG-PI+ ...)
1418; compiling (DEFCONSTANT +SQRT-PI+ ...)
1419; compiling (DEFUN GAMMA-LN ...)
1420; file: /Users/gwking/darcs/cl-mathstats/dev/density-fns.lisp
1421; in: DEFUN GAMMA-LN
1422;     (LOG (SIN (* PI CL-MATHSTATS::Z)))
1423;
1424; note: unable to
1425;   optimize
1426; due to type uncertainty:
1427;   The result is a (VALUES (OR (DOUBLE-FLOAT * 0.0d0) (COMPLEX DOUBLE-FLOAT))
1428;                           &OPTIONAL), not a (VALUES FLOAT &REST T).
1429
1430;     (+ (CL-MATHSTATS::GAMMA-LN (+ 1.0d0 CL-MATHSTATS::Z))
1431;      (LOG (SIN (* PI CL-MATHSTATS::Z))))
1432;
1433; note: unable to
1434;   optimize
1435; due to type uncertainty:
1436;   The first argument is a NUMBER, not a RATIONAL.
1437;   The second argument is a (OR (DOUBLE-FLOAT * 0.0d0)
1438;                                (COMPLEX DOUBLE-FLOAT)), not a FLOAT.
1439;
1440; note: unable to
1441;   optimize
1442; due to type uncertainty:
1443;   The first argument is a NUMBER, not a SINGLE-FLOAT.
1444;   The second argument is a (OR (DOUBLE-FLOAT * 0.0d0)
1445;                                (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
1446;
1447; note: unable to
1448;   optimize
1449; due to type uncertainty:
1450;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
1451;   The second argument is a (OR (DOUBLE-FLOAT * 0.0d0)
1452;                                (COMPLEX DOUBLE-FLOAT)), not a REAL.
1453;
1454; note: unable to
1455;   optimize
1456; due to type uncertainty:
1457;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
1458;   The second argument is a (OR (DOUBLE-FLOAT * 0.0d0)
1459;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
1460;                                                                DOUBLE-FLOAT).
1461;
1462; note: unable to
1463;   optimize
1464; due to type uncertainty:
1465;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
1466;   The second argument is a (OR (DOUBLE-FLOAT * 0.0d0)
1467;                                (COMPLEX DOUBLE-FLOAT)), not a REAL.
1468;
1469; note: unable to
1470;   optimize
1471; due to type uncertainty:
1472;   The first argument is a NUMBER, not a REAL.
1473;   The second argument is a (OR (DOUBLE-FLOAT * 0.0d0)
1474;                                (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
1475;                                                                DOUBLE-FLOAT).
1476
1477;     (- (+ (LOG CL-MATHSTATS::Z) CL-MATHSTATS::+LOG-PI+)
1478;      (+ (CL-MATHSTATS::GAMMA-LN (+ 1.0d0 CL-MATHSTATS::Z))
1479;         (LOG (SIN (* PI CL-MATHSTATS::Z)))))
1480;
1481; note: unable to
1482;   optimize
1483; due to type uncertainty:
1484;   The second argument is a NUMBER, not a RATIONAL.
1485;
1486; note: unable to
1487;   optimize
1488; due to type uncertainty:
1489;   The second argument is a NUMBER, not a SINGLE-FLOAT.
1490;
1491; note: unable to
1492;   optimize
1493; due to type uncertainty:
1494;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
1495;
1496; note: unable to
1497;   optimize
1498; due to type uncertainty:
1499;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
1500
1501;     (LOG (* 2.50662827465d0 CL-MATHSTATS::SER))
1502;
1503; note: unable to
1504;   optimize
1505; due to type uncertainty:
1506;   The result is a (VALUES (OR DOUBLE-FLOAT (COMPLEX DOUBLE-FLOAT))
1507;                           &OPTIONAL), not a (VALUES FLOAT &REST T).
1508
1509;     (- (LOG (* 2.50662827465d0 CL-MATHSTATS::SER)) CL-MATHSTATS::TMP)
1510;
1511; note: unable to
1512;   optimize
1513; due to type uncertainty:
1514;   The first argument is a (OR DOUBLE-FLOAT
1515;                               (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX
1516;                                                               DOUBLE-FLOAT).
1517
1518;     (+ (CL-MATHSTATS::GAMMA-LN (+ 1.0d0 CL-MATHSTATS::Z))
1519;      (LOG (SIN (* PI CL-MATHSTATS::Z))))
1520;
1521; note: forced to do GENERIC-+ (cost 10)
1522;       unable to do inline float arithmetic (cost 2) because:
1523;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
1524;       The second argument is a (OR (DOUBLE-FLOAT * 0.0d0)
1525;                                    (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
1526;       The result is a (VALUES NUMBER
1527;                               &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
1528
1529;     (- (+ (LOG CL-MATHSTATS::Z) CL-MATHSTATS::+LOG-PI+)
1530;      (+ (CL-MATHSTATS::GAMMA-LN (+ 1.0d0 CL-MATHSTATS::Z))
1531;         (LOG (SIN (* PI CL-MATHSTATS::Z)))))
1532;
1533; note: forced to do GENERIC-- (cost 10)
1534;       unable to do inline float arithmetic (cost 2) because:
1535;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
1536;       The result is a (VALUES NUMBER
1537;                               &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
1538
1539;     (- (LOG (* 2.50662827465d0 CL-MATHSTATS::SER)) CL-MATHSTATS::TMP)
1540;
1541; note: forced to do GENERIC-- (cost 10)
1542;       unable to do inline float arithmetic (cost 2) because:
1543;       The first argument is a (OR DOUBLE-FLOAT
1544;                                   (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
1545;       The result is a (VALUES (OR (COMPLEX DOUBLE-FLOAT) DOUBLE-FLOAT)
1546;                               &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
1547
1548;     (LOG (* 2.50662827465d0 CL-MATHSTATS::SER))
1549;
1550; note: doing float to pointer coercion (cost 13)
1551
1552;     (- (LOG (* 2.50662827465d0 CL-MATHSTATS::SER)) CL-MATHSTATS::TMP)
1553;
1554; note: doing float to pointer coercion (cost 13) from TMP, for:
1555;       the second argument of GENERIC--
1556
1557;     (CL-MATHSTATS::GAMMA-LN (+ 1.0d0 CL-MATHSTATS::Z))
1558;
1559; note: doing float to pointer coercion (cost 13) to X
1560
1561;     (LOG (SIN (* PI CL-MATHSTATS::Z)))
1562;
1563; note: doing float to pointer coercion (cost 13)
1564
1565;     (- (+ (LOG CL-MATHSTATS::Z) CL-MATHSTATS::+LOG-PI+)
1566;      (+ (CL-MATHSTATS::GAMMA-LN (+ 1.0d0 CL-MATHSTATS::Z))
1567;         (LOG (SIN (* PI CL-MATHSTATS::Z)))))
1568;
1569; note: doing float to pointer coercion (cost 13), for:
1570;       the first argument of GENERIC--
1571
1572; compiling (DEFUN FACTORIAL-EXACT ...)
1573; compiling (DEFUN FACTORIAL ...)
1574; compiling (DEFUN FACTORIAL-LN ...)
1575; compiling (DEFUN BINOMIAL-COEFFICIENT ...)
1576; compiling (DEFUN BINOMIAL-COEFFICIENT-EXACT ...)
1577; compiling (DEFUN BINOMIAL-PROBABILITY ...)
1578; compiling (DEFUN BINOMIAL-PROBABILITY-EXACT ...)
1579; compiling (DEFUN BETA ...)
1580; compiling (DEFUN SAFE-EXP ...)
1581; compiling (DEFMACRO UNDERFLOW-GOES-TO-ZERO ...)
1582; compiling (DEFUN GAMMA-INCOMPLETE ...)
1583; compiling (DEFUN ERROR-FUNCTION ...)
1584; compiling (DEFUN GAUSSIAN-CDF ...)
1585; compiling (DEFUN ERROR-FUNCTION-COMPLEMENT ...)
1586; compiling (DEFUN ERROR-FUNCTION-COMPLEMENT-SHORT-1 ...)
1587; compiling (DEFUN ERROR-FUNCTION-COMPLEMENT-SHORT-2 ...)
1588; compiling (DEFUN GAUSSIAN-SIGNIFICANCE ...)
1589; compiling (DEFUN POISSON-CDF ...)
1590; compiling (DEFUN CHI-SQUARE-SIGNIFICANCE ...)
1591; compiling (DEFUN BETA-INCOMPLETE ...)
1592; compiling (DEFUN STUDENTS-T-SIGNIFICANCE ...)
1593; compiling (DEFUN F-SIGNIFICANCE ...)
1594; compiling (DEFUN BINOMIAL-CDF ...)
1595; compiling (DEFUN BINOMIAL-CDF-EXACT ...)
1596
1597; /Users/gwking/darcs/cl-mathstats/dev/density-fns.fasl written
1598; compilation finished in 0:00:06
1599; compiling file "/Users/gwking/darcs/cl-mathstats/dev/svd.lisp" (written 21 OCT 2005 03:54:56 PM):
1600; compiling (IN-PACKAGE METABANG.MATH)
1601; compiling (DEFMACRO AREF1 ...)
1602; compiling (DEFMACRO AREF11 ...)
1603; compiling (DEFMACRO SIGN-DF ...)
1604; compiling (DEFUN PYTHAG-DF ...)
1605; compiling (DEFUN SVBKSB-DF ...)
1606; compiling (DEFUN SVDCMP-DF ...)
1607; compiling (DEFUN SVZERO-DF ...)
1608; compiling (DEFUN SVD-INVERSE-SLOW-DF ...)
1609; compiling (DEFUN SVD-INVERSE-FAST-DF ...)
1610; compiling (DEFMACRO SIGN-SF ...)
1611; compiling (DEFUN PYTHAG-SF ...)
1612; compiling (DEFUN SVBKSB-SF ...)
1613; compiling (DEFUN SVDCMP-SF ...)
1614; compiling (DEFUN SVZERO-SF ...)
1615; compiling (DEFUN SVD-INVERSE-SLOW-SF ...)
1616; compiling (DEFUN SVD-INVERSE-FAST-SF ...)
1617; compiling (DEFUN SINGULAR-VALUE-DECOMPOSITION ...)
1618; compiling (DEFUN SVD-ZERO ...)
1619; compiling (DEFUN SVD-BACK-SUBSTITUTE ...)
1620; compiling (DEFUN SVD-SOLVE-LINEAR-SYSTEM ...)
1621; compiling (DEFUN SVDVAR ...)
1622; compiling (DEFUN SVD-MATRIX-INVERSE ...)
1623
1624; /Users/gwking/darcs/cl-mathstats/dev/svd.fasl written
1625; compilation finished in 0:00:15
1626; compiling file "/Users/gwking/darcs/cl-mathstats/dev/parameters.lisp" (written 21 OCT 2005 03:54:55 PM):
1627; compiling (IN-PACKAGE METABANG.MATH)
1628; compiling (DEFPARAMETER *GAUSSIAN-CDF-SIGNALS-ZERO-STANDARD-DEVIATION-ERROR* ...)
1629
1630; /Users/gwking/darcs/cl-mathstats/dev/parameters.fasl written
1631; compilation finished in 0:00:01
1632; compiling file "/Users/gwking/darcs/cl-mathstats/dev/utilities.lisp" (written 21 OCT 2005 03:54:56 PM):
1633; compiling (IN-PACKAGE METABANG.MATH)
1634; compiling (EXPORT (QUOTE #))
1635; compiling (DEFVAR *TEMPORARY-VECTOR* ...)
1636; compiling (DEFMACRO WITH-TEMP-VECTOR ...)
1637; compiling (DEFVAR *TEMPORARY-TABLE* ...)
1638; compiling (DEFMACRO WITH-TEMP-TABLE ...)
1639; compiling (DEFUN EXTRACT-UNIQUE-VALUES ...)
1640
1641; /Users/gwking/darcs/cl-mathstats/dev/utilities.fasl written
1642; compilation finished in 0:00:01
1643; compiling file "/Users/gwking/darcs/cl-mathstats/dev/define-statistical-fun.lisp" (written 17 NOV 2005 01:48:14 PM):
1644; compiling (IN-PACKAGE METABANG.MATH)
1645; compiling (DEFMACRO WITH-ROUTINE-ERROR-HANDLING ...)
1646; compiling (DEFMACRO DEFINE-STATISTIC ...)
1647; compiling (DEFUN REMOVE-&REST ...)
1648; compiling (DEFMETHOD MAKE-STATISTIC ...)
1649; compiling (DEFMETHOD CONVERT ...)
1650; compiling (DEFPARAMETER *CREATE-STATISTICAL-OBJECTS* ...)
1651; compiling (DEFCLASS DATA ...)
1652; compiling (DEFCLASS STATISTIC ...)
1653; compiling (DEFCLASS SIMPLE-STATISTIC ...)
1654; compiling (DEFCLASS COMPOSITE-STATISTIC ...)
1655; compiling (DEFMETHOD STATISTICP ...)
1656; compiling (DEFMETHOD STATISTICP ...)
1657; compiling (DEFMETHOD COMPOSITE-STATISTIC-P ...)
1658; compiling (DEFMETHOD COMPOSITE-STATISTIC-P ...)
1659; compiling (DEFMETHOD SIMPLE-STATISTIC-P ...)
1660; compiling (DEFMETHOD SIMPLE-STATISTIC-P ...)
1661
1662; /Users/gwking/darcs/cl-mathstats/dev/define-statistical-fun.fasl written
1663; compilation finished in 0:00:06
1664STYLE-WARNING: implicitly creating new generic function MAKE-STATISTIC
1665STYLE-WARNING: implicitly creating new generic function CONVERT
1666STYLE-WARNING: implicitly creating new generic function STATISTICP
1667STYLE-WARNING: implicitly creating new generic function COMPOSITE-STATISTIC-P
1668STYLE-WARNING: implicitly creating new generic function SIMPLE-STATISTIC-P
1669; compiling file "/Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp" (written 11 NOV 2005 05:17:02 PM):
1670; compiling (IN-PACKAGE METABANG.MATH)
1671; compiling (EXPORT (QUOTE #))
1672; compiling (DEFMETHOD CONVERT ...)
1673; compiling (DEFMETHOD CONVERT ...)
1674; compiling (DEFINE-STATISTIC DATA-LENGTH ...)
1675; compiling (DEFINE-STATISTIC MEAN ...)
1676; compiling (DEFUN SUM-OF-SQUARES ...)
1677; compiling (DEFINE-STATISTIC VARIANCE ...)
1678; compiling (DEFINE-STATISTIC STANDARD-DEVIATION ...)
1679; compiling (DEFINE-STATISTIC SKEWNESS ...)
1680; compiling (DEFINE-STATISTIC MINIMUM ...)
1681; compiling (DEFINE-STATISTIC MAXIMUM ...)
1682; compiling (DEFINE-STATISTIC RANGE ...)
1683; compiling (DEFINE-STATISTIC QUANTILE ...)
1684; compiling (DEFINE-STATISTIC MEDIAN ...)
1685; compiling (DEFINE-STATISTIC TRIMMED-MEAN ...)
1686; compiling (DEFMACRO START/END ...)
1687; compiling (DEFINE-STATISTIC MODE ...)
1688; compiling (DEFPARAMETER *CONTINUOUS-VARIABLE-UNIQUENESS-FACTOR* ...)
1689; compiling (DEFPARAMETER *CONTINOUS-DATA-WINDOW-DIVISOR* ...)
1690; compiling (DEFUN MODE-FOR-CONTINUOUS-DATA ...)
1691; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
1692; in: DEFUN MODE-FOR-CONTINUOUS-DATA
1693;     (DEFUN CL-MATHSTATS::MODE-FOR-CONTINUOUS-DATA
1694;          (CL-MATHSTATS::DATA
1695;           &REST CL-MATHSTATS::STANDARD-ARGS
1696;           &KEY CL-MATHSTATS::START CL-MATHSTATS::END CL-MATHSTATS::KEY
1697;           CL-MATHSTATS::WINDOW)
1698;     "Returns the most frequent element of `data,' which should be a sequence.  The
1699; algorithm involves sorting, and so the data must be numbers or the `key'
1700; function must produce numbers.  Consider `sxhash' if no better function is
1701; available.  Also returns the number of occurrences of the mode.  If there is
1702; more than one mode, this returns the first mode, as determined by the sorting of
1703; the numbers.
1704;
1705; Keep in mind that if the data has multiple runs of like values that are bigger
1706; than the window size (currently defaults to 10% of the size of the data) this
1707; function will blindly pick the first one. If this is the case you probabaly
1708; should be calling `mode' instead of this function."
1709;     (DECLARE
1710;      (VALUES METABANG.UTILITIES:ELEMENT CL-MATHSTATS::NUMBER-OF-OCCURRENCES))
1711;     (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
1712;     (WHEN (NOT (CL-MATHSTATS::DATA-CONTINUOUS-P CL-MATHSTATS::DATA))
1713;       (WARN 'CL-MATHSTATS::SEEMS-TO-BE-DISCRETE))
1714;     (LET* ((CL-MATHSTATS::N
1715;             (APPLY #'CL-MATHSTATS::DATA-LENGTH
1716;                    CL-MATHSTATS::DATA
1717;                    :ALLOW-OTHER-KEYS
1718;                    T
1719;                    CL-MATHSTATS::STANDARD-ARGS))
1720;            (CL-MATHSTATS::START2 (OR CL-MATHSTATS::START 0))
1721;            (CL-MATHSTATS::END2 (OR CL-MATHSTATS::END #))
1722;            (CL-MATHSTATS::J (OR CL-MATHSTATS::WINDOW #)))
1723;       (WHEN (ZEROP CL-MATHSTATS::N) (ERROR 'CL-MATHSTATS::NO-DATA))
1724;       (CL-MATHSTATS::WITH-TEMP-VECTOR (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
1725;                                       (REPLACE CL-MATHSTATS::TEMP
1726;                                                CL-MATHSTATS::DATA
1727;                                                :END1
1728;                                                CL-MATHSTATS::N
1729;                                                :START2
1730;                                                CL-MATHSTATS::START2
1731;                                                :END2
1732;                                                CL-MATHSTATS::END2)
1733;                                       (IF (NULL CL-MATHSTATS::KEY)
1734;                                           (SORT CL-MATHSTATS::TEMP #'<)
1735;                                           (SORT CL-MATHSTATS::TEMP
1736;                                                 #'<
1737;                                                 :KEY
1738;                                                 CL-MATHSTATS::KEY))
1739;                                       (MACROLET (#)
1740;                                         (IF CL-MATHSTATS::KEY # #)))))
1741; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
1742; --> FUNCTION
1743; ==>
1744;   (THE
1745;    #<SB-KERNEL:VALUES-TYPE (VALUES &OPTIONAL
1746;                                    METABANG.UTILITIES:ELEMENT
1747;                                    CL-MATHSTATS::NUMBER-OF-OCCURRENCES
1748;                                    &REST
1749;                                    T)>
1750;    (PROGN
1751;     (BLOCK CL-MATHSTATS::MODE-FOR-CONTINUOUS-DATA
1752;       (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
1753;       (WHEN (NOT #) (WARN 'CL-MATHSTATS::SEEMS-TO-BE-DISCRETE))
1754;       (LET* (# # # #)
1755;         (WHEN # #)
1756;         (CL-MATHSTATS::WITH-TEMP-VECTOR # # # #)))))
1757;
1758; note: type assertion too complex to check:
1759;  (VALUES &OPTIONAL ELEMENT NUMBER-OF-OCCURRENCES &REST T).
1760
1761; compiling (DEFUN DATA-CONTINUOUS-P ...)
1762; compiling (DEFUN SMART-MODE ...)
1763; compiling (DEFINE-STATISTIC MULTIPLE-MODES ...)
1764; compiling (DEFINE-STATISTIC INTERQUARTILE-RANGE ...)
1765; compiling (DEFINE-STATISTIC TUKEY-SUMMARY ...)
1766; compiling (DEFINE-STATISTIC STATISTICAL-SUMMARY ...)
1767; compiling (DEFINE-STATISTIC SIGNIFICANCE ...)
1768; compiling (DEFINE-STATISTIC T-SIGNIFICANCE ...)
1769; compiling (DEFINE-STATISTIC T-TEST-ONE-SAMPLE ...)
1770; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
1771; in: DEFINE-STATISTIC T-TEST-ONE-SAMPLE
1772;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::T-TEST-ONE-SAMPLE
1773;                                   (CL-MATHSTATS::T-SIGNIFICANCE)
1774;                                   NIL
1775;                                   NIL
1776;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
1777;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
1778;                                                       &OPTIONAL
1779;                                                       (CL-MATHSTATS::H0-MEAN 0)
1780;                                                       &REST
1781;                                                       CL-MATHSTATS::STANDARD-ARGS
1782;                                                       &KEY
1783;                                                       CL-MATHSTATS::START
1784;                                                       CL-MATHSTATS::END
1785;                                                       CL-MATHSTATS::KEY)
1786;                                   "Returns the t-statistic for the mean of the data, which should be a sequence
1787; of numbers.  Let D be the sample mean.  The null hypothesis is that D equals the
1788; `H0-mean.' The alternative hypothesis is specified by `tails': `:both' means D
1789; /= H0-mean, `:positive' means D > H0-mean, and `:negative' means D < H0-mean.
1790;
1791; The function also returns the significance, the standard error, and the degrees
1792; of freedom.  Signals `zero-variance' if that condition occurs.  Signals
1793; `insufficient-data' unless there are at least two elements in the sample."
1794;                                   (DECLARE
1795;                                    (IGNORE CL-MATHSTATS::START
1796;                                            CL-MATHSTATS::END
1797;                                            CL-MATHSTATS::KEY)
1798;                                    (VALUES CL-MATHSTATS::T-STATISTIC
1799;                                            CL-MATHSTATS::SIGNIFICANCE
1800;                                            CL-MATHSTATS::SAMPLE-ERROR
1801;                                            CL-MATHSTATS::DOF))
1802;                                   (LET ((CL-MATHSTATS::N
1803;                                          (APPLY #'CL-MATHSTATS::DATA-LENGTH
1804;                                                 CL-MATHSTATS::DATA
1805;                                                 CL-MATHSTATS::STANDARD-ARGS)))
1806;                                     (WHEN (ZEROP CL-MATHSTATS::N)
1807;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
1808;                                     (LET ((CL-MATHSTATS::D #)
1809;                                           (CL-MATHSTATS::V #))
1810;                                       (WHEN (ZEROP CL-MATHSTATS::V)
1811;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
1812;                                       (LET* (# # #)
1813;                                         (VALUES CL-MATHSTATS::TT
1814;                                                 CL-MATHSTATS::SIG
1815;                                                 CL-MATHSTATS::SE
1816;                                                 #)))))
1817; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
1818; --> SB-INT:NAMED-LAMBDA
1819; ==>
1820;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
1821;                          (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
1822;                                              &OPTIONAL
1823;                                              (CL-MATHSTATS::H0-MEAN 0)
1824;                                              &REST
1825;                                              CL-MATHSTATS::STANDARD-ARGS
1826;                                              &KEY
1827;                                              CL-MATHSTATS::START
1828;                                              CL-MATHSTATS::END
1829;                                              CL-MATHSTATS::KEY)
1830;                          (DECLARE
1831;                           (IGNORE CL-MATHSTATS::START
1832;                                   CL-MATHSTATS::END
1833;                                   CL-MATHSTATS::KEY)
1834;                           (VALUES CL-MATHSTATS::T-STATISTIC
1835;                                   CL-MATHSTATS::SIGNIFICANCE
1836;                                   CL-MATHSTATS::SAMPLE-ERROR
1837;                                   CL-MATHSTATS::DOF))
1838;                          (BLOCK CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
1839;                            (LET ((CL-MATHSTATS::N #))
1840;                              (WHEN (ZEROP CL-MATHSTATS::N)
1841;                                (ERROR 'CL-MATHSTATS::NO-DATA))
1842;                              (LET (# #)
1843;                                (WHEN # #)
1844;                                (LET* #
1845;                                  #)))))
1846;
1847; caught STYLE-WARNING:
1848;   &OPTIONAL and &KEY found in the same lambda list: (DATA TAILS
1849;                                                           &OPTIONAL
1850;                                                           (H0-MEAN 0)
1851;                                                           &REST
1852;                                                           STANDARD-ARGS
1853;                                                           &KEY
1854;                                                           START
1855;                                                           END
1856;                                                           KEY)
1857
1858; compiling (DEFINE-STATISTIC T-TEST ...)
1859; compiling (DEFINE-STATISTIC D-TEST ...)
1860; compiling (DEFINE-STATISTIC T-TEST-MATCHED ...)
1861; compiling (DEFINE-STATISTIC Z-TEST-ONE-SAMPLE ...)
1862; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
1863; in: DEFINE-STATISTIC Z-TEST-ONE-SAMPLE
1864;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::Z-TEST-ONE-SAMPLE
1865;                                   (CL-MATHSTATS::SIGNIFICANCE)
1866;                                   NIL
1867;                                   NIL
1868;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
1869;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
1870;                                                       &OPTIONAL
1871;                                                       (CL-MATHSTATS::H0-MEAN 0)
1872;                                                       (CL-MATHSTATS::H0-STD-DEV
1873;                                                        1)
1874;                                                       &REST
1875;                                                       CL-MATHSTATS::STANDARD-ARGS
1876;                                                       &KEY
1877;                                                       CL-MATHSTATS::START
1878;                                                       CL-MATHSTATS::END
1879;                                                       CL-MATHSTATS::KEY)
1880;                                   (DECLARE
1881;                                    (IGNORE CL-MATHSTATS::START
1882;                                            CL-MATHSTATS::END
1883;                                            CL-MATHSTATS::KEY
1884;                                            CL-MATHSTATS::TAILS)
1885;                                    (VALUES CL-MATHSTATS::Z-STATISTIC
1886;                                            CL-MATHSTATS::SIGNIFICANCE))
1887;                                   (LET ((CL-MATHSTATS::N
1888;                                          (APPLY #'CL-MATHSTATS::DATA-LENGTH
1889;                                                 CL-MATHSTATS::DATA
1890;                                                 CL-MATHSTATS::STANDARD-ARGS)))
1891;                                     (WHEN (ZEROP CL-MATHSTATS::N)
1892;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
1893;                                     (LET ((CL-MATHSTATS::D #)
1894;                                           (CL-MATHSTATS::V #))
1895;                                       (WHEN (ZEROP CL-MATHSTATS::V)
1896;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
1897;                                       (LET* (# CL-MATHSTATS::SIG)
1898;                                         (VALUES CL-MATHSTATS::ZS
1899;                                                 CL-MATHSTATS::SIG)))))
1900; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
1901; --> SB-INT:NAMED-LAMBDA
1902; ==>
1903;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::Z-TEST-ONE-SAMPLE-INTERNAL
1904;                          (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
1905;                                              &OPTIONAL
1906;                                              (CL-MATHSTATS::H0-MEAN 0)
1907;                                              (CL-MATHSTATS::H0-STD-DEV 1)
1908;                                              &REST
1909;                                              CL-MATHSTATS::STANDARD-ARGS
1910;                                              &KEY
1911;                                              CL-MATHSTATS::START
1912;                                              CL-MATHSTATS::END
1913;                                              CL-MATHSTATS::KEY)
1914;                          (DECLARE
1915;                           (IGNORE CL-MATHSTATS::START
1916;                                   CL-MATHSTATS::END
1917;                                   CL-MATHSTATS::KEY
1918;                                   CL-MATHSTATS::TAILS)
1919;                           (VALUES CL-MATHSTATS::Z-STATISTIC
1920;                                   CL-MATHSTATS::SIGNIFICANCE))
1921;                          (BLOCK CL-MATHSTATS::Z-TEST-ONE-SAMPLE-INTERNAL
1922;                            (LET ((CL-MATHSTATS::N #))
1923;                              (WHEN (ZEROP CL-MATHSTATS::N)
1924;                                (ERROR 'CL-MATHSTATS::NO-DATA))
1925;                              (LET (# #)
1926;                                (WHEN # #)
1927;                                (LET* #
1928;                                  #)))))
1929;
1930; caught STYLE-WARNING:
1931;   &OPTIONAL and &KEY found in the same lambda list: (DATA TAILS
1932;                                                           &OPTIONAL
1933;                                                           (H0-MEAN 0)
1934;                                                           (H0-STD-DEV 1)
1935;                                                           &REST
1936;                                                           STANDARD-ARGS
1937;                                                           &KEY
1938;                                                           START
1939;                                                           END
1940;                                                           KEY)
1941
1942; compiling (DEFUN INNER-PRODUCT ...)
1943; compiling (DEFINE-STATISTIC COVARIANCE ...)
1944; compiling (DEFINE-STATISTIC CONFIDENCE-INTERVAL ...)
1945; compiling (DEFINE-STATISTIC CONFIDENCE-INTERVAL-Z ...)
1946; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
1947; in: DEFINE-STATISTIC CONFIDENCE-INTERVAL-Z
1948;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::CONFIDENCE-INTERVAL-Z
1949;                                   (CL-MATHSTATS::CONFIDENCE-INTERVAL)
1950;                                   NIL
1951;                                   NIL
1952;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
1953;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::CONFIDENCE)
1954;                                   "Suppose you have a sample of 50 numbers and you want to compute a 90 percent
1955; confidence interval on the population mean.  This function is the one to use.
1956; Note that it makes the assumption that the sampling distribution is normal, so
1957; it's inappropriate for small sample sizes.  Use confidence-interval-t instead.
1958; It returns three values: the mean and the lower and upper bound of the
1959; confidence interval.  True, only two numbers are necessary, but the confidence
1960; intervals of other statistics may be asymmetrical and these values would be
1961; consistent with those confidence intervals.  This function handles 90, 95 and 99
1962; percent confidence intervals as special cases, so those will be quite fast.
1963; `Sample' should be a sequence of numbers.  `Confidence' should be a number
1964; between 0 and 1, exclusive."
1965;                                   (DECLARE
1966;                                    (VALUES CL-MATHSTATS::MEAN
1967;                                            CL-MATHSTATS::LOWER
1968;                                            CL-MATHSTATS::UPPER))
1969;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
1970;                                   (CHECK-TYPE CL-MATHSTATS::CONFIDENCE
1971;                                               (REAL (0) (1)))
1972;                                   (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
1973;                                    (CL-MATHSTATS::MEAN CL-MATHSTATS::DATA)
1974;                                    (SQRT
1975;                                     (/
1976;                                      (CL-MATHSTATS::VARIANCE
1977;                                       CL-MATHSTATS::DATA)
1978;                                      (LENGTH CL-MATHSTATS::DATA)))
1979;                                    CL-MATHSTATS::CONFIDENCE))
1980; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
1981; --> SB-INT:NAMED-LAMBDA FUNCTION
1982; ==>
1983;   (THE
1984;    #<SB-KERNEL:VALUES-TYPE (VALUES &OPTIONAL
1985;                                    CL-MATHSTATS::MEAN
1986;                                    CL-MATHSTATS::LOWER
1987;                                    CL-MATHSTATS::UPPER
1988;                                    &REST
1989;                                    T)>
1990;    (PROGN
1991;     (BLOCK CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-INTERNAL
1992;       (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
1993;       (CHECK-TYPE CL-MATHSTATS::CONFIDENCE (REAL # #))
1994;       (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
1995;        (CL-MATHSTATS::MEAN CL-MATHSTATS::DATA)
1996;        (SQRT #)
1997;        CL-MATHSTATS::CONFIDENCE))))
1998;
1999; note: type assertion too complex to check:
2000;  (VALUES &OPTIONAL MEAN LOWER UPPER &REST T).
2001
2002; compiling (DEFUN CONFIDENCE-INTERVAL-Z-SUMMARIES ...)
2003; compiling (DEFINE-STATISTIC CONFIDENCE-INTERVAL-T ...)
2004; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
2005; in: DEFINE-STATISTIC CONFIDENCE-INTERVAL-T
2006;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::CONFIDENCE-INTERVAL-T
2007;                                   (CL-MATHSTATS::CONFIDENCE-INTERVAL)
2008;                                   NIL
2009;                                   NIL
2010;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
2011;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::CONFIDENCE)
2012;                                   "Suppose you have a sample of 10 numbers and you want to compute a 90 percent
2013; confidence interval on the population mean.  This function is the one to use.
2014; This function uses the t-distribution, and so it is appropriate for small sample
2015; sizes.  It can also be used for large sample sizes, but the function
2016; `confidence-interval-z' may be computationally faster.  It returns three values:
2017; the mean and the lower and upper bound of the confidence interval.  True, only
2018; two numbers are necessary, but the confidence intervals of other statistics may
2019; be asymmetrical and these values would be consistent with those confidence
2020; intervals.  `Sample' should be a sequence of numbers.  `Confidence' should be a
2021; number between 0 and 1, exclusive."
2022;                                   (DECLARE
2023;                                    (VALUES CL-MATHSTATS::MEAN
2024;                                            CL-MATHSTATS::LOWER
2025;                                            CL-MATHSTATS::UPPER))
2026;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
2027;                                   (CHECK-TYPE CL-MATHSTATS::CONFIDENCE
2028;                                               (REAL (0) (1)))
2029;                                   (LET* ((CL-MATHSTATS::N
2030;                                           (LENGTH CL-MATHSTATS::DATA)))
2031;                                     (CL-MATHSTATS::CONFIDENCE-INTERVAL-T-SUMMARIES
2032;                                      (CL-MATHSTATS::MEAN CL-MATHSTATS::DATA)
2033;                                      (- CL-MATHSTATS::N 1)
2034;                                      (SQRT (/ # CL-MATHSTATS::N))
2035;                                      CL-MATHSTATS::CONFIDENCE)))
2036; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
2037; --> SB-INT:NAMED-LAMBDA FUNCTION
2038; ==>
2039;   (THE
2040;    #<SB-KERNEL:VALUES-TYPE (VALUES &OPTIONAL
2041;                                    CL-MATHSTATS::MEAN
2042;                                    CL-MATHSTATS::LOWER
2043;                                    CL-MATHSTATS::UPPER
2044;                                    &REST
2045;                                    T)>
2046;    (PROGN
2047;     (BLOCK CL-MATHSTATS::CONFIDENCE-INTERVAL-T-INTERNAL
2048;       (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
2049;       (CHECK-TYPE CL-MATHSTATS::CONFIDENCE (REAL # #))
2050;       (LET* (#)
2051;         (CL-MATHSTATS::CONFIDENCE-INTERVAL-T-SUMMARIES #
2052;                                                        #
2053;                                                        #
2054;                                                        CL-MATHSTATS::CONFIDENCE)))))
2055;
2056; note: type assertion too complex to check:
2057;  (VALUES &OPTIONAL MEAN LOWER UPPER &REST T).
2058
2059; compiling (DEFUN CONFIDENCE-INTERVAL-T-SUMMARIES ...)
2060; compiling (DEFINE-STATISTIC CONFIDENCE-INTERVAL-PROPORTION ...)
2061; compiling (DEFUN SCHEFFE-TESTS ...)
2062; compiling (DEFUN PRINT-SCHEFFE-TABLE ...)
2063; compiling (DEFMETHOD CROSS-PRODUCT ...)
2064; compiling (DEFUN R-SCORE ...)
2065; compiling (DEFUN DIFFERENCE-LIST ...)
2066; compiling (DEFUN SUM-LIST ...)
2067; compiling (DEFUN CHI-SQUARE-2X2-COUNTS ...)
2068; compiling (DEFUN CHI-SQUARE-2X2 ...)
2069; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
2070; in: DEFUN CHI-SQUARE-2X2
2071;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2 (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
2072;     "Performs a chi-square test for independence of the two variables, `v1' and
2073; `v2.' These should be categorial variables with only two values; the function
2074; will construct a 2x2 contingency table by counting the number of occurrences of
2075; each combination of the variables.  See the manual for more details."
2076;     (DECLARE
2077;      (VALUES CL-MATHSTATS::CHI-SQUARE
2078;              CL-MATHSTATS::SIGNIFICANCE
2079;              CL-MATHSTATS::CONTINGENCY-TABLE
2080;              CL-MATHSTATS::V1-VALUES
2081;              CL-MATHSTATS::V2-VALUES))
2082;     (MULTIPLE-VALUE-BIND
2083;         (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
2084;                                  CL-MATHSTATS::V2-VALUES)
2085;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
2086;                                               CL-MATHSTATS::V2)
2087;       (UNLESS (EQUAL '(2 2) (ARRAY-DIMENSIONS CL-MATHSTATS::2X2-TABLE))
2088;         (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
2089;       (LET ((CL-MATHSTATS::A #)
2090;             (CL-MATHSTATS::B #)
2091;             (CL-MATHSTATS::C #)
2092;             (CL-MATHSTATS::D #))
2093;         (MULTIPLE-VALUE-CALL #'VALUES
2094;           (CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS CL-MATHSTATS::A
2095;                                                CL-MATHSTATS::B
2096;                                                CL-MATHSTATS::C
2097;                                                CL-MATHSTATS::D)
2098;           CL-MATHSTATS::2X2-TABLE
2099;           CL-MATHSTATS::V1-VALUES
2100;           CL-MATHSTATS::V2-VALUES))))
2101; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
2102; --> FUNCTION
2103; ==>
2104;   (THE
2105;    #<SB-KERNEL:VALUES-TYPE (VALUES &OPTIONAL
2106;                                    CL-MATHSTATS::CHI-SQUARE
2107;                                    CL-MATHSTATS::SIGNIFICANCE
2108;                                    CL-MATHSTATS::CONTINGENCY-TABLE
2109;                                    CL-MATHSTATS::V1-VALUES
2110;                                    CL-MATHSTATS::V2-VALUES
2111;                                    &REST
2112;                                    T)>
2113;    (PROGN
2114;     (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2
2115;       (MULTIPLE-VALUE-BIND
2116;           (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
2117;                                    CL-MATHSTATS::V2-VALUES)
2118;           (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
2119;                                                 CL-MATHSTATS::V2)
2120;         (UNLESS # #)
2121;         (LET #
2122;           #)))))
2123;
2124; note: type assertion too complex to check:
2125;  (VALUES &OPTIONAL
2126;          CHI-SQUARE
2127;          SIGNIFICANCE
2128;          CONTINGENCY-TABLE
2129;          V1-VALUES
2130;          V2-VALUES
2131;          &REST
2132;          T).
2133
2134; compiling (DEFUN CHI-SQUARE-RXC-COUNTS ...)
2135; compiling (DEFVAR *WAY-TOO-BIG-CONTINGENCY-TABLE-DIMENSION* ...)
2136; compiling (DEFUN MAKE-CONTINGENCY-TABLE ...)
2137; compiling (DEFUN CHI-SQUARE-RXC ...)
2138; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
2139; in: DEFUN CHI-SQUARE-RXC
2140;     (DEFUN CL-MATHSTATS::CHI-SQUARE-RXC (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
2141;     "Performs a chi-square test for independence of the two variables, `v1' and
2142; `v2.' These should be categorial variables; the function will construct a
2143; contingency table by counting the number of occurrences of each combination of
2144; the variables.  See the manual for more details."
2145;     (DECLARE
2146;      (VALUES CL-MATHSTATS::CHI-SQUARE
2147;              CL-MATHSTATS::SIGNIFICANCE
2148;              CL-MATHSTATS::CONTIGENCY-TABLE
2149;              CL-MATHSTATS::V1-VALUES
2150;              CL-MATHSTATS::V2-VALUES))
2151;     (CHECK-TYPE CL-MATHSTATS::V1 SEQUENCE)
2152;     (CHECK-TYPE CL-MATHSTATS::V2 SEQUENCE)
2153;     (MULTIPLE-VALUE-BIND
2154;         (CL-MATHSTATS::TABLE CL-MATHSTATS::V1-VALUES CL-MATHSTATS::V2-VALUES)
2155;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
2156;                                               CL-MATHSTATS::V2)
2157;       (MULTIPLE-VALUE-CALL #'VALUES
2158;         (CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS CL-MATHSTATS::TABLE)
2159;         (CL-MATHSTATS::G-TEST CL-MATHSTATS::TABLE NIL NIL)
2160;         CL-MATHSTATS::TABLE
2161;         CL-MATHSTATS::V1-VALUES
2162;         CL-MATHSTATS::V2-VALUES)))
2163; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
2164; --> FUNCTION
2165; ==>
2166;   (THE
2167;    #<SB-KERNEL:VALUES-TYPE (VALUES &OPTIONAL
2168;                                    CL-MATHSTATS::CHI-SQUARE
2169;                                    CL-MATHSTATS::SIGNIFICANCE
2170;                                    CL-MATHSTATS::CONTIGENCY-TABLE
2171;                                    CL-MATHSTATS::V1-VALUES
2172;                                    CL-MATHSTATS::V2-VALUES
2173;                                    &REST
2174;                                    T)>
2175;    (PROGN
2176;     (BLOCK CL-MATHSTATS::CHI-SQUARE-RXC
2177;       (CHECK-TYPE CL-MATHSTATS::V1 SEQUENCE)
2178;       (CHECK-TYPE CL-MATHSTATS::V2 SEQUENCE)
2179;       (MULTIPLE-VALUE-BIND
2180;           (CL-MATHSTATS::TABLE CL-MATHSTATS::V1-VALUES CL-MATHSTATS::V2-VALUES)
2181;           (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
2182;                                                 CL-MATHSTATS::V2)
2183;         (MULTIPLE-VALUE-CALL #'VALUES
2184;           #
2185;           #
2186;           CL-MATHSTATS::TABLE
2187;           CL-MATHSTATS::V1-VALUES
2188;           CL-MATHSTATS::V2-VALUES)))))
2189;
2190; note: type assertion too complex to check:
2191;  (VALUES &OPTIONAL
2192;          CHI-SQUARE
2193;          SIGNIFICANCE
2194;          CONTIGENCY-TABLE
2195;          V1-VALUES
2196;          V2-VALUES
2197;          &REST
2198;          T).
2199
2200; compiling (DEFUN G-TEST ...)
2201; compiling (DEFUN FIND-CRITICAL-VALUE ...)
2202
2203; /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.fasl written
2204; compilation finished in 0:00:17
2205WARNING:
2206   COMPILE-FILE warned while performing #<COMPILE-OP NIL {10002FF1}> on
2207   #<CL-SOURCE-FILE "basic-statistics" {10003001}>.
2208; compiling file "/Users/gwking/darcs/cl-mathstats/dev/smoothing.lisp" (written 21 OCT 2005 03:54:56 PM):
2209; compiling (IN-PACKAGE METABANG.MATH)
2210; compiling (EXPORT (QUOTE #))
2211; compiling (DEFUN SMOOTH-MEDIAN-2 ...)
2212; compiling (DEFUN SMOOTH-MEDIAN-3 ...)
2213; compiling (DEFUN SMOOTH-MEDIAN-4 ...)
2214; compiling (DEFUN SMOOTH-MEDIAN-5 ...)
2215; compiling (DEFUN SMOOTH-HANNING ...)
2216; compiling (DEFUN SMOOTH-4253H ...)
2217; compiling (DEFUN SMOOTH-MEAN-2 ...)
2218; compiling (DEFUN SMOOTH-MEAN-3 ...)
2219; compiling (DEFUN SMOOTH-MEAN-4 ...)
2220; compiling (DEFUN SMOOTH-MEAN-5 ...)
2221
2222; /Users/gwking/darcs/cl-mathstats/dev/smoothing.fasl written
2223; compilation finished in 0:00:03
2224; compiling file "/Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp" (written 21 OCT 2005 03:54:55 PM):
2225; compiling (IN-PACKAGE METABANG.MATH)
2226; compiling (EXPORT (QUOTE #))
2227; compiling (DEFINE-STATISTIC CORRELATION ...)
2228; compiling (DEFUN CORRELATION-FROM-SUMMARIES ...)
2229; compiling (DEFUN PARTIALS-FROM-PARENTS ...)
2230; compiling (DEFUN LAGGED-CORRELATION ...)
2231; compiling (DEFINE-STATISTIC CROSS-CORRELATION ...)
2232; compiling (DEFINE-STATISTIC AUTOCORRELATION ...)
2233; compiling (DEFUN LINEAR-REGRESSION-MINIMAL-SUMMARIES ...)
2234; compiling (DEFUN LINEAR-REGRESSION-MINIMAL ...)
2235; compiling (DEFUN LINEAR-REGRESSION-BRIEF-SUMMARIES ...)
2236; compiling (DEFUN LINEAR-REGRESSION-BRIEF ...)
2237; compiling (DEFUN LINEAR-REGRESSION-VERBOSE-SUMMARIES ...)
2238; compiling (DEFUN LINEAR-REGRESSION-VERBOSE ...)
2239; compiling (DEFUN MULTIPLE-LINEAR-REGRESSION-NORMAL ...)
2240; compiling (DEFUN MULTIPLE-LINEAR-REGRESSION-ARRAYS ...)
2241; compiling (DEFUN MULTIPLE-LINEAR-REGRESSION-MINIMAL ...)
2242; compiling (DEFUN MULTIPLE-LINEAR-REGRESSION-BRIEF ...)
2243; compiling (DEFUN MULTIPLE-LINEAR-REGRESSION-VERBOSE ...)
2244; compiling (DEFUN CORRELATION-MATRIX ...)
2245
2246; /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.fasl written
2247; compilation finished in 0:00:06
2248; compiling file "/Users/gwking/darcs/cl-mathstats/dev/anova.lisp" (written 17 NOV 2005 11:14:07 AM):
2249; compiling (IN-PACKAGE METABANG.MATH)
2250; compiling (DEFINE-STATISTIC ANOVA-ONE-WAY-VARIABLES ...)
2251; compiling (DEFUN ANOVA-ONE-WAY-GROUPS ...)
2252; compiling (DEFUN PRINT-ANOVA-TABLE ...)
2253; compiling (DEFUN ANOVA-TWO-WAY-GROUPS ...)
2254; compiling (DEFUN MAKE-3D-TABLE ...)
2255; compiling (DEFINE-STATISTIC ANOVA-TWO-WAY-VARIABLES-UNEQUAL-CELL-SIZES ...)
2256; compiling (DEFINE-STATISTIC ANOVA-TWO-WAY-VARIABLES ...)
2257
2258; /Users/gwking/darcs/cl-mathstats/dev/anova.fasl written
2259; compilation finished in 0:00:03
2260; compiling file "/Users/gwking/darcs/metabang.bind/dev/bind.lisp" (written 21 OCT 2005 03:54:53 PM):
2261; compiling (DEFPACKAGE "METABANG.BIND" ...)
2262; compiling (IN-PACKAGE METABANG.BIND)
2263; compiling (DEFPARAMETER *BIND-ALL-DECLARATIONS* ...)
2264; compiling (DEFPARAMETER *BIND-NON-VAR-DECLARATIONS* ...)
2265; compiling (DEFPARAMETER *BIND-SIMPLE-VAR-DECLARATIONS* ...)
2266; compiling (DEFMACRO BIND ...)
2267; compiling (DEFUN BIND-MACRO-HELPER ...)
2268; compiling (DEFUN BIND-FIX-NILS ...)
2269; compiling (DEFUN BIND-EXPAND-DECLARATIONS ...)
2270; compiling (DEFUN BIND-FILTER-DECLARATIONS ...)
2271; compiling (DEFMACRO FLUID-BIND ...)
2272
2273; /Users/gwking/darcs/metabang.bind/dev/bind.fasl written
2274; compilation finished in 0:00:02
2275; compiling file "/Users/gwking/darcs/metatilities/dev/sbcl/generic-lisp.lisp" (written 16 NOV 2005 08:56:10 PM):
2276; compiling (IN-PACKAGE METATILITIES)
2277; compiling (SETF (DEFAULT-INTERFACE) ...)
2278; compiling (DEFMETHOD IS-INTERFACE-AVAILABLE-P ...)
2279; compiling (DEFMETHOD QUIT-LISP* ...)
2280; compiling (DEFMETHOD TOTAL-BYTES-ALLOCATED* ...)
2281; compiling (DEFMETHOD GC-TIME* ...)
2282; compiling (DEFMETHOD COLLECT-GARBAGE* ...)
2283
2284; /Users/gwking/darcs/metatilities/dev/sbcl/generic-lisp.fasl written
2285; compilation finished in 0:00:01
2286; compiling file "/Users/gwking/darcs/metatilities/dev/sbcl/generic-interface-support.lisp" (written 17 NOV 2005 10:51:36 AM):
2287; compiling (IN-PACKAGE METATILITIES)
2288; compiling (DEFMETHOD CHOOSE-FILE-QUESTION* ...)
2289; compiling (DEFMETHOD CHOOSE-NEW-FILE-QUESTION* ...)
2290; compiling (DEFMETHOD CHOOSE-DIRECTORY-QUESTION* ...)
2291; compiling (DEFMETHOD INSPECT-THING* ...)
2292
2293; /Users/gwking/darcs/metatilities/dev/sbcl/generic-interface-support.fasl written
2294; compilation finished in 0:00:02
2295; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/package-additional.lisp" (written 08 NOV 2005 09:18:43 AM):
2296; compiling (IN-PACKAGE METATILITIES)
2297; compiling (USE-PACKAGE "METABANG.BIND" ...)
2298; compiling (SHADOWING-IMPORT (QUOTE #) ...)
2299; compiling (SHADOWING-IMPORT (QUOTE #) ...)
2300; compiling (EXPORT-EXPORTED-SYMBOLS "CONTAINERS" ...)
2301; compiling (MAKE-LOAD-FORM* METABANG.CL-CONTAINERS:ABSTRACT-CONTAINER)
2302; compiling (MAKE-LOAD-FORM* METABANG.CL-CONTAINERS::BST-NODE)
2303; compiling (MAKE-LOAD-FORM* METABANG.CL-CONTAINERS::QUAD-TREE-NODE)
2304
2305; /Users/gwking/darcs/metatilities/dev/utilities/package-additional.fasl written
2306; compilation finished in 0:00:01
2307; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/anaphoric.lisp" (written 18 NOV 2005 08:10:31 AM):
2308; compiling (IN-PACKAGE METATILITIES)
2309; compiling (DEFMACRO AIF ...)
2310; compiling (DEFMACRO AWHEN ...)
2311; compiling (DEFMACRO AWHILE ...)
2312; compiling (DEFMACRO AAND ...)
2313; compiling (DEFMACRO ACOND ...)
2314; compiling (DEFMACRO ALAMBDA ...)
2315; compiling (DEFMACRO ABLOCK ...)
2316; compiling (DEFMACRO AIF2 ...)
2317; compiling (DEFMACRO AWHEN2 ...)
2318; compiling (DEFMACRO AWHILE2 ...)
2319; compiling (DEFMACRO ACOND2 ...)
2320; compiling (DEFMACRO APROG1 ...)
2321; compiling (DEFMACRO ATYPECASE ...)
2322
2323; /Users/gwking/darcs/metatilities/dev/utilities/anaphoric.fasl written
2324; compilation finished in 0:00:01
2325; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/graham.lisp" (written 18 NOV 2005 08:08:14 AM):
2326; compiling (IN-PACKAGE METATILITIES)
2327; compiling (DEFUN MOST ...)
2328; compiling (DEFUN BEST ...)
2329; compiling (DEFUN MOSTN ...)
2330; compiling (DEFUN MAP0-N ...)
2331; compiling (DEFUN MAP1-N ...)
2332; compiling (DEFUN MAPA-B ...)
2333; compiling (DEFUN MAP-> ...)
2334; compiling (DEFUN MAPCARS ...)
2335; compiling (DEFUN FILTER-VALUES ...)
2336; compiling (DEFMACRO WITH-GENSYMS ...)
2337; compiling (DEFMACRO ALLF ...)
2338; compiling (DEFMACRO NILF ...)
2339; compiling (DEFMACRO TF ...)
2340; compiling (DEFMACRO TOGGLE! ...)
2341; compiling (DEFINE-MODIFY-MACRO TOGGLE-AUX ...)
2342; compiling (DEFINE-MODIFY-MACRO CONCF ...)
2343; compiling (DEFMACRO FN ...)
2344; compiling (DEFUN RBUILD ...)
2345; compiling (DEFUN BUILD-CALL ...)
2346; compiling (DEFUN BUILD-COMPOSE ...)
2347; compiling (DEFMACRO WITH-MATRIX ...)
2348; compiling (DEFMACRO WITH-ARRAY ...)
2349; compiling (DEFMACRO WITH-STRUCT ...)
2350; compiling (DEFUN MATCH ...)
2351; compiling (DEFUN VARSYM? ...)
2352; compiling (DEFUN BINDING ...)
2353; compiling (DEFMACRO IF-MATCH ...)
2354; compiling (DEFUN VARS-IN ...)
2355
2356; /Users/gwking/darcs/metatilities/dev/utilities/graham.fasl written
2357; compilation finished in 0:00:03
2358; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/dates-and-times.lisp" (written 18 NOV 2005 08:09:41 AM):
2359; compiling (IN-PACKAGE METATILITIES)
2360; compiling (DEFCONSTANT +MINUTES-PER-HOUR+ ...)
2361; compiling (DEFCONSTANT +SECONDS-PER-MINUTE+ ...)
2362; compiling (DEFCONSTANT +USUAL-DAYS-PER-YEAR+ ...)
2363; compiling (DEFCONSTANT +SECONDS-PER-HOUR+ ...)
2364; compiling (DEFPARAMETER +MONTH-LIST+ ...)
2365; compiling (DEFPARAMETER +DAY-LIST+ ...)
2366; compiling (DEFPARAMETER +FLUFF-LIST+ ...)
2367; compiling (DEFCONSTANT +LONGER-FORMAT-INDEX+ ...)
2368; compiling (DEFCONSTANT +SHORTER-FORMAT-INDEX+ ...)
2369; compiling (DEFPARAMETER +MONTH-OUTPUT-LIST+ ...)
2370; compiling (DEFPARAMETER +DOW-OUTPUT-LIST ...)
2371; compiling (DEFPARAMETER +DAYS-PER-MONTH+ ...)
2372; compiling (DEFUN DAY->STRING ...)
2373; compiling (DEFUN MONTH->STRING ...)
2374; compiling (DEFUN STRING->MONTH ...)
2375; compiling (DEFUN PRINT-DATE ...)
2376; compiling (DEFUN DATE-STRING ...)
2377; compiling (DEFUN DATE-STRING-BRIEF ...)
2378; compiling (DEFUN PRINT-TIME-WITH-NO-COLONS ...)
2379; compiling (DEFUN PRINT-TIME ...)
2380; compiling (DEFUN PRINT-UNIVERSAL-TIME-WITH-NO-COLONS ...)
2381; compiling (DEFUN PRINT-UNIVERSAL-TIME ...)
2382; compiling (DEFUN TIME-STRING ...)
2383; compiling (DEFUN TIME-STRING-WITH-NO-COLONS ...)
2384; compiling (DEFUN DATE-AND-TIME-STRING ...)
2385; compiling (PROCLAIM (QUOTE #))
2386; compiling (DEFUN NTH-OK-P ...)
2387; compiling (DEFUN MONTH-OK-P ...)
2388; compiling (DEFUN DAY-OK-P ...)
2389; compiling (DEFUN YEARP ...)
2390; compiling (DEFUN INDEX-OF ...)
2391; compiling (DEFUN TOKEN-TYPE ...)
2392; compiling (DEFUN READ-TIME ...)
2393; compiling (DEFUN READ-DATE ...)
2394; compiling (DEFMACRO HANDLE-TOKEN ...)
2395; compiling (DEFUN PARSE-DATE-AND-TIME-STRING ...)
2396; file: /Users/gwking/darcs/metatilities/dev/utilities/dates-and-times.lisp
2397; in: DEFUN PARSE-DATE-AND-TIME-STRING
2398;     (ERROR "unsupported reader call")
2399; ==>
2400;   "unsupported reader call"
2401;
2402; note: deleting unreachable code
2403
2404; compiling (DEFUN PARSE-DATE-AND-TIME ...)
2405; compiling (DEFUN PRINT-BRIEF-UT ...)
2406; compiling (DEFUN PRINT-UT ...)
2407; compiling (DEFUN PRINT-TIME-INTERVAL ...)
2408; compiling (DEFUN PRINT-BRIEF-TIME-INTERVAL ...)
2409; compiling (DEFUN PARSE-NUMBER ...)
2410; compiling (DEFVAR TIME-INTERVAL-ARRAY ...)
2411; compiling (DEFVAR TIME-INTERVAL-UNIT-TYPES ...)
2412; compiling (DEFUN TIME-INTERVAL-TO-SECONDS ...)
2413; compiling (DEFUN PARSE-INTERVAL-OR-NEVER ...)
2414; compiling (DEFUN PARSE-TIME ...)
2415; file: /Users/gwking/darcs/metatilities/dev/utilities/dates-and-times.lisp
2416; in: DEFUN PARSE-TIME
2417;     (+ METABANG.UTILITIES:IT 4)
2418;
2419; note: deleting unreachable code
2420
2421; compiling (DEFUN INIT-TIME-INTERVAL-ARRAY ...)
2422; compiling (INIT-TIME-INTERVAL-ARRAY)
2423; compiling (DEFUN PRINT-UNIVERSAL-DATE-VERBOSE ...)
2424; compiling (DEFUN PRINT-DATE-VERBOSE ...)
2425; compiling (EVAL-ALWAYS (DEFMACRO GENERATE-TIME-PART-FUNCTION ...))
2426; compiling (GENERATE-TIME-PART-FUNCTION SECOND ...)
2427; compiling (GENERATE-TIME-PART-FUNCTION MINUTE ...)
2428; compiling (GENERATE-TIME-PART-FUNCTION HOUR ...)
2429; compiling (GENERATE-TIME-PART-FUNCTION DATE ...)
2430; compiling (GENERATE-TIME-PART-FUNCTION MONTH ...)
2431; compiling (GENERATE-TIME-PART-FUNCTION YEAR ...)
2432; compiling (GENERATE-TIME-PART-FUNCTION DAY-OF-WEEK ...)
2433; compiling (GENERATE-TIME-PART-FUNCTION DAYLIGHT-SAVINGS-TIME-P ...)
2434; compiling (DEFUN FORMAT-DATE ...)
2435; compiling (DEFUN DAYS-IN-MONTH ...)
2436; compiling (DEFUN LEAP-YEAR-P ...)
2437; compiling (DEFUN DAY-OF-YEAR ...)
2438
2439; /Users/gwking/darcs/metatilities/dev/utilities/dates-and-times.fasl written
2440; compilation finished in 0:00:07
2441; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/files.lisp" (written 18 NOV 2005 08:08:56 AM):
2442; compiling (IN-PACKAGE METATILITIES)
2443; compiling (DEFUN NICELY-FORMAT-FILENAME ...)
2444; compiling (DEFCONSTANT +MAC-OS-FILENAME-LIMIT+ ...)
2445; compiling (DEFUN FILE-TO-LIST ...)
2446; compiling (DEFUN UNIQUE-FILE-NAME-FROM-DATE ...)
2447; compiling (DEFUN PRETTY-NAMESTRING-FROM-DATE ...)
2448; compiling (DEFUN EOS-NAMESTRING-FROM-DATE ...)
2449; compiling (DEFUN SHORT-EOS-NAMESTRING-FROM-DATE ...)
2450; compiling (DEFUN RENAME-FILE-IF-PRESENT ...)
2451; compiling (DEFMETHOD UNIQUIFY-FILE-NAME ...)
2452; compiling (DEFMETHOD UNIQUIFY-FILE-NAME ...)
2453; compiling (DEFUN GOOD-FILENAME-CHAR-P ...)
2454; compiling (DEFUN REMOVE-ILLEGAL-FILENAME-CHARACTERS ...)
2455; compiling (DEFMETHOD SHORTEN-FILENAME-FOR-OS ...)
2456; compiling (DEFMETHOD SHORTEN-FILENAME-FOR-OS ...)
2457; compiling (DEFUN MAXIMUM-FILENAME-LENGTH ...)
2458; compiling (DEFUN MAP-FILES ...)
2459; compiling (DEFMETHOD MAP-FORMS-IN-FILE ...)
2460; compiling (DEFMETHOD MAP-FORMS-IN-FILE ...)
2461; compiling (DEFMETHOD MAP-FORMS-IN-FILE ...)
2462; compiling (DEFMETHOD MAP-LINES-IN-FILE ...)
2463; compiling (DEFMETHOD MAP-LINES-IN-FILE ...)
2464; compiling (DEFMETHOD MAP-LINES-IN-FILE ...)
2465; compiling (DEFMACRO MAP-LINES ...)
2466; compiling (DEFUN FILE-NEWER-THAN-FILE-P ...)
2467; compiling (DEFUN ENSURE-WILD-FILE-SPEC ...)
2468; compiling (DEFUN REMOVE-DEAD-VERSIONS ...)
2469; compiling (DEFUN FILE-PACKAGE ...)
2470; compiling (DEFVAR *GLU-BLAST-PATHNAME-DEFAULTS* ...)
2471; compiling (DEFVAR *GLU-BLAST-DEFAULT-SELECTOR* ...)
2472; compiling (DEFUN GLU-BLAST ...)
2473; compiling (DEFUN PATHNAME-IS-OLD-CVS-JUNK-P ...)
2474; compiling (DEFUN COPY-FILE ...)
2475; file: /Users/gwking/darcs/metatilities/dev/utilities/files.lisp
2476; in: DEFUN COPY-FILE
2477;     (LET ((METABANG.UTILITIES::DATA NIL) (METABANG.UTILITIES::EOF (GENSYM)))
2478;     (LOOP METABANG.UTILITIES::WITH
2479;           METABANG.UTILITIES::DATA
2480;           METABANG.UTILITIES::WHILE
2481;           (NOT (EQ (SETF METABANG.UTILITIES::DATA #) METABANG.UTILITIES::EOF))
2482;           DO
2483;           (WRITE METABANG.UTILITIES::DATA :STREAM METABANG.UTILITIES::DST)))
2484;
2485; caught STYLE-WARNING:
2486;   The variable DATA is defined but never used.
2487
2488
2489; /Users/gwking/darcs/metatilities/dev/utilities/files.fasl written
2490; compilation finished in 0:00:05
2491WARNING:
2492   COMPILE-FILE warned while performing #<COMPILE-OP NIL {10002EF1}> on
2493   #<CL-SOURCE-FILE "files" {10002F01}>.
2494; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/macros.lisp" (written 18 NOV 2005 08:07:01 AM):
2495; compiling (IN-PACKAGE METATILITIES)
2496; compiling (DEFMACRO NYI ...);
2497; caught STYLE-WARNING:
2498;   NYI is being redefined as a macro when it was previously assumed to be a function.
2499
2500; compiling (DEFMACRO MAKE-OBSOLETE ...)
2501; compiling (DEFMACRO NAMED-LAMBDA ...)
2502; compiling (DEFMACRO DELETEF ...)
2503; compiling (DEFMACRO REMOVEF ...)
2504; compiling (DEFMACRO DOPLIST ...)
2505; compiling (DEFMACRO ASSERT* ...)
2506; compiling (DEFINE-MODIFY-MACRO MAXF ...)
2507; compiling (DEFINE-MODIFY-MACRO MINF ...)
2508; compiling (DEFINE-MODIFY-MACRO MULTF ...)
2509; compiling (DEFMACRO SOME* ...)
2510; compiling (DEFMACRO HANDLER-CASE-IF ...)
2511; compiling (DEFUN GENSYM* ...)
2512; compiling (DEFMACRO REBINDING ...)
2513; compiling (DEFUN FUNCTION-EXPRESSION-P ...)
2514; compiling (DEFUN EXTRACT-HEAD-FORM ...)
2515; compiling (DEFMACRO |\\| ...)
2516; compiling (DEFUN MAKE-HCASE-TABLE ...)
2517; compiling (DEFMACRO HCASE ...)
2518; compiling (DEFMACRO ENSURE-TYPE ...)
2519; compiling (DEFMACRO WITH-SLOT-BINDINGS ...)
2520; compiling (DEFMACRO FUNCALL-IF ...)
2521; compiling (DEFVAR *FILE-IF-EXISTS* ...)
2522; compiling (DEFVAR *FILE-PRINT-RIGHT-MARGIN* ...)
2523; compiling (DEFMACRO WITH-NEW-FILE ...)
2524
2525; /Users/gwking/darcs/metatilities/dev/utilities/macros.fasl written
2526; compilation finished in 0:00:04
2527WARNING:
2528   COMPILE-FILE warned while performing #<COMPILE-OP NIL {40002E39}> on
2529   #<CL-SOURCE-FILE "macros" {40002E49}>.
2530; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/locks.lisp" (written 21 OCT 2005 03:55:02 PM):
2531; compiling (IN-PACKAGE METATILITIES)
2532; compiling (EXPORT (QUOTE #))
2533; compiling (DEFCLASS EKSL-LOCK ...)
2534; compiling (DEFMETHOD REALLOCATE-INSTANCE ...)
2535; compiling (DEFMETHOD PRINT-OBJECT ...)
2536; compiling (DEFVAR *LOCKBASE* ...)
2537; compiling (DEFVAR *ERROR-ON-REENTRANT-REQUEST* ...)
2538; compiling (DEFCONSTANT +WRITE-LOCK+ ...)
2539; compiling (DEFCONSTANT +READ-LOCK+ ...)
2540; compiling (DEFUN LOOK-LOCKS ...)
2541; compiling (DEFUN FIND-LOCK ...)
2542; compiling (DEFUN GRANT-LOCK ...)
2543; compiling (DEFUN SERVICE-PENDING-READS ...)
2544; compiling (DEFUN ENQUEUE-LOCK-REQUEST ...)
2545; compiling (DEFUN RELEASE-EKSL-LOCK ...)
2546; compiling (DEFUN REQUEST-EKSL-LOCK ...)
2547; compiling (DEFGENERIC DESTROY-LOCK ...)
2548; compiling (DEFUN SAFELY-DESTROY-LOCK ...)
2549; compiling (DEFUN FLUSH-LOCKS ...)
2550; compiling (DEFUN FLUSH-LOCKS-AND-TAKE-NAMES ...)
2551; compiling (DEFUN ACCESS-LOCK-P ...)
2552; compiling (DEFMACRO WITH-EKSL-LOCK ...)
2553; compiling (DEFMACRO WITH-READ-ACCESS ...)
2554; compiling (DEFMACRO WITH-WRITE-ACCESS ...)
2555
2556; /Users/gwking/darcs/metatilities/dev/utilities/locks.fasl written
2557; compilation finished in 0:00:04
2558; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/sequences.lisp" (written 18 NOV 2005 08:13:22 AM):
2559; compiling (IN-PACKAGE METATILITIES)
2560; compiling (DEFUN REDUCE-IF ...)
2561; compiling (DEFUN MINIMIZE ...)
2562; compiling (DEFUN MAPCAN1 ...)
2563; file: /Users/gwking/darcs/metatilities/dev/utilities/sequences.lisp
2564; in: DEFUN MAPCAN1
2565;     (FUNCALL METABANG.UTILITIES::FUN (CAR LIST))
2566; --> SB-C::%FUNCALL THE
2567; ==>
2568;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
2569;
2570; note: unable to
2571;   optimize away possible call to FDEFINITION at runtime
2572; due to type uncertainty:
2573;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
2574
2575;     (FUNCALL METABANG.UTILITIES::FUN ELT)
2576; --> SB-C::%FUNCALL THE
2577; ==>
2578;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
2579;
2580; note: unable to
2581;   optimize away possible call to FDEFINITION at runtime
2582; due to type uncertainty:
2583;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.
2584
2585; compiling (DEFUN DOTTED-PAIR-P ...)
2586; compiling (DEFUN FLATTEN ...)
2587; compiling (DEFUN POWER-SET ...)
2588; compiling (DEFUN ALL-PAIRS ...)
2589; compiling (DEFUN MAP-COMBINATIONS ...)
2590; compiling (DEFUN COMBINATIONS ...)
2591; compiling (DEFUN PERMUTE ...)
2592; compiling (DEFUN REMOVE-MEMBERS ...)
2593; compiling (DEFUN TRANSPOSE ...)
2594; compiling (DEFUN TRANSPOSE2 ...)
2595; compiling (DEFUN LIST-CHOOSE-K ...)
2596; compiling (EXPORT (QUOTE #))
2597; compiling (DEFUN SAME-LENGTH-P ...)
2598; compiling (DEFUN LENGTH-EXACTLY-P ...)
2599; compiling (DEFUN PERCENT-OVERLAP ...)
2600; compiling (DEFUN ITERATE-OVER-INDEXES ...)
2601
2602; /Users/gwking/darcs/metatilities/dev/utilities/sequences.fasl written
2603; compilation finished in 0:00:03
2604; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/spy.lisp" (written 18 NOV 2005 08:04:43 AM):
2605; compiling (IN-PACKAGE METATILITIES)
2606; compiling (DEFPARAMETER *SPY-DEBUGGING* ...)
2607; compiling (DEFPARAMETER *SPY-OUTPUT* ...)
2608; compiling (DEFPARAMETER *SPY-NO-NEWLINE* ...)
2609; compiling (DEFPARAMETER *SPY-NO-EXPAND* ...)
2610; compiling (DEFUN SPY-PRIN1 ...)
2611; compiling (DEFUN SPY-PARSE-ARGLIST ...)
2612; compiling (DEFUN SPY-DO-FORM ...)
2613; compiling (DEFUN SPY-EXPAND-FORM ...)
2614; compiling (DEFMACRO SPY ...)
2615; compiling (DEFMACRO SPY* ...)
2616; compiling (DEFMACRO SPYX ...)
2617
2618; /Users/gwking/darcs/metatilities/dev/utilities/spy.fasl written
2619; compilation finished in 0:00:00
2620; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/strings.lisp" (written 18 NOV 2005 08:12:39 AM):
2621; compiling (IN-PACKAGE METATILITIES)
2622; compiling (DEFUN STRING-BEFORE ...)
2623; compiling (DEFUN STRING-AFTER ...)
2624; compiling (DEFUN STRING-STARTS-WITH ...)
2625; compiling (DEFUN STRING-ENDS-WITH ...)
2626; compiling (DEFUN SUBSTRING ...)
2627; file: /Users/gwking/darcs/metatilities/dev/utilities/strings.lisp
2628; in: DEFUN SUBSTRING
2629;     (CHAR STRING METABANG.UTILITIES::R-INDEX)
2630; --> AREF LET*
2631; ==>
2632;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
2633;
2634; note: unable to
2635;   optimize
2636; due to type uncertainty:
2637;   The first argument is a STRING, not a SIMPLE-STRING.
2638;
2639; note: unable to
2640;   avoid runtime dispatch on array element type
2641; because:
2642;   Upgraded element type of array is not known at compile time.
2643
2644;     (CHAR-DOWNCASE METABANG.UTILITIES::C)
2645;
2646; note: unable to
2647;   open code
2648; due to type uncertainty:
2649;   The first argument is a CHARACTER, not a BASE-CHAR.
2650
2651; compiling (DEFUN (SETF SUBSTRING) ...)
2652; compiling (DEFUN STRING-CONTAINS-P ...)
2653; compiling (DEFUN COLLECT-TO-CHAR ...)
2654; file: /Users/gwking/darcs/metatilities/dev/utilities/strings.lisp
2655; in: DEFUN COLLECT-TO-CHAR
2656;     (POSITION CHAR
2657;             STRING
2658;             :START
2659;             METABANG.UTILITIES::START
2660;             :END
2661;             METABANG.UTILITIES::END
2662;             :TEST
2663;             #'CHAR=)
2664; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
2665; ==>
2666;   (SB-KERNEL:%FIND-POSITION SB-C::ITEM
2667;                             SEQUENCE
2668;                             SB-C::FROM-END
2669;                             SB-C::START
2670;                             SB-C::END
2671;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
2672;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
2673;                                                                     SB-C::TEST-NOT))
2674;
2675; note: unable to
2676;   expand inline
2677; because:
2678;   upgraded array element type not known at compile time
2679
2680; compiling (DEFUN COLLECT-TO-NOT ...)
2681; file: /Users/gwking/darcs/metatilities/dev/utilities/strings.lisp
2682; in: DEFUN COLLECT-TO-NOT
2683;     (POSITION CHAR
2684;             STRING
2685;             :START
2686;             METABANG.UTILITIES::START
2687;             :END
2688;             METABANG.UTILITIES::END
2689;             :TEST-NOT
2690;             #'CHAR=)
2691; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
2692; ==>
2693;   (SB-KERNEL:%FIND-POSITION SB-C::ITEM
2694;                             SEQUENCE
2695;                             SB-C::FROM-END
2696;                             SB-C::START
2697;                             SB-C::END
2698;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
2699;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
2700;                                                                     SB-C::TEST-NOT))
2701;
2702; note: unable to
2703;   expand inline
2704; because:
2705;   upgraded array element type not known at compile time
2706
2707; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
2708; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST LET LET
2709; --> COND IF COND IF COND IF PROGN
2710; ==>
2711;   (COMPLEMENT (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-404))
2712;
2713; note: unable to open code because: The function doesn't have a fixed argument count.
2714
2715; compiling (DEFUN STRING->SYMBOL ...)
2716; compiling (DEFUN SYMBOL->STRING ...)
2717; compiling (DEFUN TOKENIZE-STRING ...)
2718; compiling (DEFUN LIST->FORMATTED-STRING ...)
2719
2720; /Users/gwking/darcs/metatilities/dev/utilities/strings.fasl written
2721; compilation finished in 0:00:02
2722; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/utilities.lisp" (written 18 NOV 2005 08:02:55 AM):
2723; compiling (IN-PACKAGE METATILITIES)
2724; compiling (DEFUN MAPAPPEND ...);
2725; caught STYLE-WARNING:
2726;   using deprecated EVAL-WHEN situation names LOAD
2727
2728; compiling (SETF (FDEFINITION #) ...)
2729; compiling (DEFUN TREE-MAP ...)
2730; compiling (DEFUN TREE-FIND ...)
2731; compiling (DEFUN TREE-FIND-IF ...)
2732; compiling (DEFUN TREE-REMOVE-IF ...)
2733; compiling (DEFUN PARTITION ...)
2734; compiling (SETF (SYMBOL-FUNCTION #) ...)
2735; compiling (SETF (SYMBOL-FUNCTION #) ...)
2736; compiling (PROCLAIM (QUOTE #))
2737; compiling (DEFUN FIND-ALL ...)
2738; compiling (DEFUN NMERGE-LIST ...)
2739; compiling (DEFUN DELETE-IF! ...)
2740; compiling (DEFUN COMPACT-ARRAY ...)
2741; compiling (DEFUN CIRCULAR-LIST ...)
2742; compiling (DEFUN GENSYM0 ...)
2743; compiling (DEFUN GROUP ...)
2744; compiling (DEFUN MAKE-INITIALIZED-ARRAY ...)
2745; compiling (DEFUN FIXNUMP ...)
2746; compiling (DEFUN OBJECT->STRING ...)
2747; compiling (DEFUN FLOAT->INTEGER ...)
2748; compiling (DEFUN SORT-USING-LIST-ORDER ...)
2749; compiling (DEFUN UNUSED-VARIABLES ...)
2750; compiling (DEFUN LAMBDA-LIST->ARGS ...)
2751; compiling (PROCLAIM (QUOTE #))
2752; compiling (DEFUN CAR-SAFE ...)
2753; compiling (PROCLAIM (QUOTE #))
2754; compiling (DEFUN CDR-SAFE ...)
2755; compiling (DEFCONSTANT +VERY-SMALL-NUMBER+ ...)
2756; compiling (DEFUN VERY-SMALL-NUMBER-P ...)
2757; file: /Users/gwking/darcs/metatilities/dev/utilities/utilities.lisp
2758; in: DEFUN VERY-SMALL-NUMBER-P
2759;     (ABS NUMBER)
2760;
2761; note: unable to
2762;   optimize
2763; due to type uncertainty:
2764;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
2765;   The result is a (VALUES (REAL 0)
2766;                           &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
2767;
2768; note: unable to
2769;   optimize
2770; due to type uncertainty:
2771;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
2772;   The result is a (VALUES (REAL 0)
2773;                           &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
2774;
2775; note: unable to
2776;   optimize
2777; due to type uncertainty:
2778;   The first argument is a NUMBER, not a RATIONAL.
2779
2780;     (< (ABS NUMBER) METABANG.UTILITIES:+VERY-SMALL-NUMBER+)
2781;
2782; note: unable to
2783;   optimize
2784; due to type uncertainty:
2785;   The first argument is a (OR (SINGLE-FLOAT 0.0)
2786;                               (DOUBLE-FLOAT 0.0d0)
2787;                               (RATIONAL 0)), not a DOUBLE-FLOAT.
2788
2789;     (ABS NUMBER)
2790;
2791; note: forced to do full call
2792;       unable to do inline float arithmetic (cost 1) because:
2793;       The first argument is a NUMBER, not a SINGLE-FLOAT.
2794;       The result is a (VALUES (REAL 0)
2795;                               &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
2796;       unable to do inline float arithmetic (cost 1) because:
2797;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
2798;       The result is a (VALUES (REAL 0)
2799;                               &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
2800
2801;     (< (ABS NUMBER) METABANG.UTILITIES:+VERY-SMALL-NUMBER+)
2802;
2803; note: forced to do GENERIC-< (cost 10)
2804;       unable to do inline float comparison (cost 3) because:
2805;       The first argument is a (OR (SINGLE-FLOAT 0.0)
2806;                                   (DOUBLE-FLOAT 0.0d0)
2807;                                   (RATIONAL 0)), not a SINGLE-FLOAT.
2808
2809; compiling (DEFUN CONVERT-CLAUSES-INTO-LISTS ...)
2810; compiling (DEFUN CONVERT-CLAUSES-INTO-LISTS* ...)
2811; compiling (DEFUN CLEANUP-PARSED-PARAMETER ...)
2812; compiling (DEFUN FIRSTN ...)
2813; compiling (DEFUN CURRY ...)
2814; compiling (DEFINE-COMPILER-MACRO CURRY ...)
2815; compiling (DEFUN CURRY-AFTER ...)
2816; compiling (DEFUN COMPOSE ...)
2817; compiling (DEFUN CONJOIN ...)
2818; compiling (DEFINE-COMPILER-MACRO CONJOIN ...)
2819; compiling (DEFUN DISJOIN ...)
2820; compiling (DEFINE-COMPILER-MACRO DISJOIN ...)
2821; compiling (DEFUN ADD-CLASSES-IF-NECESSARY ...)
2822; compiling (DEFUN DIRECT-SUPERCLASSES-DEFCLASS* ...)
2823; compiling (DEFUN SUPERCLASSES-DEFCLASS* ...)
2824; compiling (DEFUN ADD-CLASS-IF-NECESSARY ...)
2825; compiling (DEFUN REMOVE-LEADING-QUOTE ...)
2826; compiling (DEFUN NTH-ELT-OF-CROSS-PRODUCT ...)
2827; compiling (DEFUN NTH-ELT-OF-CROSS-PRODUCT-AS-MULTIPLE-VALUES ...)
2828; compiling (DEFUN CONSTANT-EXPRESSION-P ...)
2829; compiling (DEFUN CONSTANT-FUNCTION-P ...)
2830; compiling (DEFUN MAKE-SORTER ...)
2831; compiling (DEFMETHOD COPY-TEMPLATE ...)
2832; compiling (DEFMETHOD MAKE-INSTANCE-FROM-OBJECT-INITARGS ...)
2833; compiling (DEFMACRO PUSH-END ...);
2834; caught STYLE-WARNING:
2835;   PUSH-END is being redefined as a macro when it was previously assumed to be a function.
2836
2837
2838; /Users/gwking/darcs/metatilities/dev/utilities/utilities.fasl written
2839; compilation finished in 0:00:07
2840WARNING:
2841   COMPILE-FILE warned while performing #<COMPILE-OP NIL {40002DD9}> on
2842   #<CL-SOURCE-FILE "utilities" {40002DE9}>.
2843; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/tcp.lisp" (written 21 OCT 2005 03:55:03 PM):
2844; compiling (IN-PACKAGE METATILITIES)
2845; compiling (EXPORT (QUOTE #))
2846; compiling (DEFGENERIC OPEN-SOCKET-STREAM ...)
2847; compiling (DEFGENERIC CLOSE-SOCKET-STREAM ...)
2848; compiling (DEFMACRO WITH-OPEN-SOCKET ...)
2849; compiling (DEFGENERIC START-SERVER ...)
2850
2851; /Users/gwking/darcs/metatilities/dev/utilities/tcp.fasl written
2852; compilation finished in 0:00:01
2853; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/searching.lisp" (written 18 NOV 2005 08:05:06 AM):
2854; compiling (IN-PACKAGE METATILITIES)
2855; compiling (DEFUN BINARY-SEARCH ...)
2856; compiling (EXPORT (QUOTE #))
2857; compiling (DEFUN TREE-SEARCH ...)
2858; compiling (DEFUN PREPEND ...)
2859; compiling (DEFUN DEPTH-FIRST-SEARCH ...)
2860; compiling (DEFUN BREADTH-FIRST-SEARCH ...)
2861; compiling (DEFUN MAKE-SORTER-FN ...)
2862; compiling (DEFUN BEST-FIRST-SEARCH ...)
2863; compiling (DEFUN BEAM-SEARCH ...)
2864; compiling (DEFUN ITER-WIDE-SEARCH ...)
2865; compiling (DEFUN GRAPH-SEARCH ...)
2866; compiling (DEFUN NEW-STATES ...)
2867; compiling (DEFVAR *A*-COUNT* ...)
2868; compiling (DEFVAR *A*-LIMIT* ...)
2869; compiling (DEFUN SEARCH-ALL ...)
2870
2871; /Users/gwking/darcs/metatilities/dev/utilities/searching.fasl written
2872; compilation finished in 0:00:01
2873; compiling file "/Users/gwking/darcs/metatilities/dev/utilities/views-and-windows.lisp" (written 18 NOV 2005 08:00:16 AM):
2874; compiling (IN-PACKAGE METATILITIES)
2875; compiling (DEFCLASS VIEW-REQUIRING-CLEANUP-MIXIN ...)
2876; compiling (DEFGENERIC CLEAN-UP-VIEW ...)
2877; compiling (DEFGENERIC UPDATE-DIALOG-UI ...)
2878; compiling (DEFCLASS* HELP-TEXT-MIXIN ...)
2879; compiling (DEFMETHOD HELP-SPEC ...)
2880; compiling (DEFCLASS* MARGINS-MIXIN ...)
2881; compiling (DEFMETHOD (SETF LEFT-MARGIN) ...)
2882; compiling (DEFMETHOD (SETF TOP-MARGIN) ...)
2883; compiling (DEFMETHOD (SETF RIGHT-MARGIN) ...)
2884; compiling (DEFMETHOD (SETF BOTTOM-MARGIN) ...)
2885; compiling (DEFMETHOD VIEW-X/VIEW-Y->X/Y ...)
2886; compiling (DEFMETHOD VIEW-SCALE ...)
2887; compiling (DEFGENERIC ADJUST-POINT-FOR-SCALING ...)
2888; compiling (DEFGENERIC VIEW-X/VIEW-Y->POINT ...)
2889; compiling (DEFGENERIC NOTE-VIEW-SETTINGS-CHANGED ...)
2890; compiling (DEFGENERIC REDRAW ...)
2891; compiling (DEFGENERIC DIALOG-ITEM-VALUE ...)
2892; compiling (DEFGENERIC (SETF DIALOG-ITEM-VALUE) ...)
2893
2894; /Users/gwking/darcs/metatilities/dev/utilities/views-and-windows.fasl written
2895; compilation finished in 0:00:05
2896STYLE-WARNING: redefining TIME-SECOND in DEFUN
2897STYLE-WARNING: redefining TIME-MINUTE in DEFUN
2898STYLE-WARNING: redefining TIME-HOUR in DEFUN
2899STYLE-WARNING: redefining TIME-DATE in DEFUN
2900STYLE-WARNING: redefining TIME-MONTH in DEFUN
2901STYLE-WARNING: redefining TIME-YEAR in DEFUN
2902STYLE-WARNING: redefining TIME-DAY-OF-WEEK in DEFUN
2903STYLE-WARNING: redefining TIME-DAYLIGHT-SAVINGS-TIME-P in DEFUN
2904STYLE-WARNING: implicitly creating new generic function UNIQUIFY-FILE-NAME
2905STYLE-WARNING: implicitly creating new generic function SHORTEN-FILENAME-FOR-OS
2906STYLE-WARNING: implicitly creating new generic function MAP-FORMS-IN-FILE
2907STYLE-WARNING: implicitly creating new generic function MAP-LINES-IN-FILE
2908STYLE-WARNING: implicitly creating new generic function REALLOCATE-INSTANCE
2909STYLE-WARNING: implicitly creating new generic function COPY-TEMPLATE
2910STYLE-WARNING:
2911   implicitly creating new generic function MAKE-INSTANCE-FROM-OBJECT-INITARGS
2912STYLE-WARNING: implicitly creating new generic function HELP-SPEC
2913STYLE-WARNING: implicitly creating new generic function VIEW-X/VIEW-Y->X/Y
2914STYLE-WARNING: implicitly creating new generic function VIEW-SCALE
2915STYLE-WARNING: implicitly creating new generic function CROSS-PRODUCT
2916; compiling file "/Users/gwking/darcs/cl-graph/dev/package.lisp" (written 09 NOV 2005 05:27:46 PM):
2917; compiling (IN-PACKAGE COMMON-LISP-USER)
2918; compiling (DEFPACKAGE "CL-GRAPH" ...)
2919
2920; /Users/gwking/darcs/cl-graph/dev/package.fasl written
2921; compilation finished in 0:00:01
2922; compiling file "/Users/gwking/darcs/cl-graph/dev/macros.lisp" (written 21 OCT 2005 03:54:54 PM):
2923; compiling (IN-PACKAGE METABANG.GRAPH)
2924; compiling (DEFMACRO WITH-CHANGING-VERTEX ...)
2925
2926; /Users/gwking/darcs/cl-graph/dev/macros.fasl written
2927; compilation finished in 0:00:00
2928; compiling file "/Users/gwking/darcs/cl-graph/dev/graph.lisp" (written 21 OCT 2005 03:54:54 PM):
2929; compiling (IN-PACKAGE METABANG.GRAPH)
2930; compiling (DEFCONDITION GRAPH-ERROR ...)
2931; compiling (DEFCONDITION EDGE-ERROR ...)
2932; compiling (DEFCONDITION GRAPH-VERTEX-NOT-FOUND-ERROR ...)
2933; compiling (DEFCONDITION GRAPH-VERTEX-NOT-FOUND-IN-EDGE-ERROR ...)
2934; compiling (DEFCONDITION GRAPH-EDGE-NOT-FOUND-ERROR ...)
2935; compiling (DEFCLASS* BASIC-VERTEX ...)
2936; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
2937; compiling (DEFMETHOD PRINT-OBJECT ...)
2938; compiling (DEFCLASS* BASIC-EDGE ...)
2939; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
2940; compiling (DEFMETHOD PRINT-OBJECT ...)
2941; compiling (DEFCLASS* DIRECTED-EDGE-MIXIN ...)
2942; compiling (DEFCLASS* WEIGHTED-EDGE-MIXIN ...)
2943; compiling (DEFMETHOD WEIGHT ...)
2944; compiling (DEFCLASS* BASIC-GRAPH ...)
2945; compiling (DEFGENERIC MAKE-VERTEX-CONTAINER ...)
2946; compiling (DEFGENERIC MAKE-EDGE-CONTAINER ...)
2947; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
2948; compiling (DEFMETHOD PRINT-OBJECT ...)
2949; compiling (DEFMETHOD MAKE-VERTEX-FOR-GRAPH ...)
2950; compiling (DEFMETHOD MAKE-EDGE-FOR-GRAPH ...)
2951; compiling (DEFGENERIC MAKE-GRAPH ...)
2952; compiling (DEFMETHOD MAKE-GRAPH ...)
2953; compiling (DEFMETHOD MAKE-GRAPH ...)
2954; compiling (DEFGENERIC MAKE-EDGE-FOR-GRAPH ...)
2955; compiling (DEFGENERIC ADD-EDGE ...)
2956; compiling (DEFGENERIC ADD-EDGE-BETWEEN-VERTEXES ...)
2957; compiling (DEFGENERIC DELETE-EDGE ...)
2958; compiling (DEFGENERIC DELETE-EDGE-BETWEEN-VERTEXES ...)
2959; compiling (DEFGENERIC ADD-VERTEX ...)
2960; compiling (DEFGENERIC DELETE-VERTEX ...)
2961; compiling (DEFGENERIC FIND-VERTEX ...)
2962; compiling (DEFGENERIC SEARCH-FOR-VERTEX ...)
2963; compiling (DEFGENERIC FIND-EDGE ...)
2964; compiling (DEFGENERIC FIND-EDGE-BETWEEN-VERTEXES ...)
2965; compiling (DEFGENERIC SOURCE-VERTEX ...)
2966; compiling (DEFGENERIC TARGET-VERTEX ...)
2967; compiling (DEFGENERIC ITERATE-EDGES ...)
2968; compiling (DEFGENERIC ITERATE-SOURCE-EDGES ...)
2969; compiling (DEFGENERIC ITERATE-TARGET-EDGES ...)
2970; compiling (DEFGENERIC ITERATE-CHILDREN ...)
2971; compiling (DEFGENERIC HAS-CHILDREN-P ...)
2972; compiling (DEFGENERIC HAS-PARENT-P ...)
2973; compiling (DEFGENERIC ITERATE-PARENTS ...)
2974; compiling (DEFGENERIC ITERATE-NEIGHBORS ...)
2975; compiling (DEFGENERIC RENUMBER-VERTEXES ...)
2976; compiling (DEFGENERIC RENUMBER-EDGES ...)
2977; compiling (DEFGENERIC GENERATE-DIRECTED-FREE-TREE ...)
2978; compiling (DEFGENERIC IN-UNDIRECTED-CYCLE-P ...)
2979; compiling (DEFGENERIC UNDIRECTED-EDGE-P ...)
2980; compiling (DEFGENERIC DIRECTED-EDGE-P ...)
2981; compiling (DEFGENERIC TAGGED-EDGE-P ...)
2982; compiling (DEFGENERIC UNTAGGED-EDGE-P ...)
2983; compiling (DEFMETHOD UNDIRECTED-EDGE-P ...)
2984; compiling (DEFMETHOD DIRECTED-EDGE-P ...)
2985; compiling (DEFMETHOD TAGGED-EDGE-P ...)
2986; compiling (DEFMETHOD UNTAGGED-EDGE-P ...)
2987; compiling (DEFMETHOD TAG-ALL-EDGES ...)
2988; compiling (DEFMETHOD TAG-ALL-EDGES ...)
2989; compiling (DEFMETHOD UNTAG-ALL-EDGES ...)
2990; compiling (DEFMETHOD UNTAG-ALL-EDGES ...)
2991; compiling (DEFMETHOD UNTAG-EDGES ...)
2992; compiling (DEFMETHOD TAG-EDGES ...)
2993; compiling (DEFMETHOD (SETF ELEMENT) ...)
2994; compiling (DEFMETHOD ADD-VERTEX ...)
2995; compiling (DEFMETHOD REPLACE-VERTEX ...)
2996; compiling (DEFMETHOD ADD-EDGE-BETWEEN-VERTEXES ...)
2997; compiling (DEFMETHOD ADD-EDGE-BETWEEN-VERTEXES ...)
2998; compiling (DEFMETHOD ADD-EDGE-TO-VERTEX ...)
2999; compiling (DEFMETHOD FIND-EDGE-BETWEEN-VERTEXES ...)
3000; compiling (DEFMETHOD DELETE-EDGE-BETWEEN-VERTEXES ...)
3001; compiling (DEFMETHOD DELETE-EDGE ...)
3002; compiling (DEFMETHOD DELETE-VERTEX ...)
3003; compiling (DEFMETHOD DELETE-VERTEX ...)
3004; compiling (DEFMETHOD DELETE-VERTEX ...)
3005; compiling (DEFMETHOD INSERT-ITEM ...)
3006; compiling (DEFMETHOD SOURCE-EDGES ...)
3007; compiling (DEFMETHOD TARGET-EDGES ...)
3008; compiling (DEFMETHOD CHILD-VERTEXES ...)
3009; compiling (DEFMETHOD PARENT-VERTEXES ...)
3010; compiling (DEFMETHOD NEIGHBOR-VERTEXES ...)
3011; compiling (DEFUN ADJACENTP ...)
3012; compiling (DEFMETHOD NUMBER-OF-NEIGHBORS ...)
3013; compiling (DEFMETHOD IN-CYCLE-P ...)
3014; compiling (DEFMETHOD RENUMBER-VERTEXES ...)
3015; compiling (DEFMETHOD RENUMBER-EDGES ...)
3016; compiling (DEPRECATED (DEFMETHOD CONTAINER->LIST ...))
3017; compiling (DEFMETHOD ADD-VERTEX ...)
3018; compiling (DEFMETHOD ADD-EDGE ...)
3019; compiling (DEFMETHOD FIND-VERTEX ...)
3020; compiling (DEFMETHOD FIND-VERTEX ...)
3021; compiling (DEFMETHOD SEARCH-FOR-VERTEX ...)
3022; compiling (DEFMETHOD SEARCH-FOR-VERTEX ...)
3023; compiling (DEFMETHOD SEARCH-FOR-VERTEX ...)
3024; compiling (DEFMETHOD ITERATE-ELEMENTS ...)
3025; compiling (DEFMETHOD ITERATE-NODES ...)
3026; compiling (DEFMETHOD ITERATE-VERTEXES ...)
3027; compiling (DEFMETHOD ITERATE-VERTEXES ...)
3028; compiling (DEFMETHOD SIZE ...)
3029; compiling (DEFMETHOD EDGES ...)
3030; compiling (DEFMETHOD EDGES ...)
3031; compiling (DEPRECATED "Use size instead" ...)
3032; compiling (DEFMETHOD VERTEXES ...)
3033; compiling (DEFMETHOD SOURCE-EDGE-COUNT ...)
3034; compiling (DEFMETHOD TARGET-EDGE-COUNT ...)
3035; compiling (DEFMETHOD GRAPH-ROOTS ...)
3036; compiling (DEFMETHOD ROOTP ...)
3037; compiling (DEFMETHOD FIND-VERTEX-IF ...)
3038; compiling (DEFMETHOD FIND-VERTEX-IF ...)
3039; compiling (DEFMETHOD FIND-EDGE-IF ...)
3040; compiling (DEFMETHOD FIND-EDGES-IF ...)
3041; compiling (DEFMETHOD FIND-VERTEXES-IF ...)
3042; compiling (DEFMETHOD EMPTY! ...)
3043; compiling (DEFUN NEIGHBORS-TO-CHILDREN ...)
3044; compiling (DEFMETHOD GENERATE-DIRECTED-FREE-TREE ...)
3045; compiling (DEFMETHOD FORCE-UNDIRECTED ...)
3046; compiling (DEFMETHOD TRAVERSE-ELEMENTS ...)
3047; compiling (DEFMETHOD TRAVERSE-ELEMENTS-HELPER ...)
3048; compiling (DEFMETHOD TRAVERSE-ELEMENTS-HELPER ...)
3049; compiling (DEFMETHOD IN-CYCLE-P ...)
3050; compiling (DEFMETHOD IN-UNDIRECTED-CYCLE-P ...)
3051; compiling (DEFMETHOD ANY-UNDIRECTED-CYCLE-P ...)
3052; compiling (DEFUN REMOVE-LIST ...)
3053; compiling (DEFUN GET-NODELIST-RELATIVES ...)
3054; compiling (DEFUN GET-TRANSITIVE-CLOSURE ...)
3055; compiling (DEFMETHOD COMPLETE-LINKS ...)
3056; compiling (DEFGENERIC MAKE-FILTERED-GRAPH ...)
3057; compiling (DEFMETHOD MAKE-FILTERED-GRAPH ...)
3058; compiling (DEFMETHOD SUBGRAPH-CONTAINING ...)
3059; compiling (DEFMETHOD EDGE-COUNT ...)
3060; compiling (DEFMETHOD EDGE-COUNT ...)
3061; compiling (DEFMETHOD TOPOLOGICAL-SORT ...)
3062; compiling (DEFMETHOD ASSIGN-LEVEL ...)
3063; compiling (DEFMETHOD ASSIGN-LEVEL ...)
3064; compiling (DEFMETHOD DEPTH ...)
3065; compiling (DEFUN MAP-PATHS ...)
3066; compiling (DEFUN MAP-SHORTEST-PATHS ...)
3067; compiling (DEFUN APPEND-UNIQUE ...)
3068
3069; /Users/gwking/darcs/cl-graph/dev/graph.fasl written
3070; compilation finished in 0:00:37
3071; compiling file "/Users/gwking/darcs/cl-graph/dev/graph-container.lisp" (written 21 OCT 2005 03:54:54 PM):
3072; compiling (IN-PACKAGE METABANG.GRAPH)
3073; compiling (EXPORT (QUOTE #))
3074; compiling (DEFCLASS* GRAPH-CONTAINER ...)
3075; compiling (DEFCLASS* GRAPH-CONTAINER-EDGE ...)
3076; compiling (DEFMETHOD PRINT-OBJECT ...)
3077; compiling (DEFCLASS* WEIGHTED-EDGE ...)
3078; compiling (DEFCLASS* GRAPH-CONTAINER-VERTEX ...)
3079; compiling (DEFMETHOD MAKE-VERTEX-EDGES-CONTAINER ...)
3080; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
3081; compiling (DEFMETHOD MAKE-VERTEX-CONTAINER ...)
3082; compiling (DEFMETHOD MAKE-EDGE-CONTAINER ...)
3083; compiling (DEFCLASS* GRAPH-CONTAINER-DIRECTED-EDGE ...)
3084; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
3085; compiling (DEFMETHOD SOURCE-VERTEX ...)
3086; compiling (DEFMETHOD TARGET-VERTEX ...)
3087; compiling (DEFMETHOD OTHER-VERTEX ...)
3088; compiling (DEFMETHOD OTHER-VERTEX ...)
3089; compiling (DEFMETHOD ADD-EDGE ...)
3090; compiling (DEFMETHOD ADD-EDGE-TO-VERTEX ...)
3091; compiling (DEFMETHOD MAKE-NODE-FOR-CONTAINER ...)
3092; compiling (DEFMETHOD FIND-EDGE-BETWEEN-VERTEXES ...)
3093; compiling (DEFMETHOD FIND-EDGE-BETWEEN-VERTEXES-IF ...)
3094; compiling (DEFMETHOD FIND-EDGE-BETWEEN-VERTEXES-IF ...)
3095; compiling (DEFMETHOD FIND-EDGE ...)
3096; compiling (DEFMETHOD DELETE-EDGE ...)
3097; compiling (DEFMETHOD ITERATE-EDGES ...)
3098; compiling (DEFMETHOD ITERATE-EDGES ...)
3099; compiling (DEFMETHOD ITERATE-SOURCE-EDGES ...)
3100; compiling (DEFMETHOD ITERATE-TARGET-EDGES ...)
3101; compiling (DEFMETHOD ITERATE-CHILDREN ...)
3102; compiling (DEFMETHOD ITERATE-PARENTS ...)
3103; compiling (DEFMETHOD ITERATE-NEIGHBORS ...)
3104; compiling (DEFMETHOD VERTEXES ...)
3105; compiling (DEFMETHOD HAS-CHILDREN-P ...)
3106; compiling (DEFMETHOD HAS-PARENT-P ...)
3107; compiling (DEFMETHOD VERTICES-SHARE-EDGE-P ...)
3108
3109; /Users/gwking/darcs/cl-graph/dev/graph-container.fasl written
3110; compilation finished in 0:00:12
3111; compiling file "/Users/gwking/darcs/cl-graph/dev/graph-matrix.lisp" (written 21 OCT 2005 03:54:54 PM):
3112; compiling (IN-PACKAGE METABANG.GRAPH)
3113; compiling (DEFCLASS* GRAPH-MATRIX ...)
3114; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
3115; compiling (DEFMETHOD MAKE-VERTEX-CONTAINER ...)
3116; compiling (DEFMETHOD MAKE-EDGE-CONTAINER ...)
3117; compiling (DEFCLASS* GRAPH-MATRIX-EDGE ...)
3118; compiling (DEFCLASS* GRAPH-MATRIX-VERTEX ...)
3119
3120; /Users/gwking/darcs/cl-graph/dev/graph-matrix.fasl written
3121; compilation finished in 0:00:01
3122; compiling file "/Users/gwking/darcs/cl-graph/dev/graph-metrics.lisp" (written 21 OCT 2005 03:54:54 PM):
3123; compiling (IN-PACKAGE METABANG.GRAPH)
3124; compiling (EXPORT (QUOTE #))
3125; compiling (DEFUN VERTEX-DEGREE-COUNTS ...)
3126; compiling (DEFUN AVERAGE-VERTEX-DEGREE ...)
3127; compiling (DEFUN VERTEX-DEGREE ...)
3128; compiling (DEFUN %VERTEX-DEGREE ...)
3129; compiling (DEFUN VERTEX-DEGREE-SUMMARY ...)
3130; compiling (DEFUN AVERAGE-VERTEX-CLUSTERING-COEFFICIENT ...)
3131; compiling (DEFUN VERTEX-CLUSTERING-COEFFICIENT ...)
3132; compiling (DEFUN VERTEX-TRIANGLE-COUNT ...)
3133; compiling (DEFUN ROW-SUMS ...)
3134; compiling (DEFUN COLUMN-SUMS ...)
3135; compiling (DEFGENERIC ASSORTATIVITY-COEFFICIENT ...)
3136; compiling (DEFMETHOD ASSORTATIVITY-COEFFICIENT ...)
3137; compiling (DEFMETHOD GRAPH-EDGE-MIXTURE-MATRIX ...)
3138; compiling (DEFMETHOD GRAPH-MIXING-MATRIX ...)
3139; compiling (DEFMETHOD UNIQUE-ELEMENTS ...)
3140; compiling (DEFMETHOD UNIQUE-ELEMENTS ...)
3141; compiling (DEFMETHOD UNIQUE-NODES ...)
3142; compiling (DEFMETHOD UNIQUE-NODES ...)
3143; compiling (DEFUN %UNIQUE-ELEMENTS ...)
3144
3145; /Users/gwking/darcs/cl-graph/dev/graph-metrics.fasl written
3146; compilation finished in 0:00:06
3147; compiling file "/Users/gwking/darcs/cl-graph/dev/graph-algorithms.lisp" (written 21 OCT 2005 03:54:54 PM):
3148; compiling (IN-PACKAGE METABANG.GRAPH)
3149; compiling (DEFSTRUCT (VERTEX-DATUM # ...) ...)
3150; compiling (DEFMETHOD INITIALIZE-VERTEX-DATA ...)
3151; compiling (DEFMETHOD BREADTH-FIRST-VISITOR ...)
3152; compiling (DEFMETHOD BREADTH-FIRST-VISITOR ...)
3153; compiling (DEFMETHOD BREADTH-FIRST-SEARCH-GRAPH ...)
3154; compiling (DEFMETHOD BREADTH-FIRST-SEARCH-GRAPH ...)
3155; compiling (DEFMETHOD CONNECTED-COMPONENTS ...)
3156; compiling (DEFMETHOD FIND-CONNECTED-COMPONENTS ...)
3157; compiling (DEFMETHOD MST-FIND-SET ...)
3158; compiling (DEFMETHOD MST-MAKE-SET ...)
3159; compiling (DEFMETHOD MST-TREE-UNION ...)
3160; compiling (DEFMETHOD MST-LINK ...)
3161; compiling (DEFMETHOD ADD-EDGES-TO-GRAPH ...)
3162; compiling (DEFMETHOD MAKE-GRAPH-FROM-VERTEXES ...)
3163; compiling (DEFMETHOD EDGE-LESSP-BY-WEIGHT ...)
3164; compiling (DEFMETHOD MINIMUM-SPANNING-TREE ...)
3165; compiling (DEFMETHOD CONNECTED-GRAPH-P ...)
3166; compiling (DEFPARAMETER *DEPTH-FIRST-SEARCH-TIMER* ...)
3167; compiling (DEFMETHOD EDGE-LESSP-BY-DIRECTION ...)
3168; compiling (DEFMETHOD OUT-EDGE-FOR-VERTEX-P ...)
3169; compiling (DEFMETHOD DFS ...)
3170; compiling (DEFMETHOD DFS ...)
3171; compiling (DEFMETHOD DFS-VISIT ...)
3172; compiling (DEFMETHOD DFS-TREE-EDGE-P ...)
3173; compiling (DEFMETHOD DFS-BACK-EDGE-P ...)
3174; compiling (DEFMETHOD DFS-FORWARD-EDGE-P ...)
3175; compiling (DEFMETHOD DFS-CROSS-EDGE-P ...)
3176; compiling (DEFMETHOD DFS-EDGE-TYPE ...)
3177; compiling (DEFMETHOD MAP-OVER-ALL-COMBINATIONS-OF-K-VERTEXES ...)
3178; compiling (DEFMETHOD MAP-OVER-ALL-COMBINATIONS-OF-K-EDGES ...)
3179; compiling (DEFMETHOD MAP-OVER-ALL-COMBINATIONS-OF-K-EDGES ...)
3180
3181; /Users/gwking/darcs/cl-graph/dev/graph-algorithms.fasl written
3182; compilation finished in 0:00:11
3183; compiling file "/Users/gwking/darcs/cl-graph/dev/graphviz-support.lisp" (written 09 NOV 2005 04:12:56 PM):
3184;
3185; caught STYLE-WARNING:
3186;   Character decoding error in a #|-comment at position 633 reading source file #<FD-STREAM for "file /Users/gwking/darcs/cl-graph/dev/graphviz-support.lisp" {418700F1}>, resyncing.
3187
3188;
3189; caught STYLE-WARNING:
3190;   Character decoding error in a #|-comment at position 635 reading source file #<FD-STREAM for "file /Users/gwking/darcs/cl-graph/dev/graphviz-support.lisp" {418700F1}>, resyncing.
3191
3192; compiling (IN-PACKAGE METABANG.GRAPH)
3193; compiling (DEFMETHOD GRAPH->DOT ...)
3194; compiling (DEFMETHOD GRAPH->DOT ...)
3195; compiling (DEFMETHOD GRAPH->DOT ...)
3196; compiling (DEFMETHOD GRAPH->DOT ...)
3197; compiling (DEFMETHOD GRAPH->DOT ...)
3198; compiling (DEFMETHOD GRAPH->DOT-PROPERTIES ...)
3199; compiling (DEFMETHOD VERTEX->DOT ...)
3200; compiling (DEFMETHOD EDGE->DOT ...)
3201
3202; /Users/gwking/darcs/cl-graph/dev/graphviz-support.fasl written
3203; compilation finished in 0:00:04
3204WARNING:
3205   COMPILE-FILE warned while performing #<COMPILE-OP NIL {10002E89}> on
3206   #<CL-SOURCE-FILE "graphviz-support" {10002E99}>.
3207STYLE-WARNING: redefining MAKE-LOAD-FORM (BASIC-VERTEX) in DEFMETHOD
3208STYLE-WARNING: redefining MAKE-LOAD-FORM (BASIC-EDGE) in DEFMETHOD
3209STYLE-WARNING: redefining MAKE-LOAD-FORM (BASIC-GRAPH) in DEFMETHOD
3210STYLE-WARNING: implicitly creating new generic function MAKE-VERTEX-FOR-GRAPH
3211STYLE-WARNING: implicitly creating new generic function MAKE-EDGE-FOR-GRAPH
3212STYLE-WARNING: redefining MAKE-EDGE-FOR-GRAPH in DEFGENERIC
3213STYLE-WARNING: redefining ITERATE-CHILDREN in DEFGENERIC
3214STYLE-WARNING: implicitly creating new generic function TAG-ALL-EDGES
3215STYLE-WARNING: implicitly creating new generic function UNTAG-ALL-EDGES
3216STYLE-WARNING: implicitly creating new generic function UNTAG-EDGES
3217STYLE-WARNING: implicitly creating new generic function TAG-EDGES
3218STYLE-WARNING: implicitly creating new generic function REPLACE-VERTEX
3219STYLE-WARNING: implicitly creating new generic function ADD-EDGE-TO-VERTEX
3220STYLE-WARNING: implicitly creating new generic function SOURCE-EDGES
3221STYLE-WARNING: implicitly creating new generic function TARGET-EDGES
3222STYLE-WARNING: implicitly creating new generic function CHILD-VERTEXES
3223STYLE-WARNING: implicitly creating new generic function PARENT-VERTEXES
3224STYLE-WARNING: implicitly creating new generic function NEIGHBOR-VERTEXES
3225STYLE-WARNING: implicitly creating new generic function NUMBER-OF-NEIGHBORS
3226STYLE-WARNING: implicitly creating new generic function IN-CYCLE-P
3227STYLE-WARNING: redefining SEARCH-FOR-VERTEX (BASIC-GRAPH T) in DEFMETHOD
3228STYLE-WARNING: implicitly creating new generic function ITERATE-VERTEXES
3229STYLE-WARNING: implicitly creating new generic function EDGES
3230STYLE-WARNING: implicitly creating new generic function VERTEX-COUNT
3231STYLE-WARNING: implicitly creating new generic function VERTEXES
3232STYLE-WARNING: implicitly creating new generic function SOURCE-EDGE-COUNT
3233STYLE-WARNING: implicitly creating new generic function TARGET-EDGE-COUNT
3234STYLE-WARNING: implicitly creating new generic function GRAPH-ROOTS
3235STYLE-WARNING: implicitly creating new generic function ROOTP
3236STYLE-WARNING: implicitly creating new generic function FIND-VERTEX-IF
3237STYLE-WARNING: implicitly creating new generic function FIND-EDGE-IF
3238STYLE-WARNING: implicitly creating new generic function FIND-EDGES-IF
3239STYLE-WARNING: implicitly creating new generic function FIND-VERTEXES-IF
3240STYLE-WARNING: implicitly creating new generic function FORCE-UNDIRECTED
3241STYLE-WARNING: implicitly creating new generic function TRAVERSE-ELEMENTS
3242STYLE-WARNING: implicitly creating new generic function TRAVERSE-ELEMENTS-HELPER
3243STYLE-WARNING: implicitly creating new generic function ANY-UNDIRECTED-CYCLE-P
3244STYLE-WARNING: implicitly creating new generic function COMPLETE-LINKS
3245STYLE-WARNING: implicitly creating new generic function SUBGRAPH-CONTAINING
3246STYLE-WARNING: implicitly creating new generic function EDGE-COUNT
3247STYLE-WARNING: implicitly creating new generic function TOPOLOGICAL-SORT
3248STYLE-WARNING: implicitly creating new generic function ASSIGN-LEVEL
3249STYLE-WARNING: implicitly creating new generic function DEPTH
3250STYLE-WARNING:
3251   implicitly creating new generic function MAKE-VERTEX-EDGES-CONTAINER
3252STYLE-WARNING: implicitly creating new generic function OTHER-VERTEX
3253STYLE-WARNING:
3254   implicitly creating new generic function FIND-EDGE-BETWEEN-VERTEXES-IF
3255STYLE-WARNING: implicitly creating new generic function VERTICES-SHARE-EDGE-P
3256STYLE-WARNING:
3257   implicitly creating new generic function GRAPH-EDGE-MIXTURE-MATRIX
3258STYLE-WARNING: implicitly creating new generic function GRAPH-MIXING-MATRIX
3259STYLE-WARNING: implicitly creating new generic function UNIQUE-ELEMENTS
3260STYLE-WARNING: implicitly creating new generic function UNIQUE-NODES
3261STYLE-WARNING: implicitly creating new generic function INITIALIZE-VERTEX-DATA
3262STYLE-WARNING: implicitly creating new generic function BREADTH-FIRST-VISITOR
3263STYLE-WARNING:
3264   implicitly creating new generic function BREADTH-FIRST-SEARCH-GRAPH
3265STYLE-WARNING: implicitly creating new generic function CONNECTED-COMPONENTS
3266STYLE-WARNING:
3267   implicitly creating new generic function FIND-CONNECTED-COMPONENTS
3268STYLE-WARNING: implicitly creating new generic function MST-FIND-SET
3269STYLE-WARNING: implicitly creating new generic function MST-MAKE-SET
3270STYLE-WARNING: implicitly creating new generic function MST-TREE-UNION
3271STYLE-WARNING: implicitly creating new generic function MST-LINK
3272STYLE-WARNING: implicitly creating new generic function ADD-EDGES-TO-GRAPH
3273STYLE-WARNING: implicitly creating new generic function MAKE-GRAPH-FROM-VERTEXES
3274STYLE-WARNING: implicitly creating new generic function EDGE-LESSP-BY-WEIGHT
3275STYLE-WARNING: implicitly creating new generic function MINIMUM-SPANNING-TREE
3276STYLE-WARNING: implicitly creating new generic function CONNECTED-GRAPH-P
3277STYLE-WARNING: implicitly creating new generic function EDGE-LESSP-BY-DIRECTION
3278STYLE-WARNING: implicitly creating new generic function OUT-EDGE-FOR-VERTEX-P
3279STYLE-WARNING: implicitly creating new generic function DFS
3280STYLE-WARNING: implicitly creating new generic function DFS-VISIT
3281STYLE-WARNING: implicitly creating new generic function DFS-TREE-EDGE-P
3282STYLE-WARNING: implicitly creating new generic function DFS-BACK-EDGE-P
3283STYLE-WARNING: implicitly creating new generic function DFS-FORWARD-EDGE-P
3284STYLE-WARNING: implicitly creating new generic function DFS-CROSS-EDGE-P
3285STYLE-WARNING: implicitly creating new generic function DFS-EDGE-TYPE
3286STYLE-WARNING:
3287   implicitly creating new generic function MAP-OVER-ALL-COMBINATIONS-OF-K-VERTEXES
3288STYLE-WARNING:
3289   implicitly creating new generic function MAP-OVER-ALL-COMBINATIONS-OF-K-EDGES
3290STYLE-WARNING: implicitly creating new generic function GRAPH->DOT
3291STYLE-WARNING: implicitly creating new generic function GRAPH->DOT-PROPERTIES
3292STYLE-WARNING: implicitly creating new generic function VERTEX->DOT
3293STYLE-WARNING: implicitly creating new generic function EDGE->DOT
3294
3295; file: /Users/gwking/darcs/metatilities/dev/utilities/locks.lisp
3296; in: DEFUN METABANG.UTILITIES::FIND-LOCK
3297;     (METABANG.UTILITIES::ALLOCATE-EKSL-LOCK :NAME METABANG.UTILITIES::LOCK-NAME)
3298;
3299; caught STYLE-WARNING:
3300;   undefined function: METABANG.UTILITIES::ALLOCATE-EKSL-LOCK
3301
3302
3303; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
3304; in: DEFUN CL-MATHSTATS:LINEAR-REGRESSION-VERBOSE-SUMMARIES
3305;     (DEFUN CL-MATHSTATS::LINEAR-REGRESSION-VERBOSE-SUMMARIES
3306;          (CL-MATHSTATS::N CL-MATHSTATS::X CL-MATHSTATS::Y CL-MATHSTATS::X2
3307;           CL-MATHSTATS::Y2 CL-MATHSTATS::XY)
3308;     "Calculates almost every statistic of a linear regression: the slope and
3309; intercept of the line, the standard error on each, the correlation coefficient,
3310; the coefficient of determination, also known as r-square, and an ANOVA table as
3311; described in the manual.
3312;
3313; If you don't need all this information, consider using the ``-brief'' or
3314; ``-minimal'' functions, which do less computation.
3315;
3316; This function differs from `linear-regression-verbose' in that it takes summary
3317; variables: `x' and `y' are the sums of the independent variable and dependent
3318; variables, respectively; `x2' and `y2' are the sums of the squares of the
3319; independent variable and dependent variables, respectively; and `xy' is the sum
3320; of the products of the independent and dependent variables.
3321;
3322; You should first look at your data with a scatter plot to see if a linear model
3323; is plausible.  See the manual for a fuller explanation of linear regression
3324; statistics."
3325;     (DECLARE
3326;      (VALUES CL-MATHSTATS::SLOPE
3327;              CL-MATHSTATS::INTERCEPT
3328;              CL-MATHSTATS::DETERMINATION
3329;              CL-MATHSTATS::CORRELATION
3330;              CL-MATHSTATS::STD-ERR-SLOPE
3331;              CL-MATHSTATS::STD-ERR-INTERCEPT
3332;              CL-MATHSTATS::ANOVA-TABLE))
3333;     (LET ((CL-MATHSTATS::NSSX (- # #))
3334;           (CL-MATHSTATS::NSSY (- # #))
3335;           (CL-MATHSTATS::NSSXY (- # #)))
3336;       (WHEN (OR (ZEROP CL-MATHSTATS::NSSX) (ZEROP CL-MATHSTATS::NSSY))
3337;         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
3338;       (LET* ((CL-MATHSTATS::SLOPE #)
3339;              (CL-MATHSTATS::INTERCEPT #)
3340;              (CL-MATHSTATS::NSSR #)
3341;              (CL-MATHSTATS::NSSE #)
3342;              (CL-MATHSTATS::DETERMINATION #)
3343;              (CL-MATHSTATS::CORRELATION #)
3344;              (CL-MATHSTATS::DOF #)
3345;              (CL-MATHSTATS::STD-ERR-SLOPE #)
3346;              (CL-MATHSTATS::STD-ERR-INTERCEPT NIL)
3347;              (CL-MATHSTATS::F #)
3348;              (CL-MATHSTATS::P-VALUE #)
3349;              (CL-MATHSTATS::SSR #)
3350;              ...)
3351;         (VALUES CL-MATHSTATS::SLOPE
3352;                 CL-MATHSTATS::INTERCEPT
3353;                 CL-MATHSTATS::DETERMINATION
3354;                 CL-MATHSTATS::CORRELATION
3355;                 CL-MATHSTATS::STD-ERR-SLOPE
3356;                 CL-MATHSTATS::STD-ERR-INTERCEPT
3357;                 CL-MATHSTATS::ANOVA-TABLE))))
3358; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3359; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
3360; --> IF NOT IF TYPEP
3361; ==>
3362;   (SB-KERNEL:%TYPEP #:G247 'CL-MATHSTATS::ANOVA-TABLE)
3363;
3364; caught STYLE-WARNING:
3365;   undefined type: CL-MATHSTATS::ANOVA-TABLE
3366
3367; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3368; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
3369; --> IF NOT IF
3370; ==>
3371;   (TYPEP #:G247 'CL-MATHSTATS::ANOVA-TABLE)
3372;
3373; caught STYLE-WARNING:
3374;   undefined type: CL-MATHSTATS::ANOVA-TABLE
3375
3376; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3377; ==>
3378;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::LINEAR-REGRESSION-VERBOSE-SUMMARIES
3379;                          (CL-MATHSTATS::N CL-MATHSTATS::X
3380;                                           CL-MATHSTATS::Y
3381;                                           CL-MATHSTATS::X2
3382;                                           CL-MATHSTATS::Y2
3383;                                           CL-MATHSTATS::XY)
3384;                          (DECLARE
3385;                           (VALUES CL-MATHSTATS::SLOPE
3386;                                   CL-MATHSTATS::INTERCEPT
3387;                                   CL-MATHSTATS::DETERMINATION
3388;                                   CL-MATHSTATS::CORRELATION
3389;                                   CL-MATHSTATS::STD-ERR-SLOPE
3390;                                   CL-MATHSTATS::STD-ERR-INTERCEPT
3391;                                   CL-MATHSTATS::ANOVA-TABLE))
3392;                          (BLOCK
3393;                              CL-MATHSTATS::LINEAR-REGRESSION-VERBOSE-SUMMARIES
3394;                            (LET ((CL-MATHSTATS::NSSX #)
3395;                                  (CL-MATHSTATS::NSSY #)
3396;                                  (CL-MATHSTATS::NSSXY #))
3397;                              (WHEN (OR # #)
3398;                                (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
3399;                              (LET* (# # # # # # # # # # # # ...)
3400;                                (VALUES CL-MATHSTATS::SLOPE
3401;                                        CL-MATHSTATS::INTERCEPT
3402;                                        CL-MATHSTATS::DETERMINATION
3403;                                        CL-MATHSTATS::CORRELATION
3404;                                        CL-MATHSTATS::STD-ERR-SLOPE
3405;                                        CL-MATHSTATS::STD-ERR-INTERCEPT
3406;                                        CL-MATHSTATS::ANOVA-TABLE)))))
3407;
3408; caught STYLE-WARNING:
3409;   undefined type: CL-MATHSTATS::ANOVA-TABLE
3410
3411;
3412; caught STYLE-WARNING:
3413;   1 more use of undefined type CL-MATHSTATS::ANOVA-TABLE
3414
3415
3416; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
3417; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
3418;     (DEFUN CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
3419;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
3420;     "Performs linear regression of the dependent variable, `dv,' on multiple
3421; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
3422; regression coefficient.  Calculates the F statistic, intercept and the
3423; correlation coefficient for Y on X's."
3424;     (DECLARE
3425;      (VALUES CL-MATHSTATS::INTERCEPT
3426;              CL-MATHSTATS::COEFFICIENTS
3427;              CL-MATHSTATS::R-LIST
3428;              CL-MATHSTATS::T-BS
3429;              CL-MATHSTATS::BETAS
3430;              CL-MATHSTATS::R-SQUARE
3431;              CL-MATHSTATS::F
3432;              CL-MATHSTATS::SS-REG-LIST
3433;              CL-MATHSTATS::SS-PERCENT-LIST
3434;              CL-MATHSTATS::SS-REG
3435;              CL-MATHSTATS::SS-RES
3436;              ...))
3437;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
3438;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
3439;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
3440;            (CL-MATHSTATS::X-0
3441;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
3442;            (CL-MATHSTATS::ITEM-LIST NIL))
3443;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
3444;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
3445;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
3446;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
3447;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
3448;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
3449;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
3450;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
3451;              (CL-MATHSTATS::Z-MAT #)
3452;              (CL-MATHSTATS::Z-TRANS-Z #)
3453;              (CL-MATHSTATS::X-DIM #)
3454;              (CL-MATHSTATS::X-TRANS-X #)
3455;              (CL-MATHSTATS::X-TRANS-Y #)
3456;              (CL-MATHSTATS::Y-TRANS-Y #))
3457;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
3458;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
3459;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
3460;                 (AREF CL-MATHSTATS::Z-TRANS-Z
3461;                       CL-MATHSTATS::X-DIM
3462;                       CL-MATHSTATS::X-DIM))
3463;         (LET (#)
3464;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
3465;           (LET* #
3466;             #
3467;             #
3468;             #
3469;             #)))))
3470; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3471; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
3472; --> IF NOT IF TYPEP
3473; ==>
3474;   (SB-KERNEL:%TYPEP #:G573 'CL-MATHSTATS::BETAS)
3475;
3476; caught STYLE-WARNING:
3477;   undefined type: CL-MATHSTATS::BETAS
3478
3479; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3480; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
3481; --> IF NOT IF
3482; ==>
3483;   (TYPEP #:G573 'CL-MATHSTATS::BETAS)
3484;
3485; caught STYLE-WARNING:
3486;   undefined type: CL-MATHSTATS::BETAS
3487
3488; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3489; ==>
3490;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
3491;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
3492;                          (DECLARE
3493;                           (VALUES CL-MATHSTATS::INTERCEPT
3494;                                   CL-MATHSTATS::COEFFICIENTS
3495;                                   CL-MATHSTATS::R-LIST
3496;                                   CL-MATHSTATS::T-BS
3497;                                   CL-MATHSTATS::BETAS
3498;                                   CL-MATHSTATS::R-SQUARE
3499;                                   CL-MATHSTATS::F
3500;                                   CL-MATHSTATS::SS-REG-LIST
3501;                                   CL-MATHSTATS::SS-PERCENT-LIST
3502;                                   CL-MATHSTATS::SS-REG
3503;                                   CL-MATHSTATS::SS-RES
3504;                                   ...))
3505;                          (BLOCK CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
3506;                            (LET* ((CL-MATHSTATS::NUM-X #)
3507;                                   (CL-MATHSTATS::ROWS #)
3508;                                   (CL-MATHSTATS::COLS #)
3509;                                   (CL-MATHSTATS::X-0 #)
3510;                                   (CL-MATHSTATS::ITEM-LIST NIL))
3511;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
3512;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
3513;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
3514;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
3515;                                (WHEN # #)
3516;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
3517;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
3518;                              (LET* (# # # # # # #)
3519;                                (DOTIMES # #)
3520;                                (DOTIMES # #)
3521;                                (SETF # #)
3522;                                (LET #
3523;                                  #
3524;                                  #)))))
3525;
3526; caught STYLE-WARNING:
3527;   undefined type: CL-MATHSTATS::BETAS
3528
3529;
3530; caught STYLE-WARNING:
3531;   2 more uses of undefined type CL-MATHSTATS::BETAS
3532
3533
3534; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
3535; in: DEFUN CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS
3536;     (DEFUN CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS (CL-MATHSTATS::CONTINGENCY-TABLE)
3537;     "Calculates the chi-square statistic and corresponding p-value for the given
3538; contingency table.  The result says whether the row factor is independent of the
3539; column factor.  Does not apply Yate's correction."
3540;     (DECLARE (VALUES CL-MATHSTATS::CHI-SQUARE CL-MATHSTATS::P-VALUE))
3541;     (CHECK-TYPE CL-MATHSTATS::CONTINGENCY-TABLE (ARRAY * 2))
3542;     (DESTRUCTURING-BIND
3543;         (CL-MATHSTATS::ROWS CL-MATHSTATS::COLS)
3544;         (ARRAY-DIMENSIONS CL-MATHSTATS::CONTINGENCY-TABLE)
3545;       (MACROLET ((CL-MATHSTATS::ROW-SUM #
3546;                    `#)
3547;                  (CL-MATHSTATS::COL-SUM #
3548;                    `#))
3549;         (LET (# #)
3550;           (DOTIMES # #)
3551;           (VALUES CL-MATHSTATS::CHI-2 #)))))
3552; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3553; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
3554; --> IF NOT IF
3555; ==>
3556;   (TYPEP #:G2352 'CL-MATHSTATS::CHI-SQUARE)
3557;
3558; caught STYLE-WARNING:
3559;   undefined type: CL-MATHSTATS::CHI-SQUARE
3560
3561; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3562; ==>
3563;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS
3564;                          (CL-MATHSTATS::CONTINGENCY-TABLE)
3565;                          (DECLARE
3566;                           (VALUES CL-MATHSTATS::CHI-SQUARE
3567;                                   CL-MATHSTATS::P-VALUE))
3568;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS
3569;                            (CHECK-TYPE CL-MATHSTATS::CONTINGENCY-TABLE
3570;                                        (ARRAY * 2))
3571;                            (DESTRUCTURING-BIND
3572;                                (CL-MATHSTATS::ROWS CL-MATHSTATS::COLS)
3573;                                (ARRAY-DIMENSIONS
3574;                                 CL-MATHSTATS::CONTINGENCY-TABLE)
3575;                              (MACROLET (# #)
3576;                                (LET #
3577;                                  #
3578;                                  #)))))
3579;
3580; caught STYLE-WARNING:
3581;   undefined type: CL-MATHSTATS::CHI-SQUARE
3582
3583; in: DEFUN CL-MATHSTATS::CHI-SQUARE-2X2
3584;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2 (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
3585;     "Performs a chi-square test for independence of the two variables, `v1' and
3586; `v2.' These should be categorial variables with only two values; the function
3587; will construct a 2x2 contingency table by counting the number of occurrences of
3588; each combination of the variables.  See the manual for more details."
3589;     (DECLARE
3590;      (VALUES CL-MATHSTATS::CHI-SQUARE
3591;              CL-MATHSTATS::SIGNIFICANCE
3592;              CL-MATHSTATS::CONTINGENCY-TABLE
3593;              CL-MATHSTATS::V1-VALUES
3594;              CL-MATHSTATS::V2-VALUES))
3595;     (MULTIPLE-VALUE-BIND
3596;         (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
3597;                                  CL-MATHSTATS::V2-VALUES)
3598;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
3599;                                               CL-MATHSTATS::V2)
3600;       (UNLESS (EQUAL '(2 2) (ARRAY-DIMENSIONS CL-MATHSTATS::2X2-TABLE))
3601;         (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
3602;       (LET ((CL-MATHSTATS::A #)
3603;             (CL-MATHSTATS::B #)
3604;             (CL-MATHSTATS::C #)
3605;             (CL-MATHSTATS::D #))
3606;         (MULTIPLE-VALUE-CALL #'VALUES
3607;           (CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS CL-MATHSTATS::A
3608;                                                CL-MATHSTATS::B
3609;                                                CL-MATHSTATS::C
3610;                                                CL-MATHSTATS::D)
3611;           CL-MATHSTATS::2X2-TABLE
3612;           CL-MATHSTATS::V1-VALUES
3613;           CL-MATHSTATS::V2-VALUES))))
3614; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3615; ==>
3616;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-2X2
3617;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
3618;                          (DECLARE
3619;                           (VALUES CL-MATHSTATS::CHI-SQUARE
3620;                                   CL-MATHSTATS::SIGNIFICANCE
3621;                                   CL-MATHSTATS::CONTINGENCY-TABLE
3622;                                   CL-MATHSTATS::V1-VALUES
3623;                                   CL-MATHSTATS::V2-VALUES))
3624;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2
3625;                            (MULTIPLE-VALUE-BIND
3626;                                (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
3627;                                                         CL-MATHSTATS::V2-VALUES)
3628;                                (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
3629;                                 CL-MATHSTATS::V1
3630;                                 CL-MATHSTATS::V2)
3631;                              (UNLESS (EQUAL '# #)
3632;                                (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
3633;                              (LET (# # # #)
3634;                                (MULTIPLE-VALUE-CALL #'VALUES
3635;                                  #
3636;                                  CL-MATHSTATS::2X2-TABLE
3637;                                  CL-MATHSTATS::V1-VALUES
3638;                                  CL-MATHSTATS::V2-VALUES)))))
3639;
3640; caught STYLE-WARNING:
3641;   undefined type: CL-MATHSTATS::CHI-SQUARE
3642
3643;
3644; caught STYLE-WARNING:
3645;   4 more uses of undefined type CL-MATHSTATS::CHI-SQUARE
3646
3647
3648; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
3649; in: DEFUN CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
3650;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
3651;          (CL-MATHSTATS::A CL-MATHSTATS::B CL-MATHSTATS::C CL-MATHSTATS::D
3652;           &OPTIONAL (CL-MATHSTATS::YATES T))
3653;     "Runs a chi-square test for association on a simple 2 x 2 table.  If `yates'
3654; is nil, the correction for continuity is not done; default is t.
3655;
3656; Returns the chi-square statistic and the significance of the value."
3657;     (DECLARE (VALUES CL-MATHSTATS::CHI2 CL-MATHSTATS::P-VALUE))
3658;     (CHECK-TYPE CL-MATHSTATS::A INTEGER)
3659;     (CHECK-TYPE CL-MATHSTATS::B INTEGER)
3660;     (CHECK-TYPE CL-MATHSTATS::C INTEGER)
3661;     (CHECK-TYPE CL-MATHSTATS::D INTEGER)
3662;     (LET ((CL-MATHSTATS::N
3663;            (+ CL-MATHSTATS::A CL-MATHSTATS::B CL-MATHSTATS::C CL-MATHSTATS::D))
3664;           (CL-MATHSTATS::DENOM (* # # # #))
3665;           (CL-MATHSTATS::NUMER (- # #)))
3666;       (WHEN CL-MATHSTATS::YATES (SETF CL-MATHSTATS::NUMER (- # #)))
3667;       (SETF CL-MATHSTATS::NUMER
3668;               (* CL-MATHSTATS::N (CL-MATHSTATS:SQUARE CL-MATHSTATS::NUMER)))
3669;       (LET* ((CL-MATHSTATS::CHI2 #) (CL-MATHSTATS::P-VALUE #))
3670;         (VALUES CL-MATHSTATS::CHI2 CL-MATHSTATS::P-VALUE))))
3671; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3672; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
3673; --> IF NOT IF TYPEP
3674; ==>
3675;   (SB-KERNEL:%TYPEP #:G2279 'CL-MATHSTATS::CHI2)
3676;
3677; caught STYLE-WARNING:
3678;   undefined type: CL-MATHSTATS::CHI2
3679
3680; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3681; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
3682; --> IF NOT IF
3683; ==>
3684;   (TYPEP #:G2279 'CL-MATHSTATS::CHI2)
3685;
3686; caught STYLE-WARNING:
3687;   undefined type: CL-MATHSTATS::CHI2
3688
3689; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3690; ==>
3691;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
3692;                          (CL-MATHSTATS::A CL-MATHSTATS::B
3693;                                           CL-MATHSTATS::C
3694;                                           CL-MATHSTATS::D
3695;                                           &OPTIONAL
3696;                                           (CL-MATHSTATS::YATES T))
3697;                          (DECLARE
3698;                           (VALUES CL-MATHSTATS::CHI2 CL-MATHSTATS::P-VALUE))
3699;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
3700;                            (CHECK-TYPE CL-MATHSTATS::A INTEGER)
3701;                            (CHECK-TYPE CL-MATHSTATS::B INTEGER)
3702;                            (CHECK-TYPE CL-MATHSTATS::C INTEGER)
3703;                            (CHECK-TYPE CL-MATHSTATS::D INTEGER)
3704;                            (LET ((CL-MATHSTATS::N #)
3705;                                  (CL-MATHSTATS::DENOM #)
3706;                                  (CL-MATHSTATS::NUMER #))
3707;                              (WHEN CL-MATHSTATS::YATES
3708;                                (SETF CL-MATHSTATS::NUMER #))
3709;                              (SETF CL-MATHSTATS::NUMER (* CL-MATHSTATS::N #))
3710;                              (LET* (# #)
3711;                                (VALUES CL-MATHSTATS::CHI2
3712;                                        CL-MATHSTATS::P-VALUE)))))
3713;
3714; caught STYLE-WARNING:
3715;   undefined type: CL-MATHSTATS::CHI2
3716
3717;
3718; caught STYLE-WARNING:
3719;   2 more uses of undefined type CL-MATHSTATS::CHI2
3720
3721
3722; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
3723; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
3724;     (DEFUN CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
3725;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
3726;     "Performs linear regression of the dependent variable, `dv,' on multiple
3727; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
3728; regression coefficient.  Calculates the F statistic, intercept and the
3729; correlation coefficient for Y on X's."
3730;     (DECLARE
3731;      (VALUES CL-MATHSTATS::INTERCEPT
3732;              CL-MATHSTATS::COEFFICIENTS
3733;              CL-MATHSTATS::R-LIST
3734;              CL-MATHSTATS::T-BS
3735;              CL-MATHSTATS::BETAS
3736;              CL-MATHSTATS::R-SQUARE
3737;              CL-MATHSTATS::F
3738;              CL-MATHSTATS::SS-REG-LIST
3739;              CL-MATHSTATS::SS-PERCENT-LIST
3740;              CL-MATHSTATS::SS-REG
3741;              CL-MATHSTATS::SS-RES
3742;              ...))
3743;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
3744;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
3745;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
3746;            (CL-MATHSTATS::X-0
3747;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
3748;            (CL-MATHSTATS::ITEM-LIST NIL))
3749;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
3750;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
3751;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
3752;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
3753;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
3754;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
3755;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
3756;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
3757;              (CL-MATHSTATS::Z-MAT #)
3758;              (CL-MATHSTATS::Z-TRANS-Z #)
3759;              (CL-MATHSTATS::X-DIM #)
3760;              (CL-MATHSTATS::X-TRANS-X #)
3761;              (CL-MATHSTATS::X-TRANS-Y #)
3762;              (CL-MATHSTATS::Y-TRANS-Y #))
3763;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
3764;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
3765;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
3766;                 (AREF CL-MATHSTATS::Z-TRANS-Z
3767;                       CL-MATHSTATS::X-DIM
3768;                       CL-MATHSTATS::X-DIM))
3769;         (LET (#)
3770;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
3771;           (LET* #
3772;             #
3773;             #
3774;             #
3775;             #)))))
3776; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3777; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
3778; --> IF NOT IF TYPEP
3779; ==>
3780;   (SB-KERNEL:%TYPEP #:G570 'CL-MATHSTATS::COEFFICIENTS)
3781;
3782; caught STYLE-WARNING:
3783;   undefined type: CL-MATHSTATS::COEFFICIENTS
3784
3785; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3786; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
3787; --> IF NOT IF
3788; ==>
3789;   (TYPEP #:G570 'CL-MATHSTATS::COEFFICIENTS)
3790;
3791; caught STYLE-WARNING:
3792;   undefined type: CL-MATHSTATS::COEFFICIENTS
3793
3794; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3795; ==>
3796;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
3797;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
3798;                          (DECLARE
3799;                           (VALUES CL-MATHSTATS::INTERCEPT
3800;                                   CL-MATHSTATS::COEFFICIENTS
3801;                                   CL-MATHSTATS::R-LIST
3802;                                   CL-MATHSTATS::T-BS
3803;                                   CL-MATHSTATS::BETAS
3804;                                   CL-MATHSTATS::R-SQUARE
3805;                                   CL-MATHSTATS::F
3806;                                   CL-MATHSTATS::SS-REG-LIST
3807;                                   CL-MATHSTATS::SS-PERCENT-LIST
3808;                                   CL-MATHSTATS::SS-REG
3809;                                   CL-MATHSTATS::SS-RES
3810;                                   ...))
3811;                          (BLOCK CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
3812;                            (LET* ((CL-MATHSTATS::NUM-X #)
3813;                                   (CL-MATHSTATS::ROWS #)
3814;                                   (CL-MATHSTATS::COLS #)
3815;                                   (CL-MATHSTATS::X-0 #)
3816;                                   (CL-MATHSTATS::ITEM-LIST NIL))
3817;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
3818;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
3819;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
3820;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
3821;                                (WHEN # #)
3822;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
3823;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
3824;                              (LET* (# # # # # # #)
3825;                                (DOTIMES # #)
3826;                                (DOTIMES # #)
3827;                                (SETF # #)
3828;                                (LET #
3829;                                  #
3830;                                  #)))))
3831;
3832; caught STYLE-WARNING:
3833;   undefined type: CL-MATHSTATS::COEFFICIENTS
3834
3835;
3836; caught STYLE-WARNING:
3837;   2 more uses of undefined type CL-MATHSTATS::COEFFICIENTS
3838
3839
3840; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
3841; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
3842;     (DEFUN CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
3843;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
3844;     "Performs linear regression of the dependent variable, `dv,' on multiple
3845; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
3846; regression coefficient.  Calculates the F statistic, intercept and the
3847; correlation coefficient for Y on X's."
3848;     (DECLARE
3849;      (VALUES CL-MATHSTATS::INTERCEPT
3850;              CL-MATHSTATS::COEFFICIENTS
3851;              CL-MATHSTATS::R-LIST
3852;              CL-MATHSTATS::T-BS
3853;              CL-MATHSTATS::BETAS
3854;              CL-MATHSTATS::R-SQUARE
3855;              CL-MATHSTATS::F
3856;              CL-MATHSTATS::SS-REG-LIST
3857;              CL-MATHSTATS::SS-PERCENT-LIST
3858;              CL-MATHSTATS::SS-REG
3859;              CL-MATHSTATS::SS-RES
3860;              ...))
3861;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
3862;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
3863;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
3864;            (CL-MATHSTATS::X-0
3865;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
3866;            (CL-MATHSTATS::ITEM-LIST NIL))
3867;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
3868;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
3869;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
3870;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
3871;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
3872;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
3873;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
3874;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
3875;              (CL-MATHSTATS::Z-MAT #)
3876;              (CL-MATHSTATS::Z-TRANS-Z #)
3877;              (CL-MATHSTATS::X-DIM #)
3878;              (CL-MATHSTATS::X-TRANS-X #)
3879;              (CL-MATHSTATS::X-TRANS-Y #)
3880;              (CL-MATHSTATS::Y-TRANS-Y #))
3881;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
3882;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
3883;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
3884;                 (AREF CL-MATHSTATS::Z-TRANS-Z
3885;                       CL-MATHSTATS::X-DIM
3886;                       CL-MATHSTATS::X-DIM))
3887;         (LET (#)
3888;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
3889;           (LET* #
3890;             #
3891;             #
3892;             #
3893;             #)))))
3894; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3895; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
3896; --> IF NOT IF TYPEP
3897; ==>
3898;   (SB-KERNEL:%TYPEP #:G582 'CL-MATHSTATS::COMPATIBILITY-VALUE)
3899;
3900; caught STYLE-WARNING:
3901;   undefined type: CL-MATHSTATS::COMPATIBILITY-VALUE
3902
3903; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3904; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
3905; --> IF NOT IF
3906; ==>
3907;   (TYPEP #:G582 'CL-MATHSTATS::COMPATIBILITY-VALUE)
3908;
3909; caught STYLE-WARNING:
3910;   undefined type: CL-MATHSTATS::COMPATIBILITY-VALUE
3911
3912; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3913; ==>
3914;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
3915;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
3916;                          (DECLARE
3917;                           (VALUES CL-MATHSTATS::INTERCEPT
3918;                                   CL-MATHSTATS::COEFFICIENTS
3919;                                   CL-MATHSTATS::R-LIST
3920;                                   CL-MATHSTATS::T-BS
3921;                                   CL-MATHSTATS::BETAS
3922;                                   CL-MATHSTATS::R-SQUARE
3923;                                   CL-MATHSTATS::F
3924;                                   CL-MATHSTATS::SS-REG-LIST
3925;                                   CL-MATHSTATS::SS-PERCENT-LIST
3926;                                   CL-MATHSTATS::SS-REG
3927;                                   CL-MATHSTATS::SS-RES
3928;                                   ...))
3929;                          (BLOCK CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
3930;                            (LET* ((CL-MATHSTATS::NUM-X #)
3931;                                   (CL-MATHSTATS::ROWS #)
3932;                                   (CL-MATHSTATS::COLS #)
3933;                                   (CL-MATHSTATS::X-0 #)
3934;                                   (CL-MATHSTATS::ITEM-LIST NIL))
3935;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
3936;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
3937;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
3938;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
3939;                                (WHEN # #)
3940;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
3941;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
3942;                              (LET* (# # # # # # #)
3943;                                (DOTIMES # #)
3944;                                (DOTIMES # #)
3945;                                (SETF # #)
3946;                                (LET #
3947;                                  #
3948;                                  #)))))
3949;
3950; caught STYLE-WARNING:
3951;   undefined type: CL-MATHSTATS::COMPATIBILITY-VALUE
3952
3953;
3954; caught STYLE-WARNING:
3955;   2 more uses of undefined type CL-MATHSTATS::COMPATIBILITY-VALUE
3956
3957
3958; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
3959; in: DEFUN CL-MATHSTATS::CHI-SQUARE-RXC
3960;     (DEFUN CL-MATHSTATS::CHI-SQUARE-RXC (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
3961;     "Performs a chi-square test for independence of the two variables, `v1' and
3962; `v2.' These should be categorial variables; the function will construct a
3963; contingency table by counting the number of occurrences of each combination of
3964; the variables.  See the manual for more details."
3965;     (DECLARE
3966;      (VALUES CL-MATHSTATS::CHI-SQUARE
3967;              CL-MATHSTATS::SIGNIFICANCE
3968;              CL-MATHSTATS::CONTIGENCY-TABLE
3969;              CL-MATHSTATS::V1-VALUES
3970;              CL-MATHSTATS::V2-VALUES))
3971;     (CHECK-TYPE CL-MATHSTATS::V1 SEQUENCE)
3972;     (CHECK-TYPE CL-MATHSTATS::V2 SEQUENCE)
3973;     (MULTIPLE-VALUE-BIND
3974;         (CL-MATHSTATS::TABLE CL-MATHSTATS::V1-VALUES CL-MATHSTATS::V2-VALUES)
3975;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
3976;                                               CL-MATHSTATS::V2)
3977;       (MULTIPLE-VALUE-CALL #'VALUES
3978;         (CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS CL-MATHSTATS::TABLE)
3979;         (CL-MATHSTATS::G-TEST CL-MATHSTATS::TABLE NIL NIL)
3980;         CL-MATHSTATS::TABLE
3981;         CL-MATHSTATS::V1-VALUES
3982;         CL-MATHSTATS::V2-VALUES)))
3983; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
3984; ==>
3985;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-RXC
3986;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
3987;                          (DECLARE
3988;                           (VALUES CL-MATHSTATS::CHI-SQUARE
3989;                                   CL-MATHSTATS::SIGNIFICANCE
3990;                                   CL-MATHSTATS::CONTIGENCY-TABLE
3991;                                   CL-MATHSTATS::V1-VALUES
3992;                                   CL-MATHSTATS::V2-VALUES))
3993;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-RXC
3994;                            (CHECK-TYPE CL-MATHSTATS::V1 SEQUENCE)
3995;                            (CHECK-TYPE CL-MATHSTATS::V2 SEQUENCE)
3996;                            (MULTIPLE-VALUE-BIND
3997;                                (CL-MATHSTATS::TABLE CL-MATHSTATS::V1-VALUES
3998;                                                     CL-MATHSTATS::V2-VALUES)
3999;                                (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
4000;                                 CL-MATHSTATS::V1
4001;                                 CL-MATHSTATS::V2)
4002;                              (MULTIPLE-VALUE-CALL #'VALUES
4003;                                (CL-MATHSTATS::CHI-SQUARE-RXC-COUNTS
4004;                                 CL-MATHSTATS::TABLE)
4005;                                (CL-MATHSTATS::G-TEST CL-MATHSTATS::TABLE
4006;                                                      NIL
4007;                                                      NIL)
4008;                                CL-MATHSTATS::TABLE
4009;                                CL-MATHSTATS::V1-VALUES
4010;                                CL-MATHSTATS::V2-VALUES))))
4011;
4012; caught STYLE-WARNING:
4013;   undefined type: CL-MATHSTATS::CONTIGENCY-TABLE
4014
4015; in: DEFUN CL-MATHSTATS::CHI-SQUARE-2X2
4016;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2 (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
4017;     "Performs a chi-square test for independence of the two variables, `v1' and
4018; `v2.' These should be categorial variables with only two values; the function
4019; will construct a 2x2 contingency table by counting the number of occurrences of
4020; each combination of the variables.  See the manual for more details."
4021;     (DECLARE
4022;      (VALUES CL-MATHSTATS::CHI-SQUARE
4023;              CL-MATHSTATS::SIGNIFICANCE
4024;              CL-MATHSTATS::CONTINGENCY-TABLE
4025;              CL-MATHSTATS::V1-VALUES
4026;              CL-MATHSTATS::V2-VALUES))
4027;     (MULTIPLE-VALUE-BIND
4028;         (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
4029;                                  CL-MATHSTATS::V2-VALUES)
4030;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
4031;                                               CL-MATHSTATS::V2)
4032;       (UNLESS (EQUAL '(2 2) (ARRAY-DIMENSIONS CL-MATHSTATS::2X2-TABLE))
4033;         (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
4034;       (LET ((CL-MATHSTATS::A #)
4035;             (CL-MATHSTATS::B #)
4036;             (CL-MATHSTATS::C #)
4037;             (CL-MATHSTATS::D #))
4038;         (MULTIPLE-VALUE-CALL #'VALUES
4039;           (CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS CL-MATHSTATS::A
4040;                                                CL-MATHSTATS::B
4041;                                                CL-MATHSTATS::C
4042;                                                CL-MATHSTATS::D)
4043;           CL-MATHSTATS::2X2-TABLE
4044;           CL-MATHSTATS::V1-VALUES
4045;           CL-MATHSTATS::V2-VALUES))))
4046; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
4047; ==>
4048;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-2X2
4049;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
4050;                          (DECLARE
4051;                           (VALUES CL-MATHSTATS::CHI-SQUARE
4052;                                   CL-MATHSTATS::SIGNIFICANCE
4053;                                   CL-MATHSTATS::CONTINGENCY-TABLE
4054;                                   CL-MATHSTATS::V1-VALUES
4055;                                   CL-MATHSTATS::V2-VALUES))
4056;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2
4057;                            (MULTIPLE-VALUE-BIND
4058;                                (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
4059;                                                         CL-MATHSTATS::V2-VALUES)
4060;                                (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
4061;                                 CL-MATHSTATS::V1
4062;                                 CL-MATHSTATS::V2)
4063;                              (UNLESS (EQUAL '# #)
4064;                                (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
4065;                              (LET (# # # #)
4066;                                (MULTIPLE-VALUE-CALL #'VALUES
4067;                                  #
4068;                                  CL-MATHSTATS::2X2-TABLE
4069;                                  CL-MATHSTATS::V1-VALUES
4070;                                  CL-MATHSTATS::V2-VALUES)))))
4071;
4072; caught STYLE-WARNING:
4073;   undefined type: CL-MATHSTATS::CONTINGENCY-TABLE
4074
4075; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:D-TEST
4076;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::D-TEST
4077;                                   (CL-MATHSTATS::SIGNIFICANCE)
4078;                                   ((COUNT) (CL-MATHSTATS::TIMES))
4079;                                   (CL-MATHSTATS::STATISTIC CL-MATHSTATS::LEVEL
4080;                                                            COUNT
4081;                                                            CL-MATHSTATS::TIMES)
4082;                                   ((CL-MATHSTATS::SAMPLE-1 'SEQUENCE)
4083;                                    (CL-MATHSTATS::SAMPLE-2 'SEQUENCE))
4084;                                   (CL-MATHSTATS::SAMPLE-1
4085;                                    CL-MATHSTATS::SAMPLE-2
4086;                                    CL-MATHSTATS::TAILS
4087;                                    &KEY
4088;                                    (CL-MATHSTATS::TIMES 1000)
4089;                                    (CL-MATHSTATS::H0MEAN 0))
4090;                                   "Two-sample test for difference in means.  Competes with the unmatched,
4091; two-sample t-test.  Each sample should be a sequence of numbers.  We calculate
4092; the mean of `sample-1' minus the mean of `sample-2'; call that D.  Under the null
4093; hypothesis, D is zero.  There are three possible alternative hypotheses: D is
4094; positive, D is negative, and D is either, and they are selected by the `tails'
4095; parameter, which must be :positive, :negative, or :both, respectively.  We count
4096; the number of chance occurrences of D in the desired rejection region, and
4097; return the estimated probability."
4098;                                   (DECLARE
4099;                                    (VALUES CL-MATHSTATS::D
4100;                                            CL-MATHSTATS::SIGNIFICANCE
4101;                                            COUNT))
4102;                                   (CHECK-TYPE CL-MATHSTATS::SAMPLE-1 SEQUENCE)
4103;                                   (CHECK-TYPE CL-MATHSTATS::SAMPLE-2 SEQUENCE)
4104;                                   (CHECK-TYPE CL-MATHSTATS::TAILS
4105;                                               (MEMBER :BOTH
4106;                                                       :POSITIVE
4107;                                                       :NEGATIVE))
4108;                                   ...)
4109; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4110; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
4111; --> FUNCTION UNLESS COND IF NOT IF TYPEP
4112; ==>
4113;   (SB-KERNEL:%TYPEP #:G1614 'COUNT)
4114;
4115; caught STYLE-WARNING:
4116;   undefined type: COUNT
4117
4118; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4119; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
4120; --> FUNCTION UNLESS COND IF NOT IF
4121; ==>
4122;   (TYPEP #:G1614 'COUNT)
4123;
4124; caught STYLE-WARNING:
4125;   undefined type: COUNT
4126
4127; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4128; --> SB-INT:NAMED-LAMBDA
4129; ==>
4130;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::D-TEST-INTERNAL
4131;                          (CL-MATHSTATS::SAMPLE-1 CL-MATHSTATS::SAMPLE-2
4132;                                                  CL-MATHSTATS::TAILS
4133;                                                  &KEY
4134;                                                  (CL-MATHSTATS::TIMES 1000)
4135;                                                  (CL-MATHSTATS::H0MEAN 0))
4136;                          (DECLARE
4137;                           (VALUES CL-MATHSTATS::D
4138;                                   CL-MATHSTATS::SIGNIFICANCE
4139;                                   COUNT))
4140;                          (BLOCK CL-MATHSTATS::D-TEST-INTERNAL
4141;                            (CHECK-TYPE CL-MATHSTATS::SAMPLE-1 SEQUENCE)
4142;                            (CHECK-TYPE CL-MATHSTATS::SAMPLE-2 SEQUENCE)
4143;                            (CHECK-TYPE CL-MATHSTATS::TAILS
4144;                                        (MEMBER :BOTH :POSITIVE :NEGATIVE))
4145;                            (LET ((CL-MATHSTATS::N1 #) (CL-MATHSTATS::N2 #))
4146;                              (WHEN (OR # #) (ERROR 'CL-MATHSTATS::NO-DATA))
4147;                              (WHEN (OR # #)
4148;                                (ERROR 'CL-MATHSTATS::INSUFFICIENT-DATA))
4149;                              (LET* (# #)
4150;                                (IF # # #)))))
4151;
4152; caught STYLE-WARNING:
4153;   undefined type: COUNT
4154
4155;
4156; caught STYLE-WARNING:
4157;   1 more use of undefined type COUNT
4158
4159
4160; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
4161; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:D-TEST
4162;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::D-TEST
4163;                                   (CL-MATHSTATS::SIGNIFICANCE)
4164;                                   ((COUNT) (CL-MATHSTATS::TIMES))
4165;                                   (CL-MATHSTATS::STATISTIC CL-MATHSTATS::LEVEL
4166;                                                            COUNT
4167;                                                            CL-MATHSTATS::TIMES)
4168;                                   ((CL-MATHSTATS::SAMPLE-1 'SEQUENCE)
4169;                                    (CL-MATHSTATS::SAMPLE-2 'SEQUENCE))
4170;                                   (CL-MATHSTATS::SAMPLE-1
4171;                                    CL-MATHSTATS::SAMPLE-2
4172;                                    CL-MATHSTATS::TAILS
4173;                                    &KEY
4174;                                    (CL-MATHSTATS::TIMES 1000)
4175;                                    (CL-MATHSTATS::H0MEAN 0))
4176;                                   "Two-sample test for difference in means.  Competes with the unmatched,
4177; two-sample t-test.  Each sample should be a sequence of numbers.  We calculate
4178; the mean of `sample-1' minus the mean of `sample-2'; call that D.  Under the null
4179; hypothesis, D is zero.  There are three possible alternative hypotheses: D is
4180; positive, D is negative, and D is either, and they are selected by the `tails'
4181; parameter, which must be :positive, :negative, or :both, respectively.  We count
4182; the number of chance occurrences of D in the desired rejection region, and
4183; return the estimated probability."
4184;                                   (DECLARE
4185;                                    (VALUES CL-MATHSTATS::D
4186;                                            CL-MATHSTATS::SIGNIFICANCE
4187;                                            COUNT))
4188;                                   (CHECK-TYPE CL-MATHSTATS::SAMPLE-1 SEQUENCE)
4189;                                   (CHECK-TYPE CL-MATHSTATS::SAMPLE-2 SEQUENCE)
4190;                                   (CHECK-TYPE CL-MATHSTATS::TAILS
4191;                                               (MEMBER :BOTH
4192;                                                       :POSITIVE
4193;                                                       :NEGATIVE))
4194;                                   ...)
4195; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4196; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
4197; --> FUNCTION UNLESS COND IF NOT IF TYPEP
4198; ==>
4199;   (SB-KERNEL:%TYPEP #:G1612 'CL-MATHSTATS::D)
4200;
4201; caught STYLE-WARNING:
4202;   undefined type: CL-MATHSTATS::D
4203
4204; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4205; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
4206; --> FUNCTION UNLESS COND IF NOT IF
4207; ==>
4208;   (TYPEP #:G1612 'CL-MATHSTATS::D)
4209;
4210; caught STYLE-WARNING:
4211;   undefined type: CL-MATHSTATS::D
4212
4213; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4214; --> SB-INT:NAMED-LAMBDA
4215; ==>
4216;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::D-TEST-INTERNAL
4217;                          (CL-MATHSTATS::SAMPLE-1 CL-MATHSTATS::SAMPLE-2
4218;                                                  CL-MATHSTATS::TAILS
4219;                                                  &KEY
4220;                                                  (CL-MATHSTATS::TIMES 1000)
4221;                                                  (CL-MATHSTATS::H0MEAN 0))
4222;                          (DECLARE
4223;                           (VALUES CL-MATHSTATS::D
4224;                                   CL-MATHSTATS::SIGNIFICANCE
4225;                                   COUNT))
4226;                          (BLOCK CL-MATHSTATS::D-TEST-INTERNAL
4227;                            (CHECK-TYPE CL-MATHSTATS::SAMPLE-1 SEQUENCE)
4228;                            (CHECK-TYPE CL-MATHSTATS::SAMPLE-2 SEQUENCE)
4229;                            (CHECK-TYPE CL-MATHSTATS::TAILS
4230;                                        (MEMBER :BOTH :POSITIVE :NEGATIVE))
4231;                            (LET ((CL-MATHSTATS::N1 #) (CL-MATHSTATS::N2 #))
4232;                              (WHEN (OR # #) (ERROR 'CL-MATHSTATS::NO-DATA))
4233;                              (WHEN (OR # #)
4234;                                (ERROR 'CL-MATHSTATS::INSUFFICIENT-DATA))
4235;                              (LET* (# #)
4236;                                (IF # # #)))))
4237;
4238; caught STYLE-WARNING:
4239;   undefined type: CL-MATHSTATS::D
4240
4241;
4242; caught STYLE-WARNING:
4243;   1 more use of undefined type CL-MATHSTATS::D
4244
4245
4246; file: /Users/gwking/darcs/metatilities/dev/utilities/locks.lisp
4247; in: DEFGENERIC METABANG.UTILITIES::DESTROY-LOCK
4248;     (METABANG.UTILITIES:DEALLOCATE METABANG.UTILITIES::LOCK)
4249;
4250; caught STYLE-WARNING:
4251;   undefined function: METABANG.UTILITIES:DEALLOCATE
4252
4253
4254; file: /Users/gwking/darcs/metatilities/dev/utilities/spy.lisp
4255; in: DEFUN METABANG.UTILITIES::SPY-PARSE-ARGLIST
4256;     (METABANG.UTILITIES::DEBUGGING-P-FN DEBUG)
4257;
4258; caught STYLE-WARNING:
4259;   undefined function: METABANG.UTILITIES::DEBUGGING-P-FN
4260
4261
4262; file: /Users/gwking/darcs/metatilities/dev/utilities/locks.lisp
4263; in: DEFUN METABANG.UTILITIES::FLUSH-LOCKS-AND-TAKE-NAMES
4264;     (METABANG.UTILITIES:DESTROY-THREAD METABANG.UTILITIES::P)
4265;
4266; caught STYLE-WARNING:
4267;   undefined function: METABANG.UTILITIES:DESTROY-THREAD
4268
4269
4270; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
4271; in: DEFUN CL-MATHSTATS:LINEAR-REGRESSION-BRIEF-SUMMARIES
4272;     (DEFUN CL-MATHSTATS::LINEAR-REGRESSION-BRIEF-SUMMARIES
4273;          (CL-MATHSTATS::N CL-MATHSTATS::X CL-MATHSTATS::Y CL-MATHSTATS::X2
4274;           CL-MATHSTATS::Y2 CL-MATHSTATS::XY)
4275;     "Calculates the main statistics of a linear regression: the slope and
4276; intercept of the line, the coefficient of determination, also known as r-square,
4277; the standard error of the slope, and the p-value for the regression.  This
4278; function differs from `linear-regression-brief' in that it takes summary
4279; variables: `x' and `y' are the sums of the independent variable and dependent
4280; variables, respectively; `x2' and `y2' are the sums of the squares of the
4281; independent variable and dependent variables, respectively; and `xy' is the sum
4282; of the products of the independent and dependent variables.
4283;
4284; You should first look at your data with a scatter plot to see if a linear model
4285; is plausible.  See the manual for a fuller explanation of linear regression
4286; statistics."
4287;     (DECLARE
4288;      (VALUES CL-MATHSTATS::SLOPE
4289;              CL-MATHSTATS::INTERCEPT
4290;              CL-MATHSTATS::DETERMINATION
4291;              CL-MATHSTATS::STD-ERR-SLOPE
4292;              CL-MATHSTATS::P-VALUE))
4293;     (LET ((CL-MATHSTATS::NSSX (- # #))
4294;           (CL-MATHSTATS::NSSY (- # #))
4295;           (CL-MATHSTATS::NSSXY (- # #)))
4296;       (WHEN (OR (ZEROP CL-MATHSTATS::NSSX) (ZEROP CL-MATHSTATS::NSSY))
4297;         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
4298;       (LET* ((CL-MATHSTATS::SLOPE #)
4299;              (CL-MATHSTATS::INTERCEPT #)
4300;              (CL-MATHSTATS::NSSR #)
4301;              (CL-MATHSTATS::NSSE #)
4302;              (CL-MATHSTATS::DETERMINATION #)
4303;              (CL-MATHSTATS::DOF #)
4304;              (CL-MATHSTATS::STD-ERR-SLOPE #)
4305;              (CL-MATHSTATS::P-VALUE #))
4306;         (VALUES CL-MATHSTATS::SLOPE
4307;                 CL-MATHSTATS::INTERCEPT
4308;                 CL-MATHSTATS::DETERMINATION
4309;                 CL-MATHSTATS::STD-ERR-SLOPE
4310;                 CL-MATHSTATS::P-VALUE))))
4311; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
4312; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
4313; --> IF NOT IF TYPEP
4314; ==>
4315;   (SB-KERNEL:%TYPEP #:G210 'CL-MATHSTATS::DETERMINATION)
4316;
4317; caught STYLE-WARNING:
4318;   undefined type: CL-MATHSTATS::DETERMINATION
4319
4320; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
4321; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
4322; --> IF NOT IF
4323; ==>
4324;   (TYPEP #:G210 'CL-MATHSTATS::DETERMINATION)
4325;
4326; caught STYLE-WARNING:
4327;   undefined type: CL-MATHSTATS::DETERMINATION
4328
4329; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
4330; ==>
4331;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::LINEAR-REGRESSION-BRIEF-SUMMARIES
4332;                          (CL-MATHSTATS::N CL-MATHSTATS::X
4333;                                           CL-MATHSTATS::Y
4334;                                           CL-MATHSTATS::X2
4335;                                           CL-MATHSTATS::Y2
4336;                                           CL-MATHSTATS::XY)
4337;                          (DECLARE
4338;                           (VALUES CL-MATHSTATS::SLOPE
4339;                                   CL-MATHSTATS::INTERCEPT
4340;                                   CL-MATHSTATS::DETERMINATION
4341;                                   CL-MATHSTATS::STD-ERR-SLOPE
4342;                                   CL-MATHSTATS::P-VALUE))
4343;                          (BLOCK CL-MATHSTATS::LINEAR-REGRESSION-BRIEF-SUMMARIES
4344;                            (LET ((CL-MATHSTATS::NSSX #)
4345;                                  (CL-MATHSTATS::NSSY #)
4346;                                  (CL-MATHSTATS::NSSXY #))
4347;                              (WHEN (OR # #)
4348;                                (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
4349;                              (LET* (# # # # # # # #)
4350;                                (VALUES CL-MATHSTATS::SLOPE
4351;                                        CL-MATHSTATS::INTERCEPT
4352;                                        CL-MATHSTATS::DETERMINATION
4353;                                        CL-MATHSTATS::STD-ERR-SLOPE
4354;                                        CL-MATHSTATS::P-VALUE)))))
4355;
4356; caught STYLE-WARNING:
4357;   undefined type: CL-MATHSTATS::DETERMINATION
4358
4359;
4360; caught STYLE-WARNING:
4361;   7 more uses of undefined type CL-MATHSTATS::DETERMINATION
4362
4363
4364; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
4365; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:T-TEST-ONE-SAMPLE
4366;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::T-TEST-ONE-SAMPLE
4367;                                   (CL-MATHSTATS::T-SIGNIFICANCE)
4368;                                   NIL
4369;                                   NIL
4370;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
4371;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
4372;                                                       &OPTIONAL
4373;                                                       (CL-MATHSTATS::H0-MEAN 0)
4374;                                                       &REST
4375;                                                       CL-MATHSTATS::STANDARD-ARGS
4376;                                                       &KEY
4377;                                                       CL-MATHSTATS::START
4378;                                                       CL-MATHSTATS::END
4379;                                                       CL-MATHSTATS::KEY)
4380;                                   "Returns the t-statistic for the mean of the data, which should be a sequence
4381; of numbers.  Let D be the sample mean.  The null hypothesis is that D equals the
4382; `H0-mean.' The alternative hypothesis is specified by `tails': `:both' means D
4383; /= H0-mean, `:positive' means D > H0-mean, and `:negative' means D < H0-mean.
4384;
4385; The function also returns the significance, the standard error, and the degrees
4386; of freedom.  Signals `zero-variance' if that condition occurs.  Signals
4387; `insufficient-data' unless there are at least two elements in the sample."
4388;                                   (DECLARE
4389;                                    (IGNORE CL-MATHSTATS::START
4390;                                            CL-MATHSTATS::END
4391;                                            CL-MATHSTATS::KEY)
4392;                                    (VALUES CL-MATHSTATS::T-STATISTIC
4393;                                            CL-MATHSTATS::SIGNIFICANCE
4394;                                            CL-MATHSTATS::SAMPLE-ERROR
4395;                                            CL-MATHSTATS::DOF))
4396;                                   (LET ((CL-MATHSTATS::N
4397;                                          (APPLY #'CL-MATHSTATS::DATA-LENGTH
4398;                                                 CL-MATHSTATS::DATA
4399;                                                 CL-MATHSTATS::STANDARD-ARGS)))
4400;                                     (WHEN (ZEROP CL-MATHSTATS::N)
4401;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
4402;                                     (LET ((CL-MATHSTATS::D #)
4403;                                           (CL-MATHSTATS::V #))
4404;                                       (WHEN (ZEROP CL-MATHSTATS::V)
4405;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
4406;                                       (LET* (# # #)
4407;                                         (VALUES CL-MATHSTATS::TT
4408;                                                 CL-MATHSTATS::SIG
4409;                                                 CL-MATHSTATS::SE
4410;                                                 #)))))
4411; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4412; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
4413; --> FUNCTION UNLESS COND IF NOT IF TYPEP
4414; ==>
4415;   (SB-KERNEL:%TYPEP #:G1388 'CL-MATHSTATS::DOF)
4416;
4417; caught STYLE-WARNING:
4418;   undefined type: CL-MATHSTATS::DOF
4419
4420; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4421; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
4422; --> FUNCTION UNLESS COND IF NOT IF
4423; ==>
4424;   (TYPEP #:G1388 'CL-MATHSTATS::DOF)
4425;
4426; caught STYLE-WARNING:
4427;   undefined type: CL-MATHSTATS::DOF
4428
4429; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4430; --> SB-INT:NAMED-LAMBDA
4431; ==>
4432;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
4433;                          (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
4434;                                              &OPTIONAL
4435;                                              (CL-MATHSTATS::H0-MEAN 0)
4436;                                              &REST
4437;                                              CL-MATHSTATS::STANDARD-ARGS
4438;                                              &KEY
4439;                                              CL-MATHSTATS::START
4440;                                              CL-MATHSTATS::END
4441;                                              CL-MATHSTATS::KEY)
4442;                          (DECLARE
4443;                           (IGNORE CL-MATHSTATS::START
4444;                                   CL-MATHSTATS::END
4445;                                   CL-MATHSTATS::KEY)
4446;                           (VALUES CL-MATHSTATS::T-STATISTIC
4447;                                   CL-MATHSTATS::SIGNIFICANCE
4448;                                   CL-MATHSTATS::SAMPLE-ERROR
4449;                                   CL-MATHSTATS::DOF))
4450;                          (BLOCK CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
4451;                            (LET ((CL-MATHSTATS::N #))
4452;                              (WHEN (ZEROP CL-MATHSTATS::N)
4453;                                (ERROR 'CL-MATHSTATS::NO-DATA))
4454;                              (LET (# #)
4455;                                (WHEN # #)
4456;                                (LET* #
4457;                                  #)))))
4458;
4459; caught STYLE-WARNING:
4460;   undefined type: CL-MATHSTATS::DOF
4461
4462;
4463; caught STYLE-WARNING:
4464;   12 more uses of undefined type CL-MATHSTATS::DOF
4465
4466
4467; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
4468; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:MODE
4469;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::MODE
4470;                                   NIL
4471;                                   NIL
4472;                                   NIL
4473;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
4474;                                   (CL-MATHSTATS::DATA &REST
4475;                                                       CL-MATHSTATS::STANDARD-ARGS
4476;                                                       &KEY
4477;                                                       CL-MATHSTATS::START
4478;                                                       CL-MATHSTATS::END
4479;                                                       CL-MATHSTATS::KEY)
4480;                                   "Returns the most frequent element of `data,' which should be a sequence.  The
4481; algorithm involves sorting, and so the data must be numbers or the `key'
4482; function must produce numbers.  Consider `sxhash' if no better function is
4483; available.  Also returns the number of occurrences of the mode.  If there is
4484; more than one mode, this returns the first mode, as determined by the sorting of
4485; the numbers."
4486;                                   (DECLARE
4487;                                    (VALUES METABANG.UTILITIES:ELEMENT
4488;                                            CL-MATHSTATS::NUMBER-OF-OCCURRENCES))
4489;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
4490;                                   (LET* ((CL-MATHSTATS::N
4491;                                           (APPLY #'CL-MATHSTATS::DATA-LENGTH
4492;                                                  CL-MATHSTATS::DATA
4493;                                                  CL-MATHSTATS::STANDARD-ARGS))
4494;                                          (CL-MATHSTATS::START2
4495;                                           (OR CL-MATHSTATS::START 0))
4496;                                          (CL-MATHSTATS::END2
4497;                                           (OR CL-MATHSTATS::END #)))
4498;                                     (WHEN (ZEROP CL-MATHSTATS::N)
4499;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
4500;                                     (CL-MATHSTATS::WITH-TEMP-VECTOR
4501;                                      (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
4502;                                      (REPLACE CL-MATHSTATS::TEMP
4503;                                               CL-MATHSTATS::DATA
4504;                                               :END1
4505;                                               CL-MATHSTATS::N
4506;                                               :START2
4507;                                               CL-MATHSTATS::START2
4508;                                               :END2
4509;                                               CL-MATHSTATS::END2)
4510;                                      (IF (NULL CL-MATHSTATS::KEY)
4511;                                          (SORT CL-MATHSTATS::TEMP #'<)
4512;                                          (SORT CL-MATHSTATS::TEMP
4513;                                                #'<
4514;                                                :KEY
4515;                                                CL-MATHSTATS::KEY))
4516;                                      (LET* (# # # # #)
4517;                                        (IF # # #)
4518;                                        (WHEN # #)
4519;                                        (VALUES CL-MATHSTATS::BIGGEST-GROUP
4520;                                                CL-MATHSTATS::BIGGEST-GROUP-SIZE)))))
4521; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4522; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
4523; --> FUNCTION UNLESS COND IF NOT IF TYPEP
4524; ==>
4525;   (SB-KERNEL:%TYPEP #:G869 'METABANG.UTILITIES:ELEMENT)
4526;
4527; caught STYLE-WARNING:
4528;   undefined type: METABANG.UTILITIES:ELEMENT
4529
4530; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4531; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
4532; --> FUNCTION UNLESS COND IF NOT IF
4533; ==>
4534;   (TYPEP #:G869 'METABANG.UTILITIES:ELEMENT)
4535;
4536; caught STYLE-WARNING:
4537;   undefined type: METABANG.UTILITIES:ELEMENT
4538
4539; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4540; --> SB-INT:NAMED-LAMBDA
4541; ==>
4542;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MODE-INTERNAL
4543;                          (CL-MATHSTATS::DATA &REST
4544;                                              CL-MATHSTATS::STANDARD-ARGS
4545;                                              &KEY
4546;                                              CL-MATHSTATS::START
4547;                                              CL-MATHSTATS::END
4548;                                              CL-MATHSTATS::KEY)
4549;                          (DECLARE
4550;                           (VALUES METABANG.UTILITIES:ELEMENT
4551;                                   CL-MATHSTATS::NUMBER-OF-OCCURRENCES))
4552;                          (BLOCK CL-MATHSTATS::MODE-INTERNAL
4553;                            (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
4554;                            (LET* ((CL-MATHSTATS::N #)
4555;                                   (CL-MATHSTATS::START2 #)
4556;                                   (CL-MATHSTATS::END2 #))
4557;                              (WHEN (ZEROP CL-MATHSTATS::N)
4558;                                (ERROR 'CL-MATHSTATS::NO-DATA))
4559;                              (CL-MATHSTATS::WITH-TEMP-VECTOR
4560;                               (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
4561;                               (REPLACE CL-MATHSTATS::TEMP
4562;                                        CL-MATHSTATS::DATA
4563;                                        :END1
4564;                                        CL-MATHSTATS::N
4565;                                        :START2
4566;                                        CL-MATHSTATS::START2
4567;                                        :END2
4568;                                        CL-MATHSTATS::END2)
4569;                               (IF # # #)
4570;                               (LET* #
4571;                                 #
4572;                                 #
4573;                                 #)))))
4574;
4575; caught STYLE-WARNING:
4576;   undefined type: METABANG.UTILITIES:ELEMENT
4577
4578;
4579; caught STYLE-WARNING:
4580;   1 more use of undefined type METABANG.UTILITIES:ELEMENT
4581
4582
4583; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
4584; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
4585;     (DEFUN CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
4586;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
4587;     "Performs linear regression of the dependent variable, `dv,' on multiple
4588; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
4589; regression coefficient.  Calculates the F statistic, intercept and the
4590; correlation coefficient for Y on X's."
4591;     (DECLARE
4592;      (VALUES CL-MATHSTATS::INTERCEPT
4593;              CL-MATHSTATS::COEFFICIENTS
4594;              CL-MATHSTATS::R-LIST
4595;              CL-MATHSTATS::T-BS
4596;              CL-MATHSTATS::BETAS
4597;              CL-MATHSTATS::R-SQUARE
4598;              CL-MATHSTATS::F
4599;              CL-MATHSTATS::SS-REG-LIST
4600;              CL-MATHSTATS::SS-PERCENT-LIST
4601;              CL-MATHSTATS::SS-REG
4602;              CL-MATHSTATS::SS-RES
4603;              ...))
4604;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
4605;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
4606;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
4607;            (CL-MATHSTATS::X-0
4608;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
4609;            (CL-MATHSTATS::ITEM-LIST NIL))
4610;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
4611;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
4612;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
4613;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
4614;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
4615;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
4616;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
4617;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
4618;              (CL-MATHSTATS::Z-MAT #)
4619;              (CL-MATHSTATS::Z-TRANS-Z #)
4620;              (CL-MATHSTATS::X-DIM #)
4621;              (CL-MATHSTATS::X-TRANS-X #)
4622;              (CL-MATHSTATS::X-TRANS-Y #)
4623;              (CL-MATHSTATS::Y-TRANS-Y #))
4624;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
4625;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
4626;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
4627;                 (AREF CL-MATHSTATS::Z-TRANS-Z
4628;                       CL-MATHSTATS::X-DIM
4629;                       CL-MATHSTATS::X-DIM))
4630;         (LET (#)
4631;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
4632;           (LET* #
4633;             #
4634;             #
4635;             #
4636;             #)))))
4637; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
4638; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
4639; --> IF NOT IF TYPEP
4640; ==>
4641;   (SB-KERNEL:%TYPEP #:G575 'CL-MATHSTATS::F)
4642;
4643; caught STYLE-WARNING:
4644;   undefined type: CL-MATHSTATS::F
4645
4646; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
4647; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
4648; --> IF NOT IF
4649; ==>
4650;   (TYPEP #:G575 'CL-MATHSTATS::F)
4651;
4652; caught STYLE-WARNING:
4653;   undefined type: CL-MATHSTATS::F
4654
4655; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
4656; ==>
4657;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
4658;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
4659;                          (DECLARE
4660;                           (VALUES CL-MATHSTATS::INTERCEPT
4661;                                   CL-MATHSTATS::COEFFICIENTS
4662;                                   CL-MATHSTATS::R-LIST
4663;                                   CL-MATHSTATS::T-BS
4664;                                   CL-MATHSTATS::BETAS
4665;                                   CL-MATHSTATS::R-SQUARE
4666;                                   CL-MATHSTATS::F
4667;                                   CL-MATHSTATS::SS-REG-LIST
4668;                                   CL-MATHSTATS::SS-PERCENT-LIST
4669;                                   CL-MATHSTATS::SS-REG
4670;                                   CL-MATHSTATS::SS-RES
4671;                                   ...))
4672;                          (BLOCK CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
4673;                            (LET* ((CL-MATHSTATS::NUM-X #)
4674;                                   (CL-MATHSTATS::ROWS #)
4675;                                   (CL-MATHSTATS::COLS #)
4676;                                   (CL-MATHSTATS::X-0 #)
4677;                                   (CL-MATHSTATS::ITEM-LIST NIL))
4678;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
4679;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
4680;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
4681;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
4682;                                (WHEN # #)
4683;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
4684;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
4685;                              (LET* (# # # # # # #)
4686;                                (DOTIMES # #)
4687;                                (DOTIMES # #)
4688;                                (SETF # #)
4689;                                (LET #
4690;                                  #
4691;                                  #)))))
4692;
4693; caught STYLE-WARNING:
4694;   undefined type: CL-MATHSTATS::F
4695
4696;
4697; caught STYLE-WARNING:
4698;   2 more uses of undefined type CL-MATHSTATS::F
4699
4700
4701; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
4702; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:TUKEY-SUMMARY
4703;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::TUKEY-SUMMARY
4704;                                   NIL
4705;                                   ((CL-MATHSTATS::MINIMUM)
4706;                                    (CL-MATHSTATS::FIRST-QUARTILE)
4707;                                    (CL-MATHSTATS::MEDIAN)
4708;                                    (CL-MATHSTATS::THIRD-QUARTILE)
4709;                                    (CL-MATHSTATS::MAXIMUM))
4710;                                   NIL
4711;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
4712;                                   (CL-MATHSTATS::DATA &REST
4713;                                                       CL-MATHSTATS::STANDARD-ARGS
4714;                                                       &KEY
4715;                                                       CL-MATHSTATS::START
4716;                                                       CL-MATHSTATS::END
4717;                                                       CL-MATHSTATS::KEY)
4718;                                   "Computes a Tukey five-number summary of the data.  That is, it returns, in
4719; increasing order, the extremes and the quartiles: the minimum, the 1/4 quartile,
4720; the median, the 3/4 quartile, and the maximum."
4721;                                   (DECLARE
4722;                                    (VALUES CL-MATHSTATS::MINIMUM
4723;                                            CL-MATHSTATS::FIRST-QUARTILE
4724;                                            CL-MATHSTATS::MEDIAN
4725;                                            CL-MATHSTATS::THIRD-QUARTILE
4726;                                            CL-MATHSTATS::MAXIMUM))
4727;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
4728;                                   (LET* ((CL-MATHSTATS::N
4729;                                           (APPLY #'CL-MATHSTATS::DATA-LENGTH
4730;                                                  CL-MATHSTATS::DATA
4731;                                                  CL-MATHSTATS::STANDARD-ARGS))
4732;                                          (CL-MATHSTATS::START2
4733;                                           (OR CL-MATHSTATS::START 0))
4734;                                          (CL-MATHSTATS::END2
4735;                                           (OR CL-MATHSTATS::END #)))
4736;                                     (WHEN (ZEROP CL-MATHSTATS::N)
4737;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
4738;                                     (CL-MATHSTATS::WITH-TEMP-VECTOR
4739;                                      (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
4740;                                      (REPLACE CL-MATHSTATS::TEMP
4741;                                               CL-MATHSTATS::DATA
4742;                                               :END1
4743;                                               CL-MATHSTATS::N
4744;                                               :START2
4745;                                               CL-MATHSTATS::START2
4746;                                               :END2
4747;                                               CL-MATHSTATS::END2)
4748;                                      (IF (NULL CL-MATHSTATS::KEY)
4749;                                          (SORT CL-MATHSTATS::TEMP #'<)
4750;                                          (SORT CL-MATHSTATS::TEMP
4751;                                                #'<
4752;                                                :KEY
4753;                                                CL-MATHSTATS::KEY))
4754;                                      (FLET (#)
4755;                                        (VALUES # # # # #)))))
4756; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4757; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
4758; --> FUNCTION UNLESS COND IF NOT IF TYPEP
4759; ==>
4760;   (SB-KERNEL:%TYPEP #:G1218 'CL-MATHSTATS::FIRST-QUARTILE)
4761;
4762; caught STYLE-WARNING:
4763;   undefined type: CL-MATHSTATS::FIRST-QUARTILE
4764
4765; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4766; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
4767; --> FUNCTION UNLESS COND IF NOT IF
4768; ==>
4769;   (TYPEP #:G1218 'CL-MATHSTATS::FIRST-QUARTILE)
4770;
4771; caught STYLE-WARNING:
4772;   undefined type: CL-MATHSTATS::FIRST-QUARTILE
4773
4774; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
4775; --> SB-INT:NAMED-LAMBDA
4776; ==>
4777;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::TUKEY-SUMMARY-INTERNAL
4778;                          (CL-MATHSTATS::DATA &REST
4779;                                              CL-MATHSTATS::STANDARD-ARGS
4780;                                              &KEY
4781;                                              CL-MATHSTATS::START
4782;                                              CL-MATHSTATS::END
4783;                                              CL-MATHSTATS::KEY)
4784;                          (DECLARE
4785;                           (VALUES CL-MATHSTATS::MINIMUM
4786;                                   CL-MATHSTATS::FIRST-QUARTILE
4787;                                   CL-MATHSTATS::MEDIAN
4788;                                   CL-MATHSTATS::THIRD-QUARTILE
4789;                                   CL-MATHSTATS::MAXIMUM))
4790;                          (BLOCK CL-MATHSTATS::TUKEY-SUMMARY-INTERNAL
4791;                            (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
4792;                            (LET* ((CL-MATHSTATS::N #)
4793;                                   (CL-MATHSTATS::START2 #)
4794;                                   (CL-MATHSTATS::END2 #))
4795;                              (WHEN (ZEROP CL-MATHSTATS::N)
4796;                                (ERROR 'CL-MATHSTATS::NO-DATA))
4797;                              (CL-MATHSTATS::WITH-TEMP-VECTOR
4798;                               (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
4799;                               (REPLACE CL-MATHSTATS::TEMP
4800;                                        CL-MATHSTATS::DATA
4801;                                        :END1
4802;                                        CL-MATHSTATS::N
4803;                                        :START2
4804;                                        CL-MATHSTATS::START2
4805;                                        :END2
4806;                                        CL-MATHSTATS::END2)
4807;                               (IF # # #)
4808;                               (FLET #
4809;                                 #)))))
4810;
4811; caught STYLE-WARNING:
4812;   undefined type: CL-MATHSTATS::FIRST-QUARTILE
4813
4814;
4815; caught STYLE-WARNING:
4816;   2 more uses of undefined type CL-MATHSTATS::FIRST-QUARTILE
4817
4818
4819; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
4820; in: DEFUN CL-MATHSTATS::G-TEST
4821;     (FLET ((CL-MATHSTATS::DOIT
4822;              (CL-MATHSTATS::CONTINGENCY-TABLE
4823;               &OPTIONAL CL-MATHSTATS::EXPECTED-VALUE-MATRIX)
4824;            (DECLARE
4825;             (VALUES CL-MATHSTATS::G-SCORE
4826;                     CL-MATHSTATS::G-SIGNIFICANCE
4827;                     CL-MATHSTATS::DOF))
4828;            (DESTRUCTURING-BIND
4829;                (CL-MATHSTATS::ROWS CL-MATHSTATS::COLUMNS)
4830;                (ARRAY-DIMENSIONS CL-MATHSTATS::CONTINGENCY-TABLE)
4831;              (LET #
4832;                #
4833;                #
4834;                #
4835;                #))))
4836;     (IF CL-MATHSTATS::ERROR-P
4837;         (CL-MATHSTATS::DOIT CL-MATHSTATS::CONTINGENCY-TABLE
4838;                             CL-MATHSTATS::EXPECTED-VALUE-MATRIX)
4839;         (CATCH 'CL-MATHSTATS::RECOVER
4840;           (HANDLER-BIND (# #)
4841;                         (CL-MATHSTATS::DOIT CL-MATHSTATS::CONTINGENCY-TABLE
4842;                                             CL-MATHSTATS::EXPECTED-VALUE-MATRIX)))))
4843; --> THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT
4844; --> IF TYPEP
4845; ==>
4846;   (SB-KERNEL:%TYPEP #:G2520 'CL-MATHSTATS::G-SCORE)
4847;
4848; caught STYLE-WARNING:
4849;   undefined type: CL-MATHSTATS::G-SCORE
4850
4851; --> THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT
4852; --> IF
4853; ==>
4854;   (TYPEP #:G2520 'CL-MATHSTATS::G-SCORE)
4855;
4856; caught STYLE-WARNING:
4857;   undefined type: CL-MATHSTATS::G-SCORE
4858;
4859; caught STYLE-WARNING:
4860;   undefined type: CL-MATHSTATS::G-SCORE
4861
4862;
4863; caught STYLE-WARNING:
4864;   2 more uses of undefined type CL-MATHSTATS::G-SCORE
4865
4866
4867; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
4868; in: DEFUN CL-MATHSTATS::G-TEST
4869;     (FLET ((CL-MATHSTATS::DOIT
4870;              (CL-MATHSTATS::CONTINGENCY-TABLE
4871;               &OPTIONAL CL-MATHSTATS::EXPECTED-VALUE-MATRIX)
4872;            (DECLARE
4873;             (VALUES CL-MATHSTATS::G-SCORE
4874;                     CL-MATHSTATS::G-SIGNIFICANCE
4875;                     CL-MATHSTATS::DOF))
4876;            (DESTRUCTURING-BIND
4877;                (CL-MATHSTATS::ROWS CL-MATHSTATS::COLUMNS)
4878;                (ARRAY-DIMENSIONS CL-MATHSTATS::CONTINGENCY-TABLE)
4879;              (LET #
4880;                #
4881;                #
4882;                #
4883;                #))))
4884;     (IF CL-MATHSTATS::ERROR-P
4885;         (CL-MATHSTATS::DOIT CL-MATHSTATS::CONTINGENCY-TABLE
4886;                             CL-MATHSTATS::EXPECTED-VALUE-MATRIX)
4887;         (CATCH 'CL-MATHSTATS::RECOVER
4888;           (HANDLER-BIND (# #)
4889;                         (CL-MATHSTATS::DOIT CL-MATHSTATS::CONTINGENCY-TABLE
4890;                                             CL-MATHSTATS::EXPECTED-VALUE-MATRIX)))))
4891; --> THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT
4892; --> IF TYPEP
4893; ==>
4894;   (SB-KERNEL:%TYPEP #:G2521 'CL-MATHSTATS::G-SIGNIFICANCE)
4895;
4896; caught STYLE-WARNING:
4897;   undefined type: CL-MATHSTATS::G-SIGNIFICANCE
4898
4899; --> THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT
4900; --> IF
4901; ==>
4902;   (TYPEP #:G2521 'CL-MATHSTATS::G-SIGNIFICANCE)
4903;
4904; caught STYLE-WARNING:
4905;   undefined type: CL-MATHSTATS::G-SIGNIFICANCE
4906;
4907; caught STYLE-WARNING:
4908;   undefined type: CL-MATHSTATS::G-SIGNIFICANCE
4909
4910;
4911; caught STYLE-WARNING:
4912;   1 more use of undefined type CL-MATHSTATS::G-SIGNIFICANCE
4913
4914
4915; file: /Users/gwking/darcs/cl-graph/dev/graph.lisp
4916; in:
4917;      DEFMETHOD CL-GRAPH:IN-CYCLE-P (CL-GRAPH:BASIC-GRAPH CL-GRAPH:BASIC-VERTEX)
4918;     (CL-GRAPH::GRAPH-SEARCH (LIST CL-GRAPH::START-VERTEX)
4919;                           (LAMBDA (CL-GRAPH::V)
4920;                             (IF CL-GRAPH::FIRST-TIME?
4921;                                 (METABANG.UTILITIES:NILF CL-GRAPH::FIRST-TIME?)
4922;                                 (EQ
4923;                                  (CL-GRAPH:FIND-VERTEX CL-GRAPH::GRAPH
4924;                                                        CL-GRAPH::V)
4925;                                  CL-GRAPH::START-VERTEX)))
4926;                           (LAMBDA (CL-GRAPH::V)
4927;                             (CL-GRAPH:CHILD-VERTEXES CL-GRAPH::V))
4928;                           #'APPEND
4929;                           :NEW-STATE-FN
4930;                           (LAMBDA
4931;                               (CL-GRAPH::STATES CL-GRAPH::SUCCESSORS
4932;                                CL-GRAPH::STATE= CL-GRAPH::OLD-STATES)
4933;                             (REMOVE-IF #'(LAMBDA (CL-GRAPH::STATE) (AND # #))
4934;                                        (FUNCALL CL-GRAPH::SUCCESSORS
4935;                                                 (FIRST CL-GRAPH::STATES)))))
4936;
4937; caught STYLE-WARNING:
4938;   undefined function: CL-GRAPH::GRAPH-SEARCH
4939
4940
4941; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
4942; in: DEFUN CL-MATHSTATS:LINEAR-REGRESSION-MINIMAL-SUMMARIES
4943;     (DEFUN CL-MATHSTATS::LINEAR-REGRESSION-MINIMAL-SUMMARIES
4944;          (CL-MATHSTATS::N CL-MATHSTATS::X CL-MATHSTATS::Y CL-MATHSTATS::X2
4945;           CL-MATHSTATS::Y2 CL-MATHSTATS::XY)
4946;     "Calculates the slope and intercept of the regression line.  This function
4947; differs from `linear-regression-minimal' in that it takes summary statistics:
4948; `x' and `y' are the sums of the independent variable and dependent variables,
4949; respectively; `x2' and `y2' are the sums of the squares of the independent
4950; variable and dependent variables, respectively; and `xy' is the sum of the
4951; products of the independent and dependent variables.
4952;
4953; You should first look at your data with a scatter plot to see if a linear model
4954; is plausible.  See the manual for a fuller explanation of linear regression
4955; statistics."
4956;     (DECLARE (VALUES CL-MATHSTATS::SLOPE CL-MATHSTATS::INTERCEPT)
4957;              (IGNORE CL-MATHSTATS::Y2))
4958;     (LET ((CL-MATHSTATS::NSSX (- # #)) (CL-MATHSTATS::NSSXY (- # #)))
4959;       (WHEN (ZEROP CL-MATHSTATS::NSSX) (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
4960;       (LET* ((CL-MATHSTATS::SLOPE #) (CL-MATHSTATS::INTERCEPT #))
4961;         (VALUES CL-MATHSTATS::SLOPE CL-MATHSTATS::INTERCEPT))))
4962; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
4963; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
4964; --> IF NOT IF TYPEP
4965; ==>
4966;   (SB-KERNEL:%TYPEP #:G181 'CL-MATHSTATS::INTERCEPT)
4967;
4968; caught STYLE-WARNING:
4969;   undefined type: CL-MATHSTATS::INTERCEPT
4970
4971; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
4972; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
4973; --> IF NOT IF
4974; ==>
4975;   (TYPEP #:G181 'CL-MATHSTATS::INTERCEPT)
4976;
4977; caught STYLE-WARNING:
4978;   undefined type: CL-MATHSTATS::INTERCEPT
4979
4980; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
4981; ==>
4982;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::LINEAR-REGRESSION-MINIMAL-SUMMARIES
4983;                          (CL-MATHSTATS::N CL-MATHSTATS::X
4984;                                           CL-MATHSTATS::Y
4985;                                           CL-MATHSTATS::X2
4986;                                           CL-MATHSTATS::Y2
4987;                                           CL-MATHSTATS::XY)
4988;                          (DECLARE
4989;                           (VALUES CL-MATHSTATS::SLOPE CL-MATHSTATS::INTERCEPT)
4990;                           (IGNORE CL-MATHSTATS::Y2))
4991;                          (BLOCK
4992;                              CL-MATHSTATS::LINEAR-REGRESSION-MINIMAL-SUMMARIES
4993;                            (LET ((CL-MATHSTATS::NSSX #) (CL-MATHSTATS::NSSXY #))
4994;                              (WHEN (ZEROP CL-MATHSTATS::NSSX)
4995;                                (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
4996;                              (LET* (# #)
4997;                                (VALUES CL-MATHSTATS::SLOPE
4998;                                        CL-MATHSTATS::INTERCEPT)))))
4999;
5000; caught STYLE-WARNING:
5001;   undefined type: CL-MATHSTATS::INTERCEPT
5002
5003;
5004; caught STYLE-WARNING:
5005;   16 more uses of undefined type CL-MATHSTATS::INTERCEPT
5006
5007
5008; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
5009; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:STATISTICAL-SUMMARY
5010;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::STATISTICAL-SUMMARY
5011;                                   (CL-MATHSTATS::DATA-LENGTH
5012;                                    CL-MATHSTATS::MINIMUM
5013;                                    CL-MATHSTATS::MAXIMUM
5014;                                    CL-MATHSTATS::RANGE
5015;                                    CL-MATHSTATS::MEDIAN
5016;                                    CL-MATHSTATS::MODE
5017;                                    CL-MATHSTATS::MEAN
5018;                                    CL-MATHSTATS::VARIANCE
5019;                                    CL-MATHSTATS::STANDARD-DEVIATION
5020;                                    CL-MATHSTATS::INTERQUARTILE-RANGE
5021;                                    CL-MATHSTATS::SKEWNESS)
5022;                                   NIL
5023;                                   NIL
5024;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
5025;                                   (CL-MATHSTATS::DATA &REST
5026;                                                       CL-MATHSTATS::STANDARD-ARGS
5027;                                                       &KEY
5028;                                                       CL-MATHSTATS::START
5029;                                                       CL-MATHSTATS::END
5030;                                                       CL-MATHSTATS::KEY)
5031;                                   "Compute the length, minimum, maximum, range, median, mode, mean, variance,
5032; standard deviation, and interquartile-range of `sequence' from `start' to `end',
5033; accessed by `key'."
5034;                                   (DECLARE
5035;                                    (IGNORE CL-MATHSTATS::START
5036;                                            CL-MATHSTATS::END)
5037;                                    (VALUES LENGTH
5038;                                            CL-MATHSTATS::MINIMUM
5039;                                            CL-MATHSTATS::MAXIMUM
5040;                                            CL-MATHSTATS::RANGE
5041;                                            CL-MATHSTATS::MEDIAN
5042;                                            CL-MATHSTATS::MODE
5043;                                            CL-MATHSTATS::MEAN
5044;                                            CL-MATHSTATS::VARIANCE
5045;                                            CL-MATHSTATS::STANDARD-DEVIATION
5046;                                            CL-MATHSTATS::INTERQUARTILE-RANGE))
5047;                                   (LET* ((LENGTH
5048;                                           (APPLY #'CL-MATHSTATS::DATA-LENGTH
5049;                                                  CL-MATHSTATS::DATA
5050;                                                  CL-MATHSTATS::STANDARD-ARGS))
5051;                                          (CL-MATHSTATS::MINIMUM
5052;                                           (APPLY #'CL-MATHSTATS::MINIMUM
5053;                                                  CL-MATHSTATS::DATA
5054;                                                  CL-MATHSTATS::STANDARD-ARGS))
5055;                                          (CL-MATHSTATS::MAXIMUM
5056;                                           (APPLY #'CL-MATHSTATS::MAXIMUM
5057;                                                  CL-MATHSTATS::DATA
5058;                                                  CL-MATHSTATS::STANDARD-ARGS))
5059;                                          (CL-MATHSTATS::RANGE (IF # # #))
5060;                                          (CL-MATHSTATS::MEDIAN
5061;                                           (APPLY #'CL-MATHSTATS::MEDIAN
5062;                                                  CL-MATHSTATS::DATA
5063;                                                  CL-MATHSTATS::STANDARD-ARGS))
5064;                                          (CL-MATHSTATS::MODE
5065;                                           (APPLY #'CL-MATHSTATS::SMART-MODE
5066;                                                  CL-MATHSTATS::DATA
5067;                                                  CL-MATHSTATS::STANDARD-ARGS))
5068;                                          (CL-MATHSTATS::MEAN
5069;                                           (APPLY #'CL-MATHSTATS::MEAN
5070;                                                  CL-MATHSTATS::DATA
5071;                                                  CL-MATHSTATS::STANDARD-ARGS))
5072;                                          (CL-MATHSTATS::VARIANCE
5073;                                           (APPLY #'CL-MATHSTATS::VARIANCE
5074;                                                  CL-MATHSTATS::DATA
5075;                                                  CL-MATHSTATS::STANDARD-ARGS))
5076;                                          (CL-MATHSTATS::SD
5077;                                           (SQRT CL-MATHSTATS::VARIANCE))
5078;                                          (CL-MATHSTATS::IQR
5079;                                           (APPLY
5080;                                            #'CL-MATHSTATS::INTERQUARTILE-RANGE
5081;                                            CL-MATHSTATS::DATA
5082;                                            CL-MATHSTATS::STANDARD-ARGS))
5083;                                          (CL-MATHSTATS::SKEWNESS
5084;                                           (APPLY #'CL-MATHSTATS::SKEWNESS
5085;                                                  CL-MATHSTATS::DATA
5086;                                                  CL-MATHSTATS::STANDARD-ARGS)))
5087;                                     (VALUES LENGTH
5088;                                             CL-MATHSTATS::MINIMUM
5089;                                             CL-MATHSTATS::MAXIMUM
5090;                                             CL-MATHSTATS::RANGE
5091;                                             CL-MATHSTATS::MEDIAN
5092;                                             CL-MATHSTATS::MODE
5093;                                             CL-MATHSTATS::MEAN
5094;                                             CL-MATHSTATS::VARIANCE
5095;                                             CL-MATHSTATS::SD
5096;                                             CL-MATHSTATS::IQR
5097;                                             CL-MATHSTATS::SKEWNESS)))
5098; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
5099; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
5100; --> FUNCTION UNLESS COND IF NOT IF TYPEP
5101; ==>
5102;   (SB-KERNEL:%TYPEP #:G1285 'LENGTH)
5103;
5104; caught STYLE-WARNING:
5105;   undefined type: LENGTH
5106
5107; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
5108; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
5109; --> FUNCTION UNLESS COND IF NOT IF
5110; ==>
5111;   (TYPEP #:G1285 'LENGTH)
5112;
5113; caught STYLE-WARNING:
5114;   undefined type: LENGTH
5115
5116; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
5117; --> SB-INT:NAMED-LAMBDA
5118; ==>
5119;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::STATISTICAL-SUMMARY-INTERNAL
5120;                          (CL-MATHSTATS::DATA &REST
5121;                                              CL-MATHSTATS::STANDARD-ARGS
5122;                                              &KEY
5123;                                              CL-MATHSTATS::START
5124;                                              CL-MATHSTATS::END
5125;                                              CL-MATHSTATS::KEY)
5126;                          (DECLARE
5127;                           (IGNORE CL-MATHSTATS::START CL-MATHSTATS::END)
5128;                           (VALUES LENGTH
5129;                                   CL-MATHSTATS::MINIMUM
5130;                                   CL-MATHSTATS::MAXIMUM
5131;                                   CL-MATHSTATS::RANGE
5132;                                   CL-MATHSTATS::MEDIAN
5133;                                   CL-MATHSTATS::MODE
5134;                                   CL-MATHSTATS::MEAN
5135;                                   CL-MATHSTATS::VARIANCE
5136;                                   CL-MATHSTATS::STANDARD-DEVIATION
5137;                                   CL-MATHSTATS::INTERQUARTILE-RANGE))
5138;                          (BLOCK CL-MATHSTATS::STATISTICAL-SUMMARY-INTERNAL
5139;                            (LET* ((LENGTH #)
5140;                                   (CL-MATHSTATS::MINIMUM #)
5141;                                   (CL-MATHSTATS::MAXIMUM #)
5142;                                   (CL-MATHSTATS::RANGE #)
5143;                                   (CL-MATHSTATS::MEDIAN #)
5144;                                   (CL-MATHSTATS::MODE #)
5145;                                   (CL-MATHSTATS::MEAN #)
5146;                                   (CL-MATHSTATS::VARIANCE #)
5147;                                   (CL-MATHSTATS::SD #)
5148;                                   (CL-MATHSTATS::IQR #)
5149;                                   (CL-MATHSTATS::SKEWNESS #))
5150;                              (VALUES LENGTH
5151;                                      CL-MATHSTATS::MINIMUM
5152;                                      CL-MATHSTATS::MAXIMUM
5153;                                      CL-MATHSTATS::RANGE
5154;                                      CL-MATHSTATS::MEDIAN
5155;                                      CL-MATHSTATS::MODE
5156;                                      CL-MATHSTATS::MEAN
5157;                                      CL-MATHSTATS::VARIANCE
5158;                                      CL-MATHSTATS::SD
5159;                                      CL-MATHSTATS::IQR
5160;                                      CL-MATHSTATS::SKEWNESS))))
5161;
5162; caught STYLE-WARNING:
5163;   undefined type: LENGTH
5164
5165;
5166; caught STYLE-WARNING:
5167;   1 more use of undefined type LENGTH
5168
5169
5170; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
5171; in: DEFUN CL-MATHSTATS:CONFIDENCE-INTERVAL-T-SUMMARIES
5172;     (DEFUN CL-MATHSTATS::CONFIDENCE-INTERVAL-T-SUMMARIES
5173;          (CL-MATHSTATS::MEAN CL-MATHSTATS::DOF CL-MATHSTATS::STANDARD-ERROR
5174;           CL-MATHSTATS::CONFIDENCE)
5175;     "This function is just like `confidence-interval-t,' except that instead of
5176; its arguments being the actual data, it takes the following summary statistics:
5177; `mean,' which is the estimator of some t-distributed parameter; `dof,' which is
5178; the number of degrees of freedom in estimating the mean; and the
5179; `standard-error' of the estimator.  In general, `mean' is a point estimator of
5180; the mean of a t-distribution, which may be the slope parameter of a regression,
5181; the difference between two means, or other practical t-distributions.
5182; `Confidence' should be a number between 0 and 1, exclusive."
5183;     (DECLARE
5184;      (VALUES CL-MATHSTATS::MEAN CL-MATHSTATS::LOWER CL-MATHSTATS::UPPER))
5185;     (CHECK-TYPE CL-MATHSTATS::DOF (REAL 1 *))
5186;     (CHECK-TYPE CL-MATHSTATS::MEAN REAL)
5187;     (CHECK-TYPE CL-MATHSTATS::STANDARD-ERROR REAL)
5188;     (CHECK-TYPE CL-MATHSTATS::CONFIDENCE (REAL (0) (1)))
5189;     (LET* ((CL-MATHSTATS::T-X (CL-MATHSTATS::FIND-CRITICAL-VALUE #'# #))
5190;            (CL-MATHSTATS::W (* CL-MATHSTATS::STANDARD-ERROR CL-MATHSTATS::T-X))
5191;            (CL-MATHSTATS::UPPER (+ CL-MATHSTATS::MEAN CL-MATHSTATS::W))
5192;            (CL-MATHSTATS::LOWER (- CL-MATHSTATS::MEAN CL-MATHSTATS::W)))
5193;       (VALUES CL-MATHSTATS::MEAN CL-MATHSTATS::LOWER CL-MATHSTATS::UPPER)))
5194; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5195; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
5196; --> IF NOT IF TYPEP
5197; ==>
5198;   (SB-KERNEL:%TYPEP #:G2077 'CL-MATHSTATS::LOWER)
5199;
5200; caught STYLE-WARNING:
5201;   undefined type: CL-MATHSTATS::LOWER
5202
5203; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5204; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
5205; --> IF NOT IF
5206; ==>
5207;   (TYPEP #:G2077 'CL-MATHSTATS::LOWER)
5208;
5209; caught STYLE-WARNING:
5210;   undefined type: CL-MATHSTATS::LOWER
5211
5212; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:CONFIDENCE-INTERVAL-Z
5213;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::CONFIDENCE-INTERVAL-Z
5214;                                   (CL-MATHSTATS::CONFIDENCE-INTERVAL)
5215;                                   NIL
5216;                                   NIL
5217;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
5218;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::CONFIDENCE)
5219;                                   "Suppose you have a sample of 50 numbers and you want to compute a 90 percent
5220; confidence interval on the population mean.  This function is the one to use.
5221; Note that it makes the assumption that the sampling distribution is normal, so
5222; it's inappropriate for small sample sizes.  Use confidence-interval-t instead.
5223; It returns three values: the mean and the lower and upper bound of the
5224; confidence interval.  True, only two numbers are necessary, but the confidence
5225; intervals of other statistics may be asymmetrical and these values would be
5226; consistent with those confidence intervals.  This function handles 90, 95 and 99
5227; percent confidence intervals as special cases, so those will be quite fast.
5228; `Sample' should be a sequence of numbers.  `Confidence' should be a number
5229; between 0 and 1, exclusive."
5230;                                   (DECLARE
5231;                                    (VALUES CL-MATHSTATS::MEAN
5232;                                            CL-MATHSTATS::LOWER
5233;                                            CL-MATHSTATS::UPPER))
5234;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
5235;                                   (CHECK-TYPE CL-MATHSTATS::CONFIDENCE
5236;                                               (REAL (0) (1)))
5237;                                   (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
5238;                                    (CL-MATHSTATS::MEAN CL-MATHSTATS::DATA)
5239;                                    (SQRT
5240;                                     (/
5241;                                      (CL-MATHSTATS::VARIANCE
5242;                                       CL-MATHSTATS::DATA)
5243;                                      (LENGTH CL-MATHSTATS::DATA)))
5244;                                    CL-MATHSTATS::CONFIDENCE))
5245; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
5246; --> SB-INT:NAMED-LAMBDA
5247; ==>
5248;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-INTERNAL
5249;                          (CL-MATHSTATS::DATA CL-MATHSTATS::CONFIDENCE)
5250;                          (DECLARE
5251;                           (VALUES CL-MATHSTATS::MEAN
5252;                                   CL-MATHSTATS::LOWER
5253;                                   CL-MATHSTATS::UPPER))
5254;                          (BLOCK CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-INTERNAL
5255;                            (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
5256;                            (CHECK-TYPE CL-MATHSTATS::CONFIDENCE (REAL (0) (1)))
5257;                            (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
5258;                             (CL-MATHSTATS::MEAN CL-MATHSTATS::DATA)
5259;                             (SQRT (/ # #))
5260;                             CL-MATHSTATS::CONFIDENCE)))
5261;
5262; caught STYLE-WARNING:
5263;   undefined type: CL-MATHSTATS::LOWER
5264
5265;
5266; caught STYLE-WARNING:
5267;   7 more uses of undefined type CL-MATHSTATS::LOWER
5268
5269
5270; file: /Users/gwking/darcs/cl-graph/dev/graph-algorithms.lisp
5271; in: DEFMETHOD CL-GRAPH:FIND-CONNECTED-COMPONENTS (CL-GRAPH:BASIC-GRAPH)
5272;     (METABANG.CL-CONTAINERS:MAKE-ITERATOR
5273;    (CL-GRAPH::CONNECTED-COMPONENTS CL-GRAPH::GRAPH)
5274;    :UNIQUE
5275;    T
5276;    :TRANSFORM
5277;    #'METABANG.UTILITIES:PARENT)
5278;
5279; caught STYLE-WARNING:
5280;   undefined function: METABANG.CL-CONTAINERS:MAKE-ITERATOR
5281
5282
5283; file: /Users/gwking/darcs/metatilities/dev/utilities/macros.lisp
5284; in: DEFUN METABANG.UTILITIES::MAKE-HCASE-TABLE
5285;     (METABANG.UTILITIES::MAPPEND
5286;    (METABANG.UTILITIES:COMPOSE #'METABANG.UTILITIES:ENSURE-LIST #'CAR)
5287;    METABANG.UTILITIES::CLAUSES)
5288;
5289; caught STYLE-WARNING:
5290;   undefined function: METABANG.UTILITIES::MAPPEND
5291
5292
5293; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
5294; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
5295;     (DEFUN CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
5296;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
5297;     "Performs linear regression of the dependent variable, `dv,' on multiple
5298; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
5299; regression coefficient.  Calculates the F statistic, intercept and the
5300; correlation coefficient for Y on X's."
5301;     (DECLARE
5302;      (VALUES CL-MATHSTATS::INTERCEPT
5303;              CL-MATHSTATS::COEFFICIENTS
5304;              CL-MATHSTATS::R-LIST
5305;              CL-MATHSTATS::T-BS
5306;              CL-MATHSTATS::BETAS
5307;              CL-MATHSTATS::R-SQUARE
5308;              CL-MATHSTATS::F
5309;              CL-MATHSTATS::SS-REG-LIST
5310;              CL-MATHSTATS::SS-PERCENT-LIST
5311;              CL-MATHSTATS::SS-REG
5312;              CL-MATHSTATS::SS-RES
5313;              ...))
5314;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
5315;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
5316;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
5317;            (CL-MATHSTATS::X-0
5318;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
5319;            (CL-MATHSTATS::ITEM-LIST NIL))
5320;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
5321;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
5322;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
5323;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
5324;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
5325;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
5326;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
5327;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
5328;              (CL-MATHSTATS::Z-MAT #)
5329;              (CL-MATHSTATS::Z-TRANS-Z #)
5330;              (CL-MATHSTATS::X-DIM #)
5331;              (CL-MATHSTATS::X-TRANS-X #)
5332;              (CL-MATHSTATS::X-TRANS-Y #)
5333;              (CL-MATHSTATS::Y-TRANS-Y #))
5334;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
5335;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
5336;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
5337;                 (AREF CL-MATHSTATS::Z-TRANS-Z
5338;                       CL-MATHSTATS::X-DIM
5339;                       CL-MATHSTATS::X-DIM))
5340;         (LET (#)
5341;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
5342;           (LET* #
5343;             #
5344;             #
5345;             #
5346;             #)))))
5347; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5348; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
5349; --> IF NOT IF TYPEP
5350; ==>
5351;   (SB-KERNEL:%TYPEP #:G580 'CL-MATHSTATS::MSE-REG)
5352;
5353; caught STYLE-WARNING:
5354;   undefined type: CL-MATHSTATS::MSE-REG
5355
5356; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5357; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
5358; --> IF NOT IF
5359; ==>
5360;   (TYPEP #:G580 'CL-MATHSTATS::MSE-REG)
5361;
5362; caught STYLE-WARNING:
5363;   undefined type: CL-MATHSTATS::MSE-REG
5364
5365; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5366; ==>
5367;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
5368;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
5369;                          (DECLARE
5370;                           (VALUES CL-MATHSTATS::INTERCEPT
5371;                                   CL-MATHSTATS::COEFFICIENTS
5372;                                   CL-MATHSTATS::R-LIST
5373;                                   CL-MATHSTATS::T-BS
5374;                                   CL-MATHSTATS::BETAS
5375;                                   CL-MATHSTATS::R-SQUARE
5376;                                   CL-MATHSTATS::F
5377;                                   CL-MATHSTATS::SS-REG-LIST
5378;                                   CL-MATHSTATS::SS-PERCENT-LIST
5379;                                   CL-MATHSTATS::SS-REG
5380;                                   CL-MATHSTATS::SS-RES
5381;                                   ...))
5382;                          (BLOCK CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
5383;                            (LET* ((CL-MATHSTATS::NUM-X #)
5384;                                   (CL-MATHSTATS::ROWS #)
5385;                                   (CL-MATHSTATS::COLS #)
5386;                                   (CL-MATHSTATS::X-0 #)
5387;                                   (CL-MATHSTATS::ITEM-LIST NIL))
5388;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
5389;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
5390;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
5391;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
5392;                                (WHEN # #)
5393;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
5394;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
5395;                              (LET* (# # # # # # #)
5396;                                (DOTIMES # #)
5397;                                (DOTIMES # #)
5398;                                (SETF # #)
5399;                                (LET #
5400;                                  #
5401;                                  #)))))
5402;
5403; caught STYLE-WARNING:
5404;   undefined type: CL-MATHSTATS::MSE-REG
5405
5406;
5407; caught STYLE-WARNING:
5408;   2 more uses of undefined type CL-MATHSTATS::MSE-REG
5409
5410
5411; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
5412; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
5413;     (DEFUN CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
5414;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
5415;     "Performs linear regression of the dependent variable, `dv,' on multiple
5416; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
5417; regression coefficient.  Calculates the F statistic, intercept and the
5418; correlation coefficient for Y on X's."
5419;     (DECLARE
5420;      (VALUES CL-MATHSTATS::INTERCEPT
5421;              CL-MATHSTATS::COEFFICIENTS
5422;              CL-MATHSTATS::R-LIST
5423;              CL-MATHSTATS::T-BS
5424;              CL-MATHSTATS::BETAS
5425;              CL-MATHSTATS::R-SQUARE
5426;              CL-MATHSTATS::F
5427;              CL-MATHSTATS::SS-REG-LIST
5428;              CL-MATHSTATS::SS-PERCENT-LIST
5429;              CL-MATHSTATS::SS-REG
5430;              CL-MATHSTATS::SS-RES
5431;              ...))
5432;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
5433;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
5434;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
5435;            (CL-MATHSTATS::X-0
5436;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
5437;            (CL-MATHSTATS::ITEM-LIST NIL))
5438;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
5439;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
5440;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
5441;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
5442;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
5443;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
5444;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
5445;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
5446;              (CL-MATHSTATS::Z-MAT #)
5447;              (CL-MATHSTATS::Z-TRANS-Z #)
5448;              (CL-MATHSTATS::X-DIM #)
5449;              (CL-MATHSTATS::X-TRANS-X #)
5450;              (CL-MATHSTATS::X-TRANS-Y #)
5451;              (CL-MATHSTATS::Y-TRANS-Y #))
5452;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
5453;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
5454;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
5455;                 (AREF CL-MATHSTATS::Z-TRANS-Z
5456;                       CL-MATHSTATS::X-DIM
5457;                       CL-MATHSTATS::X-DIM))
5458;         (LET (#)
5459;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
5460;           (LET* #
5461;             #
5462;             #
5463;             #
5464;             #)))))
5465; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5466; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
5467; --> IF NOT IF TYPEP
5468; ==>
5469;   (SB-KERNEL:%TYPEP #:G581 'CL-MATHSTATS::MSE-RES)
5470;
5471; caught STYLE-WARNING:
5472;   undefined type: CL-MATHSTATS::MSE-RES
5473
5474; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5475; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
5476; --> IF NOT IF
5477; ==>
5478;   (TYPEP #:G581 'CL-MATHSTATS::MSE-RES)
5479;
5480; caught STYLE-WARNING:
5481;   undefined type: CL-MATHSTATS::MSE-RES
5482
5483; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5484; ==>
5485;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
5486;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
5487;                          (DECLARE
5488;                           (VALUES CL-MATHSTATS::INTERCEPT
5489;                                   CL-MATHSTATS::COEFFICIENTS
5490;                                   CL-MATHSTATS::R-LIST
5491;                                   CL-MATHSTATS::T-BS
5492;                                   CL-MATHSTATS::BETAS
5493;                                   CL-MATHSTATS::R-SQUARE
5494;                                   CL-MATHSTATS::F
5495;                                   CL-MATHSTATS::SS-REG-LIST
5496;                                   CL-MATHSTATS::SS-PERCENT-LIST
5497;                                   CL-MATHSTATS::SS-REG
5498;                                   CL-MATHSTATS::SS-RES
5499;                                   ...))
5500;                          (BLOCK CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
5501;                            (LET* ((CL-MATHSTATS::NUM-X #)
5502;                                   (CL-MATHSTATS::ROWS #)
5503;                                   (CL-MATHSTATS::COLS #)
5504;                                   (CL-MATHSTATS::X-0 #)
5505;                                   (CL-MATHSTATS::ITEM-LIST NIL))
5506;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
5507;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
5508;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
5509;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
5510;                                (WHEN # #)
5511;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
5512;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
5513;                              (LET* (# # # # # # #)
5514;                                (DOTIMES # #)
5515;                                (DOTIMES # #)
5516;                                (SETF # #)
5517;                                (LET #
5518;                                  #
5519;                                  #)))))
5520;
5521; caught STYLE-WARNING:
5522;   undefined type: CL-MATHSTATS::MSE-RES
5523
5524;
5525; caught STYLE-WARNING:
5526;   2 more uses of undefined type CL-MATHSTATS::MSE-RES
5527
5528
5529; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
5530; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:MODE
5531;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::MODE
5532;                                   NIL
5533;                                   NIL
5534;                                   NIL
5535;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
5536;                                   (CL-MATHSTATS::DATA &REST
5537;                                                       CL-MATHSTATS::STANDARD-ARGS
5538;                                                       &KEY
5539;                                                       CL-MATHSTATS::START
5540;                                                       CL-MATHSTATS::END
5541;                                                       CL-MATHSTATS::KEY)
5542;                                   "Returns the most frequent element of `data,' which should be a sequence.  The
5543; algorithm involves sorting, and so the data must be numbers or the `key'
5544; function must produce numbers.  Consider `sxhash' if no better function is
5545; available.  Also returns the number of occurrences of the mode.  If there is
5546; more than one mode, this returns the first mode, as determined by the sorting of
5547; the numbers."
5548;                                   (DECLARE
5549;                                    (VALUES METABANG.UTILITIES:ELEMENT
5550;                                            CL-MATHSTATS::NUMBER-OF-OCCURRENCES))
5551;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
5552;                                   (LET* ((CL-MATHSTATS::N
5553;                                           (APPLY #'CL-MATHSTATS::DATA-LENGTH
5554;                                                  CL-MATHSTATS::DATA
5555;                                                  CL-MATHSTATS::STANDARD-ARGS))
5556;                                          (CL-MATHSTATS::START2
5557;                                           (OR CL-MATHSTATS::START 0))
5558;                                          (CL-MATHSTATS::END2
5559;                                           (OR CL-MATHSTATS::END #)))
5560;                                     (WHEN (ZEROP CL-MATHSTATS::N)
5561;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
5562;                                     (CL-MATHSTATS::WITH-TEMP-VECTOR
5563;                                      (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
5564;                                      (REPLACE CL-MATHSTATS::TEMP
5565;                                               CL-MATHSTATS::DATA
5566;                                               :END1
5567;                                               CL-MATHSTATS::N
5568;                                               :START2
5569;                                               CL-MATHSTATS::START2
5570;                                               :END2
5571;                                               CL-MATHSTATS::END2)
5572;                                      (IF (NULL CL-MATHSTATS::KEY)
5573;                                          (SORT CL-MATHSTATS::TEMP #'<)
5574;                                          (SORT CL-MATHSTATS::TEMP
5575;                                                #'<
5576;                                                :KEY
5577;                                                CL-MATHSTATS::KEY))
5578;                                      (LET* (# # # # #)
5579;                                        (IF # # #)
5580;                                        (WHEN # #)
5581;                                        (VALUES CL-MATHSTATS::BIGGEST-GROUP
5582;                                                CL-MATHSTATS::BIGGEST-GROUP-SIZE)))))
5583; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
5584; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
5585; --> FUNCTION UNLESS COND IF NOT IF TYPEP
5586; ==>
5587;   (SB-KERNEL:%TYPEP #:G870 'CL-MATHSTATS::NUMBER-OF-OCCURRENCES)
5588;
5589; caught STYLE-WARNING:
5590;   undefined type: CL-MATHSTATS::NUMBER-OF-OCCURRENCES
5591
5592; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
5593; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
5594; --> FUNCTION UNLESS COND IF NOT IF
5595; ==>
5596;   (TYPEP #:G870 'CL-MATHSTATS::NUMBER-OF-OCCURRENCES)
5597;
5598; caught STYLE-WARNING:
5599;   undefined type: CL-MATHSTATS::NUMBER-OF-OCCURRENCES
5600
5601; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
5602; --> SB-INT:NAMED-LAMBDA
5603; ==>
5604;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MODE-INTERNAL
5605;                          (CL-MATHSTATS::DATA &REST
5606;                                              CL-MATHSTATS::STANDARD-ARGS
5607;                                              &KEY
5608;                                              CL-MATHSTATS::START
5609;                                              CL-MATHSTATS::END
5610;                                              CL-MATHSTATS::KEY)
5611;                          (DECLARE
5612;                           (VALUES METABANG.UTILITIES:ELEMENT
5613;                                   CL-MATHSTATS::NUMBER-OF-OCCURRENCES))
5614;                          (BLOCK CL-MATHSTATS::MODE-INTERNAL
5615;                            (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
5616;                            (LET* ((CL-MATHSTATS::N #)
5617;                                   (CL-MATHSTATS::START2 #)
5618;                                   (CL-MATHSTATS::END2 #))
5619;                              (WHEN (ZEROP CL-MATHSTATS::N)
5620;                                (ERROR 'CL-MATHSTATS::NO-DATA))
5621;                              (CL-MATHSTATS::WITH-TEMP-VECTOR
5622;                               (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
5623;                               (REPLACE CL-MATHSTATS::TEMP
5624;                                        CL-MATHSTATS::DATA
5625;                                        :END1
5626;                                        CL-MATHSTATS::N
5627;                                        :START2
5628;                                        CL-MATHSTATS::START2
5629;                                        :END2
5630;                                        CL-MATHSTATS::END2)
5631;                               (IF # # #)
5632;                               (LET* #
5633;                                 #
5634;                                 #
5635;                                 #)))))
5636;
5637; caught STYLE-WARNING:
5638;   undefined type: CL-MATHSTATS::NUMBER-OF-OCCURRENCES
5639
5640;
5641; caught STYLE-WARNING:
5642;   2 more uses of undefined type CL-MATHSTATS::NUMBER-OF-OCCURRENCES
5643
5644
5645; file: /Users/gwking/darcs/metatilities/dev/utilities/dates-and-times.lisp
5646; in: DEFUN METABANG.UTILITIES:FORMAT-DATE
5647;     (METABANG.UTILITIES:NYI)
5648;
5649; caught STYLE-WARNING:
5650;   undefined function: METABANG.UTILITIES:NYI
5651
5652
5653; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
5654; in:
5655;      CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:CONFIDENCE-INTERVAL-PROPORTION
5656;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::CONFIDENCE-INTERVAL-PROPORTION
5657;                                   (CL-MATHSTATS::CONFIDENCE-INTERVAL)
5658;                                   NIL
5659;                                   NIL
5660;                                   NIL
5661;                                   (CL-MATHSTATS::X CL-MATHSTATS::N
5662;                                                    CL-MATHSTATS::CONFIDENCE)
5663;                                   "Suppose we have a sample of `n' things and `x' of them are ``successes.'' We
5664; can estimate the population proportion of successes as x/n; call it `p-hat.'
5665; This function computes the estimate and a confidence interval on it.  This
5666; function is not appropriate for small samples with p-hat far from 1/2: `x'
5667; should be at least 5, and so should `n'-`x.' This function returns three values:
5668; p-hat, and the lower and upper bounds of the confidence interval.  `Confidence'
5669; should be a number between 0 and 1, exclusive."
5670;                                   (DECLARE
5671;                                    (VALUES CL-MATHSTATS::P-HAT
5672;                                            CL-MATHSTATS::LOWER
5673;                                            CL-MATHSTATS::UPPER))
5674;                                   (LET ((CL-MATHSTATS::P-HAT
5675;                                          (/ CL-MATHSTATS::X CL-MATHSTATS::N))
5676;                                         (CL-MATHSTATS::STANDARD-ERROR (SQRT #)))
5677;                                     (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
5678;                                      CL-MATHSTATS::P-HAT
5679;                                      CL-MATHSTATS::STANDARD-ERROR
5680;                                      CL-MATHSTATS::CONFIDENCE)))
5681; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
5682; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
5683; --> FUNCTION UNLESS COND IF NOT IF TYPEP
5684; ==>
5685;   (SB-KERNEL:%TYPEP #:G2091 'CL-MATHSTATS::P-HAT)
5686;
5687; caught STYLE-WARNING:
5688;   undefined type: CL-MATHSTATS::P-HAT
5689
5690; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
5691; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
5692; --> FUNCTION UNLESS COND IF NOT IF
5693; ==>
5694;   (TYPEP #:G2091 'CL-MATHSTATS::P-HAT)
5695;
5696; caught STYLE-WARNING:
5697;   undefined type: CL-MATHSTATS::P-HAT
5698
5699; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
5700; --> SB-INT:NAMED-LAMBDA
5701; ==>
5702;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CONFIDENCE-INTERVAL-PROPORTION-INTERNAL
5703;                          (CL-MATHSTATS::X CL-MATHSTATS::N
5704;                                           CL-MATHSTATS::CONFIDENCE)
5705;                          (DECLARE
5706;                           (VALUES CL-MATHSTATS::P-HAT
5707;                                   CL-MATHSTATS::LOWER
5708;                                   CL-MATHSTATS::UPPER))
5709;                          (BLOCK
5710;                              CL-MATHSTATS::CONFIDENCE-INTERVAL-PROPORTION-INTERNAL
5711;                            (LET ((CL-MATHSTATS::P-HAT #)
5712;                                  (CL-MATHSTATS::STANDARD-ERROR #))
5713;                              (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
5714;                               CL-MATHSTATS::P-HAT
5715;                               CL-MATHSTATS::STANDARD-ERROR
5716;                               CL-MATHSTATS::CONFIDENCE))))
5717;
5718; caught STYLE-WARNING:
5719;   undefined type: CL-MATHSTATS::P-HAT
5720
5721;
5722; caught STYLE-WARNING:
5723;   2 more uses of undefined type CL-MATHSTATS::P-HAT
5724
5725
5726; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
5727; in: DEFUN CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
5728;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
5729;          (CL-MATHSTATS::A CL-MATHSTATS::B CL-MATHSTATS::C CL-MATHSTATS::D
5730;           &OPTIONAL (CL-MATHSTATS::YATES T))
5731;     "Runs a chi-square test for association on a simple 2 x 2 table.  If `yates'
5732; is nil, the correction for continuity is not done; default is t.
5733;
5734; Returns the chi-square statistic and the significance of the value."
5735;     (DECLARE (VALUES CL-MATHSTATS::CHI2 CL-MATHSTATS::P-VALUE))
5736;     (CHECK-TYPE CL-MATHSTATS::A INTEGER)
5737;     (CHECK-TYPE CL-MATHSTATS::B INTEGER)
5738;     (CHECK-TYPE CL-MATHSTATS::C INTEGER)
5739;     (CHECK-TYPE CL-MATHSTATS::D INTEGER)
5740;     (LET ((CL-MATHSTATS::N
5741;            (+ CL-MATHSTATS::A CL-MATHSTATS::B CL-MATHSTATS::C CL-MATHSTATS::D))
5742;           (CL-MATHSTATS::DENOM (* # # # #))
5743;           (CL-MATHSTATS::NUMER (- # #)))
5744;       (WHEN CL-MATHSTATS::YATES (SETF CL-MATHSTATS::NUMER (- # #)))
5745;       (SETF CL-MATHSTATS::NUMER
5746;               (* CL-MATHSTATS::N (CL-MATHSTATS:SQUARE CL-MATHSTATS::NUMER)))
5747;       (LET* ((CL-MATHSTATS::CHI2 #) (CL-MATHSTATS::P-VALUE #))
5748;         (VALUES CL-MATHSTATS::CHI2 CL-MATHSTATS::P-VALUE))))
5749; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5750; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
5751; --> IF NOT IF TYPEP
5752; ==>
5753;   (SB-KERNEL:%TYPEP #:G2280 'CL-MATHSTATS::P-VALUE)
5754;
5755; caught STYLE-WARNING:
5756;   undefined type: CL-MATHSTATS::P-VALUE
5757
5758; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5759; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
5760; --> IF NOT IF
5761; ==>
5762;   (TYPEP #:G2280 'CL-MATHSTATS::P-VALUE)
5763;
5764; caught STYLE-WARNING:
5765;   undefined type: CL-MATHSTATS::P-VALUE
5766
5767; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5768; ==>
5769;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
5770;                          (CL-MATHSTATS::A CL-MATHSTATS::B
5771;                                           CL-MATHSTATS::C
5772;                                           CL-MATHSTATS::D
5773;                                           &OPTIONAL
5774;                                           (CL-MATHSTATS::YATES T))
5775;                          (DECLARE
5776;                           (VALUES CL-MATHSTATS::CHI2 CL-MATHSTATS::P-VALUE))
5777;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS
5778;                            (CHECK-TYPE CL-MATHSTATS::A INTEGER)
5779;                            (CHECK-TYPE CL-MATHSTATS::B INTEGER)
5780;                            (CHECK-TYPE CL-MATHSTATS::C INTEGER)
5781;                            (CHECK-TYPE CL-MATHSTATS::D INTEGER)
5782;                            (LET ((CL-MATHSTATS::N #)
5783;                                  (CL-MATHSTATS::DENOM #)
5784;                                  (CL-MATHSTATS::NUMER #))
5785;                              (WHEN CL-MATHSTATS::YATES
5786;                                (SETF CL-MATHSTATS::NUMER #))
5787;                              (SETF CL-MATHSTATS::NUMER (* CL-MATHSTATS::N #))
5788;                              (LET* (# #)
5789;                                (VALUES CL-MATHSTATS::CHI2
5790;                                        CL-MATHSTATS::P-VALUE)))))
5791;
5792; caught STYLE-WARNING:
5793;   undefined type: CL-MATHSTATS::P-VALUE
5794
5795;
5796; caught STYLE-WARNING:
5797;   9 more uses of undefined type CL-MATHSTATS::P-VALUE
5798
5799
5800; file: /Users/gwking/darcs/metatilities/dev/utilities/utilities.lisp
5801; in: DEFUN METABANG.UTILITIES:ADD-CLASS-IF-NECESSARY
5802;     (METABANG.UTILITIES:PUSH-END METABANG.UTILITIES::SUPERCLASS-NAME
5803;                                METABANG.UTILITIES::CLASS-LIST)
5804;
5805; caught STYLE-WARNING:
5806;   undefined function: METABANG.UTILITIES:PUSH-END
5807
5808
5809; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
5810; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
5811;     (DEFUN CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
5812;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
5813;     "Performs linear regression of the dependent variable, `dv,' on multiple
5814; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
5815; regression coefficient.  Calculates the F statistic, intercept and the
5816; correlation coefficient for Y on X's."
5817;     (DECLARE
5818;      (VALUES CL-MATHSTATS::INTERCEPT
5819;              CL-MATHSTATS::COEFFICIENTS
5820;              CL-MATHSTATS::R-LIST
5821;              CL-MATHSTATS::T-BS
5822;              CL-MATHSTATS::BETAS
5823;              CL-MATHSTATS::R-SQUARE
5824;              CL-MATHSTATS::F
5825;              CL-MATHSTATS::SS-REG-LIST
5826;              CL-MATHSTATS::SS-PERCENT-LIST
5827;              CL-MATHSTATS::SS-REG
5828;              CL-MATHSTATS::SS-RES
5829;              ...))
5830;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
5831;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
5832;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
5833;            (CL-MATHSTATS::X-0
5834;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
5835;            (CL-MATHSTATS::ITEM-LIST NIL))
5836;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
5837;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
5838;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
5839;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
5840;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
5841;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
5842;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
5843;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
5844;              (CL-MATHSTATS::Z-MAT #)
5845;              (CL-MATHSTATS::Z-TRANS-Z #)
5846;              (CL-MATHSTATS::X-DIM #)
5847;              (CL-MATHSTATS::X-TRANS-X #)
5848;              (CL-MATHSTATS::X-TRANS-Y #)
5849;              (CL-MATHSTATS::Y-TRANS-Y #))
5850;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
5851;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
5852;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
5853;                 (AREF CL-MATHSTATS::Z-TRANS-Z
5854;                       CL-MATHSTATS::X-DIM
5855;                       CL-MATHSTATS::X-DIM))
5856;         (LET (#)
5857;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
5858;           (LET* #
5859;             #
5860;             #
5861;             #
5862;             #)))))
5863; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5864; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
5865; --> IF NOT IF TYPEP
5866; ==>
5867;   (SB-KERNEL:%TYPEP #:G571 'CL-MATHSTATS::R-LIST)
5868;
5869; caught STYLE-WARNING:
5870;   undefined type: CL-MATHSTATS::R-LIST
5871
5872; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5873; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
5874; --> IF NOT IF
5875; ==>
5876;   (TYPEP #:G571 'CL-MATHSTATS::R-LIST)
5877;
5878; caught STYLE-WARNING:
5879;   undefined type: CL-MATHSTATS::R-LIST
5880
5881; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5882; ==>
5883;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
5884;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
5885;                          (DECLARE
5886;                           (VALUES CL-MATHSTATS::INTERCEPT
5887;                                   CL-MATHSTATS::COEFFICIENTS
5888;                                   CL-MATHSTATS::R-LIST
5889;                                   CL-MATHSTATS::T-BS
5890;                                   CL-MATHSTATS::BETAS
5891;                                   CL-MATHSTATS::R-SQUARE
5892;                                   CL-MATHSTATS::F
5893;                                   CL-MATHSTATS::SS-REG-LIST
5894;                                   CL-MATHSTATS::SS-PERCENT-LIST
5895;                                   CL-MATHSTATS::SS-REG
5896;                                   CL-MATHSTATS::SS-RES
5897;                                   ...))
5898;                          (BLOCK CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
5899;                            (LET* ((CL-MATHSTATS::NUM-X #)
5900;                                   (CL-MATHSTATS::ROWS #)
5901;                                   (CL-MATHSTATS::COLS #)
5902;                                   (CL-MATHSTATS::X-0 #)
5903;                                   (CL-MATHSTATS::ITEM-LIST NIL))
5904;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
5905;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
5906;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
5907;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
5908;                                (WHEN # #)
5909;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
5910;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
5911;                              (LET* (# # # # # # #)
5912;                                (DOTIMES # #)
5913;                                (DOTIMES # #)
5914;                                (SETF # #)
5915;                                (LET #
5916;                                  #
5917;                                  #)))))
5918;
5919; caught STYLE-WARNING:
5920;   undefined type: CL-MATHSTATS::R-LIST
5921
5922;
5923; caught STYLE-WARNING:
5924;   2 more uses of undefined type CL-MATHSTATS::R-LIST
5925
5926
5927; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
5928; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
5929;     (DEFUN CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
5930;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
5931;     "Performs linear regression of the dependent variable, `dv,' on multiple
5932; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
5933; regression coefficient.  Calculates the F statistic, intercept and the
5934; correlation coefficient for Y on X's."
5935;     (DECLARE
5936;      (VALUES CL-MATHSTATS::INTERCEPT
5937;              CL-MATHSTATS::COEFFICIENTS
5938;              CL-MATHSTATS::R-LIST
5939;              CL-MATHSTATS::T-BS
5940;              CL-MATHSTATS::BETAS
5941;              CL-MATHSTATS::R-SQUARE
5942;              CL-MATHSTATS::F
5943;              CL-MATHSTATS::SS-REG-LIST
5944;              CL-MATHSTATS::SS-PERCENT-LIST
5945;              CL-MATHSTATS::SS-REG
5946;              CL-MATHSTATS::SS-RES
5947;              ...))
5948;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
5949;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
5950;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
5951;            (CL-MATHSTATS::X-0
5952;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
5953;            (CL-MATHSTATS::ITEM-LIST NIL))
5954;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
5955;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
5956;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
5957;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
5958;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
5959;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
5960;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
5961;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
5962;              (CL-MATHSTATS::Z-MAT #)
5963;              (CL-MATHSTATS::Z-TRANS-Z #)
5964;              (CL-MATHSTATS::X-DIM #)
5965;              (CL-MATHSTATS::X-TRANS-X #)
5966;              (CL-MATHSTATS::X-TRANS-Y #)
5967;              (CL-MATHSTATS::Y-TRANS-Y #))
5968;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
5969;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
5970;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
5971;                 (AREF CL-MATHSTATS::Z-TRANS-Z
5972;                       CL-MATHSTATS::X-DIM
5973;                       CL-MATHSTATS::X-DIM))
5974;         (LET (#)
5975;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
5976;           (LET* #
5977;             #
5978;             #
5979;             #
5980;             #)))))
5981; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5982; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
5983; --> IF NOT IF TYPEP
5984; ==>
5985;   (SB-KERNEL:%TYPEP #:G574 'CL-MATHSTATS::R-SQUARE)
5986;
5987; caught STYLE-WARNING:
5988;   undefined type: CL-MATHSTATS::R-SQUARE
5989
5990; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
5991; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
5992; --> IF NOT IF
5993; ==>
5994;   (TYPEP #:G574 'CL-MATHSTATS::R-SQUARE)
5995;
5996; caught STYLE-WARNING:
5997;   undefined type: CL-MATHSTATS::R-SQUARE
5998
5999; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6000; ==>
6001;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6002;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
6003;                          (DECLARE
6004;                           (VALUES CL-MATHSTATS::INTERCEPT
6005;                                   CL-MATHSTATS::COEFFICIENTS
6006;                                   CL-MATHSTATS::R-LIST
6007;                                   CL-MATHSTATS::T-BS
6008;                                   CL-MATHSTATS::BETAS
6009;                                   CL-MATHSTATS::R-SQUARE
6010;                                   CL-MATHSTATS::F
6011;                                   CL-MATHSTATS::SS-REG-LIST
6012;                                   CL-MATHSTATS::SS-PERCENT-LIST
6013;                                   CL-MATHSTATS::SS-REG
6014;                                   CL-MATHSTATS::SS-RES
6015;                                   ...))
6016;                          (BLOCK CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6017;                            (LET* ((CL-MATHSTATS::NUM-X #)
6018;                                   (CL-MATHSTATS::ROWS #)
6019;                                   (CL-MATHSTATS::COLS #)
6020;                                   (CL-MATHSTATS::X-0 #)
6021;                                   (CL-MATHSTATS::ITEM-LIST NIL))
6022;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
6023;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
6024;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
6025;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
6026;                                (WHEN # #)
6027;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
6028;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
6029;                              (LET* (# # # # # # #)
6030;                                (DOTIMES # #)
6031;                                (DOTIMES # #)
6032;                                (SETF # #)
6033;                                (LET #
6034;                                  #
6035;                                  #)))))
6036;
6037; caught STYLE-WARNING:
6038;   undefined type: CL-MATHSTATS::R-SQUARE
6039
6040;
6041; caught STYLE-WARNING:
6042;   2 more uses of undefined type CL-MATHSTATS::R-SQUARE
6043
6044
6045; file: /Users/gwking/darcs/cl-containers/dev/containers-readtable.lisp
6046; in: SET-MACRO-CHARACTER #\[
6047;     (METABANG.CL-CONTAINERS::READ-CONTAINER-ELEMENT STREAM #\])
6048;
6049; caught STYLE-WARNING:
6050;   undefined function: METABANG.CL-CONTAINERS::READ-CONTAINER-ELEMENT
6051
6052
6053; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
6054; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:T-TEST-ONE-SAMPLE
6055;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::T-TEST-ONE-SAMPLE
6056;                                   (CL-MATHSTATS::T-SIGNIFICANCE)
6057;                                   NIL
6058;                                   NIL
6059;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
6060;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
6061;                                                       &OPTIONAL
6062;                                                       (CL-MATHSTATS::H0-MEAN 0)
6063;                                                       &REST
6064;                                                       CL-MATHSTATS::STANDARD-ARGS
6065;                                                       &KEY
6066;                                                       CL-MATHSTATS::START
6067;                                                       CL-MATHSTATS::END
6068;                                                       CL-MATHSTATS::KEY)
6069;                                   "Returns the t-statistic for the mean of the data, which should be a sequence
6070; of numbers.  Let D be the sample mean.  The null hypothesis is that D equals the
6071; `H0-mean.' The alternative hypothesis is specified by `tails': `:both' means D
6072; /= H0-mean, `:positive' means D > H0-mean, and `:negative' means D < H0-mean.
6073;
6074; The function also returns the significance, the standard error, and the degrees
6075; of freedom.  Signals `zero-variance' if that condition occurs.  Signals
6076; `insufficient-data' unless there are at least two elements in the sample."
6077;                                   (DECLARE
6078;                                    (IGNORE CL-MATHSTATS::START
6079;                                            CL-MATHSTATS::END
6080;                                            CL-MATHSTATS::KEY)
6081;                                    (VALUES CL-MATHSTATS::T-STATISTIC
6082;                                            CL-MATHSTATS::SIGNIFICANCE
6083;                                            CL-MATHSTATS::SAMPLE-ERROR
6084;                                            CL-MATHSTATS::DOF))
6085;                                   (LET ((CL-MATHSTATS::N
6086;                                          (APPLY #'CL-MATHSTATS::DATA-LENGTH
6087;                                                 CL-MATHSTATS::DATA
6088;                                                 CL-MATHSTATS::STANDARD-ARGS)))
6089;                                     (WHEN (ZEROP CL-MATHSTATS::N)
6090;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
6091;                                     (LET ((CL-MATHSTATS::D #)
6092;                                           (CL-MATHSTATS::V #))
6093;                                       (WHEN (ZEROP CL-MATHSTATS::V)
6094;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
6095;                                       (LET* (# # #)
6096;                                         (VALUES CL-MATHSTATS::TT
6097;                                                 CL-MATHSTATS::SIG
6098;                                                 CL-MATHSTATS::SE
6099;                                                 #)))))
6100; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
6101; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
6102; --> FUNCTION UNLESS COND IF NOT IF TYPEP
6103; ==>
6104;   (SB-KERNEL:%TYPEP #:G1387 'CL-MATHSTATS::SAMPLE-ERROR)
6105;
6106; caught STYLE-WARNING:
6107;   undefined type: CL-MATHSTATS::SAMPLE-ERROR
6108
6109; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
6110; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
6111; --> FUNCTION UNLESS COND IF NOT IF
6112; ==>
6113;   (TYPEP #:G1387 'CL-MATHSTATS::SAMPLE-ERROR)
6114;
6115; caught STYLE-WARNING:
6116;   undefined type: CL-MATHSTATS::SAMPLE-ERROR
6117
6118; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
6119; --> SB-INT:NAMED-LAMBDA
6120; ==>
6121;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
6122;                          (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
6123;                                              &OPTIONAL
6124;                                              (CL-MATHSTATS::H0-MEAN 0)
6125;                                              &REST
6126;                                              CL-MATHSTATS::STANDARD-ARGS
6127;                                              &KEY
6128;                                              CL-MATHSTATS::START
6129;                                              CL-MATHSTATS::END
6130;                                              CL-MATHSTATS::KEY)
6131;                          (DECLARE
6132;                           (IGNORE CL-MATHSTATS::START
6133;                                   CL-MATHSTATS::END
6134;                                   CL-MATHSTATS::KEY)
6135;                           (VALUES CL-MATHSTATS::T-STATISTIC
6136;                                   CL-MATHSTATS::SIGNIFICANCE
6137;                                   CL-MATHSTATS::SAMPLE-ERROR
6138;                                   CL-MATHSTATS::DOF))
6139;                          (BLOCK CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
6140;                            (LET ((CL-MATHSTATS::N #))
6141;                              (WHEN (ZEROP CL-MATHSTATS::N)
6142;                                (ERROR 'CL-MATHSTATS::NO-DATA))
6143;                              (LET (# #)
6144;                                (WHEN # #)
6145;                                (LET* #
6146;                                  #)))))
6147;
6148; caught STYLE-WARNING:
6149;   undefined type: CL-MATHSTATS::SAMPLE-ERROR
6150
6151;
6152; caught STYLE-WARNING:
6153;   2 more uses of undefined type CL-MATHSTATS::SAMPLE-ERROR
6154
6155
6156; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
6157; in: DEFUN CL-MATHSTATS:LINEAR-REGRESSION-MINIMAL-SUMMARIES
6158;     (DEFUN CL-MATHSTATS::LINEAR-REGRESSION-MINIMAL-SUMMARIES
6159;          (CL-MATHSTATS::N CL-MATHSTATS::X CL-MATHSTATS::Y CL-MATHSTATS::X2
6160;           CL-MATHSTATS::Y2 CL-MATHSTATS::XY)
6161;     "Calculates the slope and intercept of the regression line.  This function
6162; differs from `linear-regression-minimal' in that it takes summary statistics:
6163; `x' and `y' are the sums of the independent variable and dependent variables,
6164; respectively; `x2' and `y2' are the sums of the squares of the independent
6165; variable and dependent variables, respectively; and `xy' is the sum of the
6166; products of the independent and dependent variables.
6167;
6168; You should first look at your data with a scatter plot to see if a linear model
6169; is plausible.  See the manual for a fuller explanation of linear regression
6170; statistics."
6171;     (DECLARE (VALUES CL-MATHSTATS::SLOPE CL-MATHSTATS::INTERCEPT)
6172;              (IGNORE CL-MATHSTATS::Y2))
6173;     (LET ((CL-MATHSTATS::NSSX (- # #)) (CL-MATHSTATS::NSSXY (- # #)))
6174;       (WHEN (ZEROP CL-MATHSTATS::NSSX) (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
6175;       (LET* ((CL-MATHSTATS::SLOPE #) (CL-MATHSTATS::INTERCEPT #))
6176;         (VALUES CL-MATHSTATS::SLOPE CL-MATHSTATS::INTERCEPT))))
6177; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6178; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6179; --> IF NOT IF TYPEP
6180; ==>
6181;   (SB-KERNEL:%TYPEP #:G180 'CL-MATHSTATS::SLOPE)
6182;
6183; caught STYLE-WARNING:
6184;   undefined type: CL-MATHSTATS::SLOPE
6185
6186; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6187; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6188; --> IF NOT IF
6189; ==>
6190;   (TYPEP #:G180 'CL-MATHSTATS::SLOPE)
6191;
6192; caught STYLE-WARNING:
6193;   undefined type: CL-MATHSTATS::SLOPE
6194
6195; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6196; ==>
6197;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::LINEAR-REGRESSION-MINIMAL-SUMMARIES
6198;                          (CL-MATHSTATS::N CL-MATHSTATS::X
6199;                                           CL-MATHSTATS::Y
6200;                                           CL-MATHSTATS::X2
6201;                                           CL-MATHSTATS::Y2
6202;                                           CL-MATHSTATS::XY)
6203;                          (DECLARE
6204;                           (VALUES CL-MATHSTATS::SLOPE CL-MATHSTATS::INTERCEPT)
6205;                           (IGNORE CL-MATHSTATS::Y2))
6206;                          (BLOCK
6207;                              CL-MATHSTATS::LINEAR-REGRESSION-MINIMAL-SUMMARIES
6208;                            (LET ((CL-MATHSTATS::NSSX #) (CL-MATHSTATS::NSSXY #))
6209;                              (WHEN (ZEROP CL-MATHSTATS::NSSX)
6210;                                (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
6211;                              (LET* (# #)
6212;                                (VALUES CL-MATHSTATS::SLOPE
6213;                                        CL-MATHSTATS::INTERCEPT)))))
6214;
6215; caught STYLE-WARNING:
6216;   undefined type: CL-MATHSTATS::SLOPE
6217
6218;
6219; caught STYLE-WARNING:
6220;   12 more uses of undefined type CL-MATHSTATS::SLOPE
6221
6222
6223; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
6224; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
6225;     (DEFUN CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6226;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
6227;     "Performs linear regression of the dependent variable, `dv,' on multiple
6228; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
6229; regression coefficient.  Calculates the F statistic, intercept and the
6230; correlation coefficient for Y on X's."
6231;     (DECLARE
6232;      (VALUES CL-MATHSTATS::INTERCEPT
6233;              CL-MATHSTATS::COEFFICIENTS
6234;              CL-MATHSTATS::R-LIST
6235;              CL-MATHSTATS::T-BS
6236;              CL-MATHSTATS::BETAS
6237;              CL-MATHSTATS::R-SQUARE
6238;              CL-MATHSTATS::F
6239;              CL-MATHSTATS::SS-REG-LIST
6240;              CL-MATHSTATS::SS-PERCENT-LIST
6241;              CL-MATHSTATS::SS-REG
6242;              CL-MATHSTATS::SS-RES
6243;              ...))
6244;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
6245;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
6246;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
6247;            (CL-MATHSTATS::X-0
6248;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
6249;            (CL-MATHSTATS::ITEM-LIST NIL))
6250;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
6251;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
6252;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
6253;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
6254;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
6255;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
6256;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
6257;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
6258;              (CL-MATHSTATS::Z-MAT #)
6259;              (CL-MATHSTATS::Z-TRANS-Z #)
6260;              (CL-MATHSTATS::X-DIM #)
6261;              (CL-MATHSTATS::X-TRANS-X #)
6262;              (CL-MATHSTATS::X-TRANS-Y #)
6263;              (CL-MATHSTATS::Y-TRANS-Y #))
6264;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
6265;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
6266;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
6267;                 (AREF CL-MATHSTATS::Z-TRANS-Z
6268;                       CL-MATHSTATS::X-DIM
6269;                       CL-MATHSTATS::X-DIM))
6270;         (LET (#)
6271;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
6272;           (LET* #
6273;             #
6274;             #
6275;             #
6276;             #)))))
6277; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6278; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6279; --> IF NOT IF TYPEP
6280; ==>
6281;   (SB-KERNEL:%TYPEP #:G577 'CL-MATHSTATS::SS-PERCENT-LIST)
6282;
6283; caught STYLE-WARNING:
6284;   undefined type: CL-MATHSTATS::SS-PERCENT-LIST
6285
6286; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6287; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6288; --> IF NOT IF
6289; ==>
6290;   (TYPEP #:G577 'CL-MATHSTATS::SS-PERCENT-LIST)
6291;
6292; caught STYLE-WARNING:
6293;   undefined type: CL-MATHSTATS::SS-PERCENT-LIST
6294
6295; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6296; ==>
6297;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6298;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
6299;                          (DECLARE
6300;                           (VALUES CL-MATHSTATS::INTERCEPT
6301;                                   CL-MATHSTATS::COEFFICIENTS
6302;                                   CL-MATHSTATS::R-LIST
6303;                                   CL-MATHSTATS::T-BS
6304;                                   CL-MATHSTATS::BETAS
6305;                                   CL-MATHSTATS::R-SQUARE
6306;                                   CL-MATHSTATS::F
6307;                                   CL-MATHSTATS::SS-REG-LIST
6308;                                   CL-MATHSTATS::SS-PERCENT-LIST
6309;                                   CL-MATHSTATS::SS-REG
6310;                                   CL-MATHSTATS::SS-RES
6311;                                   ...))
6312;                          (BLOCK CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6313;                            (LET* ((CL-MATHSTATS::NUM-X #)
6314;                                   (CL-MATHSTATS::ROWS #)
6315;                                   (CL-MATHSTATS::COLS #)
6316;                                   (CL-MATHSTATS::X-0 #)
6317;                                   (CL-MATHSTATS::ITEM-LIST NIL))
6318;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
6319;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
6320;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
6321;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
6322;                                (WHEN # #)
6323;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
6324;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
6325;                              (LET* (# # # # # # #)
6326;                                (DOTIMES # #)
6327;                                (DOTIMES # #)
6328;                                (SETF # #)
6329;                                (LET #
6330;                                  #
6331;                                  #)))))
6332;
6333; caught STYLE-WARNING:
6334;   undefined type: CL-MATHSTATS::SS-PERCENT-LIST
6335
6336;
6337; caught STYLE-WARNING:
6338;   2 more uses of undefined type CL-MATHSTATS::SS-PERCENT-LIST
6339
6340
6341; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
6342; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
6343;     (DEFUN CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6344;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
6345;     "Performs linear regression of the dependent variable, `dv,' on multiple
6346; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
6347; regression coefficient.  Calculates the F statistic, intercept and the
6348; correlation coefficient for Y on X's."
6349;     (DECLARE
6350;      (VALUES CL-MATHSTATS::INTERCEPT
6351;              CL-MATHSTATS::COEFFICIENTS
6352;              CL-MATHSTATS::R-LIST
6353;              CL-MATHSTATS::T-BS
6354;              CL-MATHSTATS::BETAS
6355;              CL-MATHSTATS::R-SQUARE
6356;              CL-MATHSTATS::F
6357;              CL-MATHSTATS::SS-REG-LIST
6358;              CL-MATHSTATS::SS-PERCENT-LIST
6359;              CL-MATHSTATS::SS-REG
6360;              CL-MATHSTATS::SS-RES
6361;              ...))
6362;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
6363;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
6364;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
6365;            (CL-MATHSTATS::X-0
6366;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
6367;            (CL-MATHSTATS::ITEM-LIST NIL))
6368;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
6369;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
6370;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
6371;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
6372;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
6373;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
6374;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
6375;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
6376;              (CL-MATHSTATS::Z-MAT #)
6377;              (CL-MATHSTATS::Z-TRANS-Z #)
6378;              (CL-MATHSTATS::X-DIM #)
6379;              (CL-MATHSTATS::X-TRANS-X #)
6380;              (CL-MATHSTATS::X-TRANS-Y #)
6381;              (CL-MATHSTATS::Y-TRANS-Y #))
6382;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
6383;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
6384;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
6385;                 (AREF CL-MATHSTATS::Z-TRANS-Z
6386;                       CL-MATHSTATS::X-DIM
6387;                       CL-MATHSTATS::X-DIM))
6388;         (LET (#)
6389;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
6390;           (LET* #
6391;             #
6392;             #
6393;             #
6394;             #)))))
6395; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6396; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6397; --> IF NOT IF TYPEP
6398; ==>
6399;   (SB-KERNEL:%TYPEP #:G578 'CL-MATHSTATS::SS-REG)
6400;
6401; caught STYLE-WARNING:
6402;   undefined type: CL-MATHSTATS::SS-REG
6403
6404; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6405; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6406; --> IF NOT IF
6407; ==>
6408;   (TYPEP #:G578 'CL-MATHSTATS::SS-REG)
6409;
6410; caught STYLE-WARNING:
6411;   undefined type: CL-MATHSTATS::SS-REG
6412
6413; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6414; ==>
6415;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6416;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
6417;                          (DECLARE
6418;                           (VALUES CL-MATHSTATS::INTERCEPT
6419;                                   CL-MATHSTATS::COEFFICIENTS
6420;                                   CL-MATHSTATS::R-LIST
6421;                                   CL-MATHSTATS::T-BS
6422;                                   CL-MATHSTATS::BETAS
6423;                                   CL-MATHSTATS::R-SQUARE
6424;                                   CL-MATHSTATS::F
6425;                                   CL-MATHSTATS::SS-REG-LIST
6426;                                   CL-MATHSTATS::SS-PERCENT-LIST
6427;                                   CL-MATHSTATS::SS-REG
6428;                                   CL-MATHSTATS::SS-RES
6429;                                   ...))
6430;                          (BLOCK CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6431;                            (LET* ((CL-MATHSTATS::NUM-X #)
6432;                                   (CL-MATHSTATS::ROWS #)
6433;                                   (CL-MATHSTATS::COLS #)
6434;                                   (CL-MATHSTATS::X-0 #)
6435;                                   (CL-MATHSTATS::ITEM-LIST NIL))
6436;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
6437;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
6438;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
6439;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
6440;                                (WHEN # #)
6441;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
6442;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
6443;                              (LET* (# # # # # # #)
6444;                                (DOTIMES # #)
6445;                                (DOTIMES # #)
6446;                                (SETF # #)
6447;                                (LET #
6448;                                  #
6449;                                  #)))))
6450;
6451; caught STYLE-WARNING:
6452;   undefined type: CL-MATHSTATS::SS-REG
6453
6454;
6455; caught STYLE-WARNING:
6456;   2 more uses of undefined type CL-MATHSTATS::SS-REG
6457
6458
6459; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
6460; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
6461;     (DEFUN CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6462;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
6463;     "Performs linear regression of the dependent variable, `dv,' on multiple
6464; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
6465; regression coefficient.  Calculates the F statistic, intercept and the
6466; correlation coefficient for Y on X's."
6467;     (DECLARE
6468;      (VALUES CL-MATHSTATS::INTERCEPT
6469;              CL-MATHSTATS::COEFFICIENTS
6470;              CL-MATHSTATS::R-LIST
6471;              CL-MATHSTATS::T-BS
6472;              CL-MATHSTATS::BETAS
6473;              CL-MATHSTATS::R-SQUARE
6474;              CL-MATHSTATS::F
6475;              CL-MATHSTATS::SS-REG-LIST
6476;              CL-MATHSTATS::SS-PERCENT-LIST
6477;              CL-MATHSTATS::SS-REG
6478;              CL-MATHSTATS::SS-RES
6479;              ...))
6480;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
6481;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
6482;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
6483;            (CL-MATHSTATS::X-0
6484;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
6485;            (CL-MATHSTATS::ITEM-LIST NIL))
6486;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
6487;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
6488;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
6489;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
6490;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
6491;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
6492;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
6493;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
6494;              (CL-MATHSTATS::Z-MAT #)
6495;              (CL-MATHSTATS::Z-TRANS-Z #)
6496;              (CL-MATHSTATS::X-DIM #)
6497;              (CL-MATHSTATS::X-TRANS-X #)
6498;              (CL-MATHSTATS::X-TRANS-Y #)
6499;              (CL-MATHSTATS::Y-TRANS-Y #))
6500;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
6501;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
6502;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
6503;                 (AREF CL-MATHSTATS::Z-TRANS-Z
6504;                       CL-MATHSTATS::X-DIM
6505;                       CL-MATHSTATS::X-DIM))
6506;         (LET (#)
6507;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
6508;           (LET* #
6509;             #
6510;             #
6511;             #
6512;             #)))))
6513; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6514; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6515; --> IF NOT IF TYPEP
6516; ==>
6517;   (SB-KERNEL:%TYPEP #:G576 'CL-MATHSTATS::SS-REG-LIST)
6518;
6519; caught STYLE-WARNING:
6520;   undefined type: CL-MATHSTATS::SS-REG-LIST
6521
6522; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6523; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6524; --> IF NOT IF
6525; ==>
6526;   (TYPEP #:G576 'CL-MATHSTATS::SS-REG-LIST)
6527;
6528; caught STYLE-WARNING:
6529;   undefined type: CL-MATHSTATS::SS-REG-LIST
6530
6531; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6532; ==>
6533;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6534;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
6535;                          (DECLARE
6536;                           (VALUES CL-MATHSTATS::INTERCEPT
6537;                                   CL-MATHSTATS::COEFFICIENTS
6538;                                   CL-MATHSTATS::R-LIST
6539;                                   CL-MATHSTATS::T-BS
6540;                                   CL-MATHSTATS::BETAS
6541;                                   CL-MATHSTATS::R-SQUARE
6542;                                   CL-MATHSTATS::F
6543;                                   CL-MATHSTATS::SS-REG-LIST
6544;                                   CL-MATHSTATS::SS-PERCENT-LIST
6545;                                   CL-MATHSTATS::SS-REG
6546;                                   CL-MATHSTATS::SS-RES
6547;                                   ...))
6548;                          (BLOCK CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6549;                            (LET* ((CL-MATHSTATS::NUM-X #)
6550;                                   (CL-MATHSTATS::ROWS #)
6551;                                   (CL-MATHSTATS::COLS #)
6552;                                   (CL-MATHSTATS::X-0 #)
6553;                                   (CL-MATHSTATS::ITEM-LIST NIL))
6554;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
6555;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
6556;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
6557;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
6558;                                (WHEN # #)
6559;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
6560;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
6561;                              (LET* (# # # # # # #)
6562;                                (DOTIMES # #)
6563;                                (DOTIMES # #)
6564;                                (SETF # #)
6565;                                (LET #
6566;                                  #
6567;                                  #)))))
6568;
6569; caught STYLE-WARNING:
6570;   undefined type: CL-MATHSTATS::SS-REG-LIST
6571
6572;
6573; caught STYLE-WARNING:
6574;   2 more uses of undefined type CL-MATHSTATS::SS-REG-LIST
6575
6576
6577; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
6578; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
6579;     (DEFUN CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6580;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
6581;     "Performs linear regression of the dependent variable, `dv,' on multiple
6582; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
6583; regression coefficient.  Calculates the F statistic, intercept and the
6584; correlation coefficient for Y on X's."
6585;     (DECLARE
6586;      (VALUES CL-MATHSTATS::INTERCEPT
6587;              CL-MATHSTATS::COEFFICIENTS
6588;              CL-MATHSTATS::R-LIST
6589;              CL-MATHSTATS::T-BS
6590;              CL-MATHSTATS::BETAS
6591;              CL-MATHSTATS::R-SQUARE
6592;              CL-MATHSTATS::F
6593;              CL-MATHSTATS::SS-REG-LIST
6594;              CL-MATHSTATS::SS-PERCENT-LIST
6595;              CL-MATHSTATS::SS-REG
6596;              CL-MATHSTATS::SS-RES
6597;              ...))
6598;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
6599;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
6600;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
6601;            (CL-MATHSTATS::X-0
6602;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
6603;            (CL-MATHSTATS::ITEM-LIST NIL))
6604;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
6605;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
6606;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
6607;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
6608;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
6609;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
6610;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
6611;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
6612;              (CL-MATHSTATS::Z-MAT #)
6613;              (CL-MATHSTATS::Z-TRANS-Z #)
6614;              (CL-MATHSTATS::X-DIM #)
6615;              (CL-MATHSTATS::X-TRANS-X #)
6616;              (CL-MATHSTATS::X-TRANS-Y #)
6617;              (CL-MATHSTATS::Y-TRANS-Y #))
6618;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
6619;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
6620;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
6621;                 (AREF CL-MATHSTATS::Z-TRANS-Z
6622;                       CL-MATHSTATS::X-DIM
6623;                       CL-MATHSTATS::X-DIM))
6624;         (LET (#)
6625;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
6626;           (LET* #
6627;             #
6628;             #
6629;             #
6630;             #)))))
6631; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6632; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6633; --> IF NOT IF TYPEP
6634; ==>
6635;   (SB-KERNEL:%TYPEP #:G579 'CL-MATHSTATS::SS-RES)
6636;
6637; caught STYLE-WARNING:
6638;   undefined type: CL-MATHSTATS::SS-RES
6639
6640; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6641; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6642; --> IF NOT IF
6643; ==>
6644;   (TYPEP #:G579 'CL-MATHSTATS::SS-RES)
6645;
6646; caught STYLE-WARNING:
6647;   undefined type: CL-MATHSTATS::SS-RES
6648
6649; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6650; ==>
6651;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6652;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
6653;                          (DECLARE
6654;                           (VALUES CL-MATHSTATS::INTERCEPT
6655;                                   CL-MATHSTATS::COEFFICIENTS
6656;                                   CL-MATHSTATS::R-LIST
6657;                                   CL-MATHSTATS::T-BS
6658;                                   CL-MATHSTATS::BETAS
6659;                                   CL-MATHSTATS::R-SQUARE
6660;                                   CL-MATHSTATS::F
6661;                                   CL-MATHSTATS::SS-REG-LIST
6662;                                   CL-MATHSTATS::SS-PERCENT-LIST
6663;                                   CL-MATHSTATS::SS-REG
6664;                                   CL-MATHSTATS::SS-RES
6665;                                   ...))
6666;                          (BLOCK CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
6667;                            (LET* ((CL-MATHSTATS::NUM-X #)
6668;                                   (CL-MATHSTATS::ROWS #)
6669;                                   (CL-MATHSTATS::COLS #)
6670;                                   (CL-MATHSTATS::X-0 #)
6671;                                   (CL-MATHSTATS::ITEM-LIST NIL))
6672;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
6673;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
6674;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
6675;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
6676;                                (WHEN # #)
6677;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
6678;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
6679;                              (LET* (# # # # # # #)
6680;                                (DOTIMES # #)
6681;                                (DOTIMES # #)
6682;                                (SETF # #)
6683;                                (LET #
6684;                                  #
6685;                                  #)))))
6686;
6687; caught STYLE-WARNING:
6688;   undefined type: CL-MATHSTATS::SS-RES
6689
6690;
6691; caught STYLE-WARNING:
6692;   2 more uses of undefined type CL-MATHSTATS::SS-RES
6693
6694
6695; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
6696; in: DEFUN CL-MATHSTATS:LINEAR-REGRESSION-VERBOSE-SUMMARIES
6697;     (DEFUN CL-MATHSTATS::LINEAR-REGRESSION-VERBOSE-SUMMARIES
6698;          (CL-MATHSTATS::N CL-MATHSTATS::X CL-MATHSTATS::Y CL-MATHSTATS::X2
6699;           CL-MATHSTATS::Y2 CL-MATHSTATS::XY)
6700;     "Calculates almost every statistic of a linear regression: the slope and
6701; intercept of the line, the standard error on each, the correlation coefficient,
6702; the coefficient of determination, also known as r-square, and an ANOVA table as
6703; described in the manual.
6704;
6705; If you don't need all this information, consider using the ``-brief'' or
6706; ``-minimal'' functions, which do less computation.
6707;
6708; This function differs from `linear-regression-verbose' in that it takes summary
6709; variables: `x' and `y' are the sums of the independent variable and dependent
6710; variables, respectively; `x2' and `y2' are the sums of the squares of the
6711; independent variable and dependent variables, respectively; and `xy' is the sum
6712; of the products of the independent and dependent variables.
6713;
6714; You should first look at your data with a scatter plot to see if a linear model
6715; is plausible.  See the manual for a fuller explanation of linear regression
6716; statistics."
6717;     (DECLARE
6718;      (VALUES CL-MATHSTATS::SLOPE
6719;              CL-MATHSTATS::INTERCEPT
6720;              CL-MATHSTATS::DETERMINATION
6721;              CL-MATHSTATS::CORRELATION
6722;              CL-MATHSTATS::STD-ERR-SLOPE
6723;              CL-MATHSTATS::STD-ERR-INTERCEPT
6724;              CL-MATHSTATS::ANOVA-TABLE))
6725;     (LET ((CL-MATHSTATS::NSSX (- # #))
6726;           (CL-MATHSTATS::NSSY (- # #))
6727;           (CL-MATHSTATS::NSSXY (- # #)))
6728;       (WHEN (OR (ZEROP CL-MATHSTATS::NSSX) (ZEROP CL-MATHSTATS::NSSY))
6729;         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
6730;       (LET* ((CL-MATHSTATS::SLOPE #)
6731;              (CL-MATHSTATS::INTERCEPT #)
6732;              (CL-MATHSTATS::NSSR #)
6733;              (CL-MATHSTATS::NSSE #)
6734;              (CL-MATHSTATS::DETERMINATION #)
6735;              (CL-MATHSTATS::CORRELATION #)
6736;              (CL-MATHSTATS::DOF #)
6737;              (CL-MATHSTATS::STD-ERR-SLOPE #)
6738;              (CL-MATHSTATS::STD-ERR-INTERCEPT NIL)
6739;              (CL-MATHSTATS::F #)
6740;              (CL-MATHSTATS::P-VALUE #)
6741;              (CL-MATHSTATS::SSR #)
6742;              ...)
6743;         (VALUES CL-MATHSTATS::SLOPE
6744;                 CL-MATHSTATS::INTERCEPT
6745;                 CL-MATHSTATS::DETERMINATION
6746;                 CL-MATHSTATS::CORRELATION
6747;                 CL-MATHSTATS::STD-ERR-SLOPE
6748;                 CL-MATHSTATS::STD-ERR-INTERCEPT
6749;                 CL-MATHSTATS::ANOVA-TABLE))))
6750; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6751; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6752; --> IF NOT IF TYPEP
6753; ==>
6754;   (SB-KERNEL:%TYPEP #:G246 'CL-MATHSTATS::STD-ERR-INTERCEPT)
6755;
6756; caught STYLE-WARNING:
6757;   undefined type: CL-MATHSTATS::STD-ERR-INTERCEPT
6758
6759; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6760; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6761; --> IF NOT IF
6762; ==>
6763;   (TYPEP #:G246 'CL-MATHSTATS::STD-ERR-INTERCEPT)
6764;
6765; caught STYLE-WARNING:
6766;   undefined type: CL-MATHSTATS::STD-ERR-INTERCEPT
6767
6768; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6769; ==>
6770;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::LINEAR-REGRESSION-VERBOSE-SUMMARIES
6771;                          (CL-MATHSTATS::N CL-MATHSTATS::X
6772;                                           CL-MATHSTATS::Y
6773;                                           CL-MATHSTATS::X2
6774;                                           CL-MATHSTATS::Y2
6775;                                           CL-MATHSTATS::XY)
6776;                          (DECLARE
6777;                           (VALUES CL-MATHSTATS::SLOPE
6778;                                   CL-MATHSTATS::INTERCEPT
6779;                                   CL-MATHSTATS::DETERMINATION
6780;                                   CL-MATHSTATS::CORRELATION
6781;                                   CL-MATHSTATS::STD-ERR-SLOPE
6782;                                   CL-MATHSTATS::STD-ERR-INTERCEPT
6783;                                   CL-MATHSTATS::ANOVA-TABLE))
6784;                          (BLOCK
6785;                              CL-MATHSTATS::LINEAR-REGRESSION-VERBOSE-SUMMARIES
6786;                            (LET ((CL-MATHSTATS::NSSX #)
6787;                                  (CL-MATHSTATS::NSSY #)
6788;                                  (CL-MATHSTATS::NSSXY #))
6789;                              (WHEN (OR # #)
6790;                                (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
6791;                              (LET* (# # # # # # # # # # # # ...)
6792;                                (VALUES CL-MATHSTATS::SLOPE
6793;                                        CL-MATHSTATS::INTERCEPT
6794;                                        CL-MATHSTATS::DETERMINATION
6795;                                        CL-MATHSTATS::CORRELATION
6796;                                        CL-MATHSTATS::STD-ERR-SLOPE
6797;                                        CL-MATHSTATS::STD-ERR-INTERCEPT
6798;                                        CL-MATHSTATS::ANOVA-TABLE)))))
6799;
6800; caught STYLE-WARNING:
6801;   undefined type: CL-MATHSTATS::STD-ERR-INTERCEPT
6802
6803;
6804; caught STYLE-WARNING:
6805;   2 more uses of undefined type CL-MATHSTATS::STD-ERR-INTERCEPT
6806
6807
6808; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
6809; in: DEFUN CL-MATHSTATS:LINEAR-REGRESSION-BRIEF-SUMMARIES
6810;     (DEFUN CL-MATHSTATS::LINEAR-REGRESSION-BRIEF-SUMMARIES
6811;          (CL-MATHSTATS::N CL-MATHSTATS::X CL-MATHSTATS::Y CL-MATHSTATS::X2
6812;           CL-MATHSTATS::Y2 CL-MATHSTATS::XY)
6813;     "Calculates the main statistics of a linear regression: the slope and
6814; intercept of the line, the coefficient of determination, also known as r-square,
6815; the standard error of the slope, and the p-value for the regression.  This
6816; function differs from `linear-regression-brief' in that it takes summary
6817; variables: `x' and `y' are the sums of the independent variable and dependent
6818; variables, respectively; `x2' and `y2' are the sums of the squares of the
6819; independent variable and dependent variables, respectively; and `xy' is the sum
6820; of the products of the independent and dependent variables.
6821;
6822; You should first look at your data with a scatter plot to see if a linear model
6823; is plausible.  See the manual for a fuller explanation of linear regression
6824; statistics."
6825;     (DECLARE
6826;      (VALUES CL-MATHSTATS::SLOPE
6827;              CL-MATHSTATS::INTERCEPT
6828;              CL-MATHSTATS::DETERMINATION
6829;              CL-MATHSTATS::STD-ERR-SLOPE
6830;              CL-MATHSTATS::P-VALUE))
6831;     (LET ((CL-MATHSTATS::NSSX (- # #))
6832;           (CL-MATHSTATS::NSSY (- # #))
6833;           (CL-MATHSTATS::NSSXY (- # #)))
6834;       (WHEN (OR (ZEROP CL-MATHSTATS::NSSX) (ZEROP CL-MATHSTATS::NSSY))
6835;         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
6836;       (LET* ((CL-MATHSTATS::SLOPE #)
6837;              (CL-MATHSTATS::INTERCEPT #)
6838;              (CL-MATHSTATS::NSSR #)
6839;              (CL-MATHSTATS::NSSE #)
6840;              (CL-MATHSTATS::DETERMINATION #)
6841;              (CL-MATHSTATS::DOF #)
6842;              (CL-MATHSTATS::STD-ERR-SLOPE #)
6843;              (CL-MATHSTATS::P-VALUE #))
6844;         (VALUES CL-MATHSTATS::SLOPE
6845;                 CL-MATHSTATS::INTERCEPT
6846;                 CL-MATHSTATS::DETERMINATION
6847;                 CL-MATHSTATS::STD-ERR-SLOPE
6848;                 CL-MATHSTATS::P-VALUE))))
6849; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6850; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6851; --> IF NOT IF TYPEP
6852; ==>
6853;   (SB-KERNEL:%TYPEP #:G211 'CL-MATHSTATS::STD-ERR-SLOPE)
6854;
6855; caught STYLE-WARNING:
6856;   undefined type: CL-MATHSTATS::STD-ERR-SLOPE
6857
6858; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6859; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
6860; --> IF NOT IF
6861; ==>
6862;   (TYPEP #:G211 'CL-MATHSTATS::STD-ERR-SLOPE)
6863;
6864; caught STYLE-WARNING:
6865;   undefined type: CL-MATHSTATS::STD-ERR-SLOPE
6866
6867; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
6868; ==>
6869;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::LINEAR-REGRESSION-BRIEF-SUMMARIES
6870;                          (CL-MATHSTATS::N CL-MATHSTATS::X
6871;                                           CL-MATHSTATS::Y
6872;                                           CL-MATHSTATS::X2
6873;                                           CL-MATHSTATS::Y2
6874;                                           CL-MATHSTATS::XY)
6875;                          (DECLARE
6876;                           (VALUES CL-MATHSTATS::SLOPE
6877;                                   CL-MATHSTATS::INTERCEPT
6878;                                   CL-MATHSTATS::DETERMINATION
6879;                                   CL-MATHSTATS::STD-ERR-SLOPE
6880;                                   CL-MATHSTATS::P-VALUE))
6881;                          (BLOCK CL-MATHSTATS::LINEAR-REGRESSION-BRIEF-SUMMARIES
6882;                            (LET ((CL-MATHSTATS::NSSX #)
6883;                                  (CL-MATHSTATS::NSSY #)
6884;                                  (CL-MATHSTATS::NSSXY #))
6885;                              (WHEN (OR # #)
6886;                                (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
6887;                              (LET* (# # # # # # # #)
6888;                                (VALUES CL-MATHSTATS::SLOPE
6889;                                        CL-MATHSTATS::INTERCEPT
6890;                                        CL-MATHSTATS::DETERMINATION
6891;                                        CL-MATHSTATS::STD-ERR-SLOPE
6892;                                        CL-MATHSTATS::P-VALUE)))))
6893;
6894; caught STYLE-WARNING:
6895;   undefined type: CL-MATHSTATS::STD-ERR-SLOPE
6896
6897;
6898; caught STYLE-WARNING:
6899;   7 more uses of undefined type CL-MATHSTATS::STD-ERR-SLOPE
6900
6901
6902; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
6903; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:T-TEST
6904;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::T-TEST
6905;                                   (CL-MATHSTATS::T-SIGNIFICANCE)
6906;                                   NIL
6907;                                   NIL
6908;                                   ((CL-MATHSTATS::SAMPLE-1 'SEQUENCE)
6909;                                    (CL-MATHSTATS::SAMPLE-2 'SEQUENCE))
6910;                                   (CL-MATHSTATS::SAMPLE-1
6911;                                    CL-MATHSTATS::SAMPLE-2
6912;                                    &OPTIONAL
6913;                                    (CL-MATHSTATS::TAILS :BOTH)
6914;                                    (CL-MATHSTATS::H0MEAN 0))
6915;                                   "Returns the t-statistic for the difference in the means of two samples, which
6916; should each be a sequence of numbers.  Let D=mean1-mean2.  The null hypothesis
6917; is that D=0.  The alternative hypothesis is specified by `tails': `:both' means
6918; D/=0, `:positive' means D>0, and `:negative' means D<0.  Unless you're using
6919; :both tails, be careful what order the two samples are in: it matters!
6920;
6921; The function also returns the significance, the standard error, and the degrees
6922; of freedom.  Signals `standard-error-is-zero' if that condition occurs.  Signals
6923; `insufficient-data' unless there are at least two elements in each sample."
6924;                                   (DECLARE
6925;                                    (VALUES CL-MATHSTATS::T-STATISTIC
6926;                                            CL-MATHSTATS::SIGNIFICANCE
6927;                                            CL-MATHSTATS::STD-ERROR
6928;                                            CL-MATHSTATS::DOF))
6929;                                   (CHECK-TYPE CL-MATHSTATS::TAILS
6930;                                               (MEMBER :BOTH
6931;                                                       :POSITIVE
6932;                                                       :NEGATIVE))
6933;                                   (LET ((CL-MATHSTATS::N1
6934;                                          (CL-MATHSTATS::DATA-LENGTH
6935;                                           CL-MATHSTATS::SAMPLE-1))
6936;                                         (CL-MATHSTATS::N2
6937;                                          (CL-MATHSTATS::DATA-LENGTH
6938;                                           CL-MATHSTATS::SAMPLE-2)))
6939;                                     (WHEN
6940;                                         (OR (ZEROP CL-MATHSTATS::N1)
6941;                                             (ZEROP CL-MATHSTATS::N2))
6942;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
6943;                                     (WHEN
6944;                                         (OR (< CL-MATHSTATS::N1 2)
6945;                                             (< CL-MATHSTATS::N2 2))
6946;                                       (ERROR 'CL-MATHSTATS::INSUFFICIENT-DATA))
6947;                                     (LET* ((CL-MATHSTATS::MEAN1 #)
6948;                                            (CL-MATHSTATS::MEAN2 #)
6949;                                            (CL-MATHSTATS::SS1 #)
6950;                                            (CL-MATHSTATS::SS2 #)
6951;                                            (CL-MATHSTATS::DOF #)
6952;                                            (CL-MATHSTATS::SP #))
6953;                                       (WHEN (ZEROP CL-MATHSTATS::SP)
6954;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
6955;                                       (LET* (# # #)
6956;                                         (VALUES CL-MATHSTATS::T-STATISTIC
6957;                                                 CL-MATHSTATS::SIGNIFICANCE
6958;                                                 CL-MATHSTATS::STD-ERROR
6959;                                                 CL-MATHSTATS::DOF)))))
6960; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
6961; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
6962; --> FUNCTION UNLESS COND IF NOT IF TYPEP
6963; ==>
6964;   (SB-KERNEL:%TYPEP #:G1447 'CL-MATHSTATS::STD-ERROR)
6965;
6966; caught STYLE-WARNING:
6967;   undefined type: CL-MATHSTATS::STD-ERROR
6968
6969; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
6970; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
6971; --> FUNCTION UNLESS COND IF NOT IF
6972; ==>
6973;   (TYPEP #:G1447 'CL-MATHSTATS::STD-ERROR)
6974;
6975; caught STYLE-WARNING:
6976;   undefined type: CL-MATHSTATS::STD-ERROR
6977
6978; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
6979; --> SB-INT:NAMED-LAMBDA
6980; ==>
6981;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::T-TEST-INTERNAL
6982;                          (CL-MATHSTATS::SAMPLE-1 CL-MATHSTATS::SAMPLE-2
6983;                                                  &OPTIONAL
6984;                                                  (CL-MATHSTATS::TAILS :BOTH)
6985;                                                  (CL-MATHSTATS::H0MEAN 0))
6986;                          (DECLARE
6987;                           (VALUES CL-MATHSTATS::T-STATISTIC
6988;                                   CL-MATHSTATS::SIGNIFICANCE
6989;                                   CL-MATHSTATS::STD-ERROR
6990;                                   CL-MATHSTATS::DOF))
6991;                          (BLOCK CL-MATHSTATS::T-TEST-INTERNAL
6992;                            (CHECK-TYPE CL-MATHSTATS::TAILS
6993;                                        (MEMBER :BOTH :POSITIVE :NEGATIVE))
6994;                            (LET ((CL-MATHSTATS::N1 #) (CL-MATHSTATS::N2 #))
6995;                              (WHEN (OR # #) (ERROR 'CL-MATHSTATS::NO-DATA))
6996;                              (WHEN (OR # #)
6997;                                (ERROR 'CL-MATHSTATS::INSUFFICIENT-DATA))
6998;                              (LET* (# # # # # #)
6999;                                (WHEN # #)
7000;                                (LET* #
7001;                                  #)))))
7002;
7003; caught STYLE-WARNING:
7004;   undefined type: CL-MATHSTATS::STD-ERROR
7005
7006;
7007; caught STYLE-WARNING:
7008;   5 more uses of undefined type CL-MATHSTATS::STD-ERROR
7009
7010
7011; file: /Users/gwking/darcs/cl-mathstats/dev/correlation-regression.lisp
7012; in: DEFUN CL-MATHSTATS:MULTIPLE-LINEAR-REGRESSION-NORMAL
7013;     (DEFUN CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
7014;          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
7015;     "Performs linear regression of the dependent variable, `dv,' on multiple
7016; independent variables, `ivs.' Y on multiple X's, calculating the intercept and
7017; regression coefficient.  Calculates the F statistic, intercept and the
7018; correlation coefficient for Y on X's."
7019;     (DECLARE
7020;      (VALUES CL-MATHSTATS::INTERCEPT
7021;              CL-MATHSTATS::COEFFICIENTS
7022;              CL-MATHSTATS::R-LIST
7023;              CL-MATHSTATS::T-BS
7024;              CL-MATHSTATS::BETAS
7025;              CL-MATHSTATS::R-SQUARE
7026;              CL-MATHSTATS::F
7027;              CL-MATHSTATS::SS-REG-LIST
7028;              CL-MATHSTATS::SS-PERCENT-LIST
7029;              CL-MATHSTATS::SS-REG
7030;              CL-MATHSTATS::SS-RES
7031;              ...))
7032;     (LET* ((CL-MATHSTATS::NUM-X (LENGTH CL-MATHSTATS::IVS))
7033;            (CL-MATHSTATS::ROWS (+ 2 CL-MATHSTATS::NUM-X))
7034;            (CL-MATHSTATS::COLS (LENGTH CL-MATHSTATS::DV))
7035;            (CL-MATHSTATS::X-0
7036;             (MAKE-LIST CL-MATHSTATS::COLS :INITIAL-ELEMENT 1))
7037;            (CL-MATHSTATS::ITEM-LIST NIL))
7038;       (WHEN (MEMBER 'NIL CL-MATHSTATS::DV) (ERROR 'CL-MATHSTATS::MISSING-DATA))
7039;       (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
7040;       (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
7041;         (WHEN (MEMBER 'NIL CL-MATHSTATS::X)
7042;           (ERROR 'CL-MATHSTATS::MISSING-DATA))
7043;         (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
7044;       (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
7045;       (LET* ((CL-MATHSTATS::Z-TRANS-MAT #)
7046;              (CL-MATHSTATS::Z-MAT #)
7047;              (CL-MATHSTATS::Z-TRANS-Z #)
7048;              (CL-MATHSTATS::X-DIM #)
7049;              (CL-MATHSTATS::X-TRANS-X #)
7050;              (CL-MATHSTATS::X-TRANS-Y #)
7051;              (CL-MATHSTATS::Y-TRANS-Y #))
7052;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
7053;         (DOTIMES (CL-MATHSTATS::I #) (DOTIMES # #))
7054;         (SETF (AREF CL-MATHSTATS::Y-TRANS-Y 0 0)
7055;                 (AREF CL-MATHSTATS::Z-TRANS-Z
7056;                       CL-MATHSTATS::X-DIM
7057;                       CL-MATHSTATS::X-DIM))
7058;         (LET (#)
7059;           (UNLESS CL-MATHSTATS::INV-X-T-X #)
7060;           (LET* #
7061;             #
7062;             #
7063;             #
7064;             #)))))
7065; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7066; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
7067; --> IF NOT IF TYPEP
7068; ==>
7069;   (SB-KERNEL:%TYPEP #:G572 'CL-MATHSTATS::T-BS)
7070;
7071; caught STYLE-WARNING:
7072;   undefined type: CL-MATHSTATS::T-BS
7073
7074; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7075; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
7076; --> IF NOT IF
7077; ==>
7078;   (TYPEP #:G572 'CL-MATHSTATS::T-BS)
7079;
7080; caught STYLE-WARNING:
7081;   undefined type: CL-MATHSTATS::T-BS
7082
7083; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7084; ==>
7085;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
7086;                          (CL-MATHSTATS::DV &REST CL-MATHSTATS::IVS)
7087;                          (DECLARE
7088;                           (VALUES CL-MATHSTATS::INTERCEPT
7089;                                   CL-MATHSTATS::COEFFICIENTS
7090;                                   CL-MATHSTATS::R-LIST
7091;                                   CL-MATHSTATS::T-BS
7092;                                   CL-MATHSTATS::BETAS
7093;                                   CL-MATHSTATS::R-SQUARE
7094;                                   CL-MATHSTATS::F
7095;                                   CL-MATHSTATS::SS-REG-LIST
7096;                                   CL-MATHSTATS::SS-PERCENT-LIST
7097;                                   CL-MATHSTATS::SS-REG
7098;                                   CL-MATHSTATS::SS-RES
7099;                                   ...))
7100;                          (BLOCK CL-MATHSTATS::MULTIPLE-LINEAR-REGRESSION-NORMAL
7101;                            (LET* ((CL-MATHSTATS::NUM-X #)
7102;                                   (CL-MATHSTATS::ROWS #)
7103;                                   (CL-MATHSTATS::COLS #)
7104;                                   (CL-MATHSTATS::X-0 #)
7105;                                   (CL-MATHSTATS::ITEM-LIST NIL))
7106;                              (WHEN (MEMBER 'NIL CL-MATHSTATS::DV)
7107;                                (ERROR 'CL-MATHSTATS::MISSING-DATA))
7108;                              (PUSH CL-MATHSTATS::X-0 CL-MATHSTATS::ITEM-LIST)
7109;                              (DOLIST (CL-MATHSTATS::X CL-MATHSTATS::IVS)
7110;                                (WHEN # #)
7111;                                (PUSH CL-MATHSTATS::X CL-MATHSTATS::ITEM-LIST))
7112;                              (PUSH CL-MATHSTATS::DV CL-MATHSTATS::ITEM-LIST)
7113;                              (LET* (# # # # # # #)
7114;                                (DOTIMES # #)
7115;                                (DOTIMES # #)
7116;                                (SETF # #)
7117;                                (LET #
7118;                                  #
7119;                                  #)))))
7120;
7121; caught STYLE-WARNING:
7122;   undefined type: CL-MATHSTATS::T-BS
7123
7124;
7125; caught STYLE-WARNING:
7126;   2 more uses of undefined type CL-MATHSTATS::T-BS
7127
7128
7129; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
7130; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:T-TEST-ONE-SAMPLE
7131;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::T-TEST-ONE-SAMPLE
7132;                                   (CL-MATHSTATS::T-SIGNIFICANCE)
7133;                                   NIL
7134;                                   NIL
7135;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
7136;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
7137;                                                       &OPTIONAL
7138;                                                       (CL-MATHSTATS::H0-MEAN 0)
7139;                                                       &REST
7140;                                                       CL-MATHSTATS::STANDARD-ARGS
7141;                                                       &KEY
7142;                                                       CL-MATHSTATS::START
7143;                                                       CL-MATHSTATS::END
7144;                                                       CL-MATHSTATS::KEY)
7145;                                   "Returns the t-statistic for the mean of the data, which should be a sequence
7146; of numbers.  Let D be the sample mean.  The null hypothesis is that D equals the
7147; `H0-mean.' The alternative hypothesis is specified by `tails': `:both' means D
7148; /= H0-mean, `:positive' means D > H0-mean, and `:negative' means D < H0-mean.
7149;
7150; The function also returns the significance, the standard error, and the degrees
7151; of freedom.  Signals `zero-variance' if that condition occurs.  Signals
7152; `insufficient-data' unless there are at least two elements in the sample."
7153;                                   (DECLARE
7154;                                    (IGNORE CL-MATHSTATS::START
7155;                                            CL-MATHSTATS::END
7156;                                            CL-MATHSTATS::KEY)
7157;                                    (VALUES CL-MATHSTATS::T-STATISTIC
7158;                                            CL-MATHSTATS::SIGNIFICANCE
7159;                                            CL-MATHSTATS::SAMPLE-ERROR
7160;                                            CL-MATHSTATS::DOF))
7161;                                   (LET ((CL-MATHSTATS::N
7162;                                          (APPLY #'CL-MATHSTATS::DATA-LENGTH
7163;                                                 CL-MATHSTATS::DATA
7164;                                                 CL-MATHSTATS::STANDARD-ARGS)))
7165;                                     (WHEN (ZEROP CL-MATHSTATS::N)
7166;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
7167;                                     (LET ((CL-MATHSTATS::D #)
7168;                                           (CL-MATHSTATS::V #))
7169;                                       (WHEN (ZEROP CL-MATHSTATS::V)
7170;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
7171;                                       (LET* (# # #)
7172;                                         (VALUES CL-MATHSTATS::TT
7173;                                                 CL-MATHSTATS::SIG
7174;                                                 CL-MATHSTATS::SE
7175;                                                 #)))))
7176; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
7177; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
7178; --> FUNCTION UNLESS COND IF NOT IF TYPEP
7179; ==>
7180;   (SB-KERNEL:%TYPEP #:G1385 'CL-MATHSTATS::T-STATISTIC)
7181;
7182; caught STYLE-WARNING:
7183;   undefined type: CL-MATHSTATS::T-STATISTIC
7184
7185; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
7186; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
7187; --> FUNCTION UNLESS COND IF NOT IF
7188; ==>
7189;   (TYPEP #:G1385 'CL-MATHSTATS::T-STATISTIC)
7190;
7191; caught STYLE-WARNING:
7192;   undefined type: CL-MATHSTATS::T-STATISTIC
7193
7194; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
7195; --> SB-INT:NAMED-LAMBDA
7196; ==>
7197;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
7198;                          (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
7199;                                              &OPTIONAL
7200;                                              (CL-MATHSTATS::H0-MEAN 0)
7201;                                              &REST
7202;                                              CL-MATHSTATS::STANDARD-ARGS
7203;                                              &KEY
7204;                                              CL-MATHSTATS::START
7205;                                              CL-MATHSTATS::END
7206;                                              CL-MATHSTATS::KEY)
7207;                          (DECLARE
7208;                           (IGNORE CL-MATHSTATS::START
7209;                                   CL-MATHSTATS::END
7210;                                   CL-MATHSTATS::KEY)
7211;                           (VALUES CL-MATHSTATS::T-STATISTIC
7212;                                   CL-MATHSTATS::SIGNIFICANCE
7213;                                   CL-MATHSTATS::SAMPLE-ERROR
7214;                                   CL-MATHSTATS::DOF))
7215;                          (BLOCK CL-MATHSTATS::T-TEST-ONE-SAMPLE-INTERNAL
7216;                            (LET ((CL-MATHSTATS::N #))
7217;                              (WHEN (ZEROP CL-MATHSTATS::N)
7218;                                (ERROR 'CL-MATHSTATS::NO-DATA))
7219;                              (LET (# #)
7220;                                (WHEN # #)
7221;                                (LET* #
7222;                                  #)))))
7223;
7224; caught STYLE-WARNING:
7225;   undefined type: CL-MATHSTATS::T-STATISTIC
7226
7227;
7228; caught STYLE-WARNING:
7229;   7 more uses of undefined type CL-MATHSTATS::T-STATISTIC
7230
7231
7232; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
7233; in: DEFUN CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7234;     (DEFUN CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7235;          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
7236;     "Counts each unique combination of an element of `v1' and an element of `v2.'
7237; Returns a two-dimensional table of integers."
7238;     (DECLARE
7239;      (VALUES CL-MATHSTATS::TABLE
7240;              CL-MATHSTATS::V1-VALUES
7241;              CL-MATHSTATS::V2-VALUES))
7242;     (LET ((CL-MATHSTATS::N (LENGTH CL-MATHSTATS::V1)))
7243;       (WHEN (/= CL-MATHSTATS::N (LENGTH CL-MATHSTATS::V2))
7244;         (ERROR 'CL-MATHSTATS::UNMATCHED-SEQUENCES))
7245;       (LET ((CL-MATHSTATS::V1-VALUES #) (CL-MATHSTATS::V2-VALUES #))
7246;         (WHEN (OR # #)
7247;           (CERROR "Make it anyway"
7248;                   'CL-MATHSTATS::ENORMOUS-CONTINGENCY-TABLE
7249;                   :SIZE-OF-TABLE
7250;                   #))
7251;         (LET (#)
7252;           (MAP NIL #'# CL-MATHSTATS::V1 CL-MATHSTATS::V2)
7253;           (VALUES CL-MATHSTATS::TABLE
7254;                   CL-MATHSTATS::V1-VALUES
7255;                   CL-MATHSTATS::V2-VALUES)))))
7256; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7257; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
7258; --> IF NOT IF TYPEP
7259; ==>
7260;   (SB-KERNEL:%TYPEP #:G2449 'CL-MATHSTATS::TABLE)
7261;
7262; caught STYLE-WARNING:
7263;   undefined type: CL-MATHSTATS::TABLE
7264
7265; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7266; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
7267; --> IF NOT IF
7268; ==>
7269;   (TYPEP #:G2449 'CL-MATHSTATS::TABLE)
7270;
7271; caught STYLE-WARNING:
7272;   undefined type: CL-MATHSTATS::TABLE
7273
7274; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7275; ==>
7276;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7277;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
7278;                          (DECLARE
7279;                           (VALUES CL-MATHSTATS::TABLE
7280;                                   CL-MATHSTATS::V1-VALUES
7281;                                   CL-MATHSTATS::V2-VALUES))
7282;                          (BLOCK CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7283;                            (LET ((CL-MATHSTATS::N #))
7284;                              (WHEN (/= CL-MATHSTATS::N #)
7285;                                (ERROR 'CL-MATHSTATS::UNMATCHED-SEQUENCES))
7286;                              (LET (# #)
7287;                                (WHEN # #)
7288;                                (LET #
7289;                                  #
7290;                                  #)))))
7291;
7292; caught STYLE-WARNING:
7293;   undefined type: CL-MATHSTATS::TABLE
7294
7295;
7296; caught STYLE-WARNING:
7297;   2 more uses of undefined type CL-MATHSTATS::TABLE
7298
7299
7300; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
7301; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:TUKEY-SUMMARY
7302;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::TUKEY-SUMMARY
7303;                                   NIL
7304;                                   ((CL-MATHSTATS::MINIMUM)
7305;                                    (CL-MATHSTATS::FIRST-QUARTILE)
7306;                                    (CL-MATHSTATS::MEDIAN)
7307;                                    (CL-MATHSTATS::THIRD-QUARTILE)
7308;                                    (CL-MATHSTATS::MAXIMUM))
7309;                                   NIL
7310;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
7311;                                   (CL-MATHSTATS::DATA &REST
7312;                                                       CL-MATHSTATS::STANDARD-ARGS
7313;                                                       &KEY
7314;                                                       CL-MATHSTATS::START
7315;                                                       CL-MATHSTATS::END
7316;                                                       CL-MATHSTATS::KEY)
7317;                                   "Computes a Tukey five-number summary of the data.  That is, it returns, in
7318; increasing order, the extremes and the quartiles: the minimum, the 1/4 quartile,
7319; the median, the 3/4 quartile, and the maximum."
7320;                                   (DECLARE
7321;                                    (VALUES CL-MATHSTATS::MINIMUM
7322;                                            CL-MATHSTATS::FIRST-QUARTILE
7323;                                            CL-MATHSTATS::MEDIAN
7324;                                            CL-MATHSTATS::THIRD-QUARTILE
7325;                                            CL-MATHSTATS::MAXIMUM))
7326;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
7327;                                   (LET* ((CL-MATHSTATS::N
7328;                                           (APPLY #'CL-MATHSTATS::DATA-LENGTH
7329;                                                  CL-MATHSTATS::DATA
7330;                                                  CL-MATHSTATS::STANDARD-ARGS))
7331;                                          (CL-MATHSTATS::START2
7332;                                           (OR CL-MATHSTATS::START 0))
7333;                                          (CL-MATHSTATS::END2
7334;                                           (OR CL-MATHSTATS::END #)))
7335;                                     (WHEN (ZEROP CL-MATHSTATS::N)
7336;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
7337;                                     (CL-MATHSTATS::WITH-TEMP-VECTOR
7338;                                      (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
7339;                                      (REPLACE CL-MATHSTATS::TEMP
7340;                                               CL-MATHSTATS::DATA
7341;                                               :END1
7342;                                               CL-MATHSTATS::N
7343;                                               :START2
7344;                                               CL-MATHSTATS::START2
7345;                                               :END2
7346;                                               CL-MATHSTATS::END2)
7347;                                      (IF (NULL CL-MATHSTATS::KEY)
7348;                                          (SORT CL-MATHSTATS::TEMP #'<)
7349;                                          (SORT CL-MATHSTATS::TEMP
7350;                                                #'<
7351;                                                :KEY
7352;                                                CL-MATHSTATS::KEY))
7353;                                      (FLET (#)
7354;                                        (VALUES # # # # #)))))
7355; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
7356; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
7357; --> FUNCTION UNLESS COND IF NOT IF TYPEP
7358; ==>
7359;   (SB-KERNEL:%TYPEP #:G1220 'CL-MATHSTATS::THIRD-QUARTILE)
7360;
7361; caught STYLE-WARNING:
7362;   undefined type: CL-MATHSTATS::THIRD-QUARTILE
7363
7364; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
7365; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
7366; --> FUNCTION UNLESS COND IF NOT IF
7367; ==>
7368;   (TYPEP #:G1220 'CL-MATHSTATS::THIRD-QUARTILE)
7369;
7370; caught STYLE-WARNING:
7371;   undefined type: CL-MATHSTATS::THIRD-QUARTILE
7372
7373; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
7374; --> SB-INT:NAMED-LAMBDA
7375; ==>
7376;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::TUKEY-SUMMARY-INTERNAL
7377;                          (CL-MATHSTATS::DATA &REST
7378;                                              CL-MATHSTATS::STANDARD-ARGS
7379;                                              &KEY
7380;                                              CL-MATHSTATS::START
7381;                                              CL-MATHSTATS::END
7382;                                              CL-MATHSTATS::KEY)
7383;                          (DECLARE
7384;                           (VALUES CL-MATHSTATS::MINIMUM
7385;                                   CL-MATHSTATS::FIRST-QUARTILE
7386;                                   CL-MATHSTATS::MEDIAN
7387;                                   CL-MATHSTATS::THIRD-QUARTILE
7388;                                   CL-MATHSTATS::MAXIMUM))
7389;                          (BLOCK CL-MATHSTATS::TUKEY-SUMMARY-INTERNAL
7390;                            (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
7391;                            (LET* ((CL-MATHSTATS::N #)
7392;                                   (CL-MATHSTATS::START2 #)
7393;                                   (CL-MATHSTATS::END2 #))
7394;                              (WHEN (ZEROP CL-MATHSTATS::N)
7395;                                (ERROR 'CL-MATHSTATS::NO-DATA))
7396;                              (CL-MATHSTATS::WITH-TEMP-VECTOR
7397;                               (CL-MATHSTATS::TEMP CL-MATHSTATS::N)
7398;                               (REPLACE CL-MATHSTATS::TEMP
7399;                                        CL-MATHSTATS::DATA
7400;                                        :END1
7401;                                        CL-MATHSTATS::N
7402;                                        :START2
7403;                                        CL-MATHSTATS::START2
7404;                                        :END2
7405;                                        CL-MATHSTATS::END2)
7406;                               (IF # # #)
7407;                               (FLET #
7408;                                 #)))))
7409;
7410; caught STYLE-WARNING:
7411;   undefined type: CL-MATHSTATS::THIRD-QUARTILE
7412
7413;
7414; caught STYLE-WARNING:
7415;   2 more uses of undefined type CL-MATHSTATS::THIRD-QUARTILE
7416
7417
7418; file: /Users/gwking/darcs/metatilities/dev/utilities/locks.lisp
7419; in: DEFUN METABANG.UTILITIES::ENQUEUE-LOCK-REQUEST
7420;     (METABANG.UTILITIES:THREAD-WAIT :WAITING
7421;                                   (LAMBDA ()
7422;                                     (METABANG.UTILITIES::ACCESS-LOCK-P
7423;                                      METABANG.UTILITIES::OWNER
7424;                                      METABANG.UTILITIES::LOCK)))
7425;
7426; caught STYLE-WARNING:
7427;   undefined function: METABANG.UTILITIES:THREAD-WAIT
7428
7429
7430; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
7431; in: DEFUN CL-MATHSTATS:CONFIDENCE-INTERVAL-T-SUMMARIES
7432;     (DEFUN CL-MATHSTATS::CONFIDENCE-INTERVAL-T-SUMMARIES
7433;          (CL-MATHSTATS::MEAN CL-MATHSTATS::DOF CL-MATHSTATS::STANDARD-ERROR
7434;           CL-MATHSTATS::CONFIDENCE)
7435;     "This function is just like `confidence-interval-t,' except that instead of
7436; its arguments being the actual data, it takes the following summary statistics:
7437; `mean,' which is the estimator of some t-distributed parameter; `dof,' which is
7438; the number of degrees of freedom in estimating the mean; and the
7439; `standard-error' of the estimator.  In general, `mean' is a point estimator of
7440; the mean of a t-distribution, which may be the slope parameter of a regression,
7441; the difference between two means, or other practical t-distributions.
7442; `Confidence' should be a number between 0 and 1, exclusive."
7443;     (DECLARE
7444;      (VALUES CL-MATHSTATS::MEAN CL-MATHSTATS::LOWER CL-MATHSTATS::UPPER))
7445;     (CHECK-TYPE CL-MATHSTATS::DOF (REAL 1 *))
7446;     (CHECK-TYPE CL-MATHSTATS::MEAN REAL)
7447;     (CHECK-TYPE CL-MATHSTATS::STANDARD-ERROR REAL)
7448;     (CHECK-TYPE CL-MATHSTATS::CONFIDENCE (REAL (0) (1)))
7449;     (LET* ((CL-MATHSTATS::T-X (CL-MATHSTATS::FIND-CRITICAL-VALUE #'# #))
7450;            (CL-MATHSTATS::W (* CL-MATHSTATS::STANDARD-ERROR CL-MATHSTATS::T-X))
7451;            (CL-MATHSTATS::UPPER (+ CL-MATHSTATS::MEAN CL-MATHSTATS::W))
7452;            (CL-MATHSTATS::LOWER (- CL-MATHSTATS::MEAN CL-MATHSTATS::W)))
7453;       (VALUES CL-MATHSTATS::MEAN CL-MATHSTATS::LOWER CL-MATHSTATS::UPPER)))
7454; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7455; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
7456; --> IF NOT IF TYPEP
7457; ==>
7458;   (SB-KERNEL:%TYPEP #:G2078 'CL-MATHSTATS::UPPER)
7459;
7460; caught STYLE-WARNING:
7461;   undefined type: CL-MATHSTATS::UPPER
7462
7463; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7464; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
7465; --> IF NOT IF
7466; ==>
7467;   (TYPEP #:G2078 'CL-MATHSTATS::UPPER)
7468;
7469; caught STYLE-WARNING:
7470;   undefined type: CL-MATHSTATS::UPPER
7471
7472; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:CONFIDENCE-INTERVAL-Z
7473;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::CONFIDENCE-INTERVAL-Z
7474;                                   (CL-MATHSTATS::CONFIDENCE-INTERVAL)
7475;                                   NIL
7476;                                   NIL
7477;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
7478;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::CONFIDENCE)
7479;                                   "Suppose you have a sample of 50 numbers and you want to compute a 90 percent
7480; confidence interval on the population mean.  This function is the one to use.
7481; Note that it makes the assumption that the sampling distribution is normal, so
7482; it's inappropriate for small sample sizes.  Use confidence-interval-t instead.
7483; It returns three values: the mean and the lower and upper bound of the
7484; confidence interval.  True, only two numbers are necessary, but the confidence
7485; intervals of other statistics may be asymmetrical and these values would be
7486; consistent with those confidence intervals.  This function handles 90, 95 and 99
7487; percent confidence intervals as special cases, so those will be quite fast.
7488; `Sample' should be a sequence of numbers.  `Confidence' should be a number
7489; between 0 and 1, exclusive."
7490;                                   (DECLARE
7491;                                    (VALUES CL-MATHSTATS::MEAN
7492;                                            CL-MATHSTATS::LOWER
7493;                                            CL-MATHSTATS::UPPER))
7494;                                   (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
7495;                                   (CHECK-TYPE CL-MATHSTATS::CONFIDENCE
7496;                                               (REAL (0) (1)))
7497;                                   (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
7498;                                    (CL-MATHSTATS::MEAN CL-MATHSTATS::DATA)
7499;                                    (SQRT
7500;                                     (/
7501;                                      (CL-MATHSTATS::VARIANCE
7502;                                       CL-MATHSTATS::DATA)
7503;                                      (LENGTH CL-MATHSTATS::DATA)))
7504;                                    CL-MATHSTATS::CONFIDENCE))
7505; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
7506; --> SB-INT:NAMED-LAMBDA
7507; ==>
7508;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-INTERNAL
7509;                          (CL-MATHSTATS::DATA CL-MATHSTATS::CONFIDENCE)
7510;                          (DECLARE
7511;                           (VALUES CL-MATHSTATS::MEAN
7512;                                   CL-MATHSTATS::LOWER
7513;                                   CL-MATHSTATS::UPPER))
7514;                          (BLOCK CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-INTERNAL
7515;                            (CHECK-TYPE CL-MATHSTATS::DATA SEQUENCE)
7516;                            (CHECK-TYPE CL-MATHSTATS::CONFIDENCE (REAL (0) (1)))
7517;                            (CL-MATHSTATS::CONFIDENCE-INTERVAL-Z-SUMMARIES
7518;                             (CL-MATHSTATS::MEAN CL-MATHSTATS::DATA)
7519;                             (SQRT (/ # #))
7520;                             CL-MATHSTATS::CONFIDENCE)))
7521;
7522; caught STYLE-WARNING:
7523;   undefined type: CL-MATHSTATS::UPPER
7524
7525;
7526; caught STYLE-WARNING:
7527;   7 more uses of undefined type CL-MATHSTATS::UPPER
7528
7529
7530; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
7531; in: DEFUN CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7532;     (DEFUN CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7533;          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
7534;     "Counts each unique combination of an element of `v1' and an element of `v2.'
7535; Returns a two-dimensional table of integers."
7536;     (DECLARE
7537;      (VALUES CL-MATHSTATS::TABLE
7538;              CL-MATHSTATS::V1-VALUES
7539;              CL-MATHSTATS::V2-VALUES))
7540;     (LET ((CL-MATHSTATS::N (LENGTH CL-MATHSTATS::V1)))
7541;       (WHEN (/= CL-MATHSTATS::N (LENGTH CL-MATHSTATS::V2))
7542;         (ERROR 'CL-MATHSTATS::UNMATCHED-SEQUENCES))
7543;       (LET ((CL-MATHSTATS::V1-VALUES #) (CL-MATHSTATS::V2-VALUES #))
7544;         (WHEN (OR # #)
7545;           (CERROR "Make it anyway"
7546;                   'CL-MATHSTATS::ENORMOUS-CONTINGENCY-TABLE
7547;                   :SIZE-OF-TABLE
7548;                   #))
7549;         (LET (#)
7550;           (MAP NIL #'# CL-MATHSTATS::V1 CL-MATHSTATS::V2)
7551;           (VALUES CL-MATHSTATS::TABLE
7552;                   CL-MATHSTATS::V1-VALUES
7553;                   CL-MATHSTATS::V2-VALUES)))))
7554; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7555; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
7556; --> IF NOT IF
7557; ==>
7558;   (TYPEP #:G2450 'CL-MATHSTATS::V1-VALUES)
7559;
7560; caught STYLE-WARNING:
7561;   undefined type: CL-MATHSTATS::V1-VALUES
7562
7563; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7564; ==>
7565;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7566;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
7567;                          (DECLARE
7568;                           (VALUES CL-MATHSTATS::TABLE
7569;                                   CL-MATHSTATS::V1-VALUES
7570;                                   CL-MATHSTATS::V2-VALUES))
7571;                          (BLOCK CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7572;                            (LET ((CL-MATHSTATS::N #))
7573;                              (WHEN (/= CL-MATHSTATS::N #)
7574;                                (ERROR 'CL-MATHSTATS::UNMATCHED-SEQUENCES))
7575;                              (LET (# #)
7576;                                (WHEN # #)
7577;                                (LET #
7578;                                  #
7579;                                  #)))))
7580;
7581; caught STYLE-WARNING:
7582;   undefined type: CL-MATHSTATS::V1-VALUES
7583
7584; in: DEFUN CL-MATHSTATS::CHI-SQUARE-2X2
7585;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2 (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
7586;     "Performs a chi-square test for independence of the two variables, `v1' and
7587; `v2.' These should be categorial variables with only two values; the function
7588; will construct a 2x2 contingency table by counting the number of occurrences of
7589; each combination of the variables.  See the manual for more details."
7590;     (DECLARE
7591;      (VALUES CL-MATHSTATS::CHI-SQUARE
7592;              CL-MATHSTATS::SIGNIFICANCE
7593;              CL-MATHSTATS::CONTINGENCY-TABLE
7594;              CL-MATHSTATS::V1-VALUES
7595;              CL-MATHSTATS::V2-VALUES))
7596;     (MULTIPLE-VALUE-BIND
7597;         (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
7598;                                  CL-MATHSTATS::V2-VALUES)
7599;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
7600;                                               CL-MATHSTATS::V2)
7601;       (UNLESS (EQUAL '(2 2) (ARRAY-DIMENSIONS CL-MATHSTATS::2X2-TABLE))
7602;         (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
7603;       (LET ((CL-MATHSTATS::A #)
7604;             (CL-MATHSTATS::B #)
7605;             (CL-MATHSTATS::C #)
7606;             (CL-MATHSTATS::D #))
7607;         (MULTIPLE-VALUE-CALL #'VALUES
7608;           (CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS CL-MATHSTATS::A
7609;                                                CL-MATHSTATS::B
7610;                                                CL-MATHSTATS::C
7611;                                                CL-MATHSTATS::D)
7612;           CL-MATHSTATS::2X2-TABLE
7613;           CL-MATHSTATS::V1-VALUES
7614;           CL-MATHSTATS::V2-VALUES))))
7615; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7616; ==>
7617;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-2X2
7618;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
7619;                          (DECLARE
7620;                           (VALUES CL-MATHSTATS::CHI-SQUARE
7621;                                   CL-MATHSTATS::SIGNIFICANCE
7622;                                   CL-MATHSTATS::CONTINGENCY-TABLE
7623;                                   CL-MATHSTATS::V1-VALUES
7624;                                   CL-MATHSTATS::V2-VALUES))
7625;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2
7626;                            (MULTIPLE-VALUE-BIND
7627;                                (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
7628;                                                         CL-MATHSTATS::V2-VALUES)
7629;                                (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7630;                                 CL-MATHSTATS::V1
7631;                                 CL-MATHSTATS::V2)
7632;                              (UNLESS (EQUAL '# #)
7633;                                (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
7634;                              (LET (# # # #)
7635;                                (MULTIPLE-VALUE-CALL #'VALUES
7636;                                  #
7637;                                  CL-MATHSTATS::2X2-TABLE
7638;                                  CL-MATHSTATS::V1-VALUES
7639;                                  CL-MATHSTATS::V2-VALUES)))))
7640;
7641; caught STYLE-WARNING:
7642;   undefined type: CL-MATHSTATS::V1-VALUES
7643
7644;
7645; caught STYLE-WARNING:
7646;   4 more uses of undefined type CL-MATHSTATS::V1-VALUES
7647
7648
7649; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
7650; in: DEFUN CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7651;     (DEFUN CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7652;          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
7653;     "Counts each unique combination of an element of `v1' and an element of `v2.'
7654; Returns a two-dimensional table of integers."
7655;     (DECLARE
7656;      (VALUES CL-MATHSTATS::TABLE
7657;              CL-MATHSTATS::V1-VALUES
7658;              CL-MATHSTATS::V2-VALUES))
7659;     (LET ((CL-MATHSTATS::N (LENGTH CL-MATHSTATS::V1)))
7660;       (WHEN (/= CL-MATHSTATS::N (LENGTH CL-MATHSTATS::V2))
7661;         (ERROR 'CL-MATHSTATS::UNMATCHED-SEQUENCES))
7662;       (LET ((CL-MATHSTATS::V1-VALUES #) (CL-MATHSTATS::V2-VALUES #))
7663;         (WHEN (OR # #)
7664;           (CERROR "Make it anyway"
7665;                   'CL-MATHSTATS::ENORMOUS-CONTINGENCY-TABLE
7666;                   :SIZE-OF-TABLE
7667;                   #))
7668;         (LET (#)
7669;           (MAP NIL #'# CL-MATHSTATS::V1 CL-MATHSTATS::V2)
7670;           (VALUES CL-MATHSTATS::TABLE
7671;                   CL-MATHSTATS::V1-VALUES
7672;                   CL-MATHSTATS::V2-VALUES)))))
7673; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7674; --> FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND
7675; --> IF NOT IF
7676; ==>
7677;   (TYPEP #:G2451 'CL-MATHSTATS::V2-VALUES)
7678;
7679; caught STYLE-WARNING:
7680;   undefined type: CL-MATHSTATS::V2-VALUES
7681
7682; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7683; ==>
7684;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7685;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
7686;                          (DECLARE
7687;                           (VALUES CL-MATHSTATS::TABLE
7688;                                   CL-MATHSTATS::V1-VALUES
7689;                                   CL-MATHSTATS::V2-VALUES))
7690;                          (BLOCK CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7691;                            (LET ((CL-MATHSTATS::N #))
7692;                              (WHEN (/= CL-MATHSTATS::N #)
7693;                                (ERROR 'CL-MATHSTATS::UNMATCHED-SEQUENCES))
7694;                              (LET (# #)
7695;                                (WHEN # #)
7696;                                (LET #
7697;                                  #
7698;                                  #)))))
7699;
7700; caught STYLE-WARNING:
7701;   undefined type: CL-MATHSTATS::V2-VALUES
7702
7703; in: DEFUN CL-MATHSTATS::CHI-SQUARE-2X2
7704;     (DEFUN CL-MATHSTATS::CHI-SQUARE-2X2 (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
7705;     "Performs a chi-square test for independence of the two variables, `v1' and
7706; `v2.' These should be categorial variables with only two values; the function
7707; will construct a 2x2 contingency table by counting the number of occurrences of
7708; each combination of the variables.  See the manual for more details."
7709;     (DECLARE
7710;      (VALUES CL-MATHSTATS::CHI-SQUARE
7711;              CL-MATHSTATS::SIGNIFICANCE
7712;              CL-MATHSTATS::CONTINGENCY-TABLE
7713;              CL-MATHSTATS::V1-VALUES
7714;              CL-MATHSTATS::V2-VALUES))
7715;     (MULTIPLE-VALUE-BIND
7716;         (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
7717;                                  CL-MATHSTATS::V2-VALUES)
7718;         (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE CL-MATHSTATS::V1
7719;                                               CL-MATHSTATS::V2)
7720;       (UNLESS (EQUAL '(2 2) (ARRAY-DIMENSIONS CL-MATHSTATS::2X2-TABLE))
7721;         (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
7722;       (LET ((CL-MATHSTATS::A #)
7723;             (CL-MATHSTATS::B #)
7724;             (CL-MATHSTATS::C #)
7725;             (CL-MATHSTATS::D #))
7726;         (MULTIPLE-VALUE-CALL #'VALUES
7727;           (CL-MATHSTATS::CHI-SQUARE-2X2-COUNTS CL-MATHSTATS::A
7728;                                                CL-MATHSTATS::B
7729;                                                CL-MATHSTATS::C
7730;                                                CL-MATHSTATS::D)
7731;           CL-MATHSTATS::2X2-TABLE
7732;           CL-MATHSTATS::V1-VALUES
7733;           CL-MATHSTATS::V2-VALUES))))
7734; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
7735; ==>
7736;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::CHI-SQUARE-2X2
7737;                          (CL-MATHSTATS::V1 CL-MATHSTATS::V2)
7738;                          (DECLARE
7739;                           (VALUES CL-MATHSTATS::CHI-SQUARE
7740;                                   CL-MATHSTATS::SIGNIFICANCE
7741;                                   CL-MATHSTATS::CONTINGENCY-TABLE
7742;                                   CL-MATHSTATS::V1-VALUES
7743;                                   CL-MATHSTATS::V2-VALUES))
7744;                          (BLOCK CL-MATHSTATS::CHI-SQUARE-2X2
7745;                            (MULTIPLE-VALUE-BIND
7746;                                (CL-MATHSTATS::2X2-TABLE CL-MATHSTATS::V1-VALUES
7747;                                                         CL-MATHSTATS::V2-VALUES)
7748;                                (CL-MATHSTATS::MAKE-CONTINGENCY-TABLE
7749;                                 CL-MATHSTATS::V1
7750;                                 CL-MATHSTATS::V2)
7751;                              (UNLESS (EQUAL '# #)
7752;                                (ERROR 'CL-MATHSTATS::NOT-BINARY-VARIABLES))
7753;                              (LET (# # # #)
7754;                                (MULTIPLE-VALUE-CALL #'VALUES
7755;                                  #
7756;                                  CL-MATHSTATS::2X2-TABLE
7757;                                  CL-MATHSTATS::V1-VALUES
7758;                                  CL-MATHSTATS::V2-VALUES)))))
7759;
7760; caught STYLE-WARNING:
7761;   undefined type: CL-MATHSTATS::V2-VALUES
7762
7763;
7764; caught STYLE-WARNING:
7765;   4 more uses of undefined type CL-MATHSTATS::V2-VALUES
7766
7767
7768; file: /Users/gwking/darcs/cl-mathstats/dev/basic-statistics.lisp
7769; in: CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS:Z-TEST-ONE-SAMPLE
7770;     (CL-MATHSTATS::DEFINE-STATISTIC CL-MATHSTATS::Z-TEST-ONE-SAMPLE
7771;                                   (CL-MATHSTATS::SIGNIFICANCE)
7772;                                   NIL
7773;                                   NIL
7774;                                   ((CL-MATHSTATS::DATA 'SEQUENCE))
7775;                                   (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
7776;                                                       &OPTIONAL
7777;                                                       (CL-MATHSTATS::H0-MEAN 0)
7778;                                                       (CL-MATHSTATS::H0-STD-DEV
7779;                                                        1)
7780;                                                       &REST
7781;                                                       CL-MATHSTATS::STANDARD-ARGS
7782;                                                       &KEY
7783;                                                       CL-MATHSTATS::START
7784;                                                       CL-MATHSTATS::END
7785;                                                       CL-MATHSTATS::KEY)
7786;                                   (DECLARE
7787;                                    (IGNORE CL-MATHSTATS::START
7788;                                            CL-MATHSTATS::END
7789;                                            CL-MATHSTATS::KEY
7790;                                            CL-MATHSTATS::TAILS)
7791;                                    (VALUES CL-MATHSTATS::Z-STATISTIC
7792;                                            CL-MATHSTATS::SIGNIFICANCE))
7793;                                   (LET ((CL-MATHSTATS::N
7794;                                          (APPLY #'CL-MATHSTATS::DATA-LENGTH
7795;                                                 CL-MATHSTATS::DATA
7796;                                                 CL-MATHSTATS::STANDARD-ARGS)))
7797;                                     (WHEN (ZEROP CL-MATHSTATS::N)
7798;                                       (ERROR 'CL-MATHSTATS::NO-DATA))
7799;                                     (LET ((CL-MATHSTATS::D #)
7800;                                           (CL-MATHSTATS::V #))
7801;                                       (WHEN (ZEROP CL-MATHSTATS::V)
7802;                                         (ERROR 'CL-MATHSTATS::ZERO-VARIANCE))
7803;                                       (LET* (# CL-MATHSTATS::SIG)
7804;                                         (VALUES CL-MATHSTATS::ZS
7805;                                                 CL-MATHSTATS::SIG)))))
7806; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
7807; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
7808; --> FUNCTION UNLESS COND IF NOT IF TYPEP
7809; ==>
7810;   (SB-KERNEL:%TYPEP #:G1716 'CL-MATHSTATS::Z-STATISTIC)
7811;
7812; caught STYLE-WARNING:
7813;   undefined type: CL-MATHSTATS::Z-STATISTIC
7814
7815; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
7816; --> SB-INT:NAMED-LAMBDA FUNCTION THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL
7817; --> FUNCTION UNLESS COND IF NOT IF
7818; ==>
7819;   (TYPEP #:G1716 'CL-MATHSTATS::Z-STATISTIC)
7820;
7821; caught STYLE-WARNING:
7822;   undefined type: CL-MATHSTATS::Z-STATISTIC
7823
7824; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN
7825; --> SB-INT:NAMED-LAMBDA
7826; ==>
7827;   #'(SB-INT:NAMED-LAMBDA CL-MATHSTATS::Z-TEST-ONE-SAMPLE-INTERNAL
7828;                          (CL-MATHSTATS::DATA CL-MATHSTATS::TAILS
7829;                                              &OPTIONAL
7830;                                              (CL-MATHSTATS::H0-MEAN 0)
7831;                                              (CL-MATHSTATS::H0-STD-DEV 1)
7832;                                              &REST
7833;                                              CL-MATHSTATS::STANDARD-ARGS
7834;                                              &KEY
7835;                                              CL-MATHSTATS::START
7836;                                              CL-MATHSTATS::END
7837;                                              CL-MATHSTATS::KEY)
7838;                          (DECLARE
7839;                           (IGNORE CL-MATHSTATS::START
7840;                                   CL-MATHSTATS::END
7841;                                   CL-MATHSTATS::KEY
7842;                                   CL-MATHSTATS::TAILS)
7843;                           (VALUES CL-MATHSTATS::Z-STATISTIC
7844;                                   CL-MATHSTATS::SIGNIFICANCE))
7845;                          (BLOCK CL-MATHSTATS::Z-TEST-ONE-SAMPLE-INTERNAL
7846;                            (LET ((CL-MATHSTATS::N #))
7847;                              (WHEN (ZEROP CL-MATHSTATS::N)
7848;                                (ERROR 'CL-MATHSTATS::NO-DATA))
7849;                              (LET (# #)
7850;                                (WHEN # #)
7851;                                (LET* #
7852;                                  #)))))
7853;
7854; caught STYLE-WARNING:
7855;   undefined type: CL-MATHSTATS::Z-STATISTIC
7856
7857;
7858; caught STYLE-WARNING:
7859;   2 more uses of undefined type CL-MATHSTATS::Z-STATISTIC
7860
7861;
7862; caught STYLE-WARNING:
7863;   These functions are undefined:
7864;     METABANG.UTILITIES::ALLOCATE-EKSL-LOCK METABANG.UTILITIES:DEALLOCATE METABANG.UTILITIES::DEBUGGING-P-FN METABANG.UTILITIES:DESTROY-THREAD CL-GRAPH::GRAPH-SEARCH METABANG.CL-CONTAINERS:MAKE-ITERATOR METABANG.UTILITIES::MAPPEND METABANG.UTILITIES:NYI METABANG.UTILITIES:PUSH-END METABANG.CL-CONTAINERS::READ-CONTAINER-ELEMENT METABANG.UTILITIES:THREAD-WAIT
7865
7866;
7867; caught STYLE-WARNING:
7868;   These types are undefined:
7869;     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
7870;
7871; compilation unit finished
7872;   caught 195 STYLE-WARNING conditions
7873;   printed 43 notes
7874*