(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "27-Nov-86 02:37:07" ("compiled on " {ERIS}EVAL>DEBUGGER.;8) "25-Nov-86 00:46:57" "COMPILE-FILEd" in "Xerox Lisp 25-Nov-86 ..." dated "25-Nov-86 01:18:01") (FILECREATED "27-Nov-86 02:35:41" {ERIS}EVAL>DEBUGGER.;8 72537 changes to%: (COMMANDS "REVERT" "BT" "EVAL") (FNS \REALFRAMEP XCL::INTERESTING-FRAME-P BREAK1 VIRGINFN BAKTRACE DEBUGGER-EVAL ) (VARS DEBUGGERCOMS *DEBUGGER-ENTRY-POINTS*) (VARIABLES *SHORT-BACKTRACE-FILTER* XCL::*DEBUGGER-PROMPT* ) (FUNCTIONS ATTACH-BACKTRACE-MENU DEBUGGER FIND-DEBUGGER-ENTRY-FRAME) (SPECIAL-FORMS BREAK1) previous date%: "27-Nov-86 01:39:32" {ERIS}EVAL>DEBUGGER.;7) (RPAQQ DEBUGGERCOMS ((* ;;; "The Debugger") (VARIABLES *IN-THE-DEBUGGER* *SHORT-BACKTRACE-FILTER* BREAKREGIONSPEC *DEBUGGER-MENU* *DEBUGGER-MENU-ITEMS* XCL::*DEBUGGER-PROMPT* *DEBUGGER-TERMINAL-TABLE* ) (ADDVARS (CACHEDMENUS *DEBUGGER-MENU*) (* ; "for FONTSET") (FONTVARS (BACKTRACEFONT TINYFONT T))) (* ; "must appear early in the file") (FUNCTIONS DEBUGGER DEBUGGER-SELECTED DEBUGGER-SELECTION-HELP FIND-DEBUGGER-ENTRY-FRAME NEAR-BY-REGION PRINT-BACKTRACE ATTACH-BACKTRACE-MENU FIND-LEXICAL-ENVIRONMENT CLOSE-DEBUGGER-WINDOW EXIT-DEBUGGER BACKTRACE-ITEM-SELECTED REGION-NEXT-TO SIMPLE-REPORT-CONDITION STACK-FRAME-PROPERTIES STACK-FRAME-PROPERTY STACK-FRAME-VALUE-COMMAND) (FNS BAKTRACE BAKTRACE1) (INITVARS (AUTOBACKTRACEFLG)) (* ; " if T or BREAK means that debugger automatically adds backtrace") (COMMANDS "@" "BT" "BT!" "BTV" "BTV!" "DBT" "DBT!" "EVAL" "OK" "PB" "PR" "PROCEED" "RETRY" "RETURN" "REVERT" "STOP" "UB" "VALUE" "^" "?=") (FNS BAKTRACE CREATE-PROCEED-KEYLIST CREATE-PROCEED-MENU MAKE-FRAME-INSPECT-WINDOW PROCEED-FROM-BREAK PROCEED-USING-MENU \RELEASE-STACK-DATUM DEBUGGER-EVAL FIND-NAMED-STACK-POSITION FIND-DEBUGGER-STACK-FRAME FIND-STACK-FRAME RELEASE-DEBUGGER-WINDOW) (VARIABLES TRACEREGION) (COMS ( FUNCTIONS ENTER-DEBUGGER-P) (VARS *DEBUGGER-ENTRY-POINTS* BAKTRACELST) (DECLARE%: DOCOPY DONTEVAL@LOAD (INITVARS (MaxBkMenuWidth 125) (AUTOBACKTRACEFLG NIL) (BACKTRACEFONT))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (RECORDS BKMENUITEM))) (COMS (FNS HELP SHOULDNT ERROR ERRORX INTERRUPT FAULTEVAL FAULTAPPLY OLDFAULT1 ERRORMESS ERRORMESS1 SMARTARGLIST PACK-IN- \SIMPLIFY.CL.ARGLIST RESTORENAMES WBREAK) ( INITVARS (HELPDEPTH 7) (WBREAK) (BREAKDELIMITER " ") (HELPTIME 1000) (HELPCLOCK) (NLSETQGAG T) (*MACROEXPAND-HOOK* (QUOTE CL:FUNCALL)) ( COMPILERMACROPROPS (QUOTE (DMACRO ALTOMACRO BYTEMACRO MACRO)))) (ADDVARS (WINDOWUSERFORMS (WBREAK T)) (ENDOFWINDOWUSERFORMS (WBREAK NIL))) (FNS XCL::INTERESTING-FRAME-P) (* "for backward compatibility. Used currently by window mouse handler") (VARS (NBREAKS 0))) (P ( CL:PROCLAIM (QUOTE (CL:SPECIAL BRKEXP BRKTYPE BRKCOND BRKPOS)))) (PROP FILETYPE DEBUGGER) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA WBREAK ERRORX PROCEED-USING-MENU CREATE-PROCEED-MENU))))) (CL:PROCLAIM (QUOTE (CL:SPECIAL *IN-THE-DEBUGGER*))) (OR (BOUNDP (QUOTE *IN-THE-DEBUGGER*)) (SETQ *IN-THE-DEBUGGER* NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *SHORT-BACKTRACE-FILTER*))) (OR (BOUNDP (QUOTE *SHORT-BACKTRACE-FILTER*)) (SETQ *SHORT-BACKTRACE-FILTER* (QUOTE XCL::INTERESTING-FRAME-P))) (LET* ((A3270 (QUOTE *SHORT-BACKTRACE-FILTER*)) (A3271 (QUOTE CL::VARIABLE)) (A3272 "Used to determine what BT sees, applied to each stack frame")) (SET-DOCUMENTATION A3270 A3271 A3272)) (CL:PROCLAIM (QUOTE (GLOBAL BREAKREGIONSPEC))) (OR (BOUNDP (QUOTE BREAKREGIONSPEC)) (SETQ BREAKREGIONSPEC (CONS 17 (CONS -120 (CONS 400 (CONS 120 NIL )))))) (CL:PROCLAIM (QUOTE (CL:SPECIAL *DEBUGGER-MENU*))) (OR (BOUNDP (QUOTE *DEBUGGER-MENU*)) (SETQ *DEBUGGER-MENU* NIL)) (LET* ((A3273 (QUOTE *DEBUGGER-MENU*)) (A3274 (QUOTE CL::VARIABLE)) (A3275 "Menu for debugger windows" )) (SET-DOCUMENTATION A3273 A3274 A3275)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *DEBUGGER-MENU-ITEMS*))) (SETQ *DEBUGGER-MENU-ITEMS* (QUOTE ("EVAL" "EDIT" "REVERT" "^" "PROCEED" "OK" "BT" "BT!" "?="))) (LET* ((A3276 (QUOTE *DEBUGGER-MENU-ITEMS*)) (A3277 (QUOTE CL::VARIABLE)) (A3278 "Elements of debugger menu")) (SET-DOCUMENTATION A3276 A3277 A3278)) (CL:PROCLAIM (QUOTE (CL:SPECIAL XCL::*DEBUGGER-PROMPT*))) (OR (BOUNDP (QUOTE XCL::*DEBUGGER-PROMPT*)) (SETQ XCL::*DEBUGGER-PROMPT* "(debug)")) (LET* ((A3279 (QUOTE XCL::*DEBUGGER-PROMPT*)) (A3280 (QUOTE CL::VARIABLE)) (A3281 "Prompt used by debugger")) (SET-DOCUMENTATION A3279 A3280 A3281)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *DEBUGGER-TERMINAL-TABLE*))) (OR (BOUNDP (QUOTE *DEBUGGER-TERMINAL-TABLE*)) (SETQ *DEBUGGER-TERMINAL-TABLE* (COPYTERMTABLE NIL))) (LET* ((A3282 (QUOTE *DEBUGGER-TERMINAL-TABLE*)) (A3283 (QUOTE CL::VARIABLE)) (A3284 "Terminal table for use in debugger")) (SET-DOCUMENTATION A3282 A3283 A3284)) (ADDTOVAR CACHEDMENUS *DEBUGGER-MENU*) (ADDTOVAR FONTVARS (BACKTRACEFONT TINYFONT T)) XCL::DEBUGGERA0001A0002A0003A0004 D1 (L (1 ENV 0 INPUT) P 0 *IN-THE-DEBUGGER*) @A (7 EVAL-INPUT) NIL () XCL::DEBUGGERA0001A0002A0003 D1 (F 0 BRKENV F 1 LASTPOS F 2 XCL::*DEBUGGER-PROMPT*) &g``hgPQ gRgg (35 EXEC 21 FIND-LEXICAL-ENVIRONMENT) (31 XCL::DEBUGGERA0001A0002A0003A0004 28 :FUNCTION 24 :PROMPT 14 :ENVIRONMENT 8 *EXEC-COMMAND-TABLE* 5 *DEBUGGER-COMMAND-TABLE* 2 :COMMAND-TABLES) () XCL::DEBUGGERA0001A0002 D1 (NAME ERRORSET L (0 NIL) F 1 BRKCOND F 2 DEBUGGER-WINDOW F 3 LASTPOS F 4 RESETVARSLST F 5 BRKPOS F 6 AUTOBACKTRACEFLG F 7 \TERM.OFD F 8 WBREAK F 9 BRKFN F 10 DEFAULTTTYREGION F 11 BRKFNP F 12 RESETY)  UjU cjc c gUhhhTcgShhhTcW9W tQn` o` o` `g ` o` `g o` o` ` `WW >ghg HghHhi W ` lmldd Wo cgRhhhTcRgU RgS RgQH H  Rgg Rgg Rg` R Qi QS QlSQ WioW QQcQ R2VgVdg𑿈hQihVgVghi gg ci(509 \CATCH-FUNCALL 499 ATTACH-BACKTRACE-MENU 448 CL:PRINC 429 CL:FORMAT 415 SETSTKNAME 391 STKNAME 380 CLEARBUF 370 TTYDISPLAYSTREAM 365 PUTWINDOWPROP 354 WINDOWADDPROP 343 PUTWINDOWPROP 332 PUTWINDOWPROP 328 CL:GET-OUTPUT-STREAM-STRING 323 SIMPLE-REPORT-CONDITION 315 CL:MAKE-STRING-OUTPUT-STREAM 307 PUTWINDOWPROP 298 PUTWINDOWPROP 271 CREATEW 261 NEAR-BY-REGION 258 CREATEREGION 246 REGIONP 238 \INSUREWINDOW 235 WFROMDS 228 ENVAPPLY 212 STKPOS 200 HASTTYWINDOWP 193 IMAGESTREAMP 175 TERPRI 168 PRIN1 157 PRIN1 146 PUTWINDOWPROP 133 HASTTYWINDOWP 129 PRIN1 118 PRIN1 112 PROCESSPROP 102 PRIN1 91 PRIN1 80 TERPRI 66 IMAGESTREAMP 20 STKNTH 15 FIND-DEBUGGER-ENTRY-FRAME 6 STKNTH) (506 XCL::DEBUGGERA0001A0002A0003 503 SI::DEBUGGER-EXIT 491 ALWAYS! 485 BT! 475 CL:ERROR 464 ALWAYS 456 ALWAYS! 439 SI::BREAKPOINT 434 SI::BREAKPOINT 410 SI::REVERT 398 SI::REVERT 385 SI::REVERT 375 CL:ERROR 362 \RUNNING.PROCESS 359 PROCESS 351 CLOSE-DEBUGGER-WINDOW 348 CLOSEFN 340 DEBUGGER-SELECTED 337 BUTTONEVENTFN 312 TITLE 303 LASTPOS 294 STACK-POSITION 277 RELEASE-DEBUGGER-WINDOW 243 BREAKREGIONSPEC 220 TTYDISPLAYSTREAM 209 DEBUGGER 205 EXEC 179 PROMPTWINDOW 172 PROMPTWINDOW 165 PROMPTWINDOW 154 PROMPTWINDOW 143 PAGEFULLFN 140 PROMPTWINDOW 126 PROMPTWINDOW 115 PROMPTWINDOW 109 NAME 106 \RUNNING.PROCESS 99 PROMPTWINDOW 88 PROMPTWINDOW 77 PROMPTWINDOW 72 STORAGE-CONDITION 42 RELSTK 26 RELSTK) ( 424 "In ~S:~&" 268 "Debugger Window" 162 "Using PROMPTWINDOW as TTY window." 151 "which does not have a TTY window." 123 "' " 96 "running in process '" 85 "Ran out of space ") XCL::DEBUGGERA0001 D1 (P 1 RESETY P 0 LISPXHIST F 3 BRKVALUES F 4 *DEBUGGER-TERMINAL-TABLE* F 5 LISPXHIST F 6 RESETVARSLST) ~T U!Vog hgZ JSdiS dgdgSgShi gSSSSid (123 HELP 119 ENVAPPLY 90 RETAPPLY 65 ERROR! 54 CL:VALUES-LIST 43 CL:VALUES 34 ERROR! 28 RESETRESTORE 18 XCL::DEBUGGERA0001A0002 3 SETTERMTABLE) (94 SI::REVERT 81 CL:VALUES-LIST 70 RETURN 59 ERROR! 24 ERROR 15 INTERNAL) ( 12 (XCL::DEBUGGERA0001A0002)) DEBUGGER D1 (L (0 -args-) P 33 XCL:*CURRENT-PROFILE* P 32 BRKVALUES P 31 LASTPOS P 30 DEBUGGER-WINDOW P 29 \INBQUOTE P 28 !VALUE P 27 \INTERRUPTABLE P 26 \PRIMTERMSA P 25 \PRIMTERMTABLE P 24 \CURRENTDISPLAYLINE P 23 \#DISPLAYLINES P 22 \PRIMOUT.OFD P 21 \PRIMIN.OFD P 20 \TERM.OFD P 19 \LINEBUF.OFD P 18 *IN-THE-DEBUGGER* P 16 BRKFN P 13 BRKFNP P 12 BRKPOS P 9 BRKCOND P 6 BRKENV P 3 BRKEXP F 34 \LINEBUF.OFD F 35 \TERM.OFD F 36 *IN-THE-DEBUGGER* F 37 *NOT-YET-EVALUATED* F 38 \#DISPLAYLINES F 39 XCL:*CURRENT-PROFILE* F 40 \PRIMTERMTABLE F 41 \PRIMTERMSA F 42 XCL:*DEFAULT-PROFILE*) W" eHkJdIhHkMdLhHk__OdOh_Hk__OdOh_i_Hk__OdOh__ WHiWDWFWDWFWLjWPWRiWJL O"ioi i oi id i agJkaSJlZBagMkaPMl]?agOkaOOl_;agOkaNOl_:agOkaSOl_=g WNWT!OB OB _BOB OB g (340 \DO.PROGV 334 XCL::PROFILE-VALUES 329 XCL::PROFILE-VARIABLES 321 XCL:FIND-PROFILE 315 CL:STRINGP 301 BOUNDP 179 PRINT 175 EVAL 172 READ 166 PRIN1 157 TERPRI 152 PRIN1) (337 XCL::DEBUGGERA0001 298 XCL:*CURRENT-PROFILE* 275 :AT 251 :STACK-POSITION 227 :CONDITION 206 :ENVIRONMENT 185 :FORM) ( 162 "eval:" 148 "Call to debugger while in the debugger, entering read-eval-print-loop") DEBUGGER-SELECTED D1 (L (0 -args-) F 10 *DEBUGGER-MENU* F 11 *DEBUGGER-MENU-ITEMS*) eka1Hl2 NdM\OW.`dWdgdg jdndhdK c`kjgW Z\ Ldo &a_OOh__Nk^O&_o Ii Lo I i J l h(182 BKSYSCHARCODE 177 BKSYSBUF 173 CLEARBUF 168 ATTACH-BACKTRACE-MENU 163 STRING.EQUAL 154 ATTACH-BACKTRACE-MENU 148 STRING.EQUAL 109 PROCEED-USING-MENU 103 STRING.EQUAL 92 STRING.EQUAL 87 MENU) (76 LASTMOUSEBUTTONS 50 CLRPROMPT 43 DEBUGGER-SELECTION-HELP 32 |MENUTYPE#|) ( 160 "BT!" 145 "BT" 100 "PROCEED") DEBUGGER-SELECTION-HELP D1 (L (0 -args-)) CekaHl2KdJL` Ig ` aM Nh]Kk[N&(43 PRIN1 37 CL:DOCUMENTATION 30 TERPRI) (40 PROMPTWINDOW 34 COMMANDS 27 PROMPTWINDOW) () FIND-DEBUGGER-ENTRY-FRAME D1 (L (0 -args-) F 4 *DEBUGGER-ENTRY-POINTS*) JekHgka!mIhI Y ZTJ KJgJdg𓿰Jg [I(66 CL:SPECIAL-FORM-P 37 GENSYM? 28 STKNAME 24 REALSTKNTH) (63 BREAK1 54 EVAL-PROGN 46 CL:EVAL 10 DEBUGGER) () NEAR-BY-REGION D1 (L (1 REGIONTEMPLATE 0 REGION) F 2 \CURSORDESTWIDTH F 3 \CURSORDESTHEIGHT) -AA@ARH @ASI HIh(35 CL:MOD 22 CL:MOD) NIL () XCL::PRINT-BACKTRACEA0001 D1 (L (0 X) F 0 TEST) @kPhNIL NIL () PRINT-BACKTRACE D1 (L (0 -args-) P 21 *PRINT-LENGTH* P 20 *PRINT-LEVEL* P 7 TEST) xeHkJdIg0HkKdJhHkNdMh_Hk__OdOh_Hk__OdOh_Hk__OdOg_ Hk_$_"O$dO"h_&ll ILOghOkagJkaRJlZ?agKkaRKl[AagNkaLNl^;agOkaMOl_9agOkaLOl_8agOkaMOl_7agO$kaLO$l_$8jO&ljO gljlO (373 BAKTRACE) (356 :ALINK 323 :PRINT-JUNK 299 :LINK 275 :OUTPUT 251 :PRINT-VARIABLES 230 :TEST 209 :TO 188 :FROM 172 XCL::PRINT-BACKTRACEA0001 127 :ALINK 20 PRINT-BACKTRACE) () ATTACH-BACKTRACE-MENU D1 (L (1 SKIP 0 TTYWINDOW) P 11 *PRINT-ARRAY* P 10 *PRINT-CIRCLE* P 9 *PRINT-PRETTY* P 5 *PRINT-RADIX* P 4 *PRINT-GENSYM* P 3 *PRINT-ESCAPE* P 2 *PRINT-LENGTH* P 1 *PRINT-LEVEL* F 21 MaxBkMenuWidth F 22 \TERM.OFD F 23 *SHORT-BACKTRACE-FILTER*) @W, bj@g llidl @ `jAH _(AHkAdiW..O(dgkHO( O h_&O$O&h_$_"mHd XO"_dOdgdjd`dkdg dgjdndh_dO _@ h__h_`@ O dW*W* Ng _ OOjOg O  h@O N[gYg hO Og O O&&_$O k_ _g OTgOMghg Og@ . `(421 PUTWINDOWPROP 416 \INSUREWINDOW 406 ATTACHWINDOW 370 GETWINDOWUSERPROP 339 CLEARW 333 PUTWINDOWPROP 324 DELETEMENU 317 GETWINDOWUSERPROP 298 \INSUREWINDOW 290 ADDMENU 280 CHECK/MENU/IMAGE 275 GETWINDOWPROP 258 CREATEW 255 REGION-NEXT-TO 244 WIDTHIFWINDOW 228 CHECK/MENU/IMAGE 221 \INSUREWINDOW 199 ATTACHEDWINDOWS 118 STKNTH 86 CL:PRIN1-TO-STRING 83 STKARG 49 STKNAME 32 \INSUREWINDOW 20 STKNTH 17 GETWINDOWPROP 6 WFROMDS) (412 PROCESS 402 LOCALCLOSE 398 LEFT 387 BACKTRACE-ITEM-SELECTED 382 MENU 367 MENU 330 EXTENT 314 MENU 309 RIGHT 283 BITMAP 272 HEIGHT 252 LEFT 231 BITMAP 170 DEFAULTMENUHELDFN 163 CLRPROMPT 151 BACKTRACEFONT 139 BACKTRACE-ITEM-SELECTED 73 CL:EVAL 40 |MENUTYPE#| 14 STACK-POSITION) () FIND-LEXICAL-ENVIRONMENT D1 (L (0 -args-) F 3 LASTPOS) 'ekHSkaghI Z lJ J (35 RELSTK 31 STKARG 22 STKPOS) (17 CL:EVAL) () CLOSE-DEBUGGER-WINDOW D1 (L (0 W)) K@ .H 9@H .Hd`@g g @g Hg (72 BLOCK 69 PROCESS.APPLY 62 PUTWINDOWPROP 53 PROCESS.EVALV 46 EXIT-DEBUGGER 43 PUTWINDOWPROP 25 WFROMDS 22 PROCESS.TTY 15 PROCESSP 11 \CARET.DOWN 3 \INSUREWINDOW) (66 EXIT-DEBUGGER 59 PROCESS 50 *IN-THE-DEBUGGER* 40 PROCESS 33 \RUNNING.PROCESS) () EXIT-DEBUGGER D1 (F 0 BRKVALUES) ocgh (15 \DO-THROW 12 \MVLIST) (8 SI::DEBUGGER-EXIT) ( 3 (ERROR!)) BACKTRACE-ITEM-SELECTEDA0001A0002 D1 (L (0 POS)) @i (4 STACK-FRAME-PROPERTIES) NIL () BACKTRACE-ITEM-SELECTEDA0001A0003 D1 (L (1 WHICHSPEC 0 FRAMESPEC)) Ad@ (11 STKARG) NIL () BACKTRACE-ITEM-SELECTEDA0001A0004 D1 (L (2 NEWVALUE 1 WHICHSPEC 0 FRAMESPEC)) Adh@B (12 SETSTKARG) NIL () BACKTRACE-ITEM-SELECTEDA0001 D1 (NAME ERRORSET L (0 NIL) F 6 MENU F 7 ITEM F 8 RESETVARSLST F 9 BUTTON F 10 RESETY) WQV"WV g Yg jHJ Ig ]jKM WV Wg%gKhhhWcK KI fV KggghghK o hI g \g 1LIL I gghg Lgg hci(199 WINDOWADDPROP 188 ATTACHWINDOW 167 \INSUREWINDOW 159 \INSUREWINDOW 151 GETWINDOWUSERPROP 144 INSPECTW.CREATE 137 MAKE-FRAME-INSPECT-WINDOW 132 CONCAT 125 STKNAME 103 MENUDESELECT 97 INSPECT/AS/FUNCTION 92 STKNAME 62 MENUSELECT 55 STKNTH 47 GETWINDOWUSERPROP 39 STKNTH 31 GETWINDOWUSERPROP 24 GETWINDOWUSERPROP 18 WFROMMENU) (196 DETACHWINDOW 193 CLOSEFN 184 LOCALCLOSE 180 BOTTOM 176 TOP 148 MAINWINDOW 140 STACK-FRAME-PROPERTY 120 STACK-FRAME-VALUE-COMMAND 116 BACKTRACE-ITEM-SELECTEDA0001A0004 113 BACKTRACE-ITEM-SELECTEDA0001A0003 110 BACKTRACE-ITEM-SELECTEDA0001A0002 74 RELSTK 68 MIDDLE 44 LASTPOS 28 STACK-POSITION 21 MAINWINDOW 10 MENU) ( 129 " Frame") BACKTRACE-ITEM-SELECTED D1 (P 1 RESETY P 0 LISPXHIST I 2 BUTTON I 1 MENU I 0 ITEM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(29 ERROR! 24 RESETRESTORE 14 BACKTRACE-ITEM-SELECTEDA0001) (20 ERROR 11 INTERNAL) ( 8 (BACKTRACE-ITEM-SELECTEDA0001)) REGION-NEXT-TO D1 (L (4 INTERNALFLG 3 WHERE 2 HEIGHT 1 WIDTH 0 REGION) F 6 \CURSORDESTHEIGHT F 7 \CURSORDESTWIDTH) `@Z@[@\@]ALbBMbCdg:@@kdBV Dj@ABgibbbbbkԹJg+jKBYDVBչJi@ABgibbbbbsCg+jJAX4DWAհ+@ABgibbbbbCJLXAkWDjKMBdjjHIAB @ABgibbbbb(227 CREATEREGION) (234 LEFT 172 RIGHT 147 LEFT 124 TOP 99 BOTTOM 71 BOTTOM 37 TOP) () SIMPLE-REPORT-CONDITION D1 (L (1 STREAM 0 CONDITION)) @d@ A (15 CL:PRINC 11 CL:TYPE-OF) (4 SIMPLE-CONDITION) () STACK-FRAME-PROPERTIES D1 (L (2 EMBEDDEDCALLFLG 1 LOTSFLG 0 POS) F 13 CL:LAMBDA-LIST-KEYWORDS)  @i @ @ o4Jdld J JhIkB OO^MM\dWEO@ OOgL*oOk Oh_OOh__Ok_ _O&_OHjIk3 OOSKO@K 1O@ \A%oO \Oh_OOh__Ok_Ok_O&_O^oN (259 \APPEND2 195 CONCAT 180 STKARGNAME 171 STKARG 130 STRING 98 CONCAT 72 STKARGNAME 36 SMARTARGLIST 30 CCODEP 12 STKNAME 8 STKNARGS 4 STKNARGS) (82 &OPTIONAL) ( 254 ("locals") 190 "local " 91 "arg " 16 "no such value") STACK-FRAME-PROPERTY D1 (L (1 DATUM 0 PROP)) @ A@h@NIL NIL () STACK-FRAME-VALUE-COMMAND D1 (L (3 WINDOW 2 DATUM 1 PROP 0 VALUE)) A @ABC Al@BC (28 INSPECT/AS/FUNCTION 10 DEFAULT.INSPECTW.VALUECOMMANDFN) NIL () BAKTRACE D1 (P 9 SKIPFN P 8 Z P 7 Y P 6 X P 5 FN P 4 PLVLFILEFLG P 3 N P 2 POS P 1 *PRINT-LENGTH* P 0 *PRINT-LEVEL* I 4 FILE I 3 FLAGS I 2 SKIPFNS I 1 EPOS I 0 IPOS F 10 CLEARSTKLST F 11 BREAKDELIMITER) ll j@ jiEDibWiJWcJ BBd MkOh6CjK@J ZdClDg MdgkJ Di WD Kk[@J ZdA J D h(139 TERPRI 134 RELSTK 128 EQP 121 STKNTH 111 PRIN1 104 PRIN2 99 STKARG 85 BACKTRACE 71 STKNTH 35 STKNAME 8 STKNTH) (91 CL:EVAL 81 SHOWPRINT) () BAKTRACE1 D1 (P 1 X P 0 TEM I 3 POS I 2 IPOS I 1 N I 0 LST) p@AAkBC b@XC AkbGC AkbHdgAkb*HdIdgiABC dbh@b(91 BAKTRACE1 39 DUMMYFRAMEP 25 STKNAME 14 STKNTH) (80 - 53 &) () (RPAQ? AUTOBACKTRACEFLG) break-@ D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @AioHI (25 CL:VALUES 22 CL:FORMAT 19 STKNAME 16 FIND-DEBUGGER-STACK-FRAME) NIL ( 11 "@ = ~S~%%") (PUTHASH (QUOTE "@") (QUOTE ((&REST PLACE &ENVIRONMENT ENV) break-@ :EVAL "Set debugger stack pointer to location specified by PLACE (or default)")) *DEBUGGER-COMMAND-TABLE*) break-BT D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 0 LASTPOS) gPgg (15 CL:VALUES 12 PRINT-BACKTRACE) (9 XCL::INTERESTING-FRAME-P 6 :TEST 2 :FROM) () (PUTHASH (QUOTE "BT") (QUOTE (NIL break-BT :EVAL "Print backtrace of external frames")) *DEBUGGER-COMMAND-TABLE*) break-BT! D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 0 LASTPOS) gPgh (13 CL:VALUES 10 PRINT-BACKTRACE) (6 :TEST 2 :FROM) () (PUTHASH (QUOTE "BT!") (QUOTE (NIL break-BT! :EVAL "Print backtrace of all frames")) *DEBUGGER-COMMAND-TABLE*) break-BTV D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 0 LASTPOS) gPgi (13 CL:VALUES 10 PRINT-BACKTRACE) (6 :PRINT-VARIABLES 2 :FROM) () (PUTHASH (QUOTE "BTV") (QUOTE (NIL break-BTV :EVAL "Print backtrace of frames and special bindings")) *DEBUGGER-COMMAND-TABLE*) break-BTV! D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 0 LASTPOS) gPgigi (18 CL:VALUES 15 PRINT-BACKTRACE) (10 :PRINT-JUNK 6 :PRINT-VARIABLES 2 :FROM) () (PUTHASH (QUOTE "BTV!") (QUOTE (NIL break-BTV! :EVAL "Print backtrace of all frame information")) *DEBUGGER-COMMAND-TABLE*) break-DBT D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) hi (7 CL:VALUES 4 ATTACH-BACKTRACE-MENU) NIL () (PUTHASH (QUOTE "DBT") (QUOTE (NIL break-DBT :EVAL NIL)) *DEBUGGER-COMMAND-TABLE*) break-DBT! D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) (5 CL:VALUES 2 ATTACH-BACKTRACE-MENU) NIL () (PUTHASH (QUOTE "DBT!") (QUOTE (NIL break-DBT! :EVAL NIL)) *DEBUGGER-COMMAND-TABLE*) break-EVAL D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 2 BRKENV F 3 BRKEXP F 4 BRKVALUES) $@HdHIR iSR c (33 CL:VALUES-LIST 26 \MVLIST 23 DEBUGGER-EVAL 16 DEBUGGER-EVAL) NIL () (PUTHASH (QUOTE "EVAL") (QUOTE ((&OPTIONAL EXPRESSION) break-EVAL :EVAL "Evaluate expression in debugged context")) *DEBUGGER-COMMAND-TABLE*) break-OK D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 0 BRKVALUES F 1 BRKCOND F 2 BRKEXP F 3 BRKENV) (QPiRS cgh (37 PROCEED-FROM-BREAK 34 PROCEED 30 \DO-THROW 27 \MVLIST 16 \MVLIST 13 DEBUGGER-EVAL) (23 SI::DEBUGGER-EXIT 3 SI::BREAKPOINT) () (PUTHASH (QUOTE "OK") (QUOTE (NIL break-OK :QUIET "Exit/proceed from debugger")) *DEBUGGER-COMMAND-TABLE*) exec-PB D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @ (8 CL:VALUES 5 PRINTBINDINGS) NIL () (PUTHASH (QUOTE "PB") (QUOTE ((VARIABLE) exec-PB :EVAL "Show where on the stack VARIABLE is (special) bound")) *EXEC-COMMAND-TABLE*) break-PR D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) (5 CL:VALUES 2 PROCEED-FROM-BREAK) NIL () (PUTHASH (QUOTE "PR") (QUOTE (NIL break-PR :EVAL "Proceed")) *DEBUGGER-COMMAND-TABLE*) break-PROCEED D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) (5 CL:VALUES 2 PROCEED-FROM-BREAK) NIL () (PUTHASH (QUOTE "PROCEED") (QUOTE (NIL break-PROCEED :EVAL "Proceed")) *DEBUGGER-COMMAND-TABLE*) exec-RETRY D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 1 HELPFLAG F 2 LISPXHISTORY) @gcHoR (23 EVENTS-INPUT 20 FIND-HISTORY-EVENTS) (7 BREAK!) ( 16 (-1)) (PUTHASH (QUOTE "RETRY") (QUOTE ((&REST EVENT-SPEC) exec-RETRY :HISTORY "Re-execute specified events with debugging")) *EXEC-COMMAND-TABLE*) break-RETURN D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 2 BRKPOS F 3 BRKVALUES) ,@dAgHI jR hcgh (41 \DO-THROW 38 \MVLIST 25 STKNTH 20 \MVLIST 17 DEBUGGER-EVAL) (34 SI::DEBUGGER-EXIT 12 RETURN) () (PUTHASH (QUOTE "RETURN") (QUOTE ((&OPTIONAL EXPRESSION &ENVIRONMENT ENV) break-RETURN :EVAL "Return value from debugger")) *DEBUGGER-COMMAND-TABLE*) break-REVERT D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 3 LASTPOS F 4 *TERMINAL-IO* F 5 BRKVALUES) @!AHHI S ZgTgl gl gighghglgl gS jS gggggggJhggJhhhhggoggJhhhhhc gh (168 \DO-THROW 165 \MVLIST 71 STKNTH 66 STKARGS 59 WRITE 18 STKNAME 13 FIND-DEBUGGER-STACK-FRAME) (161 SI::DEBUGGER-EXIT 132 QUOTE 129 :FUNCTION 122 MAKE-CONDITION 119 :CONDITION 102 QUOTE 99 STKARGS 92 QUOTE 89 CL:APPLY 86 QUOTE 83 :FORM 80 DEBUGGER 77 NOBIND 74 LAMBDA 62 SI::REVERT 53 :LENGTH 48 :LEVEL 44 :PRETTY 40 :CIRCLE 36 :ESCAPE 31 :BASE 26 :RADIX 22 :STREAM) ( 126 (QUOTE SI::REVERT)) (PUTHASH (QUOTE "REVERT") (QUOTE ((&REST PLACE &ENVIRONMENT ENV) break-REVERT :EVAL NIL)) *DEBUGGER-COMMAND-TABLE*) break-STOP D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 0 BRKVALUES) ocgh (15 \DO-THROW 12 \MVLIST) (8 SI::DEBUGGER-EXIT) ( 3 (ERROR!)) (PUTHASH (QUOTE "STOP") (QUOTE (NIL break-STOP :QUIET "Exit this debugger level")) *DEBUGGER-COMMAND-TABLE*) break-UB D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 1 BRKFN) @QgHh (17 EVAL) (10 UNBREAK) () (PUTHASH (QUOTE "UB") (QUOTE ((&OPTIONAL FN) break-UB :EVAL "Unbreak function with breakpoint")) *DEBUGGER-COMMAND-TABLE*) break-VALUE D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 0 BRKVALUES) Pio  (18 CL:VALUES-LIST 13 CL:VALUES 10 CL:FORMAT) NIL ( 7 "Not yet evaluated~&") (PUTHASH (QUOTE "VALUE") (QUOTE (NIL break-VALUE :QUIET "Show value from previous evaluation of debug expression")) *DEBUGGER-COMMAND-TABLE*) break-^ D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 0 BRKVALUES) ocgh (15 \DO-THROW 12 \MVLIST) (8 SI::DEBUGGER-EXIT) ( 3 (ERROR!)) (PUTHASH (QUOTE "^") (QUOTE (NIL break-^ :QUIET "Abort out of debugger")) *DEBUGGER-COMMAND-TABLE*) break-?= D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 0 LASTPOS) P i P ij (19 CL:VALUES 16 PRINT-ARGLIST 11 STKARGS 7 SMARTARGLIST 3 STKNAME) NIL () (PUTHASH (QUOTE "?=") (QUOTE (NIL break-?= :EVAL "Show arguments")) *DEBUGGER-COMMAND-TABLE*) BAKTRACE D1 (P 9 SKIPFN P 8 Z P 7 Y P 6 X P 5 FN P 4 PLVLFILEFLG P 3 N P 2 POS P 1 *PRINT-LENGTH* P 0 *PRINT-LEVEL* I 4 FILE I 3 FLAGS I 2 SKIPFNS I 1 EPOS I 0 IPOS F 10 CLEARSTKLST F 11 BREAKDELIMITER) ll j@ jiEDibWiJWcJ BBd MkOh6CjK@J ZdClDg MdgkJ Di WD Kk[@J ZdA J D h(139 TERPRI 134 RELSTK 128 EQP 121 STKNTH 111 PRIN1 104 PRIN2 99 STKARG 85 BACKTRACE 71 STKNTH 35 STKNAME 8 STKNTH) (91 CL:EVAL 81 SHOWPRINT) () CREATE-PROCEED-KEYLIST D1 (P 10 KEYLIST P 9 MESSAGE P 8 CASE P 4 I P 0 CASES I 0 CONDITION) @ !HdkR KM O oJIO_ _LOgigLoO giggogOhhh_NOh^KLkԼO&(69 CONCAT 46 CL:PRINC-TO-STRING 28 LAST 3 COMPUTE-PROCEED-CASES) (86 QUOTE 79 PROGN 76 RETURN 72 CONFIRMFLG 59 EXPLAINSTRING 55 NOECHOFLG) ( 83 (TERPRI T) 64 " - " 33 (("N" "No - don't proceed " NOECHOFLG T CONFIRMFLG T AUTOCONFIRMFLG T RETURN (TERPRI T)))) CREATE-PROCEED-MENUA0002 D1 (L (0 CASE)) @ @h(3 CL:PRINC-TO-STRING) NIL () CREATE-PROCEED-MENU D1 (L (0 CONDITION)) D@ !H:`dogH dIdg dgjdndhdJ (28 CL:MAPCAR 3 COMPUTE-PROCEED-CASES) (45 DEFAULTMENUHELDFN 38 CLRPROMPT 24 CREATE-PROCEED-MENUA0002 12 |MENUTYPE#|) ( 18 "Ways to proceed...") MAKE-FRAME-INSPECT-WINDOWA0001 D1 (I 0 W) @ @g g(10 PUTWINDOWPROP 3 \RELEASE-STACK-DATUM) (13 ; 7 SELECTABLEITEMS) () MAKE-FRAME-INSPECT-WINDOW D1 (P 3 ATW P 1 BTWINDOW P 0 TTYREGION I 0 TTYWINDOW) o @ JLhYF@ Xhlg o Ygi Igo Ig@ . Iggi I[g K KJZ(100 \RELEASE-STACK-DATUM 95 GETWINDOWUSERPROP 85 WINDOWADDPROP 73 PUTWINDOWPROP 68 \INSUREWINDOW 59 PUTWINDOWPROP 47 PUTWINDOWPROP 39 CREATEW 32 REGION-NEXT-TO 22 WINDOWREGION 6 ATTACHEDWINDOWS) (92 FRAME-INSPECT 81 MAKE-FRAME-INSPECT-WINDOWA0001 78 CLOSEFN 64 PROCESS 52 MAXSIZE 43 FRAME-INSPECT 29 TOP) ( 56 (300 . 150) 36 "Back Trace Frame Window") PROCEED-FROM-BREAK D1 (P 1 CASE P 0 KEYS F 2 BRKCOND F 3 *DEBUG-IO*) 5R H So hdo hdoHi IdR (50 INVOKE-PROCEED-CASE 40 ASKUSER 27 ASKUSEREXPLAIN 17 CL:FORMAT 3 CREATE-PROCEED-KEYLIST) NIL ( 34 "Proceed how? " 24 " " 14 "~&No proceed cases enabled.~%%") PROCEED-USING-MENU D1 (F 0 BRKCOND F 1 *DEBUG-IO*) P Qo  dP (23 INVOKE-PROCEED-CASE 17 MENU 13 CL:FORMAT 3 CREATE-PROCEED-MENU) NIL ( 10 "~&No proceed cases enabled.~%%") \RELEASE-STACK-DATUM D1 (P 0 DT I 0 W) !@g Hd H gH (30 CL:MAPC 17 RELSTK 6 GETWINDOWUSERPROP) (26 RELSTK 3 DATUM) () DEBUGGER-EVAL D1 (I 1 ENV I 0 EXP F 0 XCL::*EVAL-FUNCTION*) P@Ahmg hi (19 ENVAPPLY 13 STKNTH) (10 DEBUGGER) () FIND-NAMED-STACK-POSITIONA0001 D1 (I 0 FN F 0 BRKPAT) @PPP (14 SKOR0) NIL () FIND-NAMED-STACK-POSITION D1 (P 1 BRKPAT P 0 TEM I 2 LSTPOS I 1 N I 0 FN F 2 DWIMFLG F 3 NOSPELLFLG) [@AB XB HR8Si3@o gB Xgi Hi B HB @oi h(87 ERROR 77 RELSTK 69 RELSTK 64 PRINT 57 PRIN1 46 SEARCHPDL 38 EDITFPAT 35 CONCAT 14 RELSTK 8 STKPOS) (53 = 42 FIND-NAMED-STACK-POSITIONA0001) ( 83 "not found" 32 "") FIND-DEBUGGER-STACK-FRAME D1 (P 3 POS1 P 2 N P 1 A3320 P 0 LSTPOS I 1 ENV I 0 PLACE F 4 LASTPOS) @Ho jHT H TIg jTH Ig j@A @w@d3 bj@@Hd _@mg KH 'JjJkٺmKd [mg KHH K  mKd mHd hmHd @b@(191 FIND-NAMED-STACK-POSITION 188 STKNTH 177 STKNTH 169 STKNTH 159 RELSTK 154 EQP 144 STKNTH 133 STKNTH 116 EQP 108 STKNTH 96 STKNTH 71 STKNTH 68 CL:EVAL 59 STRING.EQUAL 49 STKNTH 42 STRING.EQUAL 29 RELSTK 24 STKNTH 17 ERROR 2 FIND-DEBUGGER-ENTRY-FRAME) (141 DEBUGGER-LOOP 105 DEBUGGER-LOOP 56 = 39 @) ( 14 "not found") FIND-STACK-FRAME D1 (P 2 A3321 P 1 TOKEN P 0 POS I 0 FRAME-SPEC F 3 FRAMESPEC F 4 LASTPOS) ui @^SScYJo jTH >Jo jSSc %Id3 Hd mHd H Ioi jHT cH (113 RELSTK 107 STKNTH 97 ERROR 86 STKPOS 82 STKNTH 73 STKNTH 60 STKNTH 57 CL:EVAL 45 STRING.EQUAL 35 STKNTH 28 STRING.EQUAL 3 FIND-DEBUGGER-ENTRY-FRAME) NIL ( 93 "not found" 42 "=" 25 "@") RELEASE-DEBUGGER-WINDOW D1 (I 0 DEBUGGER-WINDOW) 4@ .@g @g @gg @gg @ (49 CLOSEW 45 WINDOWDELPROP 35 \CARET.DOWN 32 PUTWINDOWPROP 22 PUTWINDOWPROP 15 RELSTK 12 PUTWINDOWPROP 3 WINDOWP) (42 CLOSE-DEBUGGER-WINDOW 39 CLOSEFN 29 TOTOPW 26 BUTTONEVENTFN 19 PROCESS 9 LASTPOS) () (CL:PROCLAIM (QUOTE (GLOBAL TRACEREGION))) (OR (BOUNDP (QUOTE TRACEREGION)) (SETQ TRACEREGION (CONS 8 (CONS 3 (CONS 547 (CONS 310 NIL)))))) ENTER-DEBUGGER-P D1 (L (2 CONDITION 1 POS 0 N) F 2 PRINTMSG F 3 HELPFLAG F 4 HELPCLOCK F 5 HELPTIME) SdgmA Hh^@@kbH gmlH hlH Y`hcH h(gCIghcH hicH @j@SgT3 U3 l TUimHd Xw(159 STKNTH 144 CLOCK 112 RELSTK 101 RELSTK 77 RELSTK 62 STKARG 51 STKNARGS 39 STKNAME 19 STKNTH) (126 BREAK! 91 NOBREAK 84 INTERNAL 68 NLSETQGAG 42 ERRORSET 8 BREAK!) () (RPAQQ *DEBUGGER-ENTRY-POINTS* (\interpret-BREAK1 CL:ERROR CL:CERROR DEBUG CL:BREAK ERRORX *CATCH* CHECK-TYPE-FAIL)) (RPAQQ BAKTRACELST ((APPLY (**BREAK** LISPX ERRORSET BREAK1A ERRORSET BREAK1) (**TOP** LISPX ERRORSET EVALQT T) (**EDITOR** LISPX ERRORSET ERRORSET ERRORSET EDITL1 EDITL0 ERRORSET ((ERRORSET ERRORSET ERRORSET EDITL1 EDITL0 ERRORSET) -) EDITL ERRORSET ERRORSET EDITE ((EDITF) (EDITV) (EDITP) -)) ( **USEREXEC** LISPX ERRORSET ERRORSET USEREXEC)) (EVAL (**BREAK** LISPX ERRORSET BREAK1A ERRORSET BREAK1) (**TOP** LISPX ERRORSET EVALQT T) (**EDITOR** ((MAPCAR APPLY) (ERRORSET LISPX)) ERRORSET ERRORSET ERRORSET EDITL1 EDITL0 ERRORSET ((ERRORSET ERRORSET ERRORSET EDITL1 EDITL0 ERRORSET) -) EDITL ERRORSET ERRORSET EDITE ((EDITF) (EDITV) (EDITP) -)) (**USEREXEC** ERRORSET LISPX ERRORSET ERRORSET USEREXEC)) (PROGN **BREAK** EVAL ((ERRORSET BREAK1A ERRORSET BREAK1) (BREAK1))) (BLKAPPLY **BREAK** PROGN EVAL ERRORSET BREAK1A ERRORSET BREAK1) (*PROG*LAM (NIL EVALA *ENV*) (NIL CLISPBREAK1)))) (RPAQ? MaxBkMenuWidth 125) (RPAQ? AUTOBACKTRACEFLG NIL) (RPAQ? BACKTRACEFONT) HELP D1 (I 1 MESS2 I 0 MESS1) o@oAo (20 DEBUG) NIL ( 17 "" 10 "" 3 "Help! ~A~A") SHOULDNT D1 (I 0 MESS) o@ (7 HELP) NIL ( 3 "Shouldn't happen") ERROR D1 (P 0 POS I 2 NOBREAK I 1 MESS2 I 0 MESS1 F 1 HELPFLAG F 2 *LAST-CONDITION*) QBBQg;`!gm XH klH H l@A l@A R (78 ERRORX 74 SETERRORN 65 ERROR! 60 ERRORMESS 56 SETERRORN 46 RELSTK 42 STKARG 32 STKNARGS 25 STKPOS) (20 ERRORSET 15 NLSETQGAG 6 BREAK!) () ERRORXA0001A0002 D1 (P 0 *PROCEED-CASES* F 1 PROCEED-CASE3327 F 2 *PROCEED-CASES* F 3 *LAST-CONDITION*) 0ggggQgjghgo RS (43 \MVLIST 40 CL:ERROR 31 MAKE-PROCEED-CASE) (23 :REPORT 19 :TEST 15 :SELECTOR 11 :TAG 8 PROCEED 5 :NAME 2 :NORMAL) ( 27 "Retry execution") ERRORXA0001 D1 (NAME ERRORSET P 4 PROCEED-CASE3327 P 0 ERRORPOS F 5 RESETVARSLST F 6 RESETY) Zg 1gHhhhUc hhLg [KJdgI j:H H kHd Hid c i(83 ENVAPPLY 76 STKNTH 70 STKARGS 66 STKNAME 56 CL:VALUES-LIST 37 \CATCH-FUNCALL 5 FIND-DEBUGGER-ENTRY-FRAME) (49 :NORMAL 34 ERRORXA0001A0002 11 RELSTK 2 ERRORX) () ERRORX D1 (L (0 ERXM) P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) 2@@d@ S!Tog hgZ JI(45 ERROR! 40 RESETRESTORE 30 ERRORXA0001 14 SETERRORN) (36 ERROR 27 INTERNAL 6 CONDITION) ( 24 (ERRORXA0001)) INTERRUPT D1 (I 0 INTFN) ggg@ (15 DEBUGGER 12 MAKE-CONDITION) (8 :FUNCTION 5 SI::INTERRUPT 2 :CONDITION) () FAULTEVAL D1 (P 1 TEM2 P 0 TEM I 0 FAULTX F 2 CLISPARRAY F 3 DWIMFLG F 4 LAMBDASPLST F 5 *MACROEXPAND-HOOK*) x @Sjg b@ Xdl>` Y#@dI YR@I gIhR I,Hg'Y@ XHT@ @hlU,@ (117 OLDFAULT1 104 \EVALFORMASLAMBDA 90 GETD 69 PUTHASH 46 MACROEXPANSION 37 GETMACROPROP 21 NEWFAULT1 15 \DEFINEDP) (81 MACRO-FN 61 PROGN 34 COMPILERMACROPROPS 12 NEWFAULT1) () FAULTAPPLY D1 (P 8 TRANFN P 7 TRAN P 6 CLOSURE P 5 CLOSURE P 4 %%LEXICAL-ENVIRONMENT%% P 3 DEF P 0 \INTERRUPTABLE I 1 FAULTARGS I 0 FAULTFN F 9 CLISPARRAY F 10 LAMBDASPLST F 11 DWIMFLG F 12 LAMBDATRANFNS) @ 4g@i AjIdJkZnhl4 Jg@dl KKMKN[ KKdWWGg ?@Ai W _$KW_KkO_WKOW O[LKA @Ai (194 OLDFAULT1 187 APPLY 174 PUTHASH 139 GETHASH 133 NEWFAULT1 125 \DEFINEDP 65 GETD 46 \LISPERROR 16 PUTD 3 CCODEP) (122 NEWFAULT1 94 CLOSURE 82 CLOSURE 72 CLOSURE 53 \INTERPRETER-DUMMY 11 \INTERPRETER-DUMMY) () OLDFAULT1 D1 (P 1 CNT P 0 FN I 2 FAULTAPPLYFLG I 1 FAULTARGS I 0 FAULTX) \oBgg@gA @gg@gg@ B$@jAdIkYnhl4 IH@ (89 EVAL 78 \LISPERROR 48 CL:CERROR 45 MAKE-CONDITION 21 MAKE-CONDITION) (40 :NAME 37 UNDEFINED-FUNCTION 32 :NAME 29 UNBOUND-VARIABLE 16 :ARGUMENTS 12 :NAME 9 UNDEFINED-FUNCTION-IN-APPLY) ( 3 "Re-execute") ERRORMESS D1 (P 0 CONDITION I 0 U F 1 *LAST-CONDITION* F 2 LISPXHISTORY F 3 *ERROR-OUTPUT*) /@Q@@@ RHgH HS (44 CL:PRINC 38 LISPXPUT 35 CL:TYPE-OF 18 ERRM-TO-CONDITION) (31 *ERROR* 27 STORAGE-CONDITION 7 CONDITION) () ERRORMESS1 D1 (P 1 MESSAGE P 0 BADGUY I 2 MESS3 I 1 MESS2 I 0 MESS1 F 2 LISPXHISTORY) ] @ ABid h@i @@3Aki i @XAYdAi i AXid @YRBggH (88 LISPXPUT 67 LISPXPRINT 59 LISPXTERPRI 54 LISPXPRIN1 40 LISPXTERPRI 35 LISPXSPACES 20 LISPXPRIN1 13 LISPXPRINT) (84 *ERROR* 78 help!) () SMARTARGLIST D1 (P 1 DEF P 0 TEM I 2 TAIL I 1 EXPLAINFLG I 0 FN)  @dlAw@dqdgg @o X?Ah@g'@ @g'Y 7IdgdgdgiXdHA[HhI @ggo Y`@ @o Y-A@` XddgdgdggH I API dldl;i9dgdgidgdgIIh{I  h}I dgHhbbhH6H HgH h HHiH@ihiB X@ @Hbg'@g'hbbQ(394 ARGLIST 387 FNCHECK 367 \APPEND2 360 LAST 347 LAST 314 ARGLIST 303 \SIMPLIFY.CL.ARGLIST 297 REMOVE-COMMENTS 236 ARGTYPE 227 CCODEP 222 EXPRP 188 GETMACROPROP 171 GETLIS 161 GETD 154 GETDEF 139 \SIMPLIFY.CL.ARGLIST 85 EXPRP 70 GETD 49 GETLIS 40 \SIMPLIFY.CL.ARGLIST) (422 BROKEN 409 BROKEN 355 ... 319 = 278 DEFCOMMAND 272 DEFDEFINER 262 CL:DEFUN 256 DEFMACRO 211 OPENLAMBDA 205 NLAMBDA 199 LAMBDA 185 COMPILERMACROPROPS 147 CURRENT 144 FUNCTIONS 106 NLAMBDA 100 LAMBDA 94 CL:LAMBDA 80 EXPR 63 ADVISED 30 CL:LAMBDA) ( 168 (EXPR CODE) 151 (NOERROR NOCOPY) 46 (ARGNAMES)) PACK-IN- D1 (P 5 Y P 1 TEM2 P 0 TEM1 I 0 X) @dh@@go@i H20HdMgIh ZK J\[L [JI20IdHgMh ZK J\[L [JHgI h(144 PACK* 131 LAST 111 PACK-IN- 79 LAST 59 PACK-IN- 31 ERROR) (140 -IN- 103 IN 51 IN 20 IN) ( 26 "not of form (fn1 IN fn2)") \SIMPLIFY.CL.ARGLIST D1 (L (0 LST)) t@QHI\d#MdgLEgLd74L1gLdg"dgdgdgdgdg]J KhZHXK&NIL (92 &ENVIRONMENT 86 &REST 80 &BODY 73 &KEY 66 &OPTIONAL 59 &AUX 51 &AUX 31 &KEY 21 &OPTIONAL) () RESTORENAMESA0001 D1 (NAME ERRORSET F 0 NOLINKMESS F 1 DEF F 2 FN F 3 NEW F 4 XXX) icQSTR h(10 CHANGENAME1) NIL () RESTORENAMES D1 (P 11 MACROY P 10 MACROX P 9 Z P 8 NEW P 7 DEF P 6 FN P 5 MACROY P 4 MACROX P 3 XXX I 0 FN F 12 RESETVARSLST F 13 BROKENFNS F 14 NOLINKMESS)  0@g d1Ng Ng N KgN  O OWgOW KNg _NgO Ng Og O5gWWc W_og OcOdWOco,W WkO OOoNh KIHhZH&J@g (252 /REMPROP 218 \APPEND2 203 ERROR! 193 NLEFT 184 TAILP 150 RESTORENAMESA0001 116 /REMPROP 107 /REMPROP 99 /PUTPROP 87 REMOVE 84 GETPROP 75 /SETATOMVAL 72 REMOVE 55 /PUTD 47 PACK* 39 GETD 33 GETP 24 GETP 9 GETPROP) (249 NAMESCHANGED 147 INTERNAL 124 NOLINKMESS 113 ALIAS 104 NAMESCHANGED 94 NAMESCHANGED 81 NAMESCHANGED 65 BROKENFNS 43 -IN- 30 BROKEN 21 ADVISED 6 NAMESCHANGED) ( 212 (not found in) 176 (not defined) 144 (RESTORENAMESA0001)) WBREAK D1 (L (0 -args-) F 3 WBREAK) e kHiikaSIJcNIL NIL () (RPAQ? HELPDEPTH 7) (RPAQ? WBREAK) (RPAQ? BREAKDELIMITER " ") (RPAQ? HELPTIME 1000) (RPAQ? HELPCLOCK) (RPAQ? NLSETQGAG T) (RPAQ? *MACROEXPAND-HOOK* (QUOTE CL:FUNCALL)) (RPAQ? COMPILERMACROPROPS (QUOTE (DMACRO ALTOMACRO BYTEMACRO MACRO))) (ADDTOVAR WINDOWUSERFORMS (WBREAK T)) (ADDTOVAR ENDOFWINDOWUSERFORMS (WBREAK NIL)) XCL::INTERESTING-FRAME-P D1 (P 0 NAME I 1 INTERPFLG I 0 POS F 1 OPENFNS) l@d HlZHdghgl@ ghHdgl@ hgl@ hHlhHdQA l\hH (105 EXPRP 94 CHCON1 72 STKARG 58 STKARG 37 STKARG 7 STKNAME) (64 APPLY 49 EVAL 40 INTERNAL 29 ERRORSET 22 *ENV*) () (RPAQQ NBREAKS 0) (CL:PROCLAIM (QUOTE (CL:SPECIAL BRKEXP BRKTYPE BRKCOND BRKPOS))) (PUTPROPS DEBUGGER FILETYPE CL:COMPILE-FILE) (PUTPROPS DEBUGGER COPYRIGHT ("Xerox Corporation" 1986)) NIL