(FILECREATED "30-Sep-86 15:50:09" ("compiled on " {ERIS}SOURCES>ERROR-RUNTIME.;3) "24-Sep-86 19:51:31" in "Xerox Lisp 24-Sep-86 ..." dated "24-Sep-86 20:08:23") (FILECREATED "30-Sep-86 15:45:02" {ERIS}SOURCES>ERROR-RUNTIME.;3 28506 changes to: ( STRUCTURES TOO-MANY-ARGUMENTS TOO-FEW-ARGUMENTS) previous date: "22-Sep-86 15:43:08" {ERIS}SOURCES>ERROR-RUNTIME.;2) (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) (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 REPORT-TYPE-MISMATCH) (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)) (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)) @!HHgIJhNIL (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)) @!HHgIJhNIL (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)) @dii A@i@g b(32Q GETPROP 11Q VALUES) (27Q %%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)) (PROCLAIM (QUOTE (SPECIAL *CONDITION-HANDLER-BINDINGS*))) (OR (BOUNDP (QUOTE *CONDITION-HANDLER-BINDINGS*)) (SETQ *CONDITION-HANDLER-BINDINGS* NIL)) (PROCLAIM (QUOTE (SPECIAL *PROCEED-CASES*))) (OR (BOUNDP (QUOTE *PROCEED-CASES*)) (SETQ *PROCEED-CASES* NIL)) 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-CASE0971 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 USE-VALUE 5 :NAME 2 :NORMAL) () CHECK-TYPE-FAILA0004 D1 (L (1 NEW 0 IGNORE)) ANIL NIL () CHECK-TYPE-FAIL D1 (P 0 PROCEED-CASE0971 I 4 MESSAGE I 3 DESIRED-TYPE I 2 VALUE I 1 PLACE I 0 PROCEEDABLE) GhhHg AIIJgK gjKdMk]no ML(76Q LISPERROR 40Q VALUES-LIST 14Q \CATCH-FUNCALL) (44Q CHECK-TYPE-FAILA0004 32Q :NORMAL 11Q CHECK-TYPE-FAILA0001) ( 73Q "TOO MANY ARGUMENTS") 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-CASE0975 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 USE-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-CASE0975 I 3 SELECTORS I 2 VALUE I 1 PLACE I 0 PROCEEDABLE) GhhHg AIIJgK gjKdMk]no ML(76Q LISPERROR 40Q VALUES-LIST 14Q \CATCH-FUNCALL) (44Q ECASE-FAILA0004 32Q :NORMAL 11Q ECASE-FAILA0001) ( 73Q "TOO MANY ARGUMENTS") ASSERT-FAILA0001A0002 D1 (L (1 STREAM 0 DATUM)) Ao (7 FORMAT) NIL ( 4 "Re-test assertion") ASSERT-FAILA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE0979 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-CASE0979 P 2 ARGS P 1 STRING) ekaaHl2 OdO(Ohh Og [KLg(M a_OOh__Ok_O&_gj_MdOk_no ON(176Q LISPERROR 73Q VALUES-LIST 51Q \CATCH-FUNCALL) (140Q ASSERT-FAILA0003 64Q :NORMAL 46Q ASSERT-FAILA0001) ( 173Q "TOO MANY ARGUMENTS") MAKE-INTO-CONDITION D1 (L (3 CALLER 2 ARGS 1 DESIRED-TYPE 0 DATUM)) _@dg @dl2@g Cgk@BdIkYno IH Ag@gB oC@ (134Q CL:ERROR 122Q MAKE-CONDITION 104Q CL:STRINGP 72Q LISPERROR 31Q FAKE-SUBTYPEP-FOR-CONDITIONS 7 FAKE-TYPEP-FOR-CONDITIONS) (115Q :FORMAT-ARGUMENTS 111Q :FORMAT-STRING 36Q MAKE-CONDITION 26Q CONDITION 4 CONDITION) ( 127Q "Bad argument to ~S: ~S." 67Q "TOO MANY ARGUMENTS") RAISE-SIGNAL D1 (L (0 C) P 3 *CONDITION-HANDLER-BINDINGS* F 4 *CONDITION-HANDLER-BINDINGS*) *T!HYI@J I@kJI@ @(46Q DEFAULT-HANDLE-CONDITION 21Q FAKE-TYPEP-FOR-CONDITIONS) NIL () DEFAULT-HANDLE-CONDITION D1 (L (0 CONDITION)) #@ Hdg Y@kIHg 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)) Y@g'qAdHH)A@Mg MgL @A_NgO g'H@K JgI (124Q PUTPROP 113Q DREMOVE 72Q PUTPROP 52Q PUTPROP 41Q ADJOIN 36Q GETPROP) (120Q %%CONDITION-CHILDREN 102Q %%CONDITION-CHILDREN 65Q %%CONDITION-PARENT 46Q %%CONDITION-CHILDREN 33Q %%CONDITION-CHILDREN 7 %%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)) Ao (7 FORMAT) NIL ( 4 "Assume proceed case is enabled") TEST-PROCEED-CASEA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE0995 F 2 *PROCEED-CASES* F 3 PC) 5ggggQgjgggg RoS (60Q \MVLIST 55Q CL:ERROR 40Q MAKE-PROCEED-CASE) (34Q TEST-PROCEED-CASEA0001A0002 31Q :REPORT 26Q TRUE 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q PROCEED 5 :NAME 2 :NORMAL) ( 51Q "Couldn't find test function for ~S.") TEST-PROCEED-CASEA0003 D1 NIL iNIL NIL () TEST-PROCEED-CASE D1 (L (1 CONDITION) P 6 PROCEED-CASE0995 I 0 PC) n`@ X@ @ g @ XAkHhNg YIJgK gjKdMk]no ML(145Q 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) ( 142Q "TOO MANY ARGUMENTS") (DEFPRINT (QUOTE CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-CONDITION D1 NIL ghNIL (2 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 NIL)) (PUTPROP (QUOTE CONDITION) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL)) (LET* ((A0694 (QUOTE CONDITION)) (A0693 (QUOTE %%CONDITION-HANDLER)) (A0692 (QUOTE NIL))) (PUTPROP A0694 A0693 A0692)) (LET* ((A0697 (QUOTE CONDITION)) (A0696 (QUOTE %%CONDITION-REPORTER)) (A0695 (QUOTE NIL))) (PUTPROP A0697 A0696 A0695)) 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-)) SeHkJdIh1HkKdJ"hgILhagJkaJlZagKkaKl[NIL (102Q :FORMAT-ARGUMENTS 57Q :FORMAT-STRING 44Q SIMPLE-CONDITION) () (LET* ((A0699 (QUOTE SIMPLE-CONDITION)) (A0700 (QUOTE (CONDITION)))) (PUT A0699 (QUOTE %%%%INCLUDED-STRUCTURE) A0700)) (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* ((A0703 (QUOTE SIMPLE-CONDITION)) (A0702 (QUOTE %%CONDITION-HANDLER)) (A0701 (QUOTE NIL))) ( PUTPROP A0703 A0702 A0701)) SIMPLE-CONDITION-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) /gli@ @ dIkYno IH(46Q LISPERROR 20Q SIMPLE-CONDITION-FORMAT-ARGUMENTS 14Q SIMPLE-CONDITION-FORMAT-STRING) (2 FORMAT) ( 43Q "TOO MANY ARGUMENTS") (LET* ((A0706 (QUOTE SIMPLE-CONDITION)) (A0705 (QUOTE %%CONDITION-REPORTER)) (A0704 (QUOTE SIMPLE-CONDITION-condition-reporter))) (PUTPROP A0706 A0705 A0704)) (DEFPRINT (QUOTE WARNING) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-WARNING D1 NIL ghNIL (2 WARNING) () (LET* ((A0707 (QUOTE WARNING)) (A0708 (QUOTE (CONDITION)))) (PUT A0707 (QUOTE %%%%INCLUDED-STRUCTURE) A0708)) (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* ((A0711 (QUOTE WARNING)) (A0710 (QUOTE %%CONDITION-HANDLER)) (A0709 (QUOTE NIL))) (PUTPROP A0711 A0710 A0709)) (LET* ((A0714 (QUOTE WARNING)) (A0713 (QUOTE %%CONDITION-REPORTER)) (A0712 (QUOTE NIL))) (PUTPROP A0714 A0713 A0712)) 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-)) SeHkJdIh1HkKdJ"hgILhagJkaJlZagKkaKl[NIL (102Q :FORMAT-ARGUMENTS 57Q :FORMAT-STRING 44Q SIMPLE-WARNING) () (LET* ((A0715 (QUOTE SIMPLE-WARNING)) (A0716 (QUOTE (WARNING)))) (PUT A0715 (QUOTE %%%%INCLUDED-STRUCTURE) A0716)) (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* ((A0719 (QUOTE SIMPLE-WARNING)) (A0718 (QUOTE %%CONDITION-HANDLER)) (A0717 (QUOTE NIL))) ( PUTPROP A0719 A0718 A0717)) SIMPLE-WARNING-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) /gli@ @ dIkYno IH(46Q LISPERROR 20Q SIMPLE-WARNING-FORMAT-ARGUMENTS 14Q SIMPLE-WARNING-FORMAT-STRING) (2 FORMAT) ( 43Q "TOO MANY ARGUMENTS") (LET* ((A0722 (QUOTE SIMPLE-WARNING)) (A0721 (QUOTE %%CONDITION-REPORTER)) (A0720 (QUOTE SIMPLE-WARNING-condition-reporter))) (PUTPROP A0722 A0721 A0720)) OLD-BREAK1-LIST D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE OLD-BREAK1) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-OLD-BREAK1 D1 (L (0 -args-)) 0eHkJdIhgIhagJkaJlZNIL (37Q :LIST 26Q OLD-BREAK1) () (LET* ((A0723 (QUOTE OLD-BREAK1)) (A0724 (QUOTE (CONDITION)))) (PUT A0723 (QUOTE %%%%INCLUDED-STRUCTURE) A0724)) (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* ((A0727 (QUOTE OLD-BREAK1)) (A0726 (QUOTE %%CONDITION-HANDLER)) (A0725 (QUOTE NIL))) (PUTPROP A0727 A0726 A0725)) OLD-BREAK1-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) @ AHHZJIKL (30Q ERRORMESS1 3 OLD-BREAK1-LIST) NIL () (LET* ((A0730 (QUOTE OLD-BREAK1)) (A0729 (QUOTE %%CONDITION-REPORTER)) (A0728 (QUOTE OLD-BREAK1-condition-reporter))) (PUTPROP A0730 A0729 A0728)) (DEFPRINT (QUOTE SERIOUS-CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-SERIOUS-CONDITION D1 NIL ghNIL (2 SERIOUS-CONDITION) () (LET* ((A0731 (QUOTE SERIOUS-CONDITION)) (A0732 (QUOTE (CONDITION)))) (PUT A0731 (QUOTE %%%%INCLUDED-STRUCTURE) A0732)) (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* ((A0735 (QUOTE SERIOUS-CONDITION)) (A0734 (QUOTE %%CONDITION-HANDLER)) (A0733 (QUOTE NIL))) ( PUTPROP A0735 A0734 A0733)) (LET* ((A0738 (QUOTE SERIOUS-CONDITION)) (A0737 (QUOTE %%CONDITION-REPORTER)) (A0736 (QUOTE NIL))) ( PUTPROP A0738 A0737 A0736)) (DEFPRINT (QUOTE CL:ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-CL:ERROR D1 NIL ghNIL (2 CL:ERROR) () (LET* ((A0739 (QUOTE CL:ERROR)) (A0740 (QUOTE (SERIOUS-CONDITION)))) (PUT A0739 (QUOTE %%%%INCLUDED-STRUCTURE) A0740)) (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* ((A0743 (QUOTE CL:ERROR)) (A0742 (QUOTE %%CONDITION-HANDLER)) (A0741 (QUOTE NIL))) (PUTPROP A0743 A0742 A0741)) (LET* ((A0746 (QUOTE CL:ERROR)) (A0745 (QUOTE %%CONDITION-REPORTER)) (A0744 (QUOTE NIL))) (PUTPROP A0746 A0745 A0744)) 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-)) SeHkJdIh1HkKdJ"hgILhagJkaJlZagKkaKl[NIL (102Q :MESSAGE 57Q :NUMBER 44Q OLD-INTERLISP-ERROR) () (LET* ((A0747 (QUOTE OLD-INTERLISP-ERROR)) (A0748 (QUOTE (CL:ERROR)))) (PUT A0747 (QUOTE %%%%INCLUDED-STRUCTURE) A0748)) (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* ((A0751 (QUOTE OLD-INTERLISP-ERROR)) (A0750 (QUOTE %%CONDITION-HANDLER)) (A0749 (QUOTE NIL))) ( PUTPROP A0751 A0750 A0749)) OLD-INTERLISP-ERROR-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) 0@d l@ !HHIJg  @ h (55Q ERRORM 47Q OLD-INTERLISP-ERROR-MESSAGE 43Q OLD-INTERLISP-ERROR-NUMBER 37Q ERRORMESS1 16Q OLD-INTERLISP-ERROR-MESSAGE 4 OLD-INTERLISP-ERROR-NUMBER) (34Q ERROR) () (LET* ((A0754 (QUOTE OLD-INTERLISP-ERROR)) (A0753 (QUOTE %%CONDITION-REPORTER)) (A0752 (QUOTE OLD-INTERLISP-ERROR-condition-reporter))) (PUTPROP A0754 A0753 A0752)) 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-)) SeHkJdIh1HkKdJ"hgILhagJkaJlZagKkaKl[NIL (102Q :FORMAT-ARGUMENTS 57Q :FORMAT-STRING 44Q SIMPLE-ERROR) () (LET* ((A0755 (QUOTE SIMPLE-ERROR)) (A0756 (QUOTE (CL:ERROR)))) (PUT A0755 (QUOTE %%%%INCLUDED-STRUCTURE) A0756)) (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* ((A0759 (QUOTE SIMPLE-ERROR)) (A0758 (QUOTE %%CONDITION-HANDLER)) (A0757 (QUOTE NIL))) (PUTPROP A0759 A0758 A0757)) SIMPLE-ERROR-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) /gli@ @ dIkYno IH(46Q LISPERROR 20Q SIMPLE-ERROR-FORMAT-ARGUMENTS 14Q SIMPLE-ERROR-FORMAT-STRING) (2 FORMAT) ( 43Q "TOO MANY ARGUMENTS") (LET* ((A0762 (QUOTE SIMPLE-ERROR)) (A0761 (QUOTE %%CONDITION-REPORTER)) (A0760 (QUOTE SIMPLE-ERROR-condition-reporter))) (PUTPROP A0762 A0761 A0760)) 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-)) SeHkJdIh1HkKdJ"hgILhagJkaJlZagKkaKl[NIL (102Q :FORMAT-ARGUMENTS 57Q :FORMAT-STRING 44Q ASSERTION-FAILED) () (LET* ((A0763 (QUOTE ASSERTION-FAILED)) (A0764 (QUOTE (SIMPLE-ERROR)))) (PUT A0763 (QUOTE %%%%INCLUDED-STRUCTURE) A0764)) (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* ((A0767 (QUOTE ASSERTION-FAILED)) (A0766 (QUOTE %%CONDITION-HANDLER)) (A0765 (QUOTE NIL))) ( PUTPROP A0767 A0766 A0765)) ASSERTION-FAILED-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) 5gli@ o@ dIkYno IH(54Q LISPERROR 26Q ASSERTION-FAILED-FORMAT-ARGUMENTS 14Q ASSERTION-FAILED-FORMAT-STRING) (2 FORMAT) ( 51Q "TOO MANY ARGUMENTS" 22Q "Assertion failed.") (LET* ((A0770 (QUOTE ASSERTION-FAILED)) (A0769 (QUOTE %%CONDITION-REPORTER)) (A0768 (QUOTE ASSERTION-FAILED-condition-reporter))) (PUTPROP A0770 A0769 A0768)) CELL-ERROR-NAME D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE CELL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-CELL-ERROR D1 (L (0 -args-)) 0eHkJdIhgIhagJkaJlZNIL (37Q :NAME 26Q CELL-ERROR) () (LET* ((A0771 (QUOTE CELL-ERROR)) (A0772 (QUOTE (CL:ERROR)))) (PUT A0771 (QUOTE %%%%INCLUDED-STRUCTURE ) A0772)) (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* ((A0775 (QUOTE CELL-ERROR)) (A0774 (QUOTE %%CONDITION-HANDLER)) (A0773 (QUOTE NIL))) (PUTPROP A0775 A0774 A0773)) (LET* ((A0778 (QUOTE CELL-ERROR)) (A0777 (QUOTE %%CONDITION-REPORTER)) (A0776 (QUOTE NIL))) (PUTPROP A0778 A0777 A0776)) UNBOUND-VARIABLE-NAME D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE UNBOUND-VARIABLE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-UNBOUND-VARIABLE D1 (L (0 -args-)) 0eHkJdIhgIhagJkaJlZNIL (37Q :NAME 26Q UNBOUND-VARIABLE) () (LET* ((A0779 (QUOTE UNBOUND-VARIABLE)) (A0780 (QUOTE (CELL-ERROR)))) (PUT A0779 (QUOTE %%%%INCLUDED-STRUCTURE) A0780)) (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* ((A0783 (QUOTE UNBOUND-VARIABLE)) (A0782 (QUOTE %%CONDITION-HANDLER)) (A0781 (QUOTE NIL))) ( PUTPROP A0783 A0782 A0781)) UNBOUND-VARIABLE-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ (13Q FORMAT 10Q UNBOUND-VARIABLE-NAME) NIL ( 4 "Unbound variable: ~S.") (LET* ((A0786 (QUOTE UNBOUND-VARIABLE)) (A0785 (QUOTE %%CONDITION-REPORTER)) (A0784 (QUOTE UNBOUND-VARIABLE-condition-reporter))) (PUTPROP A0786 A0785 A0784)) UNDEFINED-FUNCTION-NAME D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE UNDEFINED-FUNCTION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-UNDEFINED-FUNCTION D1 (L (0 -args-)) 0eHkJdIhgIhagJkaJlZNIL (37Q :NAME 26Q UNDEFINED-FUNCTION) () (LET* ((A0787 (QUOTE UNDEFINED-FUNCTION)) (A0788 (QUOTE (CELL-ERROR)))) (PUT A0787 (QUOTE %%%%INCLUDED-STRUCTURE) A0788)) (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* ((A0791 (QUOTE UNDEFINED-FUNCTION)) (A0790 (QUOTE %%CONDITION-HANDLER)) (A0789 (QUOTE NIL))) ( PUTPROP A0791 A0790 A0789)) UNDEFINED-FUNCTION-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ (13Q FORMAT 10Q UNDEFINED-FUNCTION-NAME) NIL ( 4 "Undefined function: ~S.") (LET* ((A0794 (QUOTE UNDEFINED-FUNCTION)) (A0793 (QUOTE %%CONDITION-REPORTER)) (A0792 (QUOTE UNDEFINED-FUNCTION-condition-reporter))) (PUTPROP A0794 A0793 A0792)) 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-)) 0eHkJdIhgIhagJkaJlZNIL (37Q :NAME 26Q NO-PROCEED-TEST) () (LET* ((A0795 (QUOTE NO-PROCEED-TEST)) (A0796 (QUOTE (UNDEFINED-FUNCTION)))) (PUT A0795 (QUOTE %%%%INCLUDED-STRUCTURE) A0796)) (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* ((A0799 (QUOTE NO-PROCEED-TEST)) (A0798 (QUOTE %%CONDITION-HANDLER)) (A0797 (QUOTE NIL))) ( PUTPROP A0799 A0798 A0797)) NO-PROCEED-TEST-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ (13Q FORMAT 10Q UNDEFINED-FUNCTION-NAME) NIL ( 4 "No test specified for proceed case: ~S.") (LET* ((A0802 (QUOTE NO-PROCEED-TEST)) (A0801 (QUOTE %%CONDITION-REPORTER)) (A0800 (QUOTE NO-PROCEED-TEST-condition-reporter))) (PUTPROP A0802 A0801 A0800)) 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-)) SeHkJdIh1HkKdJ"hgILhagJkaJlZagKkaKl[NIL (102Q :INDEX 57Q :NAME 44Q INDEX-BOUNDS-ERROR) () (LET* ((A0803 (QUOTE INDEX-BOUNDS-ERROR)) (A0804 (QUOTE (CELL-ERROR)))) (PUT A0803 (QUOTE %%%%INCLUDED-STRUCTURE) A0804)) (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* ((A0807 (QUOTE INDEX-BOUNDS-ERROR)) (A0806 (QUOTE %%CONDITION-HANDLER)) (A0805 (QUOTE NIL))) ( PUTPROP A0807 A0806 A0805)) INDEX-BOUNDS-ERROR-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ (13Q FORMAT 10Q INDEX-BOUNDS-ERROR-INDEX) NIL ( 4 "Index out of bounds: ~D.") (LET* ((A0810 (QUOTE INDEX-BOUNDS-ERROR)) (A0809 (QUOTE %%CONDITION-REPORTER)) (A0808 (QUOTE INDEX-BOUNDS-ERROR-condition-reporter))) (PUTPROP A0810 A0809 A0808)) PRETTY-TYPE-NAME D1 (L (0 TYPESPEC)) o@ (7 CONCAT) NIL ( 3 "a ") REPORT-TYPE-MISMATCH D1 (L (1 S 0 C)) %Ao@ @ @d @ (42Q FORMAT 36Q PRETTY-TYPE-NAME 33Q TYPE-MISMATCH-DESIRED-TYPE 27Q TYPE-MISMATCH-MESSAGE 21Q TYPE-MISMATCH-MESSAGE 14Q TYPE-MISMATCH-VALUE 10Q TYPE-MISMATCH-NAME) NIL ( 4 "The value of ~A, ~A, is not ~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-)) eHkJdIIh HkKdJLhHkNdMRh_Hk__OdOPh_gILOOhagJkaJlZagKkaKl[agNkaNl^agOkaOl_NIL (222Q :MESSAGE 177Q :DESIRED-TYPE 154Q :VALUE 131Q :NAME 110Q TYPE-MISMATCH) () (LET* ((A0811 (QUOTE TYPE-MISMATCH)) (A0812 (QUOTE (CELL-ERROR)))) (PUT A0811 (QUOTE %%%%INCLUDED-STRUCTURE) A0812)) (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* ((A0815 (QUOTE TYPE-MISMATCH)) (A0814 (QUOTE %%CONDITION-HANDLER)) (A0813 (QUOTE NIL))) (PUTPROP A0815 A0814 A0813)) (LET* ((A0818 (QUOTE TYPE-MISMATCH)) (A0817 (QUOTE %%CONDITION-REPORTER)) (A0816 (QUOTE REPORT-TYPE-MISMATCH))) (PUTPROP A0818 A0817 A0816)) (DEFPRINT (QUOTE CONTROL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-CONTROL-ERROR D1 NIL ghNIL (2 CONTROL-ERROR) () (LET* ((A0819 (QUOTE CONTROL-ERROR)) (A0820 (QUOTE (CL:ERROR)))) (PUT A0819 (QUOTE %%%%INCLUDED-STRUCTURE) A0820)) (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* ((A0823 (QUOTE CONTROL-ERROR)) (A0822 (QUOTE %%CONDITION-HANDLER)) (A0821 (QUOTE NIL))) (PUTPROP A0823 A0822 A0821)) (LET* ((A0826 (QUOTE CONTROL-ERROR)) (A0825 (QUOTE %%CONDITION-REPORTER)) (A0824 (QUOTE NIL))) ( PUTPROP A0826 A0825 A0824)) ILLEGAL-GO-TAG D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE ILLEGAL-GO) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-ILLEGAL-GO D1 (L (0 -args-)) 0eHkJdIhgIhagJkaJlZNIL (37Q :TAG 26Q ILLEGAL-GO) () (LET* ((A0827 (QUOTE ILLEGAL-GO)) (A0828 (QUOTE (CONTROL-ERROR)))) (PUT A0827 (QUOTE %%%%INCLUDED-STRUCTURE) A0828)) (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* ((A0831 (QUOTE ILLEGAL-GO)) (A0830 (QUOTE %%CONDITION-HANDLER)) (A0829 (QUOTE NIL))) (PUTPROP A0831 A0830 A0829)) ILLEGAL-GO-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ (13Q FORMAT 10Q ILLEGAL-GO-TAG) NIL ( 4 "GO to a non-existant tag: ~S.") (LET* ((A0834 (QUOTE ILLEGAL-GO)) (A0833 (QUOTE %%CONDITION-REPORTER)) (A0832 (QUOTE ILLEGAL-GO-condition-reporter))) (PUTPROP A0834 A0833 A0832)) ILLEGAL-RETURN-TAG D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE ILLEGAL-RETURN) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-ILLEGAL-RETURN D1 (L (0 -args-)) 0eHkJdIhgIhagJkaJlZNIL (37Q :TAG 26Q ILLEGAL-RETURN) () (LET* ((A0835 (QUOTE ILLEGAL-RETURN)) (A0836 (QUOTE (CONTROL-ERROR)))) (PUT A0835 (QUOTE %%%%INCLUDED-STRUCTURE) A0836)) (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* ((A0839 (QUOTE ILLEGAL-RETURN)) (A0838 (QUOTE %%CONDITION-HANDLER)) (A0837 (QUOTE NIL))) ( PUTPROP A0839 A0838 A0837)) ILLEGAL-RETURN-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ (13Q FORMAT 10Q ILLEGAL-RETURN-TAG) NIL ( 4 "RETURN to non-existant block: ~S.") (LET* ((A0842 (QUOTE ILLEGAL-RETURN)) (A0841 (QUOTE %%CONDITION-REPORTER)) (A0840 (QUOTE ILLEGAL-RETURN-condition-reporter))) (PUTPROP A0842 A0841 A0840)) ILLEGAL-THROW-TAG D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE ILLEGAL-THROW) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-ILLEGAL-THROW D1 (L (0 -args-)) 0eHkJdIhgIhagJkaJlZNIL (37Q :TAG 26Q ILLEGAL-THROW) () (LET* ((A0843 (QUOTE ILLEGAL-THROW)) (A0844 (QUOTE (CONTROL-ERROR)))) (PUT A0843 (QUOTE %%%%INCLUDED-STRUCTURE) A0844)) (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* ((A0847 (QUOTE ILLEGAL-THROW)) (A0846 (QUOTE %%CONDITION-HANDLER)) (A0845 (QUOTE NIL))) (PUTPROP A0847 A0846 A0845)) ILLEGAL-THROW-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ (13Q FORMAT 10Q ILLEGAL-THROW-TAG) NIL ( 4 "Tag for THROW not found: ~S.") (LET* ((A0850 (QUOTE ILLEGAL-THROW)) (A0849 (QUOTE %%CONDITION-REPORTER)) (A0848 (QUOTE ILLEGAL-THROW-condition-reporter))) (PUTPROP A0850 A0849 A0848)) (DEFPRINT (QUOTE BAD-PROCEED-CASE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-BAD-PROCEED-CASE D1 NIL ghNIL (2 BAD-PROCEED-CASE) () (LET* ((A0851 (QUOTE BAD-PROCEED-CASE)) (A0852 (QUOTE (CONTROL-ERROR)))) (PUT A0851 (QUOTE %%%%INCLUDED-STRUCTURE) A0852)) (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 NIL)) (PUTPROP (QUOTE BAD-PROCEED-CASE) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL)) (FIX-INHERITANCE-LINKS (QUOTE BAD-PROCEED-CASE) (QUOTE CONTROL-ERROR)) (LET* ((A0855 (QUOTE BAD-PROCEED-CASE)) (A0854 (QUOTE %%CONDITION-HANDLER)) (A0853 (QUOTE NIL))) ( PUTPROP A0855 A0854 A0853)) (LET* ((A0858 (QUOTE BAD-PROCEED-CASE)) (A0857 (QUOTE %%CONDITION-REPORTER)) (A0856 (QUOTE NIL))) ( PUTPROP A0858 A0857 A0856)) CALL-ERROR-CALLEE D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE CALL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-CALL-ERROR D1 (L (0 -args-)) 0eHkJdIhgIhagJkaJlZNIL (37Q :CALLEE 26Q CALL-ERROR) () (LET* ((A0859 (QUOTE CALL-ERROR)) (A0860 (QUOTE (CONTROL-ERROR)))) (PUT A0859 (QUOTE %%%%INCLUDED-STRUCTURE) A0860)) (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* ((A0863 (QUOTE CALL-ERROR)) (A0862 (QUOTE %%CONDITION-HANDLER)) (A0861 (QUOTE NIL))) (PUTPROP A0863 A0862 A0861)) (LET* ((A0866 (QUOTE CALL-ERROR)) (A0865 (QUOTE %%CONDITION-REPORTER)) (A0864 (QUOTE NIL))) (PUTPROP A0866 A0865 A0864)) 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-)) xeHkJdI1haHkKdJ4hHkNdM:h_gILOhagJkaJlZagKkaKl[agNkaNl^NIL (147Q :ACTUAL 124Q :MAXIMUM 101Q :CALLEE 63Q TOO-MANY-ARGUMENTS) () (LET* ((A0867 (QUOTE TOO-MANY-ARGUMENTS)) (A0868 (QUOTE (CALL-ERROR)))) (PUT A0867 (QUOTE %%%%INCLUDED-STRUCTURE) A0868)) (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* ((A0871 (QUOTE TOO-MANY-ARGUMENTS)) (A0870 (QUOTE %%CONDITION-HANDLER)) (A0869 (QUOTE NIL))) ( PUTPROP A0871 A0870 A0869)) TOO-MANY-ARGUMENTS-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) 0@ @ io@ @ @ io@ (55Q FORMAT 52Q TOO-MANY-ARGUMENTS-CALLEE 40Q FORMAT 34Q TOO-MANY-ARGUMENTS-MAXIMUM 30Q TOO-MANY-ARGUMENTS-ACTUAL 24Q TOO-MANY-ARGUMENTS-CALLEE 11Q TOO-MANY-ARGUMENTS-ACTUAL 3 TOO-MANY-ARGUMENTS-MAXIMUM) NIL ( 46Q "Too many arguments to ~A" 20Q "Too many arguments to ~A:~%% ~D were given but at most ~D are accepted") (LET* ((A0874 (QUOTE TOO-MANY-ARGUMENTS)) (A0873 (QUOTE %%CONDITION-REPORTER)) (A0872 (QUOTE TOO-MANY-ARGUMENTS-condition-reporter))) (PUTPROP A0874 A0873 A0872)) 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-)) xeHkJdI1haHkKdJ4hHkNdM:h_gILOhagJkaJlZagKkaKl[agNkaNl^NIL (147Q :ACTUAL 124Q :MINIMUM 101Q :CALLEE 63Q TOO-FEW-ARGUMENTS) () (LET* ((A0875 (QUOTE TOO-FEW-ARGUMENTS)) (A0876 (QUOTE (CALL-ERROR)))) (PUT A0875 (QUOTE %%%%INCLUDED-STRUCTURE) A0876)) (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* ((A0879 (QUOTE TOO-FEW-ARGUMENTS)) (A0878 (QUOTE %%CONDITION-HANDLER)) (A0877 (QUOTE NIL))) ( PUTPROP A0879 A0878 A0877)) TOO-FEW-ARGUMENTS-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) 0@ @ io@ @ @ io@ (55Q FORMAT 52Q TOO-FEW-ARGUMENTS-CALLEE 40Q FORMAT 34Q TOO-FEW-ARGUMENTS-MINIMUM 30Q TOO-FEW-ARGUMENTS-ACTUAL 24Q TOO-FEW-ARGUMENTS-CALLEE 11Q TOO-FEW-ARGUMENTS-ACTUAL 3 TOO-FEW-ARGUMENTS-MINIMUM) NIL ( 46Q "Too few arguments to ~A" 20Q "Too few arguments to ~A:~%% ~D were given but at least ~D are necessary") (LET* ((A0882 (QUOTE TOO-FEW-ARGUMENTS)) (A0881 (QUOTE %%CONDITION-REPORTER)) (A0880 (QUOTE TOO-FEW-ARGUMENTS-condition-reporter))) (PUTPROP A0882 A0881 A0880)) STREAM-ERROR-STREAM D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE STREAM-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-STREAM-ERROR D1 (L (0 -args-)) 0eHkJdIhgIhagJkaJlZNIL (37Q :STREAM 26Q STREAM-ERROR) () (LET* ((A0883 (QUOTE STREAM-ERROR)) (A0884 (QUOTE (CL:ERROR)))) (PUT A0883 (QUOTE %%%%INCLUDED-STRUCTURE) A0884)) (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* ((A0887 (QUOTE STREAM-ERROR)) (A0886 (QUOTE %%CONDITION-HANDLER)) (A0885 (QUOTE NIL))) (PUTPROP A0887 A0886 A0885)) (LET* ((A0890 (QUOTE STREAM-ERROR)) (A0889 (QUOTE %%CONDITION-REPORTER)) (A0888 (QUOTE NIL))) (PUTPROP A0890 A0889 A0888)) READ-ERROR-STREAM D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE READ-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-READ-ERROR D1 (L (0 -args-)) 0eHkJdIhgIhagJkaJlZNIL (37Q :STREAM 26Q READ-ERROR) () (LET* ((A0891 (QUOTE READ-ERROR)) (A0892 (QUOTE (STREAM-ERROR)))) (PUT A0891 (QUOTE %%%%INCLUDED-STRUCTURE) A0892)) (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* ((A0895 (QUOTE READ-ERROR)) (A0894 (QUOTE %%CONDITION-HANDLER)) (A0893 (QUOTE NIL))) (PUTPROP A0895 A0894 A0893)) (LET* ((A0898 (QUOTE READ-ERROR)) (A0897 (QUOTE %%CONDITION-REPORTER)) (A0896 (QUOTE NIL))) (PUTPROP A0898 A0897 A0896)) 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-)) 0eHkJdIhgIhagJkaJlZNIL (37Q :STREAM 26Q END-OF-FILE) () (LET* ((A0899 (QUOTE END-OF-FILE)) (A0900 (QUOTE (READ-ERROR)))) (PUT A0899 (QUOTE %%%%INCLUDED-STRUCTURE) A0900)) (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* ((A0903 (QUOTE END-OF-FILE)) (A0902 (QUOTE %%CONDITION-HANDLER)) (A0901 (QUOTE NIL))) (PUTPROP A0903 A0902 A0901)) (LET* ((A0906 (QUOTE END-OF-FILE)) (A0905 (QUOTE %%CONDITION-REPORTER)) (A0904 (QUOTE NIL))) (PUTPROP A0906 A0905 A0904)) (DEFPRINT (QUOTE STORAGE-CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-STORAGE-CONDITION D1 NIL ghNIL (2 STORAGE-CONDITION) () (LET* ((A0907 (QUOTE STORAGE-CONDITION)) (A0908 (QUOTE (SERIOUS-CONDITION)))) (PUT A0907 (QUOTE %%%%INCLUDED-STRUCTURE) A0908)) (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* ((A0911 (QUOTE STORAGE-CONDITION)) (A0910 (QUOTE %%CONDITION-HANDLER)) (A0909 (QUOTE NIL))) ( PUTPROP A0911 A0910 A0909)) (LET* ((A0914 (QUOTE STORAGE-CONDITION)) (A0913 (QUOTE %%CONDITION-REPORTER)) (A0912 (QUOTE NIL))) ( PUTPROP A0914 A0913 A0912)) (DEFPRINT (QUOTE STACK-OVERFLOW) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-STACK-OVERFLOW D1 NIL ghNIL (2 STACK-OVERFLOW) () (LET* ((A0915 (QUOTE STACK-OVERFLOW)) (A0916 (QUOTE (STORAGE-CONDITION)))) (PUT A0915 (QUOTE %%%%INCLUDED-STRUCTURE) A0916)) (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* ((A0919 (QUOTE STACK-OVERFLOW)) (A0918 (QUOTE %%CONDITION-HANDLER)) (A0917 (QUOTE NIL))) ( PUTPROP A0919 A0918 A0917)) (LET* ((A0922 (QUOTE STACK-OVERFLOW)) (A0921 (QUOTE %%CONDITION-REPORTER)) (A0920 (QUOTE NIL))) ( PUTPROP A0922 A0921 A0920)) (DEFPRINT (QUOTE STORAGE-EXHAUSTED) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-STORAGE-EXHAUSTED D1 NIL ghNIL (2 STORAGE-EXHAUSTED) () (LET* ((A0923 (QUOTE STORAGE-EXHAUSTED)) (A0924 (QUOTE (STORAGE-CONDITION)))) (PUT A0923 (QUOTE %%%%INCLUDED-STRUCTURE) A0924)) (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* ((A0927 (QUOTE STORAGE-EXHAUSTED)) (A0926 (QUOTE %%CONDITION-HANDLER)) (A0925 (QUOTE NIL))) ( PUTPROP A0927 A0926 A0925)) (LET* ((A0930 (QUOTE STORAGE-EXHAUSTED)) (A0929 (QUOTE %%CONDITION-REPORTER)) (A0928 (QUOTE NIL))) ( PUTPROP A0930 A0929 A0928)) (PROCLAIM (QUOTE (SPECIAL *BREAK-ON-WARNINGS*))) (OR (BOUNDP (QUOTE *BREAK-ON-WARNINGS*)) (SETQ *BREAK-ON-WARNINGS* NIL)) MAKE-CONDITION D1 (L (0 -args-)) b eka1Hl2 NdMOIg jJ6a_OOh__Nk^O&_dLk\no LK(131Q LISPERROR 40Q GETPROP) (35Q STRUCTURE-CONSTRUCTOR) ( 126Q "TOO MANY ARGUMENTS") SIGNAL D1 (L (0 -args-)) U eka!Hl2MdL$NIgJg [ Kdg K a_OOh_Mk]O&_(65Q DEBUG 57Q FAKE-TYPEP-FOR-CONDITIONS 47Q RAISE-SIGNAL 43Q MAKE-INTO-CONDITION) (54Q SERIOUS-CONDITION 40Q SIGNAL 34Q SIMPLE-CONDITION) () CL:ERROR D1 (L (0 -args-)) EekaHl2LdKMIgJg a_NOh^Lk\O&(51Q DEBUG 46Q RAISE-SIGNAL 43Q MAKE-INTO-CONDITION) (40Q CL:ERROR 34Q SIMPLE-ERROR) () CERRORA0001A0002 D1 (L (0 PROCEED-CASE) I 1 *STANDARD-OUTPUT* F 2 PROCEED-FORMAT-STRING F 3 ARGUMENTS) )gliRSdIkYno IH(40Q LISPERROR) (2 FORMAT) ( 35Q "TOO MANY ARGUMENTS") CERRORA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE1004 F 2 *PROCEED-CASES* F 3 DATUM F 4 ARGUMENTS) ;ggggQgjghgg RSgTg kg (66Q \MVLIST 56Q MAKE-INTO-CONDITION 36Q MAKE-PROCEED-CASE) (62Q CL:ERROR 53Q CERROR 47Q SIMPLE-ERROR 32Q CERRORA0001A0002 27Q :REPORT 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q PROCEED 5 :NAME 2 :NORMAL) () CERRORA0003 D1 NIL hNIL NIL () CERROR D1 (L (0 -args-) P 16Q PROCEED-CASE1004 P 3 ARGUMENTS P 2 DATUM P 1 PROCEED-FORMAT-STRING) ekaqlaHl2 OdO(OhhOg \LMg(N a_OOh__Ok_O&_gj__NdOk_no OO(204Q LISPERROR 77Q VALUES-LIST 55Q \CATCH-FUNCALL) (144Q CERRORA0003 70Q :NORMAL 52Q CERRORA0001) ( 201Q "TOO MANY ARGUMENTS") WARNA0001A0002 D1 (F 0 S) P (3 CLOSE) NIL () WARNA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 S F 2 CONDITION F 3 RESETY) ghhhPcRQ Q ci(27Q GET-OUTPUT-STREAM-STRING 22Q REPORT-CONDITION) (2 WARNA0001A0002) () WARN D1 (L (0 -args-) P 13Q RESETY P 12Q LISPXHIST P 11Q S P 10Q CONDITION F 15Q *BREAK-ON-WARNINGS* F 16Q *ERROR-OUTPUT* F 17Q LISPXHIST F 20Q RESETVARSLST) ekaHl2LdK$MIgJg O W"O Ra_NOh^Lk\O&Wo W! W og hg_ OO O(206Q FORMAT 176Q ERROR! 167Q RESETRESTORE 154Q WARNA0001 130Q MAKE-STRING-OUTPUT-STREAM 64Q CL:BREAK 53Q RAISE-SIGNAL 43Q MAKE-INTO-CONDITION) (162Q ERROR 151Q INTERNAL 40Q WARN 34Q SIMPLE-WARNING) ( 146Q (WARNA0001) 125Q "~&Warning: ~A~%%") CL:BREAK D1 (L (0 -args-) F 12Q NBREAKS) ekHoka1Hl2 NdMxOIgJg goggoWkhhgggKhhgoggoggLhohoh Ka_OOh__Nk^pO&_(221Q CL:EVAL 55Q MAKE-INTO-CONDITION) (164Q QUOTE 161Q FUNCALL 152Q CL:LAMBDA 147Q :REPORT-FUNCTION 140Q PROCEED 126Q QUOTE 123Q DEBUG 120Q PROCEED-CASE 72Q S 67Q FORMAT 60Q CL:LAMBDA 52Q CL:BREAK 46Q SIMPLE-BREAK) ( 206Q (C) 174Q (P S) 156Q (P S) 144Q (C) 76Q "Return from break: ~D" 64Q (P S) 13Q "Break.") DEBUG D1 (L (0 -args-)) MekHokaHl2LdKMZIgJg a_NOh^Lk\O&(60Q ERRORX 55Q MAKE-INTO-CONDITION) (52Q DEBUG 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-CASE D1 (L (0 -args-)) eHkJdIoh HkKdJshHkNdMzh_Hk__OdOzh_Hk__OdO}h_`dIdLdOdOdOagJkaJlZ}agKkaKl[yagNkaNl^qagOkaOl_magOka|Ol_jNIL (324Q :REPORT 274Q :TEST 247Q :SELECTOR 223Q :TAG 177Q :NAME 135Q PROCEED-CASETYPE#) () (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))) (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 2 *PROCEED-CASES*) <@d`R @A @lRHhY @IA IHX(61Q TEST-PROCEED-CASE 51Q PROCEED-CASE-NAME 20Q TEST-PROCEED-CASE) (5 PROCEED-CASETYPE#) () 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*) +UAHIgg LJ KhZHXK&(24Q \CATCH-FUNCALL) (21Q COMPUTE-PROCEED-CASESA0001 16Q SKIP-PROCEED-CASE) () INVOKE-PROCEED-CASE D1 (L (0 -args-)) y eka1laHl2 NdM7OIJ \Ig g g L L JK a_OOh__Nk^O&_ggI (166Q CL:ERROR 114Q \DO-THROW 111Q \MVLIST 102Q PROCEED-CASE-SELECTOR 76Q PROCEED-CASE-TAG 71Q BREAKRESETFN 62Q BOUNDP 53Q BOUNDP 42Q FIND-PROCEED-CASE) (162Q :NAME 157Q BAD-PROCEED-CASE 66Q LEAVING 57Q \BREAKRESETEXPR 50Q BREAKRESETVALS) () (LET* ((A0938 (QUOTE ABORT)) (A0937 (QUOTE %%DEFAULT-PROCEED-TEST)) (A0936 (QUOTE TRUE))) (PUTPROP A0938 A0937 A0936)) ABORT-proceed-reporter D1 (L (1 STREAM 0 DATUM)) Ao (7 FORMAT) NIL ( 4 "Abort") (LET* ((A0939 (QUOTE ABORT)) (A0940 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A0941 (CL:FUNCTION DEFAULT-PROCEED-REPORTER)) (A0942 (QUOTE ABORT-proceed-reporter))) (PUTPROP A0939 A0940 A0942)) ABORTA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE1007) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE1009) () 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-CASE1007 I 0 CONDITION)  gg HhI (24Q VALUES-LIST 13Q \CATCH-FUNCALL) (10Q ABORTA0001 5 CONDITION-CASE1009) () (LET* ((A0949 (QUOTE PROCEED)) (A0948 (QUOTE %%DEFAULT-PROCEED-TEST)) (A0947 (QUOTE TRUE))) (PUTPROP A0949 A0948 A0947)) (LET* ((A0950 (QUOTE PROCEED)) (A0951 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A0952 (CL:FUNCTION DEFAULT-PROCEED-REPORTER)) (A0953 (QUOTE DEFAULT-PROCEED-REPORTER))) (PUTPROP A0950 A0951 A0953)) PROCEEDA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE1011) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE1013) () 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-CASE1011 I 0 CONDITION)  gg HhI (24Q VALUES-LIST 13Q \CATCH-FUNCALL) (10Q PROCEEDA0001 5 CONDITION-CASE1013) () (LET* ((A0960 (QUOTE USE-VALUE)) (A0959 (QUOTE %%DEFAULT-PROCEED-TEST)) (A0958 (QUOTE TRUE))) (PUTPROP A0960 A0959 A0958)) USE-VALUE-proceed-reporter D1 (L (1 STREAM 0 DATUM)) Ao (7 FORMAT) NIL ( 4 "Use a different value") (LET* ((A0961 (QUOTE USE-VALUE)) (A0962 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A0963 (CL:FUNCTION DEFAULT-PROCEED-REPORTER)) (A0964 (QUOTE USE-VALUE-proceed-reporter))) (PUTPROP A0961 A0962 A0964)) USE-VALUEA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE1015) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE1017) () 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-CASE1015 P 3 VALUE P 1 CONDITION) >ekHhkalHio  lagg LhJ (73Q VALUES-LIST 62Q \CATCH-FUNCALL 42Q EVAL 37Q READ 33Q FORMAT) (57Q USE-VALUEA0001 54Q CONDITION-CASE1017) ( 30Q "Enter a new value: ") SIMPLE-FORMAT D1 (L (0 -args-) F 11Q *STANDARD-OUTPUT*) N eka!Hl2MdLNIiWJ[d a_OOh_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