(FILECREATED "10-Oct-86 18:00:43" ("compiled on " {ERIS}SOURCES>ERROR-RUNTIME.;4) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED " 3-Oct-86 20:07:45" {ERIS}LISP>ERROR-RUNTIME.;8 29492 changes to: (FUNCTIONS WARN) previous date: " 3-Oct-86 19:28:40" {ERIS}LISP>ERROR-RUNTIME.;7) (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 REPORT-CONDITION CONDITION-PARENT) (VARIABLES *CONDITION-HANDLER-BINDINGS* *PROCEED-CASES*) (FUNCTIONS CHECK-TYPE-FAIL ECASE-FAIL ASSERT-FAIL) (FUNCTIONS MAKE-INTO-CONDITION RAISE-SIGNAL DEFAULT-HANDLE-CONDITION DEFAULT-PROCEED-REPORTER FIX-INHERITANCE-LINKS DEFAULT-PROCEED-TEST TEST-PROCEED-CASE)) (COMS (* ;;; "Pre-defined condition types.") (STRUCTURES CONDITION SIMPLE-CONDITION WARNING SIMPLE-WARNING OLD-BREAK1 SERIOUS-CONDITION CL:ERROR OLD-INTERLISP-ERROR SIMPLE-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) (STRUCTURES STREAM-ERROR READ-ERROR END-OF-FILE) (STRUCTURES STORAGE-CONDITION STACK-OVERFLOW STORAGE-EXHAUSTED)) (COMS (* ;;; "Exported symbols.") (VARIABLES *BREAK-ON-WARNINGS*) (FUNCTIONS MAKE-CONDITION SIGNAL CL:ERROR CERROR WARN CL:BREAK DEBUG) (STRUCTURES 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 FORMAT)))) (PROP FILETYPE ERROR-RUNTIME))) expand-CONDITION-TYPEP D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!H¹HºgIJhNIL (16Q 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 (16Q 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 (10Q 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 (21Q FAKE-SUBTYPEP-FOR-CONDITIONS) NIL () FAKE-SUBTYPEP-FOR-CONDITIONS D1 (L (1 T2 0 T1)) #@‘h€i³@dAð’®iŠg b°êh´ii (40Q VALUES 24Q GETPROP) (21Q %%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 (10Q GETPROP) ( 15Q ((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 (10Q GETPROP) ( 15Q ((QUOTE %%CONDITION-REPORTER))) (SETF-MACRO-FUNCTION (QUOTE CONDITION-REPORTER) (QUOTE expand-CONDITION-REPORTER)) %%PRINT-CONDITION D1 (L (2 LEVEL 1 STREAM 0 CONDITION) F 1 *PRINT-ESCAPE* F 2 *READTABLE*) 9Q²1AoRÊH´jHó‘h€i´lHÑ@ @Ò@Ó @A (66Q REPORT-CONDITION 60Q FORMAT 50Q TYPE-OF) (13Q READTABLEP) ( 7 "~c") REPORT-CONDITIONA0001A0002 D1 (F 0 STREAM) P (3 CLOSE) NIL () REPORT-CONDITIONA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 STREAM F 2 CONDITION F 3 RESETY F 4 REPORTER) ghhhPc¿RQlT¿Q ci(30Q GET-OUTPUT-STREAM-STRING) (2 REPORT-CONDITIONA0001A0002) () REPORT-CONDITION D1 (P 4 RESETY P 3 LISPXHIST P 2 STREAM P 1 REPORTER I 1 STREAM I 0 CONDITION F 6 LISPXHIST F 7 RESETVARSLST) b@ Hg H¨o@ I²3A–@AlIV!Wog ‘h‚g] M“LHg Xg ¹°²(135Q GETPROP 126Q GETPROP 114Q ERROR! 107Q RESETRESTORE 75Q REPORT-CONDITIONA0001 52Q MAKE-STRING-OUTPUT-STREAM 32Q CL:BREAK 15Q GETPROP 3 FAKE-TYPE-OF-FOR-CONDITIONS) (132Q %%CONDITION-REPORTER 123Q %%CONDITION-PARENT 103Q ERROR 72Q INTERNAL 12Q %%CONDITION-REPORTER) ( 67Q (REPORT-CONDITIONA0001) 26Q "No report function found for ~S.") expand-CONDITION-PARENT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (10Q GETPROP) ( 15Q ((QUOTE %%CONDITION-PARENT))) (SETF-MACRO-FUNCTION (QUOTE CONDITION-PARENT) (QUOTE expand-CONDITION-PARENT)) (PROCLAIM (QUOTE (SPECIAL *CONDITION-HANDLER-BINDINGS*))) (OR (BOUNDP (QUOTE *CONDITION-HANDLER-BINDINGS*)) (SETQ *CONDITION-HANDLER-BINDINGS* NIL)) (LET* ((A0937 (QUOTE *CONDITION-HANDLER-BINDINGS*)) (A0938 (QUOTE VARIABLE)) (A0939 "Condition handler binding stack")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A0937 A0938 A0939))) A0939)) (PROCLAIM (QUOTE (SPECIAL *PROCEED-CASES*))) (OR (BOUNDP (QUOTE *PROCEED-CASES*)) (SETQ *PROCEED-CASES* NIL)) (LET* ((A0940 (QUOTE *PROCEED-CASES*)) (A0941 (QUOTE VARIABLE)) (A0942 "Active proceed case stack")) ( PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0940 A0941 A0942))) A0942)) CHECK-TYPE-FAILA0001A0002 D1 (L (0 CONDITION) F 0 PROCEEDABLE) P´ @g (11Q FAKE-TYPEP-FOR-CONDITIONS) (6 TYPE-MISMATCH) () CHECK-TYPE-FAILA0001A0003 D1 (L (0 PROCEED-CASE) I 1 *STANDARD-OUTPUT* F 0 PLACE) ioP (10Q FORMAT) NIL ( 4 "Change the value of ~A") CHECK-TYPE-FAILA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE1271 F 2 *PROCEED-CASES* F 3 PLACE F 4 MESSAGE F 5 VALUE F 6 DESIRED-TYPE) DggggQgjgggg RggSgUgVgT (77Q \MVLIST 74Q CL:ERROR 40Q MAKE-PROCEED-CASE) (67Q :MESSAGE 63Q :DESIRED-TYPE 57Q :VALUE 53Q :NAME 50Q TYPE-MISMATCH 34Q CHECK-TYPE-FAILA0001A0003 31Q :REPORT 26Q CHECK-TYPE-FAILA0001A0002 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q STORE-VALUE 5 :NAME 2 :NORMAL) () CHECK-TYPE-FAILA0004 D1 (L (1 NEW 0 IGNORE)) ANIL NIL () CHECK-TYPE-FAIL D1 (P 0 PROCEED-CASE1271 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(75Q \LISPERROR 40Q VALUES-LIST 14Q \CATCH-FUNCALL) (44Q CHECK-TYPE-FAILA0004 32Q :NORMAL 11Q CHECK-TYPE-FAILA0001) () ECASE-FAILA0001A0002 D1 (L (0 CONDITION) F 0 PROCEEDABLE) o P(6 CL:DECLARE) NIL ( 3 (IGNORE CONDITION)) ECASE-FAILA0001A0003 D1 (L (0 PROCEED-CASE) I 1 *STANDARD-OUTPUT* F 0 PLACE) ioP (10Q FORMAT) NIL ( 4 "Change the value of ~A") ECASE-FAILA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE1275 F 2 *PROCEED-CASES* F 3 SELECTORS F 4 PLACE F 5 VALUE) <ggggQgjgggg RoTUoS  (67Q \MVLIST 64Q CL:ERROR 40Q MAKE-PROCEED-CASE) (34Q ECASE-FAILA0001A0003 31Q :REPORT 26Q ECASE-FAILA0001A0002 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q STORE-VALUE 5 :NAME 2 :NORMAL) ( 57Q "~#[wrong~;not ~S~;neither ~S nor ~S~:;not~@{~#[~; or~] ~S~^,~}~]" 51Q "The value of ~S, ~S,~&is ~?.") ECASE-FAILA0004 D1 (L (1 V 0 IGNORE)) ANIL NIL () ECASE-FAIL D1 (P 0 PROCEED-CASE1275 I 3 SELECTORS I 2 VALUE I 1 PLACE I 0 PROCEEDABLE) FhhHg AIºI»Jgð”K gj½¼K°dýMkØ]nñ–hl4 ¿µìML(75Q \LISPERROR 40Q VALUES-LIST 14Q \CATCH-FUNCALL) (44Q ECASE-FAILA0004 32Q :NORMAL 11Q ECASE-FAILA0001) () ASSERT-FAILA0001A0002 D1 (L (1 STREAM 0 DATUM)) oA (7 WRITE-STRING) NIL ( 3 "Re-test assertion") ASSERT-FAILA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE1279 F 2 *PROCEED-CASES* F 3 STRING F 4 ARGS) :ggggQgjghgg RggSgT  (65Q \MVLIST 62Q CL:ERROR 36Q MAKE-PROCEED-CASE) (55Q :FORMAT-ARGUMENTS 51Q :FORMAT-STRING 46Q ASSERTION-FAILED 32Q ASSERT-FAILA0001A0002 27Q :REPORT 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q PROCEED 5 :NAME 2 :NORMAL) () ASSERT-FAILA0003 D1 NIL hNIL NIL () ASSERT-FAIL D1 (L (0 -args-) P 15Q PROCEED-CASE1279 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(175Q \LISPERROR 73Q VALUES-LIST 51Q \CATCH-FUNCALL) (140Q ASSERT-FAILA0003 64Q :NORMAL 46Q 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 (151Q CHECK-TYPE-FAIL 135Q MAKE-CONDITION 116Q CL:STRINGP 112Q CL:ERROR 73Q \LISPERROR 34Q FAKE-SUBTYPEP-FOR-CONDITIONS 7 FAKE-TYPEP-FOR-CONDITIONS) (141Q DATUM 130Q :FORMAT-ARGUMENTS 124Q :FORMAT-STRING 41Q MAKE-CONDITION 31Q CONDITION 22Q LITATOM 4 CONDITION) ( 146Q (OR SYMBOL STRING) 106Q "~S is not a condition type.") RAISE-SIGNAL D1 (L (0 C) P 3 *CONDITION-HANDLER-BINDINGS* F 4 *CONDITION-HANDLER-BINDINGS*) *T!HYºI²@J šI@kJI°å@ @(46Q DEFAULT-HANDLE-CONDITION 21Q FAKE-TYPEP-FOR-CONDITIONS) NIL () DEFAULT-HANDLE-CONDITION D1 (L (0 CONDITION)) #@ Hd g Y”@kI¿Hg X°è(36Q GETPROP 20Q GETPROP 3 FAKE-TYPE-OF-FOR-CONDITIONS) (33Q %%CONDITION-PARENT 15Q %%CONDITION-HANDLER) () DEFAULT-PROCEED-REPORTER D1 (L (1 STREAM 0 PC)) Ao@ (13Q FORMAT 10Q 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 ¿°¿(122Q PUTPROP 111Q DREMOVE 70Q PUTPROP 50Q PUTPROP 37Q ADJOIN 34Q GETPROP 6 GETPROP) (116Q %%CONDITION-CHILDREN 100Q %%CONDITION-CHILDREN 63Q %%CONDITION-PARENT 44Q %%CONDITION-CHILDREN 31Q %%CONDITION-CHILDREN 3 %%CONDITION-PARENT) () expand-DEFAULT-PROCEED-TEST D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (10Q GETPROP) ( 15Q ((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 WRITE-STRING) NIL ( 3 "Assume proceed case is enabled") TEST-PROCEED-CASEA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE1295 F 2 *PROCEED-CASES* F 3 PC) 8ggggQgjgg gg RoS (63Q \MVLIST 60Q CL:ERROR 43Q MAKE-PROCEED-CASE 31Q SYMBOL-FUNCTION) (37Q TEST-PROCEED-CASEA0001A0002 34Q :REPORT 26Q TRUE 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q PROCEED 5 :NAME 2 :NORMAL) ( 54Q "Couldn't find test function for ~S.") TEST-PROCEED-CASEA0003 D1 NIL iNIL NIL () TEST-PROCEED-CASE D1 (L (1 CONDITION) P 6 PROCEED-CASE1295 I 0 PC) m`@ X³@ ´@ g µ @ X´AkHhNg YºI»Jgð”K gj½¼K°dýMkØ]nñ–hl4 ¿µìML(144Q \LISPERROR 107Q VALUES-LIST 66Q \CATCH-FUNCALL 42Q NO-PROCEED-TEST 37Q PROCEED-CASE-NAME 31Q GETPROP 23Q PROCEED-CASE-NAME 15Q PROCEED-CASE-NAME 6 PROCEED-CASE-TEST) (113Q TEST-PROCEED-CASEA0003 101Q :NORMAL 63Q TEST-PROCEED-CASEA0001 26Q %%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 (37Q :--DUMMY-SLOT-- 26Q 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* ((A0959 (QUOTE CONDITION)) (A0958 (QUOTE %%CONDITION-HANDLER)) (A0957 (QUOTE NIL))) (PUTPROP A0959 A0958 A0957)) CONDITION% report% method D1 (I 1 STREAM I 0 DATUM) oA (7 WRITE-STRING) NIL ( 3 "Condition ~S occurred.") (LET* ((A0962 (QUOTE CONDITION)) (A0961 (QUOTE %%CONDITION-REPORTER)) (A0960 (QUOTE CONDITION% report% method))) (PUTPROP A0962 A0961 A0960)) SIMPLE-CONDITION-FORMAT-ARGUMENTS D1 (L (0 OBJECT)) @NIL NIL () SIMPLE-CONDITION-FORMAT-STRING D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE SIMPLE-CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-SIMPLE-CONDITION D1 (L (0 -args-)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (102Q :FORMAT-ARGUMENTS 57Q :FORMAT-STRING 44Q SIMPLE-CONDITION) () (LET* ((A0963 (QUOTE SIMPLE-CONDITION)) (A0964 (QUOTE (CONDITION)))) (PUT A0963 (QUOTE %%%%INCLUDED-STRUCTURE) A0964)) (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 ((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* ((A0967 (QUOTE SIMPLE-CONDITION)) (A0966 (QUOTE %%CONDITION-HANDLER)) (A0965 (QUOTE NIL))) ( PUTPROP A0967 A0966 A0965)) 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(51Q \LISPERROR 7 SIMPLE-CONDITION-FORMAT-ARGUMENTS 3 SIMPLE-CONDITION-FORMAT-STRING) (15Q FORMAT) () (LET* ((A0970 (QUOTE SIMPLE-CONDITION)) (A0969 (QUOTE %%CONDITION-REPORTER)) (A0968 (QUOTE SIMPLE-CONDITION% report% method))) (PUTPROP A0970 A0969 A0968)) (DEFPRINT (QUOTE WARNING) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-WARNING D1 NIL ghNIL (2 WARNING) () (LET* ((A0971 (QUOTE WARNING)) (A0972 (QUOTE (CONDITION)))) (PUT A0971 (QUOTE %%%%INCLUDED-STRUCTURE) A0972)) (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 NIL)) (PUTPROP (QUOTE WARNING) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE WARNING) (QUOTE CONDITION)) (LET* ((A0975 (QUOTE WARNING)) (A0974 (QUOTE %%CONDITION-HANDLER)) (A0973 (QUOTE NIL))) (PUTPROP A0975 A0974 A0973)) (LET* ((A0978 (QUOTE WARNING)) (A0977 (QUOTE %%CONDITION-REPORTER)) (A0976 (QUOTE NIL))) (PUTPROP A0978 A0977 A0976)) SIMPLE-WARNING-FORMAT-ARGUMENTS D1 (L (0 OBJECT)) @NIL NIL () SIMPLE-WARNING-FORMAT-STRING D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE SIMPLE-WARNING) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-SIMPLE-WARNING D1 (L (0 -args-)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (102Q :FORMAT-ARGUMENTS 57Q :FORMAT-STRING 44Q SIMPLE-WARNING) () (LET* ((A0979 (QUOTE SIMPLE-WARNING)) (A0980 (QUOTE (WARNING)))) (PUT A0979 (QUOTE %%%%INCLUDED-STRUCTURE) A0980)) (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 ((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* ((A0983 (QUOTE SIMPLE-WARNING)) (A0982 (QUOTE %%CONDITION-HANDLER)) (A0981 (QUOTE NIL))) ( PUTPROP A0983 A0982 A0981)) 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(51Q \LISPERROR 7 SIMPLE-WARNING-FORMAT-ARGUMENTS 3 SIMPLE-WARNING-FORMAT-STRING) (15Q FORMAT) () (LET* ((A0986 (QUOTE SIMPLE-WARNING)) (A0985 (QUOTE %%CONDITION-REPORTER)) (A0984 (QUOTE SIMPLE-WARNING% report% method))) (PUTPROP A0986 A0985 A0984)) OLD-BREAK1-LIST D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE OLD-BREAK1) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-OLD-BREAK1 D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :LIST 26Q OLD-BREAK1) () (LET* ((A0987 (QUOTE OLD-BREAK1)) (A0988 (QUOTE (CONDITION)))) (PUT A0987 (QUOTE %%%%INCLUDED-STRUCTURE) A0988)) (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 ((LIST NIL :READ-ONLY T)))) (PUTPROP (QUOTE OLD-BREAK1) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (LIST))) (FIX-INHERITANCE-LINKS (QUOTE OLD-BREAK1) (QUOTE CONDITION)) (LET* ((A0991 (QUOTE OLD-BREAK1)) (A0990 (QUOTE %%CONDITION-HANDLER)) (A0989 (QUOTE NIL))) (PUTPROP A0991 A0990 A0989)) OLD-BREAK1% report% method D1 (P 5 MESS3 P 4 MESS2 P 3 A1298 P 2 MESS1 P 1 A1297 P 0 LIST I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ QHYºI[¼K½JLM (31Q ERRORMESS1 3 OLD-BREAK1-LIST) NIL () (LET* ((A0994 (QUOTE OLD-BREAK1)) (A0993 (QUOTE %%CONDITION-REPORTER)) (A0992 (QUOTE OLD-BREAK1% report% method))) (PUTPROP A0994 A0993 A0992)) (DEFPRINT (QUOTE SERIOUS-CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-SERIOUS-CONDITION D1 NIL ghNIL (2 SERIOUS-CONDITION) () (LET* ((A0995 (QUOTE SERIOUS-CONDITION)) (A0996 (QUOTE (CONDITION)))) (PUT A0995 (QUOTE %%%%INCLUDED-STRUCTURE) A0996)) (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 NIL)) (PUTPROP (QUOTE SERIOUS-CONDITION) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE SERIOUS-CONDITION) (QUOTE CONDITION)) (LET* ((A0999 (QUOTE SERIOUS-CONDITION)) (A0998 (QUOTE %%CONDITION-HANDLER)) (A0997 (QUOTE NIL))) ( PUTPROP A0999 A0998 A0997)) SERIOUS-CONDITION% report% method D1 (I 1 *STANDARD-OUTPUT* I 0 CONDITION) io@ (13Q FORMAT 10Q FAKE-TYPE-OF-FOR-CONDITIONS) NIL ( 4 "Serious condition ~S occurred.") (LET* ((A1002 (QUOTE SERIOUS-CONDITION)) (A1001 (QUOTE %%CONDITION-REPORTER)) (A1000 (QUOTE SERIOUS-CONDITION% report% method))) (PUTPROP A1002 A1001 A1000)) (DEFPRINT (QUOTE CL:ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-CL:ERROR D1 NIL ghNIL (2 CL:ERROR) () (LET* ((A1003 (QUOTE CL:ERROR)) (A1004 (QUOTE (SERIOUS-CONDITION)))) (PUT A1003 (QUOTE %%%%INCLUDED-STRUCTURE) A1004)) (PUTPROP (QUOTE CL:ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-CL:ERROR)) (PUTPROP (QUOTE CL:ERROR) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE CL:ERROR) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE NIL)) (PUTPROP (QUOTE CL:ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE CL:ERROR) (QUOTE SERIOUS-CONDITION)) (LET* ((A1007 (QUOTE CL:ERROR)) (A1006 (QUOTE %%CONDITION-HANDLER)) (A1005 (QUOTE NIL))) (PUTPROP A1007 A1006 A1005)) (LET* ((A1010 (QUOTE CL:ERROR)) (A1009 (QUOTE %%CONDITION-REPORTER)) (A1008 (QUOTE NIL))) (PUTPROP A1010 A1009 A1008)) OLD-INTERLISP-ERROR-MESSAGE D1 (L (0 OBJECT)) @NIL NIL () OLD-INTERLISP-ERROR-NUMBER D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE OLD-INTERLISP-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-OLD-INTERLISP-ERROR D1 (L (0 -args-)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (102Q :MESSAGE 57Q :NUMBER 44Q OLD-INTERLISP-ERROR) () (LET* ((A1011 (QUOTE OLD-INTERLISP-ERROR)) (A1012 (QUOTE (CL:ERROR)))) (PUT A1011 (QUOTE %%%%INCLUDED-STRUCTURE) A1012)) (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 ((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 CL:ERROR)) (LET* ((A1015 (QUOTE OLD-INTERLISP-ERROR)) (A1014 (QUOTE %%CONDITION-HANDLER)) (A1013 (QUOTE NIL))) ( PUTPROP A1015 A1014 A1013)) OLD-INTERLISP-ERROR% report% method D1 (P 4 MESS2 P 3 MESS1 P 2 A1299 P 1 MESSAGE P 0 NUMBER I 1 *STANDARD-OUTPUT* I 0 CONDITION) /@ @ Hdlð²¿I!J»J¼KLg Ih (54Q ERRORM 44Q ERRORMESS1 7 OLD-INTERLISP-ERROR-MESSAGE 3 OLD-INTERLISP-ERROR-NUMBER) (41Q ERROR) () (LET* ((A1018 (QUOTE OLD-INTERLISP-ERROR)) (A1017 (QUOTE %%CONDITION-REPORTER)) (A1016 (QUOTE OLD-INTERLISP-ERROR% report% method))) (PUTPROP A1018 A1017 A1016)) SIMPLE-ERROR-FORMAT-ARGUMENTS D1 (L (0 OBJECT)) @NIL NIL () SIMPLE-ERROR-FORMAT-STRING D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE SIMPLE-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-SIMPLE-ERROR D1 (L (0 -args-)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (102Q :FORMAT-ARGUMENTS 57Q :FORMAT-STRING 44Q SIMPLE-ERROR) () (LET* ((A1019 (QUOTE SIMPLE-ERROR)) (A1020 (QUOTE (CL:ERROR)))) (PUT A1019 (QUOTE %%%%INCLUDED-STRUCTURE) A1020)) (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 ((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 CL:ERROR)) (LET* ((A1023 (QUOTE SIMPLE-ERROR)) (A1022 (QUOTE %%CONDITION-HANDLER)) (A1021 (QUOTE NIL))) (PUTPROP A1023 A1022 A1021)) 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(51Q \LISPERROR 7 SIMPLE-ERROR-FORMAT-ARGUMENTS 3 SIMPLE-ERROR-FORMAT-STRING) (15Q FORMAT) () (LET* ((A1026 (QUOTE SIMPLE-ERROR)) (A1025 (QUOTE %%CONDITION-REPORTER)) (A1024 (QUOTE SIMPLE-ERROR% report% method))) (PUTPROP A1026 A1025 A1024)) ASSERTION-FAILED-FORMAT-ARGUMENTS D1 (L (0 OBJECT)) @NIL NIL () ASSERTION-FAILED-FORMAT-STRING D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE ASSERTION-FAILED) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-ASSERTION-FAILED D1 (L (0 -args-)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (102Q :FORMAT-ARGUMENTS 57Q :FORMAT-STRING 44Q ASSERTION-FAILED) () (LET* ((A1027 (QUOTE ASSERTION-FAILED)) (A1028 (QUOTE (SIMPLE-ERROR)))) (PUT A1027 (QUOTE %%%%INCLUDED-STRUCTURE) A1028)) (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 ((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* ((A1031 (QUOTE ASSERTION-FAILED)) (A1030 (QUOTE %%CONDITION-HANDLER)) (A1029 (QUOTE NIL))) ( PUTPROP A1031 A1030 A1029)) 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(57Q \LISPERROR 7 ASSERTION-FAILED-FORMAT-ARGUMENTS 3 ASSERTION-FAILED-FORMAT-STRING) (15Q FORMAT) ( 31Q "Assertion failed.") (LET* ((A1034 (QUOTE ASSERTION-FAILED)) (A1033 (QUOTE %%CONDITION-REPORTER)) (A1032 (QUOTE ASSERTION-FAILED% report% method))) (PUTPROP A1034 A1033 A1032)) CELL-ERROR-NAME D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE CELL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-CELL-ERROR D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :NAME 26Q CELL-ERROR) () (LET* ((A1035 (QUOTE CELL-ERROR)) (A1036 (QUOTE (CL:ERROR)))) (PUT A1035 (QUOTE %%%%INCLUDED-STRUCTURE ) A1036)) (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 ((NAME NIL :READ-ONLY T)))) (PUTPROP (QUOTE CELL-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (NAME))) (FIX-INHERITANCE-LINKS (QUOTE CELL-ERROR) (QUOTE CL:ERROR)) (LET* ((A1039 (QUOTE CELL-ERROR)) (A1038 (QUOTE %%CONDITION-HANDLER)) (A1037 (QUOTE NIL))) (PUTPROP A1039 A1038 A1037)) (LET* ((A1042 (QUOTE CELL-ERROR)) (A1041 (QUOTE %%CONDITION-REPORTER)) (A1040 (QUOTE NIL))) (PUTPROP A1042 A1041 A1040)) UNBOUND-VARIABLE-NAME D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE UNBOUND-VARIABLE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-UNBOUND-VARIABLE D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :NAME 26Q UNBOUND-VARIABLE) () (LET* ((A1043 (QUOTE UNBOUND-VARIABLE)) (A1044 (QUOTE (CELL-ERROR)))) (PUT A1043 (QUOTE %%%%INCLUDED-STRUCTURE) A1044)) (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 ((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* ((A1047 (QUOTE UNBOUND-VARIABLE)) (A1046 (QUOTE %%CONDITION-HANDLER)) (A1045 (QUOTE NIL))) ( PUTPROP A1047 A1046 A1045)) UNBOUND-VARIABLE% report% method D1 (P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (17Q FORMAT 3 UNBOUND-VARIABLE-NAME) NIL ( 13Q "Unbound variable: ~S.") (LET* ((A1050 (QUOTE UNBOUND-VARIABLE)) (A1049 (QUOTE %%CONDITION-REPORTER)) (A1048 (QUOTE UNBOUND-VARIABLE% report% method))) (PUTPROP A1050 A1049 A1048)) UNDEFINED-FUNCTION-NAME D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE UNDEFINED-FUNCTION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-UNDEFINED-FUNCTION D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :NAME 26Q UNDEFINED-FUNCTION) () (LET* ((A1051 (QUOTE UNDEFINED-FUNCTION)) (A1052 (QUOTE (CELL-ERROR)))) (PUT A1051 (QUOTE %%%%INCLUDED-STRUCTURE) A1052)) (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 ((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* ((A1055 (QUOTE UNDEFINED-FUNCTION)) (A1054 (QUOTE %%CONDITION-HANDLER)) (A1053 (QUOTE NIL))) ( PUTPROP A1055 A1054 A1053)) UNDEFINED-FUNCTION% report% method D1 (P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (17Q FORMAT 3 UNDEFINED-FUNCTION-NAME) NIL ( 13Q "Undefined function: ~S.") (LET* ((A1058 (QUOTE UNDEFINED-FUNCTION)) (A1057 (QUOTE %%CONDITION-REPORTER)) (A1056 (QUOTE UNDEFINED-FUNCTION% report% method))) (PUTPROP A1058 A1057 A1056)) NO-PROCEED-TEST-NAME D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE NO-PROCEED-TEST) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-NO-PROCEED-TEST D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :NAME 26Q NO-PROCEED-TEST) () (LET* ((A1059 (QUOTE NO-PROCEED-TEST)) (A1060 (QUOTE (UNDEFINED-FUNCTION)))) (PUT A1059 (QUOTE %%%%INCLUDED-STRUCTURE) A1060)) (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 ((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* ((A1063 (QUOTE NO-PROCEED-TEST)) (A1062 (QUOTE %%CONDITION-HANDLER)) (A1061 (QUOTE NIL))) ( PUTPROP A1063 A1062 A1061)) NO-PROCEED-TEST% report% method D1 (P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (17Q FORMAT 3 NO-PROCEED-TEST-NAME) NIL ( 13Q "No test specified for proceed case: ~S.") (LET* ((A1066 (QUOTE NO-PROCEED-TEST)) (A1065 (QUOTE %%CONDITION-REPORTER)) (A1064 (QUOTE NO-PROCEED-TEST% report% method))) (PUTPROP A1066 A1065 A1064)) INDEX-BOUNDS-ERROR-INDEX D1 (L (0 OBJECT)) @NIL NIL () INDEX-BOUNDS-ERROR-NAME D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE INDEX-BOUNDS-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-INDEX-BOUNDS-ERROR D1 (L (0 -args-)) SeHkJdIó²¿h1Hk»ºKdJó²"¿h¼gILhagð•JkØa°ÛJlÔZ°Íagð•KkØa°ØKlÔ[°ÊNIL (102Q :INDEX 57Q :NAME 44Q INDEX-BOUNDS-ERROR) () (LET* ((A1067 (QUOTE INDEX-BOUNDS-ERROR)) (A1068 (QUOTE (CELL-ERROR)))) (PUT A1067 (QUOTE %%%%INCLUDED-STRUCTURE) A1068)) (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 ((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* ((A1071 (QUOTE INDEX-BOUNDS-ERROR)) (A1070 (QUOTE %%CONDITION-HANDLER)) (A1069 (QUOTE NIL))) ( PUTPROP A1071 A1070 A1069)) INDEX-BOUNDS-ERROR% report% method D1 (P 1 INDEX P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ @ ioI (23Q FORMAT 7 INDEX-BOUNDS-ERROR-INDEX 3 INDEX-BOUNDS-ERROR-NAME) NIL ( 17Q "Index out of bounds: ~D.") (LET* ((A1074 (QUOTE INDEX-BOUNDS-ERROR)) (A1073 (QUOTE %%CONDITION-REPORTER)) (A1072 (QUOTE INDEX-BOUNDS-ERROR% report% method))) (PUTPROP A1074 A1073 A1072)) 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 () (DEFPRINT (QUOTE TYPE-MISMATCH) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-TYPE-MISMATCH 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 (222Q :MESSAGE 177Q :DESIRED-TYPE 154Q :VALUE 131Q :NAME 110Q TYPE-MISMATCH) () (LET* ((A1075 (QUOTE TYPE-MISMATCH)) (A1076 (QUOTE (CELL-ERROR)))) (PUT A1075 (QUOTE %%%%INCLUDED-STRUCTURE) A1076)) (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 ((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* ((A1079 (QUOTE TYPE-MISMATCH)) (A1078 (QUOTE %%CONDITION-HANDLER)) (A1077 (QUOTE NIL))) (PUTPROP A1079 A1078 A1077)) 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 (44Q FORMAT 40Q PRETTY-TYPE-NAME 17Q TYPE-MISMATCH-MESSAGE 13Q TYPE-MISMATCH-DESIRED-TYPE 7 TYPE-MISMATCH-VALUE 3 TYPE-MISMATCH-NAME) NIL ( 27Q "The value of ~A, ~A, is not ~A.") (LET* ((A1082 (QUOTE TYPE-MISMATCH)) (A1081 (QUOTE %%CONDITION-REPORTER)) (A1080 (QUOTE TYPE-MISMATCH% report% method))) (PUTPROP A1082 A1081 A1080)) (DEFPRINT (QUOTE CONTROL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-CONTROL-ERROR D1 NIL ghNIL (2 CONTROL-ERROR) () (LET* ((A1083 (QUOTE CONTROL-ERROR)) (A1084 (QUOTE (CL:ERROR)))) (PUT A1083 (QUOTE %%%%INCLUDED-STRUCTURE) A1084)) (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 NIL)) (PUTPROP (QUOTE CONTROL-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE CONTROL-ERROR) (QUOTE CL:ERROR)) (LET* ((A1087 (QUOTE CONTROL-ERROR)) (A1086 (QUOTE %%CONDITION-HANDLER)) (A1085 (QUOTE NIL))) (PUTPROP A1087 A1086 A1085)) (LET* ((A1090 (QUOTE CONTROL-ERROR)) (A1089 (QUOTE %%CONDITION-REPORTER)) (A1088 (QUOTE NIL))) ( PUTPROP A1090 A1089 A1088)) ILLEGAL-GO-TAG D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE ILLEGAL-GO) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-ILLEGAL-GO D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :TAG 26Q ILLEGAL-GO) () (LET* ((A1091 (QUOTE ILLEGAL-GO)) (A1092 (QUOTE (CONTROL-ERROR)))) (PUT A1091 (QUOTE %%%%INCLUDED-STRUCTURE) A1092)) (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 ((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* ((A1095 (QUOTE ILLEGAL-GO)) (A1094 (QUOTE %%CONDITION-HANDLER)) (A1093 (QUOTE NIL))) (PUTPROP A1095 A1094 A1093)) ILLEGAL-GO% report% method D1 (P 0 TAG I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (17Q FORMAT 3 ILLEGAL-GO-TAG) NIL ( 13Q "GO to a non-existant tag: ~S.") (LET* ((A1098 (QUOTE ILLEGAL-GO)) (A1097 (QUOTE %%CONDITION-REPORTER)) (A1096 (QUOTE ILLEGAL-GO% report% method))) (PUTPROP A1098 A1097 A1096)) ILLEGAL-RETURN-TAG D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE ILLEGAL-RETURN) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-ILLEGAL-RETURN D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :TAG 26Q ILLEGAL-RETURN) () (LET* ((A1099 (QUOTE ILLEGAL-RETURN)) (A1100 (QUOTE (CONTROL-ERROR)))) (PUT A1099 (QUOTE %%%%INCLUDED-STRUCTURE) A1100)) (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 ((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* ((A1103 (QUOTE ILLEGAL-RETURN)) (A1102 (QUOTE %%CONDITION-HANDLER)) (A1101 (QUOTE NIL))) ( PUTPROP A1103 A1102 A1101)) ILLEGAL-RETURN% report% method D1 (P 0 TAG I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (17Q FORMAT 3 ILLEGAL-RETURN-TAG) NIL ( 13Q "RETURN to non-existant block: ~S.") (LET* ((A1106 (QUOTE ILLEGAL-RETURN)) (A1105 (QUOTE %%CONDITION-REPORTER)) (A1104 (QUOTE ILLEGAL-RETURN% report% method))) (PUTPROP A1106 A1105 A1104)) ILLEGAL-THROW-TAG D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE ILLEGAL-THROW) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-ILLEGAL-THROW D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :TAG 26Q ILLEGAL-THROW) () (LET* ((A1107 (QUOTE ILLEGAL-THROW)) (A1108 (QUOTE (CONTROL-ERROR)))) (PUT A1107 (QUOTE %%%%INCLUDED-STRUCTURE) A1108)) (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 ((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* ((A1111 (QUOTE ILLEGAL-THROW)) (A1110 (QUOTE %%CONDITION-HANDLER)) (A1109 (QUOTE NIL))) (PUTPROP A1111 A1110 A1109)) ILLEGAL-THROW% report% method D1 (P 0 TAG I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (17Q FORMAT 3 ILLEGAL-THROW-TAG) NIL ( 13Q "Tag for THROW not found: ~S.") (LET* ((A1114 (QUOTE ILLEGAL-THROW)) (A1113 (QUOTE %%CONDITION-REPORTER)) (A1112 (QUOTE ILLEGAL-THROW% report% method))) (PUTPROP A1114 A1113 A1112)) BAD-PROCEED-CASE-NAME D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE BAD-PROCEED-CASE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-BAD-PROCEED-CASE D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :NAME 26Q BAD-PROCEED-CASE) () (LET* ((A1115 (QUOTE BAD-PROCEED-CASE)) (A1116 (QUOTE (CONTROL-ERROR)))) (PUT A1115 (QUOTE %%%%INCLUDED-STRUCTURE) A1116)) (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 ((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* ((A1119 (QUOTE BAD-PROCEED-CASE)) (A1118 (QUOTE %%CONDITION-HANDLER)) (A1117 (QUOTE NIL))) ( PUTPROP A1119 A1118 A1117)) BAD-PROCEED-CASE% report% method D1 (P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (17Q FORMAT 3 BAD-PROCEED-CASE-NAME) NIL ( 13Q "Proceed case ~S is not currently active.") (LET* ((A1122 (QUOTE BAD-PROCEED-CASE)) (A1121 (QUOTE %%CONDITION-REPORTER)) (A1120 (QUOTE BAD-PROCEED-CASE% report% method))) (PUTPROP A1122 A1121 A1120)) CALL-ERROR-CALLEE D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE CALL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-CALL-ERROR D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :CALLEE 26Q CALL-ERROR) () (LET* ((A1123 (QUOTE CALL-ERROR)) (A1124 (QUOTE (CONTROL-ERROR)))) (PUT A1123 (QUOTE %%%%INCLUDED-STRUCTURE) A1124)) (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 ((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* ((A1127 (QUOTE CALL-ERROR)) (A1126 (QUOTE %%CONDITION-HANDLER)) (A1125 (QUOTE NIL))) (PUTPROP A1127 A1126 A1125)) (LET* ((A1130 (QUOTE CALL-ERROR)) (A1129 (QUOTE %%CONDITION-REPORTER)) (A1128 (QUOTE NIL))) (PUTPROP A1130 A1129 A1128)) 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 () (DEFPRINT (QUOTE TOO-MANY-ARGUMENTS) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-TOO-MANY-ARGUMENTS 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 (147Q :ACTUAL 124Q :MAXIMUM 101Q :CALLEE 63Q TOO-MANY-ARGUMENTS) () (LET* ((A1131 (QUOTE TOO-MANY-ARGUMENTS)) (A1132 (QUOTE (CALL-ERROR)))) (PUT A1131 (QUOTE %%%%INCLUDED-STRUCTURE) A1132)) (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 ((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* ((A1135 (QUOTE TOO-MANY-ARGUMENTS)) (A1134 (QUOTE %%CONDITION-HANDLER)) (A1133 (QUOTE NIL))) ( PUTPROP A1135 A1134 A1133)) 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 (50Q FORMAT 36Q FORMAT 13Q TOO-MANY-ARGUMENTS-ACTUAL 7 TOO-MANY-ARGUMENTS-MAXIMUM 3 TOO-MANY-ARGUMENTS-CALLEE) NIL ( 44Q "Too many arguments to ~A" 27Q "Too many arguments to ~A:~%% ~D were given but at most ~D are accepted") (LET* ((A1138 (QUOTE TOO-MANY-ARGUMENTS)) (A1137 (QUOTE %%CONDITION-REPORTER)) (A1136 (QUOTE TOO-MANY-ARGUMENTS% report% method))) (PUTPROP A1138 A1137 A1136)) 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 () (DEFPRINT (QUOTE TOO-FEW-ARGUMENTS) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-TOO-FEW-ARGUMENTS 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 (147Q :ACTUAL 124Q :MINIMUM 101Q :CALLEE 63Q TOO-FEW-ARGUMENTS) () (LET* ((A1139 (QUOTE TOO-FEW-ARGUMENTS)) (A1140 (QUOTE (CALL-ERROR)))) (PUT A1139 (QUOTE %%%%INCLUDED-STRUCTURE) A1140)) (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 ((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* ((A1143 (QUOTE TOO-FEW-ARGUMENTS)) (A1142 (QUOTE %%CONDITION-HANDLER)) (A1141 (QUOTE NIL))) ( PUTPROP A1143 A1142 A1141)) 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 (50Q FORMAT 36Q FORMAT 13Q TOO-FEW-ARGUMENTS-ACTUAL 7 TOO-FEW-ARGUMENTS-MINIMUM 3 TOO-FEW-ARGUMENTS-CALLEE) NIL ( 44Q "Too few arguments to ~A" 27Q "Too few arguments to ~A:~%% ~D were given but at least ~D are necessary") (LET* ((A1146 (QUOTE TOO-FEW-ARGUMENTS)) (A1145 (QUOTE %%CONDITION-REPORTER)) (A1144 (QUOTE TOO-FEW-ARGUMENTS% report% method))) (PUTPROP A1146 A1145 A1144)) STREAM-ERROR-STREAM D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE STREAM-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-STREAM-ERROR D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :STREAM 26Q STREAM-ERROR) () (LET* ((A1147 (QUOTE STREAM-ERROR)) (A1148 (QUOTE (CL:ERROR)))) (PUT A1147 (QUOTE %%%%INCLUDED-STRUCTURE) A1148)) (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 ((STREAM NIL :READ-ONLY T)))) (PUTPROP (QUOTE STREAM-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (STREAM))) (FIX-INHERITANCE-LINKS (QUOTE STREAM-ERROR) (QUOTE CL:ERROR)) (LET* ((A1151 (QUOTE STREAM-ERROR)) (A1150 (QUOTE %%CONDITION-HANDLER)) (A1149 (QUOTE NIL))) (PUTPROP A1151 A1150 A1149)) STREAM-ERROR% report% method D1 (P 0 STREAM I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (17Q FORMAT 3 STREAM-ERROR-STREAM) NIL ( 13Q "Stream error on ~S.") (LET* ((A1154 (QUOTE STREAM-ERROR)) (A1153 (QUOTE %%CONDITION-REPORTER)) (A1152 (QUOTE STREAM-ERROR% report% method))) (PUTPROP A1154 A1153 A1152)) READ-ERROR-STREAM D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE READ-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-READ-ERROR D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :STREAM 26Q READ-ERROR) () (LET* ((A1155 (QUOTE READ-ERROR)) (A1156 (QUOTE (STREAM-ERROR)))) (PUT A1155 (QUOTE %%%%INCLUDED-STRUCTURE) A1156)) (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 ((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* ((A1159 (QUOTE READ-ERROR)) (A1158 (QUOTE %%CONDITION-HANDLER)) (A1157 (QUOTE NIL))) (PUTPROP A1159 A1158 A1157)) (LET* ((A1162 (QUOTE READ-ERROR)) (A1161 (QUOTE %%CONDITION-REPORTER)) (A1160 (QUOTE NIL))) (PUTPROP A1162 A1161 A1160)) END-OF-FILE-STREAM D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE END-OF-FILE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-END-OF-FILE D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :STREAM 26Q END-OF-FILE) () (LET* ((A1163 (QUOTE END-OF-FILE)) (A1164 (QUOTE (READ-ERROR (STREAM NIL :READ-ONLY T))))) (PUT A1163 (QUOTE %%%%INCLUDED-STRUCTURE) A1164)) (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 ((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* ((A1167 (QUOTE END-OF-FILE)) (A1166 (QUOTE %%CONDITION-HANDLER)) (A1165 (QUOTE NIL))) (PUTPROP A1167 A1166 A1165)) END-OF-FILE% report% method D1 (I 1 STREAM I 0 DATUM) oA (7 WRITE-STRING) NIL ( 3 "End of file:~%% ~S") (LET* ((A1170 (QUOTE END-OF-FILE)) (A1169 (QUOTE %%CONDITION-REPORTER)) (A1168 (QUOTE END-OF-FILE% report% method))) (PUTPROP A1170 A1169 A1168)) (DEFPRINT (QUOTE STORAGE-CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-STORAGE-CONDITION D1 NIL ghNIL (2 STORAGE-CONDITION) () (LET* ((A1171 (QUOTE STORAGE-CONDITION)) (A1172 (QUOTE (SERIOUS-CONDITION)))) (PUT A1171 (QUOTE %%%%INCLUDED-STRUCTURE) A1172)) (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 NIL)) (PUTPROP (QUOTE STORAGE-CONDITION) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE STORAGE-CONDITION) (QUOTE SERIOUS-CONDITION)) (LET* ((A1175 (QUOTE STORAGE-CONDITION)) (A1174 (QUOTE %%CONDITION-HANDLER)) (A1173 (QUOTE NIL))) ( PUTPROP A1175 A1174 A1173)) (LET* ((A1178 (QUOTE STORAGE-CONDITION)) (A1177 (QUOTE %%CONDITION-REPORTER)) (A1176 (QUOTE NIL))) ( PUTPROP A1178 A1177 A1176)) (DEFPRINT (QUOTE STACK-OVERFLOW) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-STACK-OVERFLOW D1 NIL ghNIL (2 STACK-OVERFLOW) () (LET* ((A1179 (QUOTE STACK-OVERFLOW)) (A1180 (QUOTE (STORAGE-CONDITION)))) (PUT A1179 (QUOTE %%%%INCLUDED-STRUCTURE) A1180)) (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 NIL)) (PUTPROP (QUOTE STACK-OVERFLOW) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE STACK-OVERFLOW) (QUOTE STORAGE-CONDITION)) (LET* ((A1183 (QUOTE STACK-OVERFLOW)) (A1182 (QUOTE %%CONDITION-HANDLER)) (A1181 (QUOTE NIL))) ( PUTPROP A1183 A1182 A1181)) STACK-OVERFLOW% report% method D1 (I 1 STREAM I 0 DATUM) oA (7 WRITE-STRING) NIL ( 3 "Stack overflow") (LET* ((A1186 (QUOTE STACK-OVERFLOW)) (A1185 (QUOTE %%CONDITION-REPORTER)) (A1184 (QUOTE STACK-OVERFLOW% report% method))) (PUTPROP A1186 A1185 A1184)) (DEFPRINT (QUOTE STORAGE-EXHAUSTED) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-STORAGE-EXHAUSTED D1 NIL ghNIL (2 STORAGE-EXHAUSTED) () (LET* ((A1187 (QUOTE STORAGE-EXHAUSTED)) (A1188 (QUOTE (STORAGE-CONDITION)))) (PUT A1187 (QUOTE %%%%INCLUDED-STRUCTURE) A1188)) (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 NIL)) (PUTPROP (QUOTE STORAGE-EXHAUSTED) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE STORAGE-EXHAUSTED) (QUOTE STORAGE-CONDITION)) (LET* ((A1191 (QUOTE STORAGE-EXHAUSTED)) (A1190 (QUOTE %%CONDITION-HANDLER)) (A1189 (QUOTE NIL))) ( PUTPROP A1191 A1190 A1189)) (LET* ((A1194 (QUOTE STORAGE-EXHAUSTED)) (A1193 (QUOTE %%CONDITION-REPORTER)) (A1192 (QUOTE NIL))) ( PUTPROP A1194 A1193 A1192)) (PROCLAIM (QUOTE (SPECIAL *BREAK-ON-WARNINGS*))) (OR (BOUNDP (QUOTE *BREAK-ON-WARNINGS*)) (SETQ *BREAK-ON-WARNINGS* NIL)) (LET* ((A1195 (QUOTE *BREAK-ON-WARNINGS*)) (A1196 (QUOTE VARIABLE)) (A1197 "If true, calls to WARN will cause a break as well as logging the warning.")) (PROGN (COND ((FBOUNDP ( QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A1195 A1196 A1197))) A1197)) MAKE-CONDITION D1 (L (0 -args-)) a eka1Hl2 NdMó²¿OºIg j¼»J°5a_¿OµOh__¿NkÔ^°ÔO&_¿°ôdýLkØ\nñ–hl4 ¿µìLK(130Q \LISPERROR 40Q GETPROP) (35Q STRUCTURE-CONSTRUCTOR) () SIGNAL D1 (L (0 -args-)) R eka!Hl2MdLó²!¿NºIgJ [ Kdg ”¿K a_¿OµOh_¾MkÔ]°ÉO&_¿°ô(62Q DEBUG 54Q FAKE-TYPEP-FOR-CONDITIONS 44Q RAISE-SIGNAL 40Q MAKE-INTO-CONDITION) (51Q SERIOUS-CONDITION 34Q SIMPLE-CONDITION) () CL:ERROR D1 (L (0 -args-)) BekaHl2LdKó²¿MºIgJ a_¿NµOh^½LkÔ\°×O&¾°ö(46Q DEBUG 43Q RAISE-SIGNAL 40Q MAKE-INTO-CONDITION) (34Q 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(37Q \LISPERROR) (2 FORMAT) () CERRORA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE1302 F 2 *PROCEED-CASES* F 3 CONDITION F 4 DATUM F 5 ARGUMENTS) ;ggggQgjghgg RTgU c (66Q \MVLIST 63Q DEBUG 60Q RAISE-SIGNAL 53Q MAKE-INTO-CONDITION 36Q MAKE-PROCEED-CASE) (47Q SIMPLE-ERROR 32Q CERRORA0001A0002 27Q :REPORT 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q PROCEED 5 :NAME 2 :NORMAL) () CERRORA0003 D1 (F 0 CONDITION) PNIL NIL () CERROR D1 (L (0 -args-) P 17Q PROCEED-CASE1302 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(210Q \LISPERROR 103Q VALUES-LIST 56Q \CATCH-FUNCALL) (150Q CERRORA0003 73Q :NORMAL 53Q CERRORA0001) () WARN D1 (L (0 -args-) F 11Q *ERROR-OUTPUT* F 12Q *BREAK-ON-WARNINGS*) … eka!Hl2MdLó²¿NºIgJ [g ²"h° a_¿OµOh_¾MkÔ]°ÐO&_¿°ôi²oggggKgg ¿K WoK ¿W“K K(201Q CL:BREAK 171Q FORMAT 166Q REPORT-CONDITION 154Q RAISE-SIGNAL 147Q CERROR 47Q FAKE-TYPEP-FOR-CONDITIONS 40Q MAKE-INTO-CONDITION) (143Q WARNING 140Q :DESIRED-TYPE 134Q :VALUE 131Q CONDITION 126Q :NAME 123Q TYPE-MISMATCH 44Q WARNING 34Q SIMPLE-WARNING) ( 162Q "~&Warning: ~A~%%" 120Q "Signal and report the condition anyway") CL:BREAKA0001A0002 D1 (L (1 STREAM 0 DATUM)) oA (7 WRITE-STRING) NIL ( 3 "Return from BREAK") CL:BREAKA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE1306 F 2 *PROCEED-CASES* F 3 CONDITION F 4 DATUM F 5 ARGUMENTS) 8ggggQgjghgg RTgU c (63Q \MVLIST 60Q DEBUG 53Q MAKE-INTO-CONDITION 36Q MAKE-PROCEED-CASE) (47Q SIMPLE-CONDITION 32Q CL:BREAKA0001A0002 27Q :REPORT 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q PROCEED 5 :NAME 2 :NORMAL) () CL:BREAKA0003 D1 (F 0 CONDITION) PNIL NIL () CL:BREAK D1 (L (0 -args-) P 16Q PROCEED-CASE1306 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(211Q \LISPERROR 105Q VALUES-LIST 63Q \CATCH-FUNCALL) (152Q CL:BREAKA0003 76Q :NORMAL 60Q CL:BREAKA0001) ( 13Q "Break") DEBUG D1 (L (0 -args-)) JekHñ”okaHl2LdKó²¿MZ¿IgJ °ôa_¿NµOh^½LkÔ\°ØO&¾°ö(55Q ERRORX 52Q MAKE-INTO-CONDITION) (46Q SIMPLE-CONDITION) ( 13Q "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 (CL:LAMBDA (PC STREAM LEVEL) (CL:IF *PRINT-ESCAPE* (DEFAULT-STRUCTURE-PRINTER PC STREAM LEVEL) (FUNCALL (PROCEED-CASE-REPORT PC) PC STREAM)) T)) X STREAM 0) T))) MAKE-PROCEED-CASEA0001 D1 (L (1 STREAM 0 PC)) @Al@ ÁÉgg (24Q GETF 7 PROCEED-CASE-NAME) (21Q DEFAULT-PROCEED-REPORTER 16Q %%DEFAULT-PROCEED-REPORT) () 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 (330Q :REPORT 300Q :TEST 253Q :SELECTOR 227Q :TAG 203Q :NAME 141Q PROCEED-CASETYPE# 133Q MAKE-PROCEED-CASEA0001) () (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 ( CL:FUNCTION (LAMBDA (PC STREAM) (FUNCALL (DEFAULT-PROCEED-REPORT (PROCEED-CASE-NAME PC)) PC STREAM)))) ))) (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)) 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 (125Q CHECK-TYPE-FAIL 102Q TEST-PROCEED-CASE 72Q PROCEED-CASE-NAME 44Q TEST-PROCEED-CASE 25Q CL:ERROR) (115Q DATUM 54Q LITATOM 31Q PROCEED-CASE 22Q COMPUTE-PROCEED-CASES 17Q FIND-PROCEED-CASE) ( 122Q (OR NULL PROCEED-CASE SYMBOL) 13Q "~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&º°ø(24Q \CATCH-FUNCALL) (21Q COMPUTE-PROCEED-CASESA0001 16Q SKIP-PROCEED-CASE) () INVOKE-PROCEED-CASE D1 (L (0 -args-)) ½ ekaQlaºHl2 OdOó²@¿O»IJ \¢±Šg g –g ¿L L JIlð²-K a_¿OµOh__¿OkÔ_°¥O&_¿°òL ²ÎL ÁÉg'k¾½JK°dýNkØ^nñ–hl4 ¿µìNM°¡ggI (272Q CL:ERROR 250Q \LISPERROR 206Q PROCEED-CASE-NAME 200Q FBOUNDP 175Q PROCEED-CASE-NAME 127Q \DO-THROW 124Q \MVLIST 106Q PROCEED-CASE-SELECTOR 102Q PROCEED-CASE-TAG 75Q BREAKRESETFN 66Q BOUNDP 57Q BOUNDP 44Q FIND-PROCEED-CASE) (266Q :NAME 263Q BAD-PROCEED-CASE 215Q %%PROCEED-ARG-COLLECTOR 72Q LEAVING 63Q \BREAKRESETEXPR 54Q BREAKRESETVALS) () (LET* ((A1210 (QUOTE ABORT)) (A1209 (QUOTE %%DEFAULT-PROCEED-TEST)) (A1208 (QUOTE TRUE))) (PUTPROP A1210 A1209 A1208)) ABORT-proceed-reporter D1 (I 1 STREAM I 0 DATUM) oA (7 WRITE-STRING) NIL ( 3 "Abort") (LET* ((A1211 (QUOTE ABORT)) (A1212 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A1213 (QUOTE DEFAULT-PROCEED-REPORTER)) (A1214 (QUOTE ABORT-proceed-reporter))) (PUTPROP A1211 A1212 A1214)) (LET* ((A1215 (QUOTE ABORT)) (A1216 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A1218 (CL:FUNCTION (CL:LAMBDA ( &OPTIONAL CONDITION) (LIST))))) (PUTPROP A1215 A1216 A1218)) ABORTA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE1310) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE1312) () ABORTA0001 D1 (P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION) ggQgR (25Q \MVLIST 22Q INVOKE-PROCEED-CASE) (16Q ABORT 5 ABORTA0001A0002 2 BAD-PROCEED-CASE) () ABORT D1 (P 0 CONDITION-CASE1310 I 0 CONDITION)  gg ¹H‘hI (24Q VALUES-LIST 13Q \CATCH-FUNCALL) (10Q ABORTA0001 5 CONDITION-CASE1312) () (LET* ((A1225 (QUOTE PROCEED)) (A1224 (QUOTE %%DEFAULT-PROCEED-TEST)) (A1223 (QUOTE TRUE))) (PUTPROP A1225 A1224 A1223)) PROCEED-proceed-reporter D1 (I 1 STREAM I 0 DATUM) oA (7 WRITE-STRING) NIL ( 3 "Proceed with no special action") (LET* ((A1226 (QUOTE PROCEED)) (A1227 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A1228 (QUOTE DEFAULT-PROCEED-REPORTER)) (A1229 (QUOTE PROCEED-proceed-reporter))) (PUTPROP A1226 A1227 A1229)) (LET* ((A1230 (QUOTE PROCEED)) (A1231 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A1233 (CL:FUNCTION (CL:LAMBDA (&OPTIONAL CONDITION) (LIST))))) (PUTPROP A1230 A1231 A1233)) PROCEEDA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE1314) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE1316) () PROCEEDA0001 D1 (P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION) ggQgR (25Q \MVLIST 22Q INVOKE-PROCEED-CASE) (16Q PROCEED 5 PROCEEDA0001A0002 2 BAD-PROCEED-CASE) () PROCEED D1 (P 0 CONDITION-CASE1314 I 0 CONDITION)  gg ¹H‘hI (24Q VALUES-LIST 13Q \CATCH-FUNCALL) (10Q PROCEEDA0001 5 CONDITION-CASE1316) () (LET* ((A1240 (QUOTE USE-VALUE)) (A1239 (QUOTE %%DEFAULT-PROCEED-TEST)) (A1238 (QUOTE TRUE))) (PUTPROP A1240 A1239 A1238)) USE-VALUE-proceed-reporter D1 (I 1 STREAM I 0 DATUM) oA (7 WRITE-STRING) NIL ( 3 "Use a different value") (LET* ((A1241 (QUOTE USE-VALUE)) (A1242 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A1243 (QUOTE DEFAULT-PROCEED-REPORTER)) (A1244 (QUOTE USE-VALUE-proceed-reporter))) (PUTPROP A1241 A1242 A1244)) (LET* ((A1245 (QUOTE USE-VALUE)) (A1246 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A1248 (CL:FUNCTION ( CL:LAMBDA (&OPTIONAL CONDITION (VALUE (PROGN (FORMAT *QUERY-IO* "Enter a new value: ") (EVAL (CL:READ *QUERY-IO*))))) (LIST VALUE))))) (PUTPROP A1245 A1246 A1248)) USE-VALUEA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE1318) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE1320) () USE-VALUEA0001 D1 (P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION F 3 VALUE) ggQgRS (26Q \MVLIST 23Q INVOKE-PROCEED-CASE) (16Q USE-VALUE 5 USE-VALUEA0001A0002 2 BAD-PROCEED-CASE) () USE-VALUE D1 (L (0 -args-) P 4 CONDITION-CASE1318 P 3 VALUE P 1 CONDITION F 5 *QUERY-IO*) @ekHñ‘hkalHñ²Uo ¿U ‚lagg ºL‘hJ (75Q VALUES-LIST 64Q \CATCH-FUNCALL 44Q EVAL 41Q CL:READ 34Q FORMAT) (61Q USE-VALUEA0001 56Q CONDITION-CASE1320) ( 31Q "Enter a new value: ") (LET* ((A1255 (QUOTE STORE-VALUE)) (A1254 (QUOTE %%DEFAULT-PROCEED-TEST)) (A1253 (QUOTE TRUE))) ( PUTPROP A1255 A1254 A1253)) STORE-VALUE-proceed-reporter D1 (I 1 STREAM I 0 DATUM) oA (7 WRITE-STRING) NIL ( 3 "Store a new value and use it") (LET* ((A1256 (QUOTE STORE-VALUE)) (A1257 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A1258 (QUOTE DEFAULT-PROCEED-REPORTER)) (A1259 (QUOTE STORE-VALUE-proceed-reporter))) (PUTPROP A1256 A1257 A1259)) (LET* ((A1260 (QUOTE STORE-VALUE)) (A1261 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A1263 (CL:FUNCTION ( CL:LAMBDA (&OPTIONAL CONDITION (VALUE (PROGN (FORMAT *QUERY-IO* "Enter a value to store: ") (CL:EVAL ( CL:READ *QUERY-IO*))))) (LIST VALUE))))) (PUTPROP A1260 A1261 A1263)) STORE-VALUEA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE1322) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE1324) () STORE-VALUEA0001 D1 (P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION F 3 VALUE) ggQgRS (26Q \MVLIST 23Q INVOKE-PROCEED-CASE) (16Q STORE-VALUE 5 STORE-VALUEA0001A0002 2 BAD-PROCEED-CASE) () STORE-VALUE D1 (L (0 -args-) P 4 CONDITION-CASE1322 P 3 VALUE P 1 CONDITION F 5 *QUERY-IO*) @ekHñ‘hkalHñ²Uo ¿U ‚lagg ºL‘hJ (75Q VALUES-LIST 64Q \CATCH-FUNCALL 44Q CL:EVAL 41Q CL:READ 34Q FORMAT) (61Q STORE-VALUEA0001 56Q CONDITION-CASE1324) ( 31Q "Enter a value to store: ") SIMPLE-FORMAT D1 (L (0 -args-) F 11Q *STANDARD-OUTPUT*) N eka!Hl2MdLó²¿NºIið’W¹J[d³ a_¿OµOh_¾MkÔ]°×O&_¿°ôI ¿K°Ö(107Q CL:PRINT) NIL () (MOVD? (QUOTE SIMPLE-FORMAT) (QUOTE FORMAT)) (PUTPROPS ERROR-RUNTIME FILETYPE COMPILE-FILE) (PUTPROPS ERROR-RUNTIME COPYRIGHT ("Xerox Corporation" 1986)) NIL