(DEFINE-FILE-INFO §READTABLE "XCL" §PACKAGE "INTERLISP") (FILECREATED "21-Oct-86 04:03:47" ("compiled on " {ERIS}SOURCES>ERROR-RUNTIME.\;10) "19-Oct-86 18:07:50" "COMPILE-FILEd" |in| "Xerox Lisp 19-Oct-86 ..." |dated| "19-Oct-86 23:28:21") (FILECREATED "21-Oct-86 04:02:59" {ERIS}SOURCES>ERROR-RUNTIME.\;10 31917 |changes| |to:| ( STRUCTURES SIMPLE-CONDITION CL:ERROR ERROR) (VARS ERROR-RUNTIMECOMS) |previous| |date:| "20-Oct-86 17:23:29" {ERIS}SOURCES>ERROR-RUNTIME.\;8) (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 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)) @!H¹HºgIJhNIL (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)) @!H¹HºgIJhNIL (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)) #@‘h€i³@dAð’®iŠg b°êh´ii (32 CL:VALUES 20 GETPROP) (17 %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*) P²Ao@ @Ò@Ó @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 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 ¹H¨o@ I²A–@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* ((A0802 (QUOTE *CONDITION-HANDLER-BINDINGS*)) (A0803 (QUOTE VARIABLE)) (A0804 "Condition handler binding stack")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A0802 A0803 A0804))) A0804)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *PROCEED-CASES*))) (OR (BOUNDP (QUOTE *PROCEED-CASES*)) (SETQ *PROCEED-CASES* NIL)) (LET* ((A0805 (QUOTE *PROCEED-CASES*)) (A0806 (QUOTE VARIABLE)) (A0807 "Active proceed case stack")) ( PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0805 A0806 A0807))) A0807)) 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-CASE1151 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-CASE1151 I 4 MESSAGE I 3 DESIRED-TYPE I 2 VALUE I 1 PLACE I 0 PROCEEDABLE) FhhHg AIºI»Jgð”K gj½¼K°dýMkØ]nñ–hl4 ¿µìML(61 \\LISPERROR 32 CL:VALUES-LIST 12 \\CATCH-FUNCALL) (36 CHECK-TYPE-FAILA0004 26 :NORMAL 9 CHECK-TYPE-FAILA0001) () 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-CASE1155 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-CASE1155 I 3 SELECTORS I 2 VALUE I 1 PLACE I 0 PROCEEDABLE) FhhHg AIºI»Jgð”K gj½¼K°dýMkØ]nñ–hl4 ¿µìML(61 \\LISPERROR 32 CL:VALUES-LIST 12 \\CATCH-FUNCALL) (36 ECASE-FAILA0004 26 :NORMAL 9 ECASE-FAILA0001) () 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-CASE1159 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-CASE1159 P 2 ARGS P 1 STRING) ‡ekaaHl2 OdOó²(¿Oºhh Og [¼K½Lgð²(M a_¿OµOh__¿OkÔ_°½O&_¿°ògj_¿¾M°dýOkØ_nñ–hl4 ¿µêON(125 \\LISPERROR 59 CL:VALUES-LIST 41 \\CATCH-FUNCALL) (96 ASSERT-FAILA0003 52 :NORMAL 38 ASSERT-FAILA0001) () MAKE-INTO-CONDITION D1 (L (2 ARGS 1 DESIRED-TYPE 0 DATUM)) l@dg ‘@!Hdò9¿@g ²&gkº¹@B°dýJkØZnñ–hl4 ¿µìJIo@  ´Ag@gB gHo (105 CHECK-TYPE-FAIL 93 MAKE-CONDITION 78 CL:STRINGP 74 CL:ERROR 59 \\LISPERROR 28 FAKE-SUBTYPEP-FOR-CONDITIONS 7 FAKE-TYPEP-FOR-CONDITIONS) (97 DATUM 88 :FORMAT-ARGUMENTS 84 :FORMAT-STRING 33 MAKE-CONDITION 25 CONDITION 18 LITATOM 4 CONDITION) ( 102 (OR CL:SYMBOL STRING) 70 "~S is not a condition type.") 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)) #@ Hd g Y”@kI¿Hg 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 qAdHð¤¿Hµ)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-CASE1178 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-CASE1178 I 0 PC) m`@ X³@ ´@ g µ @ X´AkHhNg YºI»Jgð”K gj½¼K°dýMkØ]nñ–hl4 ¿µìML(100 \\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) () CONDITION---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE CONDITION) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-CONDITION D1 (L (0 |-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (31 :--DUMMY-SLOT-- 22 CONDITION) () (PUTPROP (QUOTE CONDITION) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-CONDITION)) (PUTPROP (QUOTE CONDITION) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE CONDITION) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T)))) (PUTPROP (QUOTE CONDITION) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (--DUMMY-SLOT--))) (LET* ((A0826 (QUOTE CONDITION)) (A0825 (QUOTE %CONDITION-HANDLER)) (A0824 NIL)) (PUTPROP A0826 A0825 A0824)) |CONDITION report method| D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "Condition ~S occurred.") (LET* ((A0829 (QUOTE CONDITION)) (A0828 (QUOTE %CONDITION-REPORTER)) (A0827 (FUNCTION |CONDITION report method|))) (PUTPROP A0829 A0828 A0827)) SIMPLE-CONDITION-FORMAT-ARGUMENTS D1 (L (0 OBJECT)) @NIL NIL () SIMPLE-CONDITION-FORMAT-STRING D1 (L (0 OBJECT)) @NIL NIL () SIMPLE-CONDITION---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE SIMPLE-CONDITION) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-SIMPLE-CONDITION D1 (L (0 |-args-|)) xeHkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿gILOhagð•JkØa°ÉJlÔZ°»agð•KkØa°ÆKlÔ[°¸agð•NkØa°ÀNlÔ^°²NIL (103 :FORMAT-ARGUMENTS 84 :FORMAT-STRING 65 :--DUMMY-SLOT-- 51 SIMPLE-CONDITION) () (LET* ((A0830 (QUOTE SIMPLE-CONDITION)) (A0831 (QUOTE (CONDITION)))) (PUT A0830 (QUOTE %%INCLUDED-STRUCTURE) A0831)) (PUTPROP (QUOTE SIMPLE-CONDITION) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-SIMPLE-CONDITION)) (PUTPROP (QUOTE SIMPLE-CONDITION) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE SIMPLE-CONDITION) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (FORMAT-STRING NIL :READ-ONLY T) (FORMAT-ARGUMENTS NIL :READ-ONLY T)))) (PUTPROP (QUOTE SIMPLE-CONDITION) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (FORMAT-ARGUMENTS FORMAT-STRING))) (FIX-INHERITANCE-LINKS (QUOTE SIMPLE-CONDITION) (QUOTE CONDITION)) (LET* ((A0834 (QUOTE SIMPLE-CONDITION)) (A0833 (QUOTE %CONDITION-HANDLER)) (A0832 NIL)) (PUTPROP A0834 A0833 A0832)) |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) 6@ @ g liHI°dýKkØ[nñ–hl4 ¿µìKJ(45 \\LISPERROR 16 CL:SYMBOL-FUNCTION 7 SIMPLE-CONDITION-FORMAT-ARGUMENTS 3 SIMPLE-CONDITION-FORMAT-STRING) (13 CL:FORMAT) () (LET* ((A0837 (QUOTE SIMPLE-CONDITION)) (A0836 (QUOTE %CONDITION-REPORTER)) (A0835 (FUNCTION |SIMPLE-CONDITION report method|))) (PUTPROP A0837 A0836 A0835)) WARNING---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE WARNING) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-WARNING D1 (L (0 |-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (31 :--DUMMY-SLOT-- 22 WARNING) () (LET* ((A0838 (QUOTE WARNING)) (A0839 (QUOTE (CONDITION)))) (PUT A0838 (QUOTE %%INCLUDED-STRUCTURE) A0839)) (PUTPROP (QUOTE WARNING) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-WARNING)) (PUTPROP (QUOTE WARNING) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE WARNING) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T)))) (PUTPROP (QUOTE WARNING) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE WARNING) (QUOTE CONDITION)) (LET* ((A0842 (QUOTE WARNING)) (A0841 (QUOTE %CONDITION-HANDLER)) (A0840 NIL)) (PUTPROP A0842 A0841 A0840)) (LET* ((A0845 (QUOTE WARNING)) (A0844 (QUOTE %CONDITION-REPORTER)) (A0843 NIL)) (PUTPROP A0845 A0844 A0843)) SIMPLE-WARNING-FORMAT-ARGUMENTS D1 (L (0 OBJECT)) @NIL NIL () SIMPLE-WARNING-FORMAT-STRING D1 (L (0 OBJECT)) @NIL NIL () SIMPLE-WARNING---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE SIMPLE-WARNING) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-SIMPLE-WARNING D1 (L (0 |-args-|)) xeHkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿gILOhagð•JkØa°ÉJlÔZ°»agð•KkØa°ÆKlÔ[°¸agð•NkØa°ÀNlÔ^°²NIL (103 :FORMAT-ARGUMENTS 84 :FORMAT-STRING 65 :--DUMMY-SLOT-- 51 SIMPLE-WARNING) () (LET* ((A0846 (QUOTE SIMPLE-WARNING)) (A0847 (QUOTE (WARNING)))) (PUT A0846 (QUOTE %%INCLUDED-STRUCTURE) A0847)) (PUTPROP (QUOTE SIMPLE-WARNING) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-SIMPLE-WARNING)) (PUTPROP (QUOTE SIMPLE-WARNING) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE SIMPLE-WARNING) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) ( FORMAT-STRING NIL :READ-ONLY T) (FORMAT-ARGUMENTS NIL :READ-ONLY T)))) (PUTPROP (QUOTE SIMPLE-WARNING) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (FORMAT-ARGUMENTS FORMAT-STRING))) (FIX-INHERITANCE-LINKS (QUOTE SIMPLE-WARNING) (QUOTE WARNING)) (LET* ((A0850 (QUOTE SIMPLE-WARNING)) (A0849 (QUOTE %CONDITION-HANDLER)) (A0848 NIL)) (PUTPROP A0850 A0849 A0848)) |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) 2@ @ "gl»ºiHI°dýKkØ[nñ–hl4 ¿µìKJ(41 \\LISPERROR 7 SIMPLE-WARNING-FORMAT-ARGUMENTS 3 SIMPLE-WARNING-FORMAT-STRING) (13 CL:FORMAT) () (LET* ((A0853 (QUOTE SIMPLE-WARNING)) (A0852 (QUOTE %CONDITION-REPORTER)) (A0851 (FUNCTION |SIMPLE-WARNING report method|))) (PUTPROP A0853 A0852 A0851)) OLD-BREAK1-LIST D1 (L (0 OBJECT)) @NIL NIL () OLD-BREAK1---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE OLD-BREAK1) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-OLD-BREAK1 D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :LIST 47 :--DUMMY-SLOT-- 36 OLD-BREAK1) () (LET* ((A0854 (QUOTE OLD-BREAK1)) (A0855 (QUOTE (CONDITION)))) (PUT A0854 (QUOTE %%INCLUDED-STRUCTURE) A0855)) (PUTPROP (QUOTE OLD-BREAK1) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-OLD-BREAK1)) (PUTPROP (QUOTE OLD-BREAK1) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE OLD-BREAK1) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (LIST NIL :READ-ONLY T)))) (PUTPROP (QUOTE OLD-BREAK1) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (LIST))) (FIX-INHERITANCE-LINKS (QUOTE OLD-BREAK1) (QUOTE CONDITION)) (LET* ((A0858 (QUOTE OLD-BREAK1)) (A0857 (QUOTE %CONDITION-HANDLER)) (A0856 NIL)) (PUTPROP A0858 A0857 A0856)) |OLD-BREAK1 report method| D1 (P 5 MESS3 P 4 MESS2 P 3 A1181 P 2 MESS1 P 1 A1180 P 0 LIST I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ QHYºI[¼K½JLM (25 ERRORMESS1 3 OLD-BREAK1-LIST) NIL () (LET* ((A0861 (QUOTE OLD-BREAK1)) (A0860 (QUOTE %CONDITION-REPORTER)) (A0859 (FUNCTION |OLD-BREAK1 report method|))) (PUTPROP A0861 A0860 A0859)) SERIOUS-CONDITION---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE SERIOUS-CONDITION) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-SERIOUS-CONDITION D1 (L (0 |-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (31 :--DUMMY-SLOT-- 22 SERIOUS-CONDITION) () (LET* ((A0862 (QUOTE SERIOUS-CONDITION)) (A0863 (QUOTE (CONDITION)))) (PUT A0862 (QUOTE %%INCLUDED-STRUCTURE) A0863)) (PUTPROP (QUOTE SERIOUS-CONDITION) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-SERIOUS-CONDITION)) (PUTPROP (QUOTE SERIOUS-CONDITION) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE SERIOUS-CONDITION) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T )))) (PUTPROP (QUOTE SERIOUS-CONDITION) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE SERIOUS-CONDITION) (QUOTE CONDITION)) (LET* ((A0866 (QUOTE SERIOUS-CONDITION)) (A0865 (QUOTE %CONDITION-HANDLER)) (A0864 NIL)) (PUTPROP A0866 A0865 A0864)) |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* ((A0869 (QUOTE SERIOUS-CONDITION)) (A0868 (QUOTE %CONDITION-REPORTER)) (A0867 (FUNCTION |SERIOUS-CONDITION report method|))) (PUTPROP A0869 A0868 A0867)) ERROR---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE ERROR) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-ERROR D1 (L (0 |-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (31 :--DUMMY-SLOT-- 22 ERROR) () (LET* ((A0870 (QUOTE ERROR)) (A0871 (QUOTE (SERIOUS-CONDITION)))) (PUT A0870 (QUOTE %%INCLUDED-STRUCTURE) A0871)) (PUTPROP (QUOTE ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-ERROR)) (PUTPROP (QUOTE ERROR) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE ERROR) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T)))) (PUTPROP (QUOTE ERROR) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE ERROR) (QUOTE SERIOUS-CONDITION)) (LET* ((A0874 (QUOTE ERROR)) (A0873 (QUOTE %CONDITION-HANDLER)) (A0872 NIL)) (PUTPROP A0874 A0873 A0872)) (LET* ((A0877 (QUOTE ERROR)) (A0876 (QUOTE %CONDITION-REPORTER)) (A0875 NIL)) (PUTPROP A0877 A0876 A0875)) SIMPLE-ERROR-FORMAT-ARGUMENTS D1 (L (0 OBJECT)) @NIL NIL () SIMPLE-ERROR-FORMAT-STRING D1 (L (0 OBJECT)) @NIL NIL () SIMPLE-ERROR---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE SIMPLE-ERROR) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-SIMPLE-ERROR D1 (L (0 |-args-|)) xeHkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿gILOhagð•JkØa°ÉJlÔZ°»agð•KkØa°ÆKlÔ[°¸agð•NkØa°ÀNlÔ^°²NIL (103 :FORMAT-ARGUMENTS 84 :FORMAT-STRING 65 :--DUMMY-SLOT-- 51 SIMPLE-ERROR) () (LET* ((A0878 (QUOTE SIMPLE-ERROR)) (A0879 (QUOTE (ERROR)))) (PUT A0878 (QUOTE %%INCLUDED-STRUCTURE) A0879)) (PUTPROP (QUOTE SIMPLE-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-SIMPLE-ERROR)) (PUTPROP (QUOTE SIMPLE-ERROR) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE SIMPLE-ERROR) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) ( FORMAT-STRING NIL :READ-ONLY T) (FORMAT-ARGUMENTS NIL :READ-ONLY T)))) (PUTPROP (QUOTE SIMPLE-ERROR) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (FORMAT-ARGUMENTS FORMAT-STRING))) (FIX-INHERITANCE-LINKS (QUOTE SIMPLE-ERROR) (QUOTE ERROR)) (LET* ((A0882 (QUOTE SIMPLE-ERROR)) (A0881 (QUOTE %CONDITION-HANDLER)) (A0880 NIL)) (PUTPROP A0882 A0881 A0880)) |SIMPLE-ERROR report method| D1 (P 3 CNT P 2 FN P 1 FORMAT-ARGUMENTS P 0 FORMAT-STRING I 1 *STANDARD-OUTPUT* I 0 CONDITION) 2@ @ "gl»ºiHI°dýKkØ[nñ–hl4 ¿µìKJ(41 \\LISPERROR 7 SIMPLE-ERROR-FORMAT-ARGUMENTS 3 SIMPLE-ERROR-FORMAT-STRING) (13 CL:FORMAT) () (LET* ((A0885 (QUOTE SIMPLE-ERROR)) (A0884 (QUOTE %CONDITION-REPORTER)) (A0883 (FUNCTION |SIMPLE-ERROR report method|))) (PUTPROP A0885 A0884 A0883)) OLD-INTERLISP-ERROR-MESSAGE D1 (L (0 OBJECT)) @NIL NIL () OLD-INTERLISP-ERROR-NUMBER D1 (L (0 OBJECT)) @NIL NIL () OLD-INTERLISP-ERROR---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE OLD-INTERLISP-ERROR) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-OLD-INTERLISP-ERROR D1 (L (0 |-args-|)) xeHkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿gILOhagð•JkØa°ÉJlÔZ°»agð•KkØa°ÆKlÔ[°¸agð•NkØa°ÀNlÔ^°²NIL (103 :MESSAGE 84 :NUMBER 65 :--DUMMY-SLOT-- 51 OLD-INTERLISP-ERROR) () (LET* ((A0886 (QUOTE OLD-INTERLISP-ERROR)) (A0887 (QUOTE (ERROR)))) (PUT A0886 (QUOTE %%INCLUDED-STRUCTURE) A0887)) (PUTPROP (QUOTE OLD-INTERLISP-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-OLD-INTERLISP-ERROR)) (PUTPROP (QUOTE OLD-INTERLISP-ERROR) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE OLD-INTERLISP-ERROR) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (NUMBER NIL :READ-ONLY T) (MESSAGE NIL :READ-ONLY T)))) (PUTPROP (QUOTE OLD-INTERLISP-ERROR) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (MESSAGE NUMBER))) (FIX-INHERITANCE-LINKS (QUOTE OLD-INTERLISP-ERROR) (QUOTE ERROR)) (LET* ((A0890 (QUOTE OLD-INTERLISP-ERROR)) (A0889 (QUOTE %CONDITION-HANDLER)) (A0888 NIL)) (PUTPROP A0890 A0889 A0888)) |OLD-INTERLISP-ERROR report method| D1 (P 4 MESS2 P 3 MESS1 P 2 A1182 P 1 MESSAGE P 0 NUMBER I 1 *STANDARD-OUTPUT* I 0 CONDITION) /@ @ Hdlð²¿I!J»J¼KLg Ih (44 ERRORM 36 ERRORMESS1 7 OLD-INTERLISP-ERROR-MESSAGE 3 OLD-INTERLISP-ERROR-NUMBER) (33 ERROR) () (LET* ((A0893 (QUOTE OLD-INTERLISP-ERROR)) (A0892 (QUOTE %CONDITION-REPORTER)) (A0891 (FUNCTION |OLD-INTERLISP-ERROR report method|))) (PUTPROP A0893 A0892 A0891)) ASSERTION-FAILED-FORMAT-ARGUMENTS D1 (L (0 OBJECT)) @NIL NIL () ASSERTION-FAILED-FORMAT-STRING D1 (L (0 OBJECT)) @NIL NIL () ASSERTION-FAILED---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE ASSERTION-FAILED) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-ASSERTION-FAILED D1 (L (0 |-args-|)) xeHkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿gILOhagð•JkØa°ÉJlÔZ°»agð•KkØa°ÆKlÔ[°¸agð•NkØa°ÀNlÔ^°²NIL (103 :FORMAT-ARGUMENTS 84 :FORMAT-STRING 65 :--DUMMY-SLOT-- 51 ASSERTION-FAILED) () (LET* ((A0894 (QUOTE ASSERTION-FAILED)) (A0895 (QUOTE (SIMPLE-ERROR)))) (PUT A0894 (QUOTE %%INCLUDED-STRUCTURE) A0895)) (PUTPROP (QUOTE ASSERTION-FAILED) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-ASSERTION-FAILED)) (PUTPROP (QUOTE ASSERTION-FAILED) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE ASSERTION-FAILED) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (FORMAT-STRING NIL :READ-ONLY T) (FORMAT-ARGUMENTS NIL :READ-ONLY T)))) (PUTPROP (QUOTE ASSERTION-FAILED) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE ASSERTION-FAILED) (QUOTE SIMPLE-ERROR)) (LET* ((A0898 (QUOTE ASSERTION-FAILED)) (A0897 (QUOTE %CONDITION-HANDLER)) (A0896 NIL)) (PUTPROP A0898 A0897 A0896)) |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) 8@ @ "gl»ºiHµoI°dýKkØ[nñ–hl4 ¿µìKJ(47 \\LISPERROR 7 ASSERTION-FAILED-FORMAT-ARGUMENTS 3 ASSERTION-FAILED-FORMAT-STRING) (13 CL:FORMAT) ( 25 "Assertion failed.") (LET* ((A0901 (QUOTE ASSERTION-FAILED)) (A0900 (QUOTE %CONDITION-REPORTER)) (A0899 (FUNCTION |ASSERTION-FAILED report method|))) (PUTPROP A0901 A0900 A0899)) CELL-ERROR-NAME D1 (L (0 OBJECT)) @NIL NIL () CELL-ERROR---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE CELL-ERROR) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-CELL-ERROR D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :NAME 47 :--DUMMY-SLOT-- 36 CELL-ERROR) () (LET* ((A0902 (QUOTE CELL-ERROR)) (A0903 (QUOTE (ERROR)))) (PUT A0902 (QUOTE %%INCLUDED-STRUCTURE) A0903)) (PUTPROP (QUOTE CELL-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-CELL-ERROR)) (PUTPROP (QUOTE CELL-ERROR) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE CELL-ERROR) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (NAME NIL :READ-ONLY T)))) (PUTPROP (QUOTE CELL-ERROR) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (NAME))) (FIX-INHERITANCE-LINKS (QUOTE CELL-ERROR) (QUOTE ERROR)) (LET* ((A0906 (QUOTE CELL-ERROR)) (A0905 (QUOTE %CONDITION-HANDLER)) (A0904 NIL)) (PUTPROP A0906 A0905 A0904)) (LET* ((A0909 (QUOTE CELL-ERROR)) (A0908 (QUOTE %CONDITION-REPORTER)) (A0907 NIL)) (PUTPROP A0909 A0908 A0907)) UNBOUND-VARIABLE-NAME D1 (L (0 OBJECT)) @NIL NIL () UNBOUND-VARIABLE---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE UNBOUND-VARIABLE) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-UNBOUND-VARIABLE D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :NAME 47 :--DUMMY-SLOT-- 36 UNBOUND-VARIABLE) () (LET* ((A0910 (QUOTE UNBOUND-VARIABLE)) (A0911 (QUOTE (CELL-ERROR)))) (PUT A0910 (QUOTE %%INCLUDED-STRUCTURE) A0911)) (PUTPROP (QUOTE UNBOUND-VARIABLE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-UNBOUND-VARIABLE)) (PUTPROP (QUOTE UNBOUND-VARIABLE) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE UNBOUND-VARIABLE) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (NAME NIL :READ-ONLY T)))) (PUTPROP (QUOTE UNBOUND-VARIABLE) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE UNBOUND-VARIABLE) (QUOTE CELL-ERROR)) (LET* ((A0914 (QUOTE UNBOUND-VARIABLE)) (A0913 (QUOTE %CONDITION-HANDLER)) (A0912 NIL)) (PUTPROP A0914 A0913 A0912)) |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* ((A0917 (QUOTE UNBOUND-VARIABLE)) (A0916 (QUOTE %CONDITION-REPORTER)) (A0915 (FUNCTION |UNBOUND-VARIABLE report method|))) (PUTPROP A0917 A0916 A0915)) UNDEFINED-FUNCTION-NAME D1 (L (0 OBJECT)) @NIL NIL () UNDEFINED-FUNCTION---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE UNDEFINED-FUNCTION) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-UNDEFINED-FUNCTION D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :NAME 47 :--DUMMY-SLOT-- 36 UNDEFINED-FUNCTION) () (LET* ((A0918 (QUOTE UNDEFINED-FUNCTION)) (A0919 (QUOTE (CELL-ERROR)))) (PUT A0918 (QUOTE %%INCLUDED-STRUCTURE) A0919)) (PUTPROP (QUOTE UNDEFINED-FUNCTION) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-UNDEFINED-FUNCTION)) (PUTPROP (QUOTE UNDEFINED-FUNCTION) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE UNDEFINED-FUNCTION) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (NAME NIL :READ-ONLY T)))) (PUTPROP (QUOTE UNDEFINED-FUNCTION) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE UNDEFINED-FUNCTION) (QUOTE CELL-ERROR)) (LET* ((A0922 (QUOTE UNDEFINED-FUNCTION)) (A0921 (QUOTE %CONDITION-HANDLER)) (A0920 NIL)) (PUTPROP A0922 A0921 A0920)) |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* ((A0925 (QUOTE UNDEFINED-FUNCTION)) (A0924 (QUOTE %CONDITION-REPORTER)) (A0923 (FUNCTION |UNDEFINED-FUNCTION report method|))) (PUTPROP A0925 A0924 A0923)) NO-PROCEED-TEST-NAME D1 (L (0 OBJECT)) @NIL NIL () NO-PROCEED-TEST---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE NO-PROCEED-TEST) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-NO-PROCEED-TEST D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :NAME 47 :--DUMMY-SLOT-- 36 NO-PROCEED-TEST) () (LET* ((A0926 (QUOTE NO-PROCEED-TEST)) (A0927 (QUOTE (UNDEFINED-FUNCTION)))) (PUT A0926 (QUOTE %%INCLUDED-STRUCTURE) A0927)) (PUTPROP (QUOTE NO-PROCEED-TEST) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-NO-PROCEED-TEST)) (PUTPROP (QUOTE NO-PROCEED-TEST) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE NO-PROCEED-TEST) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (NAME NIL :READ-ONLY T)))) (PUTPROP (QUOTE NO-PROCEED-TEST) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE NO-PROCEED-TEST) (QUOTE UNDEFINED-FUNCTION)) (LET* ((A0930 (QUOTE NO-PROCEED-TEST)) (A0929 (QUOTE %CONDITION-HANDLER)) (A0928 NIL)) (PUTPROP A0930 A0929 A0928)) |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* ((A0933 (QUOTE NO-PROCEED-TEST)) (A0932 (QUOTE %CONDITION-REPORTER)) (A0931 (FUNCTION |NO-PROCEED-TEST report method|))) (PUTPROP A0933 A0932 A0931)) INDEX-BOUNDS-ERROR-INDEX D1 (L (0 OBJECT)) @NIL NIL () INDEX-BOUNDS-ERROR-NAME D1 (L (0 OBJECT)) @NIL NIL () INDEX-BOUNDS-ERROR---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE INDEX-BOUNDS-ERROR) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-INDEX-BOUNDS-ERROR D1 (L (0 |-args-|)) xeHkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿gILOhagð•JkØa°ÉJlÔZ°»agð•KkØa°ÆKlÔ[°¸agð•NkØa°ÀNlÔ^°²NIL (103 :INDEX 84 :NAME 65 :--DUMMY-SLOT-- 51 INDEX-BOUNDS-ERROR) () (LET* ((A0934 (QUOTE INDEX-BOUNDS-ERROR)) (A0935 (QUOTE (CELL-ERROR)))) (PUT A0934 (QUOTE %%INCLUDED-STRUCTURE) A0935)) (PUTPROP (QUOTE INDEX-BOUNDS-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-INDEX-BOUNDS-ERROR)) (PUTPROP (QUOTE INDEX-BOUNDS-ERROR) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE INDEX-BOUNDS-ERROR) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (NAME NIL :READ-ONLY T) (INDEX NIL :READ-ONLY T)))) (PUTPROP (QUOTE INDEX-BOUNDS-ERROR) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (INDEX))) (FIX-INHERITANCE-LINKS (QUOTE INDEX-BOUNDS-ERROR) (QUOTE CELL-ERROR)) (LET* ((A0938 (QUOTE INDEX-BOUNDS-ERROR)) (A0937 (QUOTE %CONDITION-HANDLER)) (A0936 NIL)) (PUTPROP A0938 A0937 A0936)) |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* ((A0941 (QUOTE INDEX-BOUNDS-ERROR)) (A0940 (QUOTE %CONDITION-REPORTER)) (A0939 (FUNCTION |INDEX-BOUNDS-ERROR report method|))) (PUTPROP A0941 A0940 A0939)) PRETTY-TYPE-NAME D1 (L (0 TYPESPEC)) o@ (7 CONCAT) NIL ( 3 "a ") TYPE-MISMATCH-MESSAGE D1 (L (0 OBJECT)) @NIL NIL () TYPE-MISMATCH-DESIRED-TYPE D1 (L (0 OBJECT)) @NIL NIL () TYPE-MISMATCH-VALUE D1 (L (0 OBJECT)) @NIL NIL () TYPE-MISMATCH-NAME D1 (L (0 OBJECT)) @NIL NIL () TYPE-MISMATCH---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE TYPE-MISMATCH) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-TYPE-MISMATCH D1 (L (0 |-args-|)) ÖeHkJdIó²a¿hÁ Hk»ºKdJó²d¿h¼Hk¾½NdMó²j¿h_¿Hk_¿_¿OdOó²h¿h_¿Hk_¿_¿OdOó²j¿h_¿gILOOOhagð•JkØa°™JlÔZ°‹agð•KkØa°–KlÔ[°ˆagð•NkØa°NlÔ^°‚agð–OkØa°‘OlÔ_±ÿ€agð–OkØa°OlÔ_±ÿ~NIL (193 :MESSAGE 170 :DESIRED-TYPE 151 :VALUE 132 :NAME 113 :--DUMMY-SLOT-- 93 TYPE-MISMATCH) () (LET* ((A0942 (QUOTE TYPE-MISMATCH)) (A0943 (QUOTE (CELL-ERROR)))) (PUT A0942 (QUOTE %%INCLUDED-STRUCTURE) A0943)) (PUTPROP (QUOTE TYPE-MISMATCH) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-TYPE-MISMATCH)) (PUTPROP (QUOTE TYPE-MISMATCH) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE TYPE-MISMATCH) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) ( NAME NIL :READ-ONLY T) (VALUE NIL :READ-ONLY T) (DESIRED-TYPE NIL :READ-ONLY T) (MESSAGE NIL :READ-ONLY T)))) (PUTPROP (QUOTE TYPE-MISMATCH) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (MESSAGE DESIRED-TYPE VALUE))) (FIX-INHERITANCE-LINKS (QUOTE TYPE-MISMATCH) (QUOTE CELL-ERROR)) (LET* ((A0946 (QUOTE TYPE-MISMATCH)) (A0945 (QUOTE %CONDITION-HANDLER)) (A0944 NIL)) (PUTPROP A0946 A0945 A0944)) |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) '@ @ @ @ ioHIKµJ (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* ((A0949 (QUOTE TYPE-MISMATCH)) (A0948 (QUOTE %CONDITION-REPORTER)) (A0947 (FUNCTION |TYPE-MISMATCH report method|))) (PUTPROP A0949 A0948 A0947)) CONTROL-ERROR---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE CONTROL-ERROR) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-CONTROL-ERROR D1 (L (0 |-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (31 :--DUMMY-SLOT-- 22 CONTROL-ERROR) () (LET* ((A0950 (QUOTE CONTROL-ERROR)) (A0951 (QUOTE (ERROR)))) (PUT A0950 (QUOTE %%INCLUDED-STRUCTURE) A0951)) (PUTPROP (QUOTE CONTROL-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-CONTROL-ERROR)) (PUTPROP (QUOTE CONTROL-ERROR) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE CONTROL-ERROR) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T)))) (PUTPROP (QUOTE CONTROL-ERROR) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE CONTROL-ERROR) (QUOTE ERROR)) (LET* ((A0954 (QUOTE CONTROL-ERROR)) (A0953 (QUOTE %CONDITION-HANDLER)) (A0952 NIL)) (PUTPROP A0954 A0953 A0952)) (LET* ((A0957 (QUOTE CONTROL-ERROR)) (A0956 (QUOTE %CONDITION-REPORTER)) (A0955 NIL)) (PUTPROP A0957 A0956 A0955)) ILLEGAL-GO-TAG D1 (L (0 OBJECT)) @NIL NIL () ILLEGAL-GO---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE ILLEGAL-GO) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-ILLEGAL-GO D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :TAG 47 :--DUMMY-SLOT-- 36 ILLEGAL-GO) () (LET* ((A0958 (QUOTE ILLEGAL-GO)) (A0959 (QUOTE (CONTROL-ERROR)))) (PUT A0958 (QUOTE %%INCLUDED-STRUCTURE) A0959)) (PUTPROP (QUOTE ILLEGAL-GO) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-ILLEGAL-GO)) (PUTPROP (QUOTE ILLEGAL-GO) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE ILLEGAL-GO) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (TAG NIL :READ-ONLY T)))) (PUTPROP (QUOTE ILLEGAL-GO) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (TAG))) (FIX-INHERITANCE-LINKS (QUOTE ILLEGAL-GO) (QUOTE CONTROL-ERROR)) (LET* ((A0962 (QUOTE ILLEGAL-GO)) (A0961 (QUOTE %CONDITION-HANDLER)) (A0960 NIL)) (PUTPROP A0962 A0961 A0960)) |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* ((A0965 (QUOTE ILLEGAL-GO)) (A0964 (QUOTE %CONDITION-REPORTER)) (A0963 (FUNCTION |ILLEGAL-GO report method|))) (PUTPROP A0965 A0964 A0963)) ILLEGAL-RETURN-TAG D1 (L (0 OBJECT)) @NIL NIL () ILLEGAL-RETURN---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE ILLEGAL-RETURN) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-ILLEGAL-RETURN D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :TAG 47 :--DUMMY-SLOT-- 36 ILLEGAL-RETURN) () (LET* ((A0966 (QUOTE ILLEGAL-RETURN)) (A0967 (QUOTE (CONTROL-ERROR)))) (PUT A0966 (QUOTE %%INCLUDED-STRUCTURE) A0967)) (PUTPROP (QUOTE ILLEGAL-RETURN) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-ILLEGAL-RETURN)) (PUTPROP (QUOTE ILLEGAL-RETURN) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE ILLEGAL-RETURN) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) ( TAG NIL :READ-ONLY T)))) (PUTPROP (QUOTE ILLEGAL-RETURN) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (TAG))) (FIX-INHERITANCE-LINKS (QUOTE ILLEGAL-RETURN) (QUOTE CONTROL-ERROR)) (LET* ((A0970 (QUOTE ILLEGAL-RETURN)) (A0969 (QUOTE %CONDITION-HANDLER)) (A0968 NIL)) (PUTPROP A0970 A0969 A0968)) |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* ((A0973 (QUOTE ILLEGAL-RETURN)) (A0972 (QUOTE %CONDITION-REPORTER)) (A0971 (FUNCTION |ILLEGAL-RETURN report method|))) (PUTPROP A0973 A0972 A0971)) ILLEGAL-THROW-TAG D1 (L (0 OBJECT)) @NIL NIL () ILLEGAL-THROW---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE ILLEGAL-THROW) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-ILLEGAL-THROW D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :TAG 47 :--DUMMY-SLOT-- 36 ILLEGAL-THROW) () (LET* ((A0974 (QUOTE ILLEGAL-THROW)) (A0975 (QUOTE (CONTROL-ERROR)))) (PUT A0974 (QUOTE %%INCLUDED-STRUCTURE) A0975)) (PUTPROP (QUOTE ILLEGAL-THROW) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-ILLEGAL-THROW)) (PUTPROP (QUOTE ILLEGAL-THROW) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE ILLEGAL-THROW) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) ( TAG NIL :READ-ONLY T)))) (PUTPROP (QUOTE ILLEGAL-THROW) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (TAG))) (FIX-INHERITANCE-LINKS (QUOTE ILLEGAL-THROW) (QUOTE CONTROL-ERROR)) (LET* ((A0978 (QUOTE ILLEGAL-THROW)) (A0977 (QUOTE %CONDITION-HANDLER)) (A0976 NIL)) (PUTPROP A0978 A0977 A0976)) |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* ((A0981 (QUOTE ILLEGAL-THROW)) (A0980 (QUOTE %CONDITION-REPORTER)) (A0979 (FUNCTION |ILLEGAL-THROW report method|))) (PUTPROP A0981 A0980 A0979)) BAD-PROCEED-CASE-NAME D1 (L (0 OBJECT)) @NIL NIL () BAD-PROCEED-CASE---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE BAD-PROCEED-CASE) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-BAD-PROCEED-CASE D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :NAME 47 :--DUMMY-SLOT-- 36 BAD-PROCEED-CASE) () (LET* ((A0982 (QUOTE BAD-PROCEED-CASE)) (A0983 (QUOTE (CONTROL-ERROR)))) (PUT A0982 (QUOTE %%INCLUDED-STRUCTURE) A0983)) (PUTPROP (QUOTE BAD-PROCEED-CASE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-BAD-PROCEED-CASE)) (PUTPROP (QUOTE BAD-PROCEED-CASE) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE BAD-PROCEED-CASE) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (NAME NIL :READ-ONLY T)))) (PUTPROP (QUOTE BAD-PROCEED-CASE) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (NAME))) (FIX-INHERITANCE-LINKS (QUOTE BAD-PROCEED-CASE) (QUOTE CONTROL-ERROR)) (LET* ((A0986 (QUOTE BAD-PROCEED-CASE)) (A0985 (QUOTE %CONDITION-HANDLER)) (A0984 NIL)) (PUTPROP A0986 A0985 A0984)) |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* ((A0989 (QUOTE BAD-PROCEED-CASE)) (A0988 (QUOTE %CONDITION-REPORTER)) (A0987 (FUNCTION |BAD-PROCEED-CASE report method|))) (PUTPROP A0989 A0988 A0987)) CALL-ERROR-CALLEE D1 (L (0 OBJECT)) @NIL NIL () CALL-ERROR---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE CALL-ERROR) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-CALL-ERROR D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :CALLEE 47 :--DUMMY-SLOT-- 36 CALL-ERROR) () (LET* ((A0990 (QUOTE CALL-ERROR)) (A0991 (QUOTE (CONTROL-ERROR)))) (PUT A0990 (QUOTE %%INCLUDED-STRUCTURE) A0991)) (PUTPROP (QUOTE CALL-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-CALL-ERROR)) (PUTPROP (QUOTE CALL-ERROR) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE CALL-ERROR) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) ( CALLEE NIL :READ-ONLY T)))) (PUTPROP (QUOTE CALL-ERROR) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (CALLEE))) (FIX-INHERITANCE-LINKS (QUOTE CALL-ERROR) (QUOTE CONTROL-ERROR)) (LET* ((A0994 (QUOTE CALL-ERROR)) (A0993 (QUOTE %CONDITION-HANDLER)) (A0992 NIL)) (PUTPROP A0994 A0993 A0992)) (LET* ((A0997 (QUOTE CALL-ERROR)) (A0996 (QUOTE %CONDITION-REPORTER)) (A0995 NIL)) (PUTPROP A0997 A0996 A0995)) TOO-MANY-ARGUMENTS-ACTUAL D1 (L (0 OBJECT)) @NIL NIL () TOO-MANY-ARGUMENTS-MAXIMUM D1 (L (0 OBJECT)) @NIL NIL () TOO-MANY-ARGUMENTS-CALLEE D1 (L (0 OBJECT)) @NIL NIL () TOO-MANY-ARGUMENTS---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE TOO-MANY-ARGUMENTS) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-TOO-MANY-ARGUMENTS D1 (L (0 |-args-|)) ¦ eHkJdIó²I¿h‘ Hk»ºKdJó²L¿h¼Hk¾½NdMó²R¿h_¿Hk_¿_¿OdOó²P¿h_¿gILOOhagð•JkØa°±JlÔZ°£agð•KkØa°®KlÔ[° agð•NkØa°¨NlÔ^°šagð–OkØa°©OlÔ_°˜NIL (146 :ACTUAL 127 :MAXIMUM 108 :CALLEE 89 :--DUMMY-SLOT-- 72 TOO-MANY-ARGUMENTS) () (LET* ((A0998 (QUOTE TOO-MANY-ARGUMENTS)) (A0999 (QUOTE (CALL-ERROR)))) (PUT A0998 (QUOTE %%INCLUDED-STRUCTURE) A0999)) (PUTPROP (QUOTE TOO-MANY-ARGUMENTS) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-TOO-MANY-ARGUMENTS)) (PUTPROP (QUOTE TOO-MANY-ARGUMENTS) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE TOO-MANY-ARGUMENTS) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (CALLEE NIL :READ-ONLY T) (MAXIMUM NIL :READ-ONLY T) (ACTUAL NIL :READ-ONLY T)))) (PUTPROP (QUOTE TOO-MANY-ARGUMENTS) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (ACTUAL MAXIMUM))) (FIX-INHERITANCE-LINKS (QUOTE TOO-MANY-ARGUMENTS) (QUOTE CALL-ERROR)) (LET* ((A1002 (QUOTE TOO-MANY-ARGUMENTS)) (A1001 (QUOTE %CONDITION-HANDLER)) (A1000 NIL)) (PUTPROP A1002 A1001 A1000)) |TOO-MANY-ARGUMENTS report method| D1 (P 2 ACTUAL P 1 MAXIMUM P 0 CALLEE I 1 *STANDARD-OUTPUT* I 0 CONDITION) +@ @ @ IžJœioHJI 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* ((A1005 (QUOTE TOO-MANY-ARGUMENTS)) (A1004 (QUOTE %CONDITION-REPORTER)) (A1003 (FUNCTION |TOO-MANY-ARGUMENTS report method|))) (PUTPROP A1005 A1004 A1003)) TOO-FEW-ARGUMENTS-ACTUAL D1 (L (0 OBJECT)) @NIL NIL () TOO-FEW-ARGUMENTS-MINIMUM D1 (L (0 OBJECT)) @NIL NIL () TOO-FEW-ARGUMENTS-CALLEE D1 (L (0 OBJECT)) @NIL NIL () TOO-FEW-ARGUMENTS---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE TOO-FEW-ARGUMENTS) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-TOO-FEW-ARGUMENTS D1 (L (0 |-args-|)) ¦ eHkJdIó²I¿h‘ Hk»ºKdJó²L¿h¼Hk¾½NdMó²R¿h_¿Hk_¿_¿OdOó²P¿h_¿gILOOhagð•JkØa°±JlÔZ°£agð•KkØa°®KlÔ[° agð•NkØa°¨NlÔ^°šagð–OkØa°©OlÔ_°˜NIL (146 :ACTUAL 127 :MINIMUM 108 :CALLEE 89 :--DUMMY-SLOT-- 72 TOO-FEW-ARGUMENTS) () (LET* ((A1006 (QUOTE TOO-FEW-ARGUMENTS)) (A1007 (QUOTE (CALL-ERROR)))) (PUT A1006 (QUOTE %%INCLUDED-STRUCTURE) A1007)) (PUTPROP (QUOTE TOO-FEW-ARGUMENTS) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-TOO-FEW-ARGUMENTS)) (PUTPROP (QUOTE TOO-FEW-ARGUMENTS) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE TOO-FEW-ARGUMENTS) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T ) (CALLEE NIL :READ-ONLY T) (MINIMUM NIL :READ-ONLY T) (ACTUAL NIL :READ-ONLY T)))) (PUTPROP (QUOTE TOO-FEW-ARGUMENTS) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (ACTUAL MINIMUM))) (FIX-INHERITANCE-LINKS (QUOTE TOO-FEW-ARGUMENTS) (QUOTE CALL-ERROR)) (LET* ((A1010 (QUOTE TOO-FEW-ARGUMENTS)) (A1009 (QUOTE %CONDITION-HANDLER)) (A1008 NIL)) (PUTPROP A1010 A1009 A1008)) |TOO-FEW-ARGUMENTS report method| D1 (P 2 ACTUAL P 1 MINIMUM P 0 CALLEE I 1 *STANDARD-OUTPUT* I 0 CONDITION) +@ @ @ IžJœioHJI 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* ((A1013 (QUOTE TOO-FEW-ARGUMENTS)) (A1012 (QUOTE %CONDITION-REPORTER)) (A1011 (FUNCTION |TOO-FEW-ARGUMENTS report method|))) (PUTPROP A1013 A1012 A1011)) INVALID-ARGUMENT-LIST-CALLEE D1 (L (0 OBJECT)) @NIL NIL () INVALID-ARGUMENT-LIST---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE INVALID-ARGUMENT-LIST) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-INVALID-ARGUMENT-LIST D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :CALLEE 47 :--DUMMY-SLOT-- 36 INVALID-ARGUMENT-LIST) () (LET* ((A1014 (QUOTE INVALID-ARGUMENT-LIST)) (A1015 (QUOTE (CALL-ERROR)))) (PUT A1014 (QUOTE %%INCLUDED-STRUCTURE) A1015)) (PUTPROP (QUOTE INVALID-ARGUMENT-LIST) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-INVALID-ARGUMENT-LIST)) (PUTPROP (QUOTE INVALID-ARGUMENT-LIST) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE INVALID-ARGUMENT-LIST) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (CALLEE NIL :READ-ONLY T)))) (PUTPROP (QUOTE INVALID-ARGUMENT-LIST) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE INVALID-ARGUMENT-LIST) (QUOTE CALL-ERROR)) (LET* ((A1018 (QUOTE INVALID-ARGUMENT-LIST)) (A1017 (QUOTE %CONDITION-HANDLER)) (A1016 NIL)) (PUTPROP A1018 A1017 A1016)) |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* ((A1021 (QUOTE INVALID-ARGUMENT-LIST)) (A1020 (QUOTE %CONDITION-REPORTER)) (A1019 (FUNCTION |INVALID-ARGUMENT-LIST report method|))) (PUTPROP A1021 A1020 A1019)) STREAM-ERROR-STREAM D1 (L (0 OBJECT)) @NIL NIL () STREAM-ERROR---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE STREAM-ERROR) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-STREAM-ERROR D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :STREAM 47 :--DUMMY-SLOT-- 36 STREAM-ERROR) () (LET* ((A1022 (QUOTE STREAM-ERROR)) (A1023 (QUOTE (ERROR)))) (PUT A1022 (QUOTE %%INCLUDED-STRUCTURE) A1023)) (PUTPROP (QUOTE STREAM-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-STREAM-ERROR)) (PUTPROP (QUOTE STREAM-ERROR) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE STREAM-ERROR) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) ( STREAM NIL :READ-ONLY T)))) (PUTPROP (QUOTE STREAM-ERROR) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (STREAM))) (FIX-INHERITANCE-LINKS (QUOTE STREAM-ERROR) (QUOTE ERROR)) (LET* ((A1026 (QUOTE STREAM-ERROR)) (A1025 (QUOTE %CONDITION-HANDLER)) (A1024 NIL)) (PUTPROP A1026 A1025 A1024)) |STREAM-ERROR report method| D1 (P 0 STREAM I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (15 CL:FORMAT 3 STREAM-ERROR-STREAM) NIL ( 11 "Stream error on ~S.") (LET* ((A1029 (QUOTE STREAM-ERROR)) (A1028 (QUOTE %CONDITION-REPORTER)) (A1027 (FUNCTION |STREAM-ERROR report method|))) (PUTPROP A1029 A1028 A1027)) READ-ERROR-STREAM D1 (L (0 OBJECT)) @NIL NIL () READ-ERROR---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE READ-ERROR) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-READ-ERROR D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :STREAM 47 :--DUMMY-SLOT-- 36 READ-ERROR) () (LET* ((A1030 (QUOTE READ-ERROR)) (A1031 (QUOTE (STREAM-ERROR)))) (PUT A1030 (QUOTE %%INCLUDED-STRUCTURE) A1031)) (PUTPROP (QUOTE READ-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-READ-ERROR)) (PUTPROP (QUOTE READ-ERROR) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE READ-ERROR) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) ( STREAM NIL :READ-ONLY T)))) (PUTPROP (QUOTE READ-ERROR) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE READ-ERROR) (QUOTE STREAM-ERROR)) (LET* ((A1034 (QUOTE READ-ERROR)) (A1033 (QUOTE %CONDITION-HANDLER)) (A1032 NIL)) (PUTPROP A1034 A1033 A1032)) (LET* ((A1037 (QUOTE READ-ERROR)) (A1036 (QUOTE %CONDITION-REPORTER)) (A1035 NIL)) (PUTPROP A1037 A1036 A1035)) END-OF-FILE-STREAM D1 (L (0 OBJECT)) @NIL NIL () END-OF-FILE---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE END-OF-FILE) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-END-OF-FILE D1 (L (0 |-args-|)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (66 :STREAM 47 :--DUMMY-SLOT-- 36 END-OF-FILE) () (LET* ((A1038 (QUOTE END-OF-FILE)) (A1039 (QUOTE (READ-ERROR (STREAM NIL :READ-ONLY T))))) (PUT A1038 (QUOTE %%INCLUDED-STRUCTURE) A1039)) (PUTPROP (QUOTE END-OF-FILE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-END-OF-FILE)) (PUTPROP (QUOTE END-OF-FILE) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE END-OF-FILE) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) ( STREAM NIL :READ-ONLY T)))) (PUTPROP (QUOTE END-OF-FILE) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE END-OF-FILE) (QUOTE READ-ERROR)) (LET* ((A1042 (QUOTE END-OF-FILE)) (A1041 (QUOTE %CONDITION-HANDLER)) (A1040 NIL)) (PUTPROP A1042 A1041 A1040)) |END-OF-FILE report method| D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "End of file:~% ~S") (LET* ((A1045 (QUOTE END-OF-FILE)) (A1044 (QUOTE %CONDITION-REPORTER)) (A1043 (FUNCTION |END-OF-FILE report method|))) (PUTPROP A1045 A1044 A1043)) STORAGE-CONDITION---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE STORAGE-CONDITION) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-STORAGE-CONDITION D1 (L (0 |-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (31 :--DUMMY-SLOT-- 22 STORAGE-CONDITION) () (LET* ((A1046 (QUOTE STORAGE-CONDITION)) (A1047 (QUOTE (SERIOUS-CONDITION)))) (PUT A1046 (QUOTE %%INCLUDED-STRUCTURE) A1047)) (PUTPROP (QUOTE STORAGE-CONDITION) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-STORAGE-CONDITION)) (PUTPROP (QUOTE STORAGE-CONDITION) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE STORAGE-CONDITION) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T )))) (PUTPROP (QUOTE STORAGE-CONDITION) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE STORAGE-CONDITION) (QUOTE SERIOUS-CONDITION)) (LET* ((A1050 (QUOTE STORAGE-CONDITION)) (A1049 (QUOTE %CONDITION-HANDLER)) (A1048 NIL)) (PUTPROP A1050 A1049 A1048)) (LET* ((A1053 (QUOTE STORAGE-CONDITION)) (A1052 (QUOTE %CONDITION-REPORTER)) (A1051 NIL)) (PUTPROP A1053 A1052 A1051)) STACK-OVERFLOW---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE STACK-OVERFLOW) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-STACK-OVERFLOW D1 (L (0 |-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (31 :--DUMMY-SLOT-- 22 STACK-OVERFLOW) () (LET* ((A1054 (QUOTE STACK-OVERFLOW)) (A1055 (QUOTE (STORAGE-CONDITION)))) (PUT A1054 (QUOTE %%INCLUDED-STRUCTURE) A1055)) (PUTPROP (QUOTE STACK-OVERFLOW) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-STACK-OVERFLOW)) (PUTPROP (QUOTE STACK-OVERFLOW) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE STACK-OVERFLOW) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T))) ) (PUTPROP (QUOTE STACK-OVERFLOW) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE STACK-OVERFLOW) (QUOTE STORAGE-CONDITION)) (LET* ((A1058 (QUOTE STACK-OVERFLOW)) (A1057 (QUOTE %CONDITION-HANDLER)) (A1056 NIL)) (PUTPROP A1058 A1057 A1056)) |STACK-OVERFLOW report method| D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "Stack overflow") (LET* ((A1061 (QUOTE STACK-OVERFLOW)) (A1060 (QUOTE %CONDITION-REPORTER)) (A1059 (FUNCTION |STACK-OVERFLOW report method|))) (PUTPROP A1061 A1060 A1059)) STORAGE-EXHAUSTED---DUMMY-SLOT-- D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE STORAGE-EXHAUSTED) (FUNCTION \\DEFPRINT.DEFSTRUCT.DEFAULT)) %MAKE-STORAGE-EXHAUSTED D1 (L (0 |-args-|)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (31 :--DUMMY-SLOT-- 22 STORAGE-EXHAUSTED) () (LET* ((A1062 (QUOTE STORAGE-EXHAUSTED)) (A1063 (QUOTE (STORAGE-CONDITION)))) (PUT A1062 (QUOTE %%INCLUDED-STRUCTURE) A1063)) (PUTPROP (QUOTE STORAGE-EXHAUSTED) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %MAKE-STORAGE-EXHAUSTED)) (PUTPROP (QUOTE STORAGE-EXHAUSTED) (QUOTE %STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE STORAGE-EXHAUSTED) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T )))) (PUTPROP (QUOTE STORAGE-EXHAUSTED) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE STORAGE-EXHAUSTED) (QUOTE STORAGE-CONDITION)) (LET* ((A1066 (QUOTE STORAGE-EXHAUSTED)) (A1065 (QUOTE %CONDITION-HANDLER)) (A1064 NIL)) (PUTPROP A1066 A1065 A1064)) (LET* ((A1069 (QUOTE STORAGE-EXHAUSTED)) (A1068 (QUOTE %CONDITION-REPORTER)) (A1067 NIL)) (PUTPROP A1069 A1068 A1067)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *BREAK-ON-WARNINGS*))) (OR (BOUNDP (QUOTE *BREAK-ON-WARNINGS*)) (SETQ *BREAK-ON-WARNINGS* NIL)) (LET* ((A1070 (QUOTE *BREAK-ON-WARNINGS*)) (A1071 (QUOTE VARIABLE)) (A1072 "If true, calls to WARN will cause a break as well as logging the warning.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A1070 A1071 A1072))) A1072)) MAKE-CONDITION D1 (L (0 |-args-|)) a eka1Hl2 NdMó²¿OºIg j¼»J°5a_¿OµOh__¿NkÔ^°ÔO&_¿°ôdýLkØ\nñ–hl4 ¿µìLK(88 \\LISPERROR 32 GETPROP) (29 STRUCTURE-CONSTRUCTOR) () (LET* ((A1073 (QUOTE MAKE-CONDITION)) (A1074 (QUOTE CL:FUNCTION)) (A1075 "Create a condition object of the specified type.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A1073 A1074 A1075))) A1075)) SIGNAL D1 (L (0 |-args-|)) R eka!Hl2MdLó²!¿NºIgJ [ Kdg ”¿K a_¿OµOh_¾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-|)) BekaHl2LdKó²¿MºIgJ a_¿NµOh^½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) (gliRS°dýIkØYnñ–hl4 ¿µìIH(31 \\LISPERROR) (2 CL:FORMAT) () CERRORA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE1185 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-CASE1185 P 4 CONDITION P 3 ARGUMENTS P 2 DATUM P 1 PROCEED-FORMAT-STRING) “eka laºHl2OdOó²,¿O»h\hOg ]¾M_¿Ngð²)O a_¿OµOh__¿OkÔ_°¹O&_¿°ògj_¿_¿O°dýOkØ_nñ–hl4 ¿µêOO(136 \\LISPERROR 67 CL:VALUES-LIST 46 \\CATCH-FUNCALL) (104 CERRORA0003 59 :NORMAL 43 CERRORA0001) () CL:WARN D1 (L (0 |-args-|) F 9 *ERROR-OUTPUT* F 10 *BREAK-ON-WARNINGS*) … eka!Hl2MdLó²¿NºIgJ [g ²"h° a_¿OµOh_¾MkÔ]°ÐO&_¿°ôi²oggggKgg ¿K WoK ¿W“K K(129 CL:BREAK 121 CL:FORMAT 118 REPORT-CONDITION 108 RAISE-SIGNAL 103 CL:CERROR 39 FAKE-TYPEP-FOR-CONDITIONS 32 MAKE-INTO-CONDITION) (99 WARNING 96 :DESIRED-TYPE 92 :VALUE 89 CONDITION 86 :NAME 83 TYPE-MISMATCH 36 WARNING 28 SIMPLE-WARNING) ( 114 "~&Warning: ~A~%" 80 "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-CASE1189 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-CASE1189 P 3 CONDITION P 2 ARGUMENTS P 1 DATUM) ”ekHñ”okaqHl2 OdOó²)¿Oºh[hOg \½L¾Mgð²(N a_¿OµOh__¿OkÔ_°¼O&_¿°ògj_¿_¿N°dýOkØ_nñ–hl4 ¿µêOO(137 \\LISPERROR 69 CL:VALUES-LIST 51 \\CATCH-FUNCALL) (106 BREAKA0003 62 :NORMAL 48 BREAKA0001) ( 11 "Break") DEBUG D1 (L (0 |-args-|)) JekHñ”okaHl2LdKó²¿MZ¿IgJ °ôa_¿NµOh^½LkÔ\°ØO&¾°ö(45 ERRORX 42 MAKE-INTO-CONDITION) (38 SIMPLE-CONDITION) ( 11 "Break") PROCEED-CASE-REPORT D1 (L (0 OBJECT)) @ÉNIL (3 PROCEED-CASE) () |setf-PROCEED-CASE-REPORT| D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE PROCEED-CASE-REPORT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS PROCEED-CASE-REPORT SETF-INVERSE |setf-PROCEED-CASE-REPORT|) PROCEED-CASE-TEST D1 (L (0 OBJECT)) @ÉNIL (3 PROCEED-CASE) () |setf-PROCEED-CASE-TEST| D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE PROCEED-CASE-TEST) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS PROCEED-CASE-TEST SETF-INVERSE |setf-PROCEED-CASE-TEST|) PROCEED-CASE-SELECTOR D1 (L (0 OBJECT)) @ÉNIL (3 PROCEED-CASE) () |setf-PROCEED-CASE-SELECTOR| D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE PROCEED-CASE-SELECTOR) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS PROCEED-CASE-SELECTOR SETF-INVERSE |setf-PROCEED-CASE-SELECTOR|) PROCEED-CASE-TAG D1 (L (0 OBJECT)) @ÉNIL (3 PROCEED-CASE) () |setf-PROCEED-CASE-TAG| D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE PROCEED-CASE-TAG) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS PROCEED-CASE-TAG SETF-INVERSE |setf-PROCEED-CASE-TAG|) PROCEED-CASE-NAME D1 (L (0 OBJECT)) @ÉNIL (3 PROCEED-CASE) () |setf-PROCEED-CASE-NAME| D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE PROCEED-CASE-NAME) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS PROCEED-CASE-NAME SETF-INVERSE |setf-PROCEED-CASE-NAME|) PROCEED-CASE-P D1 (L (0 OBJECT)) @ÃNIL (3 PROCEED-CASE) () COPY-PROCEED-CASE D1 (L (0 OBJECT)) `@ (6 NCREATE2) (2 |PROCEED-CASETYPE#|) () (DEFPRINT (QUOTE PROCEED-CASE) (FUNCTION (LAMBDA (X STREAM) (APPLY* (FUNCTION %PROCEED-CASE-PRINTER) X STREAM 0) T))) MAKE-PROCEED-CASE D1 (L (0 |-args-|)) îeHkJdIó²s¿hÁ Hk»ºKdJó²w¿h¼Hk¾½NdMó²~¿h_¿Hk_¿_¿OdOó²~¿h_¿Hk_¿_¿OdOó¢±€¿g_¿`dI¿dL¿dO¿dO¿dO¿agð•JkØa°‡JlÔZ±ÿyagð•KkØa°ƒKlÔ[±ÿuagð–NkØa±ÿ|NlÔ^±ÿmagð—OkØa±ÿ{OlÔ_±ÿiagð—OkØa±ÿ|OlÔ_±ÿfNIL (216 :REPORT 192 :TEST 171 :SELECTOR 151 :TAG 131 :NAME 97 |PROCEED-CASETYPE#| 91 %PROCEED-CASE-DEFAULT-REPORTER) () (PUTPROP (QUOTE PROCEED-CASE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE MAKE-PROCEED-CASE)) (PUTPROP (QUOTE PROCEED-CASE) (QUOTE %STRUCTURE-CLASS) (QUOTE STRUCTURE-CLASS)) (PUTPROP (QUOTE PROCEED-CASE) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE (NAME TAG SELECTOR TEST (REPORT (QUOTE %PROCEED-CASE-DEFAULT-REPORTER))))) (PUTPROP (QUOTE PROCEED-CASE) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (REPORT TEST SELECTOR TAG NAME))) (/DECLAREDATATYPE (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))) (QUOTE 10)) REAL-PROCEED-CASE-CONTINUATION D1 (L (0 OBJECT)) @É NIL (3 REAL-PROCEED-CASE) () |setf-REAL-PROCEED-CASE-CONTINUATION| D1 (L (1 VALUE 0 OBJECT)) @A ANIL (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|) REAL-PROCEED-CASE-REPORT D1 (L (0 OBJECT)) @ÉNIL (3 PROCEED-CASE) () |setf-REAL-PROCEED-CASE-REPORT| D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE REAL-PROCEED-CASE-REPORT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS REAL-PROCEED-CASE-REPORT SETF-INVERSE |setf-REAL-PROCEED-CASE-REPORT|) REAL-PROCEED-CASE-TEST D1 (L (0 OBJECT)) @ÉNIL (3 PROCEED-CASE) () |setf-REAL-PROCEED-CASE-TEST| D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE REAL-PROCEED-CASE-TEST) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS REAL-PROCEED-CASE-TEST SETF-INVERSE |setf-REAL-PROCEED-CASE-TEST|) REAL-PROCEED-CASE-SELECTOR D1 (L (0 OBJECT)) @ÉNIL (3 PROCEED-CASE) () |setf-REAL-PROCEED-CASE-SELECTOR| D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE REAL-PROCEED-CASE-SELECTOR) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS REAL-PROCEED-CASE-SELECTOR SETF-INVERSE |setf-REAL-PROCEED-CASE-SELECTOR|) REAL-PROCEED-CASE-TAG D1 (L (0 OBJECT)) @ÉNIL (3 PROCEED-CASE) () |setf-REAL-PROCEED-CASE-TAG| D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE REAL-PROCEED-CASE-TAG) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS REAL-PROCEED-CASE-TAG SETF-INVERSE |setf-REAL-PROCEED-CASE-TAG|) REAL-PROCEED-CASE-NAME D1 (L (0 OBJECT)) @ÉNIL (3 PROCEED-CASE) () |setf-REAL-PROCEED-CASE-NAME| D1 (L (1 VALUE 0 OBJECT)) @AANIL (3 PROCEED-CASE) () (REMPROP (QUOTE REAL-PROCEED-CASE-NAME) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS REAL-PROCEED-CASE-NAME SETF-INVERSE |setf-REAL-PROCEED-CASE-NAME|) REAL-PROCEED-CASE-P D1 (L (0 OBJECT)) @ÃNIL (3 REAL-PROCEED-CASE) () COPY-REAL-PROCEED-CASE D1 (L (0 OBJECT)) `@ (6 NCREATE2) (2 |REAL-PROCEED-CASETYPE#|) () (DEFPRINT (QUOTE REAL-PROCEED-CASE) (FUNCTION (LAMBDA (X STREAM) (APPLY* (FUNCTION %PROCEED-CASE-PRINTER) X STREAM 0) T))) MAKE-REAL-PROCEED-CASE D1 (L (0 |-args-|)) -eHkJdIó¢±—¿hñHk»ºKdJ󢱚¿h¼Hk¾½NdMó¢± ¿h_¿Hk_¿_¿OdO󢱞¿h_¿Hk_¿_¿OdO󢱟¿g_¿Hk_¿_¿OdO󢱞¿h_ ¿`dI¿dL¿dO¿dO¿dO¿dO  ¿agð–JkØa±ÿdJlÔZ±ÿSagð–KkØa±ÿaKlÔ[±ÿPagð–NkØa±ÿ[NlÔ^±ÿJagð—OkØa±ÿ\OlÔ_±ÿHagð—OkØa±ÿ]OlÔ_±ÿGagð—OkØa±ÿ\OlÔ_±ÿHNIL (279 :CONTINUATION 255 :REPORT 231 :TEST 210 :SELECTOR 189 :TAG 168 :NAME 128 |REAL-PROCEED-CASETYPE#| 99 %PROCEED-CASE-DEFAULT-REPORTER) () (LET* ((A1085 (QUOTE REAL-PROCEED-CASE)) (A1086 (QUOTE (PROCEED-CASE)))) (PUT A1085 (QUOTE %%INCLUDED-STRUCTURE) A1086)) (PUTPROP (QUOTE REAL-PROCEED-CASE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE MAKE-REAL-PROCEED-CASE)) (PUTPROP (QUOTE REAL-PROCEED-CASE) (QUOTE %STRUCTURE-CLASS) (QUOTE STRUCTURE-CLASS)) (PUTPROP (QUOTE REAL-PROCEED-CASE) (QUOTE %SLOT-DESCRIPTIONS) (QUOTE (NAME TAG SELECTOR TEST (REPORT ( QUOTE %PROCEED-CASE-DEFAULT-REPORTER)) CONTINUATION))) (PUTPROP (QUOTE REAL-PROCEED-CASE) (QUOTE %LOCAL-SLOT-NAMES) (QUOTE (CONTINUATION))) (/DECLAREDATATYPE (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))) NIL (QUOTE PROCEED-CASE)) FIND-PROCEED-CASE D1 (L (1 CONDITION 0 DATUM) F 4 *PROCEED-CASES*) X@1HYµohgg Ã@T´ @A ´@IôTZµh[ @ð˜KA ’KµðJ°çgHo (85 CHECK-TYPE-FAIL 66 TEST-PROCEED-CASE 58 PROCEED-CASE-NAME 36 TEST-PROCEED-CASE 21 CL:ERROR) (77 DATUM 44 LITATOM 25 PROCEED-CASE 18 COMPUTE-PROCEED-CASES 15 FIND-PROCEED-CASE) ( 82 (OR NULL PROCEED-CASE CL:SYMBOL) 11 "~S is an invalid argument to ~S;~% use ~S instead") COMPUTE-PROCEED-CASESA0001 D1 (F 0 PC F 1 CONDITION) PQ (4 TEST-PROCEED-CASE) NIL () COMPUTE-PROCEED-CASES D1 (P 4 PC I 0 CONDITION F 5 *PROCEED-CASES*) /UAHµI¼gg ‘h€i©L»Jµ KhZ¹HX°ÞK&º°ø(20 \\CATCH-FUNCALL) (17 COMPUTE-PROCEED-CASESA0001 14 SKIP-PROCEED-CASE) () INVOKE-PROCEED-CASE D1 (L (0 |-args-|)) 7ekaqlaºHl2 OdOó²Q¿O»IJ \¢±g g –g ¿LdⱿLÉLÉ JIlð²0K a_¿OµOh__¿OkÔ_°”O&_¿°òLÉ ²ÉLÉÁÉg'k¾½JK°dýNkØ^nñ–hl4 ¿µìNM°šÃ´aLÉLÉJIlð³DLÉ ²9LÉÁÉg'k_¿_¿JK°dýOkØ_nñ–hl4 ¿µêOO€K ggI (308 CL:ERROR 297 \\DO-THROW 294 \\MVLIST 279 \\LISPERROR 231 CL:FBOUNDP 189 \\LISPERROR 147 CL:FBOUNDP 104 \\DO-THROW 101 \\MVLIST 98 CL:VALUES-LIST 61 BREAKRESETFN 54 BOUNDP 47 BOUNDP 36 FIND-PROCEED-CASE) (304 :NAME 301 BAD-PROCEED-CASE 246 %PROCEED-ARG-COLLECTOR 237 PROCEED-CASE 226 PROCEED-CASE 212 PROCEED-CASE 206 PROCEED-CASE 200 PROCEED-CASE 162 %PROCEED-ARG-COLLECTOR 153 REAL-PROCEED-CASE 142 REAL-PROCEED-CASE 82 REAL-PROCEED-CASE 76 REAL-PROCEED-CASE 67 REAL-PROCEED-CASE 58 LEAVING 51 \\BREAKRESETEXPR 44 BREAKRESETVALS) () (LET* ((A1090 (QUOTE ABORT)) (A1089 (QUOTE %DEFAULT-PROCEED-TEST)) (A1088 (QUOTE TRUE))) (PUTPROP A1090 A1089 A1088)) |ABORT-proceed-reporter| D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "Abort") (LET* ((A1091 (QUOTE ABORT)) (A1092 (QUOTE %DEFAULT-PROCEED-REPORT)) (A1093 (QUOTE DEFAULT-PROCEED-REPORTER)) (A1094 (QUOTE |ABORT-proceed-reporter|))) (PUTPROP A1091 A1092 A1094)) (LET* ((A1095 (QUOTE ABORT)) (A1096 (QUOTE %PROCEED-ARG-COLLECTOR)) (A1098 (FUNCTION (CL:LAMBDA ( &OPTIONAL CONDITION) (LIST))))) (PUTPROP A1095 A1096 A1098)) ABORTA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE1193) @cgh (12 \\DO-THROW 9 \\MVLIST) (5 CONDITION-CASE1195) () ABORTA0001 D1 (P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION) ggQgR (21 \\MVLIST 18 INVOKE-PROCEED-CASE) (14 ABORT 5 ABORTA0001A0002 2 BAD-PROCEED-CASE) () ABORT D1 (P 0 CONDITION-CASE1193 I 0 CONDITION)  gg ¹H‘hI (20 CL:VALUES-LIST 11 \\CATCH-FUNCALL) (8 ABORTA0001 5 CONDITION-CASE1195) () (LET* ((A1105 (QUOTE PROCEED)) (A1104 (QUOTE %DEFAULT-PROCEED-TEST)) (A1103 (QUOTE TRUE))) (PUTPROP A1105 A1104 A1103)) |PROCEED-proceed-reporter| D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "Proceed with no special action") (LET* ((A1106 (QUOTE PROCEED)) (A1107 (QUOTE %DEFAULT-PROCEED-REPORT)) (A1108 (QUOTE DEFAULT-PROCEED-REPORTER)) (A1109 (QUOTE |PROCEED-proceed-reporter|))) (PUTPROP A1106 A1107 A1109)) (LET* ((A1110 (QUOTE PROCEED)) (A1111 (QUOTE %PROCEED-ARG-COLLECTOR)) (A1113 (FUNCTION (CL:LAMBDA ( &OPTIONAL CONDITION) (LIST))))) (PUTPROP A1110 A1111 A1113)) PROCEEDA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE1197) @cgh (12 \\DO-THROW 9 \\MVLIST) (5 CONDITION-CASE1199) () PROCEEDA0001 D1 (P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION) ggQgR (21 \\MVLIST 18 INVOKE-PROCEED-CASE) (14 PROCEED 5 PROCEEDA0001A0002 2 BAD-PROCEED-CASE) () PROCEED D1 (P 0 CONDITION-CASE1197 I 0 CONDITION)  gg ¹H‘hI (20 CL:VALUES-LIST 11 \\CATCH-FUNCALL) (8 PROCEEDA0001 5 CONDITION-CASE1199) () (LET* ((A1120 (QUOTE USE-VALUE)) (A1119 (QUOTE %DEFAULT-PROCEED-TEST)) (A1118 (QUOTE TRUE))) (PUTPROP A1120 A1119 A1118)) |USE-VALUE-proceed-reporter| D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "Use a different value") (LET* ((A1121 (QUOTE USE-VALUE)) (A1122 (QUOTE %DEFAULT-PROCEED-REPORT)) (A1123 (QUOTE DEFAULT-PROCEED-REPORTER)) (A1124 (QUOTE |USE-VALUE-proceed-reporter|))) (PUTPROP A1121 A1122 A1124)) (LET* ((A1125 (QUOTE USE-VALUE)) (A1126 (QUOTE %PROCEED-ARG-COLLECTOR)) (A1128 (FUNCTION (CL:LAMBDA ( &OPTIONAL CONDITION (VALUE (PROGN (CL:FORMAT *QUERY-IO* "Enter a new value: ") (EVAL (CL:READ *QUERY-IO*))))) (LIST VALUE))))) (PUTPROP A1125 A1126 A1128)) USE-VALUEA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE1201) @cgh (12 \\DO-THROW 9 \\MVLIST) (5 CONDITION-CASE1203) () USE-VALUEA0001 D1 (P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION F 3 VALUE) ggQgRS (22 \\MVLIST 19 INVOKE-PROCEED-CASE) (14 USE-VALUE 5 USE-VALUEA0001A0002 2 BAD-PROCEED-CASE) () USE-VALUE D1 (L (0 |-args-|) P 4 CONDITION-CASE1201 P 3 VALUE P 1 CONDITION F 5 *QUERY-IO*) @ekHñ‘hkalHñ²Uo ¿U ‚lagg ºL‘hJ (61 CL:VALUES-LIST 52 \\CATCH-FUNCALL 36 EVAL 33 CL:READ 28 CL:FORMAT) (49 USE-VALUEA0001 46 CONDITION-CASE1203) ( 25 "Enter a new value: ") (LET* ((A1135 (QUOTE STORE-VALUE)) (A1134 (QUOTE %DEFAULT-PROCEED-TEST)) (A1133 (QUOTE TRUE))) ( PUTPROP A1135 A1134 A1133)) |STORE-VALUE-proceed-reporter| D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "Store a new value and use it") (LET* ((A1136 (QUOTE STORE-VALUE)) (A1137 (QUOTE %DEFAULT-PROCEED-REPORT)) (A1138 (QUOTE DEFAULT-PROCEED-REPORTER)) (A1139 (QUOTE |STORE-VALUE-proceed-reporter|))) (PUTPROP A1136 A1137 A1139) ) (LET* ((A1140 (QUOTE STORE-VALUE)) (A1141 (QUOTE %PROCEED-ARG-COLLECTOR)) (A1143 (FUNCTION (CL:LAMBDA (&OPTIONAL CONDITION (VALUE (PROGN (CL:FORMAT *QUERY-IO* "Enter a value to store: ") (CL:EVAL (CL:READ *QUERY-IO*))))) (LIST VALUE))))) (PUTPROP A1140 A1141 A1143)) STORE-VALUEA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE1205) @cgh (12 \\DO-THROW 9 \\MVLIST) (5 CONDITION-CASE1207) () STORE-VALUEA0001 D1 (P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION F 3 VALUE) ggQgRS (22 \\MVLIST 19 INVOKE-PROCEED-CASE) (14 STORE-VALUE 5 STORE-VALUEA0001A0002 2 BAD-PROCEED-CASE) () STORE-VALUE D1 (L (0 |-args-|) P 4 CONDITION-CASE1205 P 3 VALUE P 1 CONDITION F 5 *QUERY-IO*) @ekHñ‘hkalHñ²Uo ¿U ‚lagg ºL‘hJ (61 CL:VALUES-LIST 52 \\CATCH-FUNCALL 36 CL:EVAL 33 CL:READ 28 CL:FORMAT) (49 STORE-VALUEA0001 46 CONDITION-CASE1207) ( 25 "Enter a value to store: ") SIMPLE-FORMAT D1 (L (0 |-args-|) F 9 *STANDARD-OUTPUT*) N eka!Hl2MdLó²¿NºIið’W¹J[d³ a_¿OµOh_¾MkÔ]°×O&_¿°ôI ¿K°Ö(71 CL:PRINT) NIL () (MOVD? (QUOTE SIMPLE-FORMAT) (QUOTE CL:FORMAT)) (PUTPROPS ERROR-RUNTIME FILETYPE CL:COMPILE-FILE) (PUTPROPS ERROR-RUNTIME COPYRIGHT ("Xerox Corporation" 1986)) NIL