(FILECREATED "10-Oct-86 19:09:52" ("compiled on " {ERIS}SOURCES>ERROR-RUNTIME.;5) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED "10-Oct-86 19:09:13" {ERIS}SOURCES>ERROR-RUNTIME.;5 29889 changes to: ( STRUCTURES TOO-MANY-ARGUMENTS TOO-FEW-ARGUMENTS INVALID-ARGUMENT-LIST) (VARS ERROR-RUNTIMECOMS) previous date: " 3-Oct-86 20:07:45" {ERIS}SOURCES>ERROR-RUNTIME.;4) (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 INVALID-ARGUMENT-LIST) (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* ((A1938 (QUOTE *CONDITION-HANDLER-BINDINGS*)) (A1939 (QUOTE VARIABLE)) (A1940 "Condition handler binding stack")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A1938 A1939 A1940))) A1940)) (PROCLAIM (QUOTE (SPECIAL *PROCEED-CASES*))) (OR (BOUNDP (QUOTE *PROCEED-CASES*)) (SETQ *PROCEED-CASES* NIL)) (LET* ((A1941 (QUOTE *PROCEED-CASES*)) (A1942 (QUOTE VARIABLE)) (A1943 "Active proceed case stack")) ( PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A1941 A1942 A1943))) A1943)) 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-CASE2280 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-CASE2280 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-CASE2284 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-CASE2284 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-CASE2288 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-CASE2288 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-CASE2310 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-CASE2310 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* ((A1960 (QUOTE CONDITION)) (A1959 (QUOTE %%CONDITION-HANDLER)) (A1958 (QUOTE NIL))) (PUTPROP A1960 A1959 A1958)) CONDITION% report% method D1 (I 1 STREAM I 0 DATUM) oA (7 WRITE-STRING) NIL ( 3 "Condition ~S occurred.") (LET* ((A1963 (QUOTE CONDITION)) (A1962 (QUOTE %%CONDITION-REPORTER)) (A1961 (QUOTE CONDITION% report% method))) (PUTPROP A1963 A1962 A1961)) 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* ((A1964 (QUOTE SIMPLE-CONDITION)) (A1965 (QUOTE (CONDITION)))) (PUT A1964 (QUOTE %%%%INCLUDED-STRUCTURE) A1965)) (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* ((A1968 (QUOTE SIMPLE-CONDITION)) (A1967 (QUOTE %%CONDITION-HANDLER)) (A1966 (QUOTE NIL))) ( PUTPROP A1968 A1967 A1966)) 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* ((A1971 (QUOTE SIMPLE-CONDITION)) (A1970 (QUOTE %%CONDITION-REPORTER)) (A1969 (QUOTE SIMPLE-CONDITION% report% method))) (PUTPROP A1971 A1970 A1969)) (DEFPRINT (QUOTE WARNING) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-WARNING D1 NIL ghNIL (2 WARNING) () (LET* ((A1972 (QUOTE WARNING)) (A1973 (QUOTE (CONDITION)))) (PUT A1972 (QUOTE %%%%INCLUDED-STRUCTURE) A1973)) (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* ((A1976 (QUOTE WARNING)) (A1975 (QUOTE %%CONDITION-HANDLER)) (A1974 (QUOTE NIL))) (PUTPROP A1976 A1975 A1974)) (LET* ((A1979 (QUOTE WARNING)) (A1978 (QUOTE %%CONDITION-REPORTER)) (A1977 (QUOTE NIL))) (PUTPROP A1979 A1978 A1977)) 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* ((A1980 (QUOTE SIMPLE-WARNING)) (A1981 (QUOTE (WARNING)))) (PUT A1980 (QUOTE %%%%INCLUDED-STRUCTURE) A1981)) (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* ((A1984 (QUOTE SIMPLE-WARNING)) (A1983 (QUOTE %%CONDITION-HANDLER)) (A1982 (QUOTE NIL))) ( PUTPROP A1984 A1983 A1982)) 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* ((A1987 (QUOTE SIMPLE-WARNING)) (A1986 (QUOTE %%CONDITION-REPORTER)) (A1985 (QUOTE SIMPLE-WARNING% report% method))) (PUTPROP A1987 A1986 A1985)) 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* ((A1988 (QUOTE OLD-BREAK1)) (A1989 (QUOTE (CONDITION)))) (PUT A1988 (QUOTE %%%%INCLUDED-STRUCTURE) A1989)) (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* ((A1992 (QUOTE OLD-BREAK1)) (A1991 (QUOTE %%CONDITION-HANDLER)) (A1990 (QUOTE NIL))) (PUTPROP A1992 A1991 A1990)) OLD-BREAK1% report% method D1 (P 5 MESS3 P 4 MESS2 P 3 A2313 P 2 MESS1 P 1 A2312 P 0 LIST I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ QHYºI[¼K½JLM (31Q ERRORMESS1 3 OLD-BREAK1-LIST) NIL () (LET* ((A1995 (QUOTE OLD-BREAK1)) (A1994 (QUOTE %%CONDITION-REPORTER)) (A1993 (QUOTE OLD-BREAK1% report% method))) (PUTPROP A1995 A1994 A1993)) (DEFPRINT (QUOTE SERIOUS-CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-SERIOUS-CONDITION D1 NIL ghNIL (2 SERIOUS-CONDITION) () (LET* ((A1996 (QUOTE SERIOUS-CONDITION)) (A1997 (QUOTE (CONDITION)))) (PUT A1996 (QUOTE %%%%INCLUDED-STRUCTURE) A1997)) (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* ((A2000 (QUOTE SERIOUS-CONDITION)) (A1999 (QUOTE %%CONDITION-HANDLER)) (A1998 (QUOTE NIL))) ( PUTPROP A2000 A1999 A1998)) 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* ((A2003 (QUOTE SERIOUS-CONDITION)) (A2002 (QUOTE %%CONDITION-REPORTER)) (A2001 (QUOTE SERIOUS-CONDITION% report% method))) (PUTPROP A2003 A2002 A2001)) (DEFPRINT (QUOTE CL:ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-CL:ERROR D1 NIL ghNIL (2 CL:ERROR) () (LET* ((A2004 (QUOTE CL:ERROR)) (A2005 (QUOTE (SERIOUS-CONDITION)))) (PUT A2004 (QUOTE %%%%INCLUDED-STRUCTURE) A2005)) (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* ((A2008 (QUOTE CL:ERROR)) (A2007 (QUOTE %%CONDITION-HANDLER)) (A2006 (QUOTE NIL))) (PUTPROP A2008 A2007 A2006)) (LET* ((A2011 (QUOTE CL:ERROR)) (A2010 (QUOTE %%CONDITION-REPORTER)) (A2009 (QUOTE NIL))) (PUTPROP A2011 A2010 A2009)) 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* ((A2012 (QUOTE OLD-INTERLISP-ERROR)) (A2013 (QUOTE (CL:ERROR)))) (PUT A2012 (QUOTE %%%%INCLUDED-STRUCTURE) A2013)) (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* ((A2016 (QUOTE OLD-INTERLISP-ERROR)) (A2015 (QUOTE %%CONDITION-HANDLER)) (A2014 (QUOTE NIL))) ( PUTPROP A2016 A2015 A2014)) OLD-INTERLISP-ERROR% report% method D1 (P 4 MESS2 P 3 MESS1 P 2 A2314 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* ((A2019 (QUOTE OLD-INTERLISP-ERROR)) (A2018 (QUOTE %%CONDITION-REPORTER)) (A2017 (QUOTE OLD-INTERLISP-ERROR% report% method))) (PUTPROP A2019 A2018 A2017)) 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* ((A2020 (QUOTE SIMPLE-ERROR)) (A2021 (QUOTE (CL:ERROR)))) (PUT A2020 (QUOTE %%%%INCLUDED-STRUCTURE) A2021)) (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* ((A2024 (QUOTE SIMPLE-ERROR)) (A2023 (QUOTE %%CONDITION-HANDLER)) (A2022 (QUOTE NIL))) (PUTPROP A2024 A2023 A2022)) 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* ((A2027 (QUOTE SIMPLE-ERROR)) (A2026 (QUOTE %%CONDITION-REPORTER)) (A2025 (QUOTE SIMPLE-ERROR% report% method))) (PUTPROP A2027 A2026 A2025)) 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* ((A2028 (QUOTE ASSERTION-FAILED)) (A2029 (QUOTE (SIMPLE-ERROR)))) (PUT A2028 (QUOTE %%%%INCLUDED-STRUCTURE) A2029)) (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* ((A2032 (QUOTE ASSERTION-FAILED)) (A2031 (QUOTE %%CONDITION-HANDLER)) (A2030 (QUOTE NIL))) ( PUTPROP A2032 A2031 A2030)) 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* ((A2035 (QUOTE ASSERTION-FAILED)) (A2034 (QUOTE %%CONDITION-REPORTER)) (A2033 (QUOTE ASSERTION-FAILED% report% method))) (PUTPROP A2035 A2034 A2033)) 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* ((A2036 (QUOTE CELL-ERROR)) (A2037 (QUOTE (CL:ERROR)))) (PUT A2036 (QUOTE %%%%INCLUDED-STRUCTURE ) A2037)) (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* ((A2040 (QUOTE CELL-ERROR)) (A2039 (QUOTE %%CONDITION-HANDLER)) (A2038 (QUOTE NIL))) (PUTPROP A2040 A2039 A2038)) (LET* ((A2043 (QUOTE CELL-ERROR)) (A2042 (QUOTE %%CONDITION-REPORTER)) (A2041 (QUOTE NIL))) (PUTPROP A2043 A2042 A2041)) 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* ((A2044 (QUOTE UNBOUND-VARIABLE)) (A2045 (QUOTE (CELL-ERROR)))) (PUT A2044 (QUOTE %%%%INCLUDED-STRUCTURE) A2045)) (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* ((A2048 (QUOTE UNBOUND-VARIABLE)) (A2047 (QUOTE %%CONDITION-HANDLER)) (A2046 (QUOTE NIL))) ( PUTPROP A2048 A2047 A2046)) 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* ((A2051 (QUOTE UNBOUND-VARIABLE)) (A2050 (QUOTE %%CONDITION-REPORTER)) (A2049 (QUOTE UNBOUND-VARIABLE% report% method))) (PUTPROP A2051 A2050 A2049)) 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* ((A2052 (QUOTE UNDEFINED-FUNCTION)) (A2053 (QUOTE (CELL-ERROR)))) (PUT A2052 (QUOTE %%%%INCLUDED-STRUCTURE) A2053)) (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* ((A2056 (QUOTE UNDEFINED-FUNCTION)) (A2055 (QUOTE %%CONDITION-HANDLER)) (A2054 (QUOTE NIL))) ( PUTPROP A2056 A2055 A2054)) 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* ((A2059 (QUOTE UNDEFINED-FUNCTION)) (A2058 (QUOTE %%CONDITION-REPORTER)) (A2057 (QUOTE UNDEFINED-FUNCTION% report% method))) (PUTPROP A2059 A2058 A2057)) 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* ((A2060 (QUOTE NO-PROCEED-TEST)) (A2061 (QUOTE (UNDEFINED-FUNCTION)))) (PUT A2060 (QUOTE %%%%INCLUDED-STRUCTURE) A2061)) (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* ((A2064 (QUOTE NO-PROCEED-TEST)) (A2063 (QUOTE %%CONDITION-HANDLER)) (A2062 (QUOTE NIL))) ( PUTPROP A2064 A2063 A2062)) 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* ((A2067 (QUOTE NO-PROCEED-TEST)) (A2066 (QUOTE %%CONDITION-REPORTER)) (A2065 (QUOTE NO-PROCEED-TEST% report% method))) (PUTPROP A2067 A2066 A2065)) 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* ((A2068 (QUOTE INDEX-BOUNDS-ERROR)) (A2069 (QUOTE (CELL-ERROR)))) (PUT A2068 (QUOTE %%%%INCLUDED-STRUCTURE) A2069)) (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* ((A2072 (QUOTE INDEX-BOUNDS-ERROR)) (A2071 (QUOTE %%CONDITION-HANDLER)) (A2070 (QUOTE NIL))) ( PUTPROP A2072 A2071 A2070)) 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* ((A2075 (QUOTE INDEX-BOUNDS-ERROR)) (A2074 (QUOTE %%CONDITION-REPORTER)) (A2073 (QUOTE INDEX-BOUNDS-ERROR% report% method))) (PUTPROP A2075 A2074 A2073)) 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* ((A2076 (QUOTE TYPE-MISMATCH)) (A2077 (QUOTE (CELL-ERROR)))) (PUT A2076 (QUOTE %%%%INCLUDED-STRUCTURE) A2077)) (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* ((A2080 (QUOTE TYPE-MISMATCH)) (A2079 (QUOTE %%CONDITION-HANDLER)) (A2078 (QUOTE NIL))) (PUTPROP A2080 A2079 A2078)) 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* ((A2083 (QUOTE TYPE-MISMATCH)) (A2082 (QUOTE %%CONDITION-REPORTER)) (A2081 (QUOTE TYPE-MISMATCH% report% method))) (PUTPROP A2083 A2082 A2081)) (DEFPRINT (QUOTE CONTROL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-CONTROL-ERROR D1 NIL ghNIL (2 CONTROL-ERROR) () (LET* ((A2084 (QUOTE CONTROL-ERROR)) (A2085 (QUOTE (CL:ERROR)))) (PUT A2084 (QUOTE %%%%INCLUDED-STRUCTURE) A2085)) (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* ((A2088 (QUOTE CONTROL-ERROR)) (A2087 (QUOTE %%CONDITION-HANDLER)) (A2086 (QUOTE NIL))) (PUTPROP A2088 A2087 A2086)) (LET* ((A2091 (QUOTE CONTROL-ERROR)) (A2090 (QUOTE %%CONDITION-REPORTER)) (A2089 (QUOTE NIL))) ( PUTPROP A2091 A2090 A2089)) 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* ((A2092 (QUOTE ILLEGAL-GO)) (A2093 (QUOTE (CONTROL-ERROR)))) (PUT A2092 (QUOTE %%%%INCLUDED-STRUCTURE) A2093)) (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* ((A2096 (QUOTE ILLEGAL-GO)) (A2095 (QUOTE %%CONDITION-HANDLER)) (A2094 (QUOTE NIL))) (PUTPROP A2096 A2095 A2094)) 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* ((A2099 (QUOTE ILLEGAL-GO)) (A2098 (QUOTE %%CONDITION-REPORTER)) (A2097 (QUOTE ILLEGAL-GO% report% method))) (PUTPROP A2099 A2098 A2097)) 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* ((A2100 (QUOTE ILLEGAL-RETURN)) (A2101 (QUOTE (CONTROL-ERROR)))) (PUT A2100 (QUOTE %%%%INCLUDED-STRUCTURE) A2101)) (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* ((A2104 (QUOTE ILLEGAL-RETURN)) (A2103 (QUOTE %%CONDITION-HANDLER)) (A2102 (QUOTE NIL))) ( PUTPROP A2104 A2103 A2102)) 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* ((A2107 (QUOTE ILLEGAL-RETURN)) (A2106 (QUOTE %%CONDITION-REPORTER)) (A2105 (QUOTE ILLEGAL-RETURN% report% method))) (PUTPROP A2107 A2106 A2105)) 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* ((A2108 (QUOTE ILLEGAL-THROW)) (A2109 (QUOTE (CONTROL-ERROR)))) (PUT A2108 (QUOTE %%%%INCLUDED-STRUCTURE) A2109)) (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* ((A2112 (QUOTE ILLEGAL-THROW)) (A2111 (QUOTE %%CONDITION-HANDLER)) (A2110 (QUOTE NIL))) (PUTPROP A2112 A2111 A2110)) 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* ((A2115 (QUOTE ILLEGAL-THROW)) (A2114 (QUOTE %%CONDITION-REPORTER)) (A2113 (QUOTE ILLEGAL-THROW% report% method))) (PUTPROP A2115 A2114 A2113)) 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* ((A2116 (QUOTE BAD-PROCEED-CASE)) (A2117 (QUOTE (CONTROL-ERROR)))) (PUT A2116 (QUOTE %%%%INCLUDED-STRUCTURE) A2117)) (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* ((A2120 (QUOTE BAD-PROCEED-CASE)) (A2119 (QUOTE %%CONDITION-HANDLER)) (A2118 (QUOTE NIL))) ( PUTPROP A2120 A2119 A2118)) 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* ((A2123 (QUOTE BAD-PROCEED-CASE)) (A2122 (QUOTE %%CONDITION-REPORTER)) (A2121 (QUOTE BAD-PROCEED-CASE% report% method))) (PUTPROP A2123 A2122 A2121)) 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* ((A2124 (QUOTE CALL-ERROR)) (A2125 (QUOTE (CONTROL-ERROR)))) (PUT A2124 (QUOTE %%%%INCLUDED-STRUCTURE) A2125)) (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* ((A2128 (QUOTE CALL-ERROR)) (A2127 (QUOTE %%CONDITION-HANDLER)) (A2126 (QUOTE NIL))) (PUTPROP A2128 A2127 A2126)) (LET* ((A2131 (QUOTE CALL-ERROR)) (A2130 (QUOTE %%CONDITION-REPORTER)) (A2129 (QUOTE NIL))) (PUTPROP A2131 A2130 A2129)) 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* ((A2132 (QUOTE TOO-MANY-ARGUMENTS)) (A2133 (QUOTE (CALL-ERROR)))) (PUT A2132 (QUOTE %%%%INCLUDED-STRUCTURE) A2133)) (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* ((A2136 (QUOTE TOO-MANY-ARGUMENTS)) (A2135 (QUOTE %%CONDITION-HANDLER)) (A2134 (QUOTE NIL))) ( PUTPROP A2136 A2135 A2134)) 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~;was~:;were~] given but at most ~D ~:*~[are~;is~:;are~] accepted") (LET* ((A2139 (QUOTE TOO-MANY-ARGUMENTS)) (A2138 (QUOTE %%CONDITION-REPORTER)) (A2137 (QUOTE TOO-MANY-ARGUMENTS% report% method))) (PUTPROP A2139 A2138 A2137)) 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* ((A2140 (QUOTE TOO-FEW-ARGUMENTS)) (A2141 (QUOTE (CALL-ERROR)))) (PUT A2140 (QUOTE %%%%INCLUDED-STRUCTURE) A2141)) (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* ((A2144 (QUOTE TOO-FEW-ARGUMENTS)) (A2143 (QUOTE %%CONDITION-HANDLER)) (A2142 (QUOTE NIL))) ( PUTPROP A2144 A2143 A2142)) 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~;was~:;were~] given but at least ~D ~:*~[are~;is~:;are~] necessary") (LET* ((A2147 (QUOTE TOO-FEW-ARGUMENTS)) (A2146 (QUOTE %%CONDITION-REPORTER)) (A2145 (QUOTE TOO-FEW-ARGUMENTS% report% method))) (PUTPROP A2147 A2146 A2145)) INVALID-ARGUMENT-LIST-CALLEE D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE INVALID-ARGUMENT-LIST) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-INVALID-ARGUMENT-LIST D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :CALLEE 26Q INVALID-ARGUMENT-LIST) () (LET* ((A2148 (QUOTE INVALID-ARGUMENT-LIST)) (A2149 (QUOTE (CALL-ERROR)))) (PUT A2148 (QUOTE %%%%INCLUDED-STRUCTURE) A2149)) (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 ((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* ((A2152 (QUOTE INVALID-ARGUMENT-LIST)) (A2151 (QUOTE %%CONDITION-HANDLER)) (A2150 (QUOTE NIL))) (PUTPROP A2152 A2151 A2150)) INVALID-ARGUMENT-LIST% report% method D1 (P 0 CALLEE I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ ioH (17Q FORMAT 3 INVALID-ARGUMENT-LIST-CALLEE) NIL ( 13Q "~S has an invalid argument list") (LET* ((A2155 (QUOTE INVALID-ARGUMENT-LIST)) (A2154 (QUOTE %%CONDITION-REPORTER)) (A2153 (QUOTE INVALID-ARGUMENT-LIST% report% method))) (PUTPROP A2155 A2154 A2153)) 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* ((A2156 (QUOTE STREAM-ERROR)) (A2157 (QUOTE (CL:ERROR)))) (PUT A2156 (QUOTE %%%%INCLUDED-STRUCTURE) A2157)) (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* ((A2160 (QUOTE STREAM-ERROR)) (A2159 (QUOTE %%CONDITION-HANDLER)) (A2158 (QUOTE NIL))) (PUTPROP A2160 A2159 A2158)) 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* ((A2163 (QUOTE STREAM-ERROR)) (A2162 (QUOTE %%CONDITION-REPORTER)) (A2161 (QUOTE STREAM-ERROR% report% method))) (PUTPROP A2163 A2162 A2161)) 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* ((A2164 (QUOTE READ-ERROR)) (A2165 (QUOTE (STREAM-ERROR)))) (PUT A2164 (QUOTE %%%%INCLUDED-STRUCTURE) A2165)) (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* ((A2168 (QUOTE READ-ERROR)) (A2167 (QUOTE %%CONDITION-HANDLER)) (A2166 (QUOTE NIL))) (PUTPROP A2168 A2167 A2166)) (LET* ((A2171 (QUOTE READ-ERROR)) (A2170 (QUOTE %%CONDITION-REPORTER)) (A2169 (QUOTE NIL))) (PUTPROP A2171 A2170 A2169)) 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* ((A2172 (QUOTE END-OF-FILE)) (A2173 (QUOTE (READ-ERROR (STREAM NIL :READ-ONLY T))))) (PUT A2172 (QUOTE %%%%INCLUDED-STRUCTURE) A2173)) (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* ((A2176 (QUOTE END-OF-FILE)) (A2175 (QUOTE %%CONDITION-HANDLER)) (A2174 (QUOTE NIL))) (PUTPROP A2176 A2175 A2174)) END-OF-FILE% report% method D1 (I 1 STREAM I 0 DATUM) oA (7 WRITE-STRING) NIL ( 3 "End of file:~%% ~S") (LET* ((A2179 (QUOTE END-OF-FILE)) (A2178 (QUOTE %%CONDITION-REPORTER)) (A2177 (QUOTE END-OF-FILE% report% method))) (PUTPROP A2179 A2178 A2177)) (DEFPRINT (QUOTE STORAGE-CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-STORAGE-CONDITION D1 NIL ghNIL (2 STORAGE-CONDITION) () (LET* ((A2180 (QUOTE STORAGE-CONDITION)) (A2181 (QUOTE (SERIOUS-CONDITION)))) (PUT A2180 (QUOTE %%%%INCLUDED-STRUCTURE) A2181)) (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* ((A2184 (QUOTE STORAGE-CONDITION)) (A2183 (QUOTE %%CONDITION-HANDLER)) (A2182 (QUOTE NIL))) ( PUTPROP A2184 A2183 A2182)) (LET* ((A2187 (QUOTE STORAGE-CONDITION)) (A2186 (QUOTE %%CONDITION-REPORTER)) (A2185 (QUOTE NIL))) ( PUTPROP A2187 A2186 A2185)) (DEFPRINT (QUOTE STACK-OVERFLOW) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-STACK-OVERFLOW D1 NIL ghNIL (2 STACK-OVERFLOW) () (LET* ((A2188 (QUOTE STACK-OVERFLOW)) (A2189 (QUOTE (STORAGE-CONDITION)))) (PUT A2188 (QUOTE %%%%INCLUDED-STRUCTURE) A2189)) (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* ((A2192 (QUOTE STACK-OVERFLOW)) (A2191 (QUOTE %%CONDITION-HANDLER)) (A2190 (QUOTE NIL))) ( PUTPROP A2192 A2191 A2190)) STACK-OVERFLOW% report% method D1 (I 1 STREAM I 0 DATUM) oA (7 WRITE-STRING) NIL ( 3 "Stack overflow") (LET* ((A2195 (QUOTE STACK-OVERFLOW)) (A2194 (QUOTE %%CONDITION-REPORTER)) (A2193 (QUOTE STACK-OVERFLOW% report% method))) (PUTPROP A2195 A2194 A2193)) (DEFPRINT (QUOTE STORAGE-EXHAUSTED) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-STORAGE-EXHAUSTED D1 NIL ghNIL (2 STORAGE-EXHAUSTED) () (LET* ((A2196 (QUOTE STORAGE-EXHAUSTED)) (A2197 (QUOTE (STORAGE-CONDITION)))) (PUT A2196 (QUOTE %%%%INCLUDED-STRUCTURE) A2197)) (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* ((A2200 (QUOTE STORAGE-EXHAUSTED)) (A2199 (QUOTE %%CONDITION-HANDLER)) (A2198 (QUOTE NIL))) ( PUTPROP A2200 A2199 A2198)) (LET* ((A2203 (QUOTE STORAGE-EXHAUSTED)) (A2202 (QUOTE %%CONDITION-REPORTER)) (A2201 (QUOTE NIL))) ( PUTPROP A2203 A2202 A2201)) (PROCLAIM (QUOTE (SPECIAL *BREAK-ON-WARNINGS*))) (OR (BOUNDP (QUOTE *BREAK-ON-WARNINGS*)) (SETQ *BREAK-ON-WARNINGS* NIL)) (LET* ((A2204 (QUOTE *BREAK-ON-WARNINGS*)) (A2205 (QUOTE VARIABLE)) (A2206 "If true, calls to WARN will cause a break as well as logging the warning.")) (PROGN (COND ((FBOUNDP ( QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A2204 A2205 A2206))) A2206)) 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-CASE2317 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-CASE2317 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-CASE2321 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-CASE2321 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* ((A2219 (QUOTE ABORT)) (A2218 (QUOTE %%DEFAULT-PROCEED-TEST)) (A2217 (QUOTE TRUE))) (PUTPROP A2219 A2218 A2217)) ABORT-proceed-reporter D1 (I 1 STREAM I 0 DATUM) oA (7 WRITE-STRING) NIL ( 3 "Abort") (LET* ((A2220 (QUOTE ABORT)) (A2221 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A2222 (QUOTE DEFAULT-PROCEED-REPORTER)) (A2223 (QUOTE ABORT-proceed-reporter))) (PUTPROP A2220 A2221 A2223)) (LET* ((A2224 (QUOTE ABORT)) (A2225 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A2227 (CL:FUNCTION (CL:LAMBDA ( &OPTIONAL CONDITION) (LIST))))) (PUTPROP A2224 A2225 A2227)) ABORTA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE2325) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE2327) () 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-CASE2325 I 0 CONDITION)  gg ¹H‘hI (24Q VALUES-LIST 13Q \CATCH-FUNCALL) (10Q ABORTA0001 5 CONDITION-CASE2327) () (LET* ((A2234 (QUOTE PROCEED)) (A2233 (QUOTE %%DEFAULT-PROCEED-TEST)) (A2232 (QUOTE TRUE))) (PUTPROP A2234 A2233 A2232)) PROCEED-proceed-reporter D1 (I 1 STREAM I 0 DATUM) oA (7 WRITE-STRING) NIL ( 3 "Proceed with no special action") (LET* ((A2235 (QUOTE PROCEED)) (A2236 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A2237 (QUOTE DEFAULT-PROCEED-REPORTER)) (A2238 (QUOTE PROCEED-proceed-reporter))) (PUTPROP A2235 A2236 A2238)) (LET* ((A2239 (QUOTE PROCEED)) (A2240 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A2242 (CL:FUNCTION (CL:LAMBDA (&OPTIONAL CONDITION) (LIST))))) (PUTPROP A2239 A2240 A2242)) PROCEEDA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE2329) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE2331) () 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-CASE2329 I 0 CONDITION)  gg ¹H‘hI (24Q VALUES-LIST 13Q \CATCH-FUNCALL) (10Q PROCEEDA0001 5 CONDITION-CASE2331) () (LET* ((A2249 (QUOTE USE-VALUE)) (A2248 (QUOTE %%DEFAULT-PROCEED-TEST)) (A2247 (QUOTE TRUE))) (PUTPROP A2249 A2248 A2247)) USE-VALUE-proceed-reporter D1 (I 1 STREAM I 0 DATUM) oA (7 WRITE-STRING) NIL ( 3 "Use a different value") (LET* ((A2250 (QUOTE USE-VALUE)) (A2251 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A2252 (QUOTE DEFAULT-PROCEED-REPORTER)) (A2253 (QUOTE USE-VALUE-proceed-reporter))) (PUTPROP A2250 A2251 A2253)) (LET* ((A2254 (QUOTE USE-VALUE)) (A2255 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A2257 (CL:FUNCTION ( CL:LAMBDA (&OPTIONAL CONDITION (VALUE (PROGN (FORMAT *QUERY-IO* "Enter a new value: ") (EVAL (CL:READ *QUERY-IO*))))) (LIST VALUE))))) (PUTPROP A2254 A2255 A2257)) USE-VALUEA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE2333) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE2335) () 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-CASE2333 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-CASE2335) ( 31Q "Enter a new value: ") (LET* ((A2264 (QUOTE STORE-VALUE)) (A2263 (QUOTE %%DEFAULT-PROCEED-TEST)) (A2262 (QUOTE TRUE))) ( PUTPROP A2264 A2263 A2262)) 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* ((A2265 (QUOTE STORE-VALUE)) (A2266 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A2267 (QUOTE DEFAULT-PROCEED-REPORTER)) (A2268 (QUOTE STORE-VALUE-proceed-reporter))) (PUTPROP A2265 A2266 A2268)) (LET* ((A2269 (QUOTE STORE-VALUE)) (A2270 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A2272 (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 A2269 A2270 A2272)) STORE-VALUEA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE2337) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE2339) () 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-CASE2337 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-CASE2339) ( 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