(FILECREATED "15-Jul-86 16:05:03" ("compiled on " {ERIS}LIBRARY>CL-ERROR.;40) "10-Jul-86 12:19:06" "COMPILE-FILEd" in "Xerox Lisp 10-Jul-86 ..." dated "10-Jul-86 12:31:23") (FILECREATED "15-Jul-86 16:02:24" {ERIS}LIBRARY>CL-ERROR.;40 60392 changes to: (FUNCTIONS DEFINE-CONDITION CCASE CONDITION-CASE PROCEED-CASE DEFINE-PROCEED-FUNCTION FIND-PROCEED-CASE DEFAULT-HANDLE-CONDITION ERR::WITH-LOOP-VARS CHECK-TYPE ETYPECASE CTYPECASE ECASE CL:ASSERT) (VARS CL-ERRORCOMS) previous date: " 4-Jul-86 01:34:27" {ERIS}LIBRARY>CL-ERROR.;35) (RPAQQ CL-ERRORCOMS ((COMS (* * "Temporary bootstrapping stuff. Anything in here gets changed once CL starts working.") (FUNCTIONS CONDITION-TYPEP CONDITION-TYPE-OF CONDITION-SUBTYPEP CONDITION-TYPECASE CONDITION-BLOCK CONDITION-RETURN) (FUNCTIONS FAKE-TYPEP-FOR-CONDITIONS FAKE-TYPE-OF-FOR-CONDITIONS FAKE-SUBTYPEP-FOR-CONDITIONS)) (COMS (* * "Internal stuff.") (VARIABLES %%CONDITION-TYPES-REAL) ( VARIABLES *CONDITION-HANDLER-BINDINGS* *PROCEED-CASES* *DEBUGGED-CONDITION*) (VARIABLES *DEBUG-IO* *ERROR-OUTPUT*) (FUNCTIONS CONDITION-REPORTER CONDITION-HANDLER DEFAULT-PROCEED-REPORT DEFAULT-PROCEED-TEST) (FUNCTIONS CHECK-TYPE-FAIL ECASE-FAIL ASSERT-FAIL STRIP-KEYWORDS MAKE-REPORT-FUNCTION NORMALIZE-SLOT-DESCRIPTIONS EXTRACT-CONDITION-BINDINGS NORMALIZE-CONDITION-CLAUSES MASSAGE-CATCH-CONDITION-CLAUSES SPLIT-PROCEED-CLAUSES PROCESS-PROCEED-KEYWORDS DEFAULT-PROCEED-REPORTER CHECK-*CASE-SELECTOR COLLECT-CASE-SELECTORS FIX-INHERITANCE-LINKS MAKE-INTO-CONDITION RAISE-SIGNAL NO-PROCEED-TEST TEST-PROCEED-CASE DEFAULT-HANDLE-CONDITION ERR::WITH-LOOP-VARS)) (COMS (* * "User-visible forms.") (VARIABLES *BREAK-ON-WARNINGS*) (FUNCTIONS DEFINE-CONDITION CHECK-TYPE ETYPECASE CTYPECASE ECASE CCASE CL:ASSERT CONDITION-BIND CONDITION-CASE IGNORE-ERRORS PROCEED-CASE DEFINE-PROCEED-FUNCTION CATCH-ABORT SIGNAL CERROR DEBUG CL:BREAK COMPUTE-PROCEED-CASES FIND-PROCEED-CASE INVOKE-PROCEED-CASE REPORT-CONDITION) ( PROP PROPTYPE %%CONDITION-HANDLER %%CONDITION-REPORTER) (FUNCTIONS ABORT PROCEED)) (COMS (FNS MAKE-CONDITION) (STRUCTURES CONDITION SIMPLE-CONDITION WARNING SIMPLE-WARNING SERIOUS-CONDITION SIMPLE-BREAK CL:ERROR SIMPLE-ERROR ASSERTION-FAILED CELL-ERROR UNBOUND-VARIABLE UNDEFINED-FUNCTION NO-PROCEED-TEST INDEX-BOUNDS-ERROR) (STRUCTURES CALL-ERROR PROCEED-CASE TOO-MANY-ARGUMENTS) (COMS ( FUNCTIONS PRETTY-TYPE-NAME REPORT-TYPE-MISMATCH) (STRUCTURES TYPE-MISMATCH)) (STRUCTURES CONTROL-ERROR BAD-PROCEED-CASE ILLEGAL-GO ILLEGAL-RETURN ILLEGAL-THROW) (STRUCTURES STREAM-ERROR READ-ERROR END-OF-FILE) (STRUCTURES STORAGE-CONDITION STACK-OVERFLOW STORAGE-EXHAUSTED) (FUNCTIONS USE-VALUE)) ( COMS (* * "Environment stuff.") (FUNCTIONS PROCEED-FROM-BREAK PROCEED-WITH-DEFAULTS CREATE-PROCEED-KEYLIST PROCEED-USING-MENU CREATE-PROCEED-MENU) (ADDVARS (BREAKMACROS (PR ( PROCEED-FROM-BREAK))))) (FUNCTIONS WARN CL:ERROR) (PROP FILETYPE CL-ERROR) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA MAKE-CONDITION))))) 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-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)) 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-TYPECASEA0001 D1 (L (0 CLAUSE) F 3 VAL) #@!H¹HºIið‘@gSgIhhJNIL (26Q QUOTE 22Q CONDITION-TYPEP) () expand-CONDITION-TYPECASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM) P 3 VAL) ,@!H¹HºgKIhhggJ h(44Q CL:MAPCAR 15Q GENTEMP) (40Q expand-CONDITION-TYPECASEA0001 35Q COND 23Q LET) () (SETF-MACRO-FUNCTION (QUOTE CONDITION-TYPECASE) (QUOTE expand-CONDITION-TYPECASE)) expand-CONDITION-BLOCK D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!H¹HºggIhJNIL (20Q QUOTE 15Q CATCH) () (SETF-MACRO-FUNCTION (QUOTE CONDITION-BLOCK) (QUOTE expand-CONDITION-BLOCK)) expand-CONDITION-RETURN D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!H¹HdºggIhJhNIL (23Q QUOTE 20Q THROW) () (SETF-MACRO-FUNCTION (QUOTE CONDITION-RETURN) (QUOTE expand-CONDITION-RETURN)) FAKE-TYPEP-FOR-CONDITIONS D1 (L (1 TYPE 0 DATUM)) @´@A (11Q FAKE-SUBTYPEP-FOR-CONDITIONS) NIL () FAKE-TYPE-OF-FOR-CONDITIONS D1 (L (0 DATUM)) @NIL NIL () FAKE-SUBTYPEP-FOR-CONDITIONS D1 (L (1 T2 0 T1)) "@d§´ii Að•@³öi°ñ@ÁÉg'b°â(11Q VALUES) (33Q %%CONDITION-PARENT) () (SETQ %%CONDITION-TYPES-REAL NIL) (PUT (QUOTE %%CONDITION-TYPES-REAL) (QUOTE GLOBALVAR) T) (OR (BOUNDP (QUOTE *CONDITION-HANDLER-BINDINGS*)) (SETQ *CONDITION-HANDLER-BINDINGS* NIL)) (PROCLAIM (QUOTE (SPECIAL *CONDITION-HANDLER-BINDINGS*))) (OR (BOUNDP (QUOTE *PROCEED-CASES*)) (SETQ *PROCEED-CASES* NIL)) (PROCLAIM (QUOTE (SPECIAL *PROCEED-CASES*))) (OR (BOUNDP (QUOTE *DEBUGGED-CONDITION*)) (SETQ *DEBUGGED-CONDITION* NIL)) (PROCLAIM (QUOTE (SPECIAL *DEBUGGED-CONDITION*))) (OR (BOUNDP (QUOTE *DEBUG-IO*)) (SETQ *DEBUG-IO* T)) (PROCLAIM (QUOTE (SPECIAL *DEBUG-IO*))) (OR (BOUNDP (QUOTE *ERROR-OUTPUT*)) (SETQ *ERROR-OUTPUT* T)) (PROCLAIM (QUOTE (SPECIAL *ERROR-OUTPUT*))) expand-CONDITION-REPORTER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (10Q GET) ( 15Q ((QUOTE %%CONDITION-REPORTER))) (SETF-MACRO-FUNCTION (QUOTE CONDITION-REPORTER) (QUOTE expand-CONDITION-REPORTER)) expand-CONDITION-HANDLER D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (10Q GET) ( 15Q ((QUOTE %%CONDITION-HANDLER))) (SETF-MACRO-FUNCTION (QUOTE CONDITION-HANDLER) (QUOTE expand-CONDITION-HANDLER)) expand-DEFAULT-PROCEED-REPORT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (10Q GET) ( 15Q ((QUOTE %%DEFAULT-PROCEED-REPORT) (CL:FUNCTION DEFAULT-PROCEED-REPORTER))) (SETF-MACRO-FUNCTION (QUOTE DEFAULT-PROCEED-REPORT) (QUOTE expand-DEFAULT-PROCEED-REPORT)) expand-DEFAULT-PROCEED-TEST D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (10Q GET) ( 15Q ((QUOTE %%DEFAULT-PROCEED-TEST))) (SETF-MACRO-FUNCTION (QUOTE DEFAULT-PROCEED-TEST) (QUOTE expand-DEFAULT-PROCEED-TEST)) 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-CASE2577 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-CASE2577 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) PNIL NIL () 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-CASE2583 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-CASE2583 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)) Ao (7 FORMAT) NIL ( 4 "Re-test assertion") ASSERT-FAILA0001 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE2589 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-CASE2589 P 2 ARGS P 1 STRING) ‡ekaaHl2OdOó²(¿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) () STRIP-KEYWORDS D1 (L (0 ARGS)) #@d ¦¿H@ @hH¸@b°ä(17Q VALUES 10Q KEYWORDP) NIL () MAKE-REPORT-FUNCTION D1 (L (1 BOUND-VAR 0 DATUM)) 1@²googg@hhgAo@hNIL (43Q CL:LAMBDA 25Q STREAM 22Q FORMAT 7 CL:LAMBDA) ( 50Q (*STANDARD-OUTPUT*) 17Q (DECLARE (IGNORE DATUM)) 13Q (DATUM STREAM)) NORMALIZE-SLOT-DESCRIPTIONSA0001 D1 (L (0 SLOT)) -@d²#d kô™¿@o @gi@o(24Q \APPEND2 10Q LENGTH) (34Q :READ-ONLY) ( 51Q (NIL :READ-ONLY T) 21Q (NIL :READONLY T)) NORMALIZE-SLOT-DESCRIPTIONS D1 (L (0 SLOTS)) g@ (6 CL:MAPCAR) (2 NORMALIZE-SLOT-DESCRIPTIONSA0001) () EXTRACT-CONDITION-BINDINGSA0001 D1 (L (0 CLAUSE)) gg@h@hNIL (5 QUOTE 2 CONS) () EXTRACT-CONDITION-BINDINGS D1 (L (0 CLAUSES)) g@ (6 CL:MAPCAR) (2 EXTRACT-CONDITION-BINDINGSA0001) () NORMALIZE-CONDITION-CLAUSESA0001A0002 D1 (L (0 C) F 0 CLAUSE F 1 CONDITIONS) @lð”@PoQ (22Q CL:ERROR) NIL ( 16Q "Bad condition spec ~s. Should be list of unquoted symbols.") NORMALIZE-CONDITION-CLAUSESA0001 D1 (P 0 CONDITIONS I 0 CLAUSE) >@Hdlð§do²gð˜oH gH lð“@hoH (73Q CL:ERROR 51Q CL:MAPCAR 41Q CL:ERROR) (45Q NORMALIZE-CONDITION-CLAUSESA0001A0002 27Q QUOTE) ( 67Q "Bad condition spec ~s. Should be symbol or list of symbols." 35Q "Bad condition spec ~s. Should be unquoted." 20Q (NIL)) NORMALIZE-CONDITION-CLAUSES D1 (L (0 CLAUSES)) g@ (6 MAPCAN) (2 NORMALIZE-CONDITION-CLAUSESA0001) () MASSAGE-CATCH-CONDITION-CLAUSESA0001 D1 (L (0 CLAUSE) F 3 INIT-VALUE) )@@l@ I£HJHgIShIJh(12Q NTHCDR) (27Q LET) () MASSAGE-CATCH-CONDITION-CLAUSES D1 (L (0 CLAUSES) I 1 INIT-VALUE) g@ (6 CL:MAPCAR) (2 MASSAGE-CATCH-CONDITION-CLAUSESA0001) () SPLIT-PROCEED-CLAUSES D1 (L (1 TAG 0 CLAUSES)) â @jOµH I ___¿O_¿OO ^½N\»LºO³M£g½K³4oO °(K³&gogggOhhoh[¿gggOhgAgOggMhggKhhH¸OggOJhhI¹O_¿OkÔ_¿±ÿ*(127Q CL:ERROR 65Q \MVLIST 62Q PROCESS-PROCEED-KEYWORDS 30Q VALUES 25Q REVERSE 21Q REVERSE) (302Q CL:LAMBDA 277Q FUNCTION 247Q FUNCTION 244Q :REPORT 235Q FUNCTION 232Q :TEST 225Q :SELECTOR 221Q :TAG 211Q QUOTE 206Q :NAME 203Q MAKE-PROCEED-CASE 154Q QUOTE 151Q DEFAULT-PROCEED-REPORT 146Q FUNCALL 137Q CL:LAMBDA 112Q TRUE) ( 170Q (PC STREAM) 143Q (PC STREAM) 122Q "Unnamed proceed cases must have a report method: ~S") PROCESS-PROCEED-KEYWORDS D1 (L (1 ARG 0 NAME)) » A Z»J¼K±šd__¿O¾O]dgðŸ¿H˜o@ ¿NX°qgð²,H˜o@ ¿gogggNhhhX°AMdgðŸ¿I˜o@ ¿NY°*gð²I˜o@ ¿Ng YooO@¿µ‚±ÿeHIL(270Q VALUES 251Q CERROR 231Q MAKE-REPORT-FUNCTION 221Q CL:ERROR 174Q CL:ERROR 112Q CL:ERROR 65Q CL:ERROR 11Q \MVLIST 6 STRIP-KEYWORDS) (226Q PROCEED-CASE 204Q :REPORT 157Q :REPORT-FUNCTION 133Q QUOTE 130Q C 125Q CONDITION-TYPEP 116Q CL:LAMBDA 75Q :CONDITION 50Q :TEST) ( 243Q "Illegal keyword ~S in proceed case ~S." 237Q "Ignore key/value pair" 215Q "Duplicate report form specified for proceed type ~S." 170Q "Duplicate report form specified for proceed type ~S." 122Q (C) 106Q "Duplicate test form specified for proceed type ~S." 61Q "Duplicate test form specified for proceed type ~S.") DEFAULT-PROCEED-REPORTER D1 (L (1 STREAM 0 PC)) Ao@ (13Q FORMAT 10Q PROCEED-CASE-NAME) NIL ( 4 "Proceed-type: ~A") CHECK-*CASE-SELECTOR D1 (L (1 NAME 0 SELECTOR)) @ið§@dgð™¿o@A(24Q CL:ERROR) (10Q OTHERWISE) ( 17Q "~A not allowed in the ~A form.") COLLECT-CASE-SELECTORSA0001A0002 D1 (L (0 SELECTOR) F 0 NAME) @P (4 CHECK-*CASE-SELECTOR) NIL () COLLECT-CASE-SELECTORSA0001 D1 (L (0 CLAUSE) F 0 NAME) -@d² ¿Pdgð¥dgð’¿i¿h˜g@ @P h(50Q CHECK-*CASE-SELECTOR 41Q CL:MAPCAR) (34Q COLLECT-CASE-SELECTORSA0001A0002 21Q ETYPECASE 13Q CTYPECASE) () COLLECT-CASE-SELECTORS D1 (L (0 CLAUSES) I 1 NAME) g@ (6 MAPCAN) (2 COLLECT-CASE-SELECTORSA0001) () FIX-INHERITANCE-LINKS D1 (L (1 NEW-PARENT 0 NAME)) [@ÁÉg'qAdHð¤¿Hµ+A½@MÁÉg' ¼MgL¿@¾A_¿NgOÁÉg'»Hº@K ¹JgI¿°½(126Q PUTPROP 115Q DREMOVE 74Q PUTPROP 54Q PUTPROP 43Q ADJOIN) (122Q %%CONDITION-CHILDREN 104Q %%CONDITION-CHILDREN 67Q %%CONDITION-PARENT 50Q %%CONDITION-CHILDREN 37Q %%CONDITION-CHILDREN 7 %%CONDITION-PARENT) () MAKE-INTO-CONDITION D1 (L (2 ARGS 1 DESIRED-TYPE 0 DATUM)) T@dg ‘@dlð²1¿@g ´8gk@B°dýIkØYnñ–hl4 ¿µìIH´Ag@gB (121Q MAKE-CONDITION 71Q \LISPERROR 31Q FAKE-SUBTYPEP-FOR-CONDITIONS 7 FAKE-TYPEP-FOR-CONDITIONS) (114Q :FORMAT-ARGUMENTS 110Q :FORMAT-STRING 36Q MAKE-CONDITION 26Q CONDITION 4 CONDITION) () 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 () NO-PROCEED-TESTA0001A0002 D1 (L (0 C)) @g (6 FAKE-TYPEP-FOR-CONDITIONS) (3 NO-PROCEED-TEST) () NO-PROCEED-TESTA0001A0003 D1 (L (1 STREAM 0 DATUM)) Ao (7 FORMAT) NIL ( 4 "Use FALSE for the test") NO-PROCEED-TESTA0001A0004 D1 (L (0 C)) @g (6 FAKE-TYPEP-FOR-CONDITIONS) (3 NO-PROCEED-TEST) () NO-PROCEED-TESTA0001A0005 D1 (L (1 STREAM 0 DATUM)) Ao (7 FORMAT) NIL ( 4 "Make TRUE the default test") NO-PROCEED-TESTA0001A0006 D1 (L (0 C) F 0 ONCE F 1 NAME) @ Qð´Pšgh ic(23Q \DO-THROW 20Q \MVLIST 3 NO-PROCEED-TEST-NAME) (14Q SKIP-PROCEED-CASE) () NO-PROCEED-TESTA0001 D1 (P 1 *CONDITION-HANDLER-BINDINGS* P 0 *PROCEED-CASES* F 2 PROCEED-CASE2616 F 3 *PROCEED-CASES* F 4 *CONDITION-HANDLER-BINDINGS* F 5 NAME) agghgRgjgggg gggRgkgggg SggTggU (134Q \MVLIST 130Q CL:ERROR 74Q MAKE-PROCEED-CASE 36Q MAKE-PROCEED-CASE) (124Q :NAME 121Q NO-PROCEED-TEST 110Q NO-PROCEED-TESTA0001A0006 105Q NO-PROCEED-TEST 70Q NO-PROCEED-TESTA0001A0005 65Q :REPORT 62Q NO-PROCEED-TESTA0001A0004 57Q :TEST 53Q :SELECTOR 47Q :TAG 44Q PROCEED 41Q :NAME 32Q NO-PROCEED-TESTA0001A0003 27Q :REPORT 24Q NO-PROCEED-TESTA0001A0002 21Q :TEST 15Q :SELECTOR 11Q :TAG 5 :NAME 2 :NORMAL) () NO-PROCEED-TESTA0007 D1 NIL gNIL (2 FALSE) () NO-PROCEED-TESTA0008 D1 (F 2 NAME) Rg ¹HgI(22Q PUTPROP 11Q SYMBOL-FUNCTION) (16Q %%DEFAULT-PROCEED-TEST 6 TRUE) () NO-PROCEED-TEST D1 (P 6 PROCEED-CASE2616 P 0 ONCE I 0 NAME) U`hhNg YºI»Jdgð•¿K dj:”¿g†k:´gj½¼K°dýMkØ]nñ–hl4 ¿µìML(114Q \LISPERROR 42Q VALUES-LIST 17Q \CATCH-FUNCALL) (63Q NO-PROCEED-TESTA0008 53Q NO-PROCEED-TESTA0007 33Q :NORMAL 14Q NO-PROCEED-TESTA0001) () 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-CASE2631 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-CASE2631 I 0 PC) o`@ X³ @ ´@ ÁÉg'µ @ X´AkHhNg YºI»Jgð”K gj½¼K°dýMkØ]nñ–hl4 ¿µìML(146Q \LISPERROR 111Q VALUES-LIST 70Q \CATCH-FUNCALL 44Q NO-PROCEED-TEST 41Q PROCEED-CASE-NAME 23Q PROCEED-CASE-NAME 15Q PROCEED-CASE-NAME 6 PROCEED-CASE-TEST) (115Q TEST-PROCEED-CASEA0003 103Q :NORMAL 65Q TEST-PROCEED-CASEA0001 32Q %%DEFAULT-PROCEED-TEST) () DEFAULT-HANDLE-CONDITION D1 (L (0 CONDITION)) '@ Hd ÁÉg'Y”@kI¿HÁÉg'X°ä(3 FAKE-TYPE-OF-FOR-CONDITIONS) (41Q %%CONDITION-PARENT 21Q %%CONDITION-HANDLER) () expand-ERR::WITH-LOOP-VARS D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) >@!H¹HºgggIhhggIhhggIhhhJNIL (55Q GENSYM 52Q AGAIN 40Q GENSYM 35Q BLOCK-NAME 23Q GENSYM 20Q VAL 15Q LET) () (SETF-MACRO-FUNCTION (QUOTE ERR::WITH-LOOP-VARS) (QUOTE expand-ERR::WITH-LOOP-VARS)) (OR (BOUNDP (QUOTE *BREAK-ON-WARNINGS*)) (SETQ *BREAK-ON-WARNINGS* NIL)) (PROCLAIM (QUOTE (SPECIAL *BREAK-ON-WARNINGS*))) expand-DEFINE-CONDITIONA0001 D1 (L (0 X)) @d NIL NIL () expand-DEFINE-CONDITION D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) › @ñ@@¹HºH[¼K½gggoJ ho!M _&_$¿O&_"¿O$°~d___¿O_¿O^dgð™¿OO(_(°Xgð²O*™oJ °EO_*°?Ndgð²¿O*™oJ °)Og _*°gð˜O,³O_,ŒooO¿µƒO" _"¿LJð³7L _¿O"1O.µ]O0_¿gLOO(_(¿O"AO6µmO8_"¿ggJogO(O"JLð’±‹ggJhgLhhh°rdOggž_4¿O2µO4h_2_0¿O._.±ÿ~O4&_2°ò_>_¿O_µhŸ°"O:“O°öO°ëO>_<¿O:µOekHñ‘hkalHñŸio ¿ ‚lagg ºL‘hJ (73Q VALUES-LIST 62Q \CATCH-FUNCALL 42Q EVAL 37Q READ 33Q FORMAT) (57Q USE-VALUEA0001 54Q CONDITION-CASE2661) ( 30Q "Enter a new value: ") PROCEED-FROM-BREAK D1 (F 1 *DEBUGGED-CONDITION* F 2 *DEBUG-IO*) 1Q HµRo hdo¿hdoHi d“Q (56Q PROCEED-WITH-DEFAULTS 50Q ASKUSER 33Q ASKUSEREXPLAIN 21Q FORMAT 3 CREATE-PROCEED-KEYLIST) NIL ( 42Q "Proceed how? " 30Q " " 16Q "~&No proceed cases enabled.~%%") PROCEED-WITH-DEFAULTS D1 (L (1 CONDITION 0 CASE)) S@ 1Hd²" ´gHgAhhHoh ¹gl»º@AI°dýKkØ[nñ–hl4 ¿µìKJ(112Q \LISPERROR 52Q EVAL 15Q FBOUNDP 3 PROCEED-CASE-NAME) (56Q INVOKE-PROCEED-CASE 26Q QUOTE 22Q PROCEED-CASE) ( 42Q ((IGNORE &REST ARGS) :TEST TRUE ARGS)) CREATE-PROCEED-KEYLIST D1 (L (0 CONDITION)) }@ d²kRHµJ!H ºo¹JIH½hoM¾INgigIoNgiggogMhhh¼KµLh[ºH¸IkÔ¹°–L&»°ô(100Q CONCAT 55Q FORMAT 27Q LAST 3 COMPUTE-PROCEED-CASES) (121Q QUOTE 112Q PROGN 107Q RETURN 103Q CONFIRMFLG 67Q EXPLAINSTRING 63Q NOECHOFLG) ( 116Q (TERPRI T) 74Q " - " 51Q "~A " 34Q (("N" "No - don't proceed " NOECHOFLG T CONFIRMFLG T AUTOCONFIRMFLG T RETURN (TERPRI T)))) PROCEED-USING-MENU D1 (F 0 *DEBUGGED-CONDITION* F 1 *DEBUG-IO*) P µQo d“P (27Q PROCEED-WITH-DEFAULTS 21Q MENU 15Q FORMAT 3 CREATE-PROCEED-MENU) NIL ( 12Q "~&No proceed cases enabled.~%%") CREATE-PROCEED-MENUA0002 D1 (L (0 CASE)) ho@@h(10Q FORMAT) NIL ( 4 "~A") CREATE-PROCEED-MENU D1 (L (0 CONDITION)) D@ !H´:`do¿gH ¹dI¿dg ¿dg¿jdnÿdhºdJ ¿(34Q CL:MAPCAR 3 COMPUTE-PROCEED-CASES) (55Q DEFAULTMENUHELDFN 46Q CLRPROMPT 30Q CREATE-PROCEED-MENUA0002 14Q MENUTYPE#) ( 22Q "Ways to proceed...") (ADDTOVAR BREAKMACROS (PR (PROCEED-FROM-BREAK))) 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) ghhhPc¿RQ ¿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ó².¿MºIgJOµ oI ¿O W²"O °Ra_¿NµOh^½LkÔ\°¾O&¾°öWo W!W og ‘h‚g_ ¿O“OO(220Q FORMAT 210Q ERROR! 201Q RESETRESTORE 166Q WARNA0001 142Q MAKE-STRING-OUTPUT-STREAM 76Q CL:BREAK 65Q RAISE-SIGNAL 57Q CL:ERROR 40Q MAKE-INTO-CONDITION) (174Q ERROR 163Q INTERNAL 34Q SIMPLE-WARNING) ( 160Q (WARNA0001) 137Q "~&Warning: ~A~%%" 53Q "Bad argument ~S to WARN.") CL:ERROR D1 (L (0 -args-)) T eka!Hl2MdLó²#¿NºIgJ[µoI ¿K K a_¿OµOh_¾MkÔ]°ÇO&_¿°ô(64Q DEBUG 60Q RAISE-SIGNAL 53Q CL:ERROR 40Q MAKE-INTO-CONDITION) (34Q SIMPLE-ERROR) ( 47Q "Bad argument to ERROR ~A.") (PUTPROPS CL-ERROR FILETYPE COMPILE-FILE) (PUTPROPS CL-ERROR COPYRIGHT ("Xerox Corporation" 1986)) STOP