(FILECREATED " 9-Oct-86 21:35:07" ("compiled on " {ERIS}LIBRARY>CMLEXEC.;28) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED " 9-Sep-86 19:00:19" {ERIS}NEWERR>CMLEXEC.;1 42840 changes to: (FNS CMLEXEC) previous date: " 4-Sep-86 15:33:32" {ERIS}LIBRARY>CMLEXEC.;27) (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 CL:* ** *** *EXEC-FONTS* *NOT-YET-EVALUATED* *PER-EXEC-VARIABLES* + ++ +++ - / // /// EXEC-COMMANDS *DEFAULT-EXECUTIVE*) (FUNCTIONS CASE-EQUALP DEFCOMMAND EVENT-PROPS EXEC-PRINT 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 DO-EVENT CMLEXEC))))) (RPAQQ CMLPROMPT "> ") CMLEXECA0001 D1 (L (0 VAR)) @ (5 CL:EVAL) NIL () CMLEXECA0002A0003A0004A0005 D1 (NAME ERRORSET L (0 NIL) P 2 HELPCLOCK P 1 LISPXHIST F 3 LISPXHIST F 4 ENVIRONMENT F 5 FUNCTION F 6 RESETY) # SjHohiHTU c i(34Q DO-EVENT 5 CMLTRANSLATE 2 EXEC-READ-LINE) NIL ( 17Q (NIL)) CMLEXECA0002A0003A0004 D1 (P 1 RESETY P 0 LISPXHIST F 3 OUTPUT F 4 LISPXHISTORY F 5 *EXEC-ID* F 6 LISPXHIST F 7 TOP-LEVEL-P F 10Q *CURRENT-EVENT* F 11Q PROMPT F 12Q RESETVARSLST F 13Q *EXEC-FONTS*) @ TUWhi cdWS W S V!Wog hgZ JI(73Q ERROR! 66Q RESETRESTORE 54Q CMLEXECA0002A0003A0004A0005 34Q DSPFONT 30Q EXEC-FONTS-INPUT 23Q PRINT-EVENT-PROMPT 12Q GET-NEXT-HISTORY-EVENT) (62Q ERROR 51Q INTERNAL) ( 46Q (CMLEXECA0002A0003A0004A0005)) CMLEXECA0002A0003 D1 (NAME ERRORSET F 0 TOP-LEVEL-P F 1 *LAST-CONDITION*) PhioQhg i(23Q \DO.PROGV) (20Q CMLEXECA0002A0003A0004) ( 12Q (*LAST-CONDITION*)) CMLEXECA0002 D1 (P 20Q /// P 17Q // P 16Q / P 15Q - P 14Q +++ P 13Q ++ P 12Q + P 11Q *** P 10Q ** P 7 CL:* P 6 *CURRENT-EVENT* P 5 #RPARS P 4 *EXEC-ID* P 3 *READTABLE* P 2 *THIS-EXEC-COMMANDS* P 1 OUTPUT P 0 *CURRENT-EXECUTIVE-TYPE* F 21Q COMMANDS F 22Q READTABLE) $gig W"W$` \oi (37Q CMLEXECA0002A0003 26Q PROCESS-EXEC-ID 11Q GETSTREAM) (23Q \RUNNING.PROCESS 6 OUTPUT 2 COMMON-LISP) ( 33Q (CMLEXECA0002A0003)) CMLEXEC D1 (L (0 -args-) P 24Q FUNCTION P 17Q TOP-LEVEL-P P 14Q READTABLE P 11Q ENVIRONMENT P 6 COMMANDS P 3 PROMPT F 25Q *PER-EXEC-VARIABLES* F 26Q CMLPROMPT F 27Q CMLRDTBL) XeHkJdIW, HkMdLhHk__OdOh_Hk__OdOW._Hk__OdOh_Hk_"_ O"dO Hk_&_$O&dO$g_(OgW* gW* g agJkaPJlZ>agMkaPMl]?agOkaOOl_;agOkaOOl_:agOkaNOl_:agQO"l_">agO&kaOO&l_&9(270Q \DO.PROGV 262Q CL:MAPCAR 252Q CL:MAPCAR 241Q ENTEREVALQT) (502Q :FUNCTION 457Q :TITLE 427Q :TOP-LEVEL-P 377Q :READTABLE 347Q :ENVIRONMENT 322Q :COMMANDS 275Q :PROMPT 265Q CMLEXECA0002 255Q CMLEXECA0001 245Q CAR 230Q EVAL-INPUT) () DO-EVENT D1 (L (0 -args-) P 16Q HELPCLOCK F 20Q *CURRENT-EVENT* F 21Q *EXEC-FONTS* F 22Q IT F 23Q ++ F 24Q + F 25Q - F 26Q // F 27Q / F 30Q ** F 31Q CL:* F 32Q *THIS-EXEC-COMMANDS* F 33Q EXEC-COMMANDS F 34Q *** F 35Q ADDSPELLFLG F 36Q LISPXHIST F 37Q +++ F 40Q ///) eka lalHgla0 W" i I_O_lW4W6 h\(hO _dgBOJlO  _%OM hiM_iLd Oc$hg7OJlO _W {O W _gIW ONZOOg$ggO hgOhoh_oOo W W:OOO W cW(c&W*c(Oc*OJlK _W,c@W.c,Oc.W0c8W2c0Oc$c2W W" i O7O W _gOW _OOO _d O(676Q EXEC-PRINT 665Q setf-EVENT-INPUT 621Q setf-EVENT-VALUE 607Q DSPFONT 603Q EXEC-FONTS-VALUES 531Q \MVLIST 470Q CLOCK 462Q DSPFONT 456Q EXEC-FONTS-PRINTOUT 443Q HISTORY-ADD-TO-SPELLING-LISTS 414Q ECASE-FAIL 350Q COMMAND-ENTRY-FUNCTION 267Q setf-EVENT-INPUT 247Q COMMAND-ENTRY-FUNCTION 213Q EXEC-PRINT 166Q STRING-EQUAL 163Q COMMAND-ENTRY-NAME 146Q \MVLIST 142Q COMMAND-ENTRY-FUNCTION 116Q COMMAND-ENTRY-MODE 76Q \APPEND2 45Q DSPFONT 41Q EXEC-FONTS-PRINTOUT) (632Q LISPXVALUES 356Q QUOTE 343Q QUOTE 340Q FUNCALL 332Q :EVAL 300Q *HISTORY* 232Q :HISTORY 124Q :QUIET 24Q EVAL-INPUT) ( 411Q (:QUIET :HISTORY NIL :EVAL) 403Q (COMMAND-ENTRY-MODE TODO) 367Q (ENV)) DO-APPLY-EVENT D1 (P 1 CNT P 0 FN I 0 TODO) I@ @ l@dk@@ @j@dIkYnhl4 IH(100Q \LISPERROR 41Q CL:EVAL 13Q 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*) d@Ahi@i Tg'ZIIJ9IJ1ATk@&HBTg'T  T Ii TTcd(127Q EDITFINDP 122Q EVENT-INPUT 114Q EDIT4E 110Q EVENT-INPUT 15Q EDITFPAT) (101Q LISPXVALUES 26Q *HISTORY*) () EVAL-INPUT D1 (P 1 CNT P 0 FN I 1 ENV I 0 TODO) j@d` 5@ dkdlih@@ l@d@ @ @j@dIkYnhl4 IHA (147Q CL:EVAL 133Q \LISPERROR 74Q CL:EVAL 67Q APPLY 46Q ARGTYPE 17Q ARGTYPE 10Q 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 F 7 *TERMINAL-IO*) WTlUh1Hdi pHKgT KgT iT Hdmhh XdKl KgT iZ 4HiTlUh i [gT /KgT JHhZiT [g i HJHVhc H H(256Q EDITE 232Q READC 224Q SYNTAXP 215Q PEEKCCODE 174Q SYNTAXP 162Q SYNTAXP 152Q CHCON1 147Q LASTC 142Q \NCONC2 123Q READC 115Q SYNTAXP 75Q \NCONC2 61Q READ 52Q SYNTAXP 41Q SYNTAXP 25Q READP) (221Q EOL 170Q RIGHTPAREN 156Q RIGHTBRACKET 111Q SEPR 46Q RIGHTBRACKET 35Q RIGHTPAREN) () GET-NEXT-HISTORY-EVENT D1 (P 5 A2229 P 4 A2230 P 3 A2227 P 2 A2228 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) B@hiAjhih@X "BhiH BAkbjhi@@b(46Q EVENT-ID 30Q 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 A2234 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 VOg i@bZNL >Og i\J3 hiJNL jJHjJOhiW HAJ XHOMJoi @bOHhMHh IbHh\A(304Q \NCONC2 254Q ERROR 232Q SEARCH-FOR-EVENT-NUMBER 223Q HISTORY-NTH 173Q DO-HISTORY-SEARCH 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) ( 250Q " ?") 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 *EXEC-FONTS* F 10Q SKIPFN F 11Q CMLPROMPT F 12Q HISTORY F 13Q NOVALUES F 14Q HISTSTR0 F 15Q *READTABLE*) ]W@kWg@ oA 2@WA hiW@ AoL@ IA W A @g'[WHZ#HJ XAhddg A IA HH@NoA CA =HdAhddg +"HA H[ oA kA KHA J"@g'M5W A A M A IA NdNAW Whi/W A @g'dA IA N A h(531Q FRESHLINE 520Q EXEC-PRINT 513Q DSPXPOSITION 505Q FRESHLINE 461Q DSPFONT 455Q EXEC-FONTS-VALUES 432Q LISPXREPRINT 412Q DSPXPOSITION 404Q TERPRI 372Q FRESHLINE 365Q DSPFONT 361Q EXEC-FONTS-PRINTOUT 332Q SHOWPRIN2 321Q SPACES 311Q PRIN1 272Q SHOWPRIN2 257Q MAPRINT 235Q PRIN2 227Q PRIN1 177Q DSPXPOSITION 171Q TERPRI 164Q MAPRINT 146Q LDIFF 115Q DSPFONT 111Q EXEC-FONTS-INPUT 103Q DSPXPOSITION 75Q FORMAT 72Q EVENT-ID 57Q ENTRY# 43Q PRINT-EVENT-PROMPT 31Q STRINGWIDTH 21Q EVENT-INPUT) (471Q LISPXVALUES 345Q *LISPXPRINT* 253Q PRINT-EVENTA0002 160Q PRINT-EVENTA0001 125Q *HISTORY* 14Q If) ( 305Q ")" 223Q "" 65Q "~D~A" 25Q "99/9999>") PRINT-EVENT-PROMPT D1 (P 2 INDEX P 1 ID P 0 A2236 I 2 OUTPUT I 1 PROMPT I 0 EVENT F 3 *EXEC-FONTS*) 0B @ %S B @ !HHBoIJA i(54Q FORMAT 26Q EVENT-ID 22Q DSPFONT 16Q EXEC-FONTS-PROMPT 7 EVENT-ID 3 FRESH-LINE) NIL ( 45Q "~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) ,@hi$@ HBA@ :@B@bh(31Q ENTRY# 13Q 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 %%STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE COMMAND-ENTRY) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (NAME FUNCTION MODE DOCUMENTATION))) (PUTPROP (QUOTE COMMAND-ENTRY) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (DOCUMENTATION MODE FUNCTION NAME))) 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 %%STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE EVENT) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (INPUT ID (VALUE *NOT-YET-EVALUATED*)))) (PUTPROP (QUOTE EVENT) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (VALUE ID INPUT))) 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 %%STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE EXEC-FONTS) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (PROMPT INPUT PRINTOUT VALUES))) (PUTPROP (QUOTE EXEC-FONTS) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (VALUES PRINTOUT INPUT PROMPT))) 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 %%STRUCTURE-CLASS) (QUOTE LIST-CLASS)) (PUTPROP (QUOTE HISTORY) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (EVENTS INDEX SIZE MOD))) (PUTPROP (QUOTE HISTORY) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (MOD SIZE INDEX EVENTS))) (PROCLAIM (QUOTE (SPECIAL CL:*))) (OR (BOUNDP (QUOTE CL:*)) (SETQ CL:* NIL)) (PROCLAIM (QUOTE (SPECIAL **))) (OR (BOUNDP (QUOTE **)) (SETQ ** NIL)) (PROCLAIM (QUOTE (SPECIAL ***))) (OR (BOUNDP (QUOTE ***)) (SETQ *** NIL)) (PROCLAIM (QUOTE (SPECIAL *EXEC-FONTS*))) (SETQ *EXEC-FONTS* (MAKE-EXEC-FONTS :PROMPT LITTLEFONT :INPUT BOLDFONT :PRINTOUT DEFAULTFONT :VALUES DEFAULTFONT)) (PROCLAIM (QUOTE (SPECIAL *NOT-YET-EVALUATED*))) (OR (BOUNDP (QUOTE *NOT-YET-EVALUATED*)) (SETQ *NOT-YET-EVALUATED* "")) (PROCLAIM (QUOTE (SPECIAL *PER-EXEC-VARIABLES*))) (OR (BOUNDP (QUOTE *PER-EXEC-VARIABLES*)) (SETQ *PER-EXEC-VARIABLES* 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)) (LET* ((A2164 (QUOTE /)) (A2165 (QUOTE VARIABLE)) (A2166 "Holds a list of all the values returned by the most recent top-level EVAL.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A2164 A2165 A2166))) A2166)) (PROCLAIM (QUOTE (SPECIAL //))) (OR (BOUNDP (QUOTE //)) (SETQ // NIL)) (LET* ((A2167 (QUOTE //)) (A2168 (QUOTE VARIABLE)) (A2169 "Gets the previous value of / when a new value is computed.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A2167 A2168 A2169))) A2169)) (PROCLAIM (QUOTE (SPECIAL ///))) (OR (BOUNDP (QUOTE ///)) (SETQ /// NIL)) (LET* ((A2170 (QUOTE ///)) (A2171 (QUOTE VARIABLE)) (A2172 "Gets the previous value of // when a new value is computed.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A2170 A2171 A2172))) A2172)) (PROCLAIM (QUOTE (SPECIAL EXEC-COMMANDS))) (OR (BOUNDP (QUOTE EXEC-COMMANDS)) (SETQ EXEC-COMMANDS NIL)) (LET* ((A2173 (QUOTE EXEC-COMMANDS)) (A2174 (QUOTE VARIABLE)) (A2175 "Association list of executive commands & their expanders")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A2173 A2174 A2175))) A2175)) (PROCLAIM (QUOTE (SPECIAL *DEFAULT-EXECUTIVE*))) (OR (BOUNDP (QUOTE *DEFAULT-EXECUTIVE*)) (SETQ *DEFAULT-EXECUTIVE* (QUOTE COMMON-LISP))) (LET* ((A2176 (QUOTE *DEFAULT-EXECUTIVE*)) (A2177 (QUOTE VARIABLE)) (A2178 "Default executive")) ( PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A2176 A2177 A2178))) A2178)) expand-CASE-EQUALP D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @qHHIlI0 Jwd^didgihi*NhigKgNhhgNh\M N_OhgKgLhhMLiOh_OO&_O_KIgOgKIhhgOh(132Q REVERSE 25Q GENSYM) (262Q COND 250Q LET 241Q COND 157Q QUOTE 153Q STRING.EQUAL 116Q OR 102Q QUOTE 76Q STRING.EQUAL 50Q OTHERWISE) () (SETF-MACRO-FUNCTION (QUOTE CASE-EQUALP) (QUOTE expand-CASE-EQUALP)) expand-DEFCOMMAND D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) Z@ @HH[KAM_ggggoJO"J _LgOJNgg  __O__O_ggggOhhggoOgJOhh hhgggJgOgO gO hOhhhgoggggJhogIhhhhgJhhJCd_dgdgdgdg_ !gg_o_"gOo (517Q ECASE-FAIL 276Q MAKE-COMMAND-ENTRY 230Q \APPEND2 123Q \MVLIST 120Q PARSE-DEFMACRO 73Q PACK* 4 REMOVE-COMMENTS) (506Q X 471Q BREAK-COMMANDS 463Q :BREAK 452Q :MACRO 444Q :EVAL 436Q :HISTORY 427Q :QUIET 401Q QUOTE 355Q QUOTE 342Q QUOTE 337Q \DEFINE-TYPE-SAVE-DEFN 334Q FILEPKGFLG 331Q AND 322Q EVAL-WHEN 270Q :DOCUMENTATION 263Q :MODE 256Q :FUNCTION 252Q :NAME 247Q QUOTE 244Q CL:PUSHNEW 214Q CL:BLOCK 203Q CL:LAMBDA 200Q CL:FUNCTION 165Q QUOTE 162Q SYMBOL-FUNCTION 157Q SETF 154Q PROGN 114Q $$MACRO-ENV 111Q :ENVIRONMENT 102Q $$MACRO-FORM 46Q :EVAL 43Q EXEC-COMMANDS 40Q WITHOUT-FILEPKG 35Q PROGN) ( 514Q (:QUIET :HISTORY :EVAL :MACRO :BREAK) 500Q "break-" 352Q (QUOTE COMMANDS) 326Q (CL:EVAL) 207Q ($$MACRO-FORM $$MACRO-ENV) 52Q "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)) EXEC-PRINT D1 (L (0 VALUE) F 0 *TERMINAL-IO* F 1 SYSPRETTYFLG) @gPgigQ P (24Q TERPRI 20Q WRITE) (13Q :PRETTY 7 :ESCAPE 3 :STREAM) () LISPXFORMAT D1 (L (0 -args-) F 12Q LISPXHIST F 13Q LISPXPRINTFLG) | eka1Hl2 NdM/OWWI gIJhiW gliIJ5a_OOh__Nk^O&_dLk\nhl4 LK(163Q \LISPERROR 64Q LISPXPUT 45Q CL:STRINGP) (70Q FORMAT 51Q *LISPXPRINT*) () \ADD-EXECA0001 D1 (L (0 window)) B@ .`H'g@ddi3hig@h@h gH H h(76Q DEL.PROCESS 70Q PROCESSP 60Q ADD.PROCESS 3 \INSUREWINDOW) (63Q DON'T 44Q QUOTE 22Q CLOSEW 13Q \RUNNING.PROCESS) () \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 ( GETDEF 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")) (COND ((NOT (CL:GETHASH (QUOTE COMMANDS) *DEFINITION-HASH-TABLE*)) (CL:PUTHASH (QUOTE COMMANDS) *DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE (QUOTE :TEST) (QUOTE CL:EQUAL) (QUOTE :SIZE) 50 (QUOTE :REHASH-SIZE) 50)))) (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 *EXEC-FONTS* F 3 *THIS-EXEC-COMMANDS* F 4 EXEC-COMMANDS) @SQo R i Qo `i Qo R i Qo `i Qo QoS ddHHXTddHHXH Qo (210Q FORMAT 200Q FORMAT 130Q IRM.LOOKUP 111Q FORMAT 101Q DSPFONT 72Q FORMAT 62Q DSPFONT 56Q EXEC-FONTS-INPUT 52Q FORMAT 42Q DSPFONT 33Q FORMAT 23Q DSPFONT 17Q EXEC-FONTS-INPUT 13Q FORMAT) (75Q DEFAULTFONT 36Q DEFAULTFONT) ( 205Q "~& ~&? will give more information about ~&" 116Q " ~& ~&or one of the following:~&~A~&" 106Q "to apply function to the arguments given~&" 67Q "function(arg1 arg2 ...) " 47Q " to evaluate an expression~&" 30Q "" 10Q "You are typing at a Common Lisp Exec. Enter ~&") (SETQ EXEC-COMMANDS (ADJOIN (QUOTE (? exec-? :EVAL NIL)) EXEC-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) [@oV WHd;g0H*dZd gJ  LhiKh]LK&M (130Q LISPXFIX 125Q COPY 122Q 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)) D@!Hd6jHdd lHdJkZnhl4 JI (101Q CL:EVAL 66Q \LISPERROR 27Q 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* 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) U@oV WHd;g0H*dZd gJ  LhiKh]LK&M (122Q 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)) NIL