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*