(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "25-Oct-86 19:10:17" ("compiled on " {ERIS}SOURCES>ERROR-RUNTIME.\;13) "21-Oct-86 04:13:01" "COMPILE-FILEd" |in| "Xerox Lisp 21-Oct-86 ..." |dated| "21-Oct-86 04:48:43") (FILECREATED "24-Oct-86 21:51:49" {ERIS}SOURCES>ERROR-RUNTIME.\;13 32459 |changes| |to:| ( STRUCTURES CONDITION TOO-FEW-ARGUMENTS CL:ERROR SIMPLE-ERROR OLD-INTERLISP-ERROR CELL-ERROR CONTROL-ERROR STREAM-ERROR REAL-PROCEED-CASE) (FUNCTIONS %PROCEED-CASE-PRINTER INVOKE-PROCEED-CASE) ( VARS ERROR-RUNTIMECOMS SHOULD-BE-IN-PACKAGE) |previous| |date:| "21-Oct-86 04:02:59" {ERIS}SOURCES>ERROR-RUNTIME.\;10) (RPAQQ ERROR-RUNTIMECOMS ((COMS (* |;;;| "Internal functions.") (FUNCTIONS CONDITION-TYPEP CONDITION-SUBTYPEP CONDITION-TYPE-OF FAKE-TYPEP-FOR-CONDITIONS FAKE-SUBTYPEP-FOR-CONDITIONS FAKE-TYPE-OF-FOR-CONDITIONS) (FUNCTIONS CONDITION-HANDLER CONDITION-REPORTER %PRINT-CONDITION %PROCEED-CASE-PRINTER %PROCEED-CASE-DEFAULT-REPORTER REPORT-CONDITION CONDITION-PARENT) (VARIABLES *CONDITION-HANDLER-BINDINGS* *PROCEED-CASES*) (FUNCTIONS CHECK-TYPE-FAIL ECASE-FAIL ASSERT-FAIL) ( FUNCTIONS MAKE-INTO-CONDITION RAISE-SIGNAL DEFAULT-HANDLE-CONDITION DEFAULT-PROCEED-REPORTER FIX-INHERITANCE-LINKS DEFAULT-PROCEED-TEST TEST-PROCEED-CASE)) (COMS (* |;;;| "Pre-defined condition types.") (STRUCTURES CONDITION SIMPLE-CONDITION WARNING SIMPLE-WARNING OLD-BREAK1 SERIOUS-CONDITION CL:ERROR SIMPLE-ERROR OLD-INTERLISP-ERROR ASSERTION-FAILED CELL-ERROR UNBOUND-VARIABLE UNDEFINED-FUNCTION NO-PROCEED-TEST INDEX-BOUNDS-ERROR) (COMS (FUNCTIONS PRETTY-TYPE-NAME) (STRUCTURES TYPE-MISMATCH)) (STRUCTURES CONTROL-ERROR ILLEGAL-GO ILLEGAL-RETURN ILLEGAL-THROW BAD-PROCEED-CASE) (STRUCTURES CALL-ERROR TOO-MANY-ARGUMENTS TOO-FEW-ARGUMENTS INVALID-ARGUMENT-LIST) (STRUCTURES STREAM-ERROR READ-ERROR END-OF-FILE) (STRUCTURES STORAGE-CONDITION STACK-OVERFLOW STORAGE-EXHAUSTED)) (COMS (* |;;;| "Exported symbols. Anything here that's not in CL should be in XCL.") (VARIABLES *BREAK-ON-WARNINGS*) (FUNCTIONS MAKE-CONDITION SIGNAL CL:ERROR CL:CERROR CL:WARN CL:BREAK DEBUG) (STRUCTURES PROCEED-CASE REAL-PROCEED-CASE) (FUNCTIONS FIND-PROCEED-CASE COMPUTE-PROCEED-CASES INVOKE-PROCEED-CASE) (FUNCTIONS ABORT PROCEED USE-VALUE STORE-VALUE)) (COMS (FUNCTIONS SIMPLE-FORMAT) (P (MOVD? (QUOTE SIMPLE-FORMAT) (QUOTE CL:FORMAT)))) (DECLARE\: DONTCOPY (VARS SHOULD-BE-IN-PACKAGE)) (PROP FILETYPE ERROR-RUNTIME))) |expand-CONDITION-TYPEP| D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!HHgIJhNIL (14 FAKE-TYPEP-FOR-CONDITIONS) () (SETF-MACRO-FUNCTION (QUOTE CONDITION-TYPEP) (QUOTE |expand-CONDITION-TYPEP|)) |expand-CONDITION-SUBTYPEP| D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!HHgIJhNIL (14 FAKE-SUBTYPEP-FOR-CONDITIONS) () (SETF-MACRO-FUNCTION (QUOTE CONDITION-SUBTYPEP) (QUOTE |expand-CONDITION-SUBTYPEP|)) |expand-CONDITION-TYPE-OF| D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHhNIL (8 FAKE-TYPE-OF-FOR-CONDITIONS) () (SETF-MACRO-FUNCTION (QUOTE CONDITION-TYPE-OF) (QUOTE |expand-CONDITION-TYPE-OF|)) FAKE-TYPEP-FOR-CONDITIONS D1 (L (1 TYPE 0 DATUM)) @@l@A (17 FAKE-SUBTYPEP-FOR-CONDITIONS) NIL () FAKE-SUBTYPEP-FOR-CONDITIONS D1 (L (1 T2 0 T1)) @dii A@i@g b(26 GETPROP 9 CL:VALUES) (23 %CONDITION-PARENT) () FAKE-TYPE-OF-FOR-CONDITIONS D1 (L (0 DATUM)) @NIL NIL () |expand-CONDITION-HANDLER| D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (8 GETPROP) ( 13 ((QUOTE %CONDITION-HANDLER))) (SETF-MACRO-FUNCTION (QUOTE CONDITION-HANDLER) (QUOTE |expand-CONDITION-HANDLER|)) |expand-CONDITION-REPORTER| D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (8 GETPROP) ( 13 ((QUOTE %CONDITION-REPORTER))) (SETF-MACRO-FUNCTION (QUOTE CONDITION-REPORTER) (QUOTE |expand-CONDITION-REPORTER|)) %PRINT-CONDITION D1 (L (2 LEVEL 1 STREAM 0 CONDITION) F 0 *PRINT-ESCAPE*) PAo@ @@ @A (25 REPORT-CONDITION 19 CL:FORMAT 11 CL:TYPE-OF) NIL ( 7 "#") %PROCEED-CASE-PRINTER D1 (L (2 LEVEL 1 STREAM 0 PC) F 0 *PRINT-ESCAPE*) P@AB @Al@ (16 PROCEED-CASE-REPORT 7 CL::DEFAULT-STRUCTURE-PRINTER) NIL () %PROCEED-CASE-DEFAULT-REPORTER D1 (L (1 STREAM 0 PC)) @Al@ gg (20 CL:GETF 7 PROCEED-CASE-NAME) (17 DEFAULT-PROCEED-REPORTER 14 %DEFAULT-PROCEED-REPORT) () REPORT-CONDITION D1 (L (1 STREAM 0 CONDITION)) @@ !Hg Ho@ IA@AlI@JlIJ Hg X(59 GETPROP 51 CL:GET-OUTPUT-STREAM-STRING 40 CL:MAKE-STRING-OUTPUT-STREAM 24 CL:BREAK 13 GETPROP 3 FAKE-TYPE-OF-FOR-CONDITIONS) (56 %CONDITION-PARENT 10 %CONDITION-REPORTER) ( 20 "No report function found for ~S.") |expand-CONDITION-PARENT| D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (8 GETPROP) ( 13 ((QUOTE %CONDITION-PARENT))) (SETF-MACRO-FUNCTION (QUOTE CONDITION-PARENT) (QUOTE |expand-CONDITION-PARENT|)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *CONDITION-HANDLER-BINDINGS*))) (OR (BOUNDP (QUOTE *CONDITION-HANDLER-BINDINGS*)) (SETQ *CONDITION-HANDLER-BINDINGS* NIL)) (LET* ((A0323 (QUOTE *CONDITION-HANDLER-BINDINGS*)) (A0324 (QUOTE VARIABLE)) (A0325 "Condition handler binding stack")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A0323 A0324 A0325))) A0325)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *PROCEED-CASES*))) (OR (BOUNDP (QUOTE *PROCEED-CASES*)) (SETQ *PROCEED-CASES* NIL)) (LET* ((A0326 (QUOTE *PROCEED-CASES*)) (A0327 (QUOTE VARIABLE)) (A0328 "Active proceed case stack")) ( PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0326 A0327 A0328))) A0328)) CHECK-TYPE-FAILA0001A0002 D1 (L (0 CONDITION) F 0 PROCEEDABLE) P @g (9 FAKE-TYPEP-FOR-CONDITIONS) (6 TYPE-MISMATCH) () CHECK-TYPE-FAILA0001A0003 D1 (L (0 PROCEED-CASE) I 1 *STANDARD-OUTPUT* F 0 PLACE) ioP (8 CL:FORMAT) NIL ( 4 "Change the value of ~A") CHECK-TYPE-FAILA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE0618 F 2 *PROCEED-CASES* F 3 PLACE F 4 MESSAGE F 5 VALUE F 6 DESIRED-TYPE) DggggQgjgggg RggSgUgVgT (63 \\MVLIST 60 CL:ERROR 32 MAKE-PROCEED-CASE) (55 :MESSAGE 51 :DESIRED-TYPE 47 :VALUE 43 :NAME 40 TYPE-MISMATCH 28 CHECK-TYPE-FAILA0001A0003 25 :REPORT 22 CHECK-TYPE-FAILA0001A0002 19 :TEST 15 :SELECTOR 11 :TAG 8 STORE-VALUE 5 :NAME 2 :NORMAL) () CHECK-TYPE-FAILA0004 D1 (L (1 NEW 0 IGNORE)) ANIL NIL () CHECK-TYPE-FAIL D1 (P 0 PROCEED-CASE0618 I 4 MESSAGE I 3 DESIRED-TYPE I 2 VALUE I 1 PLACE I 0 PROCEEDABLE) GhhHg AIIJgK gjKdMk]no ML(62 LISPERROR 32 CL:VALUES-LIST 12 \\CATCH-FUNCALL) (36 CHECK-TYPE-FAILA0004 26 :NORMAL 9 CHECK-TYPE-FAILA0001) ( 59 "TOO MANY ARGUMENTS") ECASE-FAILA0001A0002 D1 (L (0 CONDITION) F 0 PROCEEDABLE) PNIL NIL () ECASE-FAILA0001A0003 D1 (L (0 PROCEED-CASE) I 1 *STANDARD-OUTPUT* F 0 PLACE) ioP (8 CL:FORMAT) NIL ( 4 "Change the value of ~A") ECASE-FAILA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE0622 F 2 *PROCEED-CASES* F 3 SELECTORS F 4 PLACE F 5 VALUE) <ggggQgjgggg RoTUoS  (55 \\MVLIST 52 CL:ERROR 32 MAKE-PROCEED-CASE) (28 ECASE-FAILA0001A0003 25 :REPORT 22 ECASE-FAILA0001A0002 19 :TEST 15 :SELECTOR 11 :TAG 8 STORE-VALUE 5 :NAME 2 :NORMAL) ( 47 "~#[wrong~;not ~S~;neither ~S nor ~S~:;not~@{~#[~; or~] ~S~^,~}~]" 41 "The value of ~S, ~S,~&is ~?.") ECASE-FAILA0004 D1 (L (1 V 0 IGNORE)) ANIL NIL () ECASE-FAIL D1 (P 0 PROCEED-CASE0622 I 3 SELECTORS I 2 VALUE I 1 PLACE I 0 PROCEEDABLE) GhhHg AIIJgK gjKdMk]no ML(62 LISPERROR 32 CL:VALUES-LIST 12 \\CATCH-FUNCALL) (36 ECASE-FAILA0004 26 :NORMAL 9 ECASE-FAILA0001) ( 59 "TOO MANY ARGUMENTS") ASSERT-FAILA0001A0002 D1 (L (1 STREAM 0 DATUM)) oA (7 CL:WRITE-STRING) NIL ( 3 "Re-test assertion") ASSERT-FAILA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE0626 F 2 *PROCEED-CASES* F 3 STRING F 4 ARGS) :ggggQgjghgg RggSgT  (53 \\MVLIST 50 CL:ERROR 30 MAKE-PROCEED-CASE) (45 :FORMAT-ARGUMENTS 41 :FORMAT-STRING 38 ASSERTION-FAILED 26 ASSERT-FAILA0001A0002 23 :REPORT 19 :TEST 15 :SELECTOR 11 :TAG 8 PROCEED 5 :NAME 2 :NORMAL) () ASSERT-FAILA0003 D1 NIL hNIL NIL () ASSERT-FAIL D1 (L (0 |-args-|) P 13 PROCEED-CASE0626 P 2 ARGS P 1 STRING) ekaaHl2 OdO(Ohh Og [KLg(M a_OOh__Ok_O&_gj_MdOk_no ON(126 LISPERROR 59 CL:VALUES-LIST 41 \\CATCH-FUNCALL) (96 ASSERT-FAILA0003 52 :NORMAL 38 ASSERT-FAILA0001) ( 123 "TOO MANY ARGUMENTS") MAKE-INTO-CONDITION D1 (L (2 ARGS 1 DESIRED-TYPE 0 DATUM)) m@dg @!Hd:@g 'gk@BdJkZno JIo@  Ag@gB gHo (106 CHECK-TYPE-FAIL 94 MAKE-CONDITION 79 CL:STRINGP 75 CL:ERROR 60 LISPERROR 28 FAKE-SUBTYPEP-FOR-CONDITIONS 7 FAKE-TYPEP-FOR-CONDITIONS) (98 DATUM 89 :FORMAT-ARGUMENTS 85 :FORMAT-STRING 33 MAKE-CONDITION 25 CONDITION 18 LITATOM 4 CONDITION) ( 103 (OR CL:SYMBOL STRING) 71 "~S is not a condition type." 57 "TOO MANY ARGUMENTS") RAISE-SIGNAL D1 (L (0 C) P 4 *CONDITION-HANDLER-BINDINGS* P 0 *CONDITION-HANDLER-BINDINGS* F 5 *CONDITION-HANDLER-BINDINGS*) *U1H@ @[K@J H@kIHX(24 FAKE-TYPEP-FOR-CONDITIONS 10 DEFAULT-HANDLE-CONDITION) NIL () DEFAULT-HANDLE-CONDITION D1 (L (0 CONDITION)) #@ Hdg Y@kIHg X(30 GETPROP 16 GETPROP 3 FAKE-TYPE-OF-FOR-CONDITIONS) (27 %CONDITION-PARENT 13 %CONDITION-HANDLER) () DEFAULT-PROCEED-REPORTER D1 (L (1 STREAM 0 PC)) Ao@ (11 CL:FORMAT 8 PROCEED-CASE-NAME) NIL ( 4 "Proceed-type: ~A") FIX-INHERITANCE-LINKS D1 (L (1 NEW-PARENT 0 NAME)) W@g qAdHH)A@Mg MgL @A_NgO g'H@K JgI (82 PUTPROP 73 DREMOVE 56 PUTPROP 40 PUTPROP 31 CL:ADJOIN 28 GETPROP 6 GETPROP) (78 %CONDITION-CHILDREN 64 %CONDITION-CHILDREN 51 %CONDITION-PARENT 36 %CONDITION-CHILDREN 25 %CONDITION-CHILDREN 3 %CONDITION-PARENT) () |expand-DEFAULT-PROCEED-TEST| D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (8 GETPROP) ( 13 ((QUOTE %DEFAULT-PROCEED-TEST))) (SETF-MACRO-FUNCTION (QUOTE DEFAULT-PROCEED-TEST) (QUOTE |expand-DEFAULT-PROCEED-TEST|)) TEST-PROCEED-CASEA0001A0002 D1 (L (1 STREAM 0 DATUM)) oA (7 CL:WRITE-STRING) NIL ( 3 "Assume proceed case is enabled") TEST-PROCEED-CASEA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE0645 F 2 *PROCEED-CASES* F 3 PC) 5ggggQgjgggg RoS (48 \\MVLIST 45 CL:ERROR 32 MAKE-PROCEED-CASE) (28 TEST-PROCEED-CASEA0001A0002 25 :REPORT 22 TRUE 19 :TEST 15 :SELECTOR 11 :TAG 8 PROCEED 5 :NAME 2 :NORMAL) ( 41 "Couldn't find test function for ~S.") TEST-PROCEED-CASEA0003 D1 NIL iNIL NIL () TEST-PROCEED-CASE D1 (L (1 CONDITION) P 6 PROCEED-CASE0645 I 0 PC) n`@ X@ @ g @ XAkHhNg YIJgK gjKdMk]no ML(101 LISPERROR 71 CL:VALUES-LIST 54 \\CATCH-FUNCALL 34 NO-PROCEED-TEST 31 PROCEED-CASE-NAME 25 GETPROP 19 PROCEED-CASE-NAME 13 PROCEED-CASE-NAME 6 PROCEED-CASE-TEST) (75 TEST-PROCEED-CASEA0003 65 :NORMAL 51 TEST-PROCEED-CASEA0001 22 %DEFAULT-PROCEED-TEST) ( 98 "TOO MANY ARGUMENTS") CONDITION-P D1 (L (0 CL::OBJECT)) @d @d @j g(19 CL:ELT 4 CL:VECTORP) (22 CONDITION 12 LISTP) () CONDITION---DUMMY-SLOT-- D1 (L (0 CONDITION)) k@ (4 CL:NTH) NIL () %MAKE-CONDITION D1 (L (0 |-args-|)) ?eHkJdIhl jJg kJI JagJkaJlZ(40 %SETNTH 34 %SETNTH 25 CL:MAKE-LIST) (46 :--DUMMY-SLOT-- 31 CONDITION) () (DEFPRINT (QUOTE CONDITION) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE CONDITION) (QUOTE (CL::PS CONDITION %MAKE-CONDITION (#:|name| --DUMMY-SLOT--) LIST NIL NIL CONDITION- (%MAKE-CONDITION . :NONE) CONDITION-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--)) NIL NIL NIL))) (LET* ((A0347 (QUOTE CONDITION)) (A0346 (QUOTE %CONDITION-HANDLER)) (A0345 NIL)) (PUTPROP A0347 A0346 A0345)) |CONDITION report method| D1 (I 1 *STANDARD-OUTPUT* I 0 CONDITION) io@ (8 CL:FORMAT) NIL ( 4 "Condition ~S occurred.") (LET* ((A0350 (QUOTE CONDITION)) (A0349 (QUOTE %CONDITION-REPORTER)) (A0348 (FUNCTION |CONDITION report method|))) (PUTPROP A0350 A0349 A0348)) SIMPLE-CONDITION-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 SIMPLE-CONDITION 12 LISTP) () SIMPLE-CONDITION---DUMMY-SLOT-- D1 (L (0 SIMPLE-CONDITION)) k@ (4 CL:NTH) NIL () SIMPLE-CONDITION-FORMAT-STRING D1 (L (0 SIMPLE-CONDITION)) l@ (5 CL:NTH) NIL () SIMPLE-CONDITION-FORMAT-ARGUMENTS D1 (L (0 SIMPLE-CONDITION)) l@ (5 CL:NTH) NIL () %MAKE-SIMPLE-CONDITION D1 (L (0 |-args-|)) eHkJdIZhqHkKdJ]hHkNdMch_l _jOg kOI lOg lOL lOO OagJkaJlZagKkaKl[agNkaNl^(99 %SETNTH 90 %SETNTH 82 %SETNTH 72 %SETNTH 65 %SETNTH 53 CL:MAKE-LIST) (144 :FORMAT-ARGUMENTS 125 :FORMAT-STRING 106 :--DUMMY-SLOT-- 79 SIMPLE-CONDITION 62 CONDITION) () (DEFPRINT (QUOTE SIMPLE-CONDITION) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE SIMPLE-CONDITION) (QUOTE (CL::PS SIMPLE-CONDITION %MAKE-SIMPLE-CONDITION (#:|name| --DUMMY-SLOT-- #:|name| FORMAT-STRING FORMAT-ARGUMENTS) LIST NIL CONDITION SIMPLE-CONDITION- (%MAKE-SIMPLE-CONDITION . :NONE) SIMPLE-CONDITION-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE SIMPLE-CONDITION) T T 2 NIL) (FORMAT-STRING NIL T T 3 SIMPLE-CONDITION-FORMAT-STRING) (FORMAT-ARGUMENTS NIL T T 4 SIMPLE-CONDITION-FORMAT-ARGUMENTS)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SIMPLE-CONDITION) T T 2 NIL) (FORMAT-STRING NIL T T 3 SIMPLE-CONDITION-FORMAT-STRING) (FORMAT-ARGUMENTS NIL T T 4 SIMPLE-CONDITION-FORMAT-ARGUMENTS)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE SIMPLE-CONDITION) (QUOTE CONDITION)) (LET* ((A0353 (QUOTE SIMPLE-CONDITION)) (A0352 (QUOTE %CONDITION-HANDLER)) (A0351 NIL)) (PUTPROP A0353 A0352 A0351)) |SIMPLE-CONDITION report method| D1 (P 3 CNT P 2 FN P 1 FORMAT-ARGUMENTS P 0 FORMAT-STRING I 1 *STANDARD-OUTPUT* I 0 CONDITION) 7@ @ g liHIdKk[no KJ(46 LISPERROR 16 CL:SYMBOL-FUNCTION 7 SIMPLE-CONDITION-FORMAT-ARGUMENTS 3 SIMPLE-CONDITION-FORMAT-STRING) (13 CL:FORMAT) ( 43 "TOO MANY ARGUMENTS") (LET* ((A0356 (QUOTE SIMPLE-CONDITION)) (A0355 (QUOTE %CONDITION-REPORTER)) (A0354 (FUNCTION |SIMPLE-CONDITION report method|))) (PUTPROP A0356 A0355 A0354)) WARNING-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 WARNING 12 LISTP) () WARNING---DUMMY-SLOT-- D1 (L (0 WARNING)) k@ (4 CL:NTH) NIL () %MAKE-WARNING D1 (L (0 |-args-|)) HeHkJdI'hl jJg kJI lJg JagJkaJlZ(49 %SETNTH 40 %SETNTH 34 %SETNTH 25 CL:MAKE-LIST) (55 :--DUMMY-SLOT-- 46 WARNING 31 CONDITION) () (DEFPRINT (QUOTE WARNING) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE WARNING) (QUOTE (CL::PS WARNING %MAKE-WARNING (#:|name| --DUMMY-SLOT-- #:|name|) LIST NIL CONDITION WARNING- (%MAKE-WARNING . :NONE) WARNING-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE WARNING) T T 2 NIL)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE WARNING) T T 2 NIL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE WARNING) (QUOTE CONDITION)) (LET* ((A0359 (QUOTE WARNING)) (A0358 (QUOTE %CONDITION-HANDLER)) (A0357 NIL)) (PUTPROP A0359 A0358 A0357)) (LET* ((A0362 (QUOTE WARNING)) (A0361 (QUOTE %CONDITION-REPORTER)) (A0360 NIL)) (PUTPROP A0362 A0361 A0360)) SIMPLE-WARNING-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 SIMPLE-WARNING 12 LISTP) () SIMPLE-WARNING---DUMMY-SLOT-- D1 (L (0 SIMPLE-WARNING)) k@ (4 CL:NTH) NIL () SIMPLE-WARNING-FORMAT-STRING D1 (L (0 SIMPLE-WARNING)) l@ (5 CL:NTH) NIL () SIMPLE-WARNING-FORMAT-ARGUMENTS D1 (L (0 SIMPLE-WARNING)) l@ (5 CL:NTH) NIL () %MAKE-SIMPLE-WARNING D1 (L (0 |-args-|)) eHkJdIdhqHkKdJghHkNdMmh_l _jOg kOI lOg lOg lOL lOO OagJkaJlZagKkaKl[agNkaNl^(109 %SETNTH 100 %SETNTH 92 %SETNTH 82 %SETNTH 72 %SETNTH 65 %SETNTH 53 CL:MAKE-LIST) (154 :FORMAT-ARGUMENTS 135 :FORMAT-STRING 116 :--DUMMY-SLOT-- 89 SIMPLE-WARNING 79 WARNING 62 CONDITION) () (DEFPRINT (QUOTE SIMPLE-WARNING) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE SIMPLE-WARNING) (QUOTE (CL::PS SIMPLE-WARNING %MAKE-SIMPLE-WARNING ( #:|name| --DUMMY-SLOT-- #:|name| #:|name| FORMAT-STRING FORMAT-ARGUMENTS) LIST NIL WARNING SIMPLE-WARNING- (%MAKE-SIMPLE-WARNING . :NONE) SIMPLE-WARNING-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE SIMPLE-WARNING) T T 3 NIL) (FORMAT-STRING NIL T T 4 SIMPLE-WARNING-FORMAT-STRING) ( FORMAT-ARGUMENTS NIL T T 5 SIMPLE-WARNING-FORMAT-ARGUMENTS)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) ( --DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE WARNING) T T 2 NIL) ( #:|name| (QUOTE SIMPLE-WARNING) T T 3 NIL) (FORMAT-STRING NIL T T 4 SIMPLE-WARNING-FORMAT-STRING) ( FORMAT-ARGUMENTS NIL T T 5 SIMPLE-WARNING-FORMAT-ARGUMENTS)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE SIMPLE-WARNING) (QUOTE WARNING)) (LET* ((A0365 (QUOTE SIMPLE-WARNING)) (A0364 (QUOTE %CONDITION-HANDLER)) (A0363 NIL)) (PUTPROP A0365 A0364 A0363)) |SIMPLE-WARNING report method| D1 (P 3 CNT P 2 FN P 1 FORMAT-ARGUMENTS P 0 FORMAT-STRING I 1 *STANDARD-OUTPUT* I 0 CONDITION) 3@ @ "gliHIdKk[no KJ(42 LISPERROR 7 SIMPLE-WARNING-FORMAT-ARGUMENTS 3 SIMPLE-WARNING-FORMAT-STRING) (13 CL:FORMAT) ( 39 "TOO MANY ARGUMENTS") (LET* ((A0368 (QUOTE SIMPLE-WARNING)) (A0367 (QUOTE %CONDITION-REPORTER)) (A0366 (FUNCTION |SIMPLE-WARNING report method|))) (PUTPROP A0368 A0367 A0366)) OLD-BREAK1-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 OLD-BREAK1 12 LISTP) () OLD-BREAK1---DUMMY-SLOT-- D1 (L (0 OLD-BREAK1)) k@ (4 CL:NTH) NIL () OLD-BREAK1-LIST D1 (L (0 OLD-BREAK1)) l@ (5 CL:NTH) NIL () %MAKE-OLD-BREAK1 D1 (L (0 |-args-|)) oeHkJdI;hAHkKdJ>hl jMg kMI lMg lML MagJkaJlZagKkaKl[(69 %SETNTH 62 %SETNTH 53 %SETNTH 47 %SETNTH 38 CL:MAKE-LIST) (94 :LIST 75 :--DUMMY-SLOT-- 59 OLD-BREAK1 44 CONDITION) () (DEFPRINT (QUOTE OLD-BREAK1) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE OLD-BREAK1) (QUOTE (CL::PS OLD-BREAK1 %MAKE-OLD-BREAK1 (#:|name| --DUMMY-SLOT-- #:|name| LIST) LIST NIL CONDITION OLD-BREAK1- (%MAKE-OLD-BREAK1 . :NONE) OLD-BREAK1-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE OLD-BREAK1) T T 2 NIL) (LIST NIL T T 3 OLD-BREAK1-LIST)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE OLD-BREAK1) T T 2 NIL) (LIST NIL T T 3 OLD-BREAK1-LIST)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE OLD-BREAK1) (QUOTE CONDITION)) (LET* ((A0371 (QUOTE OLD-BREAK1)) (A0370 (QUOTE %CONDITION-HANDLER)) (A0369 NIL)) (PUTPROP A0371 A0370 A0369)) |OLD-BREAK1 report method| D1 (P 5 MESS3 P 4 MESS2 P 3 A0648 P 2 MESS1 P 1 A0647 P 0 LIST I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ QHYI[KJLM (25 ERRORMESS1 3 OLD-BREAK1-LIST) NIL () (LET* ((A0374 (QUOTE OLD-BREAK1)) (A0373 (QUOTE %CONDITION-REPORTER)) (A0372 (FUNCTION |OLD-BREAK1 report method|))) (PUTPROP A0374 A0373 A0372)) SERIOUS-CONDITION-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 SERIOUS-CONDITION 12 LISTP) () SERIOUS-CONDITION---DUMMY-SLOT-- D1 (L (0 SERIOUS-CONDITION)) k@ (4 CL:NTH) NIL () %MAKE-SERIOUS-CONDITION D1 (L (0 |-args-|)) HeHkJdI'hl jJg kJI lJg JagJkaJlZ(49 %SETNTH 40 %SETNTH 34 %SETNTH 25 CL:MAKE-LIST) (55 :--DUMMY-SLOT-- 46 SERIOUS-CONDITION 31 CONDITION) () (DEFPRINT (QUOTE SERIOUS-CONDITION) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE SERIOUS-CONDITION) (QUOTE (CL::PS SERIOUS-CONDITION %MAKE-SERIOUS-CONDITION (#:|name| --DUMMY-SLOT-- #:|name|) LIST NIL CONDITION SERIOUS-CONDITION- ( %MAKE-SERIOUS-CONDITION . :NONE) SERIOUS-CONDITION-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE SERIOUS-CONDITION) (QUOTE CONDITION)) (LET* ((A0377 (QUOTE SERIOUS-CONDITION)) (A0376 (QUOTE %CONDITION-HANDLER)) (A0375 NIL)) (PUTPROP A0377 A0376 A0375)) |SERIOUS-CONDITION report method| D1 (I 1 *STANDARD-OUTPUT* I 0 CONDITION) io@ (11 CL:FORMAT 8 FAKE-TYPE-OF-FOR-CONDITIONS) NIL ( 4 "Serious condition ~S occurred.") (LET* ((A0380 (QUOTE SERIOUS-CONDITION)) (A0379 (QUOTE %CONDITION-REPORTER)) (A0378 (FUNCTION |SERIOUS-CONDITION report method|))) (PUTPROP A0380 A0379 A0378)) ERROR-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 CL:ERROR 12 LISTP) () ERROR---DUMMY-SLOT-- D1 (L (0 CL:ERROR)) k@ (4 CL:NTH) NIL () CL::%MAKE-ERROR D1 (L (0 |-args-|)) QeHkJdI0hl jJg kJI lJg lJg JagJkaJlZ(58 %SETNTH 49 %SETNTH 40 %SETNTH 34 %SETNTH 25 CL:MAKE-LIST) (64 :--DUMMY-SLOT-- 55 CL:ERROR 46 SERIOUS-CONDITION 31 CONDITION) () (DEFPRINT (QUOTE CL:ERROR) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE CL:ERROR) (QUOTE (CL::PS CL:ERROR CL::%MAKE-ERROR (#:|name| --DUMMY-SLOT-- #:|name| #:|name|) LIST NIL SERIOUS-CONDITION ERROR- (CL::%MAKE-ERROR . :NONE) ERROR-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE CL:ERROR) T T 3 NIL)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE CL:ERROR) (QUOTE SERIOUS-CONDITION)) (LET* ((A0383 (QUOTE CL:ERROR)) (A0382 (QUOTE %CONDITION-HANDLER)) (A0381 NIL)) (PUTPROP A0383 A0382 A0381)) (LET* ((A0386 (QUOTE CL:ERROR)) (A0385 (QUOTE %CONDITION-REPORTER)) (A0384 NIL)) (PUTPROP A0386 A0385 A0384)) SIMPLE-ERROR-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 SIMPLE-ERROR 12 LISTP) () SIMPLE-ERROR---DUMMY-SLOT-- D1 (L (0 SIMPLE-ERROR)) k@ (4 CL:NTH) NIL () SIMPLE-ERROR-FORMAT-STRING D1 (L (0 SIMPLE-ERROR)) l@ (5 CL:NTH) NIL () SIMPLE-ERROR-FORMAT-ARGUMENTS D1 (L (0 SIMPLE-ERROR)) l@ (5 CL:NTH) NIL () %MAKE-SIMPLE-ERROR D1 (L (0 |-args-|)) eHkJdInhqHkKdJrhHkNdMyh_l _jOg kOI lOg lOg lOg lOL lOO OagJkaJlZ~agKkaKl[zagNkaNl^s(119 %SETNTH 110 %SETNTH 102 %SETNTH 92 %SETNTH 82 %SETNTH 72 %SETNTH 65 %SETNTH 53 CL:MAKE-LIST) (166 :FORMAT-ARGUMENTS 146 :FORMAT-STRING 126 :--DUMMY-SLOT-- 99 SIMPLE-ERROR 89 CL:ERROR 79 SERIOUS-CONDITION 62 CONDITION) () (DEFPRINT (QUOTE SIMPLE-ERROR) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE SIMPLE-ERROR) (QUOTE (CL::PS SIMPLE-ERROR %MAKE-SIMPLE-ERROR ( #:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| FORMAT-STRING FORMAT-ARGUMENTS) LIST NIL CL:ERROR SIMPLE-ERROR- (%MAKE-SIMPLE-ERROR . :NONE) SIMPLE-ERROR-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 (( #:|name| (QUOTE SIMPLE-ERROR) T T 4 NIL) (FORMAT-STRING NIL T T 5 ASSERTION-FAILED-FORMAT-STRING) ( FORMAT-ARGUMENTS NIL T T 6 ASSERTION-FAILED-FORMAT-ARGUMENTS)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE SIMPLE-ERROR) T T 4 NIL) (FORMAT-STRING NIL T T 5 ASSERTION-FAILED-FORMAT-STRING) (FORMAT-ARGUMENTS NIL T T 6 ASSERTION-FAILED-FORMAT-ARGUMENTS)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE SIMPLE-ERROR) (QUOTE CL:ERROR)) (LET* ((A0389 (QUOTE SIMPLE-ERROR)) (A0388 (QUOTE %CONDITION-HANDLER)) (A0387 NIL)) (PUTPROP A0389 A0388 A0387)) |SIMPLE-ERROR report method| D1 (P 6 CNT P 5 FN P 4 FORMAT-ARGUMENTS P 3 FORMAT-STRING P 2 #:|name| P 1 #:|name| P 0 #:|name| I 1 *STANDARD-OUTPUT* I 0 CONDITION) ?@ @ @ @ @ %gliKLdNk^no NM(54 LISPERROR 19 SIMPLE-ERROR-FORMAT-ARGUMENTS 15 SIMPLE-ERROR-FORMAT-STRING 11 |SIMPLE-ERROR-name| 7 |SIMPLE-ERROR-name| 3 |SIMPLE-ERROR-name|) (25 CL:FORMAT) ( 51 "TOO MANY ARGUMENTS") (LET* ((A0392 (QUOTE SIMPLE-ERROR)) (A0391 (QUOTE %CONDITION-REPORTER)) (A0390 (FUNCTION |SIMPLE-ERROR report method|))) (PUTPROP A0392 A0391 A0390)) OLD-INTERLISP-ERROR-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 OLD-INTERLISP-ERROR 12 LISTP) () OLD-INTERLISP-ERROR---DUMMY-SLOT-- D1 (L (0 OLD-INTERLISP-ERROR)) k@ (4 CL:NTH) NIL () OLD-INTERLISP-ERROR-NUMBER D1 (L (0 OLD-INTERLISP-ERROR)) l@ (5 CL:NTH) NIL () OLD-INTERLISP-ERROR-MESSAGE D1 (L (0 OLD-INTERLISP-ERROR)) l@ (5 CL:NTH) NIL () %MAKE-OLD-INTERLISP-ERROR D1 (L (0 |-args-|)) eHkJdInhqHkKdJrhHkNdMyh_l _jOg kOI lOg lOg lOg lOL lOO OagJkaJlZ~agKkaKl[zagNkaNl^s(119 %SETNTH 110 %SETNTH 102 %SETNTH 92 %SETNTH 82 %SETNTH 72 %SETNTH 65 %SETNTH 53 CL:MAKE-LIST) (166 :MESSAGE 146 :NUMBER 126 :--DUMMY-SLOT-- 99 OLD-INTERLISP-ERROR 89 CL:ERROR 79 SERIOUS-CONDITION 62 CONDITION) () (DEFPRINT (QUOTE OLD-INTERLISP-ERROR) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE OLD-INTERLISP-ERROR) (QUOTE (CL::PS OLD-INTERLISP-ERROR %MAKE-OLD-INTERLISP-ERROR (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| NUMBER MESSAGE) LIST NIL CL:ERROR OLD-INTERLISP-ERROR- (%MAKE-OLD-INTERLISP-ERROR . :NONE) OLD-INTERLISP-ERROR-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE OLD-INTERLISP-ERROR) T T 4 NIL) (NUMBER NIL T T 5 OLD-INTERLISP-ERROR-NUMBER) (MESSAGE NIL T T 6 OLD-INTERLISP-ERROR-MESSAGE)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE OLD-INTERLISP-ERROR) T T 4 NIL) (NUMBER NIL T T 5 OLD-INTERLISP-ERROR-NUMBER) (MESSAGE NIL T T 6 OLD-INTERLISP-ERROR-MESSAGE)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE OLD-INTERLISP-ERROR) (QUOTE CL:ERROR)) (LET* ((A0395 (QUOTE OLD-INTERLISP-ERROR)) (A0394 (QUOTE %CONDITION-HANDLER)) (A0393 NIL)) (PUTPROP A0395 A0394 A0393)) |OLD-INTERLISP-ERROR report method| D1 (P 7 MESS2 P 6 MESS1 P 5 A0649 P 4 MESSAGE P 3 NUMBER P 2 #:|name| P 1 #:|name| P 0 #:|name| I 1 *STANDARD-OUTPUT* I 0 CONDITION) >@ @ @ @ @ KdlL!MM_NOg Lh (59 ERRORM 51 ERRORMESS1 19 OLD-INTERLISP-ERROR-MESSAGE 15 OLD-INTERLISP-ERROR-NUMBER 11 |OLD-INTERLISP-ERROR-name| 7 |OLD-INTERLISP-ERROR-name| 3 |OLD-INTERLISP-ERROR-name|) (48 ERROR) () (LET* ((A0398 (QUOTE OLD-INTERLISP-ERROR)) (A0397 (QUOTE %CONDITION-REPORTER)) (A0396 (FUNCTION |OLD-INTERLISP-ERROR report method|))) (PUTPROP A0398 A0397 A0396)) ASSERTION-FAILED-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 ASSERTION-FAILED 12 LISTP) () ASSERTION-FAILED---DUMMY-SLOT-- D1 (L (0 ASSERTION-FAILED)) k@ (4 CL:NTH) NIL () ASSERTION-FAILED-FORMAT-STRING D1 (L (0 ASSERTION-FAILED)) l@ (5 CL:NTH) NIL () ASSERTION-FAILED-FORMAT-ARGUMENTS D1 (L (0 ASSERTION-FAILED)) l@ (5 CL:NTH) NIL () %MAKE-ASSERTION-FAILED D1 (L (0 |-args-|)) eHkJdI|hqHkKdJhHkNdMh_l _jOg kOI lOg lOg lOg lOL lOO lOg OagJka~JlZoagKka{Kl[jagNkauNl^d(133 %SETNTH 123 %SETNTH 114 %SETNTH 106 %SETNTH 96 %SETNTH 86 %SETNTH 76 %SETNTH 69 %SETNTH 57 CL:MAKE-LIST) (182 :FORMAT-ARGUMENTS 161 :FORMAT-STRING 140 :--DUMMY-SLOT-- 130 ASSERTION-FAILED 103 SIMPLE-ERROR 93 CL:ERROR 83 SERIOUS-CONDITION 66 CONDITION) () (DEFPRINT (QUOTE ASSERTION-FAILED) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE ASSERTION-FAILED) (QUOTE (CL::PS ASSERTION-FAILED %MAKE-ASSERTION-FAILED (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| FORMAT-STRING FORMAT-ARGUMENTS #:|name|) LIST NIL SIMPLE-ERROR ASSERTION-FAILED- (%MAKE-ASSERTION-FAILED . :NONE) ASSERTION-FAILED-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE ASSERTION-FAILED) T T 7 NIL )) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE SIMPLE-ERROR) T T 4 NIL) (FORMAT-STRING NIL T T 5 ASSERTION-FAILED-FORMAT-STRING) (FORMAT-ARGUMENTS NIL T T 6 ASSERTION-FAILED-FORMAT-ARGUMENTS) (#:|name| (QUOTE ASSERTION-FAILED) T T 7 NIL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE ASSERTION-FAILED) (QUOTE SIMPLE-ERROR)) (LET* ((A0401 (QUOTE ASSERTION-FAILED)) (A0400 (QUOTE %CONDITION-HANDLER)) (A0399 NIL)) (PUTPROP A0401 A0400 A0399)) |ASSERTION-FAILED report method| D1 (P 3 CNT P 2 FN P 1 FORMAT-ARGUMENTS P 0 FORMAT-STRING I 1 *STANDARD-OUTPUT* I 0 CONDITION) 9@ @ "gliHoIdKk[no KJ(48 LISPERROR 7 ASSERTION-FAILED-FORMAT-ARGUMENTS 3 ASSERTION-FAILED-FORMAT-STRING) (13 CL:FORMAT) ( 45 "TOO MANY ARGUMENTS" 25 "Assertion failed.") (LET* ((A0404 (QUOTE ASSERTION-FAILED)) (A0403 (QUOTE %CONDITION-REPORTER)) (A0402 (FUNCTION |ASSERTION-FAILED report method|))) (PUTPROP A0404 A0403 A0402)) CELL-ERROR-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 CELL-ERROR 12 LISTP) () CELL-ERROR---DUMMY-SLOT-- D1 (L (0 CELL-ERROR)) k@ (4 CL:NTH) NIL () CELL-ERROR-NAME D1 (L (0 CELL-ERROR)) l@ (5 CL:NTH) NIL () %MAKE-CELL-ERROR D1 (L (0 |-args-|)) eHkJdIMhAHkKdJPhl jMg kMI lMg lMg lMg lML MagJkaJlZagKkaKl[(87 %SETNTH 80 %SETNTH 71 %SETNTH 62 %SETNTH 53 %SETNTH 47 %SETNTH 38 CL:MAKE-LIST) (112 :NAME 93 :--DUMMY-SLOT-- 77 CELL-ERROR 68 CL:ERROR 59 SERIOUS-CONDITION 44 CONDITION) () (DEFPRINT (QUOTE CELL-ERROR) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE CELL-ERROR) (QUOTE (CL::PS CELL-ERROR %MAKE-CELL-ERROR (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| NAME) LIST NIL CL:ERROR CELL-ERROR- (%MAKE-CELL-ERROR . :NONE) CELL-ERROR-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE CELL-ERROR) T T 4 NIL) ( NAME NIL T T 5 TYPE-MISMATCH-NAME)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CELL-ERROR) T T 4 NIL) (NAME NIL T T 5 TYPE-MISMATCH-NAME)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE CELL-ERROR) (QUOTE CL:ERROR)) (LET* ((A0407 (QUOTE CELL-ERROR)) (A0406 (QUOTE %CONDITION-HANDLER)) (A0405 NIL)) (PUTPROP A0407 A0406 A0405)) (LET* ((A0410 (QUOTE CELL-ERROR)) (A0409 (QUOTE %CONDITION-REPORTER)) (A0408 NIL)) (PUTPROP A0410 A0409 A0408)) UNBOUND-VARIABLE-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 UNBOUND-VARIABLE 12 LISTP) () UNBOUND-VARIABLE---DUMMY-SLOT-- D1 (L (0 UNBOUND-VARIABLE)) k@ (4 CL:NTH) NIL () UNBOUND-VARIABLE-NAME D1 (L (0 UNBOUND-VARIABLE)) l@ (5 CL:NTH) NIL () %MAKE-UNBOUND-VARIABLE D1 (L (0 |-args-|)) eHkJdIVhAHkKdJYhl jMg kMI lMg lMg lMg lML lMg MagJkaJlZagKkaKl[(96 %SETNTH 87 %SETNTH 80 %SETNTH 71 %SETNTH 62 %SETNTH 53 %SETNTH 47 %SETNTH 38 CL:MAKE-LIST) (121 :NAME 102 :--DUMMY-SLOT-- 93 UNBOUND-VARIABLE 77 CELL-ERROR 68 CL:ERROR 59 SERIOUS-CONDITION 44 CONDITION) () (DEFPRINT (QUOTE UNBOUND-VARIABLE) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE UNBOUND-VARIABLE) (QUOTE (CL::PS UNBOUND-VARIABLE %MAKE-UNBOUND-VARIABLE (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| NAME #:|name|) LIST NIL CELL-ERROR UNBOUND-VARIABLE- (%MAKE-UNBOUND-VARIABLE . :NONE) UNBOUND-VARIABLE-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE UNBOUND-VARIABLE) T T 6 NIL)) ((#:|name| ( QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| ( QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CELL-ERROR) T T 4 NIL) (NAME NIL T T 5 TYPE-MISMATCH-NAME) (#:|name| (QUOTE UNBOUND-VARIABLE) T T 6 NIL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE UNBOUND-VARIABLE) (QUOTE CELL-ERROR)) (LET* ((A0413 (QUOTE UNBOUND-VARIABLE)) (A0412 (QUOTE %CONDITION-HANDLER)) (A0411 NIL)) (PUTPROP A0413 A0412 A0411)) |UNBOUND-VARIABLE report method| D1 (P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (15 CL:FORMAT 3 UNBOUND-VARIABLE-NAME) NIL ( 11 "Unbound variable: ~S.") (LET* ((A0416 (QUOTE UNBOUND-VARIABLE)) (A0415 (QUOTE %CONDITION-REPORTER)) (A0414 (FUNCTION |UNBOUND-VARIABLE report method|))) (PUTPROP A0416 A0415 A0414)) UNDEFINED-FUNCTION-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 UNDEFINED-FUNCTION 12 LISTP) () UNDEFINED-FUNCTION---DUMMY-SLOT-- D1 (L (0 UNDEFINED-FUNCTION)) k@ (4 CL:NTH) NIL () UNDEFINED-FUNCTION-NAME D1 (L (0 UNDEFINED-FUNCTION)) l@ (5 CL:NTH) NIL () %MAKE-UNDEFINED-FUNCTION D1 (L (0 |-args-|)) eHkJdIVhAHkKdJYhl jMg kMI lMg lMg lMg lML lMg MagJkaJlZagKkaKl[(96 %SETNTH 87 %SETNTH 80 %SETNTH 71 %SETNTH 62 %SETNTH 53 %SETNTH 47 %SETNTH 38 CL:MAKE-LIST) (121 :NAME 102 :--DUMMY-SLOT-- 93 UNDEFINED-FUNCTION 77 CELL-ERROR 68 CL:ERROR 59 SERIOUS-CONDITION 44 CONDITION) () (DEFPRINT (QUOTE UNDEFINED-FUNCTION) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE UNDEFINED-FUNCTION) (QUOTE (CL::PS UNDEFINED-FUNCTION %MAKE-UNDEFINED-FUNCTION (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| NAME #:|name|) LIST NIL CELL-ERROR UNDEFINED-FUNCTION- (%MAKE-UNDEFINED-FUNCTION . :NONE) UNDEFINED-FUNCTION-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE UNDEFINED-FUNCTION) T T 6 NIL)) ((#:|name| ( QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| ( QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CELL-ERROR) T T 4 NIL) (NAME NIL T T 5 TYPE-MISMATCH-NAME) (#:|name| (QUOTE UNDEFINED-FUNCTION) T T 6 NIL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE UNDEFINED-FUNCTION) (QUOTE CELL-ERROR)) (LET* ((A0419 (QUOTE UNDEFINED-FUNCTION)) (A0418 (QUOTE %CONDITION-HANDLER)) (A0417 NIL)) (PUTPROP A0419 A0418 A0417)) |UNDEFINED-FUNCTION report method| D1 (P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (15 CL:FORMAT 3 UNDEFINED-FUNCTION-NAME) NIL ( 11 "Undefined function: ~S.") (LET* ((A0422 (QUOTE UNDEFINED-FUNCTION)) (A0421 (QUOTE %CONDITION-REPORTER)) (A0420 (FUNCTION |UNDEFINED-FUNCTION report method|))) (PUTPROP A0422 A0421 A0420)) NO-PROCEED-TEST-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 NO-PROCEED-TEST 12 LISTP) () NO-PROCEED-TEST---DUMMY-SLOT-- D1 (L (0 NO-PROCEED-TEST)) k@ (4 CL:NTH) NIL () NO-PROCEED-TEST-NAME D1 (L (0 NO-PROCEED-TEST)) l@ (5 CL:NTH) NIL () %MAKE-NO-PROCEED-TEST D1 (L (0 |-args-|)) eHkJdI_hAHkKdJbhl jMg kMI lMg lMg lMg lML lMg lMg MagJkaJlZagKkaKl[(105 %SETNTH 96 %SETNTH 87 %SETNTH 80 %SETNTH 71 %SETNTH 62 %SETNTH 53 %SETNTH 47 %SETNTH 38 CL:MAKE-LIST) (130 :NAME 111 :--DUMMY-SLOT-- 102 NO-PROCEED-TEST 93 UNDEFINED-FUNCTION 77 CELL-ERROR 68 CL:ERROR 59 SERIOUS-CONDITION 44 CONDITION) () (DEFPRINT (QUOTE NO-PROCEED-TEST) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE NO-PROCEED-TEST) (QUOTE (CL::PS NO-PROCEED-TEST %MAKE-NO-PROCEED-TEST (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| NAME #:|name| #:|name|) LIST NIL UNDEFINED-FUNCTION NO-PROCEED-TEST- (%MAKE-NO-PROCEED-TEST . :NONE) NO-PROCEED-TEST-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE NO-PROCEED-TEST) T T 7 NIL)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CELL-ERROR) T T 4 NIL) (NAME NIL T T 5 TYPE-MISMATCH-NAME) (#:|name| (QUOTE UNDEFINED-FUNCTION) T T 6 NIL) (#:|name| ( QUOTE NO-PROCEED-TEST) T T 7 NIL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE NO-PROCEED-TEST) (QUOTE UNDEFINED-FUNCTION)) (LET* ((A0425 (QUOTE NO-PROCEED-TEST)) (A0424 (QUOTE %CONDITION-HANDLER)) (A0423 NIL)) (PUTPROP A0425 A0424 A0423)) |NO-PROCEED-TEST report method| D1 (P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (15 CL:FORMAT 3 NO-PROCEED-TEST-NAME) NIL ( 11 "No test specified for proceed case: ~S.") (LET* ((A0428 (QUOTE NO-PROCEED-TEST)) (A0427 (QUOTE %CONDITION-REPORTER)) (A0426 (FUNCTION |NO-PROCEED-TEST report method|))) (PUTPROP A0428 A0427 A0426)) INDEX-BOUNDS-ERROR-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 INDEX-BOUNDS-ERROR 12 LISTP) () INDEX-BOUNDS-ERROR---DUMMY-SLOT-- D1 (L (0 INDEX-BOUNDS-ERROR)) k@ (4 CL:NTH) NIL () INDEX-BOUNDS-ERROR-NAME D1 (L (0 INDEX-BOUNDS-ERROR)) l@ (5 CL:NTH) NIL () INDEX-BOUNDS-ERROR-INDEX D1 (L (0 INDEX-BOUNDS-ERROR)) l@ (5 CL:NTH) NIL () %MAKE-INDEX-BOUNDS-ERROR D1 (L (0 |-args-|)) eHkJdI|hqHkKdJhHkNdMh_l _jOg kOI lOg lOg lOg lOL lOg lOO OagJka~JlZoagKka{Kl[jagNkauNl^d(133 %SETNTH 124 %SETNTH 114 %SETNTH 106 %SETNTH 96 %SETNTH 86 %SETNTH 76 %SETNTH 69 %SETNTH 57 CL:MAKE-LIST) (182 :INDEX 161 :NAME 140 :--DUMMY-SLOT-- 121 INDEX-BOUNDS-ERROR 103 CELL-ERROR 93 CL:ERROR 83 SERIOUS-CONDITION 66 CONDITION) () (DEFPRINT (QUOTE INDEX-BOUNDS-ERROR) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE INDEX-BOUNDS-ERROR) (QUOTE (CL::PS INDEX-BOUNDS-ERROR %MAKE-INDEX-BOUNDS-ERROR (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| NAME #:|name| INDEX) LIST NIL CELL-ERROR INDEX-BOUNDS-ERROR- (%MAKE-INDEX-BOUNDS-ERROR . :NONE) INDEX-BOUNDS-ERROR-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE INDEX-BOUNDS-ERROR) T T 6 NIL) (INDEX NIL T T 7 INDEX-BOUNDS-ERROR-INDEX)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CELL-ERROR) T T 4 NIL) (NAME NIL T T 5 TYPE-MISMATCH-NAME) ( #:|name| (QUOTE INDEX-BOUNDS-ERROR) T T 6 NIL) (INDEX NIL T T 7 INDEX-BOUNDS-ERROR-INDEX)) NIL NIL NIL ))) (FIX-INHERITANCE-LINKS (QUOTE INDEX-BOUNDS-ERROR) (QUOTE CELL-ERROR)) (LET* ((A0431 (QUOTE INDEX-BOUNDS-ERROR)) (A0430 (QUOTE %CONDITION-HANDLER)) (A0429 NIL)) (PUTPROP A0431 A0430 A0429)) |INDEX-BOUNDS-ERROR report method| D1 (P 1 INDEX P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ @ ioI (19 CL:FORMAT 7 INDEX-BOUNDS-ERROR-INDEX 3 INDEX-BOUNDS-ERROR-NAME) NIL ( 15 "Index out of bounds: ~D.") (LET* ((A0434 (QUOTE INDEX-BOUNDS-ERROR)) (A0433 (QUOTE %CONDITION-REPORTER)) (A0432 (FUNCTION |INDEX-BOUNDS-ERROR report method|))) (PUTPROP A0434 A0433 A0432)) PRETTY-TYPE-NAME D1 (L (0 TYPESPEC)) o@ (7 CONCAT) NIL ( 3 "a ") TYPE-MISMATCH-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 TYPE-MISMATCH 12 LISTP) () TYPE-MISMATCH---DUMMY-SLOT-- D1 (L (0 TYPE-MISMATCH)) k@ (4 CL:NTH) NIL () TYPE-MISMATCH-NAME D1 (L (0 TYPE-MISMATCH)) l@ (5 CL:NTH) NIL () TYPE-MISMATCH-VALUE D1 (L (0 TYPE-MISMATCH)) l@ (5 CL:NTH) NIL () TYPE-MISMATCH-DESIRED-TYPE D1 (L (0 TYPE-MISMATCH)) l@ (5 CL:NTH) NIL () TYPE-MISMATCH-MESSAGE D1 (L (0 TYPE-MISMATCH)) l @ (5 CL:NTH) NIL () %MAKE-TYPE-MISMATCH D1 (L (0 |-args-|)) ;eHkJdIhHkKdJhHkNdMƿh_Hk__OdOĿh_Hk__OdOſh_l _jOg kOI lOg lOg lOg lOL lOg lOO lOO l OO OagJka>JlZ-agKka;Kl[*agNka5Nl^$agOka6Ol_"agOka5Ol_!(199 %SETNTH 190 %SETNTH 181 %SETNTH 172 %SETNTH 162 %SETNTH 154 %SETNTH 144 %SETNTH 134 %SETNTH 124 %SETNTH 117 %SETNTH 105 CL:MAKE-LIST) (293 :MESSAGE 269 :DESIRED-TYPE 248 :VALUE 227 :NAME 206 :--DUMMY-SLOT-- 169 TYPE-MISMATCH 151 CELL-ERROR 141 CL:ERROR 131 SERIOUS-CONDITION 114 CONDITION) () (DEFPRINT (QUOTE TYPE-MISMATCH) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE TYPE-MISMATCH) (QUOTE (CL::PS TYPE-MISMATCH %MAKE-TYPE-MISMATCH ( #:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| NAME #:|name| VALUE DESIRED-TYPE MESSAGE) LIST NIL CELL-ERROR TYPE-MISMATCH- (%MAKE-TYPE-MISMATCH . :NONE) TYPE-MISMATCH-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE TYPE-MISMATCH) T T 6 NIL) (VALUE NIL T T 7 TYPE-MISMATCH-VALUE) ( DESIRED-TYPE NIL T T 8 TYPE-MISMATCH-DESIRED-TYPE) (MESSAGE NIL T T 9 TYPE-MISMATCH-MESSAGE)) (( #:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) ( #:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CELL-ERROR) T T 4 NIL) (NAME NIL T T 5 TYPE-MISMATCH-NAME) (#:|name| (QUOTE TYPE-MISMATCH) T T 6 NIL) (VALUE NIL T T 7 TYPE-MISMATCH-VALUE) (DESIRED-TYPE NIL T T 8 TYPE-MISMATCH-DESIRED-TYPE) (MESSAGE NIL T T 9 TYPE-MISMATCH-MESSAGE)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE TYPE-MISMATCH) (QUOTE CELL-ERROR)) (LET* ((A0437 (QUOTE TYPE-MISMATCH)) (A0436 (QUOTE %CONDITION-HANDLER)) (A0435 NIL)) (PUTPROP A0437 A0436 A0435)) |TYPE-MISMATCH report method| D1 (P 3 MESSAGE P 2 DESIRED-TYPE P 1 VALUE P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) '@ @ @ @ ioHIKJ (36 CL:FORMAT 32 PRETTY-TYPE-NAME 15 TYPE-MISMATCH-MESSAGE 11 TYPE-MISMATCH-DESIRED-TYPE 7 TYPE-MISMATCH-VALUE 3 TYPE-MISMATCH-NAME) NIL ( 23 "The value of ~A, ~A, is not ~A.") (LET* ((A0440 (QUOTE TYPE-MISMATCH)) (A0439 (QUOTE %CONDITION-REPORTER)) (A0438 (FUNCTION |TYPE-MISMATCH report method|))) (PUTPROP A0440 A0439 A0438)) CONTROL-ERROR-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 CONTROL-ERROR 12 LISTP) () CONTROL-ERROR---DUMMY-SLOT-- D1 (L (0 CONTROL-ERROR)) k@ (4 CL:NTH) NIL () %MAKE-CONTROL-ERROR D1 (L (0 |-args-|)) ZeHkJdI9hl jJg kJI lJg lJg lJg JagJkaJlZ(67 %SETNTH 58 %SETNTH 49 %SETNTH 40 %SETNTH 34 %SETNTH 25 CL:MAKE-LIST) (73 :--DUMMY-SLOT-- 64 CONTROL-ERROR 55 CL:ERROR 46 SERIOUS-CONDITION 31 CONDITION) () (DEFPRINT (QUOTE CONTROL-ERROR) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE CONTROL-ERROR) (QUOTE (CL::PS CONTROL-ERROR %MAKE-CONTROL-ERROR ( #:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name|) LIST NIL CL:ERROR CONTROL-ERROR- ( %MAKE-CONTROL-ERROR . :NONE) CONTROL-ERROR-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE CONTROL-ERROR) T T 4 NIL)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CONTROL-ERROR) T T 4 NIL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE CONTROL-ERROR) (QUOTE CL:ERROR)) (LET* ((A0443 (QUOTE CONTROL-ERROR)) (A0442 (QUOTE %CONDITION-HANDLER)) (A0441 NIL)) (PUTPROP A0443 A0442 A0441)) (LET* ((A0446 (QUOTE CONTROL-ERROR)) (A0445 (QUOTE %CONDITION-REPORTER)) (A0444 NIL)) (PUTPROP A0446 A0445 A0444)) ILLEGAL-GO-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 ILLEGAL-GO 12 LISTP) () ILLEGAL-GO---DUMMY-SLOT-- D1 (L (0 ILLEGAL-GO)) k@ (4 CL:NTH) NIL () ILLEGAL-GO-TAG D1 (L (0 ILLEGAL-GO)) l@ (5 CL:NTH) NIL () %MAKE-ILLEGAL-GO D1 (L (0 |-args-|)) eHkJdIVhAHkKdJYhl jMg kMI lMg lMg lMg lMg lML MagJkaJlZagKkaKl[(96 %SETNTH 89 %SETNTH 80 %SETNTH 71 %SETNTH 62 %SETNTH 53 %SETNTH 47 %SETNTH 38 CL:MAKE-LIST) (121 :TAG 102 :--DUMMY-SLOT-- 86 ILLEGAL-GO 77 CONTROL-ERROR 68 CL:ERROR 59 SERIOUS-CONDITION 44 CONDITION) () (DEFPRINT (QUOTE ILLEGAL-GO) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE ILLEGAL-GO) (QUOTE (CL::PS ILLEGAL-GO %MAKE-ILLEGAL-GO (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| #:|name| TAG) LIST NIL CONTROL-ERROR ILLEGAL-GO- ( %MAKE-ILLEGAL-GO . :NONE) ILLEGAL-GO-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE ILLEGAL-GO) T T 5 NIL) (TAG NIL T T 6 ILLEGAL-GO-TAG)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) ( --DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CONTROL-ERROR) T T 4 NIL) (#:|name| (QUOTE ILLEGAL-GO) T T 5 NIL) (TAG NIL T T 6 ILLEGAL-GO-TAG)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE ILLEGAL-GO) (QUOTE CONTROL-ERROR)) (LET* ((A0449 (QUOTE ILLEGAL-GO)) (A0448 (QUOTE %CONDITION-HANDLER)) (A0447 NIL)) (PUTPROP A0449 A0448 A0447)) |ILLEGAL-GO report method| D1 (P 0 TAG I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (15 CL:FORMAT 3 ILLEGAL-GO-TAG) NIL ( 11 "GO to a non-existant tag: ~S.") (LET* ((A0452 (QUOTE ILLEGAL-GO)) (A0451 (QUOTE %CONDITION-REPORTER)) (A0450 (FUNCTION |ILLEGAL-GO report method|))) (PUTPROP A0452 A0451 A0450)) ILLEGAL-RETURN-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 ILLEGAL-RETURN 12 LISTP) () ILLEGAL-RETURN---DUMMY-SLOT-- D1 (L (0 ILLEGAL-RETURN)) k@ (4 CL:NTH) NIL () ILLEGAL-RETURN-TAG D1 (L (0 ILLEGAL-RETURN)) l@ (5 CL:NTH) NIL () %MAKE-ILLEGAL-RETURN D1 (L (0 |-args-|)) eHkJdIVhAHkKdJYhl jMg kMI lMg lMg lMg lMg lML MagJkaJlZagKkaKl[(96 %SETNTH 89 %SETNTH 80 %SETNTH 71 %SETNTH 62 %SETNTH 53 %SETNTH 47 %SETNTH 38 CL:MAKE-LIST) (121 :TAG 102 :--DUMMY-SLOT-- 86 ILLEGAL-RETURN 77 CONTROL-ERROR 68 CL:ERROR 59 SERIOUS-CONDITION 44 CONDITION) () (DEFPRINT (QUOTE ILLEGAL-RETURN) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE ILLEGAL-RETURN) (QUOTE (CL::PS ILLEGAL-RETURN %MAKE-ILLEGAL-RETURN ( #:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| #:|name| TAG) LIST NIL CONTROL-ERROR ILLEGAL-RETURN- (%MAKE-ILLEGAL-RETURN . :NONE) ILLEGAL-RETURN-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE ILLEGAL-RETURN) T T 5 NIL) (TAG NIL T T 6 ILLEGAL-RETURN-TAG)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CONTROL-ERROR) T T 4 NIL) (#:|name| (QUOTE ILLEGAL-RETURN) T T 5 NIL) (TAG NIL T T 6 ILLEGAL-RETURN-TAG)) NIL NIL NIL)) ) (FIX-INHERITANCE-LINKS (QUOTE ILLEGAL-RETURN) (QUOTE CONTROL-ERROR)) (LET* ((A0455 (QUOTE ILLEGAL-RETURN)) (A0454 (QUOTE %CONDITION-HANDLER)) (A0453 NIL)) (PUTPROP A0455 A0454 A0453)) |ILLEGAL-RETURN report method| D1 (P 0 TAG I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (15 CL:FORMAT 3 ILLEGAL-RETURN-TAG) NIL ( 11 "RETURN to non-existant block: ~S.") (LET* ((A0458 (QUOTE ILLEGAL-RETURN)) (A0457 (QUOTE %CONDITION-REPORTER)) (A0456 (FUNCTION |ILLEGAL-RETURN report method|))) (PUTPROP A0458 A0457 A0456)) ILLEGAL-THROW-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 ILLEGAL-THROW 12 LISTP) () ILLEGAL-THROW---DUMMY-SLOT-- D1 (L (0 ILLEGAL-THROW)) k@ (4 CL:NTH) NIL () ILLEGAL-THROW-TAG D1 (L (0 ILLEGAL-THROW)) l@ (5 CL:NTH) NIL () %MAKE-ILLEGAL-THROW D1 (L (0 |-args-|)) eHkJdIVhAHkKdJYhl jMg kMI lMg lMg lMg lMg lML MagJkaJlZagKkaKl[(96 %SETNTH 89 %SETNTH 80 %SETNTH 71 %SETNTH 62 %SETNTH 53 %SETNTH 47 %SETNTH 38 CL:MAKE-LIST) (121 :TAG 102 :--DUMMY-SLOT-- 86 ILLEGAL-THROW 77 CONTROL-ERROR 68 CL:ERROR 59 SERIOUS-CONDITION 44 CONDITION) () (DEFPRINT (QUOTE ILLEGAL-THROW) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE ILLEGAL-THROW) (QUOTE (CL::PS ILLEGAL-THROW %MAKE-ILLEGAL-THROW ( #:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| #:|name| TAG) LIST NIL CONTROL-ERROR ILLEGAL-THROW- (%MAKE-ILLEGAL-THROW . :NONE) ILLEGAL-THROW-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE ILLEGAL-THROW) T T 5 NIL) (TAG NIL T T 6 ILLEGAL-THROW-TAG)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CONTROL-ERROR) T T 4 NIL) (#:|name| (QUOTE ILLEGAL-THROW) T T 5 NIL) (TAG NIL T T 6 ILLEGAL-THROW-TAG)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE ILLEGAL-THROW) (QUOTE CONTROL-ERROR)) (LET* ((A0461 (QUOTE ILLEGAL-THROW)) (A0460 (QUOTE %CONDITION-HANDLER)) (A0459 NIL)) (PUTPROP A0461 A0460 A0459)) |ILLEGAL-THROW report method| D1 (P 0 TAG I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (15 CL:FORMAT 3 ILLEGAL-THROW-TAG) NIL ( 11 "Tag for THROW not found: ~S.") (LET* ((A0464 (QUOTE ILLEGAL-THROW)) (A0463 (QUOTE %CONDITION-REPORTER)) (A0462 (FUNCTION |ILLEGAL-THROW report method|))) (PUTPROP A0464 A0463 A0462)) BAD-PROCEED-CASE-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 BAD-PROCEED-CASE 12 LISTP) () BAD-PROCEED-CASE---DUMMY-SLOT-- D1 (L (0 BAD-PROCEED-CASE)) k@ (4 CL:NTH) NIL () BAD-PROCEED-CASE-NAME D1 (L (0 BAD-PROCEED-CASE)) l@ (5 CL:NTH) NIL () %MAKE-BAD-PROCEED-CASE D1 (L (0 |-args-|)) eHkJdIVhAHkKdJYhl jMg kMI lMg lMg lMg lMg lML MagJkaJlZagKkaKl[(96 %SETNTH 89 %SETNTH 80 %SETNTH 71 %SETNTH 62 %SETNTH 53 %SETNTH 47 %SETNTH 38 CL:MAKE-LIST) (121 :NAME 102 :--DUMMY-SLOT-- 86 BAD-PROCEED-CASE 77 CONTROL-ERROR 68 CL:ERROR 59 SERIOUS-CONDITION 44 CONDITION) () (DEFPRINT (QUOTE BAD-PROCEED-CASE) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE BAD-PROCEED-CASE) (QUOTE (CL::PS BAD-PROCEED-CASE %MAKE-BAD-PROCEED-CASE (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| #:|name| NAME) LIST NIL CONTROL-ERROR BAD-PROCEED-CASE- (%MAKE-BAD-PROCEED-CASE . :NONE) BAD-PROCEED-CASE-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE BAD-PROCEED-CASE) T T 5 NIL) (NAME NIL T T 6 BAD-PROCEED-CASE-NAME)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CONTROL-ERROR) T T 4 NIL) (#:|name| (QUOTE BAD-PROCEED-CASE) T T 5 NIL) (NAME NIL T T 6 BAD-PROCEED-CASE-NAME)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE BAD-PROCEED-CASE) (QUOTE CONTROL-ERROR)) (LET* ((A0467 (QUOTE BAD-PROCEED-CASE)) (A0466 (QUOTE %CONDITION-HANDLER)) (A0465 NIL)) (PUTPROP A0467 A0466 A0465)) |BAD-PROCEED-CASE report method| D1 (P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (15 CL:FORMAT 3 BAD-PROCEED-CASE-NAME) NIL ( 11 "Proceed case ~S is not currently active.") (LET* ((A0470 (QUOTE BAD-PROCEED-CASE)) (A0469 (QUOTE %CONDITION-REPORTER)) (A0468 (FUNCTION |BAD-PROCEED-CASE report method|))) (PUTPROP A0470 A0469 A0468)) CALL-ERROR-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 CALL-ERROR 12 LISTP) () CALL-ERROR---DUMMY-SLOT-- D1 (L (0 CALL-ERROR)) k@ (4 CL:NTH) NIL () CALL-ERROR-CALLEE D1 (L (0 CALL-ERROR)) l@ (5 CL:NTH) NIL () %MAKE-CALL-ERROR D1 (L (0 |-args-|)) eHkJdIVhAHkKdJYhl jMg kMI lMg lMg lMg lMg lML MagJkaJlZagKkaKl[(96 %SETNTH 89 %SETNTH 80 %SETNTH 71 %SETNTH 62 %SETNTH 53 %SETNTH 47 %SETNTH 38 CL:MAKE-LIST) (121 :CALLEE 102 :--DUMMY-SLOT-- 86 CALL-ERROR 77 CONTROL-ERROR 68 CL:ERROR 59 SERIOUS-CONDITION 44 CONDITION) () (DEFPRINT (QUOTE CALL-ERROR) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE CALL-ERROR) (QUOTE (CL::PS CALL-ERROR %MAKE-CALL-ERROR (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| #:|name| CALLEE) LIST NIL CONTROL-ERROR CALL-ERROR- ( %MAKE-CALL-ERROR . :NONE) CALL-ERROR-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE CALL-ERROR) T T 5 NIL) (CALLEE NIL T T 6 INVALID-ARGUMENT-LIST-CALLEE)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CONTROL-ERROR) T T 4 NIL) (#:|name| (QUOTE CALL-ERROR) T T 5 NIL) (CALLEE NIL T T 6 INVALID-ARGUMENT-LIST-CALLEE)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE CALL-ERROR) (QUOTE CONTROL-ERROR)) (LET* ((A0473 (QUOTE CALL-ERROR)) (A0472 (QUOTE %CONDITION-HANDLER)) (A0471 NIL)) (PUTPROP A0473 A0472 A0471)) (LET* ((A0476 (QUOTE CALL-ERROR)) (A0475 (QUOTE %CONDITION-REPORTER)) (A0474 NIL)) (PUTPROP A0476 A0475 A0474)) TOO-MANY-ARGUMENTS-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 TOO-MANY-ARGUMENTS 12 LISTP) () TOO-MANY-ARGUMENTS---DUMMY-SLOT-- D1 (L (0 TOO-MANY-ARGUMENTS)) k@ (4 CL:NTH) NIL () TOO-MANY-ARGUMENTS-CALLEE D1 (L (0 TOO-MANY-ARGUMENTS)) l@ (5 CL:NTH) NIL () TOO-MANY-ARGUMENTS-MAXIMUM D1 (L (0 TOO-MANY-ARGUMENTS)) l@ (5 CL:NTH) NIL () TOO-MANY-ARGUMENTS-ACTUAL D1 (L (0 TOO-MANY-ARGUMENTS)) l @ (5 CL:NTH) NIL () %MAKE-TOO-MANY-ARGUMENTS D1 (L (0 |-args-|))  eHkJdIh HkKdJhHkNdMh_Hk__OdOh_l _jOg kOI lOg lOg lOg lOg lOL lOg lOO l OO OagJkaTJlZCagKkaQKl[@agNkaKNl^:agOkaLOl_8(177 %SETNTH 168 %SETNTH 159 %SETNTH 149 %SETNTH 141 %SETNTH 131 %SETNTH 121 %SETNTH 111 %SETNTH 101 %SETNTH 94 %SETNTH 82 CL:MAKE-LIST) (247 :ACTUAL 226 :MAXIMUM 205 :CALLEE 184 :--DUMMY-SLOT-- 156 TOO-MANY-ARGUMENTS 138 CALL-ERROR 128 CONTROL-ERROR 118 CL:ERROR 108 SERIOUS-CONDITION 91 CONDITION) () (DEFPRINT (QUOTE TOO-MANY-ARGUMENTS) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE TOO-MANY-ARGUMENTS) (QUOTE (CL::PS TOO-MANY-ARGUMENTS %MAKE-TOO-MANY-ARGUMENTS (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| #:|name| CALLEE #:|name| MAXIMUM ACTUAL) LIST NIL CALL-ERROR TOO-MANY-ARGUMENTS- (%MAKE-TOO-MANY-ARGUMENTS . :NONE) TOO-MANY-ARGUMENTS-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE TOO-MANY-ARGUMENTS) T T 7 NIL) (MAXIMUM NIL T T 8 TOO-MANY-ARGUMENTS-MAXIMUM) (ACTUAL NIL T T 9 TOO-MANY-ARGUMENTS-ACTUAL)) (( #:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) ( #:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CONTROL-ERROR) T T 4 NIL) (#:|name| (QUOTE CALL-ERROR) T T 5 NIL) (CALLEE NIL T T 6 INVALID-ARGUMENT-LIST-CALLEE) (#:|name| (QUOTE TOO-MANY-ARGUMENTS) T T 7 NIL) (MAXIMUM NIL T T 8 TOO-MANY-ARGUMENTS-MAXIMUM) (ACTUAL NIL T T 9 TOO-MANY-ARGUMENTS-ACTUAL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE TOO-MANY-ARGUMENTS) (QUOTE CALL-ERROR)) (LET* ((A0479 (QUOTE TOO-MANY-ARGUMENTS)) (A0478 (QUOTE %CONDITION-HANDLER)) (A0477 NIL)) (PUTPROP A0479 A0478 A0477)) |TOO-MANY-ARGUMENTS report method| D1 (P 2 ACTUAL P 1 MAXIMUM P 0 CALLEE I 1 *STANDARD-OUTPUT* I 0 CONDITION) +@ @ @ IJioHJI ioH (40 CL:FORMAT 30 CL:FORMAT 11 TOO-MANY-ARGUMENTS-ACTUAL 7 TOO-MANY-ARGUMENTS-MAXIMUM 3 TOO-MANY-ARGUMENTS-CALLEE) NIL ( 36 "Too many arguments to ~A" 23 "Too many arguments to ~A:~% ~D ~:*~[were~;was~:;were~] given but at most ~D ~:*~[are~;is~:;are~] accepted") (LET* ((A0482 (QUOTE TOO-MANY-ARGUMENTS)) (A0481 (QUOTE %CONDITION-REPORTER)) (A0480 (FUNCTION |TOO-MANY-ARGUMENTS report method|))) (PUTPROP A0482 A0481 A0480)) TOO-FEW-ARGUMENTS-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 TOO-FEW-ARGUMENTS 12 LISTP) () TOO-FEW-ARGUMENTS---DUMMY-SLOT-- D1 (L (0 TOO-FEW-ARGUMENTS)) k@ (4 CL:NTH) NIL () TOO-FEW-ARGUMENTS-CALLEE D1 (L (0 TOO-FEW-ARGUMENTS)) l@ (5 CL:NTH) NIL () TOO-FEW-ARGUMENTS-MINIMUM D1 (L (0 TOO-FEW-ARGUMENTS)) l@ (5 CL:NTH) NIL () TOO-FEW-ARGUMENTS-ACTUAL D1 (L (0 TOO-FEW-ARGUMENTS)) l @ (5 CL:NTH) NIL () %MAKE-TOO-FEW-ARGUMENTS D1 (L (0 |-args-|))  eHkJdIh HkKdJhHkNdMh_Hk__OdOh_l _jOg kOI lOg lOg lOg lOg lOL lOg lOO l OO OagJkaTJlZCagKkaQKl[@agNkaKNl^:agOkaLOl_8(177 %SETNTH 168 %SETNTH 159 %SETNTH 149 %SETNTH 141 %SETNTH 131 %SETNTH 121 %SETNTH 111 %SETNTH 101 %SETNTH 94 %SETNTH 82 CL:MAKE-LIST) (247 :ACTUAL 226 :MINIMUM 205 :CALLEE 184 :--DUMMY-SLOT-- 156 TOO-FEW-ARGUMENTS 138 CALL-ERROR 128 CONTROL-ERROR 118 CL:ERROR 108 SERIOUS-CONDITION 91 CONDITION) () (DEFPRINT (QUOTE TOO-FEW-ARGUMENTS) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE TOO-FEW-ARGUMENTS) (QUOTE (CL::PS TOO-FEW-ARGUMENTS %MAKE-TOO-FEW-ARGUMENTS (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| #:|name| CALLEE #:|name| MINIMUM ACTUAL) LIST NIL CALL-ERROR TOO-FEW-ARGUMENTS- (%MAKE-TOO-FEW-ARGUMENTS . :NONE) TOO-FEW-ARGUMENTS-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE TOO-FEW-ARGUMENTS) T T 7 NIL) (MINIMUM NIL T T 8 TOO-FEW-ARGUMENTS-MINIMUM) (ACTUAL NIL T T 9 TOO-FEW-ARGUMENTS-ACTUAL)) (( #:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) ( #:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CONTROL-ERROR) T T 4 NIL) (#:|name| (QUOTE CALL-ERROR) T T 5 NIL) (CALLEE NIL T T 6 INVALID-ARGUMENT-LIST-CALLEE) (#:|name| (QUOTE TOO-FEW-ARGUMENTS) T T 7 NIL) (MINIMUM NIL T T 8 TOO-FEW-ARGUMENTS-MINIMUM) (ACTUAL NIL T T 9 TOO-FEW-ARGUMENTS-ACTUAL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE TOO-FEW-ARGUMENTS) (QUOTE CALL-ERROR)) (LET* ((A0485 (QUOTE TOO-FEW-ARGUMENTS)) (A0484 (QUOTE %CONDITION-HANDLER)) (A0483 NIL)) (PUTPROP A0485 A0484 A0483)) |TOO-FEW-ARGUMENTS report method| D1 (P 2 ACTUAL P 1 MINIMUM P 0 CALLEE I 1 *STANDARD-OUTPUT* I 0 CONDITION) +@ @ @ IJioHJI ioH (40 CL:FORMAT 30 CL:FORMAT 11 TOO-FEW-ARGUMENTS-ACTUAL 7 TOO-FEW-ARGUMENTS-MINIMUM 3 TOO-FEW-ARGUMENTS-CALLEE) NIL ( 36 "Too few arguments to ~A" 23 "Too few arguments to ~A:~% ~D ~:*~[were~;was~:;were~] given but at least ~D ~:*~[are~;is~:;are~] necessary") (LET* ((A0488 (QUOTE TOO-FEW-ARGUMENTS)) (A0487 (QUOTE %CONDITION-REPORTER)) (A0486 (FUNCTION |TOO-FEW-ARGUMENTS report method|))) (PUTPROP A0488 A0487 A0486)) INVALID-ARGUMENT-LIST-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 INVALID-ARGUMENT-LIST 12 LISTP) () INVALID-ARGUMENT-LIST---DUMMY-SLOT-- D1 (L (0 INVALID-ARGUMENT-LIST)) k@ (4 CL:NTH) NIL () INVALID-ARGUMENT-LIST-CALLEE D1 (L (0 INVALID-ARGUMENT-LIST)) l@ (5 CL:NTH) NIL () %MAKE-INVALID-ARGUMENT-LIST D1 (L (0 |-args-|)) eHkJdI_hAHkKdJbhl jMg kMI lMg lMg lMg lMg lML lMg MagJkaJlZagKkaKl[(105 %SETNTH 96 %SETNTH 89 %SETNTH 80 %SETNTH 71 %SETNTH 62 %SETNTH 53 %SETNTH 47 %SETNTH 38 CL:MAKE-LIST) (130 :CALLEE 111 :--DUMMY-SLOT-- 102 INVALID-ARGUMENT-LIST 86 CALL-ERROR 77 CONTROL-ERROR 68 CL:ERROR 59 SERIOUS-CONDITION 44 CONDITION) () (DEFPRINT (QUOTE INVALID-ARGUMENT-LIST) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE INVALID-ARGUMENT-LIST) (QUOTE (CL::PS INVALID-ARGUMENT-LIST %MAKE-INVALID-ARGUMENT-LIST (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| #:|name| CALLEE #:|name|) LIST NIL CALL-ERROR INVALID-ARGUMENT-LIST- (%MAKE-INVALID-ARGUMENT-LIST . :NONE) INVALID-ARGUMENT-LIST-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE INVALID-ARGUMENT-LIST) T T 7 NIL)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE CONTROL-ERROR) T T 4 NIL) (#:|name| (QUOTE CALL-ERROR) T T 5 NIL ) (CALLEE NIL T T 6 INVALID-ARGUMENT-LIST-CALLEE) (#:|name| (QUOTE INVALID-ARGUMENT-LIST) T T 7 NIL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE INVALID-ARGUMENT-LIST) (QUOTE CALL-ERROR)) (LET* ((A0491 (QUOTE INVALID-ARGUMENT-LIST)) (A0490 (QUOTE %CONDITION-HANDLER)) (A0489 NIL)) (PUTPROP A0491 A0490 A0489)) |INVALID-ARGUMENT-LIST report method| D1 (P 0 CALLEE I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (15 CL:FORMAT 3 INVALID-ARGUMENT-LIST-CALLEE) NIL ( 11 "~S has an invalid argument list") (LET* ((A0494 (QUOTE INVALID-ARGUMENT-LIST)) (A0493 (QUOTE %CONDITION-REPORTER)) (A0492 (FUNCTION |INVALID-ARGUMENT-LIST report method|))) (PUTPROP A0494 A0493 A0492)) STREAM-ERROR-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 STREAM-ERROR 12 LISTP) () STREAM-ERROR---DUMMY-SLOT-- D1 (L (0 STREAM-ERROR)) k@ (4 CL:NTH) NIL () STREAM-ERROR-STREAM D1 (L (0 STREAM-ERROR)) l@ (5 CL:NTH) NIL () %MAKE-STREAM-ERROR D1 (L (0 |-args-|)) eHkJdIMhAHkKdJPhl jMg kMI lMg lMg lMg lML MagJkaJlZagKkaKl[(87 %SETNTH 80 %SETNTH 71 %SETNTH 62 %SETNTH 53 %SETNTH 47 %SETNTH 38 CL:MAKE-LIST) (112 :STREAM 93 :--DUMMY-SLOT-- 77 STREAM-ERROR 68 CL:ERROR 59 SERIOUS-CONDITION 44 CONDITION) () (DEFPRINT (QUOTE STREAM-ERROR) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE STREAM-ERROR) (QUOTE (CL::PS STREAM-ERROR %MAKE-STREAM-ERROR ( #:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| STREAM) LIST NIL CL:ERROR STREAM-ERROR- ( %MAKE-STREAM-ERROR . :NONE) STREAM-ERROR-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE STREAM-ERROR) T T 4 NIL) (STREAM NIL T T 5 END-OF-FILE-STREAM)) ((#:|name| (QUOTE CONDITION) T T 0 NIL ) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE STREAM-ERROR) T T 4 NIL) (STREAM NIL T T 5 END-OF-FILE-STREAM)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE STREAM-ERROR) (QUOTE CL:ERROR)) (LET* ((A0497 (QUOTE STREAM-ERROR)) (A0496 (QUOTE %CONDITION-HANDLER)) (A0495 NIL)) (PUTPROP A0497 A0496 A0495)) |STREAM-ERROR report method| D1 (P 3 STREAM P 2 #:|name| P 1 #:|name| P 0 #:|name| I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ @ @ @ ioK (27 CL:FORMAT 15 STREAM-ERROR-STREAM 11 |STREAM-ERROR-name| 7 |STREAM-ERROR-name| 3 |STREAM-ERROR-name|) NIL ( 23 "Stream error on ~S.") (LET* ((A0500 (QUOTE STREAM-ERROR)) (A0499 (QUOTE %CONDITION-REPORTER)) (A0498 (FUNCTION |STREAM-ERROR report method|))) (PUTPROP A0500 A0499 A0498)) READ-ERROR-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 READ-ERROR 12 LISTP) () READ-ERROR---DUMMY-SLOT-- D1 (L (0 READ-ERROR)) k@ (4 CL:NTH) NIL () READ-ERROR-STREAM D1 (L (0 READ-ERROR)) l@ (5 CL:NTH) NIL () %MAKE-READ-ERROR D1 (L (0 |-args-|)) eHkJdIVhAHkKdJYhl jMg kMI lMg lMg lMg lML lMg MagJkaJlZagKkaKl[(96 %SETNTH 87 %SETNTH 80 %SETNTH 71 %SETNTH 62 %SETNTH 53 %SETNTH 47 %SETNTH 38 CL:MAKE-LIST) (121 :STREAM 102 :--DUMMY-SLOT-- 93 READ-ERROR 77 STREAM-ERROR 68 CL:ERROR 59 SERIOUS-CONDITION 44 CONDITION) () (DEFPRINT (QUOTE READ-ERROR) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE READ-ERROR) (QUOTE (CL::PS READ-ERROR %MAKE-READ-ERROR (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| STREAM #:|name|) LIST NIL STREAM-ERROR READ-ERROR- ( %MAKE-READ-ERROR . :NONE) READ-ERROR-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE READ-ERROR) T T 6 NIL)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE STREAM-ERROR) T T 4 NIL) (STREAM NIL T T 5 END-OF-FILE-STREAM) ( #:|name| (QUOTE READ-ERROR) T T 6 NIL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE READ-ERROR) (QUOTE STREAM-ERROR)) (LET* ((A0503 (QUOTE READ-ERROR)) (A0502 (QUOTE %CONDITION-HANDLER)) (A0501 NIL)) (PUTPROP A0503 A0502 A0501)) (LET* ((A0506 (QUOTE READ-ERROR)) (A0505 (QUOTE %CONDITION-REPORTER)) (A0504 NIL)) (PUTPROP A0506 A0505 A0504)) END-OF-FILE-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 END-OF-FILE 12 LISTP) () END-OF-FILE---DUMMY-SLOT-- D1 (L (0 END-OF-FILE)) k@ (4 CL:NTH) NIL () END-OF-FILE-STREAM D1 (L (0 END-OF-FILE)) l@ (5 CL:NTH) NIL () END-OF-FILE-STREAM D1 (L (0 END-OF-FILE)) l@ (5 CL:NTH) NIL () %MAKE-END-OF-FILE D1 (L (0 |-args-|)) eHkJdIhaHkKdJHkMdLhl _jOg kOI lOg lOg lOg lON lOg lOg lON OagJkayJlZhagyKl[iagMkarMl]a(140 %SETNTH 132 %SETNTH 122 %SETNTH 112 %SETNTH 104 %SETNTH 94 %SETNTH 84 %SETNTH 74 %SETNTH 67 %SETNTH 55 CL:MAKE-LIST) (185 :STREAM 168 :STREAM 147 :--DUMMY-SLOT-- 129 END-OF-FILE 119 READ-ERROR 101 STREAM-ERROR 91 CL:ERROR 81 SERIOUS-CONDITION 64 CONDITION) () (DEFPRINT (QUOTE END-OF-FILE) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE END-OF-FILE) (QUOTE (CL::PS END-OF-FILE %MAKE-END-OF-FILE (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name| STREAM #:|name| #:|name| STREAM) LIST NIL READ-ERROR END-OF-FILE- (%MAKE-END-OF-FILE . :NONE) END-OF-FILE-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 (( #:|name| (QUOTE END-OF-FILE) T T 7 NIL) (STREAM NIL T T 8 END-OF-FILE-STREAM)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE CL:ERROR) T T 3 NIL) (#:|name| (QUOTE STREAM-ERROR) T T 4 NIL) (STREAM NIL T T 5 END-OF-FILE-STREAM) (#:|name| (QUOTE READ-ERROR) T T 6 NIL) (#:|name| (QUOTE END-OF-FILE) T T 7 NIL) (STREAM NIL T T 8 END-OF-FILE-STREAM)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE END-OF-FILE) (QUOTE READ-ERROR)) (LET* ((A0509 (QUOTE END-OF-FILE)) (A0508 (QUOTE %CONDITION-HANDLER)) (A0507 NIL)) (PUTPROP A0509 A0508 A0507)) |END-OF-FILE report method| D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "End of file:~% ~S") (LET* ((A0512 (QUOTE END-OF-FILE)) (A0511 (QUOTE %CONDITION-REPORTER)) (A0510 (FUNCTION |END-OF-FILE report method|))) (PUTPROP A0512 A0511 A0510)) STORAGE-CONDITION-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 STORAGE-CONDITION 12 LISTP) () STORAGE-CONDITION---DUMMY-SLOT-- D1 (L (0 STORAGE-CONDITION)) k@ (4 CL:NTH) NIL () %MAKE-STORAGE-CONDITION D1 (L (0 |-args-|)) QeHkJdI0hl jJg kJI lJg lJg JagJkaJlZ(58 %SETNTH 49 %SETNTH 40 %SETNTH 34 %SETNTH 25 CL:MAKE-LIST) (64 :--DUMMY-SLOT-- 55 STORAGE-CONDITION 46 SERIOUS-CONDITION 31 CONDITION) () (DEFPRINT (QUOTE STORAGE-CONDITION) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE STORAGE-CONDITION) (QUOTE (CL::PS STORAGE-CONDITION %MAKE-STORAGE-CONDITION (#:|name| --DUMMY-SLOT-- #:|name| #:|name|) LIST NIL SERIOUS-CONDITION STORAGE-CONDITION- (%MAKE-STORAGE-CONDITION . :NONE) STORAGE-CONDITION-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE STORAGE-CONDITION) T T 3 NIL)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) ( --DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE STORAGE-CONDITION) T T 3 NIL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE STORAGE-CONDITION) (QUOTE SERIOUS-CONDITION)) (LET* ((A0515 (QUOTE STORAGE-CONDITION)) (A0514 (QUOTE %CONDITION-HANDLER)) (A0513 NIL)) (PUTPROP A0515 A0514 A0513)) (LET* ((A0518 (QUOTE STORAGE-CONDITION)) (A0517 (QUOTE %CONDITION-REPORTER)) (A0516 NIL)) (PUTPROP A0518 A0517 A0516)) STACK-OVERFLOW-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 STACK-OVERFLOW 12 LISTP) () STACK-OVERFLOW---DUMMY-SLOT-- D1 (L (0 STACK-OVERFLOW)) k@ (4 CL:NTH) NIL () %MAKE-STACK-OVERFLOW D1 (L (0 |-args-|)) ZeHkJdI9hl jJg kJI lJg lJg lJg JagJkaJlZ(67 %SETNTH 58 %SETNTH 49 %SETNTH 40 %SETNTH 34 %SETNTH 25 CL:MAKE-LIST) (73 :--DUMMY-SLOT-- 64 STACK-OVERFLOW 55 STORAGE-CONDITION 46 SERIOUS-CONDITION 31 CONDITION) () (DEFPRINT (QUOTE STACK-OVERFLOW) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE STACK-OVERFLOW) (QUOTE (CL::PS STACK-OVERFLOW %MAKE-STACK-OVERFLOW ( #:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name|) LIST NIL STORAGE-CONDITION STACK-OVERFLOW- ( %MAKE-STACK-OVERFLOW . :NONE) STACK-OVERFLOW-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE STACK-OVERFLOW) T T 4 NIL)) ((#:|name| (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE STORAGE-CONDITION) T T 3 NIL) (#:|name| (QUOTE STACK-OVERFLOW) T T 4 NIL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE STACK-OVERFLOW) (QUOTE STORAGE-CONDITION)) (LET* ((A0521 (QUOTE STACK-OVERFLOW)) (A0520 (QUOTE %CONDITION-HANDLER)) (A0519 NIL)) (PUTPROP A0521 A0520 A0519)) |STACK-OVERFLOW report method| D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "Stack overflow") (LET* ((A0524 (QUOTE STACK-OVERFLOW)) (A0523 (QUOTE %CONDITION-REPORTER)) (A0522 (FUNCTION |STACK-OVERFLOW report method|))) (PUTPROP A0524 A0523 A0522)) STORAGE-EXHAUSTED-P D1 (L (0 CL::OBJECT)) @d @d @l g(20 CL:ELT 4 CL:VECTORP) (23 STORAGE-EXHAUSTED 12 LISTP) () STORAGE-EXHAUSTED---DUMMY-SLOT-- D1 (L (0 STORAGE-EXHAUSTED)) k@ (4 CL:NTH) NIL () %MAKE-STORAGE-EXHAUSTED D1 (L (0 |-args-|)) ZeHkJdI9hl jJg kJI lJg lJg lJg JagJkaJlZ(67 %SETNTH 58 %SETNTH 49 %SETNTH 40 %SETNTH 34 %SETNTH 25 CL:MAKE-LIST) (73 :--DUMMY-SLOT-- 64 STORAGE-EXHAUSTED 55 STORAGE-CONDITION 46 SERIOUS-CONDITION 31 CONDITION) () (DEFPRINT (QUOTE STORAGE-EXHAUSTED) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE STORAGE-EXHAUSTED) (QUOTE (CL::PS STORAGE-EXHAUSTED %MAKE-STORAGE-EXHAUSTED (#:|name| --DUMMY-SLOT-- #:|name| #:|name| #:|name|) LIST NIL STORAGE-CONDITION STORAGE-EXHAUSTED- (%MAKE-STORAGE-EXHAUSTED . :NONE) STORAGE-EXHAUSTED-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:|name| (QUOTE STORAGE-EXHAUSTED) T T 4 NIL)) ((#:|name| ( QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 STORAGE-EXHAUSTED---DUMMY-SLOT--) (#:|name| ( QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:|name| (QUOTE STORAGE-CONDITION) T T 3 NIL) (#:|name| (QUOTE STORAGE-EXHAUSTED) T T 4 NIL)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE STORAGE-EXHAUSTED) (QUOTE STORAGE-CONDITION)) (LET* ((A0527 (QUOTE STORAGE-EXHAUSTED)) (A0526 (QUOTE %CONDITION-HANDLER)) (A0525 NIL)) (PUTPROP A0527 A0526 A0525)) (LET* ((A0530 (QUOTE STORAGE-EXHAUSTED)) (A0529 (QUOTE %CONDITION-REPORTER)) (A0528 NIL)) (PUTPROP A0530 A0529 A0528)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *BREAK-ON-WARNINGS*))) (OR (BOUNDP (QUOTE *BREAK-ON-WARNINGS*)) (SETQ *BREAK-ON-WARNINGS* NIL)) (LET* ((A0531 (QUOTE *BREAK-ON-WARNINGS*)) (A0532 (QUOTE VARIABLE)) (A0533 "If true, calls to WARN will cause a break as well as logging the warning.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0531 A0532 A0533))) A0533)) MAKE-CONDITION D1 (L (0 |-args-|)) ^ eka1Hl2 NdMOI jJ6a_OOh__Nk^O&_dLk\no LK(85 LISPERROR 28 STRUCTURE-CONSTRUCTOR) NIL ( 82 "TOO MANY ARGUMENTS") (LET* ((A0534 (QUOTE MAKE-CONDITION)) (A0535 (QUOTE CL:FUNCTION)) (A0536 "Create a condition object of the specified type.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0534 A0535 A0536))) A0536)) SIGNAL D1 (L (0 |-args-|)) R eka!Hl2MdL!NIgJ [ Kdg K a_OOh_Mk]O&_(50 DEBUG 44 FAKE-TYPEP-FOR-CONDITIONS 36 RAISE-SIGNAL 32 MAKE-INTO-CONDITION) (41 SERIOUS-CONDITION 28 SIMPLE-CONDITION) () CL:ERROR D1 (L (0 |-args-|)) BekaHl2LdKMIgJ a_NOh^Lk\O&(38 DEBUG 35 RAISE-SIGNAL 32 MAKE-INTO-CONDITION) (28 SIMPLE-ERROR) () CERRORA0001A0002 D1 (L (0 PROCEED-CASE) I 1 *STANDARD-OUTPUT* F 2 PROCEED-FORMAT-STRING F 3 ARGUMENTS) )gliRSdIkYno IH(32 LISPERROR) (2 CL:FORMAT) ( 29 "TOO MANY ARGUMENTS") CERRORA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE0652 F 2 *PROCEED-CASES* F 3 CONDITION F 4 DATUM F 5 ARGUMENTS) ;ggggQgjghgg RTgU c (54 \\MVLIST 51 DEBUG 48 RAISE-SIGNAL 43 MAKE-INTO-CONDITION 30 MAKE-PROCEED-CASE) (39 SIMPLE-ERROR 26 CERRORA0001A0002 23 :REPORT 19 :TEST 15 :SELECTOR 11 :TAG 8 PROCEED 5 :NAME 2 :NORMAL) () CERRORA0003 D1 (F 0 CONDITION) PNIL NIL () CL:CERROR D1 (L (0 |-args-|) P 15 PROCEED-CASE0652 P 4 CONDITION P 3 ARGUMENTS P 2 DATUM P 1 PROCEED-FORMAT-STRING) eka laHl2OdO,Oh\hOg ]M_Ng)O a_OOh__Ok_O&_gj__OdOk_no OO(137 LISPERROR 67 CL:VALUES-LIST 46 \\CATCH-FUNCALL) (104 CERRORA0003 59 :NORMAL 43 CERRORA0001) ( 134 "TOO MANY ARGUMENTS") CL:WARN D1 (L (0 |-args-|) F 9 *ERROR-OUTPUT* F 10 *BREAK-ON-WARNINGS*) eka!Hl2MdLPNIgJ [dg oggggKgg K WoK WK Ka_OOh_Mk]O&_(96 CL:BREAK 88 CL:FORMAT 85 REPORT-CONDITION 75 RAISE-SIGNAL 70 CL:CERROR 40 FAKE-TYPEP-FOR-CONDITIONS 32 MAKE-INTO-CONDITION) (66 WARNING 63 :DESIRED-TYPE 59 :VALUE 56 CONDITION 53 :NAME 50 TYPE-MISMATCH 37 WARNING 28 SIMPLE-WARNING) ( 81 "~&Warning: ~A~%" 47 "Signal and report the condition anyway") BREAKA0001A0002 D1 (L (1 STREAM 0 DATUM)) oA (7 CL:WRITE-STRING) NIL ( 3 "Return from BREAK") BREAKA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE0656 F 2 *PROCEED-CASES* F 3 CONDITION F 4 DATUM F 5 ARGUMENTS) 8ggggQgjghgg RTgU c (51 \\MVLIST 48 DEBUG 43 MAKE-INTO-CONDITION 30 MAKE-PROCEED-CASE) (39 SIMPLE-CONDITION 26 BREAKA0001A0002 23 :REPORT 19 :TEST 15 :SELECTOR 11 :TAG 8 PROCEED 5 :NAME 2 :NORMAL) () BREAKA0003 D1 (F 0 CONDITION) PNIL NIL () CL:BREAK D1 (L (0 |-args-|) P 14 PROCEED-CASE0656 P 3 CONDITION P 2 ARGUMENTS P 1 DATUM) ekHokaqHl2 OdO)Oh[hOg \LMg(N a_OOh__Ok_O&_gj__NdOk_no OO(138 LISPERROR 69 CL:VALUES-LIST 51 \\CATCH-FUNCALL) (106 BREAKA0003 62 :NORMAL 48 BREAKA0001) ( 135 "TOO MANY ARGUMENTS" 11 "Break") DEBUG D1 (L (0 |-args-|)) JekHokaHl2LdKMZIgJ a_NOh^Lk\O&(45 ERRORX 42 MAKE-INTO-CONDITION) (38 SIMPLE-CONDITION) ( 11 "Break") (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE PROCEED-CASE) (QUOTE (POINTER POINTER POINTER POINTER POINTER) ) (QUOTE ((PROCEED-CASE 0 POINTER) (PROCEED-CASE 2 POINTER) (PROCEED-CASE 4 POINTER) (PROCEED-CASE 6 POINTER) (PROCEED-CASE 8 POINTER))) 10 (QUOTE NIL)) |type-expand-PROCEED-CASE| D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE PROCEED-CASE)) (PUT (QUOTE PROCEED-CASE) (QUOTE TYPE-EXPANDER) (QUOTE |type-expand-PROCEED-CASE|)) PROCEED-CASE-P D1 (L (0 CL::OBJECT)) @iNIL (3 PROCEED-CASE) () PROCEED-CASE-NAME D1 (L (0 PROCEED-CASE)) @NIL (3 PROCEED-CASE) () PROCEED-CASE-TAG D1 (L (0 PROCEED-CASE)) @NIL (3 PROCEED-CASE) () PROCEED-CASE-SELECTOR D1 (L (0 PROCEED-CASE)) @NIL (3 PROCEED-CASE) () PROCEED-CASE-TEST D1 (L (0 PROCEED-CASE)) @NIL (3 PROCEED-CASE) () PROCEED-CASE-REPORT D1 (L (0 PROCEED-CASE)) @NIL (3 PROCEED-CASE) () (REMPROP (QUOTE PROCEED-CASE-NAME) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS PROCEED-CASE-NAME SETF-INVERSE %%SETF-PROCEED-CASE-NAME) %%SETF-PROCEED-CASE-NAME D1 (L (1 CL::VALUE 0 PROCEED-CASE)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE PROCEED-CASE-TAG) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS PROCEED-CASE-TAG SETF-INVERSE %%SETF-PROCEED-CASE-TAG) %%SETF-PROCEED-CASE-TAG D1 (L (1 CL::VALUE 0 PROCEED-CASE)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE PROCEED-CASE-SELECTOR) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS PROCEED-CASE-SELECTOR SETF-INVERSE %%SETF-PROCEED-CASE-SELECTOR) %%SETF-PROCEED-CASE-SELECTOR D1 (L (1 CL::VALUE 0 PROCEED-CASE)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE PROCEED-CASE-TEST) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS PROCEED-CASE-TEST SETF-INVERSE %%SETF-PROCEED-CASE-TEST) %%SETF-PROCEED-CASE-TEST D1 (L (1 CL::VALUE 0 PROCEED-CASE)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE PROCEED-CASE-REPORT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS PROCEED-CASE-REPORT SETF-INVERSE %%SETF-PROCEED-CASE-REPORT) %%SETF-PROCEED-CASE-REPORT D1 (L (1 CL::VALUE 0 PROCEED-CASE)) @AANIL (3 PROCEED-CASE) () MAKE-PROCEED-CASE D1 (L (0 |-args-|))  eHkJdIhHkKdJhHkNdMh_Hk__OdOh_Hk__OdOg_`_IOLOOOOOOOagJkapJlZ_agKkamKl[\agNkagNl^VagOkahOl_TagOkaiOl_SNIL (243 :REPORT 219 :TEST 198 :SELECTOR 177 :TAG 156 :NAME 145 PROCEED-CASE 136 PROCEED-CASE 127 PROCEED-CASE 119 PROCEED-CASE 111 PROCEED-CASE 105 |PROCEED-CASETYPE#| 99 %PROCEED-CASE-DEFAULT-REPORTER) () COPY-PROCEED-CASE D1 (L (0 PROCEED-CASE)) R@H9`H@H@H@H@H@HigHg b(75 CHECK-TYPE-FAIL) (72 PROCEED-CASE 68 PROCEED-CASE 57 PROCEED-CASE 48 PROCEED-CASE 39 PROCEED-CASE 30 PROCEED-CASE 21 PROCEED-CASE 13 |PROCEED-CASETYPE#| 7 PROCEED-CASE) () (DEFPRINT (QUOTE PROCEED-CASE) (QUOTE %PROCEED-CASE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE PROCEED-CASE) (QUOTE (CL::PS PROCEED-CASE MAKE-PROCEED-CASE (NAME TAG SELECTOR TEST REPORT) CL::DATATYPE NIL NIL PROCEED-CASE- (MAKE-PROCEED-CASE) PROCEED-CASE-P %PROCEED-CASE-PRINTER COPY-PROCEED-CASE NIL 0 ((NAME NIL T NIL (REAL-PROCEED-CASE 0 POINTER) REAL-PROCEED-CASE-NAME) (TAG NIL T NIL (REAL-PROCEED-CASE 2 POINTER) REAL-PROCEED-CASE-TAG) (SELECTOR NIL T NIL (REAL-PROCEED-CASE 4 POINTER) REAL-PROCEED-CASE-SELECTOR) (TEST NIL T NIL (REAL-PROCEED-CASE 6 POINTER) REAL-PROCEED-CASE-TEST) (REPORT (QUOTE %PROCEED-CASE-DEFAULT-REPORTER) T NIL ( REAL-PROCEED-CASE 8 POINTER) REAL-PROCEED-CASE-REPORT)) ((NAME NIL T NIL (REAL-PROCEED-CASE 0 POINTER) REAL-PROCEED-CASE-NAME) (TAG NIL T NIL (REAL-PROCEED-CASE 2 POINTER) REAL-PROCEED-CASE-TAG) (SELECTOR NIL T NIL (REAL-PROCEED-CASE 4 POINTER) REAL-PROCEED-CASE-SELECTOR) (TEST NIL T NIL ( REAL-PROCEED-CASE 6 POINTER) REAL-PROCEED-CASE-TEST) (REPORT (QUOTE %PROCEED-CASE-DEFAULT-REPORTER) T NIL (REAL-PROCEED-CASE 8 POINTER) REAL-PROCEED-CASE-REPORT)) NIL NIL (POINTER POINTER POINTER POINTER POINTER)))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE REAL-PROCEED-CASE) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((REAL-PROCEED-CASE 0 POINTER) (REAL-PROCEED-CASE 2 POINTER) ( REAL-PROCEED-CASE 4 POINTER) (REAL-PROCEED-CASE 6 POINTER) (REAL-PROCEED-CASE 8 POINTER) ( REAL-PROCEED-CASE 10 POINTER))) 12 (QUOTE PROCEED-CASE)) |type-expand-REAL-PROCEED-CASE| D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE REAL-PROCEED-CASE)) (PUT (QUOTE REAL-PROCEED-CASE) (QUOTE TYPE-EXPANDER) (QUOTE |type-expand-REAL-PROCEED-CASE|)) REAL-PROCEED-CASE-P D1 (L (0 CL::OBJECT)) @iNIL (3 REAL-PROCEED-CASE) () REAL-PROCEED-CASE-NAME D1 (L (0 REAL-PROCEED-CASE)) @NIL (3 REAL-PROCEED-CASE) () REAL-PROCEED-CASE-TAG D1 (L (0 REAL-PROCEED-CASE)) @NIL (3 REAL-PROCEED-CASE) () REAL-PROCEED-CASE-SELECTOR D1 (L (0 REAL-PROCEED-CASE)) @NIL (3 REAL-PROCEED-CASE) () REAL-PROCEED-CASE-TEST D1 (L (0 REAL-PROCEED-CASE)) @NIL (3 REAL-PROCEED-CASE) () REAL-PROCEED-CASE-REPORT D1 (L (0 REAL-PROCEED-CASE)) @NIL (3 REAL-PROCEED-CASE) () REAL-PROCEED-CASE-CONTINUATION D1 (L (0 REAL-PROCEED-CASE)) @ NIL (3 REAL-PROCEED-CASE) () (REMPROP (QUOTE REAL-PROCEED-CASE-NAME) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS REAL-PROCEED-CASE-NAME SETF-INVERSE %%SETF-REAL-PROCEED-CASE-NAME) %%SETF-REAL-PROCEED-CASE-NAME D1 (L (1 CL::VALUE 0 REAL-PROCEED-CASE)) @AANIL (3 REAL-PROCEED-CASE) () (REMPROP (QUOTE REAL-PROCEED-CASE-TAG) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS REAL-PROCEED-CASE-TAG SETF-INVERSE %%SETF-REAL-PROCEED-CASE-TAG) %%SETF-REAL-PROCEED-CASE-TAG D1 (L (1 CL::VALUE 0 REAL-PROCEED-CASE)) @AANIL (3 REAL-PROCEED-CASE) () (REMPROP (QUOTE REAL-PROCEED-CASE-SELECTOR) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS REAL-PROCEED-CASE-SELECTOR SETF-INVERSE %%SETF-REAL-PROCEED-CASE-SELECTOR) %%SETF-REAL-PROCEED-CASE-SELECTOR D1 (L (1 CL::VALUE 0 REAL-PROCEED-CASE)) @AANIL (3 REAL-PROCEED-CASE) () (REMPROP (QUOTE REAL-PROCEED-CASE-TEST) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS REAL-PROCEED-CASE-TEST SETF-INVERSE %%SETF-REAL-PROCEED-CASE-TEST) %%SETF-REAL-PROCEED-CASE-TEST D1 (L (1 CL::VALUE 0 REAL-PROCEED-CASE)) @AANIL (3 REAL-PROCEED-CASE) () (REMPROP (QUOTE REAL-PROCEED-CASE-REPORT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS REAL-PROCEED-CASE-REPORT SETF-INVERSE %%SETF-REAL-PROCEED-CASE-REPORT) %%SETF-REAL-PROCEED-CASE-REPORT D1 (L (1 CL::VALUE 0 REAL-PROCEED-CASE)) @AANIL (3 REAL-PROCEED-CASE) () (REMPROP (QUOTE REAL-PROCEED-CASE-CONTINUATION) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS REAL-PROCEED-CASE-CONTINUATION SETF-INVERSE %%SETF-REAL-PROCEED-CASE-CONTINUATION) %%SETF-REAL-PROCEED-CASE-CONTINUATION D1 (L (1 CL::VALUE 0 REAL-PROCEED-CASE)) @A ANIL (3 REAL-PROCEED-CASE) () MAKE-REAL-PROCEED-CASE D1 (L (0 |-args-|)) DeHkJdIhHkKdJhHkNdMh_Hk__OdOh_Hk__OdOg_Hk__OdOh_ `_"IO"LO"OO"OO"OO"O  O"agJkaMJlZ