(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "25-Jan-98 13:18:25" ("compiled on " |{DSK}sources>EXEC-COMMANDS.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" |in| "Medley 14-Aug-95 ..." |dated| "14-Aug-95 15:27:48") (FILECREATED "16-May-90 16:29:25" |{DSK}local>lde>lispcore>sources>EXEC-COMMANDS.;2| 4370 |changes| |to:| (VARS EXEC-COMMANDSCOMS) |previous| |date:| " 2-Jun-87 14:53:25" |{DSK}local>lde>lispcore>sources>EXEC-COMMANDS.;1|) (RPAQQ EXEC-COMMANDSCOMS ((GLOBALVARS SPELLINGS1 SPELLINGS2 USERWORDS) (FNS PRINTPROPS PRINTBINDINGS) (LISPXMACROS PL PB \;) (COMMANDS "PB" "RETRY") (PROP FILETYPE EXEC-COMMANDS))) PRINTPROPSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 TL I 0 SI::*CLEANUP-FORMS* F 1 AT) IQÁɵ>Qh` µQÁÉ°)dHid ¿oi ¿Hid µØh(63 SHOWPRINT 52 PRIN1 40 PRIN2 18 MISSPELLED?) (13 USERWORDS) ( 46 " : ") PRINTPROPS :D8 (P 0 SI::*RESETFORMS* I 0 AT) 3go hhhg ¿$(44 SI::RESETUNWIND 39 \\MVLIST 34 PRINTPROPSA0001 14 PRINTLEVEL) (29 SI::RESETUNWIND 4 PRINTLEVEL) ( 9 (2 . 3)) PRINTBINDINGSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 EPOS P 1 VAL P 0 NAME I 0 SI::*CLEANUP-FORMS* F 3 FL F 4 POS F 5 AT)  0S£ic¿oS ¿US ¿oS ¿S ¿jTµg c¿UTd c¢±‘UT ¹oS ¿T Si ¿T ³CoS ¿kTJ Z žJ Si °kJd ZµâoS ¿oS ¿ISi ¿kTd c’±ÿgJ ¿oS ¿oS ¿U Si h(264 SHOWPRINT 257 GETTOPVAL 250 PRIN1 238 PRIN1 226 RELSTK 214 STKNTH 205 SHOWPRINT 196 PRIN1 184 PRIN1 170 STKNTH 160 PRIN2 153 STKNAME 146 REALFRAMEP 140 STKNTH 131 PRIN1 118 REALFRAMEP 111 PRIN2 104 STKNAME 97 PRIN1 85 STKARG 72 STKSCAN 61 STKNTH 46 TERPRI 39 PRIN1 27 PRIN1 19 PRIN1) (56 PRINTBINDINGS) ( 244 "TOP : " 232 " @ " 190 " : " 178 "? " 125 "/" 91 " @ " 33 ": " 13 "bindings for ") PRINTBINDINGS :D8 (P 0 SI::*RESETFORMS* I 2 FL I 1 POS I 0 AT) 2gll hhhg ¿$(43 SI::RESETUNWIND 38 \\MVLIST 33 PRINTBINDINGSA0001 13 PRINTLEVEL) (28 SI::RESETUNWIND 4 PRINTLEVEL) () (ADDTOVAR LISPXHISTORYMACROS (PL (COND (LISPXLINE (MAPC (NLAMBDA.ARGS LISPXLINE) (FUNCTION PRINTPROPS) )) (T (QUOTE (E PL))))) (PB (COND (LISPXLINE (MAPC (NLAMBDA.ARGS LISPXLINE) (FUNCTION (LAMBDA (X) ( PRINTBINDINGS X (AND (EQ LISPXID (QUOTE \:)) LASTPOS)))))) (T (QUOTE (E PB))))) (\; NIL NIL)) (ADDTOVAR HISTORYCOMS \;) |exec-PB| :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @ $(7 PRINTBINDINGS) NIL () (SET-DOCUMENTATION "PB" (QUOTE COMMANDS) "Show where on the stack VARIABLE is (special) bound") (PUTHASH "PB" (QUOTE ((VARIABLE) |exec-PB| :EVAL)) *EXEC-COMMAND-TABLE*) |exec-RETRY| :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 1 RETRYFLAG) !@icHµo` (30 EVENTS-INPUT 25 FIND-HISTORY-EVENTS) (20 LISPXHISTORY) ( 15 (-1)) (SET-DOCUMENTATION "RETRY" (QUOTE COMMANDS) "Re-execute specified events with debugging") (PUTHASH "RETRY" (QUOTE ((&REST EVENT-SPEC) |exec-RETRY| :HISTORY)) *EXEC-COMMAND-TABLE*) (PUTPROPS EXEC-COMMANDS FILETYPE CL:COMPILE-FILE) (PUTPROPS EXEC-COMMANDS COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990)) NIL