(FILECREATED " 1-Aug-86 01:46:45" ("compiled on " {ERIS}LIBRARY>CMLEXEC.;21) "30-Jul-86 09:02:49" "COMPILE-FILEd" in "Xerox Lisp 30-Jul-86 ..." dated "30-Jul-86 09:16:17") (FILECREATED " 1-Aug-86 01:46:10" {ERIS}LIBRARY>CMLEXEC.;21 48733 changes to: (FNS \PICK.EVALQT \ADD-EXEC) previous date: "31-Jul-86 20:02:28" {ERIS}LIBRARY>CMLEXEC.;19) (RPAQQ CMLEXECCOMS ((VARS CMLPROMPT) (FNS CMLEXEC DO-APPLY-EVENT DO-HISTORY-SEARCH EVAL-INPUT EXEC-READ-LINE 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) (DECLARE: DONTEVAL@LOAD DOCOPY (P (CHANGENAME (QUOTE \PROC.REPEATEDLYEVALQT) (QUOTE EVALQT) (QUOTE \PICK.EVALQT)) (SETQ BackgroundMenu))) (STRUCTURES COMMAND-ENTRY EVENT EXEC-FONTS HISTORY) (VARIABLES BREAK-COMMANDS CL:* ** *** *EXEC-FONTS* *NOT-YET-EVALUATED* + ++ +++ - / // /// EXEC-COMMANDS *DEFAULT-EXECUTIVE*) (FUNCTIONS CASE-EQUALP DEFCOMMAND EVENT-PROPS LISPXFORMAT) (FNS \ADD-EXEC) (ALISTS (BackgroundMenuCommands EXEC)) (PROP FILETYPE CMLEXEC) (DEFINE-TYPES COMMANDS) ( COMMANDS ? ?= ?? ??T AFTER BEFORE CONN DA DIR DO-EVENTS FIX NDIR OK PB PL REMEMBER SHH UNDO REDO FORGET) (PROP EXEC COMMON-LISP INTERLISP) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA \ADD-EXEC CMLEXEC))))) (RPAQQ CMLPROMPT "> ") CMLEXECA0001A0002 D1 (NAME ERRORSET L (0 NIL) P 12 HELPCLOCK P 2 HELPCLOCK P 1 LISPXHIST F 14 *CURRENT-EVENT* F 15 ENVIRONMENT F 16 *READTABLE* F 17 VALUES F 18 IT F 19 ++ F 20 + F 21 - F 22 // F 23 / F 24 ** F 25 CL:* F 26 LISPXHIST F 27 OUTPUT F 28 ADDSPELLFLG F 29 *** F 30 *THIS-EXEC-COMMANDS* F 31 EXEC-COMMANDS F 32 /// F 33 +++ F 34 FUNCTION F 35 RESETY)  W4j ` W6 H\doeLN NifM]diW W"c$YggLWlK WL W_gHW_OOL[liW h]hYK _dg𲩿LWlK  c"OOg!ggK hgLhoh[oOo WL W8KLL W` i l  W&cBW(c&W*c(Lc*KWlWD _W,c@W.c,Oc.W0c:W2c0Oc$c2W` i O1O W_gOW_OOdiW hhcFi(415 SHOWPRINT 376 setf-EVENT-VALUE 365 DSPFONT 361 EXEC-FONTS-VALUES 315 \MVLIST 281 CLOCK 275 DSPFONT 271 EXEC-FONTS-PRINTOUT 261 HISTORY-ADD-TO-SPELLING-LISTS 249 setf-EVENT-INPUT 242 ECASE-FAIL 208 COMMAND-ENTRY-FUNCTION 183 \MVLIST 179 COMMAND-ENTRY-FUNCTION 160 COMMAND-ENTRY-MODE 147 \APPEND2 103 setf-EVENT-INPUT 95 COMMAND-ENTRY-FUNCTION 66 SHOWPRINT 48 STRING-EQUAL 45 COMMAND-ENTRY-NAME 22 DSPFONT 17 EXEC-FONTS-PRINTOUT 5 CMLTRANSLATE 2 EXEC-READ-LINE) (385 LISPXVALUES 358 *EXEC-FONTS* 268 *EXEC-FONTS* 214 QUOTE 204 QUOTE 201 FUNCALL 195 :EVAL 166 :QUIET 112 *HISTORY* 83 :HISTORY 14 *EXEC-FONTS*) ( 239 (:QUIET :HISTORY (NIL :EVAL)) 233 (COMMAND-ENTRY-MODE TODO) 222 (ENV) 30 (NIL)) CMLEXECA0001 D1 (NAME ERRORSET P 1 RESETY P 0 LISPXHIST F 3 OUTPUT F 4 *EXEC-ID* F 5 TOP-LEVEL-P F 6 *CURRENT-EVENT* F 7 RESETVARSLST F 8 PROMPT F 9 LISPXHIST) B`TUh c WS ` S W!Wog hgZ Ji(62 ERROR! 56 RESETRESTORE 46 CMLEXECA0001A0002 28 DSPFONT 24 EXEC-FONTS-INPUT 17 PRINT-EVENT-PROMPT 9 GET-NEXT-HISTORY-EVENT) (52 ERROR 43 INTERNAL 21 *EXEC-FONTS* 2 LISPXHISTORY) ( 40 (CMLEXECA0001A0002)) CMLEXEC D1 (L (0 -args-) P 26 VALUES P 25 *CURRENT-EVENT* P 24 #RPARS P 23 *EXEC-ID* P 22 OUTPUT P 21 *CURRENT-EXECUTIVE-TYPE* P 20 *READTABLE* P 17 TOP-LEVEL-P P 12 FUNCTION P 9 ENVIRONMENT P 6 *THIS-EXEC-COMMANDS* P 3 PROMPT F 27 CMLPROMPT F 28 CMLRDTBL) aeHkJdIW6HkMdLhHk__OdOh_Hk__OdOg_Hk__OdOW8Hk_ _O dOh_"Hk_&_$O&dO$O"gig B` _.oi agJkaGJlZ5agMkaGMl]6agOkaFOl_2agOkaGOl_1agOkaGOl_2agO kaFO l_ 2agIO&l_&6(191 CMLEXECA0001 181 PROCESS-EXEC-ID 172 GETSTREAM 161 ENTEREVALQT) (336 :TITLE 312 :TOP-LEVEL-P 288 :READTABLE 264 :FUNCTION 240 :ENVIRONMENT 219 :COMMANDS 198 :PROMPT 178 \RUNNING.PROCESS 169 OUTPUT 165 COMMON-LISP 86 EVAL-INPUT) ( 187 (CMLEXECA0001)) DO-APPLY-EVENT D1 (P 1 CNT P 0 FN I 0 TODO) I@ @ l@dk@@ @j@dIkYnhl4 IH(64 \LISPERROR 33 CL:EVAL 11 ARGTYPE 4 MACRO-FUNCTION) NIL () DO-HISTORY-SEARCH D1 (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*) `@A@i Tg'ZIIJ9IJ1ATk@&HBTg'T  T Ii TTcd(83 EDITFINDP 78 EVENT-INPUT 72 EDIT4E 68 EVENT-INPUT 9 EDITFPAT) (61 LISPXVALUES 18 *HISTORY*) () EVAL-INPUT D1 (P 1 CNT P 0 FN I 1 ENV I 0 TODO) S@dI @ l@dk@@ @j@dIkYnhl4 IHA (80 CL:EVAL 68 \LISPERROR 37 CL:EVAL 15 ARGTYPE 8 MACRO-FUNCTION) NIL () EXEC-READ-LINE D1 (P 3 CHRCODE P 2 SPACEFLG P 1 TEM P 0 LINE F 4 *READTABLE* F 5 LISPXREADFN F 6 CTRLUFLG) iTlUh1Hi ti HKgT KgT iT Hdmhh XdKl KgT iZ 4HiTlUh i [gT /KgT JHhZiT [g i HJHVhc H H(175 EDITE 155 READC 149 SYNTAXP 142 PEEKCCODE 125 SYNTAXP 115 SYNTAXP 107 CHCON1 104 LASTC 99 \NCONC2 84 READC 78 SYNTAXP 62 \NCONC2 50 READ 43 SYNTAXP 34 SYNTAXP 24 CLEARBUF 18 READP) (146 EOL 121 RIGHTPAREN 111 RIGHTBRACKET 74 SEPR 39 RIGHTBRACKET 30 RIGHTPAREN) () GET-NEXT-HISTORY-EVENT D1 (P 5 A1573 P 4 A1574 P 3 A1571 P 2 A1572 P 1 EVENT I 2 FIRST-ONLY I 1 ID I 0 HISTORY) k@ HFg@J kJK Ah @IL LM @ k@ hIY AI IBHX(93 EVENT-INPUT 83 EVENT-ID 74 NTHCDR 71 HISTORY-EVENTS 65 HISTORY-SIZE 59 setf-HISTORY-EVENTS 50 HISTORY-EVENTS 40 MAKE-EVENT 31 setf-HISTORY-INDEX 21 HISTORY-INDEX 3 HISTORY-EVENTS) (13 :ID) () HISTORY-ADD-TO-SPELLING-LISTS D1 (I 0 INPUT) X@dlL@ E@l #@dl @ !@l @l@ @l (85 ADDSPELL 76 BOUNDP 62 ADDSPELL 52 SPECIAL-FORM-P 45 FBOUNDP 25 ADDSPELL 16 \DEFINEDP) NIL () HISTORY-NTH D1 (P 0 EVENT I 2 ID I 1 N I 0 LST) 3@'Ajh@X BH BAkbj@@b(27 EVENT-ID 17 EVENT-INPUT) NIL () PRINT-HISTORY D1 (P 2 X P 1 HELPCLOCK P 0 EVENTS I 4 FILE I 3 NOVALUES I 2 SKIPFN I 1 LINE I 0 HISTORY) @Dig bA@ D H@ dJD D D (61 VALUES 58 TERPRI 49 TERPRI 44 PRINT-EVENT 32 FIND-HISTORY-EVENTS 25 TERPRI 18 HISTORY-EVENTS 9 GETSTREAM) (6 OUTPUT) () FIND-HISTORY-EVENTS D1 (P 8 A1578 P 7 ALL-P P 6 PRED-P P 5 VAL P 4 VALUE-P P 3 TEM P 2 SPEC P 1 ORIGINAL-EVENT-SPEC P 0 *EVENTS* I 1 HISTORY I 0 EVENT-SPEC F 9 *CURRENT-EVENT* F 10 *EXEC-ID*) A @bHWH@ZOg i_@bOg @[@bZJNL QOg i@bZNL 9Og i\Jd3 jJHjJOhW NL HAJ XHOMJoi @bOHhMHh IbHh\F(191 \NCONC2 167 ERROR 149 SEARCH-FOR-EVENT-NUMBER 142 DO-HISTORY-SEARCH 136 HISTORY-NTH 103 STRING.EQUAL 93 DO-HISTORY-SEARCH 79 STRING.EQUAL 69 DO-HISTORY-SEARCH 50 STRING.EQUAL 30 STRING.EQUAL 3 HISTORY-EVENTS) (100 = 76 SUCHTHAT 47 F 27 ALL) ( 163 " ?") PRINT-EVENTA0001 D1 (I 1 FILE I 0 X) @A (4 PRIN2) NIL () PRINT-EVENTA0002 D1 (I 1 FILE I 0 X) @A (4 SHOWPRIN2) NIL () PRINT-EVENT D1 (P 6 X P 5 PRINTOUT P 4 EVENT# P 3 TEM P 2 Y P 1 POSITION P 0 INPUT I 1 FILE I 0 EVENT F 7 SKIPFN F 8 CMLPROMPT F 9 HISTORY F 10 NOVALUES F 11 HISTSTR0 F 12 *READTABLE*) YW@kWg@ oA 2@WA W@ AoL@ IA ` A @g'[WHZ#HJ XAhddg A IA HH@NoA CA =HdAhddg +"HA H[ oA kA KHA J#@g'M6` A A M A IA MdNAW W1` A @g'dA IA NA A h(341 FRESHLINE 332 SHOWPRINT 326 DSPXPOSITION 320 FRESHLINE 300 DSPFONT 296 EXEC-FONTS-VALUES 280 LISPXREPRINT 264 DSPXPOSITION 258 TERPRI 248 FRESHLINE 243 DSPFONT 239 EXEC-FONTS-PRINTOUT 215 SHOWPRIN2 206 SPACES 198 PRIN1 183 SHOWPRIN2 172 MAPRINT 154 PRIN2 148 PRIN1 124 DSPXPOSITION 118 TERPRI 113 MAPRINT 99 LDIFF 74 DSPFONT 70 EXEC-FONTS-INPUT 63 DSPXPOSITION 57 FORMAT 54 EVENT-ID 43 ENTRY# 35 PRINT-EVENT-PROMPT 25 STRINGWIDTH 17 EVENT-INPUT) (308 LISPXVALUES 293 *EXEC-FONTS* 236 *EXEC-FONTS* 226 *LISPXPRINT* 168 PRINT-EVENTA0002 109 PRINT-EVENTA0001 82 *HISTORY* 67 *EXEC-FONTS* 12 If) ( 194 ")" 144 "" 49 "~D~A" 21 "99/9999>") PRINT-EVENT-PROMPT D1 (P 2 INDEX P 1 ID P 0 A1580 I 2 OUTPUT I 1 PROMPT I 0 EVENT) 2B @ '` B @ !HHBoIJA i(46 FORMAT 24 EVENT-ID 20 DSPFONT 16 EXEC-FONTS-PROMPT 7 EVENT-ID 3 FRESH-LINE) (13 *EXEC-FONTS*) ( 39 "~A~D~A") PROCESS-EXEC-ID D1 (P 1 ID P 0 NAME I 0 X) K@g B@ @goHkhi Hdgolm oHo Y I(71 PROCESSPROP 67 CONCAT 54 SUBATOM 31 STRPOS 12 PROCESS.NAME 6 PROCESSPROP) (38 EXEC 19 ID 3 ID) ( 64 "/" 58 "/" 45 "" 23 "EXEC") SEARCH-FOR-EVENT-NUMBER D1 (P 0 ID I 2 SPEC I 1 HISTORY I 0 EVENTS) &@d HBA@ :@B@b(21 ENTRY# 7 EVENT-ID) NIL () \PICK.EVALQT D1 (F 0 *DEFAULT-EXECUTIVE*) Pggi (16 EVALQT 12 CMLEXEC) (8 :TOP-LEVEL-P 3 COMMON-LISP) () (CHANGENAME (QUOTE \PROC.REPEATEDLYEVALQT) (QUOTE EVALQT) (QUOTE \PICK.EVALQT)) (SETQ BackgroundMenu) COMMAND-ENTRY-DOCUMENTATION D1 (L (0 OBJECT)) @NIL NIL () setf-COMMAND-ENTRY-DOCUMENTATION D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE COMMAND-ENTRY-DOCUMENTATION) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS COMMAND-ENTRY-DOCUMENTATION SETF-INVERSE setf-COMMAND-ENTRY-DOCUMENTATION) COMMAND-ENTRY-MODE D1 (L (0 OBJECT)) @NIL NIL () setf-COMMAND-ENTRY-MODE D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE COMMAND-ENTRY-MODE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS COMMAND-ENTRY-MODE SETF-INVERSE setf-COMMAND-ENTRY-MODE) COMMAND-ENTRY-FUNCTION D1 (L (0 OBJECT)) @NIL NIL () setf-COMMAND-ENTRY-FUNCTION D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE COMMAND-ENTRY-FUNCTION) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS COMMAND-ENTRY-FUNCTION SETF-INVERSE setf-COMMAND-ENTRY-FUNCTION) COMMAND-ENTRY-NAME D1 (L (0 OBJECT)) @NIL NIL () setf-COMMAND-ENTRY-NAME D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE COMMAND-ENTRY-NAME) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS COMMAND-ENTRY-NAME SETF-INVERSE setf-COMMAND-ENTRY-NAME) COPY-COMMAND-ENTRY D1 (L (0 OBJECT)) @@@@@NIL NIL () (DEFPRINT (QUOTE COMMAND-ENTRY) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) MAKE-COMMAND-ENTRY D1 (L (0 -args-)) eHkJdIEh HkKdJHhHkNdMNh_Hk__OdOLh_ILOOhagJkaJlZagKkaKl[agNkaNl^agOkaOl_NIL (142 :DOCUMENTATION 123 :MODE 104 :FUNCTION 85 :NAME) () (PUTPROP (QUOTE COMMAND-ENTRY) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE MAKE-COMMAND-ENTRY)) (PUTPROP (QUOTE COMMAND-ENTRY) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (NAME FUNCTION MODE DOCUMENTATION))) EVENT-VALUE D1 (L (0 OBJECT)) @NIL NIL () setf-EVENT-VALUE D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE EVENT-VALUE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS EVENT-VALUE SETF-INVERSE setf-EVENT-VALUE) EVENT-ID D1 (L (0 OBJECT)) @NIL NIL () setf-EVENT-ID D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE EVENT-ID) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS EVENT-ID SETF-INVERSE setf-EVENT-ID) EVENT-INPUT D1 (L (0 OBJECT)) @NIL NIL () setf-EVENT-INPUT D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE EVENT-INPUT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS EVENT-INPUT SETF-INVERSE setf-EVENT-INPUT) COPY-EVENT D1 (L (0 OBJECT)) @@@@NIL NIL () (DEFPRINT (QUOTE EVENT) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) MAKE-EVENT D1 (L (0 -args-) F 8 *NOT-YET-EVALUATED*) ueHkJdI.haHkKdJ1hHkNdM7W_ILOhagJkaJlZagKkaKl[agNkaNl^NIL (100 :VALUE 81 :ID 62 :INPUT) () (PUTPROP (QUOTE EVENT) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE MAKE-EVENT)) (PUTPROP (QUOTE EVENT) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (INPUT ID (VALUE *NOT-YET-EVALUATED*)))) EXEC-FONTS-VALUES D1 (L (0 OBJECT)) @NIL NIL () setf-EXEC-FONTS-VALUES D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE EXEC-FONTS-VALUES) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS EXEC-FONTS-VALUES SETF-INVERSE setf-EXEC-FONTS-VALUES) EXEC-FONTS-PRINTOUT D1 (L (0 OBJECT)) @NIL NIL () setf-EXEC-FONTS-PRINTOUT D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE EXEC-FONTS-PRINTOUT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS EXEC-FONTS-PRINTOUT SETF-INVERSE setf-EXEC-FONTS-PRINTOUT) EXEC-FONTS-INPUT D1 (L (0 OBJECT)) @NIL NIL () setf-EXEC-FONTS-INPUT D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE EXEC-FONTS-INPUT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS EXEC-FONTS-INPUT SETF-INVERSE setf-EXEC-FONTS-INPUT) EXEC-FONTS-PROMPT D1 (L (0 OBJECT)) @NIL NIL () setf-EXEC-FONTS-PROMPT D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE EXEC-FONTS-PROMPT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS EXEC-FONTS-PROMPT SETF-INVERSE setf-EXEC-FONTS-PROMPT) COPY-EXEC-FONTS D1 (L (0 OBJECT)) @@@@@NIL NIL () (DEFPRINT (QUOTE EXEC-FONTS) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) MAKE-EXEC-FONTS D1 (L (0 -args-)) eHkJdIEh HkKdJHhHkNdMNh_Hk__OdOLh_ILOOhagJkaJlZagKkaKl[agNkaNl^agOkaOl_NIL (142 :VALUES 123 :PRINTOUT 104 :INPUT 85 :PROMPT) () (PUTPROP (QUOTE EXEC-FONTS) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE MAKE-EXEC-FONTS)) (PUTPROP (QUOTE EXEC-FONTS) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (PROMPT INPUT PRINTOUT VALUES))) HISTORY-MOD D1 (L (0 OBJECT)) @NIL NIL () setf-HISTORY-MOD D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE HISTORY-MOD) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS HISTORY-MOD SETF-INVERSE setf-HISTORY-MOD) HISTORY-SIZE D1 (L (0 OBJECT)) @NIL NIL () setf-HISTORY-SIZE D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE HISTORY-SIZE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS HISTORY-SIZE SETF-INVERSE setf-HISTORY-SIZE) HISTORY-INDEX D1 (L (0 OBJECT)) @NIL NIL () setf-HISTORY-INDEX D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE HISTORY-INDEX) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS HISTORY-INDEX SETF-INVERSE setf-HISTORY-INDEX) HISTORY-EVENTS D1 (L (0 OBJECT)) @NIL NIL () setf-HISTORY-EVENTS D1 (L (1 VALUE 0 OBJECT)) @ANIL NIL () (REMPROP (QUOTE HISTORY-EVENTS) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS HISTORY-EVENTS SETF-INVERSE setf-HISTORY-EVENTS) COPY-HISTORY D1 (L (0 OBJECT)) @@@@@NIL NIL () (DEFPRINT (QUOTE HISTORY) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) MAKE-HISTORY D1 (L (0 -args-)) eHkJdIEh HkKdJHhHkNdMNh_Hk__OdOLh_ILOOhagJkaJlZagKkaKl[agNkaNl^agOkaOl_NIL (142 :MOD 123 :SIZE 104 :INDEX 85 :EVENTS) () (PUTPROP (QUOTE HISTORY) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE MAKE-HISTORY)) (PUTPROP (QUOTE HISTORY) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (EVENTS INDEX SIZE MOD))) (OR (BOUNDP (QUOTE BREAK-COMMANDS)) (SETQ BREAK-COMMANDS NIL)) (PROCLAIM (QUOTE (SPECIAL BREAK-COMMANDS))) (OR (BOUNDP (QUOTE CL:*)) (SETQ CL:* NIL)) (PROCLAIM (QUOTE (SPECIAL CL:*))) (OR (BOUNDP (QUOTE **)) (SETQ ** NIL)) (PROCLAIM (QUOTE (SPECIAL **))) (OR (BOUNDP (QUOTE ***)) (SETQ *** NIL)) (PROCLAIM (QUOTE (SPECIAL ***))) (SETQ *EXEC-FONTS* (MAKE-EXEC-FONTS :PROMPT LITTLEFONT :INPUT BOLDFONT :PRINTOUT DEFAULTFONT :VALUES DEFAULTFONT)) (PUT (QUOTE *EXEC-FONTS*) (QUOTE GLOBALVAR) T) (OR (BOUNDP (QUOTE *NOT-YET-EVALUATED*)) (SETQ *NOT-YET-EVALUATED* "")) (PROCLAIM (QUOTE (SPECIAL *NOT-YET-EVALUATED*))) (OR (BOUNDP (QUOTE +)) (SETQ + NIL)) (PROCLAIM (QUOTE (SPECIAL +))) (OR (BOUNDP (QUOTE ++)) (SETQ ++ NIL)) (PROCLAIM (QUOTE (SPECIAL ++))) (OR (BOUNDP (QUOTE +++)) (SETQ +++ NIL)) (PROCLAIM (QUOTE (SPECIAL +++))) (OR (BOUNDP (QUOTE -)) (SETQ - NIL)) (PROCLAIM (QUOTE (SPECIAL -))) (OR (BOUNDP (QUOTE /)) (SETQ / NIL)) (PROCLAIM (QUOTE (SPECIAL /))) (OR (BOUNDP (QUOTE //)) (SETQ // NIL)) (PROCLAIM (QUOTE (SPECIAL //))) (OR (BOUNDP (QUOTE ///)) (SETQ /// NIL)) (PROCLAIM (QUOTE (SPECIAL ///))) (OR (BOUNDP (QUOTE EXEC-COMMANDS)) (SETQ EXEC-COMMANDS NIL)) (PROCLAIM (QUOTE (SPECIAL EXEC-COMMANDS))) (OR (BOUNDP (QUOTE *DEFAULT-EXECUTIVE*)) (SETQ *DEFAULT-EXECUTIVE* (QUOTE COMMON-LISP))) (PROCLAIM (QUOTE (SPECIAL *DEFAULT-EXECUTIVE*))) expand-CASE-EQUALP D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @qHHIlI0 Jmd^didgihi&NgKgNhhgNh\M N_O!Oh_gKgLhhMLO&_O_KIgOgKIhhgOh(86 REVERSE 21 GENSYM) (168 COND 158 LET 151 COND 112 QUOTE 108 STRING.EQUAL 74 OR 62 QUOTE 58 STRING.EQUAL 40 OTHERWISE) () (SETF-MACRO-FUNCTION (QUOTE CASE-EQUALP) (QUOTE expand-CASE-EQUALP)) expand-DEFCOMMAND D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) J@@HH[KAM_ggggoJO"J _LgOJNgg  __O__O_ggggOhhggoOgJOhh hhgggJgOgO gO hOhhhgogggJgIhhhgJhhJCd_dgdgdgdg_ !gg_o_"gOo (319 ECASE-FAIL 187 MAKE-COMMAND-ENTRY 149 \APPEND2 80 \MVLIST 77 PARSE-DEFMACRO 56 PACK*) (310 X 297 BREAK-COMMANDS 291 :BREAK 282 :MACRO 276 :EVAL 270 :HISTORY 263 :QUIET 241 QUOTE 224 COMMANDS 220 PUTPROPS 217 FILEPKGFLG 214 AND 207 EVAL-WHEN 181 :DOCUMENTATION 176 :MODE 171 :FUNCTION 167 :NAME 164 QUOTE 161 CL:PUSHNEW 137 CL:BLOCK 128 CL:LAMBDA 125 CL:FUNCTION 114 QUOTE 111 SYMBOL-FUNCTION 108 SETF 105 PROGN 73 $$MACRO-ENV 70 :ENVIRONMENT 63 $$MACRO-FORM 35 :EVAL 32 EXEC-COMMANDS 29 WITHOUT-FILEPKG 26 PROGN) ( 316 ((:QUIET :HISTORY :EVAL :MACRO) :BREAK) 304 "break-" 211 (CL:EVAL) 132 ($$MACRO-FORM $$MACRO-ENV) 39 "exec-") (SETF-MACRO-FUNCTION (QUOTE DEFCOMMAND) (QUOTE expand-DEFCOMMAND)) (ADDTOVAR PRETTYPRINTMACROS (DEFCOMMAND . PPRINT-DEFINER)) expand-EVENT-PROPS D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHhNIL (8 CDDDR) () (SETF-MACRO-FUNCTION (QUOTE EVENT-PROPS) (QUOTE expand-EVENT-PROPS)) LISPXFORMAT D1 (L (0 -args-) F 10 LISPXHIST F 11 LISPXPRINTFLG) | eka1Hl2 NdM/OWWI gIJhiW gliIJ5a_OOh__Nk^O&_dLk\nhl4 LK(115 \LISPERROR 52 LISPXPUT 37 CL:STRINGP) (56 FORMAT 41 *LISPXPRINT*) () \ADD-EXECA0001 D1 (L (0 window)) <@ .`H!g@ddi3 g@hh gH H h(56 DEL.PROCESS 50 PROCESSP 42 ADD.PROCESS 3 \INSUREWINDOW) (45 DON'T 32 QUOTE 18 CLOSEW 11 \RUNNING.PROCESS) () \ADD-EXEC D1 (L (0 -args-) F 6 *DEFAULT-EXECUTIVE*) ekHVkaAlHhlaIdgogooJK \gg gggLhhIg'oogggi ]LgKMg oMg k M M(163 TTY.PROCESS 159 PUTWINDOWPROP 156 CONCAT 153 SUBSTRING 147 STRPOS 144 PROCESSPROP 133 PROCESSPROP 120 ADD.PROCESS 68 WINDOWADDPROP 58 CREATEW) (141 NAME 130 NAME 125 TITLE 115 RESTARTABLE 112 EXEC 109 NAME 92 EXEC 77 QUOTE 74 TTYDISPLAYSTREAM 71 PROGN 65 \ADD-EXECA0001 62 CLOSEFN 41 INTERLISP 30 COMMON-LISP) ( 137 "#" 103 ((\PICK.EVALQT)) 99 (EVALQT) 52 "Lisp Executive" 47 "Interlisp Exec" 37 "Common Lisp Exec") (ADDTOVAR BackgroundMenuCommands (EXEC (QUOTE (\ADD-EXEC *DEFAULT-EXECUTIVE*)) "Start a new Lisp Executive" (SUBITEMS (Interlisp (QUOTE (\ADD-EXEC (QUOTE INTERLISP)))) ( "Common Lisp" (QUOTE (\ADD-EXEC (QUOTE COMMON-LISP))))))) (PUTPROPS CMLEXEC FILETYPE COMPILE-FILE) (ADDTOVAR PRETTYDEFMACROS (COMMANDS X (P * (MAPCAR (QUOTE X) (FUNCTION (LAMBDA (ITEM) (CL:DO ((DEF ( GET ITEM (QUOTE COMMANDS)))) (DEF DEF) (CERROR "Re-fetch the definition" "No ~S definition for ~S" ( QUOTE COMMANDS) ITEM)))))))) (ADDTOVAR PRETTYTYPELST (CHANGEDCOMMANDSLST COMMANDS "Commands to Lisp Executive")) (ADDTOVAR FILEPKGTYPES COMMANDS) (PUTPROPS COMMANDS GETDEF \DEFINE-TYPE-GETDEF) (PUTPROPS COMMANDS FILEPKGCONTENTS NILL) (PUTPROPS COMMANDS PROPTYPE COMMANDS) exec-? D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 1 *TERMINAL-IO* F 2 *THIS-EXEC-COMMANDS* F 3 EXEC-COMMANDS) @WQo ` i Qo `i Qo ` i Qo `i Qo QoR ddHHXSddHHXH Qo (140 FORMAT 132 FORMAT 92 IRM.LOOKUP 77 FORMAT 69 DSPFONT 62 FORMAT 54 DSPFONT 50 EXEC-FONTS-INPUT 44 FORMAT 36 DSPFONT 29 FORMAT 21 DSPFONT 17 EXEC-FONTS-INPUT 11 FORMAT) (65 DEFAULTFONT 47 *EXEC-FONTS* 32 DEFAULTFONT 14 *EXEC-FONTS*) ( 137 "~& ~&? will give more information about ~&" 82 " ~& ~&or one of the following:~&~A~&" 74 "to apply function to the arguments given~&" 59 "function(arg1 arg2 ...) " 41 " to evaluate an expression~&" 26 "" 8 "You are typing at a Common Lisp Exec. Enter ~&") (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (? exec-? :EVAL NIL)) EXEC-COMMANDS)) break-?= D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 0 LASTPOS) P i P ij (16 PRINT-ARGLIST 11 STKARGS 7 SMARTARGLIST 3 STKNAME) NIL () (SETQ BREAK-COMMANDS (ADJOIN (QUOTE (?= break-?= :EVAL NIL)) BREAK-COMMANDS)) exec-?? D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @`H (14 VALUES 11 PRINT-HISTORY) (7 LISPXHISTORY) () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (?? exec-?? :QUIET NIL)) EXEC-COMMANDS)) exec-??T D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @`H (15 VALUES 11 HISTORY-PRINT) (7 LISPXHISTORY) () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (??T exec-??T :QUIET NIL)) EXEC-COMMANDS)) exec-AFTER D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @g (8 LISPXSTATE) (5 AFTER) () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (AFTER exec-AFTER :EVAL NIL)) EXEC-COMMANDS)) exec-BEFORE D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @g (8 LISPXSTATE) (5 BEFORE) () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (BEFORE exec-BEFORE :EVAL NIL)) EXEC-COMMANDS)) exec-CONN D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @d (7 /CNDIR) NIL () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (CONN exec-CONN :EVAL NIL)) EXEC-COMMANDS)) exec-DA D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) (2 DATE) NIL () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (DA exec-DA :EVAL NIL)) EXEC-COMMANDS)) exec-DIR D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @ (4 DODIR) NIL () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (DIR exec-DIR :EVAL NIL)) EXEC-COMMANDS)) exec-DO-EVENTS D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 4 *CURRENT-EVENT* F 5 ADDSPELLFLG F 6 ENV) Y@'ddgh1UH HdVh YThcg'TgITKJI (84 \NCONC2 49 VALUES 33 DO-EVENT 25 HISTORY-ADD-TO-SPELLING-LISTS) (64 LISPXVALUES 56 LISPXVALUES 10 EVENT) () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (DO-EVENTS exec-DO-EVENTS :EVAL NIL)) EXEC-COMMANDS)) exec-FIX D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) P 1 LISPXID F 6 CMLPROMPT) X@o` VHd7g0H&dZd gJ  LKh]K&M (85 LISPXFIX 82 COPY 79 EVENT-INPUT 54 EVENT-INPUT 49 EVENT-INPUT 39 EVENT-INPUT 13 FIND-HISTORY-EVENTS) (45 EVENT 26 DO-EVENTS 10 LISPXHISTORY) ( 7 (-1)) (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (FIX exec-FIX :HISTORY NIL)) EXEC-COMMANDS)) exec-NDIR D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @ogo (15 DODIR) (8 *) ( 12 "" 5 (P COLUMNS 20)) (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (NDIR exec-NDIR :EVAL NIL)) EXEC-COMMANDS)) break-OK D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) g (5 BREAKRETFROM) (2 CMLEXEC) () (SETQ BREAK-COMMANDS (ADJOIN (QUOTE (OK break-OK :EVAL NIL)) BREAK-COMMANDS)) exec-PB D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @ (8 VALUES 5 PRINTBINDINGS) NIL () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (PB exec-PB :EVAL NIL)) EXEC-COMMANDS)) exec-PL D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @ (8 VALUES 5 PRINTPROPS) NIL () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (PL exec-PL :EVAL NIL)) EXEC-COMMANDS)) exec-REMEMBER D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @ g (10 MARKASCHANGED 4 GETEXPRESSIONFROMEVENTSPEC) (7 EXPRESSIONS) () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (REMEMBER exec-REMEMBER :EVAL NIL)) EXEC-COMMANDS)) exec-SHH D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) D@!Hd6jHdd lHdJkZnhl4 JI (65 CL:EVAL 54 \LISPERROR 23 ARGTYPE) NIL () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (SHH exec-SHH :QUIET NIL)) EXEC-COMMANDS)) exec-UNDO D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 3 *TERMINAL-IO*) X@o` !HISo 2Z IHXgSo J SoId (85 VALUES 81 FORMAT 66 EVENT-INPUT 60 FORMAT 38 UNDOLISPX2 31 FORMAT 13 FIND-HISTORY-EVENTS) (50 already 10 LISPXHISTORY) ( 73 "~A undone.~&" 57 "Already undone.~&" 28 "Nothing saved.~&" 7 (-1)) (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (UNDO exec-UNDO :EVAL NIL)) EXEC-COMMANDS)) exec-REDO D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) P 1 LISPXID F 6 CMLPROMPT) R@o` VHd7g0H&dZd gJ  LKh]K&M (79 EVENT-INPUT 54 EVENT-INPUT 49 EVENT-INPUT 39 EVENT-INPUT 13 FIND-HISTORY-EVENTS) (45 EVENT 26 DO-EVENTS 10 LISPXHISTORY) ( 7 (-1)) (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (REDO exec-REDO :HISTORY NIL)) EXEC-COMMANDS)) exec-FORGET D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 1 *TERMINAL-IO*) 2@` HQo ` i HX(42 UNDOLISPX2 35 FIND-HISTORY-EVENTS 28 VALUES 24 FORMAT 9 HISTORY-EVENTS) (32 LISPXHISTORY 6 LISPXHISTORY) ( 21 "Forgotten.~&") (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (FORGET exec-FORGET :EVAL NIL)) EXEC-COMMANDS)) (PUTPROPS COMMON-LISP EXEC (CMLEXEC :TOP-LEVEL-P T)) (PUTPROPS INTERLISP EXEC (EVALQT)) (PUTPROPS CMLEXEC COPYRIGHT ("Xerox Corporation" 1985 1986)) STOP