(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "22-Oct-86 16:52:44" ("compiled on " {ERIS}SOURCES>CMLDEBUG.;1) "21-Oct-86 04:13:01" "COMPILE-FILEd" in "Xerox Lisp 21-Oct-86 ..." dated "21-Oct-86 04:48:43") (FILECREATED "22-Oct-86 16:47:54" {ERIS}SOURCES>CMLDEBUG.;1 75132 previous date%: "28-Sep-86 14:40:58" {ERIS}EVAL>CMLDEBUG.;20) (RPAQQ CMLDEBUGCOMS ((COMS (* ; " from HELPDL: error runtime") (FNS HELP PRINT-BACKTRACE SHOULDNT ERROR ERRORX INTERRUPT FAULTEVAL FAULTAPPLY OLDFAULT1 ERRORMESS ERRORMESS1) (INITVARS (HELPDEPTH 7) ( WBREAK) (NBREAKS 0) (BROKENFNS) (BREAKDELIMITER " ") (HELPTIME 1000) (HELPCLOCK) (NLSETQGAG T) (*MACROEXPAND-HOOK* (QUOTE CL:FUNCALL)) ( COMPILERMACROPROPS (QUOTE (DMACRO ALTOMACRO BYTEMACRO MACRO)))) (P (OR (AND (BOUNDP (QUOTE CLISPARRAY) ) CLISPARRAY) (SETQ CLISPARRAY (HASHARRAY 1000))) (OR (NEQ (QUOTE NOBIND) (GETTOPVAL (QUOTE HELPFLAG)) ) (SETTOPVAL (QUOTE HELPFLAG) T))) (DECLARE%: EVAL@COMPILE (ADDVARS (SYSSPECVARS HELPFLAG)))) (FNS BREAK1) (VARS (BREAKTTBL (COPYTERMTABLE (QUOTE ORIG)))) (COMS (* ; "from BREAK") (FNS VIRGINFN RESTORE BRKLASTPOS UNBREAK0 SMARTARGLIST PROCEED-FROM-BREAK PROCEED-WITH-DEFAULTS CREATE-PROCEED-KEYLIST TRACE STKPOZ STKPOZ1 STKPOZ2 UNBREAK PACK-IN- \SIMPLIFY.CL.ARGLIST RESTORENAMES)) (* ;; "") (FNS ATTACH-BACKTRACE-MENU CLOSE-DEBUGGER-WINDOW NEAR-BY-REGION STACK-EVAL) (FNS FIND-LEXICAL-ENVIRONMENT) (COMMANDS ?= EDIT @ BT BT! BTV BTV! CL:EVAL DBT DBT! OK PR RETURN REVERT STOP UB ^ VALUE) (PROP FILETYPE CMLDEBUG) (SPECIAL-FORMS DEBUGGER) (FUNCTIONS ENTER-DEBUGGER-P BREAK-FUNCTION DEBUGGER-LOOP) (VARS BAKTRACELST) (FNS WBREAK BACKTRACEITEMWINDOW \RELEASE-STACK-DATUM BKITEMSELECTEDFN REGIONNEXTTO PROCEED-USING-MENU CREATE-PROCEED-MENU) (VARIABLES TRACEREGION BREAKREGIONSPEC) (DECLARE%: DOCOPY DONTEVAL@LOAD (INITVARS (MaxBkMenuWidth 125) (MaxBkMenuHeight 300) (AUTOBACKTRACEFLG NIL) ( CLOSEBREAKWINDOWFLG T) (BACKTRACEFONT) (BreakMenu))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (RECORDS BKMENUITEM)) (ADDVARS (WINDOWUSERFORMS (WBREAK T)) (ENDOFWINDOWUSERFORMS (WBREAK NIL))) (FUNCTIONS INIT-TRACE-OUTPUT) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA UNBREAK TRACE) (NLAML BREAK1) (LAMA CREATE-PROCEED-MENU PROCEED-USING-MENU WBREAK STACK-EVAL ERRORX PRINT-BACKTRACE))))) HELP D1 (I 2 BRKTYPE I 1 MESS2 I 0 MESS1 F 0 *LAST-CONDITION*) ggog@Ahg ch (29 DEBUGGER-LOOP 23 MAKE-INTO-CONDITION) (20 DEBUG 12 SIMPLE-CONDITION 5 HELP 2 ERROR!) ( 9 "Help! ~A~A") PRINT-BACKTRACEA0001 D1 (L (0 X) F 0 *STANDARD-OUTPUT*) @P (4 PRINT) NIL () PRINT-BACKTRACE D1 (L (0 -args-) P 22 \PRIMOUT.OFD P 21 *PRINT-LENGTH* P 20 *PRINT-LEVEL* F 23 \PRIMOUT.OFD F 24 BREAKDELIMITER) eHkJdIg0HkKdJhHkNdMHk__OdOh_Hk__OdOh_Hk__OdOHk_ _O dOh_"ll W.O jI _$O$ _&dghagJkaJJlZ7agKkaJKl[9agGNl^7agOkaEOl_1agOkaDOl_0agGOl_4agO kaCO l_ /gh+O&gO&gO&dghl7O& l\h+OO$ O$ hiO"hdg ioO&W0 mO$ _$ddL (461 CL:VALUES 457 RELSTK 450 EQP 441 STKNTH 433 FORMAT 420 \BACKTRACE 407 \STACKARGPTR 402 \STACKARGPTR 386 CHCON1 176 STKNAME 168 STKNTH 163 OUTPUT) (416 PRINT-BACKTRACEA0001 370 CL:EVAL 362 APPLY 355 EVAL 345 \INTERPRETER 322 :PRINT-JUNK 303 :LINK 279 :OUTPUT 255 :PRINT-VARIABLES 238 :TEST 217 :TO 196 :FROM 182 *ENV* 20 PRINT-BACKTRACE) ( 426 "~S~A") SHOULDNT D1 (I 0 MESS) o@ (7 DEBUG) NIL ( 3 "Shouldn't happen: ~A") ERROR D1 (P 1 POS P 0 CONDITION I 2 NOBREAK I 1 MESS2 I 0 MESS1 F 2 HELPFLAG) Tl@A H B>Rg7`!gm YI klI I H H (81 ERRORX 76 ERROR! 71 ERRORMESS 67 SETERRORN 61 RELSTK 57 STKARG 47 STKNARGS 40 STKPOS 14 RAISE-SIGNAL 7 ERRM-TO-CONDITION) (35 ERRORSET 30 NLSETQGAG 21 BREAK!) () ERRORX D1 (L (0 -args-) P 3 PRINTMSG F 4 *LAST-CONDITION* F 5 HELPDEPTH) VekHhkalHglaIdg II Y IciU KIi JhdIh (83 DEBUGGER-LOOP 73 ERROR! 69 REPORT-CONDITION 61 ENTER-DEBUGGER-P 49 RAISE-SIGNAL 45 ERRM-TO-CONDITION 35 FAKE-TYPEP-FOR-CONDITIONS) (32 CONDITION 22 ERROR!) () INTERRUPT D1 (I 0 INTFN) h@ghd (10 DEBUGGER-LOOP) (4 INTERRUPT) () FAULTEVAL D1 (P 1 TEM2 P 0 TEM I 0 FAULTX F 2 CLISPARRAY F 3 DWIMFLG F 4 COMPILERMACROPROPS F 5 *MACROEXPAND-HOOK* F 6 LAMBDASPLST) v @Shg `@ Xdl