(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "17-Oct-86 18:51:13" ("compiled on " {ERIS}LISP>ERROR-RUNTIME.;15) "12-Oct-86 23:04:15" "COMPILE-FILEd" in "Xerox Lisp 12-Oct-86 ..." dated "12-Oct-86 23:41:02") (FILECREATED "17-Oct-86 17:49:26" {ERIS}LISP>ERROR-RUNTIME.;15 32276 changes to%: (STRUCTURES ERROR SIMPLE-ERROR OLD-INTERLISP-ERROR CELL-ERROR CONTROL-ERROR STREAM-ERROR SIMPLE-WARNING PROCEED-CASE REAL-PROCEED-CASE) (VARS ERROR-RUNTIMECOMS SHOULD-BE-IN-PACKAGE) (FUNCTIONS TRY-ERRORTYPELST %%PRINT-CONDITION %%PROCEED-CASE-PRINTER %%PROCEED-CASE-DEFAULT-REPORTER MAKE-CONDITION INVOKE-PROCEED-CASE RAISE-SIGNAL) (VARIABLES *CONDITION-HANDLER-BINDINGS* *PROCEED-CASES*) previous date%: "16-Oct-86 17:59:30" {ERIS}LISP>ERROR-RUNTIME.;14) (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 CL:*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 CL:*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* ((A7025 (QUOTE *CONDITION-HANDLER-BINDINGS*)) (A7026 (QUOTE VARIABLE)) (A7027 "Condition handler binding stack")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A7025 A7026 A7027))) A7027)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *PROCEED-CASES*))) (OR (BOUNDP (QUOTE *PROCEED-CASES*)) (SETQ *PROCEED-CASES* NIL)) (LET* ((A7028 (QUOTE *PROCEED-CASES*)) (A7029 (QUOTE VARIABLE)) (A7030 "Active proceed case stack")) ( PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A7028 A7029 A7030))) A7030)) 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-CASE7434 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-CASE7434 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-CASE7438 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-CASE7438 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-CASE7442 F 2 *PROCEED-CASES* F 3 CL: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-CASE7442 P 2 ARGS P 1 CL: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 CL: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-CASE7461 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-CASE7461 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) () type-expand-CONDITION D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE CONDITION)) (PUT (QUOTE CONDITION) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-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* ((A7053 (QUOTE CONDITION)) (A7052 (QUOTE %%CONDITION-HANDLER)) (A7051 NIL)) (PUTPROP A7053 A7052 A7051)) |CONDITION report method| D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "Condition ~S occurred.") (LET* ((A7056 (QUOTE CONDITION)) (A7055 (QUOTE %%CONDITION-REPORTER)) (A7054 (FUNCTION |CONDITION report method|))) (PUTPROP A7056 A7055 A7054)) 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) () type-expand-SIMPLE-CONDITION D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE SIMPLE-CONDITION)) (PUT (QUOTE SIMPLE-CONDITION) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-SIMPLE-CONDITION)) (LET* ((A7058 (QUOTE SIMPLE-CONDITION)) (A7059 (QUOTE (CONDITION)))) (PUT A7058 (QUOTE %%%%INCLUDED-STRUCTURE) A7059)) (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* ((A7062 (QUOTE SIMPLE-CONDITION)) (A7061 (QUOTE %%CONDITION-HANDLER)) (A7060 NIL)) (PUTPROP A7062 A7061 A7060)) |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) 2@ @ "gl»ºiHI°dýKkØ[nñ–hl4 ¿µìKJ(41 \LISPERROR 7 SIMPLE-CONDITION-FORMAT-ARGUMENTS 3 SIMPLE-CONDITION-FORMAT-STRING) (13 CL:FORMAT) () (LET* ((A7065 (QUOTE SIMPLE-CONDITION)) (A7064 (QUOTE %%CONDITION-REPORTER)) (A7063 (FUNCTION |SIMPLE-CONDITION report method|))) (PUTPROP A7065 A7064 A7063)) 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) () type-expand-WARNING D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE WARNING)) (PUT (QUOTE WARNING) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-WARNING)) (LET* ((A7067 (QUOTE WARNING)) (A7068 (QUOTE (CONDITION)))) (PUT A7067 (QUOTE %%%%INCLUDED-STRUCTURE) A7068)) (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* ((A7071 (QUOTE WARNING)) (A7070 (QUOTE %%CONDITION-HANDLER)) (A7069 NIL)) (PUTPROP A7071 A7070 A7069)) (LET* ((A7074 (QUOTE WARNING)) (A7073 (QUOTE %%CONDITION-REPORTER)) (A7072 NIL)) (PUTPROP A7074 A7073 A7072)) 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) () type-expand-SIMPLE-WARNING D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE SIMPLE-WARNING)) (PUT (QUOTE SIMPLE-WARNING) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-SIMPLE-WARNING)) (LET* ((A7076 (QUOTE SIMPLE-WARNING)) (A7077 (QUOTE (WARNING)))) (PUT A7076 (QUOTE %%%%INCLUDED-STRUCTURE) A7077)) (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* ((A7080 (QUOTE SIMPLE-WARNING)) (A7079 (QUOTE %%CONDITION-HANDLER)) (A7078 NIL)) (PUTPROP A7080 A7079 A7078)) |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* ((A7083 (QUOTE SIMPLE-WARNING)) (A7082 (QUOTE %%CONDITION-REPORTER)) (A7081 (FUNCTION |SIMPLE-WARNING report method|))) (PUTPROP A7083 A7082 A7081)) 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) () type-expand-OLD-BREAK1 D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE OLD-BREAK1)) (PUT (QUOTE OLD-BREAK1) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-OLD-BREAK1)) (LET* ((A7085 (QUOTE OLD-BREAK1)) (A7086 (QUOTE (CONDITION)))) (PUT A7085 (QUOTE %%%%INCLUDED-STRUCTURE) A7086)) (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* ((A7089 (QUOTE OLD-BREAK1)) (A7088 (QUOTE %%CONDITION-HANDLER)) (A7087 NIL)) (PUTPROP A7089 A7088 A7087)) |OLD-BREAK1 report method| D1 (P 5 MESS3 P 4 MESS2 P 3 A7464 P 2 MESS1 P 1 A7463 P 0 LIST I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ QHYºI[¼K½JLM (25 ERRORMESS1 3 OLD-BREAK1-LIST) NIL () (LET* ((A7092 (QUOTE OLD-BREAK1)) (A7091 (QUOTE %%CONDITION-REPORTER)) (A7090 (FUNCTION |OLD-BREAK1 report method|))) (PUTPROP A7092 A7091 A7090)) 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) () type-expand-SERIOUS-CONDITION D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE SERIOUS-CONDITION)) (PUT (QUOTE SERIOUS-CONDITION) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-SERIOUS-CONDITION)) (LET* ((A7094 (QUOTE SERIOUS-CONDITION)) (A7095 (QUOTE (CONDITION)))) (PUT A7094 (QUOTE %%%%INCLUDED-STRUCTURE) A7095)) (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* ((A7098 (QUOTE SERIOUS-CONDITION)) (A7097 (QUOTE %%CONDITION-HANDLER)) (A7096 NIL)) (PUTPROP A7098 A7097 A7096)) |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* ((A7101 (QUOTE SERIOUS-CONDITION)) (A7100 (QUOTE %%CONDITION-REPORTER)) (A7099 (FUNCTION |SERIOUS-CONDITION report method|))) (PUTPROP A7101 A7100 A7099)) 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) () type-expand-ERROR D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE ERROR)) (PUT (QUOTE ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-ERROR)) (LET* ((A7103 (QUOTE ERROR)) (A7104 (QUOTE (SERIOUS-CONDITION)))) (PUT A7103 (QUOTE %%%%INCLUDED-STRUCTURE) A7104)) (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* ((A7107 (QUOTE ERROR)) (A7106 (QUOTE %%CONDITION-HANDLER)) (A7105 NIL)) (PUTPROP A7107 A7106 A7105)) (LET* ((A7110 (QUOTE ERROR)) (A7109 (QUOTE %%CONDITION-REPORTER)) (A7108 NIL)) (PUTPROP A7110 A7109 A7108)) 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) () type-expand-SIMPLE-ERROR D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE SIMPLE-ERROR)) (PUT (QUOTE SIMPLE-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-SIMPLE-ERROR)) (LET* ((A7112 (QUOTE SIMPLE-ERROR)) (A7113 (QUOTE (ERROR)))) (PUT A7112 (QUOTE %%%%INCLUDED-STRUCTURE) A7113)) (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* ((A7116 (QUOTE SIMPLE-ERROR)) (A7115 (QUOTE %%CONDITION-HANDLER)) (A7114 NIL)) (PUTPROP A7116 A7115 A7114)) |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* ((A7119 (QUOTE SIMPLE-ERROR)) (A7118 (QUOTE %%CONDITION-REPORTER)) (A7117 (FUNCTION |SIMPLE-ERROR report method|))) (PUTPROP A7119 A7118 A7117)) 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) () type-expand-OLD-INTERLISP-ERROR D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE OLD-INTERLISP-ERROR)) (PUT (QUOTE OLD-INTERLISP-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-OLD-INTERLISP-ERROR)) (LET* ((A7121 (QUOTE OLD-INTERLISP-ERROR)) (A7122 (QUOTE (ERROR)))) (PUT A7121 (QUOTE %%%%INCLUDED-STRUCTURE) A7122)) (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* ((A7125 (QUOTE OLD-INTERLISP-ERROR)) (A7124 (QUOTE %%CONDITION-HANDLER)) (A7123 NIL)) (PUTPROP A7125 A7124 A7123)) |OLD-INTERLISP-ERROR report method| D1 (P 4 MESS2 P 3 MESS1 P 2 A7465 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* ((A7128 (QUOTE OLD-INTERLISP-ERROR)) (A7127 (QUOTE %%CONDITION-REPORTER)) (A7126 (FUNCTION |OLD-INTERLISP-ERROR report method|))) (PUTPROP A7128 A7127 A7126)) 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) () type-expand-ASSERTION-FAILED D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE ASSERTION-FAILED)) (PUT (QUOTE ASSERTION-FAILED) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-ASSERTION-FAILED)) (LET* ((A7130 (QUOTE ASSERTION-FAILED)) (A7131 (QUOTE (SIMPLE-ERROR)))) (PUT A7130 (QUOTE %%%%INCLUDED-STRUCTURE) A7131)) (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* ((A7134 (QUOTE ASSERTION-FAILED)) (A7133 (QUOTE %%CONDITION-HANDLER)) (A7132 NIL)) (PUTPROP A7134 A7133 A7132)) |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* ((A7137 (QUOTE ASSERTION-FAILED)) (A7136 (QUOTE %%CONDITION-REPORTER)) (A7135 (FUNCTION |ASSERTION-FAILED report method|))) (PUTPROP A7137 A7136 A7135)) 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) () type-expand-CELL-ERROR D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE CELL-ERROR)) (PUT (QUOTE CELL-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-CELL-ERROR)) (LET* ((A7139 (QUOTE CELL-ERROR)) (A7140 (QUOTE (ERROR)))) (PUT A7139 (QUOTE %%%%INCLUDED-STRUCTURE) A7140)) (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* ((A7143 (QUOTE CELL-ERROR)) (A7142 (QUOTE %%CONDITION-HANDLER)) (A7141 NIL)) (PUTPROP A7143 A7142 A7141)) (LET* ((A7146 (QUOTE CELL-ERROR)) (A7145 (QUOTE %%CONDITION-REPORTER)) (A7144 NIL)) (PUTPROP A7146 A7145 A7144)) 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) () type-expand-UNBOUND-VARIABLE D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE UNBOUND-VARIABLE)) (PUT (QUOTE UNBOUND-VARIABLE) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-UNBOUND-VARIABLE)) (LET* ((A7148 (QUOTE UNBOUND-VARIABLE)) (A7149 (QUOTE (CELL-ERROR)))) (PUT A7148 (QUOTE %%%%INCLUDED-STRUCTURE) A7149)) (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* ((A7152 (QUOTE UNBOUND-VARIABLE)) (A7151 (QUOTE %%CONDITION-HANDLER)) (A7150 NIL)) (PUTPROP A7152 A7151 A7150)) |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* ((A7155 (QUOTE UNBOUND-VARIABLE)) (A7154 (QUOTE %%CONDITION-REPORTER)) (A7153 (FUNCTION |UNBOUND-VARIABLE report method|))) (PUTPROP A7155 A7154 A7153)) 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) () type-expand-UNDEFINED-FUNCTION D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE UNDEFINED-FUNCTION)) (PUT (QUOTE UNDEFINED-FUNCTION) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-UNDEFINED-FUNCTION)) (LET* ((A7157 (QUOTE UNDEFINED-FUNCTION)) (A7158 (QUOTE (CELL-ERROR)))) (PUT A7157 (QUOTE %%%%INCLUDED-STRUCTURE) A7158)) (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* ((A7161 (QUOTE UNDEFINED-FUNCTION)) (A7160 (QUOTE %%CONDITION-HANDLER)) (A7159 NIL)) (PUTPROP A7161 A7160 A7159)) |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* ((A7164 (QUOTE UNDEFINED-FUNCTION)) (A7163 (QUOTE %%CONDITION-REPORTER)) (A7162 (FUNCTION |UNDEFINED-FUNCTION report method|))) (PUTPROP A7164 A7163 A7162)) 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) () type-expand-NO-PROCEED-TEST D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE NO-PROCEED-TEST)) (PUT (QUOTE NO-PROCEED-TEST) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-NO-PROCEED-TEST)) (LET* ((A7166 (QUOTE NO-PROCEED-TEST)) (A7167 (QUOTE (UNDEFINED-FUNCTION)))) (PUT A7166 (QUOTE %%%%INCLUDED-STRUCTURE) A7167)) (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* ((A7170 (QUOTE NO-PROCEED-TEST)) (A7169 (QUOTE %%CONDITION-HANDLER)) (A7168 NIL)) (PUTPROP A7170 A7169 A7168)) |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* ((A7173 (QUOTE NO-PROCEED-TEST)) (A7172 (QUOTE %%CONDITION-REPORTER)) (A7171 (FUNCTION |NO-PROCEED-TEST report method|))) (PUTPROP A7173 A7172 A7171)) 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) () type-expand-INDEX-BOUNDS-ERROR D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE INDEX-BOUNDS-ERROR)) (PUT (QUOTE INDEX-BOUNDS-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-INDEX-BOUNDS-ERROR)) (LET* ((A7175 (QUOTE INDEX-BOUNDS-ERROR)) (A7176 (QUOTE (CELL-ERROR)))) (PUT A7175 (QUOTE %%%%INCLUDED-STRUCTURE) A7176)) (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* ((A7179 (QUOTE INDEX-BOUNDS-ERROR)) (A7178 (QUOTE %%CONDITION-HANDLER)) (A7177 NIL)) (PUTPROP A7179 A7178 A7177)) |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* ((A7182 (QUOTE INDEX-BOUNDS-ERROR)) (A7181 (QUOTE %%CONDITION-REPORTER)) (A7180 (FUNCTION |INDEX-BOUNDS-ERROR report method|))) (PUTPROP A7182 A7181 A7180)) 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) () type-expand-TYPE-MISMATCH D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE TYPE-MISMATCH)) (PUT (QUOTE TYPE-MISMATCH) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-TYPE-MISMATCH)) (LET* ((A7184 (QUOTE TYPE-MISMATCH)) (A7185 (QUOTE (CELL-ERROR)))) (PUT A7184 (QUOTE %%%%INCLUDED-STRUCTURE) A7185)) (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* ((A7188 (QUOTE TYPE-MISMATCH)) (A7187 (QUOTE %%CONDITION-HANDLER)) (A7186 NIL)) (PUTPROP A7188 A7187 A7186)) |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* ((A7191 (QUOTE TYPE-MISMATCH)) (A7190 (QUOTE %%CONDITION-REPORTER)) (A7189 (FUNCTION |TYPE-MISMATCH report method|))) (PUTPROP A7191 A7190 A7189)) 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) () type-expand-CONTROL-ERROR D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE CONTROL-ERROR)) (PUT (QUOTE CONTROL-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-CONTROL-ERROR)) (LET* ((A7193 (QUOTE CONTROL-ERROR)) (A7194 (QUOTE (ERROR)))) (PUT A7193 (QUOTE %%%%INCLUDED-STRUCTURE ) A7194)) (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* ((A7197 (QUOTE CONTROL-ERROR)) (A7196 (QUOTE %%CONDITION-HANDLER)) (A7195 NIL)) (PUTPROP A7197 A7196 A7195)) (LET* ((A7200 (QUOTE CONTROL-ERROR)) (A7199 (QUOTE %%CONDITION-REPORTER)) (A7198 NIL)) (PUTPROP A7200 A7199 A7198)) 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) () type-expand-ILLEGAL-GO D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE ILLEGAL-GO)) (PUT (QUOTE ILLEGAL-GO) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-ILLEGAL-GO)) (LET* ((A7202 (QUOTE ILLEGAL-GO)) (A7203 (QUOTE (CONTROL-ERROR)))) (PUT A7202 (QUOTE %%%%INCLUDED-STRUCTURE) A7203)) (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* ((A7206 (QUOTE ILLEGAL-GO)) (A7205 (QUOTE %%CONDITION-HANDLER)) (A7204 NIL)) (PUTPROP A7206 A7205 A7204)) |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* ((A7209 (QUOTE ILLEGAL-GO)) (A7208 (QUOTE %%CONDITION-REPORTER)) (A7207 (FUNCTION |ILLEGAL-GO report method|))) (PUTPROP A7209 A7208 A7207)) 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) () type-expand-ILLEGAL-RETURN D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE ILLEGAL-RETURN)) (PUT (QUOTE ILLEGAL-RETURN) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-ILLEGAL-RETURN)) (LET* ((A7211 (QUOTE ILLEGAL-RETURN)) (A7212 (QUOTE (CONTROL-ERROR)))) (PUT A7211 (QUOTE %%%%INCLUDED-STRUCTURE) A7212)) (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* ((A7215 (QUOTE ILLEGAL-RETURN)) (A7214 (QUOTE %%CONDITION-HANDLER)) (A7213 NIL)) (PUTPROP A7215 A7214 A7213)) |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* ((A7218 (QUOTE ILLEGAL-RETURN)) (A7217 (QUOTE %%CONDITION-REPORTER)) (A7216 (FUNCTION |ILLEGAL-RETURN report method|))) (PUTPROP A7218 A7217 A7216)) 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) () type-expand-ILLEGAL-THROW D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE ILLEGAL-THROW)) (PUT (QUOTE ILLEGAL-THROW) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-ILLEGAL-THROW)) (LET* ((A7220 (QUOTE ILLEGAL-THROW)) (A7221 (QUOTE (CONTROL-ERROR)))) (PUT A7220 (QUOTE %%%%INCLUDED-STRUCTURE) A7221)) (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* ((A7224 (QUOTE ILLEGAL-THROW)) (A7223 (QUOTE %%CONDITION-HANDLER)) (A7222 NIL)) (PUTPROP A7224 A7223 A7222)) |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* ((A7227 (QUOTE ILLEGAL-THROW)) (A7226 (QUOTE %%CONDITION-REPORTER)) (A7225 (FUNCTION |ILLEGAL-THROW report method|))) (PUTPROP A7227 A7226 A7225)) 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) () type-expand-BAD-PROCEED-CASE D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE BAD-PROCEED-CASE)) (PUT (QUOTE BAD-PROCEED-CASE) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-BAD-PROCEED-CASE)) (LET* ((A7229 (QUOTE BAD-PROCEED-CASE)) (A7230 (QUOTE (CONTROL-ERROR)))) (PUT A7229 (QUOTE %%%%INCLUDED-STRUCTURE) A7230)) (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* ((A7233 (QUOTE BAD-PROCEED-CASE)) (A7232 (QUOTE %%CONDITION-HANDLER)) (A7231 NIL)) (PUTPROP A7233 A7232 A7231)) |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* ((A7236 (QUOTE BAD-PROCEED-CASE)) (A7235 (QUOTE %%CONDITION-REPORTER)) (A7234 (FUNCTION |BAD-PROCEED-CASE report method|))) (PUTPROP A7236 A7235 A7234)) 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) () type-expand-CALL-ERROR D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE CALL-ERROR)) (PUT (QUOTE CALL-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-CALL-ERROR)) (LET* ((A7238 (QUOTE CALL-ERROR)) (A7239 (QUOTE (CONTROL-ERROR)))) (PUT A7238 (QUOTE %%%%INCLUDED-STRUCTURE) A7239)) (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* ((A7242 (QUOTE CALL-ERROR)) (A7241 (QUOTE %%CONDITION-HANDLER)) (A7240 NIL)) (PUTPROP A7242 A7241 A7240)) (LET* ((A7245 (QUOTE CALL-ERROR)) (A7244 (QUOTE %%CONDITION-REPORTER)) (A7243 NIL)) (PUTPROP A7245 A7244 A7243)) 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) () type-expand-TOO-MANY-ARGUMENTS D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE TOO-MANY-ARGUMENTS)) (PUT (QUOTE TOO-MANY-ARGUMENTS) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-TOO-MANY-ARGUMENTS)) (LET* ((A7247 (QUOTE TOO-MANY-ARGUMENTS)) (A7248 (QUOTE (CALL-ERROR)))) (PUT A7247 (QUOTE %%%%INCLUDED-STRUCTURE) A7248)) (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* ((A7251 (QUOTE TOO-MANY-ARGUMENTS)) (A7250 (QUOTE %%CONDITION-HANDLER)) (A7249 NIL)) (PUTPROP A7251 A7250 A7249)) |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* ((A7254 (QUOTE TOO-MANY-ARGUMENTS)) (A7253 (QUOTE %%CONDITION-REPORTER)) (A7252 (FUNCTION |TOO-MANY-ARGUMENTS report method|))) (PUTPROP A7254 A7253 A7252)) 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) () type-expand-TOO-FEW-ARGUMENTS D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE TOO-FEW-ARGUMENTS)) (PUT (QUOTE TOO-FEW-ARGUMENTS) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-TOO-FEW-ARGUMENTS)) (LET* ((A7256 (QUOTE TOO-FEW-ARGUMENTS)) (A7257 (QUOTE (CALL-ERROR)))) (PUT A7256 (QUOTE %%%%INCLUDED-STRUCTURE) A7257)) (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* ((A7260 (QUOTE TOO-FEW-ARGUMENTS)) (A7259 (QUOTE %%CONDITION-HANDLER)) (A7258 NIL)) (PUTPROP A7260 A7259 A7258)) |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* ((A7263 (QUOTE TOO-FEW-ARGUMENTS)) (A7262 (QUOTE %%CONDITION-REPORTER)) (A7261 (FUNCTION |TOO-FEW-ARGUMENTS report method|))) (PUTPROP A7263 A7262 A7261)) 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) () type-expand-INVALID-ARGUMENT-LIST D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE INVALID-ARGUMENT-LIST)) (PUT (QUOTE INVALID-ARGUMENT-LIST) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-INVALID-ARGUMENT-LIST)) (LET* ((A7265 (QUOTE INVALID-ARGUMENT-LIST)) (A7266 (QUOTE (CALL-ERROR)))) (PUT A7265 (QUOTE %%%%INCLUDED-STRUCTURE) A7266)) (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* ((A7269 (QUOTE INVALID-ARGUMENT-LIST)) (A7268 (QUOTE %%CONDITION-HANDLER)) (A7267 NIL)) (PUTPROP A7269 A7268 A7267)) |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* ((A7272 (QUOTE INVALID-ARGUMENT-LIST)) (A7271 (QUOTE %%CONDITION-REPORTER)) (A7270 (FUNCTION |INVALID-ARGUMENT-LIST report method|))) (PUTPROP A7272 A7271 A7270)) 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) () type-expand-STREAM-ERROR D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE STREAM-ERROR)) (PUT (QUOTE STREAM-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-STREAM-ERROR)) (LET* ((A7274 (QUOTE STREAM-ERROR)) (A7275 (QUOTE (ERROR)))) (PUT A7274 (QUOTE %%%%INCLUDED-STRUCTURE) A7275)) (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* ((A7278 (QUOTE STREAM-ERROR)) (A7277 (QUOTE %%CONDITION-HANDLER)) (A7276 NIL)) (PUTPROP A7278 A7277 A7276)) |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* ((A7281 (QUOTE STREAM-ERROR)) (A7280 (QUOTE %%CONDITION-REPORTER)) (A7279 (FUNCTION |STREAM-ERROR report method|))) (PUTPROP A7281 A7280 A7279)) 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) () type-expand-READ-ERROR D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE READ-ERROR)) (PUT (QUOTE READ-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-READ-ERROR)) (LET* ((A7283 (QUOTE READ-ERROR)) (A7284 (QUOTE (STREAM-ERROR)))) (PUT A7283 (QUOTE %%%%INCLUDED-STRUCTURE) A7284)) (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* ((A7287 (QUOTE READ-ERROR)) (A7286 (QUOTE %%CONDITION-HANDLER)) (A7285 NIL)) (PUTPROP A7287 A7286 A7285)) (LET* ((A7290 (QUOTE READ-ERROR)) (A7289 (QUOTE %%CONDITION-REPORTER)) (A7288 NIL)) (PUTPROP A7290 A7289 A7288)) 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) () type-expand-END-OF-FILE D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE END-OF-FILE)) (PUT (QUOTE END-OF-FILE) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-END-OF-FILE)) (LET* ((A7292 (QUOTE END-OF-FILE)) (A7293 (QUOTE (READ-ERROR (STREAM NIL :READ-ONLY T))))) (PUT A7292 (QUOTE %%%%INCLUDED-STRUCTURE) A7293)) (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* ((A7296 (QUOTE END-OF-FILE)) (A7295 (QUOTE %%CONDITION-HANDLER)) (A7294 NIL)) (PUTPROP A7296 A7295 A7294)) |END-OF-FILE report method| D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "End of file:~%% ~S") (LET* ((A7299 (QUOTE END-OF-FILE)) (A7298 (QUOTE %%CONDITION-REPORTER)) (A7297 (FUNCTION |END-OF-FILE report method|))) (PUTPROP A7299 A7298 A7297)) 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) () type-expand-STORAGE-CONDITION D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE STORAGE-CONDITION)) (PUT (QUOTE STORAGE-CONDITION) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-STORAGE-CONDITION)) (LET* ((A7301 (QUOTE STORAGE-CONDITION)) (A7302 (QUOTE (SERIOUS-CONDITION)))) (PUT A7301 (QUOTE %%%%INCLUDED-STRUCTURE) A7302)) (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* ((A7305 (QUOTE STORAGE-CONDITION)) (A7304 (QUOTE %%CONDITION-HANDLER)) (A7303 NIL)) (PUTPROP A7305 A7304 A7303)) (LET* ((A7308 (QUOTE STORAGE-CONDITION)) (A7307 (QUOTE %%CONDITION-REPORTER)) (A7306 NIL)) (PUTPROP A7308 A7307 A7306)) 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) () type-expand-STACK-OVERFLOW D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE STACK-OVERFLOW)) (PUT (QUOTE STACK-OVERFLOW) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-STACK-OVERFLOW)) (LET* ((A7310 (QUOTE STACK-OVERFLOW)) (A7311 (QUOTE (STORAGE-CONDITION)))) (PUT A7310 (QUOTE %%%%INCLUDED-STRUCTURE) A7311)) (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* ((A7314 (QUOTE STACK-OVERFLOW)) (A7313 (QUOTE %%CONDITION-HANDLER)) (A7312 NIL)) (PUTPROP A7314 A7313 A7312)) |STACK-OVERFLOW report method| D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "Stack overflow") (LET* ((A7317 (QUOTE STACK-OVERFLOW)) (A7316 (QUOTE %%CONDITION-REPORTER)) (A7315 (FUNCTION |STACK-OVERFLOW report method|))) (PUTPROP A7317 A7316 A7315)) 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) () type-expand-STORAGE-EXHAUSTED D1 (L (0 $$TYPE-FORM)) oNIL NIL ( 3 (DATATYPE STORAGE-EXHAUSTED)) (PUT (QUOTE STORAGE-EXHAUSTED) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-STORAGE-EXHAUSTED)) (LET* ((A7319 (QUOTE STORAGE-EXHAUSTED)) (A7320 (QUOTE (STORAGE-CONDITION)))) (PUT A7319 (QUOTE %%%%INCLUDED-STRUCTURE) A7320)) (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* ((A7323 (QUOTE STORAGE-EXHAUSTED)) (A7322 (QUOTE %%CONDITION-HANDLER)) (A7321 NIL)) (PUTPROP A7323 A7322 A7321)) (LET* ((A7326 (QUOTE STORAGE-EXHAUSTED)) (A7325 (QUOTE %%CONDITION-REPORTER)) (A7324 NIL)) (PUTPROP A7326 A7325 A7324)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *BREAK-ON-WARNINGS*))) (OR (BOUNDP (QUOTE *BREAK-ON-WARNINGS*)) (SETQ *BREAK-ON-WARNINGS* NIL)) (LET* ((A7327 (QUOTE *BREAK-ON-WARNINGS*)) (A7328 (QUOTE VARIABLE)) (A7329 "If true, calls to WARN will cause a break as well as logging the warning.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A7327 A7328 A7329))) A7329)) 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* ((A7330 (QUOTE MAKE-CONDITION)) (A7331 (QUOTE CL:FUNCTION)) (A7332 "Create a condition object of the specified type.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A7330 A7331 A7332))) A7332)) 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-CASE7468 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-CASE7468 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-CASE7472 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-CASE7472 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) () 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)) (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) () 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)) (LET* ((A7344 (QUOTE REAL-PROCEED-CASE)) (A7345 (QUOTE (PROCEED-CASE)))) (PUT A7344 (QUOTE %%%%INCLUDED-STRUCTURE) A7345)) (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´8@A ´1@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* ((A7351 (QUOTE ABORT)) (A7350 (QUOTE %%DEFAULT-PROCEED-TEST)) (A7349 (QUOTE TRUE))) (PUTPROP A7351 A7350 A7349)) ABORT-proceed-reporter D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "Abort") (LET* ((A7352 (QUOTE ABORT)) (A7353 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A7354 (QUOTE DEFAULT-PROCEED-REPORTER)) (A7355 (QUOTE ABORT-proceed-reporter))) (PUTPROP A7352 A7353 A7355)) (LET* ((A7356 (QUOTE ABORT)) (A7357 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A7359 (FUNCTION (CL:LAMBDA ( &OPTIONAL CONDITION) (LIST))))) (PUTPROP A7356 A7357 A7359)) ABORTA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE7476) @cgh (12 \DO-THROW 9 \MVLIST) (5 CONDITION-CASE7478) () 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-CASE7476 I 0 CONDITION)  gg ¹H‘hI (20 CL:VALUES-LIST 11 \CATCH-FUNCALL) (8 ABORTA0001 5 CONDITION-CASE7478) () (LET* ((A7366 (QUOTE PROCEED)) (A7365 (QUOTE %%DEFAULT-PROCEED-TEST)) (A7364 (QUOTE TRUE))) (PUTPROP A7366 A7365 A7364)) PROCEED-proceed-reporter D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "Proceed with no special action") (LET* ((A7367 (QUOTE PROCEED)) (A7368 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A7369 (QUOTE DEFAULT-PROCEED-REPORTER)) (A7370 (QUOTE PROCEED-proceed-reporter))) (PUTPROP A7367 A7368 A7370)) (LET* ((A7371 (QUOTE PROCEED)) (A7372 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A7374 (FUNCTION (CL:LAMBDA ( &OPTIONAL CONDITION) (LIST))))) (PUTPROP A7371 A7372 A7374)) PROCEEDA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE7480) @cgh (12 \DO-THROW 9 \MVLIST) (5 CONDITION-CASE7482) () 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-CASE7480 I 0 CONDITION)  gg ¹H‘hI (20 CL:VALUES-LIST 11 \CATCH-FUNCALL) (8 PROCEEDA0001 5 CONDITION-CASE7482) () (LET* ((A7381 (QUOTE USE-VALUE)) (A7380 (QUOTE %%DEFAULT-PROCEED-TEST)) (A7379 (QUOTE TRUE))) (PUTPROP A7381 A7380 A7379)) USE-VALUE-proceed-reporter D1 (I 1 STREAM I 0 DATUM) oA (7 CL:WRITE-STRING) NIL ( 3 "Use a different value") (LET* ((A7382 (QUOTE USE-VALUE)) (A7383 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A7384 (QUOTE DEFAULT-PROCEED-REPORTER)) (A7385 (QUOTE USE-VALUE-proceed-reporter))) (PUTPROP A7382 A7383 A7385)) (LET* ((A7386 (QUOTE USE-VALUE)) (A7387 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A7389 (FUNCTION (CL:LAMBDA ( &OPTIONAL CONDITION (VALUE (PROGN (CL:FORMAT *QUERY-IO* "Enter a new value: ") (EVAL (CL:READ *QUERY-IO*))))) (LIST VALUE))))) (PUTPROP A7386 A7387 A7389)) USE-VALUEA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE7484) @cgh (12 \DO-THROW 9 \MVLIST) (5 CONDITION-CASE7486) () 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-CASE7484 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-CASE7486) ( 25 "Enter a new value: ") (LET* ((A7396 (QUOTE STORE-VALUE)) (A7395 (QUOTE %%DEFAULT-PROCEED-TEST)) (A7394 (QUOTE TRUE))) ( PUTPROP A7396 A7395 A7394)) 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* ((A7397 (QUOTE STORE-VALUE)) (A7398 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A7399 (QUOTE DEFAULT-PROCEED-REPORTER)) (A7400 (QUOTE STORE-VALUE-proceed-reporter))) (PUTPROP A7397 A7398 A7400)) (LET* ((A7401 (QUOTE STORE-VALUE)) (A7402 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A7404 (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 A7401 A7402 A7404)) STORE-VALUEA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE7488) @cgh (12 \DO-THROW 9 \MVLIST) (5 CONDITION-CASE7490) () 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-CASE7488 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-CASE7490) ( 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