(FILECREATED "24-Sep-86 11:27:38" ("compiled on " {ERIS}SOURCES>MACHINEINDEPENDENT.;58) "16-Sep-86 11:57:30" brecompiled exprs: PRINT-READER-ENVIRONMENT in "Xerox Lisp 16-Sep-86 ..." dated "16-Sep-86 12:29:41") (FILECREATED "24-Sep-86 11:25:00" {ERIS}SOURCES>MACHINEINDEPENDENT.;58 128965 changes to: ( FNS PRINT-READER-ENVIRONMENT) previous date: "15-Sep-86 12:23:44" {ERIS}SOURCES>MACHINEINDEPENDENT.;56) COMPARELISTSA0001 D1 (NAME ERRORSET P 0 DIFFERENCES F 1 X F 2 Y F 3 MACROY) 5QRi QR Hg hcid k (54Q SPACES 47Q PRIN2 34Q TERPRI 30Q PRIN1 16Q \COMPARELISTSBLOCK/COMPAREPRINT 10Q COMPARELST) (25Q SAME) () COMPARELISTS D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 Y I 0 X F 4 RESETVARSLST) ;i 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q COMPARELISTSA0001 3 OUTPUT) (52Q OUTPUT 42Q ERROR 33Q INTERNAL 11Q OUTPUT) ( 30Q (COMPARELISTSA0001)) COMPARELST D1 (L (1 Y 0 X) I 2 LOOSEMATCH) Bm@A b@A (21Q \COMPARELISTSBLOCK/COMPARE1 11Q \COMPARELISTSBLOCK/COMPAREMAX) NIL () \COMPARELISTSBLOCK/COMPARE1 D1 (L (1 Y 0 X) F 0 LOOSEMATCH) O@A*@dA@d`A`@@A@A PiA@dA hbAb(75Q \COMPARELISTSBLOCK/COMPARE1 52Q \COMPARELISTSBLOCK/COMPAREFAIL) (34Q COMMENTFLG 24Q COMMENTFLG) () \COMPARELISTSBLOCK/COMPAREPRINTA0002 D1 (NAME ERRORSET F 0 X F 1 Y F 2 MACROY) PPQhFPdQP Q 1g PQ g g QP g ici(110Q TERPRI 104Q PRIN1 75Q \COMPARELISTSBLOCK/COMPAREPRINT1 67Q PRIN1 60Q TERPRI 54Q PRIN1 45Q \COMPARELISTSBLOCK/COMPAREPRINT1 37Q PRIN1 27Q PRINT 22Q PRINT) (101Q %) 64Q %( 51Q %) 34Q %() () \COMPARELISTSBLOCK/COMPAREPRINT D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 Y I 0 X F 4 RESETVARSLST) <kd 1gHhhTcYog gIcgI KJ(67Q ERROR! 62Q APPLY 37Q \COMPARELISTSBLOCK/COMPAREPRINTA0002 4 PRINTLEVEL) (53Q PRINTLEVEL 43Q ERROR 34Q INTERNAL 12Q PRINTLEVEL) ( 31Q (\COMPARELISTSBLOCK/COMPAREPRINTA0002)) \COMPARELISTSBLOCK/COMPAREPRINT1 D1 (L (1 B 0 A)) pjq@ALMNMNIJ _IJO _KIlHdjI HkظHKi jI7J3I`` J`MJ`` NOLM/NIdJjI wNIm Jd"i AMJm I M5kJi JdlJi l؀jl Ng IJ g iLMMdHK ChNMNHK Lo M k M M o h(554Q PRIN1 537Q PRIN2 530Q SPACES 521Q PRIN2 513Q PRIN1 501Q \COMPARELISTSBLOCK/COMPAREPRINTN 450Q \COMPARELISTSBLOCK/COMPAREPRINTN 426Q PRIN1 417Q \COMPARELISTSBLOCK/COMPAREPRINT1 411Q PRIN1 375Q SPACES 361Q NCHARS 340Q NCHARS 316Q PRIN2 310Q COMPARELST 271Q NCHARS 256Q COMPARELST 237Q PRIN2 200Q SPACES 175Q NCHARS 142Q PRIN1 111Q \COMPARELISTSBLOCK/COMPAREPRINTN 71Q PRIN2 41Q COMPARELST 30Q \COMPARELISTSBLOCK/COMPAREMAX) (423Q %) 406Q %( 172Q **COMMENT**FLG 165Q COMMENTFLG 150Q COMMENTFLG 137Q **COMMENT**FLG 131Q COMMENTFLG) ( 551Q " --" 510Q " . ") \COMPARELISTSBLOCK/COMPAREMAX D1 (L (1 Y 0 X)) lA@l Al l(15Q COUNTDOWN 7 COUNTDOWN) NIL () \COMPARELISTSBLOCK/COMPAREPRINTN D1 (L (2 FLG 1 SPACE 0 N)) H@j9Ak ib@kg!lg @ g B Ak (105Q SPACES 72Q PRIN1 63Q PRIN2 56Q PRIN1 47Q TERPRI 41Q LINELENGTH 33Q POSITION 12Q SPACES) (67Q - 53Q - 26Q &) () \COMPARELISTSBLOCK/COMPAREFAIL D1 (L (1 Y 0 X) F 1 LOOSEMATCH F 2 DIFFERENCES) k`d@AlHhPQdL3A@Qk cj@6AAdih$@RHAHR@gAhh ch(144Q \NCONC2 52Q COUNTDOWN 47Q COUNTDOWN) (132Q -> 2 COMPARETRANSFORMS) () LOAD? D1 (L (2 PRINTFLG 1 LDFLG 0 FILE)) @@ X @li b`iHi Yg Ig J4Hg `$KKdgdgihJHi K HAB iJHJH H(176Q FILEDATE 152Q LOAD 137Q FILEDATE 71Q FILENAMEFIELD 56Q GETPROP 46Q GETPROP 37Q ROOTFILENAME 20Q \LISPERROR 6 FINDFILE) (117Q COMPILED 111Q Compiled 74Q COMPILE.EXT 66Q EXTENSION 53Q FILE 43Q FILEDATES 27Q LOADEDFILELST) () FILESLOAD D1 (L (0 FILES)) @ (6 DOFILESLOAD 3 NLAMBDA.ARGS) NIL () DOFILESLOAD D1 (L (0 FILES) F 12Q DIRECTORIES F 13Q LDFLG)  @g`s g &ighghghg WWHKHhHHKLdlnIg%L g hfLMoM o gLgJ iM J`OLiM Oh(IdgLi LgLN LNlIh edgghdgfL\_gOdgLgLL\ 1O dl{dlA YghAoid HAhIA @gA Hg@A K(453Q /PUT 440Q /ADDPROP 427Q /PUTD 424Q SAVED 413Q PRINT 374Q GENSYM 363Q GETD 352Q \APPEND2 335Q ERROR! 324Q NLEFT 314Q TAILP 303Q GETP 272Q \DEFINEDP 264Q MEMB 261Q GETP 213Q CHNGNMA0001 153Q /REMPROP 143Q /REMPROP 133Q /PUT 121Q /DREMOVE 116Q GETP 105Q /PUTD 100Q STKPOS 70Q PACK 53Q GETD 45Q GETP 34Q GETP 20Q FNCHECK 10Q FNCHECK) (445Q ALIAS 434Q NAMESCHANGED 371Q NLAMBDA 300Q ALIAS 256Q NAMESCHANGED 221Q NOLINKMESS 210Q INTERNAL 171Q NOLINKMESS 166Q NOLINKMESS 150Q ALIAS 140Q NAMESCHANGED 127Q NAMESCHANGED 113Q NAMESCHANGED 60Q -IN- 42Q BROKEN 31Q ADVISED) ( 405Q (was undefined) 344Q (not found in) 244Q (not defined) 205Q (CHNGNMA0001)) CLBUFS D1 (L (2 BUF 1 NOTYPEFLG 0 NOCLEARFLG) F 2 READBUF) K @Ai id Bchi i Ho hIHHI(75Q STREQUAL 64Q SYSBUF 60Q LINBUF 54Q SYSBUF 47Q LINBUF 31Q CLEARBUF 23Q DOBE 17Q PRINTBELLS 13Q READP) (42Q CTRLUFLG) ( 72Q " ") DEFINE D1 (L (1 TYPE-IN 0 X)) G@@=d[ oK KgKKgKAgg IHhZH&J(63Q FNS.PUTDEF 23Q ERROR) (60Q LOAD 54Q DEFINED 44Q LAMBDA 31Q FNS) ( 17Q "incorrect defining form") FNS.PUTDEF D1 (L (3 REASON 2 DEFINITION 1 TYPE 0 NAME) F 0 DFNFLG F 1 ADDSPELLFLG F 2 LAMBDASPLST F 3 FILEPKGFLG) BddRBo Pddi@o @oi CgB PPin@d '@i B@ @PG@oid @ 4g @oio@` @oioghdi Q@ @B Q@j @gB S@gC @(307Q MARKASCHANGED 274Q /PUTPROP 263Q ADDSPELL 253Q /PUTD 245Q ADDSPELL 236Q MAPRINT 207Q MEMB 162Q GETPROP 152Q SAVEDEF 145Q LISPXPRINT 123Q GETD 115Q VIRGINFN 105Q \DEFINEDP 70Q FIXEDITDATE 55Q ERROR 43Q UNSAFE.TO.MODIFY 21Q ERROR) (303Q FNS 270Q EXPR 227Q % 204Q LISPXCOMS 157Q CLISPWORD 62Q DEFINED) ( 224Q "****Note: " 216Q (is also the name of a history command. When typed in, its interpretation as a history command will take precedence.) 176Q "****Note: " 170Q (defined, therefore disabled in CLISP.) 137Q (redefined) 51Q " not redefined" 40Q "redefine" 16Q "Illegal function definition") EQMEMB D1 (L (1 Y 0 X)) @A A@AiNIL NIL () EQUALN D1 (L (2 DEPTH 1 Y 0 X)) `@A[@'@d3A3L@A @A @8@A AhBkBg@ABdkb dgi @AB (135Q EQUALN 112Q EQUALN 54Q EQP 41Q STREQUAL 30Q EQP) (116Q ? 73Q ?) () FILEDATEA0001A0002 D1 (NAME ERRORSET L (0 NIL) P 12Q *PRINT-BASE* P 11Q *READ-BASE* P 10Q *READTABLE* P 7 *PACKAGE* F 13Q FILE F 14Q RESETVARSLST F 15Q CFLG F 16Q RESETY) pWg X\gWg XhhhWcH PHj Hg ^NW(Ld$M[KKK H \ LgLIHI Jci(201Q SETFILEPTR 152Q GETFILEPTR 144Q READ 74Q \MVLIST 71Q \PARSE-FILE-HEADER 61Q SETFILEPTR 52Q RANDACCESSP 30Q OPENSTREAM 12Q OPENP) (163Q FILECREATED 121Q READER-ENVIRONMENT 66Q RETURN 25Q INPUT 20Q CLOSEF 7 INPUT) () FILEDATEA0001 D1 (NAME ERRORSET P 0 RESETY F 2 RESETVARSLST) % Rog hgY IHh(35Q ERROR! 27Q RESETRESTORE 15Q FILEDATEA0001A0002) (23Q ERROR 12Q INTERNAL) ( 7 (FILEDATEA0001A0002)) FILEDATE D1 (I 1 CFLG I 0 FILE) @ o (11Q FILEDATEA0001) NIL ( 6 (FILEDATEA0001)) FNCHECKA0001 D1 (NAME ERRORSET F 0 FN F 1 SPELLFLG F 2 TAIL F 3 X) #PlF`QRg PlF`QR ch(34Q MISSPELLED? 16Q MISSPELLED?) (26Q SPELLINGS2 12Q GETD 5 USERWORDS) () FNCHECK D1 (L (3 PROPFLG 1 NOERRORFLG) P 0 X I 4 TAIL I 2 SPELLFLG I 0 FN F 11Q ADDSPELLFLG) @dl𡿏 Q@g CFAh`o H@Hb@ h__%hgIg@ Z JbW@j @_g OhMdAOiMhMMNg h[ hYNiH@I LiKO@og g h b$(335Q ERROR 330Q RELSTK 325Q STKPOS 315Q STKPOS 262Q MEMB 230Q FILECOMSLST 162Q GETP 147Q ADDSPELL 131Q \DEFINEDP 125Q PACK* 75Q WHEREIS 56Q FNCHECKA0001 27Q GETP 16Q \DEFINEDP) (322Q LOADFROM 312Q LOAD 225Q BLOCKS 157Q FILEGROUP 121Q / 114Q \ 45Q DWIMFLG 24Q EXPR) ( 307Q "not a function" 53Q (FNCHECKA0001)) FNTYP1 D1 (L (0 X)) `@` d (20Q FNTYP 13Q GETHASH) (10Q CLISPARRAY 2 CLISPARRAY) () FREEVARS D1 (L (0 X)) hNIL NIL () LCSKIP D1 (L (1 FLG 0 FN)) A gXdg@AhdH g o@ h@AhdHlI(60Q ERROR 46Q GETPROP 37Q BINSKIP 16Q READ 5 PEEKC) (43Q CODEREADER 23Q BINARY 10Q % ) ( 54Q "Bad compiled function") MAPRINTA0001 D1 (NAME ERRORSET F 0 FILE F 1 LST F 2 PFN F 3 SEP F 4 LSPXPRNTFLG F 5 LEFT F 6 RIGHT) ]TRgcSgcUQ2P oP QPlRVdP hhSP QPlRQcͰ(111Q LISPXPRIN1 77Q LISPXPRIN1 57Q LISPXPRIN1 41Q LISPXPRIN1) (21Q % 11Q LISPXPRIN1 3 LISPXPRINTFLG) ( 53Q " . ") MAPRINT D1 (I 6 LSPXPRNTFLG I 5 PFN I 4 SEP I 3 RIGHT I 2 LEFT I 1 FILE I 0 LST F 2 RESETVARSLST) Cg`RcRYog HIdRHcR RkI H(77Q ERROR! 66Q NLEFT 57Q TAILP 31Q MAPRINTA0001) (37Q LISPXPRINTFLG 26Q INTERNAL 5 LISPXPRINTFLG 2 LISPXPRINTFLG) ( 23Q (MAPRINTA0001)) MKLIST D1 (L (0 X)) @ddhNIL NIL () NAMEFIELD D1 (L (2 DIRFLG 1 SUFFIXFLG 0 FILE)) SBg@g Adg@g B@g gB @g g@g gA @g (120Q PACKFILENAME 114Q FILENAMEFIELD 77Q FILENAMEFIELD 65Q FILENAMEFIELD 47Q FILENAMEFIELD 34Q FILENAMEFIELD 14Q FILENAMEFIELD) (111Q EXTENSION 102Q EXTENSION 74Q NAME 70Q NAME 62Q DIRECTORY 53Q DIRECTORY 44Q NAME 31Q EXTENSION 22Q ONLY 11Q DIRECTORY 3 ONLY) () NLIST D1 (L (0 N)) !eHIjJJIdaIaJIkYNIL NIL () PRINTBELLS D1 NIL `i (6 PRIN3) (2 BELLS) () PROMPTCHARA0001 D1 (NAME ERRORSET F 0 X) P i(3 EVAL) NIL () PROMPTCHAR D1 (L (1 FLG) P 3 X P 2 PROMPTSTR I 2 HISTORY I 0 ID F 4 READBUF) f0A.T"B1`,BkXBldYHIٰ chhH`"JJi @di hdoi (135Q PROMPTCHARA0001 116Q PRIN1 106Q PRIN2 64Q LISPXREADP 53Q LISPXREADBUF) (75Q PROMPTCHARFORMS 16Q PROMPT#FLG) ( 131Q (PROMPTCHARA0001)) RAISEP D1 (L (0 TTBL)) h@ i@ i(13Q RAISE 4 RAISE) NIL () READFILEA0001A0002 D1 (NAME ERRORSET F 0 FILE F 1 TEM) P ci(3 READ) NIL () READFILEA0001 D1 (NAME ERRORSET L (0 NIL) P 4 HELPCLOCK P 3 TEM F 5 FILE F 6 RESETVARSLST F 7 ENDTOKEN F 10Q RESETY) XgUghd` c hhhVc Po KdWHcigUK KI JhYJ&(104Q SET-READER-ENVIRONMENT 101Q \DO-DEFINE-FILE-INFO 47Q READFILEA0001A0002 17Q OPENSTREAM) (71Q DEFINE-FILE-INFO 13Q LOADPARAMETERS 6 INPUT 2 CLOSEF?) ( 44Q (READFILEA0001A0002)) READFILE D1 (L (0 -args-) P 13Q RESETY P 12Q LISPXHIST P 11Q *PRINT-BASE* P 10Q *READ-BASE* P 7 *READTABLE* P 6 *PACKAGE* P 3 ENDTOKEN P 1 FILE F 15Q *OLD-INTERLISP-READ-ENVIRONMENT* F 16Q LISPXHIST F 17Q RESETVARSLST) } ekaAlHhlalHglalHhlaW]MMM J!LW! Wog h_g_ OO(167Q ERROR! 161Q RESETRESTORE 126Q READFILEA0001) (154Q ERROR 144Q READTABLEP 136Q PACKAGE 123Q INTERNAL 60Q READER-ENVIRONMENT 33Q STOP) ( 120Q (READFILEA0001)) READLINEA0001 D1 (NAME ERRORSET F 0 LINE) P i(3 EDITE) NIL () READLINE D1 (L (0 RDTBL) P 1 SPACEFLG I 2 LISPXFLG I 1 LINE F 3 READBUF) 40Si i Ag@ Jdg@ i@ BjAdfhh b\l Jg@ iY `gig i@ i@l`X`aAHh bi Xdg@ !A`ho gAg@ BIAdҿid gi hYi@d X Zdg $i AId`ScA cXcAHh bSA(452Q \NCONC2 426Q LISPXREADBUF 374Q READC 363Q SYNTAXP 353Q CHCON1 347Q PEEKC 333Q PRIN1 302Q SYNTAXP 262Q READLINEA0001 232Q SYNTAXP 221Q CHCON1 216Q LASTC 207Q \NCONC2 157Q READ 151Q IMAGESTREAMTYPEP 127Q READC 121Q SYNTAXP 100Q \NCONC2 61Q READ 51Q SYNTAXP 37Q SYNTAXP 26Q CLEARBUF 16Q READP) (412Q HISTSTR0 360Q EOL 327Q ... 276Q RIGHTPAREN 271Q REREADFLG 266Q ABORT 252Q CTRLUFLG 244Q CTRLUFLG 226Q RIGHTBRACKET 175Q HISTSTR4 167Q LISPXREADFN 146Q TEXT 140Q READ 135Q LISPXREADFN 115Q SEPR 45Q RIGHTBRACKET 33Q RIGHTPAREN) ( 257Q (READLINEA0001)) REMPROPLIST D1 (L (1 PROPS 0 ATM)) D0@XYdZ"IJ I!IdAdHHIYHkI h@Hh(67Q NLEFT 26Q RPLNODE2) NIL () RESETBUFS D1 (L (0 FORMS) F 1 READBUF) $hiQ g@g HH (40Q BKBUFS 32Q APPLY 15Q CLBUFS 6 SYSBUF 2 LINBUF) (27Q INTERNAL 23Q PROGN) () TAB D1 (L (2 FILE 1 MINSPACES 0 POS)) 'B XA3k@@HىAiB @B h(43Q SPACES 35Q TERPRI 6 POSITION) NIL () UNSAVED1 D1 (L (1 TYP 0 FN) F 2 DFNFLG F 3 ADDSPELLFLG)  @lmAY@A@gY @gY @gY X&@i @I Ri@ @Hi S@ I@ @dAooi @o hb(174Q ERROR 162Q FNCHECK 127Q \DEFINEDP 121Q ADDSPELL 112Q /PUTD 103Q SAVEDEF 72Q /REMPROP 64Q VIRGINFN 54Q GETPROP 42Q GETPROP 30Q GETPROP) (50Q SUBR 36Q CODE 24Q EXPR) ( 171Q "not a function" 154Q (not found) 147Q (nothing found)) USEDFREE D1 (L (0 A)) @NIL NIL () WRITEFILEA0001 D1 (NAME ERRORSET L (0 NIL) F 3 FILE F 4 RESETVARSLST F 5 X F 6 RESETY) 0SrgSg XhhhTcgH hhTcUd3U c o H c o  o  o UcidZhJg ISc i(232Q ENDFILE 220Q TERPRI 214Q PRINTDEF 162Q PRIN1 152Q PRIN1 147Q DATE 143Q PRIN1 133Q PRIN1 130Q USERNAME 124Q PRIN1 114Q PRIN2 107Q FULLNAME 102Q PRIN1 70Q EVAL 44Q OUTPUT 20Q OPENSTREAM) (210Q DEFINEQ 40Q OUTPUT 15Q OUTPUT 11Q CLOSE-AND-MAYBE-DELETE) ( 157Q " %")T) " 140Q " ON " 121Q " MADE BY " 77Q " (PRIN1 (QUOTE %" WRITEFILE OF ") WRITEFILE D1 (P 6 *PRINT-BASE* P 5 *READ-BASE* P 4 *READTABLE* P 3 *PACKAGE* P 1 RESETY I 1 FILE I 0 X F 7 *OLD-INTERLISP-READ-ENVIRONMENT* F 10Q RESETVARSLST) 6W!HHHHWog hgZ JI(61Q ERROR! 54Q RESETRESTORE 42Q WRITEFILEA0001) (50Q ERROR 37Q INTERNAL 4 READER-ENVIRONMENT) ( 34Q (WRITEFILEA0001)) CLOSE-AND-MAYBE-DELETE D1 (L (0 STREAM) F 0 RESETSTATE) @ Pd (12Q DELFILE 3 CLOSEF) NIL () XNLSETQ D1 (L (2 XNLSETFN 1 XNLSETFLG 0 XNLSETQX)) @AB (5 ERRORSET) NIL () PROG2 D1 (L (0 U)) elHo la(17Q ERROR) NIL ( 14Q "Too few arguments") UNSAFE.TO.MODIFY D1 (L (1 OPTION 0 FN) F 0 UNSAFE.TO.MODIFY.FNS) P@PKoi @i oi Aoi oi g `g i ghi(105Q READ 100Q ASKUSER 66Q \DEFINEDP 60Q PRIN1 47Q PRIN1 33Q PRIN1 22Q PRIN1 14Q PRIN1) (110Q Y 75Q N 72Q DWIMWAIT 63Q ASKUSER) ( 54Q " -- continue? " 43Q "modify" 27Q " may be unsafe to " 10Q "Warning: ") RESETFORMA0001 D1 (NAME ERRORSET F 0 RESETZ F 1 MACROY) gPg ci(12Q APPLY) (7 INTERNAL 2 PROGN) () RESETFORM D1 (P 2 MACROY I 0 RESETZ F 4 RESETVARSLST) ?@g 1@HhhTcYog gIc@I KJ(72Q ERROR! 65Q APPLY 42Q RESETFORMA0001 7 EVAL) (46Q ERROR 37Q INTERNAL 4 INTERNAL) ( 34Q (RESETFORMA0001)) RESETLST D1 (L (0 RESETX) F 1 RESETVARSLST) $Qg@g Xhg Hh(36Q ERROR! 30Q RESETRESTORE 16Q ERRORSET) (25Q ERROR 13Q INTERNAL 6 PROGN) () RESETTOPVALS D1 (I 0 RESETX F 1 RESETVARSLST) *Qgo@g Xhg Hh(44Q ERROR! 36Q RESETRESTORE 24Q ERRORSET) (33Q ERROR 21Q INTERNAL 6 PROGN) ( 12Q (RESETTOPVALS1 (CAR RESETX))) RESETTOPVALS1 D1 (L (0 VLIST)) @dgH h(15Q APPLY) (11Q RESETSAVE) () FILEMAP D1 (L (0 FILEMAP) F 0 FILECREATEDLST) hg @Phi (21Q PUTFILEMAP 11Q FULLNAME 6 GETSTREAM) (3 INPUT) () \PARSE-FILE-HEADER D1 (L (3 INITIALENV 2 RETURNFORM 1 FILECREATEDFN 0 STREAM) P 4 *PRINT-BASE* P 3 *READ-BASE* P 2 *READTABLE* P 1 *PACKAGE* F 11Q *OLD-INTERLISP-READ-ENVIRONMENT*) CWHHHH@ dl;`l(@@ _@ @ g @ ^dg%M @l)@ A@ l(M MNg"MWAdggl)@ h@kABl)@ _MOO (262Q VALUES 247Q READ-DELIMITED-LIST 225Q READ-DELIMITED-LIST 163Q SET-READER-ENVIRONMENT 153Q SKIPSEPRCODES 144Q \DO-DEFINE-FILE-INFO 141Q READ-DELIMITED-LIST 116Q RATOM 110Q SYNTAXP 102Q SKIPSEPRCODES 75Q READCCODE 66Q GETFILEPTR 35Q SKIPSEPRCODES) (217Q FILECREATED 211Q RETURN 174Q FILECREATED 123Q DEFINE-FILE-INFO 105Q OTHER 45Q *COMMON-LISP-READ-ENVIRONMENT* 7 READER-ENVIRONMENT) () GET-ENVIRONMENT-AND-FILEMAP D1 (L (1 DONTCACHE 0 STREAM)) @d @ H` Yd1dZ`$IiIJ`IhJI @g bdd h [@j @J`gh \L^_N_@K OAHOhMiO MOJO (247Q VALUES 233Q PUTFILEMAP 212Q SETFILEPTR 165Q \MVLIST 162Q \PARSE-FILE-HEADER 142Q SETFILEPTR 134Q GETFILEPTR 126Q RANDACCESSP 116Q OPENP 106Q VALUES 24Q GETHASH 12Q FULLNAME 4 STREAMP) (155Q GET-FILEMAP-FROM-FILECREATED 150Q USEMAPFLG 113Q INPUT 63Q USEMAPFLG 43Q USEMAPFLG 21Q *FILEMAP-HASH*) () GET-FILEMAP-FROM-FILECREATEDA0001 D1 (NAME ERRORSET L (0 NIL) F 1 STREAM) 8Q H3 )HQ QH Q l(Q XgHh(47Q READ 36Q SKIPSEPRCODES 31Q SETFILEPTR 20Q GETEOFPTR 3 READ) (54Q FILEMAP) () GET-FILEMAP-FROM-FILECREATED D1 (I 0 STREAM) @ @ o (16Q GET-FILEMAP-FROM-FILECREATEDA0001 7 SKREAD 3 SKREAD) NIL ( 13Q (GET-FILEMAP-FROM-FILECREATEDA0001)) \FILEMAP-HASHOVERFLOWA0001 D1 (L (1 KEY 0 VAL) F 2 ENTRIES) *@HRY HhYRcIdAg A@I(35Q FILENAMEFIELD) (32Q VERSION) () \FILEMAP-HASHOVERFLOW D1 (L (0 HARRAY) P 1 ENTRIES) @g !H`$@g IQK`Ho dJJ\` L `_Li k O_OK[OOLg'_%ON NNhMOdN@ HmXO_Ok_(244Q REMHASH 204Q STRING.EQUAL 117Q SORT 102Q LENGTH 74Q MEMB 54Q FIXR 27Q MAPHASH 6 HARRAYPROP) (166Q FILEDATES 105Q *FILEMAP-VERSIONS* 71Q FILELST 43Q *FILEMAP-LIMIT* 24Q \FILEMAP-HASHOVERFLOWA0001 15Q *FILEMAP-LIMIT* 3 NUMKEYS) ( 50Q 1.2) FLUSHFILEMAPSA0001 D1 (L (1 FULLNAME 0 ME) F 0 ROOTNAME) @P A` (17Q REMHASH 6 STRING-EQUAL) (14Q *FILEMAP-HASH*) () FLUSHFILEMAPS D1 (I 0 ROOTNAME) `g @(10Q MAPHASH) (5 FLUSHFILEMAPSA0001 2 *FILEMAP-HASH*) () LISPSOURCEFILEPA0001A0002A0003 D1 (NAME ERRORSET F 0 STREAM) P P P 3 h(15Q READ 10Q SKREAD 3 SKREAD) NIL () LISPSOURCEFILEPA0001A0002 D1 (I 0 STREAM) o (6 LISPSOURCEFILEPA0001A0002A0003) NIL ( 3 (LISPSOURCEFILEPA0001A0002A0003)) LISPSOURCEFILEPA0001 D1 (NAME ERRORSET F 0 FILE F 1 RESETVARSLST F 2 RESETY) 5P gPg chhhQcP Pg ci(55Q \MVLIST 52Q \PARSE-FILE-HEADER 41Q RANDACCESSP 17Q OPENSTREAM 3 STREAMP) (47Q LISPSOURCEFILEPA0001A0002 14Q INPUT 10Q CLOSEF) () LISPSOURCEFILEP D1 (P 0 RESETY I 0 FILE F 2 RESETVARSLST) ! Rog hgY IH(34Q ERROR! 27Q RESETRESTORE 15Q LISPSOURCEFILEPA0001) (23Q ERROR 12Q INTERNAL) ( 7 (LISPSOURCEFILEPA0001)) GETFILEMAP D1 (L (1 FL 0 STREAM)) ` @ (13Q \MVLIST 10Q GET-ENVIRONMENT-AND-FILEMAP) (2 USEMAPFLG) () PUTFILEMAP D1 (L (5 FCLOCATION 4 FROMFILE? 3 ENV 2 FILCREATEDLST 1 FILEMAP 0 FILE) F 2 BUILDMAPFLG) NA@` RA@` @C HH@ AHDiE HdI` (113Q PUTHASH 47Q ROOTFILENAME 43Q MAKE-READER-ENVIRONMENT 23Q GETHASH 10Q REMHASH) (110Q *FILEMAP-HASH* 20Q *FILEMAP-HASH* 5 *FILEMAP-HASH*) () UPDATEFILEMAPA0001 D1 (NAME ERRORSET F 0 FULLNAME) Pggho h(17Q OPENSTREAM) (6 OLD 3 BOTH) ( 13Q (DON'T.CHANGE.DATE)) UPDATEFILEMAPA0002 D1 (NAME ERRORSET P 0 *PRINT-RADIX* F 1 STREAM F 2 FILEMAPADR F 3 RESETVARSLST F 4 DFNFLG F 5 FILEMAP F 6 FULLNAME F 7 FILEMAPLOCADR F 10Q FILEMAPLOCLEN F 11Q RESETY)  gQhhhScQR oQ Q coQ Ql l UQ oQ Q gQ QW gWhRQ Tioi Vid hci(176Q PRINT 167Q PRIN3 152Q PRINTNUM 134Q SETFILEPTR 125Q PRINT 115Q TERPRI 110Q PRIN1 77Q PRIN2 64Q POSITION 55Q PRIN3 42Q GETFILEPTR 35Q PRIN3 24Q SETFILEPTR) (140Q FIX 121Q STOP 2 CLOSEF) ( 163Q "****rewrote file map for " 104Q "))" 51Q "(FILEMAP " 31Q "(DECLARE: DONTCOPY ") UPDATEFILEMAP D1 (P 5 RESETY P 4 FULLNAME P 3 FILEMAPLOCLEN P 2 FILEMAPADR P 1 FILEMAPLOCADR I 1 FILEMAP I 0 STREAM F 7 RESETVARSLST) oo A@j @ @ @ g@ @ @ dl ig hz@ @ @ IٻZ3 eH@Joj H@j ZM@ @ g>Ji K4@ \o b! Wog hg^ Nih(276Q ERROR! 270Q RESETRESTORE 256Q UPDATEFILEMAPA0002 232Q UPDATEFILEMAPA0001 222Q CLOSEF 212Q NCHARS 177Q RATOM 172Q SKREAD 163Q FFILEPOS 153Q FFILEPOS 126Q GETFILEPTR 122Q RATOM 115Q GETFILEPTR 104Q SYNTAXP 66Q READCCODE 61Q SKREAD 54Q SKREAD 36Q RATOM 32Q READC 26Q SKIPSEPRS 22Q SETFILEPTR 12Q CONCAT) (264Q ERROR 253Q INTERNAL 202Q STOP 101Q SEPRCHAR 41Q FILECREATED) ( 250Q (UPDATEFILEMAPA0002) 227Q (UPDATEFILEMAPA0001) 145Q .9 7 "(FILEMAP" 3 "(DECLARE: DONTCOPY ") PRINT-READER-ENVIRONMENT D1 (L (1 STREAM 0 ENV) P 1 *PRINT-BASE* P 0 *PACKAGE* F 3 *OLD-INTERLISP-READ-ENVIRONMENT* F 4 *INTERLISP-PACKAGE*) M@S ETl g@.@ZgJ hhg@g g@h A` h(110Q PRINT 100Q \APPEND2 62Q READTABLEPROP 41Q PACKAGE-NAME 4 EQUAL-READER-ENVIRONMENT) (105Q FILERDTBL 65Q :BASE 57Q NAME 51Q :READTABLE 35Q :PACKAGE 17Q DEFINE-FILE-INFO) () LVLPRINT D1 (L (4 TAIL 3 CDRLVL 2 CARLVL 1 FILE 0 X)) @ABCD A @(14Q TERPRI 10Q LVLPRIN2) NIL () LVLPRIN1 D1 (L (4 TAIL 3 CDRLVL 2 CARLVL 0 X) P 0 PRIN2FLG I 1 FILE) @BCD @(11Q LVLPRIN) NIL () LVLPRIN2 D1 (L (4 TAIL 3 CDRLVL 2 CARLVL 0 X) P 0 PRIN2FLG I 1 FILE) i@BCD @(12Q LVLPRIN) NIL () LVLPRIN D1 (L (3 TAIL 2 CDRLVL 1 CARLVL 0 X) F 0 FILE F 1 PRIN2FLG) h@CC1@C (@C !oP Q@Pi @P gP Q@Pi @P C@C ogP @AB gP (145Q PRIN1 136Q LVLPRIN0 130Q PRIN1 113Q TAILP 103Q PRIN1 75Q PRIN2 64Q PRIN1 54Q PRIN1 46Q PRIN2 36Q PRIN1 24Q MEMB 13Q LAST) (141Q %) 124Q %( 60Q %)) ( 120Q "... " 32Q "... . ") LVLPRIN0 D1 (L (2 CDRLVL 1 CARLVL 0 X) F 1 FILE F 2 PRIN2FLG) @`@bB$oQ R@Qi @Q hkQ BjgQ h@R@Qid R@JAj2H)Qi@` `/gQ @AdjAkkjgmHdk gQ BBkb@bdb(241Q PRIN1 231Q LVLPRIN0 167Q PRIN1 152Q SUPERPRINTEQ 117Q PRIN2 77Q PRIN1 63Q SPACES 54Q PRIN1 46Q PRIN2 35Q PRIN1) (235Q %) 215Q & 163Q %( 156Q **COMMENT**FLG 147Q COMMENTFLG 73Q -- 4 CLISPTRANFLG) ( 31Q " . ") FLUSHRIGHT D1 (L (5 FILE 4 CENTERFLAG 3 P2FLAG 2 MIN 1 X 0 POS)) Ij@E @ٰ@j@dd hE AC bDdE l׀@BE CAE AE (106Q PRIN1 100Q PRIN2 71Q TAB 56Q POSITION 44Q NCHARS 37Q LINELENGTH 30Q \FZEROP 7 POSITION) NIL () PRINTPARA D1 (L (4 PARENFLAG 2 LIST) I 5 FILE I 3 P2FLAG I 1 RMARG I 0 LMARG) :@E j@E @bAjAhE bEBE DkjDkj (67Q POSITION 64Q PRINTPARA1 47Q POSITION 35Q LINELENGTH 16Q POSITION 5 POSITION) NIL () PRINTPARA1 D1 (L (3 CLOSECOUNT 2 OPENCOUNT 1 POS 0 LIST) F 7 FILE F 10Q LMARG F 11Q RMARG F 12Q P2FLAG)  ja@4H^jWAkbW W]jgW Mkٰ@CI2WBHAIW Zb7W W[j#gW KkٰABkHk bjbX;WJbBjB\jgW LkٰABbjbWIW IW WAk@dgW Akb@b gW WkbgW NkٱA(377Q PRIN3 357Q PRIN3 331Q PRIN3 301Q PRIN3 272Q PRIN4 241Q PRIN3 177Q PRINTPARA1 157Q PRIN3 137Q TERPRI 120Q NCHARS 63Q PRIN3 41Q TERPRI) (372Q %) 352Q %) 324Q % 234Q %( 152Q % 56Q % ) () SUBLIS D1 (L (2 FLG 1 EXPR 0 ALST)) BAd* @AB @AB IdAHABIHA@HBH HA(72Q COPY 25Q SUBLIS 16Q SUBLIS) NIL () SUBPAIR D1 (L (3 FLG 2 EXPR 1 NEW 0 OLD)) bB@.B @ABC @ABC IdBHBCIHBBd@ϿCA AB@CA A@bAb(120Q COPY 101Q COPY 33Q SUBPAIR 23Q SUBPAIR) NIL () DSUBLIS D1 (L (2 FLG 1 EXPR 0 ALST)) 3A@AB @AB HAAH@AB HAAHA(44Q DSUBLIS 20Q DSUBLIS 10Q SUBLIS) NIL () CONSTANTOK D1 (L (1 DEPTH 0 X)) KAldb@@@dA3 @jhA@dl jA@Ak b@b(76Q CONSTANTOK 55Q NCHARS) NIL () ADDTOSCRATCHLIST D1 (L (0 VALUE) F 0 !SCRATCHTAIL) P Pdhhc@NIL NIL () SCRATCHLIST D1 (L (0 ARGS) P 1 !SCRATCHTAIL P 0 !SCRATCHLIST) 8@g hh!HYg@g IHhHHIIhH JJ(62Q FLAST 35Q APPLY 7 EVAL) (32Q INTERNAL 25Q PROGN 4 INTERNAL) () COUNTDOWN D1 (L (1 N 0 X)) @AjA@@Ak bb(22Q COUNTDOWN) NIL () NLAMBDA.ARGS D1 (L (0 X)) -@ddhg@@ddg@ (51Q NLAMBDA.ARGS) (37Q QUOTE 14Q QUOTE) () (PRETTYCOMPRINT MACHINEINDEPENDENTCOMS) (RPAQQ MACHINEINDEPENDENTCOMS ((COMS (* * random machine-independent utilities) (FNS LOAD? FILESLOAD DOFILESLOAD) (FNS DMPHASH HASHOVERFLOW) (DECLARE: EVAL@COMPILE DONTCOPY (MACROS HASHOVERFLOW.ARRAYTEST HASHOVERFLOW.UPDATEARRAY)) (FNS BKBUFS CHANGENAME CHNGNM CLBUFS DEFINE FNS.PUTDEF EQMEMB EQUALN FILEDATE FNCHECK FNTYP1 FREEVARS LCSKIP MAPRINT MKLIST NAMEFIELD NLIST PRINTBELLS PROMPTCHAR RAISEP READFILE READLINE REMPROPLIST RESETBUFS TAB UNSAVED1 USEDFREE WRITEFILE CLOSE-AND-MAYBE-DELETE XNLSETQ PROG2 UNSAFE.TO.MODIFY) (VARS UNSAFE.TO.MODIFY.FNS) (PROP ARGNAMES PROG2) (P (MOVD? (QUOTE COPYBYTES) (QUOTE COPYCHARS))) (FNS RESETFORM RESETLST RESETTOPVALS RESETTOPVALS1) (PROP INFO RESETTOPVALS)) ( COMS (* FILEMAP etc) (FNS FILEMAP \PARSE-FILE-HEADER GET-ENVIRONMENT-AND-FILEMAP GET-FILEMAP-FROM-FILECREATED \FILEMAP-HASHOVERFLOW FLUSHFILEMAPS LISPSOURCEFILEP GETFILEMAP PUTFILEMAP UPDATEFILEMAP PRINT-READER-ENVIRONMENT) (INITVARS (*FILEMAP-LIMIT* 20) (*FILEMAP-VERSIONS* 2) ( *FILEMAP-HASH* (HASHARRAY *FILEMAP-LIMIT* (FUNCTION \FILEMAP-HASHOVERFLOW) (FUNCTION STRING-EQUAL-HASHBITS) (FUNCTION STRING.EQUAL)))) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS FILEMAPHASH ) (GLOBALVARS *FILEMAP-LIMIT* *FILEMAP-VERSIONS* *FILEMAP-HASH*))) (COMS (* * LVLPRINT) (FNS LVLPRINT LVLPRIN1 LVLPRIN2 LVLPRIN LVLPRIN0)) (COMS (* used by PRINTOUT) (FNS FLUSHRIGHT PRINTPARA PRINTPARA1)) (COMS (* * SUBLIS and friends) (FNS SUBLIS SUBPAIR DSUBLIS) (DECLARE: DONTEVAL@LOAD DOCOPY (* initialization of variables used in many places) (ADDVARS (CLISPARRAY) (CLISPFLG) (CTRLUFLG) ( EDITCALLS) (EDITHISTORY) (EDITUNDOSAVES) (EDITUNDOSTATS) (GLOBALVARS) (LCASEFLG) (LISPXBUFS) ( LISPXCOMS) (LISPXFNS) (LISPXHIST) (LISPXHISTORY) (LISPXPRINTFLG) (NOCLEARSTKLST) (NOFIXFNSLST) ( NOFIXVARSLST) (P.A.STATS) (PROMPTCHARFORMS) (READBUF) (READBUFSOURCE) (REREADFLG) (RESETSTATE) ( SPELLINGS1) (SPELLINGS2) (SPELLINGS3) (SPELLSTATS1) (USERWORDS)) (VARS (CHCONLST (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))) (CHCONLST1 (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))) (CHCONLST2 (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))) (CLEARSTKLST T) (CLISPTRANFLG ( QUOTE CLISP% )) (HISTSTR0 "") (HISTSTR2 "repeat") (HISTSTR3 "from event:") (HISTSTR4 "ignore") ( LISPXREADFN (QUOTE READ)) (USEMAPFLG T)))) (COMS (* * CONSTANTS) (FNS CONSTANTOK) (P (MOVD? (QUOTE EVQ ) (QUOTE CONSTANT)) (MOVD? (QUOTE EVQ) (QUOTE DEFERREDCONSTANT)) (MOVD? (QUOTE EVQ) (QUOTE LOADTIMECONSTANT)))) (COMS (* * SCRATCHLIST) (FNS ADDTOSCRATCHLIST SCRATCHLIST) (PROP MACRO SCRATCHLIST ADDTOSCRATCHLIST) (PROP INFO SCRATCHLIST)) (COMS (* * COMPARE) (FNS COMPARELST COMPARE1 COMPAREPRINT COMPAREPRINT1 COMPARELISTS COMPAREPRINTN COMPAREFAIL COMPAREMAX COUNTDOWN) (ADDVARS ( COMPARETRANSFORMS)) (DECLARE: EVAL@COMPILE DONTCOPY (PROP BLKLIBRARYDEF COUNTDOWN) (ADDVARS (BLKLIBARY COUNTDOWN))) (BLOCKS (COMPARELISTSBLOCK COMPARELISTS COMPARELST COMPARE1 COMPAREPRINT COMPAREPRINT1 COMPAREMAX (ENTRIES COMPARELISTS COMPARELST) (GLOBALVARS COMPARETRANSFORMS) (LOCALFREEVARS DIFFERENCES LOOSEMATCH) (NOLINKFNS . T) COMPAREPRINTN COMPAREFAIL (GLOBALVARS COMMENTFLG **COMMENT**FLG)))) ( GLOBALVARS SYSFILES LOADOPTIONS UPDATEMAPFLG LISPXCOMS CLISPTRANFLG COMMENTFLG **COMMENT**FLG HISTSTR4 LISPXREADFN REREADFLG HISTSTR0 CTRLUFLG NOLINKMESS PROMPTCHARFORMS PROMPT#FLG USEMAPFLG FILERDTBL SPELLINGS2 DWIMFLG USERWORDS BELLS LISPXPRINTFLG CLISPARRAY) (FNS NLAMBDA.ARGS) (P (MAPC (QUOTE (( APPLY BLKAPPLY) (SETTOPVAL SETATOMVAL) (GETTOPVAL GETATOMVAL) (APPLY* BLKAPPLY*) (RPLACA FRPLACA) ( RPLACD FRPLACD) (STKNTH FSTKNTH) (STKNAME FSTKNAME) (CHARACTER FCHARACTER) (STKARG FSTKARG) (CHCON DCHCON) (UNPACK DUNPACK) (ADDPROP /ADDPROP) (ATTACH /ATTACH) (DREMOVE /DREMOVE) (DSUBST /DSUBST) ( NCONC /NCONC) (NCONC1 /NCONC1) (PUT /PUT) (PUTPROP /PUTPROP) (PUTD /PUTD) (REMPROP /REMPROP) (RPLACA /RPLACA) (RPLACD /RPLACD) (SET /SET) (SETATOMVAL /SETATOMVAL) (SETTOPVAL /SETTOPVAL) (SETPROPLIST /SETPROPLIST) (SET SAVESET) (PRINT LISPXPRINT) (PRIN1 LISPXPRIN1) (PRIN2 LISPXPRIN2) (SPACES LISPXSPACES) (TAB LISPXTAB) (TERPRI LISPXTERPRI) (PRINT SHOWPRINT) (PRIN2 SHOWPRIN2) (PUTHASH /PUTHASH ) (QUOTE *) (FNCLOSER /FNCLOSER) (FNCLOSERA /FNCLOSERA) (FNCLOSERD /FNCLOSERD) (EVQ DELFILE) (NILL SMASHFILECOMS) (PUTASSOC /PUTASSOC) (LISTPUT1 PUTL) (NILL I.S.OPR) (NILL RESETUNDO) (NILL LISPXWATCH) (QUOTE ADDSTATS))) (FUNCTION (LAMBDA (X) (MOVD? (CAR X) (CADR X))))) (MAPC (QUOTE ((TIME PRIN1 LISPXPRIN1) (TIME SPACES LISPXSPACES) (TIME PRINT LISPXPRINT) (DEFC PRINT LISPXPRINT) (DEFC PUTD /PUTD ) (DEFC PUTPROP /PUTPROP) (DOLINK FNCLOSERD /FNCLOSERD) (DOLINK FNCLOSERA /FNCLOSERA) (DEFLIST PUTPROP /PUTPROP) (SAVEDEF1 PUTPROP /PUTPROP) (MKSWAPBLOCK PUTD /PUTD))) (FUNCTION (LAMBDA (X) (AND (CCODEP ( CAR X)) (APPLY (QUOTE CHANGENAME) X))))) (MAPC (QUOTE ((EVALQT (LAMBDA NIL (PROG (TEM) (RESETRESTORE NIL (QUOTE RESET)) LP (PROMPTCHAR (QUOTE _) T) (LISPX (LISPXREAD T T)) (GO LP)))) (LISPX (LAMBDA ( LISPXX) (PRINT (AND LISPXX (PROG (LISPXLINE LISPXHIST TEM) (RETURN (COND ((AND (NLISTP LISPXX) (SETQ LISPXLINE (READLINE T NIL T))) (APPLY LISPXX (CAR LISPXLINE))) (T (EVAL LISPXX)))))) T T))) (LISPXREAD (LAMBDA (FILE RDTBL) (COND (READBUF (PROG1 (CAR READBUF) (SETQ READBUF (CDR READBUF)))) (T (READ FILE RDTBL))))) (LISPXREADP (LAMBDA (FLG) (COND ((AND READBUF (SETQ READBUF (LISPXREADBUF READBUF))) T) (T (READP T FLG))))) (LISPXUNREAD (LAMBDA (LST) (SETQ READBUF (APPEND LST (CONS HISTSTR0 READBUF))))) ( LISPXREADBUF (LAMBDA (RDBUF) (PROG NIL LP (COND ((NLISTP RDBUF) (RETURN NIL)) ((EQ (CAR RDBUF) HISTSTR0) (SETQ RDBUF (CDR RDBUF)) (GO LP)) (T (RETURN RDBUF)))))) (LISPX/ (LAMBDA (X) X)) (LOWERCASE (LAMBDA (FLG) (PROG1 LCASEFLG (RAISE (NULL FLG)) (RPAQ LCASEFLG FLG)))) (FILEPOS (LAMBDA (STR FILE) ( PROG NIL LP (COND ((EQ (PEEKC FILE) (NTHCHAR STR 1)) (RETURN T))) (READC FILE) (GO LP)))) (FILEPKGCOM (NLAMBDA NIL NIL)))) (FUNCTION (LAMBDA (L) (OR (GETD (CAR L)) (PUTD (CAR L) (CADR L))))))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA SCRATCHLIST RESETTOPVALS RESETLST RESETFORM USEDFREE RESETBUFS DMPHASH FILESLOAD) (NLAML FILEMAP XNLSETQ) (LAMA PROG2 READFILE NLIST))) (LOCALVARS . T))) (RPAQQ UNSAFE.TO.MODIFY.FNS (QUOTE APPLY PRINT BLOCK TIMEREXPIRED? PRIN1 PRIN2 LISPXPUT PRIN3 DSPCLIPPINGREGION ADDCHAR BLTCHAR TTWAITFORINPUT READ READLINE /PUTD /REMPROP ADDCHAR /PUT ADDSPELL ADVISEWDS ALLOCSTRING APPLY ASSOC AWAIT.EVENT BITBLT.ERASE BITMAPCOPY BITMAPCREATE BKBITBLT BLOCK BLTCHAR BLTSHADE BREAK BREAK0 BREAK1 BREAK1A BREAK2 BREAKRESETFN BRKLASTPOS CHARSET CHCON1 CLEAR.LINE? CLOCK CLOCKDIFFERENCE CLOSEW CONCAT CREATEW CROCK.PROCESS CURSOR CURSORHOTSPOT DELETETO DO.CRLF DRAWLINE DSPBACKUP DSPCLIPPINGREGION DSPCREATE DSPDESTINATION DSPFILL DSPFONT DSPLEFTMARGIN DSPRIGHTMARGIN DSPSCROLL DSPSOURCETYPE DSPXOFFSET DSPXPOSITION DSPYPOSITION EQLENGTH EQP EQUAL ERASE.TO.END.OF.LINE ERASE.TO.END.OF.PAGE ERRORMESS1 ERRORSET EVAL EVALQT EXPRP FASSOC FILENAMEFIELD FIXR FLIPCURSOR GENSYM GETBREAKWINDOW GETMOUSESTATE GETPROP GETPUP GETXIP HELP HISTORYSAVE IDLE.OUT IMAGESTREAMTYPEP IMOD INIT.CURSOR INTEGERLENGTH INTERRUPTABLE INTERSECTREGIONS IREMAINDER LAST LASTC LISPX LISPX/ LISPXFIND LISPXFIND1 LISPXPRINT LISPXPUT LISPXREAD LISPXREADBUF LISPXUNREAD LISTGET LISTPUT MEMB MKATOM MKSTRING MONITOR.AWAIT.EVENT MOVETOUPPERLEFT NOTIFY.EVENT NTH NTHCHARCODE OBTAIN.MONITORLOCK OPENW OVERFLOW? PACK* PAGEHEIGHT PERIODICALLYRECLAIM PRIN1 PRIN2 PRIN3 PRINT PRINTCCODE PRINTLEVEL PROGN PROMPTCHAR PUTWINDOWPROP READ READLINE READP REALSTKNTH REGIONP RELEASE.PUP RELEASEBREAKWINDOW RELSTK RESETRESTORE RESHOWTITLE RESTORE RETFROM RPLCHARCODE RPLSTRING SAVED SENDPUP SETBREAKTTY SETCURSOR SETTERMTABLE SHOWPRIN2 SHOWPRINT SHOWWFRAME SHOWWTITLE SKIPSEPRS SPACES SPACEWINDOWA0003 STKPOS SUBATOM SUBSTRING SYNTAXP TERPRI TIMEREXPIRED? TOTOPW TTBIN TTBITWIDTH TTCRLF TTDELETELINE TTSKREAD TTWAITFORINPUT TTYDISPLAYSTREAM TTYIN TTYIN.CLEANUP TTYIN.FINISH TTYIN.READ TTYIN.SETUP TTYIN1 TTYIN1RESTART TTYINREAD TYPENAME UNBREAK0 UNDOSAVE UNPACKFILENAME.STRING UPDATE.SPACE.WINDOW UPDATE.SPACE.WINDOW.PLINE WFROMDS WINDOW.MOUSE.HANDLER)) (PUTPROPS PROG2 ARGNAMES (NIL (FIRST SECOND ...) . U)) (MOVD? (QUOTE COPYBYTES) (QUOTE COPYCHARS)) (PUTPROPS RESETTOPVALS INFO (EVAL BINDS)) (RPAQ? *FILEMAP-LIMIT* 20) (RPAQ? *FILEMAP-VERSIONS* 2) (RPAQ? *FILEMAP-HASH* (HASHARRAY *FILEMAP-LIMIT* (FUNCTION \FILEMAP-HASHOVERFLOW) (FUNCTION STRING-EQUAL-HASHBITS) (FUNCTION STRING.EQUAL))) (ADDTOVAR CLISPARRAY) (ADDTOVAR CLISPFLG) (ADDTOVAR CTRLUFLG) (ADDTOVAR EDITCALLS) (ADDTOVAR EDITHISTORY) (ADDTOVAR EDITUNDOSAVES) (ADDTOVAR EDITUNDOSTATS) (ADDTOVAR GLOBALVARS) (ADDTOVAR LCASEFLG) (ADDTOVAR LISPXBUFS) (ADDTOVAR LISPXCOMS) (ADDTOVAR LISPXFNS) (ADDTOVAR LISPXHIST) (ADDTOVAR LISPXHISTORY) (ADDTOVAR LISPXPRINTFLG) (ADDTOVAR NOCLEARSTKLST) (ADDTOVAR NOFIXFNSLST) (ADDTOVAR NOFIXVARSLST) (ADDTOVAR P.A.STATS) (ADDTOVAR PROMPTCHARFORMS) (ADDTOVAR READBUF) (ADDTOVAR READBUFSOURCE) (ADDTOVAR REREADFLG) (ADDTOVAR RESETSTATE) (ADDTOVAR SPELLINGS1) (ADDTOVAR SPELLINGS2) (ADDTOVAR SPELLINGS3) (ADDTOVAR SPELLSTATS1) (ADDTOVAR USERWORDS) (RPAQQ CHCONLST (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) (RPAQQ CHCONLST1 (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) (RPAQQ CHCONLST2 (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) (RPAQQ CLEARSTKLST T) (RPAQQ CLISPTRANFLG CLISP% ) (RPAQ HISTSTR0 "") (RPAQ HISTSTR2 "repeat") (RPAQ HISTSTR3 "from event:") (RPAQ HISTSTR4 "ignore") (RPAQQ LISPXREADFN READ) (RPAQQ USEMAPFLG T) (MOVD? (QUOTE EVQ) (QUOTE CONSTANT)) (MOVD? (QUOTE EVQ) (QUOTE DEFERREDCONSTANT)) (MOVD? (QUOTE EVQ) (QUOTE LOADTIMECONSTANT)) (PUTPROPS SCRATCHLIST MACRO ((SCRATCHLIST . FORMS) ((LAMBDA (!SCRATCHLIST !SCRATCHTAIL) (DECLARE ( SPECVARS !SCRATCHLIST !SCRATCHTAIL)) (SETQ !SCRATCHTAIL !SCRATCHLIST) (PROGN . FORMS) (COND ((EQ !SCRATCHTAIL !SCRATCHLIST) NIL) (T (PROG ((L2 (CDR !SCRATCHLIST))) (RPLACD !SCRATCHLIST (PROG1 (CDR !SCRATCHTAIL) (RPLACD !SCRATCHTAIL NIL))) (FRPLACD (FLAST !SCRATCHLIST) L2) (RETURN L2))))) (OR (LISTP SCRATCHLIST) (CONS)) NIL))) (PUTPROPS ADDTOSCRATCHLIST MACRO ((VALUE) (FRPLACA (SETQ !SCRATCHTAIL (OR (LISTP (CDR !SCRATCHTAIL)) ( CDR (FRPLACD !SCRATCHTAIL (CONS))))) VALUE))) (PUTPROPS SCRATCHLIST INFO EVAL) (ADDTOVAR COMPARETRANSFORMS) (MAPC (QUOTE ((APPLY BLKAPPLY) (SETTOPVAL SETATOMVAL) (GETTOPVAL GETATOMVAL) (APPLY* BLKAPPLY*) ( RPLACA FRPLACA) (RPLACD FRPLACD) (STKNTH FSTKNTH) (STKNAME FSTKNAME) (CHARACTER FCHARACTER) (STKARG FSTKARG) (CHCON DCHCON) (UNPACK DUNPACK) (ADDPROP /ADDPROP) (ATTACH /ATTACH) (DREMOVE /DREMOVE) ( DSUBST /DSUBST) (NCONC /NCONC) (NCONC1 /NCONC1) (PUT /PUT) (PUTPROP /PUTPROP) (PUTD /PUTD) (REMPROP /REMPROP) (RPLACA /RPLACA) (RPLACD /RPLACD) (SET /SET) (SETATOMVAL /SETATOMVAL) (SETTOPVAL /SETTOPVAL) (SETPROPLIST /SETPROPLIST) (SET SAVESET) (PRINT LISPXPRINT) (PRIN1 LISPXPRIN1) (PRIN2 LISPXPRIN2) ( SPACES LISPXSPACES) (TAB LISPXTAB) (TERPRI LISPXTERPRI) (PRINT SHOWPRINT) (PRIN2 SHOWPRIN2) (PUTHASH /PUTHASH) (QUOTE *) (FNCLOSER /FNCLOSER) (FNCLOSERA /FNCLOSERA) (FNCLOSERD /FNCLOSERD) (EVQ DELFILE) ( NILL SMASHFILECOMS) (PUTASSOC /PUTASSOC) (LISTPUT1 PUTL) (NILL I.S.OPR) (NILL RESETUNDO) (NILL LISPXWATCH) (QUOTE ADDSTATS))) (FUNCTION (LAMBDA (X) (MOVD? (CAR X) (CADR X))))) (MAPC (QUOTE ((TIME PRIN1 LISPXPRIN1) (TIME SPACES LISPXSPACES) (TIME PRINT LISPXPRINT) (DEFC PRINT LISPXPRINT) (DEFC PUTD /PUTD) (DEFC PUTPROP /PUTPROP) (DOLINK FNCLOSERD /FNCLOSERD) (DOLINK FNCLOSERA /FNCLOSERA) (DEFLIST PUTPROP /PUTPROP) (SAVEDEF1 PUTPROP /PUTPROP) (MKSWAPBLOCK PUTD /PUTD))) ( FUNCTION (LAMBDA (X) (AND (CCODEP (CAR X)) (APPLY (QUOTE CHANGENAME) X))))) (MAPC (QUOTE ((EVALQT (LAMBDA NIL (PROG (TEM) (RESETRESTORE NIL (QUOTE RESET)) LP (PROMPTCHAR (QUOTE _ ) T) (LISPX (LISPXREAD T T)) (GO LP)))) (LISPX (LAMBDA (LISPXX) (PRINT (AND LISPXX (PROG (LISPXLINE LISPXHIST TEM) (RETURN (COND ((AND (NLISTP LISPXX) (SETQ LISPXLINE (READLINE T NIL T))) (APPLY LISPXX (CAR LISPXLINE))) (T (EVAL LISPXX)))))) T T))) (LISPXREAD (LAMBDA (FILE RDTBL) (COND (READBUF (PROG1 ( CAR READBUF) (SETQ READBUF (CDR READBUF)))) (T (READ FILE RDTBL))))) (LISPXREADP (LAMBDA (FLG) (COND ( (AND READBUF (SETQ READBUF (LISPXREADBUF READBUF))) T) (T (READP T FLG))))) (LISPXUNREAD (LAMBDA (LST) (SETQ READBUF (APPEND LST (CONS HISTSTR0 READBUF))))) (LISPXREADBUF (LAMBDA (RDBUF) (PROG NIL LP ( COND ((NLISTP RDBUF) (RETURN NIL)) ((EQ (CAR RDBUF) HISTSTR0) (SETQ RDBUF (CDR RDBUF)) (GO LP)) (T ( RETURN RDBUF)))))) (LISPX/ (LAMBDA (X) X)) (LOWERCASE (LAMBDA (FLG) (PROG1 LCASEFLG (RAISE (NULL FLG)) (RPAQ LCASEFLG FLG)))) (FILEPOS (LAMBDA (STR FILE) (PROG NIL LP (COND ((EQ (PEEKC FILE) (NTHCHAR STR 1)) (RETURN T))) (READC FILE) (GO LP)))) (FILEPKGCOM (NLAMBDA NIL NIL)))) (FUNCTION (LAMBDA (L) (OR ( GETD (CAR L)) (PUTD (CAR L) (CADR L)))))) (PUTPROPS MACHINEINDEPENDENT COPYRIGHT ("Xerox Corporation" T 1983 1984 1985 1986)) NIL