(FILECREATED " 5-Aug-86 16:58:40" ("compiled on " {ERIS}LIBRARY>CMLEXEC.;23) " 4-Aug-86 17:43:14" "COMPILE-FILEd" in "Xerox Lisp 4-Aug-86 ..." dated " 4-Aug-86 22:17:52") (FILECREATED " 5-Aug-86 16:54:46" {ERIS}LIBRARY>CMLEXEC.;23 24179 changes to: (FNS EXEC-READ-LINE CMLEXEC DO-EVENT) (COMMANDS OK DO-EVENTS) (VARS CMLEXECCOMS) previous date: " 1-Aug-86 01:46:10" {ERIS}LIBRARY>CMLEXEC.;21) (RPAQQ CMLEXECCOMS ((VARS CMLPROMPT) (FNS CMLEXEC DO-EVENT 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 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 2 HELPCLOCK P 1 LISPXHIST F 3 LISPXHIST F 4 ENVIRONMENT F 5 RESETY)  SjHoHT hc i(26Q DO-EVENT 5 CMLTRANSLATE 2 EXEC-READ-LINE) NIL ( 17Q (NIL)) CMLEXECA0001 D1 (NAME ERRORSET P 1 RESETY P 0 LISPXHIST F 3 OUTPUT F 4 LISPXHISTORY F 5 *EXEC-ID* F 6 RESETVARSLST F 7 TOP-LEVEL-P F 10Q *CURRENT-EVENT* F 11Q PROMPT F 12Q LISPXHIST) @TUWh cWS ` S W!Vog hgZ Ji(74Q ERROR! 66Q RESETRESTORE 54Q CMLEXECA0001A0002 33Q DSPFONT 27Q EXEC-FONTS-INPUT 20Q PRINT-EVENT-PROMPT 10Q GET-NEXT-HISTORY-EVENT) (62Q ERROR 51Q INTERNAL 24Q *EXEC-FONTS*) ( 46Q (CMLEXECA0001A0002)) CMLEXEC D1 (L (0 -args-) P 25Q *CURRENT-EVENT* P 24Q #RPARS P 23Q *EXEC-ID* P 22Q OUTPUT P 21Q *CURRENT-EXECUTIVE-TYPE* P 20Q *READTABLE* P 15Q TOP-LEVEL-P P 10Q ENVIRONMENT P 3 PROMPT F 26Q CMLPROMPT F 27Q CMLRDTBL) $eHkJdIW,HkMdLHk_OdNh_Hk__OdOW.Hk__OdOh_Hk__OdOOgig 2 _&oi agJkahJlZVaghMl]XagOkacOl_PagOkacOl_NagOkabOl_NageOl_R(236Q CMLEXECA0001 224Q PROCESS-EXEC-ID 221Q THIS.PROCESS 213Q GETSTREAM 200Q ENTEREVALQT) (423Q :TITLE 373Q :TOP-LEVEL-P 343Q :READTABLE 313Q :ENVIRONMENT 272Q :COMMANDS 245Q :PROMPT 210Q OUTPUT 204Q COMMON-LISP) ( 232Q (CMLEXECA0001)) DO-EVENT D1 (P 14Q VALUES P 13Q HELPCLOCK P 12Q X P 11Q ECASE0209 P 10Q COM P 2 VALUES P 1 INPUT P 0 TODO I 1 ENVIRONMENT I 0 ORIGINAL-INPUT F 15Q *CURRENT-EVENT* F 16Q *READTABLE* F 17Q IT F 20Q ++ F 21Q + F 22Q - F 23Q // F 24Q / F 25Q ** F 26Q CL:* F 27Q *THIS-EXEC-COMMANDS* F 30Q EXEC-COMMANDS F 31Q *** F 32Q ADDSPELLFLG F 33Q LISPXHIST F 34Q +++ F 35Q ///)  p` i @IXlW.W0 O(hH  OdgFIAlH  Z-_IO OiO_d OiW Jchg0IAlH WwI Wg@WLKOOg!ggH hgIhohXoOo WW4HII Wc6` i l  W c8W"c W$c"Ic$HA _W&c:W(c&Oc(W*c2W,c*Occ,W` i O8O WgOWNMI jd OiW O(635Q SHOWPRINT 614Q setf-EVENT-INPUT 557Q setf-EVENT-VALUE 545Q DSPFONT 541Q EXEC-FONTS-VALUES 466Q \MVLIST 463Q EVAL-INPUT 430Q CLOCK 422Q DSPFONT 416Q EXEC-FONTS-PRINTOUT 402Q HISTORY-ADD-TO-SPELLING-LISTS 356Q ECASE-FAIL 314Q COMMAND-ENTRY-FUNCTION 237Q setf-EVENT-INPUT 221Q COMMAND-ENTRY-FUNCTION 170Q SHOWPRINT 135Q STRING-EQUAL 132Q COMMAND-ENTRY-NAME 114Q \MVLIST 110Q COMMAND-ENTRY-FUNCTION 63Q COMMAND-ENTRY-MODE 41Q \APPEND2 14Q DSPFONT 10Q EXEC-FONTS-PRINTOUT) (566Q LISPXVALUES 536Q *EXEC-FONTS* 413Q *EXEC-FONTS* 322Q QUOTE 310Q QUOTE 305Q FUNCALL 277Q :EVAL 246Q *HISTORY* 206Q :HISTORY 74Q :QUIET 5 *EXEC-FONTS*) ( 353Q (:QUIET :HISTORY (NIL :EVAL)) 345Q (COMMAND-ENTRY-MODE TODO) 332Q (ENV)) DO-APPLY-EVENT D1 (P 1 CNT P 0 FN I 0 TODO) J@ @ l@dk@@ @j@dIkYno IH(101Q LISPERROR 41Q CL:EVAL 13Q ARGTYPE 4 MACRO-FUNCTION) NIL ( 76Q "TOO MANY ARGUMENTS") 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(123Q EDITFINDP 116Q EVENT-INPUT 110Q EDIT4E 104Q EVENT-INPUT 11Q EDITFPAT) (75Q LISPXVALUES 22Q *HISTORY*) () EVAL-INPUT D1 (P 1 CNT P 0 FN I 1 ENV I 0 TODO) T@dJ @ l@dk@@ @j@dIkYno IHA (121Q CL:EVAL 105Q LISPERROR 45Q CL:EVAL 17Q ARGTYPE 10Q MACRO-FUNCTION) NIL ( 102Q "TOO MANY ARGUMENTS") 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) iTlUh1Hdi pHKgT KgT iT Hdmhh XdKl KgT iZ 4HiTlUh i [gT /KgT JHhZiT [g i HJHVhc H H(255Q EDITE 231Q READC 223Q SYNTAXP 214Q PEEKCCODE 173Q SYNTAXP 161Q SYNTAXP 151Q CHCON1 146Q LASTC 141Q \NCONC2 122Q READC 114Q SYNTAXP 74Q \NCONC2 60Q READ 51Q SYNTAXP 40Q SYNTAXP 24Q READP) (220Q EOL 167Q RIGHTPAREN 155Q RIGHTBRACKET 110Q SEPR 45Q RIGHTBRACKET 34Q RIGHTPAREN) () GET-NEXT-HISTORY-EVENT D1 (P 5 A0218 P 4 A0219 P 3 A0216 P 2 A0217 P 1 EVENT I 2 FIRST-ONLY I 1 ID I 0 HISTORY) k@ HFg@J kJK Ah @IL LM @ k@ hIY AI IBHX(135Q EVENT-INPUT 123Q EVENT-ID 112Q NTHCDR 107Q HISTORY-EVENTS 101Q HISTORY-SIZE 73Q setf-HISTORY-EVENTS 62Q HISTORY-EVENTS 50Q MAKE-EVENT 37Q setf-HISTORY-INDEX 25Q HISTORY-INDEX 3 HISTORY-EVENTS) (15Q :ID) () HISTORY-ADD-TO-SPELLING-LISTS D1 (I 0 INPUT) X@dlL@ E@l #@dl @ !@l @l@ @l (125Q ADDSPELL 114Q BOUNDP 76Q ADDSPELL 64Q SPECIAL-FORM-P 55Q FBOUNDP 31Q ADDSPELL 20Q \DEFINEDP) NIL () HISTORY-NTH D1 (P 0 EVENT I 2 ID I 1 N I 0 LST) 3@'Ajh@X BH BAkbj@@b(33Q EVENT-ID 21Q 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 (75Q VALUES 72Q TERPRI 61Q TERPRI 54Q PRINT-EVENT 40Q FIND-HISTORY-EVENTS 31Q TERPRI 22Q HISTORY-EVENTS 11Q GETSTREAM) (6 OUTPUT) () FIND-HISTORY-EVENTS D1 (P 10Q A0223 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 11Q *CURRENT-EVENT* F 12Q *EXEC-ID*) A @bHWH@ZOg i_@bOg @[@bZJNL QOg i@bZNL 9Og i\Jd3 jJHjJOhW NL HAJ XHOMJoi @bOHhMHh IbHh\F(277Q \NCONC2 247Q ERROR 225Q SEARCH-FOR-EVENT-NUMBER 216Q DO-HISTORY-SEARCH 210Q HISTORY-NTH 147Q STRING.EQUAL 135Q DO-HISTORY-SEARCH 117Q STRING.EQUAL 105Q DO-HISTORY-SEARCH 62Q STRING.EQUAL 36Q STRING.EQUAL 3 HISTORY-EVENTS) (144Q = 114Q SUCHTHAT 57Q F 33Q ALL) ( 243Q " ?") 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 10Q CMLPROMPT F 11Q HISTORY F 12Q NOVALUES F 13Q HISTSTR0 F 14Q *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(525Q FRESHLINE 514Q SHOWPRINT 506Q DSPXPOSITION 500Q FRESHLINE 454Q DSPFONT 450Q EXEC-FONTS-VALUES 430Q LISPXREPRINT 410Q DSPXPOSITION 402Q TERPRI 370Q FRESHLINE 363Q DSPFONT 357Q EXEC-FONTS-PRINTOUT 327Q SHOWPRIN2 316Q SPACES 306Q PRIN1 267Q SHOWPRIN2 254Q MAPRINT 232Q PRIN2 224Q PRIN1 174Q DSPXPOSITION 166Q TERPRI 161Q MAPRINT 143Q LDIFF 112Q DSPFONT 106Q EXEC-FONTS-INPUT 77Q DSPXPOSITION 71Q FORMAT 66Q EVENT-ID 53Q ENTRY# 43Q PRINT-EVENT-PROMPT 31Q STRINGWIDTH 21Q EVENT-INPUT) (464Q LISPXVALUES 445Q *EXEC-FONTS* 354Q *EXEC-FONTS* 342Q *LISPXPRINT* 250Q PRINT-EVENTA0002 155Q PRINT-EVENTA0001 122Q *HISTORY* 103Q *EXEC-FONTS* 14Q If) ( 302Q ")" 220Q "" 61Q "~D~A" 25Q "99/9999>") PRINT-EVENT-PROMPT D1 (P 2 INDEX P 1 ID P 0 A0225 I 2 OUTPUT I 1 PROMPT I 0 EVENT) 2B @ '` B @ !HHBoIJA i(56Q FORMAT 30Q EVENT-ID 24Q DSPFONT 20Q EXEC-FONTS-PROMPT 7 EVENT-ID 3 FRESH-LINE) (15Q *EXEC-FONTS*) ( 47Q "~A~D~A") PROCESS-EXEC-ID D1 (P 1 ID P 0 NAME I 0 X) K@g B@ @goHkhi Hdgolm oHo Y I(107Q PROCESSPROP 103Q CONCAT 66Q SUBATOM 37Q STRPOS 14Q PROCESS.NAME 6 PROCESSPROP) (46Q EXEC 23Q ID 3 ID) ( 100Q "/" 72Q "/" 55Q "" 27Q "EXEC") SEARCH-FOR-EVENT-NUMBER D1 (P 0 ID I 2 SPEC I 1 HISTORY I 0 EVENTS) &@d HBA@ :@B@b(25Q ENTRY# 7 EVENT-ID) NIL () \PICK.EVALQT D1 (F 0 *DEFAULT-EXECUTIVE*) Pggi (20Q EVALQT 14Q CMLEXEC) (10Q :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 (216Q :DOCUMENTATION 173Q :MODE 150Q :FUNCTION 125Q :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 10Q *NOT-YET-EVALUATED*) ueHkJdI.haHkKdJ1hHkNdM7W_ILOhagJkaJlZagKkaKl[agNkaNl^NIL (144Q :VALUE 121Q :ID 76Q :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 (216Q :VALUES 173Q :PRINTOUT 150Q :INPUT 125Q :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 (216Q :MOD 173Q :SIZE 150Q :INDEX 125Q :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(126Q REVERSE 25Q GENSYM) (250Q COND 236Q LET 227Q COND 160Q QUOTE 154Q STRING.EQUAL 112Q OR 76Q QUOTE 72Q STRING.EQUAL 50Q 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 (477Q ECASE-FAIL 273Q MAKE-COMMAND-ENTRY 225Q \APPEND2 120Q \MVLIST 115Q PARSE-DEFMACRO 70Q PACK*) (466Q X 451Q BREAK-COMMANDS 443Q :BREAK 432Q :MACRO 424Q :EVAL 416Q :HISTORY 407Q :QUIET 361Q QUOTE 340Q COMMANDS 334Q PUTPROPS 331Q FILEPKGFLG 326Q AND 317Q EVAL-WHEN 265Q :DOCUMENTATION 260Q :MODE 253Q :FUNCTION 247Q :NAME 244Q QUOTE 241Q CL:PUSHNEW 211Q CL:BLOCK 200Q CL:LAMBDA 175Q CL:FUNCTION 162Q QUOTE 157Q SYMBOL-FUNCTION 154Q SETF 151Q PROGN 111Q $$MACRO-ENV 106Q :ENVIRONMENT 77Q $$MACRO-FORM 43Q :EVAL 40Q EXEC-COMMANDS 35Q WITHOUT-FILEPKG 32Q PROGN) ( 474Q ((:QUIET :HISTORY :EVAL :MACRO) :BREAK) 460Q "break-" 323Q (CL:EVAL) 204Q ($$MACRO-FORM $$MACRO-ENV) 47Q "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 (10Q CDDDR) () (SETF-MACRO-FUNCTION (QUOTE EVENT-PROPS) (QUOTE expand-EVENT-PROPS)) LISPXFORMAT D1 (L (0 -args-) F 12Q LISPXHIST F 13Q LISPXPRINTFLG) } eka1Hl2 NdM/OWWI gIJhiW gliIJ6a_OOh__Nk^O&_dLk\no LK(164Q LISPERROR 64Q LISPXPUT 45Q CL:STRINGP) (70Q FORMAT 51Q *LISPXPRINT*) ( 161Q "TOO MANY ARGUMENTS") \ADD-EXECA0001 D1 (L (0 window)) <@ .H!g@ddi3 g@hh gH H h(70Q DEL.PROCESS 62Q PROCESSP 52Q ADD.PROCESS 13Q THIS.PROCESS 3 \INSUREWINDOW) (55Q DON'T 40Q QUOTE 22Q CLOSEW) () \ADD-EXEC D1 (L (0 -args-) F 6 *DEFAULT-EXECUTIVE*) ekHVkaAlHhlaIdgogooJK \gg gggLhhIg'oogggi ]LgKMg oMg k M M(243Q TTY.PROCESS 237Q PUTWINDOWPROP 234Q CONCAT 231Q SUBSTRING 223Q STRPOS 220Q PROCESSPROP 205Q PROCESSPROP 170Q ADD.PROCESS 104Q WINDOWADDPROP 72Q CREATEW) (215Q NAME 202Q NAME 175Q TITLE 163Q RESTARTABLE 160Q EXEC 155Q NAME 134Q EXEC 115Q QUOTE 112Q TTYDISPLAYSTREAM 107Q PROGN 101Q \ADD-EXECA0001 76Q CLOSEFN 51Q INTERLISP 36Q COMMON-LISP) ( 211Q "#" 147Q ((\PICK.EVALQT)) 143Q (EVALQT) 64Q "Lisp Executive" 57Q "Interlisp Exec" 45Q "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 (214Q FORMAT 204Q FORMAT 134Q IRM.LOOKUP 115Q FORMAT 105Q DSPFONT 76Q FORMAT 66Q DSPFONT 62Q EXEC-FONTS-INPUT 54Q FORMAT 44Q DSPFONT 35Q FORMAT 25Q DSPFONT 21Q EXEC-FONTS-INPUT 13Q FORMAT) (101Q DEFAULTFONT 57Q *EXEC-FONTS* 40Q DEFAULTFONT 16Q *EXEC-FONTS*) ( 211Q "~& ~&? will give more information about ~&" 122Q " ~& ~&or one of the following:~&~A~&" 112Q "to apply function to the arguments given~&" 73Q "function(arg1 arg2 ...) " 51Q " to evaluate an expression~&" 32Q "" 10Q "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 (20Q PRINT-ARGLIST 13Q 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) F 1 LISPXHISTORY) @QH (14Q VALUES 11Q PRINT-HISTORY) NIL () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (?? exec-?? :QUIET NIL)) EXEC-COMMANDS)) exec-??T D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) F 1 LISPXHISTORY) @QH (15Q VALUES 11Q HISTORY-PRINT) NIL () (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (??T exec-??T :QUIET NIL)) EXEC-COMMANDS)) exec-AFTER D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @g (10Q 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 (10Q 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) P 6 *CURRENT-EVENT* F 7 *CURRENT-EVENT* F 10Q ADDSPELLFLG) d@QAH*ddghWL LI ]MW hcg'WgMWKJM (137Q \NCONC2 72Q VALUES 50Q DO-EVENT 37Q HISTORY-ADD-TO-SPELLING-LISTS) (112Q LISPXVALUES 101Q LISPXVALUES 21Q 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 LISPXHISTORY F 7 CMLPROMPT) W@oV WHd7g0H&dZd gJ  LKh]K&M (124Q LISPXFIX 121Q COPY 116Q EVENT-INPUT 65Q EVENT-INPUT 60Q EVENT-INPUT 46Q EVENT-INPUT 13Q FIND-HISTORY-EVENTS) (54Q EVENT 31Q DO-EVENTS) ( 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 (17Q DODIR) (10Q *) ( 14Q "" 5 (P COLUMNS 24Q)) (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (NDIR exec-NDIR :EVAL NIL)) EXEC-COMMANDS)) exec-PB D1 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @ (10Q 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)) @ (10Q 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 (12Q 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)) E@!Hd7jHdd lHdJkZno JI (102Q CL:EVAL 67Q LISPERROR 27Q ARGTYPE) NIL ( 64Q "TOO MANY ARGUMENTS") (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* F 4 LISPXHISTORY) V@oT !HISo 2Z IHXgSo J SoId (123Q VALUES 117Q FORMAT 100Q EVENT-INPUT 72Q FORMAT 44Q UNDOLISPX2 35Q FORMAT 13Q FIND-HISTORY-EVENTS) (60Q already) ( 107Q "~A undone.~&" 67Q "Already undone.~&" 32Q "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 LISPXHISTORY F 7 CMLPROMPT) Q@oV WHd7g0H&dZd gJ  LKh]K&M (116Q EVENT-INPUT 65Q EVENT-INPUT 60Q EVENT-INPUT 46Q EVENT-INPUT 13Q FIND-HISTORY-EVENTS) (54Q EVENT 31Q DO-EVENTS) ( 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 LISPXHISTORY F 2 *TERMINAL-IO*) .@Q HRo Q i HX(46Q UNDOLISPX2 37Q FIND-HISTORY-EVENTS 32Q VALUES 26Q FORMAT 7 HISTORY-EVENTS) NIL ( 23Q "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