(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 4-Nov-93 12:55:19" ("compiled on " |{DSK}export>lispcore>sources>CLTL2>ERROR-RUNTIME.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" |in| "Medley 19-Feb-93 ..." |dated| "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 15:37:49" "{Pele:mv:envos}Sources>CLTL2>ERROR-RUNTIME.;2" 23732 |previous| |date:| "11-Mar-92 14:19:49" "{Pele:mv:envos}Sources>CLTL2>ERROR-RUNTIME.;1") (RPAQQ ERROR-RUNTIMECOMS ((COMS (* |;;;| "Internal functions.") (FUNCTIONS SI::CONDITION-CASE-ERROR CONDITION-HANDLER CONDITION-REPORTER %PRINT-CONDITION CONDITIONS::%RESTART-PRINTER CONDITIONS::%RESTART-DEFAULT-REPORTER REPORT-CONDITION CONDITION-PARENT) (VARIABLES *CONDITION-HANDLER-BINDINGS* CL:*DEBUGGER-HOOK* *PROCEED-CASES*) (FUNCTIONS CHECK-TYPE-FAIL ECASE-FAIL ASSERT-FAIL) (FUNCTIONS XCL::SYMBOL-AS-PATHNAME) (FUNCTIONS MAKE-INTO-CONDITION RAISE-SIGNAL DEFAULT-HANDLE-CONDITION DEFAULT-PROCEED-REPORTER CONDITIONS::DEFAULT-RESTART-REPORTER DEFAULT-PROCEED-TEST TEST-PROCEED-CASE WALK-PROCEED-CASES SI::INVOKE-ACTUAL-RESTART)) (COMS (* |;;;| "Exported symbols. Anything here that's not in CL should be in XCL.") (VARIABLES CONDITIONS:*BREAK-ON-SIGNALS* *BREAK-ON-WARNINGS* XCL:*CURRENT-CONDITION*) (FUNCTIONS MAKE-CONDITION SIGNAL CL:ERROR CL:CERROR CL:WARN CL:BREAK CONDITIONS:INVOKE-DEBUGGER) (FUNCTIONS CL:FIND-RESTART CL:COMPUTE-RESTARTS CL:INVOKE-RESTART CONDITIONS:INVOKE-RESTART-INTERACTIVELY)) (PROP FILETYPE ERROR-RUNTIME))) SI::CONDITION-CASE-ERROR :D8 (L (1 SI::POSSIBILITIES 0 SI::REAL-SELECTOR)) og@A (16 CL:ERROR) (9 CONDITION-CASE) ( 4 "Unexpected selector in ~S.") XCL::|expand-CONDITION-HANDLER| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (10 GETPROP) ( 16 ((QUOTE %CONDITION-HANDLER))) (SETF-MACRO-FUNCTION (QUOTE CONDITION-HANDLER) (QUOTE XCL::|expand-CONDITION-HANDLER|)) XCL::|expand-CONDITION-REPORTER| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (10 GETPROP) ( 16 ((QUOTE %CONDITION-REPORTER))) (SETF-MACRO-FUNCTION (QUOTE CONDITION-REPORTER) (QUOTE XCL::|expand-CONDITION-REPORTER|)) %PRINT-CONDITION :D8 (L (2 LEVEL 1 STREAM 0 CONDITION) F 0 *PRINT-ESCAPE*) #PAo@ @@ @A (32 REPORT-CONDITION 24 CL:FORMAT 14 CL:TYPE-OF) NIL ( 8 "#") CONDITIONS::%RESTART-PRINTER :D8 (L (2 CONDITIONS::LEVEL 1 STREAM 0 CONDITIONS:RESTART) F 1 *PRINT-ESCAPE* F 2 CL::%DEFAULT-PRINT-FUNCTION) HQ@ABlR@@g' @A H HA AkH(64 CL:PRINC 56 CL:STRINGP 46 CONDITIONS::DEFAULT-RESTART-REPORTER) (36 %DEFAULT-PROCEED-REPORT 25 CONDITIONS:RESTART 15 CONDITIONS:RESTART) () CONDITIONS::%RESTART-DEFAULT-REPORTER :D8 (L (1 STREAM 0 CONDITIONS:RESTART)) @g'@AlHNIL (16 %DEFAULT-PROCEED-REPORT 5 CONDITIONS:RESTART) () REPORT-CONDITION :D8 (L (1 STREAM 0 CONDITION)) E@ Hg Ho@ I H X IA @AlI(59 CL:PRINC 51 CL:STRINGP 43 CONDITION-PARENT 33 CL:BREAK 19 GETPROP 5 CL:TYPE-OF) (14 %CONDITION-REPORTER) ( 27 "No report function found for ~S.") CONDITION-PARENT :D8 (L (0 TYPE)) @ dgh(5 GETSUPERTYPE) (11 CL::STRUCTURE-OBJECT) () (CL:PROCLAIM (QUOTE (CL:SPECIAL *CONDITION-HANDLER-BINDINGS*))) (OR (BOUNDP (QUOTE *CONDITION-HANDLER-BINDINGS*)) (CL:SETQ *CONDITION-HANDLER-BINDINGS* NIL)) (SET-DOCUMENTATION (QUOTE *CONDITION-HANDLER-BINDINGS*) (QUOTE CL:VARIABLE) "Condition handler binding stack") (CL:PROCLAIM (QUOTE (CL:SPECIAL CL:*DEBUGGER-HOOK*))) (OR (BOUNDP (QUOTE CL:*DEBUGGER-HOOK*)) (CL:SETQ CL:*DEBUGGER-HOOK* NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *PROCEED-CASES*))) (OR (BOUNDP (QUOTE *PROCEED-CASES*)) (CL:SETQ *PROCEED-CASES* NIL)) (SET-DOCUMENTATION (QUOTE *PROCEED-CASES*) (QUOTE CL:VARIABLE) "Active proceed case stack") CHECK-TYPE-FAIL :D8 (L (4 MESSAGE 3 DESIRED-TYPE 2 VALUE 1 PLACE 0 PROCEEDABLE) F 0 *QUERY-IO* F 1 STREAM F 2 XCL:*CURRENT-CONDITION* F 3 NEW) ggAgBgCgD gQoA ghPoA P h gh@R S  (134 CL:RESTART-CASE 129 STORE-VALUE 122 LAMBDA 102 LAMBDA 95 CL:EVAL 90 CL:READ 84 CL:FORMAT 66 LAMBDA 61 CL:FORMAT 49 STREAM 39 NEW 34 CL:ERROR) (117 XCL:TYPE-MISMATCH 107 :FILTER 71 :INTERACTIVE 44 :REPORT 27 :MESSAGE 21 :EXPECTED-TYPE 15 :VALUE 9 :NAME 4 XCL:TYPE-MISMATCH) ( 78 "Enter a new value to store into ~A: " 55 "Change the value of ~A") ECASE-FAIL :D8 (L (3 SELECTORS 2 VALUE 1 PLACE 0 PROCEEDABLE) F 0 *QUERY-IO* F 1 STREAM F 2 V) AB:oBoC oABoC gh@ gQoA ghPoA P h R  (134 CL:RESTART-CASE 129 STORE-VALUE 122 LAMBDA 115 CL:EVAL 110 CL:READ 104 CL:FORMAT 86 LAMBDA 81 CL:FORMAT 69 STREAM 59 LAMBDA 47 V 42 CL:ERROR 21 CL:ERROR) (91 :INTERACTIVE 64 :REPORT 52 :FILTER) ( 98 "Enter a new value to store into ~A: " 75 "Change the value of ~A" 35 "~#[wrong~;not ~S~;neither ~S nor ~S~:;not~@{~#[~; or~] ~S~^,~}~]" 28 "The value of ~S, ~S,~&is ~?." 15 "~#[wrong~;not ~S~;neither ~S nor ~S~:;not~@{~#[~; or~] ~S~^,~}~]" 9 "~S is ~?.") ASSERT-FAILA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 STRING F 3 ARGS F 4 A4640) *i@ggRgS  cg(32 \\MVLIST 27 CL:ERROR) (39 :NORMAL 20 :FORMAT-ARGUMENTS 14 :FORMAT-STRING 9 XCL:ASSERTION-FAILED) () ASSERT-FAIL :D8 (L (0 |-args-|) P 9 *PROCEED-CASES* P 8 A4640 P 7 ARGS P 1 STRING F 10 *PROCEED-CASES*) Z ekaHl2KJ*LoW O dgO$KaM Nh]Kk[N&jh(42 ASSERT-FAILA0001) (49 :NORMAL) ( 29 #S(PROCEED-CASE NAME CONDITIONS:CONTINUE TAG NIL SELECTOR 0 TEST NIL REPORT "Re-test assertion" INTERACTIVE-FN NIL FUNCTION NIL)) XCL::SYMBOL-AS-PATHNAME :D8 (L (2 XCL::MESSAGE 1 XCL::WHERE 0 CL:SYMBOL) F 0 STREAM F 1 XCL:*CURRENT-CONDITION*) Vgg@gAgB hgoP ghQ  (83 CL:RESTART-CASE 78 XCL::USE-PNAME 72 CL:LAMBDA 55 CL:LAMBDA 50 CL:PRINC 39 STREAM 28 CL:ERROR) (67 XCL::SYMBOL-AS-PATHNAME 60 :FILTER 34 :REPORT 21 :MESSAGE 15 :WHERE 9 :SYMBOL 4 XCL::SYMBOL-AS-PATHNAME) ( 44 "Use the symbol's pname") MAKE-INTO-CONDITION :D8 (L (2 ARGS 1 DESIRED-TYPE 0 DATUM)) @1Hd@dD@g *gk@BdnJkZhl4 JIo@ [ $K gAg@gB gHoh (147 CHECK-TYPE-FAIL 128 MAKE-CONDITION 101 CL:ARRAY-ELEMENT-TYPE 93 CL:VECTORP 86 CL:ERROR 68 \\LISPERROR 33 CL:SUBTYPEP) (134 DATUM 121 :FORMAT-ARGUMENTS 115 :FORMAT-STRING 106 CL:STRING-CHAR 40 MAKE-CONDITION 28 CONDITION 19 LITATOM 10 CONDITION) ( 140 (OR CONDITION CL:SYMBOL STRING) 80 "~S is not a condition type.") RAISE-SIGNALA0001A0002 :D8 (P 2 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 CONDITION F 4 TYPE-SPEC F 5 A4643) i@ST c g(11 TYPEP) (18 :NORMAL) () RAISE-SIGNALA0001 :D8 (L (2 HANDLER) P 1 *PROCEED-CASES* P 0 A4643 I 1 TYPE-SPEC I 0 CONDITION F 2 *PROCEED-CASES*) .oRI dgHjh@kB(18 RAISE-SIGNALA0001A0002) (25 :NORMAL) ( 7 #S(PROCEED-CASE NAME PROCEED TAG NIL SELECTOR 0 TEST NIL REPORT "Skip the bad handler binding" INTERACTIVE-FN NIL FUNCTION NIL)) RAISE-SIGNAL :D8 (P 0 *CONDITION-HANDLER-BINDINGS* I 0 CONDITION F 5 CONDITIONS:*BREAK-ON-SIGNALS* F 6 *CONDITION-HANDLER-BINDINGS*) d@U o@ VAH @ @HI\g"L\L@LLJLLKlg@LLlg(32 DEFAULT-HANDLE-CONDITION 18 CL:BREAK 6 TYPEP) (94 RAISE-SIGNALA0001 79 RAISE-SIGNALA0001 47 :MULTIPLE-HANDLER-BINDINGS) ( 12 "Condition ~S is about to be signalled.") DEFAULT-HANDLE-CONDITION :D8 (L (0 CONDITION)) )@ HhHg Y@kIH X(36 CONDITION-PARENT 23 GETPROP 5 CL:TYPE-OF) (18 %CONDITION-HANDLER) () DEFAULT-PROCEED-REPORTER :D8 (L (1 STREAM 0 PC)) Ao@ (16 CL:FORMAT 11 PROCEED-CASE-NAME) NIL ( 5 "Proceed-type: ~A") CONDITIONS::DEFAULT-RESTART-REPORTER :D8 (L (1 STREAM 0 CONDITIONS:RESTART)) Ao@ (18 CL:FORMAT) (11 CONDITIONS:RESTART) ( 5 "Restart type: ~A") XCL::|expand-DEFAULT-PROCEED-TEST| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (10 GETPROP) ( 16 ((QUOTE %DEFAULT-PROCEED-TEST))) (SETF-MACRO-FUNCTION (QUOTE DEFAULT-PROCEED-TEST) (QUOTE XCL::|expand-DEFAULT-PROCEED-TEST|)) TEST-PROCEED-CASE :D8 (L (0 PC)) 3@XjH@@g Xi(44 GETPROP) (39 %DEFAULT-PROCEED-TEST 32 CONDITIONS:RESTART 22 CONDITIONS:RESTART 8 CONDITIONS:RESTART) () WALK-PROCEED-CASESA0001 :D8 (L (1 BLIP 0 PC)) !@d@ HAH(17 CONDITIONS::COPY-RESTART) (26 CONDITIONS:RESTART 6 CONDITIONS:RESTART) () WALK-PROCEED-CASES :D8 (L (1 PRED 0 PROCEED-CASES)) =@1HhHdZHXHlgYkAIJHlg[kAKNIL (50 WALK-PROCEED-CASESA0001 30 WALK-PROCEED-CASESA0001) () SI::INVOKE-ACTUAL-RESTART :D8 (L (1 SI::ARGUMENTS 0 SI::RESTART)) p@d @@A g-@ jAdnIkYhl4 IHo@ (109 CL:ERROR 91 \\LISPERROR 39 SI::INTERNAL-THROW-VALUES 34 \\MVLIST) (61 CONDITIONS:RESTART 52 SI::COMPLEX-RESTART-MARKER 45 CONDITIONS:RESTART 25 CONDITIONS:RESTART 17 CONDITIONS:RESTART 6 CONDITIONS:RESTART) ( 103 "Malformed restart object ~S.") (CL:PROCLAIM (QUOTE (CL:SPECIAL CONDITIONS:*BREAK-ON-SIGNALS*))) (OR (BOUNDP (QUOTE CONDITIONS:*BREAK-ON-SIGNALS*)) (CL:SETQ CONDITIONS:*BREAK-ON-SIGNALS* NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *BREAK-ON-WARNINGS*))) (OR (BOUNDP (QUOTE *BREAK-ON-WARNINGS*)) (CL:SETQ *BREAK-ON-WARNINGS* NIL)) (SET-DOCUMENTATION (QUOTE *BREAK-ON-WARNINGS*) (QUOTE CL:VARIABLE) "If true, calls to WARN will cause a break as well as logging the warning.") (CL:PROCLAIM (QUOTE (CL:SPECIAL XCL:*CURRENT-CONDITION*))) (OR (BOUNDP (QUOTE XCL:*CURRENT-CONDITION*)) (CL:SETQ XCL:*CURRENT-CONDITION* NIL)) (SET-DOCUMENTATION (QUOTE XCL:*CURRENT-CONDITION*) (QUOTE CL:VARIABLE) "The condition currently being signalled") MAKE-CONDITION :D8 (L (0 |-args-|)) ` eka1Hl2 NMOI jJ8Na_OOh__Nk^O&_dnLk\hl4 LK(87 \\LISPERROR 28 CL::STRUCTURE-CONSTRUCTOR) NIL () (SET-DOCUMENTATION (QUOTE MAKE-CONDITION) (QUOTE CL:FUNCTION) "Create a condition object of the specified type.") SIGNAL :D8 (L (0 |-args-|) P 8 XCL:*CURRENT-CONDITION* F 9 *LAST-CONDITION*) M ekaHl2LK MIgJ Oc OLa_NOh^Lk\O&(46 RAISE-SIGNAL 34 MAKE-INTO-CONDITION) (28 SIMPLE-CONDITION) () CL::ERRORA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 ERRORPOS P 0 PRINTMSG I 0 SI::*CLEANUP-FORMS* F 2 XCL:*CURRENT-CONDITION* F 3 SI::*RESETFORMS* F 4 HELPDEPTH F 5 *ERROR-OUTPUT*) Pig gIhhdScTIR HRU gRgI (77 DEBUGGER 72 STKNAME 54 ERROR! 48 CL:PRINC 38 ENTER-DEBUGGER-P 10 FIND-DEBUGGER-ENTRY-FRAME) (66 :AT 60 :CONDITION 18 RELSTK 5 CL:ERROR) () CL:ERROR :D8 (L (0 |-args-|) P 11 RESETSTATE P 10 SI::*RESETFORMS* P 9 LISPXHIST P 8 XCL:*CURRENT-CONDITION* F 12 *LAST-CONDITION* F 13 LISPXHIST) h ekaHl2LK;MIgJ Oc W! g $La_NOh^Lk\O&(71 SI::RESETUNWIND 66 \\MVLIST 61 CL::ERRORA0001 46 RAISE-SIGNAL 34 MAKE-INTO-CONDITION) (56 SI::RESETUNWIND 28 SIMPLE-ERROR) () CL::CERRORA0001 :D8 (I 0 *STANDARD-OUTPUT* F 2 CL::PROCEED-FORMAT-STRING F 3 CL::ARGUMENTS) ,gliRSdnIkYhl4 IH(35 \\LISPERROR) (4 CL:FORMAT) () CL::CERRORA0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 XCL:*CURRENT-CONDITION* F 3 A4650) i@R cg(15 \\MVLIST 10 CL:ERROR) (22 :NORMAL) () CL:CERROR :D8 (L (0 |-args-|) P 11 *PROCEED-CASES* P 10 A4650 P 9 XCL:*CURRENT-CONDITION* P 8 CL::ARGUMENTS P 1 CL::PROCEED-FORMAT-STRING F 12 *PROCEED-CASES*) ekalaHl2LK[MJgO  gggjghgg W O dg#O$La_NOh^Lk\O&jO(95 CL::CERRORA0002 82 MAKE-PROCEED-CASE 41 MAKE-INTO-CONDITION) (102 :NORMAL 76 CL::CERRORA0001 71 :REPORT 65 :TEST 59 :SELECTOR 54 CONDITIONS:CONTINUE 49 :NAME 34 SIMPLE-ERROR) () CL::WARNA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 XCL:*CURRENT-CONDITION* F 3 *ERROR-OUTPUT* F 4 A4651) (i@R SoR h cg(30 \\MVLIST 23 CL:FORMAT 10 RAISE-SIGNAL) (37 :NORMAL) ( 17 "~&Warning: ~A~%") CL:WARN :D8 (L (0 |-args-|) P 10 *PROCEED-CASES* P 9 A4651 P 8 XCL:*CURRENT-CONDITION* F 11 *BREAK-ON-WARNINGS* F 12 *PROCEED-CASES*) ekaHl2LKMIgJ O.oggggOgg WoO  oW O dg$O$La_NOh^Lk\kO&jh(129 CL::WARNA0001 107 CL:BREAK 91 CL:CERROR 36 MAKE-INTO-CONDITION) (136 :NORMAL 85 WARNING 80 :EXPECTED-TYPE 73 :VALUE 68 CL::CONDITION 63 :NAME 58 XCL:TYPE-MISMATCH 46 WARNING 30 SIMPLE-WARNING) ( 116 #S(PROCEED-CASE NAME CONDITIONS:MUFFLE-WARNING TAG NIL SELECTOR 0 TEST NIL REPORT "Don't print the warning" INTERACTIVE-FN NIL FUNCTION NIL) 100 "Warning: ~A" 53 "Signal and report the condition anyway") CL::BREAKA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 CL::FORMAT-STRING F 3 CL::FORMAT-ARGUMENTS F 4 A4652) /i@ggRgS  cg(37 \\MVLIST 32 CONDITIONS:INVOKE-DEBUGGER 27 MAKE-CONDITION) (44 :NORMAL 20 :FORMAT-ARGUMENTS 14 :FORMAT-STRING 9 SIMPLE-CONDITION) () CL:BREAK :D8 (L (0 |-args-|) P 9 *PROCEED-CASES* P 8 A4652 P 7 CL::FORMAT-ARGUMENTS P 1 CL::FORMAT-STRING F 10 *PROCEED-CASES*) e ekHokaHl2KdJ+LoW O dgO$aM Nh]Kk[N&jh(54 CL::BREAKA0001) (61 :NORMAL) ( 41 #S(PROCEED-CASE NAME CONDITIONS:CONTINUE TAG NIL SELECTOR 0 TEST NIL REPORT "Return from BREAK" INTERACTIVE-FN NIL FUNCTION NIL) 12 "Break.") CONDITIONS:INVOKE-DEBUGGER :D8 (L (0 CONDITION) F 0 CL:*DEBUGGER-HOOK*) P@PlPg@ (19 DEBUGGER) (13 :CONDITION) () CL::FIND-RESTARTA0001 :D8 (L (1 CONDITIONS::PROTOTYPE 0 CONDITIONS::IDENTIFIER)) hNIL NIL () CL::FIND-RESTARTA0002 :D8 (L (0 CONDITIONS:RESTART) F 0 CONDITIONS::IDENTIFIER) P@PP@zP@gP@TP@AP@.P @ P @ @ (159 TEST-PROCEED-CASE) (148 CONDITIONS:RESTART 140 CONDITIONS:RESTART 129 CONDITIONS:RESTART 121 CONDITIONS:RESTART 110 CONDITIONS:RESTART 102 CONDITIONS:RESTART 91 CONDITIONS:RESTART 83 CONDITIONS:RESTART 72 CONDITIONS:RESTART 64 CONDITIONS:RESTART 53 CONDITIONS:RESTART 45 CONDITIONS:RESTART 34 CONDITIONS:RESTART 26 CONDITIONS:RESTART 12 CONDITIONS:RESTART) () CL::FIND-RESTARTA0003 :D8 (L (0 CONDITIONS:RESTART) F 0 CONDITIONS::IDENTIFIER) @P@ (17 TEST-PROCEED-CASE) (5 CONDITIONS:RESTART) () CL:FIND-RESTART :D8 (L (0 |-args-|) P 4 XCL:*CURRENT-CONDITION* P 1 CONDITIONS::IDENTIFIER F 5 *PROCEED-CASES* F 6 XCL:*CURRENT-CONDITION*) keka!lHVlaIZ[ohgg Ug KUg gJoh (104 CHECK-TYPE-FAIL 85 WALK-PROCEED-CASES 65 WALK-PROCEED-CASES 47 CL:ERROR) (91 CONDITIONS::IDENTIFIER 80 CL::FIND-RESTARTA0003 72 LITATOM 60 CL::FIND-RESTARTA0002 53 CONDITIONS:RESTART 42 CL:COMPUTE-RESTARTS 37 CL:FIND-RESTART) ( 97 (OR NULL CONDITIONS:RESTART CL:SYMBOL) 31 "~S is an invalid argument to ~S;~% use ~S instead") CL::COMPUTE-RESTARTSA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 CONDITIONS:RESTART) i@R (10 TEST-PROCEED-CASE) NIL () CL::COMPUTE-RESTARTSA0001 :D8 (I 0 CONDITIONS:RESTART F 0 CONDITIONS::FOUND) g @Pch(9 CL::COMPUTE-RESTARTSA0001A0002) (4 SI::SKIP-PROCEED-CASE) () CL:COMPUTE-RESTARTS :D8 (L (0 |-args-|) P 2 CONDITIONS::FOUND P 1 XCL:*CURRENT-CONDITION* F 3 XCL:*CURRENT-CONDITION* F 4 *PROCEED-CASES*) "ekHSkaTg J (31 CL:NREVERSE 25 WALK-PROCEED-CASES) (20 CL::COMPUTE-RESTARTSA0001) () CL:INVOKE-RESTART :D8 (L (0 |-args-|)) RekaHl2LKMI -ggI La_NOh^Lk\O&J (79 SI::INVOKE-ACTUAL-RESTART 46 CL:ERROR 28 CL:FIND-RESTART) (40 :NAME 35 XCL:BAD-PROCEED-CASE) () CONDITIONS:INVOKE-RESTART-INTERACTIVELY :D8 (L (0 CONDITIONS:RESTART)) 4@ Hgg@ @ HIjI (49 SI::INVOKE-ACTUAL-RESTART 27 CL:ERROR 5 CL:FIND-RESTART) (34 CONDITIONS:RESTART 21 :NAME 16 XCL:BAD-PROCEED-CASE) () (PUTPROPS ERROR-RUNTIME FILETYPE CL:COMPILE-FILE) (PUTPROPS ERROR-RUNTIME COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 1992 1993)) NIL