(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 2-Nov-93 14:53:24" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLEXEC.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED " 8-Apr-92 22:06:20" {DSK}local>lde>lispcore>sources>CMLEXEC.;2 70091 changes to%: ( ALISTS (BackgroundMenuCommands EXEC)) previous date%: "25-Jun-91 12:22:29" {DSK}local>lde>lispcore>sources>CMLEXEC.;1) (RPAQQ CMLEXECCOMS ((FILES CMLUNDO PROFILE) (XCL:PROFILES "EXEC") (STRUCTURES COMMAND-ENTRY EXEC-EVENT-ID EXEC-EVENT HISTORY) (* ; "These are public except for command-entry.") (FUNCTIONS XCL::EXEC-CLOSEFN XCL::EXEC-SHRINKFN XCL::SETUP-EXEC-WINDOW XCL::EXEC-TITLE-FUNCTION FIX-FORM XCL::GET-PROCESS-PROFILE XCL::SAVE-CURRENT-EXEC-PROFILE XCL::SETF-GET-PROCESS-PROFILE XCL:SET-EXEC-TYPE XCL:SET-DEFAULT-EXEC-TYPE XCL::ENTER-EXEC-FUNCTION) (SETFS XCL::GET-PROCESS-PROFILE) (FUNCTIONS DO-EVENT EXEC EXEC-EVAL PRINT-ALL-DOCUMENTATION PRINT-DOCUMENTATION VALUE-OF ADD-EXEC EXEC-READ-LINE EXEC-EVENT-ID-PROMPT FIND-EXEC-COMMAND) (FUNCTIONS CIRCLAR-COPYER) (FNS COPY-CIRCLE) (* ; "CIRCLAR-COPYER and COPY-CIRCLE are the solution for AR#11172") (FNS EXEC-READ DIR) (VARIABLES *PER-EXEC-VARIABLES* CL:* CL:** CL:*** + CL:++ CL:+++ - / CL:// CL:/// *CURRENT-EVENT* *EXEC-ID* XCL:*EXEC-PROMPT* XCL:*EVAL-FUNCTION* *NOT-YET-EVALUATED* *THIS-EXEC-COMMANDS* *EXEC-COMMAND-TABLE* *DEBUGGER-COMMAND-TABLE* *CURRENT-EXEC-TYPE* *EXEC-MAKE-UNDOABLE-P*) (VARIABLES *EDIT-INPUT-WITH-TTYIN*) (FNS DO-APPLY-EVENT DO-HISTORY-SEARCH EVAL-INPUT EVENTS-INPUT EXEC-PRIN1 EXEC-VALUE-OF GET-NEXT-HISTORY-EVENT HISTORY-ADD-TO-SPELLING-LISTS HISTORY-NTH PRINT-HISTORY FIND-HISTORY-EVENTS PRINT-EVENT PRINT-EVENT-PROMPT PROCESS-EXEC-ID SEARCH-FOR-EVENT-NUMBER \PICK.EVALQT LISPXREPRINT) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MOVD? (QUOTE READ) (QUOTE TTYINREAD)) ( MOVD (QUOTE \PICK.EVALQT) (QUOTE \PROC.REPEATEDLYEVALQT)) (SETQ BackgroundMenu))) (FUNCTIONS CASE-EQUALP EXEC-EVENT-PROPS EXEC-PRINT EXEC-FORMAT) (ALISTS (BackgroundMenuCommands EXEC)) (ALISTS ( SYSTEMINITVARS LISPXHISTORY GREETHIST)) (* ;; "Exec Commands") (DEFINE-TYPES COMMANDS) (FUNCTIONS DEFCOMMAND) (COMMANDS "?" "??" "CONN" "DA" "DIR" "DO-EVENTS" "FIX" "FORGET" "NAME" "NDIR" "PL" "REDO" "REMEMBER" "SHH" "UNDO" "USE" "PP") (* ;; "Arrange to use the correct compiler") (PROP FILETYPE CMLEXEC) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DIR) (NLAML) ( LAMA))))) (FILESLOAD CMLUNDO PROFILE) (LET ((XCL::PROFILE (XCL:MAKE-PROFILE "EXEC" (QUOTE (XCL:*DEBUGGER-PROMPT* "")) (QUOTE (XCL:*EXEC-PROMPT* "")) (QUOTE (*READTABLE* "XCL")) (QUOTE (*PACKAGE* "XCL")) (QUOTE (XCL:*EVAL-FUNCTION* (QUOTE CL:EVAL )))))) (XCL::INSTALL-PROFILE XCL::PROFILE "EXEC" (QUOTE NIL))) (CL::SET-PARSED-STRUCTURE (QUOTE COMMAND-ENTRY) T (QUOTE (CL::PS COMMAND-ENTRY MAKE-COMMAND-ENTRY ( ARGUMENTS FUNCTION MODE) LIST NIL NIL "COMMAND-ENTRY-" (MAKE-COMMAND-ENTRY) NIL CL::DEFAULT-STRUCTURE-PRINTER COPY-COMMAND-ENTRY NIL 0 NIL ((ARGUMENTS NIL T NIL 0 COMMAND-ENTRY-ARGUMENTS) (FUNCTION NIL T NIL 1 COMMAND-ENTRY-FUNCTION) (MODE NIL T NIL 2 COMMAND-ENTRY-MODE)) NIL NIL NIL NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) COMMAND-ENTRY-ARGUMENTS :D8 (L (0 COMMAND-ENTRY)) @NIL NIL () COMMAND-ENTRY-FUNCTION :D8 (L (0 COMMAND-ENTRY)) @NIL NIL () COMMAND-ENTRY-MODE :D8 (L (0 COMMAND-ENTRY)) @NIL NIL () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE COMMAND-ENTRY)) MAKE-COMMAND-ENTRY :D8 (L (0 -args-)) ei HkKJihYiHk_OdNlh]_i_Hk__OdOkh__l _IjOL MkOO OlOO OKdagl[kaagOkaOl_{agOkaOl_{(116 CL::%%SET-NTH 101 CL::%%SET-NTH 88 CL::%%SET-NTH 74 CL:MAKE-LIST) (171 :MODE 146 :FUNCTION 127 :ARGUMENTS) () COPY-COMMAND-ENTRY :D8 (L (0 COMMAND-ENTRY)) ,l jH@ kH@ lH@ H(40 CL::%%SET-NTH 28 CL::%%SET-NTH 18 CL::%%SET-NTH 6 CL:MAKE-LIST) NIL () (CL::SET-PARSED-STRUCTURE (QUOTE EXEC-EVENT-ID) T (QUOTE (CL::PS EXEC-EVENT-ID MAKE-EXEC-EVENT-ID ( NUMBER NAME dummy) LIST NIL NIL "EXEC-EVENT-ID-" (MAKE-EXEC-EVENT-ID) NIL CL::DEFAULT-STRUCTURE-PRINTER COPY-EXEC-EVENT-ID NIL 0 NIL ((NUMBER NIL T NIL 0 EXEC-EVENT-ID-NUMBER) (NAME NIL T NIL 1 EXEC-EVENT-ID-NAME) (dummy NIL T NIL 2 EXEC-EVENT-ID-dummy)) NIL NIL NIL NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) EXEC-EVENT-ID-NUMBER :D8 (L (0 EXEC-EVENT-ID)) @NIL NIL () EXEC-EVENT-ID-NAME :D8 (L (0 EXEC-EVENT-ID)) @NIL NIL () EXEC-EVENT-ID-dummy :D8 (L (0 EXEC-EVENT-ID)) @NIL NIL () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE EXEC-EVENT-ID)) MAKE-EXEC-EVENT-ID :D8 (L (0 -args-)) ei HkKJihYiHk_OdNlh]_i_Hk__OdOkh__l _IjOL MkOO OlOO OKdagl[kaagOkaOl_{agOkaOl_{(116 CL::%%SET-NTH 101 CL::%%SET-NTH 88 CL::%%SET-NTH 74 CL:MAKE-LIST) (171 :dummy 146 :NAME 127 :NUMBER) () COPY-EXEC-EVENT-ID :D8 (L (0 EXEC-EVENT-ID)) ,l jH@ kH@ lH@ H(40 CL::%%SET-NTH 28 CL::%%SET-NTH 18 CL::%%SET-NTH 6 CL:MAKE-LIST) NIL () (CL::SET-PARSED-STRUCTURE (QUOTE EXEC-EVENT) T (QUOTE (CL::PS EXEC-EVENT MAKE-EXEC-EVENT (INPUT ID VALUE dummy) LIST NIL NIL "EXEC-EVENT-" (MAKE-EXEC-EVENT) NIL CL::DEFAULT-STRUCTURE-PRINTER COPY-EXEC-EVENT NIL 0 NIL ((INPUT NIL T NIL 0 EXEC-EVENT-INPUT) (ID NIL T NIL 1 EXEC-EVENT-ID) (VALUE *NOT-YET-EVALUATED* T NIL 2 EXEC-EVENT-VALUE) (dummy NIL T NIL 3 EXEC-EVENT-dummy)) NIL NIL NIL NIL ( :ACCESSOR :PREDICATE) NIL NIL NIL))) EXEC-EVENT-INPUT :D8 (L (0 EXEC-EVENT)) @NIL NIL () EXEC-EVENT-ID :D8 (L (0 EXEC-EVENT)) @NIL NIL () EXEC-EVENT-VALUE :D8 (L (0 EXEC-EVENT)) @NIL NIL () EXEC-EVENT-dummy :D8 (L (0 EXEC-EVENT)) @NIL NIL () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE EXEC-EVENT)) MAKE-EXEC-EVENT :D8 (L (0 -args-) F 17 *NOT-YET-EVALUATED*) eiHkKJhYiHk_OdNh]_Hk__OdOW"_i_Hk__OdOh__l _ IjO L MkO O lO O OlO O O Kdagl[^ka`agOkaeOl_QagOkacOl_NagOkafOl_P(157 CL::%%SET-NTH 143 CL::%%SET-NTH 131 CL::%%SET-NTH 118 CL::%%SET-NTH 104 CL:MAKE-LIST) (241 :dummy 215 :VALUE 189 :ID 168 :INPUT) () COPY-EXEC-EVENT :D8 (L (0 EXEC-EVENT)) 9l jH@ kH@ lH@ lH@ H(53 CL::%%SET-NTH 40 CL::%%SET-NTH 28 CL::%%SET-NTH 18 CL::%%SET-NTH 6 CL:MAKE-LIST) NIL () (CL::SET-PARSED-STRUCTURE (QUOTE HISTORY) T (QUOTE (CL::PS HISTORY MAKE-HISTORY (EVENTS INDEX SIZE MOD ) LIST NIL NIL "HISTORY-" (MAKE-HISTORY) NIL CL::DEFAULT-STRUCTURE-PRINTER COPY-HISTORY NIL 0 NIL (( EVENTS NIL T NIL 0 HISTORY-EVENTS) (INDEX 0 T NIL 1 HISTORY-INDEX) (SIZE 100 T NIL 2 HISTORY-SIZE) ( MOD 100 T NIL 3 HISTORY-MOD)) NIL NIL NIL NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) HISTORY-EVENTS :D8 (L (0 HISTORY)) @NIL NIL () HISTORY-INDEX :D8 (L (0 HISTORY)) @NIL NIL () HISTORY-SIZE :D8 (L (0 HISTORY)) @NIL NIL () HISTORY-MOD :D8 (L (0 HISTORY)) @NIL NIL () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE HISTORY)) MAKE-HISTORY :D8 (L (0 -args-)) eiHkKJhYHkNdMj_Hk__OdOld_Hk__OdOld_l _IjOL kOO lOO lOO OKdagl[okaqagNkaqNl^`agOkaqOl_\agOkaoOl_Z(140 CL::%%SET-NTH 129 CL::%%SET-NTH 118 CL::%%SET-NTH 107 CL::%%SET-NTH 93 CL:MAKE-LIST) (221 :MOD 195 :SIZE 172 :INDEX 151 :EVENTS) () COPY-HISTORY :D8 (L (0 HISTORY)) 9l jH@ kH@ lH@ lH@ H(53 CL::%%SET-NTH 40 CL::%%SET-NTH 28 CL::%%SET-NTH 18 CL::%%SET-NTH 6 CL:MAKE-LIST) NIL () XCL::EXEC-CLOSEFN :D8 (L (0 XCL::WINDOW)) P@ .`Hgg@hh gH Hd i H (77 DEL.PROCESS 70 TTY.PROCESS 62 TTY.PROCESSP 53 PROCESSP 41 ADD.PROCESS 5 \INSUREWINDOW) (46 DON'T 29 QUOTE 24 CLOSEW 15 \RUNNING.PROCESS) () XCL::EXEC-SHRINKFN :D8 (L (0 XCL::WINDOW)) A@ .`Hgg@hh gH i h(61 TTY.PROCESS 53 TTY.PROCESSP 41 ADD.PROCESS 5 \INSUREWINDOW) (46 DON'T 29 QUOTE 24 SHRINKW 15 \RUNNING.PROCESS) () XCL::SETUP-EXEC-WINDOW :D8 (L (0 XCL::WINDOW)) #@gg @gg @(31 WINDOWADDPROP 15 WINDOWADDPROP) (26 XCL::EXEC-SHRINKFN 21 SHRINKFN 10 XCL::EXEC-CLOSEFN 5 CLOSEFN) () (SET-DOCUMENTATION (QUOTE XCL::SETUP-EXEC-WINDOW) (QUOTE CL:FUNCTION) "Add (non-title) properties to a new exec window.") XCL::EXEC-TITLE-FUNCTION :D8 (L (1 EXEC-ID 0 XCL::WINDOW) F 0 *READTABLE*) $@ghoAPg (33 PUTWINDOWPROP 28 CL:FORMAT 23 READTABLEPROP) (18 NAME 5 TITLE) ( 11 "Exec ~A (~A)") FIX-FORMA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 STR F 2 INPUT F 3 CIRCLE-FLAG F 4 A2921) [RCdSHQ !HdQ hddQ Q HoQ Q hc$(81 \MVLIST 76 CL:GET-OUTPUT-STREAM-STRING 64 PRIN1 49 PRIN2 41 PRINTDEF 31 POSITION 16 CL:PRIN1) NIL ( 58 " ") FIX-FORMA0002 :D8 (F 0 STR F 1 A2921) PgQ (11 CL:CLOSE) (5 :ABORT) () FIX-FORM :D8 (P 10 A2921 P 9 STR P 8 *PRINT-LENGTH* P 7 *PRINT-LEVEL* P 6 FONTCHANGEFLG P 5 %#RPARS P 4 *PRINT-ARRAY* P 3 *PRINT-GENSYM* P 2 *PRINT-BASE* P 1 *PRINT-RADIX* P 0 *PRINT-ESCAPE* I 1 CIRCLE-FLAG I 0 INPUT F 11 *READ-BASE* F 12 *EDIT-INPUT-WITH-TTYIN* F 13 \TERM.OFD F 14 TTYINFIXLIMIT F 15 *CURRENT-EVENT* F 16 INPUTFONT) WW A1@W j%@ k@d@hdihg @W W i i iWl hWgiEi g OgO $ (150 EXEC-READ-LINE 139 CL:CLOSE 125 \MVLIST 120 FIX-FORMA0001 106 MAKE-FILL-POINTER-OUTPUT-STREAM 82 CURSOR 76 DSPFONT 68 PRINT-EVENT-PROMPT 59 EDITE 32 LENGTH 22 COUNTDOWN 10 IMAGESTREAMP) (132 :ABORT 115 FIX-FORMA0002 97 :REREAD 53 :CLOSE-ON-COMPLETION) () XCL::GET-PROCESS-PROFILE :D8 (L (0 -args-)) ekH`kag (25 PROCESSPROP) (20 PROFILE 12 \RUNNING.PROCESS) () XCL::SAVE-CURRENT-EXEC-PROFILE :D8 NIL ` H H (26 XCL:SAVE-PROFILE 18 XCL:PROFILE-P 9 XCL::GET-PROCESS-PROFILE) (4 \RUNNING.PROCESS) () (SET-DOCUMENTATION (QUOTE XCL::SAVE-CURRENT-EXEC-PROFILE) (QUOTE CL:FUNCTION) "Resave the profiled bindings of the exec process into their cache.") XCL::SETF-GET-PROCESS-PROFILE :D8 (L (0 -args-) F 3 XCL:*PROFILE*) 2ekH`kalHSla ZIgJ J(46 PROCESSPROP 33 XCL::PROFILIZE) (40 PROFILE 12 \RUNNING.PROCESS) () XCL:SET-EXEC-TYPE :D8 (L (0 TYPE)) 1g Hgg@hhHd @ (46 XCL:RESTORE-PROFILE 39 ENVEVAL 9 STKPOS) (25 QUOTE 20 XCL:RESTORE-PROFILE 4 XCL::EXECA0001) () (SET-DOCUMENTATION (QUOTE XCL:SET-EXEC-TYPE) (QUOTE CL:FUNCTION) "Set the current Exec's type to TYPE" ) XCL:SET-DEFAULT-EXEC-TYPE :D8 (L (0 TYPE)) g@ (10 SETTOPVAL) (4 XCL:*PROFILE*) () XCL::ENTER-EXEC-FUNCTIONA0001 :D8 (F 0 XCL::ID F 1 XCL::EXEC-FUNCTION) i`P jQ(16 XCL::EXEC-TITLE-FUNCTION 11 PROCESS-EXEC-ID) (5 \RUNNING.PROCESS) () XCL::ENTER-EXEC-FUNCTION :D8 (L (1 XCL::PROFILE) P 0 XCL:*PROFILE* I 2 XCL::ID I 0 XCL::EXEC-FUNCTION) (A H Xd H g (37 \DO.PROGV 27 XCL::PROFILE-VALUES 21 XCL::PROFILE-VARIABLES 14 XCL::PROFILIZE 5 XCL:COPY-PROFILE) (32 XCL::ENTER-EXEC-FUNCTIONA0001) () (SET-DOCUMENTATION (QUOTE XCL::ENTER-EXEC-FUNCTION) (QUOTE CL:FUNCTION) "Start up an exec function in the proper profile, setting the default window title properly.") (CL::SET-SETF-INVERSE (QUOTE XCL::GET-PROCESS-PROFILE) (QUOTE XCL::SETF-GET-PROCESS-PROFILE)) DO-EVENT :D8 (L (0 -args-) P 21 HELPFLAG P 19 HELPCLOCK P 18 RETRYFLAG F 22 *CURRENT-EVENT* F 23 PRINTOUTFONT F 24 IT F 25 CL:++ F 26 + F 27 - F 28 CL:// F 29 / F 30 CL:** F 31 CL:* F 32 ADDSPELLFLG F 33 *THIS-EXEC-COMMANDS* F 34 VALUEFONT F 35 *EXEC-MAKE-UNDOABLE-P* F 36 LISPXFNS F 37 LISPXHIST F 38 CL:+++ F 39 CL:*** F 40 CL:///) jeka lalHglaW@aW.i I_O _Od Od3@ O _"WBdO"L _ hO _dg*O OJlM _d Oc0hgOdgPW,jW,O O OJlN_W,PjW,O W,_gIW,_OO%OgDggO hgOhgJhhh_h_W,RjW,O EoOo 2W,jW,O WF!OdWHOOh h_OO W,cJW.i l W2cLW4c2W6c4Oc6O$gOJlKOJlK _(W8cPW:c8O(c:dgWcW,-lW,O( W,_gO(W,_OOWDi O(d O((608 EXEC-PRINT 598 DSPFONT 559 CL::%%SET-NTH 499 \MVLIST 443 CLOCK 435 DSPFONT 421 HISTORY-ADD-TO-SPELLING-LISTS 406 XCL::MAKE-UNDOABLE 375 CL::%%SET-NTH 360 ECASE-FAIL 341 CL::%%SET-NTH 234 CL::%%SET-NTH 202 CL::%%SET-NTH 158 EXEC-PRINT 148 \MVLIST 102 GETHASH 85 STRING 64 STRINGP 52 COPY-CIRCLE 40 DSPFONT) (570 LISPXVALUES 522 NOBIND 475 BREAK! 309 QUOTE 299 QUOTE 287 QUOTE 282 CL:FUNCALL 274 :EVAL 245 *HISTORY* 185 :INPUT 175 :HISTORY 127 :QUIET 22 EVAL-INPUT) ( 355 (:QUIET :HISTORY :INPUT NIL :EVAL) 348 (COMMAND-ENTRY-MODE COM)) XCL::EXECA0001A0002 :D8 (P 4 HELPCLOCK P 3 LISPXHIST P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 XCL::TOP-LEVEL-P F 6 *EXEC-ID* F 7 XCL:*EXEC-PROMPT* F 8 XCL::FN F 9 *CURRENT-EVENT* F 10 INPUTFONT F 11 LISPXHIST F 12 XCL::ENVIRONMENT) Qi@`VWUh c Wi WjJo̳JWW U(75 XCL::SAVE-CURRENT-EXEC-PROFILE 67 DO-EVENT 42 EXEC-READ-LINE 36 DSPFONT 27 PRINT-EVENT-PROMPT 20 GET-NEXT-HISTORY-EVENT) (9 LISPXHISTORY) ( 54 (NIL)) XCL::EXECA0001 :D8 (P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 *CURRENT-EVENT* F 5 XCL::WINDOW F 6 XCL::TOP-LEVEL-P F 7 XCL::PROFILE-CACHE F 8 XCL::TITLE F 9 XCL::PROFILE F 10 *PROCEED-CASES* F 11 XCL::PROMPT F 12 XCL:*EXEC-PROMPT* F 13 XCL::TITLE-SUPPLIED F 14 *EXEC-ID*)  VWW-W$V4W*`o c U8WUW WUgW U Ud io `WK UH (168 TTYDISPLAYSTREAM 157 XCL::EXECA0001A0002 136 CL:FORMAT 122 TTYDISPLAYSTREAM 117 DECODE/WINDOW/OR/DISPLAYSTREAM 108 TTYDISPLAYSTREAM 103 DECODE/WINDOW/OR/DISPLAYSTREAM 96 PUTWINDOWPROP 79 XCL::EXEC-TITLE-FUNCTION 64 XCL:RESTORE-PROFILE 56 XCL:RESTORE-PROFILE 44 XCL::SETF-GET-PROCESS-PROFILE 39 XCL:SAVE-PROFILE 34 XCL:COPY-PROFILE) (145 SI::NLSETQ-PROCEED-CASE 89 TITLE 24 \RUNNING.PROCESS) ( 131 "~&~%%" 29 "EXEC") EXEC :D8 (L (0 -args-) P 30 XCL::PROFILE-CACHE P 29 *EXEC-ID* P 28 XCL::PROFILE P 27 XCL::FN P 26 XCL::PROMPT P 25 XCL::ENVIRONMENT P 24 *THIS-EXEC-COMMANDS* P 23 XCL::TITLE P 22 XCL::TITLE-SUPPLIED P 21 XCL::WINDOW P 3 XCL::TOP-LEVEL-P F 37 *PER-EXEC-VARIABLES* F 38 \TERM.OFD) :%eHkJIh HkMdLWL i_,Hk_OdNh_,Hk__OdO`hHk__OdOhHk__OdOhHk__OdOgHk_"_ O"dO hHk_&_$O&dO$h_(`O( ` 0!WJJdaglZkaagMkaMl]agOka Ol_agOka Ol_agOka Ol_agOkaOl_agOkaOl_agO"kaO"l_"agO&kaO&l_&d_>O@ O>h_BO>&_@OB0$WJ d _DOF ODh_HOD&_FOHg (567 \DO.PROGV 530 EVAL 245 XCL::GET-PROCESS-PROFILE 232 PROCESS-EXEC-ID 43 WFROMDS) (562 XCL::EXECA0001 464 :ID 438 :PROFILE 412 :FUNCTION 386 :PROMPT 360 :ENVIRONMENT 334 :COMMAND-TABLES 308 :TITLE 285 :WINDOW 264 :TOP-LEVEL-P 240 \RUNNING.PROCESS 225 \RUNNING.PROCESS 171 EVAL-INPUT 96 *EXEC-COMMAND-TABLE*) () EXEC-EVAL :D8 (L (0 -args-) P 16 HELPCLOCK P 15 LISPXHIST P 14 *CURRENT-EVENT* P 13 *CURRENT-EXEC-TYPE* F 18 IT F 19 LISPXHIST)  eka lHhlaHlLdKoHl_OdNo_Hl__OdOg `OMi W&jjOIh J _"dc$OO"$_gO"O_OOlOW$ agLkaZLl\EagOkaYOl_BagOka[Ol_C(189 CL::%%SET-NTH 134 \MVLIST 129 EVAL-INPUT 123 CL::%%SET-NTH 106 GET-NEXT-HISTORY-EVENT) (247 :TYPE 221 :ID 198 :PROMPT 158 LISPXVALUES 97 LISPXHISTORY 89 COMMON-LISP) ( 61 "eval/" 38 ">") PRINT-ALL-DOCUMENTATION :D8 (L (0 NAME) F 3 FILEPKGTYPES F 4 *TERMINAL-IO*) [0SYHPTo Zd3@8Jg'+J #@J H@d3@@ J HIh(79 PRINT-DOCUMENTATION 73 STRING 57 PRINT-DOCUMENTATION 48 HASH-TABLE-FOR-DOC-TYPE 20 CL:FORMAT) (39 DEFINED-BY) ( 15 "No documentation found.~%%") (SET-DOCUMENTATION (QUOTE PRINT-ALL-DOCUMENTATION) (QUOTE CL:FUNCTION) "Print all documentation strings for NAME (as symbol and string).") PRINT-DOCUMENTATION :D8 (L (1 TYPE 0 NAME) F 1 *TERMINAL-IO*) +@A HiQoH@g A (39 CL:FORMAT 31 CL:DOCUMENTATION 6 CL:DOCUMENTATION) (26 DEFINE-TYPES) ( 19 "~&~A (~A)") (SET-DOCUMENTATION (QUOTE PRINT-DOCUMENTATION) (QUOTE CL:FUNCTION) "If it exists, print documentation for NAME as TYPE. Returns T if doc was found, else NIL.") expand-VALUE-OF :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHhhNIL (14 QUOTE 9 EXEC-VALUE-OF) () (SETF-MACRO-FUNCTION (QUOTE VALUE-OF) (QUOTE expand-VALUE-OF)) ADD-EXEC :D8 (L (0 -args-) F 16 XCL:*PROFILE*) eHkJIW HkKdJhHkNdMh_Hk__OdOg_Hk__OdOh_Lo _gggOhhgoogOhhOgggiggIhggOhhJdaglZkaagKkaKl[agNkaNl^agOkaOl_agOkaOl_ggOhgIhgOhhhgggi _OO O(434 TTY.PROCESS 421 ADD.PROCESS 119 XCL::SETUP-EXEC-WINDOW 114 CREATEW) (414 RESTARTABLE 409 EXEC 404 NAME 384 QUOTE 375 QUOTE 365 QUOTE 360 XCL::ENTER-EXEC-FUNCTION 335 :ID 309 :EXEC 286 :TTY 263 :REGION 242 :PROFILE 222 QUOTE 217 :ID 208 QUOTE 203 :PROFILE 197 :TOP-LEVEL-P 192 EXEC 182 EXEC 165 QUOTE 150 PROCESSPROP 137 QUOTE 132 TTYDISPLAYSTREAM 127 PROGN 77 EXEC) ( 160 (QUOTE WINDOW) 155 (THIS.PROCESS) 109 "Exec") EXEC-READ-LINE :D8 (L (0 BUFFER-STRING) P 3 *EDIT-INPUT-WITH-TTYIN* F 4 *READTABLE* F 5 CTRLUFLG) 0i id g i @ hXhYi id Zg i JgT JdgT !iT HdYhh XNl iY Hh i ZgT JgT TINHUhc H H(249 FIX-FORM 221 SYNTAXP 207 SYNTAXP 195 CHCON1 190 LASTC 183 \NCONC2 176 EXEC-READ 168 READC 154 \NCONC2 140 SHOULDNT 134 READ 124 SYNTAXP 110 SYNTAXP 94 READC 87 SYNTAXP 71 PEEKCCODE 60 READP 41 EXEC-READ 34 READC 27 SYNTAXP 17 PEEKCCODE 8 READP) (215 RIGHTBRACKET 201 RIGHTPAREN 118 RIGHTBRACKET 104 RIGHTPAREN 82 EOL 22 EOL) () expand-EXEC-EVENT-ID-PROMPT :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHhNIL (10 CDDR) () (SETF-MACRO-FUNCTION (QUOTE EXEC-EVENT-ID-PROMPT) (QUOTE expand-EXEC-EVENT-ID-PROMPT)) FIND-EXEC-COMMANDA0001 :D8 (L (0 TABLE) F 0 STR F 1 COM) P@ c(6 GETHASH) NIL () FIND-EXEC-COMMAND :D8 (L (1 TABLE 0 NAME) P 0 STR) .@d @d3@@dd3@@ gA (43 %%SOME-SINGLE 29 CL:SYMBOL-NAME 6 CL:STRINGP) (37 FIND-EXEC-COMMANDA0001) () (SET-DOCUMENTATION (QUOTE FIND-EXEC-COMMAND) (QUOTE CL:FUNCTION) "Find an exec command based on its name (either a string or a symbol). Returns the command entry or NIL if not found." ) CIRCLAR-COPYER :D8 (L (0 INPUT)) @d&hdZHJIJ@J@II\ JO$L[d'H]i_KMKK^IKNHKNKKH]i_KMKK^IKNHKNNIL NIL () COPY-CIRCLE :D8 (P 6 AUX P 5 ID P 4 BODY P 3 NEW P 2 VAL P 1 REST P 0 SCANBUF I 0 X) {p@d!hdZHJIJ@J@II\JL[d#H]KMKK^IKNHKNKKH]KMKK^IKNHKNNIL NIL () EXEC-READA0001 :D8 (L (0 CONDITION) F 0 *TERMINAL-IO* F 1 CTRLUFLG) Po@ ico (29 SHOULDNT 19 XCL:ESCAPE-COLONS-PROCEED 11 CL:FORMAT) NIL ( 24 "Didn't find XCL::ESCAPE-COLONS-PROCEED" 5 "~a~%%") EXEC-READA0002 :D8 (L (0 CONDITION) F 0 *TERMINAL-IO* F 1 CTRLUFLG) Po@ ico (29 SHOULDNT 19 XCL:MAKE-INTERNAL-PROCEED 11 CL:FORMAT) NIL ( 24 "Didn't find XCL:MAKE-INTERNAL-PROCEED" 5 "~a~%%") EXEC-READA0003 :D8 (L (0 CONDITION) F 0 *TERMINAL-IO* F 1 CTRLUFLG) Po@ ico (29 SHOULDNT 19 XCL:UGLY-SYMBOL-PROCEED 11 CL:FORMAT) NIL ( 24 "Didn't find XCL:UGLY-SYMBOL-PROCEED" 5 "~a~%%") EXEC-READ :D8 (L (0 BUFFER-STRING) P 0 *CONDITION-HANDLER-BINDINGS* F 1 *READTABLE* F 2 *CONDITION-HANDLER-BINDINGS* F 3 *EDIT-INPUT-WITH-TTYIN* F 4 INPUTFONT F 5 *CURRENT-EVENT*) ggggggghRg Sig i iQ 0ohdohd@Q U Ti dii (147 CL:READ-PRESERVING-WHITESPACE 133 DSPFONT 125 PRINT-EVENT-PROMPT 117 TTYIN 93 LINEBUFFER-SKIPSEPRS 85 CL:READ 78 DISPLAYSTREAMP 73 GETSTREAM 57 \DEFINEDP) (68 OUTPUT 52 TTYIN 34 EXEC-READA0003 29 XCL:MISSING-PACKAGE 24 EXEC-READA0002 19 XCL:MISSING-EXTERNAL-SYMBOL 14 EXEC-READA0001 9 XCL:SYMBOL-COLON-ERROR 4 :MULTIPLE-HANDLER-BINDINGS) ( 107 (EVALQT FILLBUFFER NOPROMPT) 100 "") DIR :D8 (I 0 ARGS) @ (5 DODIR) NIL () (CL:PROCLAIM (QUOTE (CL:SPECIAL *PER-EXEC-VARIABLES*))) (SETQ *PER-EXEC-VARIABLES* (QUOTE ((CL:* CL:*) (CL:** CL:**) (CL:*** CL:***) (+ +) (CL:++ CL:++) (CL:+++ CL:+++) (- -) (/ /) (CL:// CL://) (CL:/// CL:///) (HELPFLAG T) (*EVALHOOK* NIL) (*APPLYHOOK* NIL) ( *ERROR-OUTPUT* *TERMINAL-IO*) (*READTABLE* *READTABLE*) (*PACKAGE* *PACKAGE*) (XCL:*EVAL-FUNCTION* XCL:*EVAL-FUNCTION*) (XCL:*EXEC-PROMPT* XCL:*EXEC-PROMPT*) (XCL:*DEBUGGER-PROMPT* XCL:*DEBUGGER-PROMPT* )))) (SET-DOCUMENTATION (QUOTE *PER-EXEC-VARIABLES*) (QUOTE CL:VARIABLE) "List of (non-profile) variables rebound for each Exec") (CL:PROCLAIM (QUOTE (CL:SPECIAL CL:*))) (OR (BOUNDP (QUOTE CL:*)) (CL:SETQ CL:* NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL CL:**))) (OR (BOUNDP (QUOTE CL:**)) (CL:SETQ CL:** NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL CL:***))) (OR (BOUNDP (QUOTE CL:***)) (CL:SETQ CL:*** NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL +))) (OR (BOUNDP (QUOTE +)) (CL:SETQ + NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL CL:++))) (OR (BOUNDP (QUOTE CL:++)) (CL:SETQ CL:++ NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL CL:+++))) (OR (BOUNDP (QUOTE CL:+++)) (CL:SETQ CL:+++ NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL -))) (OR (BOUNDP (QUOTE -)) (CL:SETQ - NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL /))) (OR (BOUNDP (QUOTE /)) (CL:SETQ / NIL)) (SET-DOCUMENTATION (QUOTE /) (QUOTE CL:VARIABLE) "Holds a list of all the values returned by the most recent top-level EVAL.") (CL:PROCLAIM (QUOTE (CL:SPECIAL CL://))) (OR (BOUNDP (QUOTE CL://)) (CL:SETQ CL:// NIL)) (SET-DOCUMENTATION (QUOTE CL://) (QUOTE CL:VARIABLE) "Gets the previous value of / when a new value is computed.") (CL:PROCLAIM (QUOTE (CL:SPECIAL CL:///))) (OR (BOUNDP (QUOTE CL:///)) (CL:SETQ CL:/// NIL)) (SET-DOCUMENTATION (QUOTE CL:///) (QUOTE CL:VARIABLE) "Gets the previous value of // when a new value is computed.") (CL:PROCLAIM (QUOTE (CL:SPECIAL *CURRENT-EVENT*))) (OR (BOUNDP (QUOTE *CURRENT-EVENT*)) (CL:SETQ *CURRENT-EVENT* NIL)) (SET-DOCUMENTATION (QUOTE *CURRENT-EVENT*) (QUOTE CL:VARIABLE) "contains the current event being processed. Used for communicating between Exec and commands") (CL:PROCLAIM (QUOTE (CL:SPECIAL *EXEC-ID*))) (OR (BOUNDP (QUOTE *EXEC-ID*)) (CL:SETQ *EXEC-ID* NIL)) (SET-DOCUMENTATION (QUOTE *EXEC-ID*) (QUOTE CL:VARIABLE) "A unique per-exec-process ID so that commands that search the history list can find this Exec's events" ) (CL:PROCLAIM (QUOTE (CL:SPECIAL XCL:*EXEC-PROMPT*))) (OR (BOUNDP (QUOTE XCL:*EXEC-PROMPT*)) (CL:SETQ XCL:*EXEC-PROMPT* "> ")) (SET-DOCUMENTATION (QUOTE XCL:*EXEC-PROMPT*) (QUOTE CL:VARIABLE) "Default prompt used by exec") (CL:PROCLAIM (QUOTE (CL:SPECIAL XCL:*EVAL-FUNCTION*))) (SETQ XCL:*EVAL-FUNCTION* (QUOTE CL:EVAL)) (SET-DOCUMENTATION (QUOTE XCL:*EVAL-FUNCTION*) (QUOTE CL:VARIABLE) "The evaluator to use in the exec") (CL:PROCLAIM (QUOTE (CL:SPECIAL *NOT-YET-EVALUATED*))) (OR (BOUNDP (QUOTE *NOT-YET-EVALUATED*)) (CL:SETQ *NOT-YET-EVALUATED* "")) (CL:PROCLAIM (QUOTE (CL:SPECIAL *THIS-EXEC-COMMANDS*))) (OR (BOUNDP (QUOTE *THIS-EXEC-COMMANDS*)) (CL:SETQ *THIS-EXEC-COMMANDS* NIL)) (SET-DOCUMENTATION (QUOTE *THIS-EXEC-COMMANDS*) (QUOTE CL:VARIABLE) "List of command hash-tables for the current executive") (CL:PROCLAIM (QUOTE (GLOBAL *EXEC-COMMAND-TABLE*))) (OR (BOUNDP (QUOTE *EXEC-COMMAND-TABLE*)) (CL:SETQ *EXEC-COMMAND-TABLE* (HASHARRAY 30 NIL (QUOTE STRING-EQUAL-HASHBITS) (QUOTE STRING-EQUAL)))) (SET-DOCUMENTATION (QUOTE *EXEC-COMMAND-TABLE*) (QUOTE CL:VARIABLE) "hash-table for top level exec commands") (CL:PROCLAIM (QUOTE (GLOBAL *DEBUGGER-COMMAND-TABLE*))) (OR (BOUNDP (QUOTE *DEBUGGER-COMMAND-TABLE*)) (CL:SETQ *DEBUGGER-COMMAND-TABLE* (HASHARRAY 20 NIL ( QUOTE STRING-EQUAL-HASHBITS) (QUOTE STRING-EQUAL)))) (SET-DOCUMENTATION (QUOTE *DEBUGGER-COMMAND-TABLE*) (QUOTE CL:VARIABLE) "string-equal hash-table for debugger commands") (CL:PROCLAIM (QUOTE (CL:SPECIAL *CURRENT-EXEC-TYPE*))) (OR (BOUNDP (QUOTE *CURRENT-EXEC-TYPE*)) (CL:SETQ *CURRENT-EXEC-TYPE* NIL)) (SET-DOCUMENTATION (QUOTE *CURRENT-EXEC-TYPE*) (QUOTE CL:VARIABLE) "Rebound under Exec; if NIL, means use default") (CL:PROCLAIM (QUOTE (CL:SPECIAL *EXEC-MAKE-UNDOABLE-P*))) (SETQ *EXEC-MAKE-UNDOABLE-P* T) (SET-DOCUMENTATION (QUOTE *EXEC-MAKE-UNDOABLE-P*) (QUOTE CL:VARIABLE) "global parameter controls whether the exec makes input undoable") (CL:PROCLAIM (QUOTE (CL:SPECIAL *EDIT-INPUT-WITH-TTYIN*))) (OR (BOUNDP (QUOTE *EDIT-INPUT-WITH-TTYIN*)) (CL:SETQ *EDIT-INPUT-WITH-TTYIN* T)) DO-APPLY-EVENT :D8 (P 2 CNT P 1 FN P 0 A2931 I 0 TODO) V@ '@ l@@dkH@ @j@dnJkZhl4 JI(77 \LISPERROR 44 CL:EVAL 15 ARGTYPE 6 CL:MACRO-FUNCTION) NIL () DO-HISTORY-SEARCH :D8 (P 3 PRED P 2 TEM P 1 PAT2 P 0 PAT1 I 2 VALUE-P I 1 PRED-P I 0 SPEC F 4 *EVENTS* F 5 *CURRENT-EVENT*) S@A@i TUTcATk@(HBTg'T TIi TTcd(70 EDITFINDP 59 EDIT4E 11 EDITFPAT) (48 LISPXVALUES) () EVAL-INPUT :D8 (L (1 ENV 0 TODO) F 6 XCL:*EVAL-FUNCTION*) Vg@dddldf dkdlihI@d l@d@@ o @ @@ @@ @ o @ @0@d IHhZH&J  @dd W@ dkdlih7@d l@dIlo @ @@ @A So @ @jB@]L/A LKJ&Jh[MdnIkYhl4 IH@j@dnIkYhl4 IHA (430 CL:EVAL 416 \LISPERROR 377 \LISPERROR 340 CL:EVAL 319 PRINT 313 PRIN1 298 CL:EVAL 290 APPLY 281 PRINT 275 PRIN1 246 ARGTYPE 222 ARGTYPE 212 CL:MACRO-FUNCTION 197 EVAL 190 APPLY 167 EVAL 152 PRINT 146 PRIN1 131 EVAL 124 APPLY 113 APPLY 104 PRINT 98 PRIN1 83 APPLY 62 ARGTYPE 38 ARGTYPE) (5 EVAL) ( 308 "... = " 270 "... = " 141 "... = " 93 "... = ") EVENTS-INPUT :D8 (L (0 EVENTS) F 4 HISTSTR0) M@d5g@@"d[dgKIHhZH&JTHYHI H(72 LDIFF) (29 EVENT 10 DO-EVENTS) () EXEC-PRIN1 :D8 (L (0 VALUE) F 0 *TERMINAL-IO*) @gPgi (18 WRITE) (11 :ESCAPE 5 :STREAM) () EXEC-VALUE-OF :D8 (I 0 EVENT-SPEC) @` g'$(10 FIND-HISTORY-EVENTS) (19 LISPXVALUES 5 LISPXHISTORY) () GET-NEXT-HISTORY-EVENT :D8 (P 7 A2937 P 6 A2938 P 5 A2935 P 4 A2936 P 1 EVENT I 3 FIRST-ONLY I 2 PROMPT I 1 ID I 0 HISTORY) @1HP@mg@LkkLM AB @IN_jNO @k@ hIYAIIIBKJICHX(82 CL:NTHCDR 68 CL::%%SET-NTH 47 MAKE-EXEC-EVENT 36 CL::%%SET-NTH) (16 :ID) () HISTORY-ADD-TO-SPELLING-LISTS :D8 (I 0 INPUT) f@dd3@Z@ Q@l )@d3@ @ @ '@l @d3@@ @l (99 ADDSPELL 88 BOUNDP 72 ADDSPELL 60 CL:SPECIAL-FORM-P 51 CL:FBOUNDP 29 ADDSPELL 18 \DEFINEDP) NIL () HISTORY-NTH :D8 (P 0 EVENT I 2 ID I 1 N I 0 LST F 1 *CURRENT-EVENT*) 8@hAj@X!HQB HBAkbj@@b(28 STRINGP) NIL () PRINT-HISTORY :D8 (L (2 NOVALUES 1 EVENT-SPECS 0 HISTORY) P 1 HELPCLOCK) ?A@i H"@ dB i i i $(57 TERPRI 46 TERPRI 39 FRESHLINE 32 PRINT-EVENT 22 FIND-HISTORY-EVENTS 13 TERPRI) NIL () FIND-HISTORY-EVENTS :D8 (P 14 A2942 P 13 EVENTS P 8 ALL-P P 7 PRED-P P 6 VAL P 5 VALUE-P P 4 TEM P 3 SPEC P 2 AND-SPEC P 1 ORIGINAL-EVENT-SPEC P 0 *EVENTS* I 1 HISTORY I 0 EVENT-SPEC F 15 *CURRENT-EVENT* F 16 *EXEC-ID*) A@o@gg cJV@J A XJA 1 O O dH_OOh__O_O&_Og @\@b[KOM Og .@A  Oo HOH Og i_@b[OM EOg i]xKd3 jKHjKOhW OM HAK XHONKoi @bOHhNHh IbHXWHh]_HWH@[Og i_@b(397 STRING.EQUAL 348 \NCONC2 322 ERROR 300 SEARCH-FOR-EVENT-NUMBER 291 DO-HISTORY-SEARCH 281 HISTORY-NTH 246 STRING.EQUAL 232 DO-HISTORY-SEARCH 212 STRING.EQUAL 199 REVERSE 194 LDIFF 181 ERROR 164 FIND-HISTORY-EVENTS 154 STRING.EQUAL 139 DO-HISTORY-SEARCH 117 STRING.EQUAL 69 \APPEND2 53 FIND-HISTORY-EVENTS 44 FIND-HISTORY-EVENTS 38 LDIFF 23 CL:MEMBER) (392 ALL 241 = 207 SUCHTHAT 149 FROM 112 F 18 STRING.EQUAL 13 :TEST) ( 316 " ?" 176 "from?" 7 "AND") PRINT-EVENT :D8 (L (1 NOVALUES 0 EVENT) F 10 INPUTFONT F 11 HISTSTR0 F 12 VALUEFONT F 13 DEFAULTFONT F 14 PRINTOUTFONT)  @ig oi s I @g'\JI IoL @ JhI ]NMNi WI WH[HK XHH@oI HddgMWI IoH WI H$d_I JI IoO ܰBIoH 3)H H\oI kI LH K$@g'_6WI I OI JI dI A7WI @g'd_I JI O h(429 EXEC-PRIN1 421 DSPXPOSITION 413 FRESHLINE 389 DSPFONT 373 LISPXREPRINT 362 DSPXPOSITION 354 TERPRI 341 FRESHLINE 334 DSPFONT 308 EXEC-PRIN1 298 SPACES 287 PRIN1 269 EXEC-PRIN1 257 CL:FORMAT 238 CL:FORMAT 224 DSPXPOSITION 216 FRESHLINE 201 DSPFONT 192 CL:FORMAT 178 DSPFONT 152 PRIN1 120 LDIFF 105 DSPFONT 96 DSPXPOSITION 82 DSPXPOSITION 73 PRINT-EVENT-PROMPT 66 CL:FORMAT 53 DSPXPOSITION 32 FRESHLINE 23 STRINGWIDTH 12 \GETSTREAM) (399 LISPXVALUES 321 *LISPXPRINT* 167 DO-EVENTS 42 *HISTORY* 7 OUTPUT) ( 281 ")" 251 "~{~S ~}~&" 231 " ~S" 185 "~A" 146 "" 60 "~{~S ~}~&" 17 "99/9999>") PRINT-EVENT-PROMPT :D8 (P 4 PROMPT P 3 ID P 2 INDEX P 1 A2943 P 0 TERM I 0 EVENT F 5 PROMPTFONT F 6 XCL:*EXEC-PROMPT*) ig H @@UH @1IIIKo̝HoJL HoKJL `Ho`@ @ HoV (132 CL:FORMAT 119 CL:FORMAT 111 ENTRY# 86 CL:FORMAT 70 CL:FORMAT 32 DSPFONT 19 FRESHLINE 10 \GETSTREAM) (105 LISPXHISTORY 92 LISPXHISTORY 5 OUTPUT) ( 126 "~A" 100 "~D~A" 77 "~A/~D~A" 63 "~D~A" 55 "") PROCESS-EXEC-ID :D8 (L (1 ID 0 PROCESS)) R@g E@ @gA-oHkhi Hlm oH b A(78 PROCESSPROP 71 STRING 57 SUBSTRING 45 STRPOS 18 PROCESS.NAME 10 PROCESSPROP) (27 ID 5 ID) ( 64 "" 35 "EXEC") SEARCH-FOR-EVENT-NUMBER :D8 (P 0 ID I 2 SPEC I 1 HISTORY I 0 EVENTS) '@dHBA@ :@B@b(22 ENTRY#) NIL () \PICK.EVALQT :D8 (F 0 XCL:*PROFILE*) >i i ` gigPg` (59 EXEC 53 XCL::SETUP-EXEC-WINDOW 26 \RESETSYSTEMSTATE 21 TTYDISPLAYSTREAM 11 OUTPUT 5 INPUT) (48 \TopLevelTtyWindow 43 :WINDOW 37 :PROFILE 31 :TOP-LEVEL-P 16 \TopLevelTtyWindow) () LISPXREPRINT :D8 (P 1 CNT P 0 FN I 1 FILE I 0 X) Aig b@ @A @dA  +gkA@dnIkYhl4 IH@dgdgdgdg@@A@lJdg@@A dgA @@A@ (205 APPLY 186 TERPRI 170 TAB 83 \LISPERROR 47 CL:STRINGP 40 PRIN2 29 PRIN1 21 STRINGP 12 \GETSTREAM) (177 TERPRI 154 TAB 124 SPACES 116 PRIN2 107 PRIN1 98 PRINT 54 CL:FORMAT 7 OUTPUT) () (MOVD? (QUOTE READ) (QUOTE TTYINREAD)) (MOVD (QUOTE \PICK.EVALQT) (QUOTE \PROC.REPEATEDLYEVALQT)) (SETQ BackgroundMenu) expand-CASE-EQUALP :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @qHHId3@I0 J}d^didgihi0NgKgNhhgNh\M N_O%Oh_ gKgLhhMLO&_O_KIgOgKIhhgOh(100 REVERSE 23 GENSYM) (192 COND 180 LET 171 COND 130 QUOTE 124 STRING.EQUAL 86 OR 71 QUOTE 65 STRING.EQUAL 44 CL:OTHERWISE) () (SETF-MACRO-FUNCTION (QUOTE CASE-EQUALP) (QUOTE expand-CASE-EQUALP)) expand-EXEC-EVENT-PROPS :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHhNIL (10 CDDDR) () (SETF-MACRO-FUNCTION (QUOTE EXEC-EVENT-PROPS) (QUOTE expand-EXEC-EVENT-PROPS)) EXEC-PRINT :D8 (L (0 VALUE) F 0 *TERMINAL-IO*) i @gPgi (24 WRITE 5 FRESHLINE) (17 :ESCAPE 11 :STREAM) () EXEC-FORMAT :D8 (L (0 -args-) F 10 *CURRENT-EVENT*) eka1Hl2 NM9OI gIJhiW glig IJ8Na_OOh__Nk^O&_dnLk\hl4 LK(127 \LISPERROR 70 \GETSTREAM 49 LISPXPUT 29 CL:STRINGP) (65 OUTPUT 55 CL:FORMAT 36 *LISPXPRINT*) () (ADDTOVAR BackgroundMenuCommands (EXEC (QUOTE (ADD-EXEC :TTY T)) "Start a new Exec using XCL:*PROFILE*" (SUBITEMS ("Xerox Common Lisp" (QUOTE (ADD-EXEC :PROFILE "XCL" :TTY T)) "Start a new Exec using XCL profile") ("Common Lisp" (QUOTE (ADD-EXEC :PROFILE "COMMON-LISP" :TTY T)) "Start a Common Lisp Exec" (SUBITEMS ("Old Common Lisp" (QUOTE (ADD-EXEC :PROFILE "LISP" :TTY T)) "Start an old Common Lisp (LISP package) Exec"))) ("Interlisp" (QUOTE (ADD-EXEC :PROFILE "INTERLISP" :TTY T)) "Start an Interlisp Exec" (SUBITEMS ("Old-Interlisp" (QUOTE (ADD-EXEC :PROFILE "OLD-INTERLISP-T" :EXEC (QUOTE EVALQT) :TTY T)) "Start an old-style LISPX window")))))) (ADDTOVAR SYSTEMINITVARS (LISPXHISTORY NIL 0 100 100) (GREETHIST)) (SET-DOCUMENTATION (QUOTE COMMANDS) (QUOTE DEFINE-TYPES) (QUOTE "Exec Commands")) (SETQ PRETTYDEFMACROS (CL:ADJOIN (QUOTE (COMMANDS XCL::X (P * (XCL::%%DEFINE-TYPE-FILE-DEFINITIONS ( QUOTE COMMANDS) (QUOTE XCL::X))))) PRETTYDEFMACROS :TEST (QUOTE CL:EQUAL))) (SETQ PRETTYTYPELST (CL:ADJOIN (QUOTE (CHANGEDCOMMANDSLST COMMANDS "Exec Commands")) PRETTYTYPELST :TEST (QUOTE CL:EQUAL))) (CL:PROCLAIM (QUOTE (GLOBAL CHANGEDCOMMANDSLST))) (OR (BOUNDP (QUOTE CHANGEDCOMMANDSLST)) (CL:SETQ CHANGEDCOMMANDSLST NIL)) (COND ((NOT (CL:GETHASH (QUOTE COMMANDS) *DEFINITION-HASH-TABLE*)) (CL::PUTHASH (QUOTE COMMANDS) *DEFINITION-HASH-TABLE* (CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50)))) (SETQ FILEPKGTYPES (CL:ADJOIN (QUOTE COMMANDS) FILEPKGTYPES)) (PUTPROP (QUOTE COMMANDS) (QUOTE GETDEF) (QUOTE XCL::%%DEFINE-TYPE-GETDEF)) (PUTPROP (QUOTE COMMANDS) (QUOTE DELDEF) (QUOTE XCL::%%DEFINE-TYPE-DELDEF)) (PUTPROP (QUOTE COMMANDS) (QUOTE PUTDEF) (QUOTE XCL::%%DEFINE-TYPE-PUTDEF)) (PUTPROP (QUOTE COMMANDS) (QUOTE FILEGETDEF) (QUOTE XCL::%%DEFINE-TYPE-FILEGETDEF)) (PUTPROP (QUOTE COMMANDS) (QUOTE FILEPKGCONTENTS) (QUOTE NILL)) (PUTPROP (QUOTE DEFCOMMAND) (QUOTE :DEFINER-FOR) (QUOTE COMMANDS)) (PUTPROP (QUOTE COMMANDS) (QUOTE :DEFINED-BY) (CL:ADJOIN (QUOTE DEFCOMMAND) (GET (QUOTE COMMANDS) ( QUOTE :DEFINED-BY)))) XCL::definition-expander-DEFCOMMAND :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) |@HHZJALggoIO"I _I _KgNIMgg  __O__O_ggggOhhggoOOh hhggOoOhgOggOgO gK hOhhIhd_dg#dgdgdgdg_ 5gOgg_o_"gOo (369 ECASE-FAIL 248 MAKE-COMMAND-ENTRY 242 \SIMPLIFY.CL.ARGLIST 171 CL:APPEND 95 \MVLIST 90 PARSE-DEFMACRO 62 STRING 53 PACK*) (357 X 340 *DEBUGGER-COMMAND-TABLE* 332 :BREAK 323 :DEBUGGER 312 :MACRO 304 :EVAL 296 :INPUT 287 :HISTORY 278 :QUIET 236 :ARGUMENTS 229 :MODE 222 :FUNCTION 217 QUOTE 210 PUTHASH 190 CL:DOCUMENTATION 185 CL:SETF 155 CL:LAMBDA 150 FUNCTION 137 QUOTE 132 CL:SYMBOL-FUNCTION 127 CL:SETF 122 PROGN 84 $$MACRO-ENV 79 :ENVIRONMENT 71 $$MACRO-FORM 29 :EVAL 24 *EXEC-COMMAND-TABLE*) ( 364 (:QUIET :HISTORY :INPUT :EVAL :MACRO :DEBUGGER :BREAK) 348 "break-" 197 ((QUOTE COMMANDS)) 160 ($$MACRO-FORM $$MACRO-ENV) 34 "exec-") (PUTPROP (QUOTE DEFCOMMAND) (QUOTE :DEFINITION-EXPANDER) (QUOTE XCL::definition-expander-DEFCOMMAND)) XCL::name-fn-DEFCOMMAND :D8 (L (0 WHOLE)) @dNIL NIL () (PUTPROP (QUOTE DEFCOMMAND) (QUOTE :DEFINITION-NAME) (QUOTE XCL::name-fn-DEFCOMMAND)) (PUTPROP (QUOTE DEFCOMMAND) (QUOTE :DEFINITION-PRINT-TEMPLATE) (QUOTE (NIL NIL NIL :BODY))) (SETQ PRETTYPRINTMACROS (CL:ADJOIN (QUOTE (DEFCOMMAND . XCL::PPRINT-DEFINER)) PRETTYPRINTMACROS :TEST (QUOTE CL:EQUAL))) XCL::expand-DEFCOMMAND :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @AgggHIhNIL (20 DEFCOMMAND 15 COMMANDS 10 XCL:DEFINER) () (SETF-MACRO-FUNCTION (QUOTE DEFCOMMAND) (QUOTE XCL::expand-DEFCOMMAND)) exec-?A0001A0002 :D8 (L (0 TAB) F 0 KEY) P@ (6 GETHASH) NIL () exec-?A0001 :D8 (L (0 VAL) I 1 KEY F 1 COMS F 2 X) )RdHHlghh A@hQcNIL (16 exec-?A0001A0002) () exec-? :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) P 6 COMS P 5 X F 7 INPUTFONT F 8 DEFAULTFONT F 9 *THIS-EXEC-COMMANDS* F 10 COMMENTFONT) '@AHdHI io Wi io Wi io Wi io Wi io W 7dMg Ng gg Z $io Wi ioL Wi L Wi Lg [lki ioK J(288 CL:FORMAT 275 TAB 263 CL:DOCUMENTATION 250 DSPFONT 241 PRINT-ARGLIST 231 DSPFONT 222 CL:FORMAT 208 DSPFONT 199 CL:FORMAT 174 CL:SORT 169 CL:SYMBOL-FUNCTION 154 CL:SYMBOL-FUNCTION 142 MAPHASH 124 REVERSE 116 CL:FORMAT 104 DSPFONT 95 CL:FORMAT 83 DSPFONT 74 CL:FORMAT 62 DSPFONT 53 CL:FORMAT 41 DSPFONT 32 CL:FORMAT 17 PRINT-ALL-DOCUMENTATION) (258 COMMANDS 164 CAR 159 :KEY 149 CL:STRING< 137 exec-?A0001) ( 282 "~A" 215 "~A " 194 "~&" 111 " ~20Tto apply function to the arguments given~&~%%or one of:" 90 "function(arg1 arg2 ...)" 69 " ~20Tto evaluate an expression~&" 48 "" 27 "~&You are typing at the Exec. Enter~&") (SET-DOCUMENTATION "?" (QUOTE COMMANDS) "Show forms of valid input. ? shows name's documentation.") (PUTHASH "?" (QUOTE ((&OPTIONAL NAME) exec-? :QUIET)) *EXEC-COMMAND-TABLE*) exec-?? :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) 1@H`H $g`Hi (45 PRINT-HISTORY 18 PRINT-HISTORY) (37 LISPXHISTORY 29 :INPUT 12 LISPXHISTORY) () (SET-DOCUMENTATION "??" (QUOTE COMMANDS) "Show events specified EVENT-SPECS (or all events)") (PUTHASH "??" (QUOTE ((&REST EVENT-SPECS) exec-?? :QUIET)) *EXEC-COMMAND-TABLE*) exec-CONN :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @d (9 /CNDIR) NIL () (SET-DOCUMENTATION "CONN" (QUOTE COMMANDS) "Change default pathname to DIRECTORY") (PUTHASH "CONN" (QUOTE ((&OPTIONAL DIRECTORY) exec-CONN :EVAL)) *EXEC-COMMAND-TABLE*) exec-DA :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) (4 DATE) NIL () (SET-DOCUMENTATION "DA" (QUOTE COMMANDS) "Returns current time & date") (PUTHASH "DA" (QUOTE (NIL exec-DA :EVAL)) *EXEC-COMMAND-TABLE*) exec-DIR :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) I@1HdHI0J*d[dd3@K o MLh^L&N (70 DODIR 46 CL:INTERN 36 CL:SYMBOL-NAME) NIL ( 41 "INTERLISP") (SET-DOCUMENTATION "DIR" (QUOTE COMMANDS) "Show directory listing for PATHNAME") (PUTHASH "DIR" (QUOTE ((&OPTIONAL PATHNAME &REST KEYWORDS) exec-DIR :EVAL)) *EXEC-COMMAND-TABLE*) exec-DO-EVENTSA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 9 OUTER-EVENT F 10 INPUTS F 11 SI::NLSETQ-VALUE F 12 ADDSPELLFLG F 13 ENV F 14 *CURRENT-EVENT*) i@rW[Z Khcg_dghWN NW _W3OWO'Wg'WgOWMLJO (126 \NCONC2 59 DO-EVENT 50 HISTORY-ADD-TO-SPELLING-LISTS) (99 LISPXVALUES 88 LISPXVALUES 32 EVENT 20 :NORMAL) () exec-DO-EVENTS :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) P 7 SI::*NLSETQFLAG* P 6 *PROCEED-CASES* P 5 SI::NLSETQ-VALUE P 4 OUTER-EVENT P 1 ENV P 0 INPUTS F 8 *CURRENT-EVENT* F 9 *PROCEED-CASES*) z@1AWd LjLgH `WN W5jWL kWL lWL WLKJhc$(97 CL::%%SET-NTH 83 CL::%%SET-NTH 71 CL::%%SET-NTH 55 exec-DO-EVENTSA0001 34 CL::%%SET-NTH 15 COPY-EXEC-EVENT) (43 SI::NLSETQ-PROCEED-CASE 27 DO-EVENTS) () (SET-DOCUMENTATION "DO-EVENTS" (QUOTE COMMANDS) "Execute the multiple events in INPUTS, using the environment ENV for all evaluations.") (PUTHASH "DO-EVENTS" (QUOTE ((&REST INPUTS &ENVIRONMENT ENV) exec-DO-EVENTS :EVAL)) *EXEC-COMMAND-TABLE*) exec-FIX :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) 2@gHo` (47 APPLY 42 \MVLIST 37 CIRCLAR-COPYER 32 EVENTS-INPUT 27 FIND-HISTORY-EVENTS) (22 LISPXHISTORY 9 FIX-FORM) ( 17 (-1)) (SET-DOCUMENTATION "FIX" (QUOTE COMMANDS) "Edit input for specified events") (PUTHASH "FIX" (QUOTE ((&REST EVENT-SPEC) exec-FIX :HISTORY)) *EXEC-COMMAND-TABLE*) exec-FORGET :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) 8@o` Hio $i HX(48 UNDOLISPX2 36 CL:FORMAT 18 FIND-HISTORY-EVENTS) (13 LISPXHISTORY) ( 31 "Forgotten.~&" 8 (-1)) (SET-DOCUMENTATION "FORGET" (QUOTE COMMANDS) "Erase UNDO information (for specified events).") (PUTHASH "FORGET" (QUOTE ((&REST EVENT-SPEC) exec-FORGET :EVAL)) *EXEC-COMMAND-TABLE*) exec-NAME :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @aHHZdJKKLhL` Kk2 OOOgIoNggNhgNgKNM i hhh gO _OOh__Ok_O_O&_(136 PACK* 123 CL:EVAL 105 SUBPAIR 99 EVENTS-INPUT 37 FIND-HISTORY-EVENTS) (129 ARG 91 QUOTE 84 LIST 75 QUOTE 70 SUBPAIR 57 DEFCOMMAND 32 LISPXHISTORY) ( 63 (:HISTORY)) (SET-DOCUMENTATION "NAME" (QUOTE COMMANDS) "NAME command-name [argument-list] [event-spec] defines new command containing the event.") (PUTHASH "NAME" (QUOTE ((COMMAND-NAME &OPTIONAL ARGUMENT-LIST &REST EVENT-SPEC) exec-NAME :EVAL)) *EXEC-COMMAND-TABLE*) exec-NDIR :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) &@!HdHIJogo (35 DODIR) (25 *) ( 30 "" 20 (P COLUMNS 20)) (SET-DOCUMENTATION "NDIR" (QUOTE COMMANDS) "Show directory listing for PATHNAME in abbreviated format" ) (PUTHASH "NDIR" (QUOTE ((&OPTIONAL PATHNAME &REST KEYWORDS) exec-NDIR :EVAL)) *EXEC-COMMAND-TABLE*) exec-PL :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @ $(7 PRINTPROPS) NIL () (SET-DOCUMENTATION "PL" (QUOTE COMMANDS) "Show property list of SYMBOL") (PUTHASH "PL" (QUOTE ((CL:SYMBOL) exec-PL :EVAL)) *EXEC-COMMAND-TABLE*) exec-REDO :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @o` (23 EVENTS-INPUT 18 FIND-HISTORY-EVENTS) (13 LISPXHISTORY) ( 8 (-1)) (SET-DOCUMENTATION "REDO" (QUOTE COMMANDS) "Re-execute specified event(s)") (PUTHASH "REDO" (QUOTE ((&REST EVENT-SPEC) exec-REDO :HISTORY)) *EXEC-COMMAND-TABLE*) exec-REMEMBER :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @ g (16 MARKASCHANGED 6 GETEXPRESSIONFROMEVENTSPEC) (11 EXPRESSIONS) () (SET-DOCUMENTATION "REMEMBER" (QUOTE COMMANDS) "Tell Manager to remember type-in from specified event(s)") (PUTHASH "REMEMBER" (QUOTE ((&REST EVENT-SPEC) exec-REMEMBER :EVAL)) *EXEC-COMMAND-TABLE*) exec-SHH :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @ (6 EVAL-INPUT) NIL () (SET-DOCUMENTATION "SHH" (QUOTE COMMANDS) "Execute LINE without history processing") (PUTHASH "SHH" (QUOTE ((&REST LINE) exec-SHH :QUIET)) *EXEC-COMMAND-TABLE*) exec-UNDO :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) [@o` @d!HH Y JiogioioI $(80 CL:FORMAT 34 UNDOLISPX2 18 FIND-HISTORY-EVENTS) (59 already 13 LISPXHISTORY) ( 74 "~A undone.~&" 67 "~A already undone.~&" 48 "No undo info saved for ~A.~&" 8 (-1)) (SET-DOCUMENTATION "UNDO" (QUOTE COMMANDS) "Undo side effects associated with the specified event (or last undoable one)") (PUTHASH "UNDO" (QUOTE ((&REST EVENT-SPEC) exec-UNDO :EVAL)) *EXEC-COMMAND-TABLE*) exec-USE :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @agQ OHHYdg 1OgOOh _OO _gg FOdghgOOh _OgOOh _gXIg TOdg%OOOh _OO _OgOOh _g_h_iOHh _HXOZdgOOh _6gOOh _ JgO_gJo OOgOho_0O` d_O Oh_O&_O_O0OJd0O*dLKLKL_&O( O&h_*O&&_(O*_ O"O _$_"O$_# _"O d]MOi Osg0O_OO_OO_O _OOooi hd^dgN_,O. O,h_0O,&_.O0O(638 ERROR 611 LISPXUSE1 564 LISPXSUBST 543 LAST 408 FIND-HISTORY-EVENTS 364 ECASE-FAIL 330 \NCONC2 308 \NCONC2 275 \NCONC2 247 \NCONC2 221 \APPEND2 209 \NCONC2 180 STRING.EQUAL 159 \NCONC2 134 \NCONC2 99 STRING.EQUAL 78 \APPEND2 66 \NCONC2 40 STRING.EQUAL) (654 EVENT 579 DO-EVENTS 403 LISPXHISTORY 377 F 353 STATE 340 EXPR 317 ARGS 294 VARS 255 EXPR 233 ARGS 190 VARS 175 IN 167 VARS 146 VARS 121 ARGS 109 EXPR 94 AND 86 ARGS 50 VARS 35 FOR 9 VARS) ( 632 "" 627 "use what??" 390 (-1) 359 (VARS ARGS EXPR)) (SET-DOCUMENTATION "USE" (QUOTE COMMANDS) "USE [FOR ] [IN ]") (PUTHASH "USE" (QUOTE ((&REST LINE) exec-USE :HISTORY)) *EXEC-COMMAND-TABLE*) exec-PPA0001 :D8 (L (0 TYPE)) @g'ghNIL (15 NILL 9 EDITDEF) () exec-PPA0002 :D8 (L (0 WORD)) @hog (16 TYPESOF) (11 CURRENT) ( 6 (FIELDS FILES)) exec-PPA0003 :D8 (L (0 TYPE)) @g'ghNIL (15 NILL 9 EDITDEF) () exec-PP :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 4 *TERMINAL-IO* F 5 LASTWORD F 6 USERWORDS) @1HFUHVIhdgg AIhVhdghddg ToI Yhdgg Z$ToKI IK J(128 SHOWDEF 120 CL:FORMAT 97 TYPESOF 72 CL:FORMAT 58 FIXSPELL 32 TYPESOF) (91 exec-PPA0003 86 ? 52 MUSTAPPROVE 44 exec-PPA0002 26 exec-PPA0001 21 ?) ( 113 "~A definition for ~S:~%%" 66 "No definitions found for ~S.") (SET-DOCUMENTATION "PP" (QUOTE COMMANDS) "Show TYPES (or any) definition for NAME") (PUTHASH "PP" (QUOTE ((&OPTIONAL NAME &REST TYPES) exec-PP :EVAL)) *EXEC-COMMAND-TABLE*) (PUTPROPS CMLEXEC FILETYPE CL:COMPILE-FILE) (RPAQQ CMLEXECCOMS ((FILES CMLUNDO PROFILE) (XCL:PROFILES "EXEC") (STRUCTURES COMMAND-ENTRY EXEC-EVENT-ID EXEC-EVENT HISTORY) (* ; "These are public except for command-entry.") (FUNCTIONS XCL::EXEC-CLOSEFN XCL::EXEC-SHRINKFN XCL::SETUP-EXEC-WINDOW XCL::EXEC-TITLE-FUNCTION FIX-FORM XCL::GET-PROCESS-PROFILE XCL::SAVE-CURRENT-EXEC-PROFILE XCL::SETF-GET-PROCESS-PROFILE XCL:SET-EXEC-TYPE XCL:SET-DEFAULT-EXEC-TYPE XCL::ENTER-EXEC-FUNCTION) (SETFS XCL::GET-PROCESS-PROFILE) (FUNCTIONS DO-EVENT EXEC EXEC-EVAL PRINT-ALL-DOCUMENTATION PRINT-DOCUMENTATION VALUE-OF ADD-EXEC EXEC-READ-LINE EXEC-EVENT-ID-PROMPT FIND-EXEC-COMMAND) (FUNCTIONS CIRCLAR-COPYER) (FNS COPY-CIRCLE) (* ; "CIRCLAR-COPYER and COPY-CIRCLE are the solution for AR#11172") (FNS EXEC-READ DIR) (VARIABLES *PER-EXEC-VARIABLES* CL:* CL:** CL:*** + CL:++ CL:+++ - / CL:// CL:/// *CURRENT-EVENT* *EXEC-ID* XCL:*EXEC-PROMPT* XCL:*EVAL-FUNCTION* *NOT-YET-EVALUATED* *THIS-EXEC-COMMANDS* *EXEC-COMMAND-TABLE* *DEBUGGER-COMMAND-TABLE* *CURRENT-EXEC-TYPE* *EXEC-MAKE-UNDOABLE-P*) (VARIABLES *EDIT-INPUT-WITH-TTYIN*) (FNS DO-APPLY-EVENT DO-HISTORY-SEARCH EVAL-INPUT EVENTS-INPUT EXEC-PRIN1 EXEC-VALUE-OF GET-NEXT-HISTORY-EVENT HISTORY-ADD-TO-SPELLING-LISTS HISTORY-NTH PRINT-HISTORY FIND-HISTORY-EVENTS PRINT-EVENT PRINT-EVENT-PROMPT PROCESS-EXEC-ID SEARCH-FOR-EVENT-NUMBER \PICK.EVALQT LISPXREPRINT) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MOVD? (QUOTE READ) (QUOTE TTYINREAD)) ( MOVD (QUOTE \PICK.EVALQT) (QUOTE \PROC.REPEATEDLYEVALQT)) (SETQ BackgroundMenu))) (FUNCTIONS CASE-EQUALP EXEC-EVENT-PROPS EXEC-PRINT EXEC-FORMAT) (ALISTS (BackgroundMenuCommands EXEC)) (ALISTS ( SYSTEMINITVARS LISPXHISTORY GREETHIST)) (* ;; "Exec Commands") (DEFINE-TYPES COMMANDS) (FUNCTIONS DEFCOMMAND) (COMMANDS "?" "??" "CONN" "DA" "DIR" "DO-EVENTS" "FIX" "FORGET" "NAME" "NDIR" "PL" "REDO" "REMEMBER" "SHH" "UNDO" "USE" "PP") (* ;; "Arrange to use the correct compiler") (PROP FILETYPE CMLEXEC) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA PROCESS-EXEC-ID PRINT-EVENT PRINT-HISTORY EXEC-PRIN1 EVENTS-INPUT EVAL-INPUT EXEC-READ))))) (PUTPROPS CMLEXEC COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1991 1992)) NIL