(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "25-Jan-98 14:25:53" ("compiled on " |{DSK}sources>IL-ERROR-STUFF.;1|) "30-Mar-95 20:33:04" |bcompl'd| |in| "Medley 14-Aug-95 ..." |dated| "14-Aug-95 15:27:48") (FILECREATED "16-May-90 18:18:52" |{DSK}local>lde>lispcore>sources>IL-ERROR-STUFF.;2| 12984 |changes| |to:| (VARS IL-ERROR-STUFFCOMS) |previous| |date:| " 2-Mar-88 16:39:33" |{DSK}local>lde>lispcore>sources>IL-ERROR-STUFF.;1|) HELP :D8 (I 1 MESS2 I 0 MESS1) &ggog@Ah  (35 CONDITIONS:INVOKE-DEBUGGER 30 MAKE-CONDITION) (19 :FORMAT-ARGUMENTS 9 :FORMAT-STRING 4 SIMPLE-CONDITION) ( 14 "Help!~@{~@[ ~A~]~}") SHOULDNT :D8 (I 0 MESS) o@ (10 HELP) NIL ( 4 "Shouldn't happen:") ERROR :D8 (I 2 NOBREAK I 1 MESS2 I 0 MESS1 F 0 HELPFLAG F 1 *LAST-CONDITION*) :B²'Pgð³l@A @A l@A Q (55 ERRORX 49 SETERRORN 38 ERROR! 33 ERRORMESS1 26 SIGNAL 21 ERRM-TO-CONDITION) (8 BREAK!) () ERRORXA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 *LAST-CONDITION* F 3 A11748) i@R cg(15 \\MVLIST 10 CL:ERROR) (22 :NORMAL) () ERRORXA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 *PROCEED-CASES* P 1 A11748 P 0 ERRORPOS I 0 SI::*CLEANUP-FORMS* F 3 SI::*RESETFORMS* F 4 *PROCEED-CASES*) bgi gHhhdScoTJ dgð•¿I$jð´H H kHd Hid (95 ENVAPPLY 86 STKNTH 78 STKARGS 72 STKNAME 46 ERRORXA0001A0002 10 FIND-DEBUGGER-ENTRY-FRAME) (53 :NORMAL 18 RELSTK 4 ERRORX) ( 35 #S(PROCEED-CASE NAME PROCEED TAG NIL SELECTOR 0 TEST NIL REPORT "Retry execution" INTERACTIVE-FN NIL FUNCTION NIL)) ERRORX :D8 (L (0 ERXM) P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST F 3 LISPXHIST) 3@²@ê@@ ¿S!g ¿$(44 SI::RESETUNWIND 39 \\MVLIST 34 ERRORXA0001 19 SETERRORN) (29 SI::RESETUNWIND 8 CONDITION) () INTERRUPT :D8 (I 0 INTFN) ggg@ (25 DEBUGGER 20 MAKE-CONDITION) (14 :FUNCTION 9 SI::INTERRUPT 4 :CONDITION) () FAULTEVAL :D8 (L (0 FAULTX) F 2 *MACROEXPAND-HOOK*) § @µ `¢±’g ¢±„@ Xdd3@ð²U¿H` Y²1@dI Yô³%`²@Iµ gIh` ¿I,HÁÉg'µ @ X²…H`¢±ÿz@ @hlR,@ (164 OLDFAULT1 149 \\EVALFORMASLAMBDA 127 GETD 103 PUTHASH 68 MACROEXPANSION 57 GETMACROPROP 35 NEWFAULT1 25 \\DEFINEDP) (138 LAMBDASPLST 117 MACRO-FN 98 CLISPARRAY 89 PROGN 77 CLISPARRAY 52 COMPILERMACROPROPS 20 NEWFAULT1 11 DWIMFLG) () FAULTAPPLY :D8 (P 6 TRANFN P 5 TRAN P 4 %LEXICAL-ENVIRONMENT% P 3 DEF P 0 \\INTERRUPTABLE I 1 FAULTARGS I 0 FAULTFN F 7 LAMBDATRANFNS) ç@ ²<g@i ¿AjºI°dýnJkØZñ¨hl4 ¿µêJg@d3@ð–@ €@KòKɼKÉ[°ç K›Kd`³¿`²Wg ²K@Ai ` ]µ(KW^² KkN]²`œKM` ¿M[ƒL²®KA @Ai (228 OLDFAULT1 219 APPLY 205 PUTHASH 166 GETHASH 155 NEWFAULT1 145 \\DEFINEDP 77 GETD 54 \\LISPERROR 22 PUTD 5 CCODEP) (200 CLISPARRAY 192 CLISPARRAY 161 CLISPARRAY 140 NEWFAULT1 133 DWIMFLG 124 LAMBDASPLST 105 CLOSURE 96 CLOSURE 88 CLOSURE 63 \\INTERPRETER-DUMMY 15 \\INTERPRETER-DUMMY) () OLDFAULT1 :D8 (P 1 CNT P 0 FN I 2 FAULTAPPLYFLG I 1 FAULTARGS I 0 FAULTX) uoB²gg@gA °"@«gg@‹gg@ B²&@jA°dýnIkØYñ¨hl4 ¿µêIH@ (114 EVAL 101 \\LISPERROR 69 CL:CERROR 64 MAKE-CONDITION 30 MAKE-CONDITION) (57 :NAME 52 UNDEFINED-FUNCTION 45 :NAME 40 UNBOUND-VARIABLE 23 :ARGUMENTS 17 :NAME 12 UNDEFINED-FUNCTION-IN-APPLY) ( 4 "Re-execute") ERRORMESS :D8 (P 0 CONDITION I 0 U F 1 *LAST-CONDITION* F 2 *ERROR-OUTPUT*) D@µQ°Ñ@‰@@ `²HógH ¿HR (65 CL:PRINC 57 LISPXPUT 52 CL:TYPE-OF 23 ERRM-TO-CONDITION) (46 *ERROR* 39 STORAGE-CONDITION 31 LISPXHISTORY 10 CONDITION) () ERRORMESS1 :D8 (P 1 MESSAGE P 0 BADGUY I 2 MESS3 I 1 MESS2 I 0 MESS1 F 2 *STANDARD-OUTPUT*) V @µA©BRi h@R @š@3¦A —kR …R ¿A žAR ¿R ‡ARi h(82 PRINT 73 TERPRI 66 PRIN1 58 STRINGP 51 TERPRI 44 SPACES 36 STRINGP 24 PRIN1 15 PRINT) NIL () SMARTARGLIST :D8 (P 2 OTHERDEF P 1 DEF P 0 TEM I 2 TAIL I 1 EXPLAINFLG I 0 FN) û0@d3@ð³"A²@d²dgð˜ @ @ÁÉg'Xµ[@o XµC@ÁÉg'µ@ µ @ÁÉg'Y ²LIdgð¨dgð²$¿IXd’›Hhb¿b±ÿhA’±›Hgð²-A²*I A²@ggo Zµ‚±‹Iµd@ÁÉg'YµVA@` Xµ$I­@ihiB Xµ @A @ð³öHb±ÿdgð³dgðªdg𢱄H §I ² AšI lð³KIA dgð§dgð“¿i°dgð§dgð–¿JJº¿h¢±ÿIJ  I ¢±ÿAIA X¢±ÿ4Hgð›Hhb¿b±þ7HXµ Id•A  ²ÕHgH h (504 \\APPEND2 495 LAST 480 LAST 474 ARGLIST 432 ARGLIST 421 CCODEP 414 \\SIMPLIFY.CL.ARGLIST 406 REMOVE-COMMENTS 349 ARGLIST 337 ARGTYPE 327 CCODEP 320 EXPRP 270 ARGLIST 260 FNCHECK 244 GETMACROPROP 207 GETDEF 182 \\SIMPLIFY.CL.ARGLIST 107 EXPRP 88 GETD 66 GETLIS 40 ARGLIST 33 \\SIMPLIFY.CL.ARGLIST) (489 |...| 445 = 385 DEFCOMMAND 377 DEFDEFINER 365 CL:DEFUN 357 DEFMACRO 306 OPENLAMBDA 298 NLAMBDA 289 LAMBDA 239 COMPILERMACROPROPS 227 CODE 197 CURRENT 192 FUNCTIONS 168 CL:LAMBDA 126 LAMBDA 118 NLAMBDA 100 EXPR 79 ADVISED 51 BROKEN 24 CL:LAMBDA) ( 202 (NOERROR NOCOPY) 61 (ARGNAMES)) \\SIMPLIFY.CL.ARGLIST :D8 (L (0 LST)) †@QHµI\d²'¿Mdgð”¿L°Ugð›Ld“°E°BL°?gð³ÍLdgð³,dgð³#dgð³dgð¯dgð§dgð]»Jµ KhZ¹HX°‡K&º°øNIL (110 &ENVIRONMENT 102 &REST 94 &BODY 85 &KEY 76 &OPTIONAL 67 &AUX 57 &AUX 35 &KEY 23 &OPTIONAL) () (PRETTYCOMPRINT IL-ERROR-STUFFCOMS) (RPAQQ IL-ERROR-STUFFCOMS ((FNS HELP SHOULDNT ERROR ERRORX INTERRUPT FAULTEVAL FAULTAPPLY OLDFAULT1 ERRORMESS ERRORMESS1 SMARTARGLIST \\SIMPLIFY.CL.ARGLIST) (INITVARS (HELPDEPTH 7) (BREAKDELIMITER " ") (HELPTIME 1000) (HELPCLOCK) (NLSETQGAG T) (*MACROEXPAND-HOOK* (QUOTE CL:FUNCALL)) ( COMPILERMACROPROPS (QUOTE (DMACRO ALTOMACRO BYTEMACRO MACRO)))) (* |;;| "for backward compatibility. Used currently by window mouse handler") (VARS (NBREAKS 0)) (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA ERRORX))))) (RPAQ? HELPDEPTH 7) (RPAQ? BREAKDELIMITER " ") (RPAQ? HELPTIME 1000) (RPAQ? HELPCLOCK) (RPAQ? NLSETQGAG T) (RPAQ? *MACROEXPAND-HOOK* (QUOTE CL:FUNCALL)) (RPAQ? COMPILERMACROPROPS (QUOTE (DMACRO ALTOMACRO BYTEMACRO MACRO))) (RPAQQ NBREAKS 0) (PRETTYCOMPRINT IL-ERROR-STUFFCOMS) (RPAQQ IL-ERROR-STUFFCOMS ((FNS HELP SHOULDNT ERROR ERRORX INTERRUPT FAULTEVAL FAULTAPPLY OLDFAULT1 ERRORMESS ERRORMESS1 SMARTARGLIST \\SIMPLIFY.CL.ARGLIST) (INITVARS (HELPDEPTH 7) (BREAKDELIMITER " ") (HELPTIME 1000) (HELPCLOCK) (NLSETQGAG T) (*MACROEXPAND-HOOK* (QUOTE CL:FUNCALL)) ( COMPILERMACROPROPS (QUOTE (DMACRO ALTOMACRO BYTEMACRO MACRO)))) (* |;;| "for backward compatibility. Used currently by window mouse handler") (VARS (NBREAKS 0)) (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (PUTPROPS IL-ERROR-STUFF COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990)) NIL