(FILECREATED "29-Sep-86 23:35:43" ("compiled on " {ERIS}SOURCES>MACHINEINDEPENDENT.;63) "27-Sep-86 00:33:58" brecompiled exprs: FNS.PUTDEF UNSAVED1 LISPSOURCEFILEP in "Xerox Lisp 27-Sep-86 ..." dated "27-Sep-86 00:51:47") (FILECREATED "29-Sep-86 23:33:19" {ERIS}SOURCES>MACHINEINDEPENDENT.;63 127937 changes to: ( VARS MACHINEINDEPENDENTCOMS UNSAFE.TO.MODIFY.FNS) (FNS FNS.PUTDEF LISPSOURCEFILEP UNSAVED1 DOFILESLOAD ) previous date: "26-Sep-86 12:11:49" {ERIS}SOURCES>MACHINEINDEPENDENT.;60) COMPARELISTSA0001 D1 (NAME ERRORSET P 0 DIFFERENCES F 1 X F 2 Y F 3 MACROY) 9QRi hiQR Hg hcid k (60Q SPACES 53Q PRIN2 40Q TERPRI 34Q PRIN1 22Q \COMPARELISTSBLOCK/COMPAREPRINT 10Q COMPARELST) (31Q SAME) () COMPARELISTS D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 Y I 0 X F 4 RESETVARSLST) ?i 1gHhhTcYog higIcgI KJ(72Q ERROR! 65Q APPLY 36Q COMPARELISTSA0001 3 OUTPUT) (56Q OUTPUT 46Q 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) R@A*@dA@d`A`@@A@A PiA@A hih@bAb(74Q \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 higIcgI KJ(73Q ERROR! 66Q APPLY 37Q \COMPARELISTSBLOCK/COMPAREPRINTA0002 4 PRINTLEVEL) (57Q PRINTLEVEL 47Q ERROR 34Q INTERNAL 12Q PRINTLEVEL) ( 31Q (\COMPARELISTSBLOCK/COMPAREPRINTA0002)) \COMPARELISTSBLOCK/COMPAREPRINT1 D1 (L (1 B 0 A)) xjq@ALMNMNIJ _IJO _#KhiIlHdjI HkظHKi jI8J4I`` J`MJ`` NOLM/NIdJjI wNIm Jd"i AMJm I M0kJi JdlJi l؀jl Ng IJ g iLMMhiHK DMhNMNHK Lo M k M M o h(564Q PRIN1 547Q PRIN2 540Q SPACES 531Q PRIN2 523Q PRIN1 511Q \COMPARELISTSBLOCK/COMPAREPRINTN 457Q \COMPARELISTSBLOCK/COMPAREPRINTN 433Q PRIN1 424Q \COMPARELISTSBLOCK/COMPAREPRINT1 416Q PRIN1 402Q SPACES 366Q NCHARS 345Q NCHARS 323Q PRIN2 315Q COMPARELST 276Q NCHARS 263Q COMPARELST 244Q PRIN2 204Q SPACES 201Q NCHARS 146Q PRIN1 115Q \COMPARELISTSBLOCK/COMPAREPRINTN 75Q PRIN2 41Q COMPARELST 30Q \COMPARELISTSBLOCK/COMPAREMAX) (430Q %) 413Q %( 176Q **COMMENT**FLG 171Q COMMENTFLG 154Q COMMENTFLG 143Q **COMMENT**FLG 135Q COMMENTFLG) ( 561Q " --" 520Q " . ") \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)) L@j=Ak ib@kg%lhig @ g B Ak (111Q SPACES 76Q PRIN1 67Q PRIN2 62Q PRIN1 53Q TERPRI 41Q LINELENGTH 33Q POSITION 12Q SPACES) (73Q - 57Q - 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) F 4 LOADEDFILELST F 5 COMPILE.EXT) @@ X @l bTgHi Yg Ig J2Hg U$KKdgdgihJHi K HAB iJHJH H(171Q FILEDATE 145Q LOAD 132Q FILEDATE 66Q FILENAMEFIELD 53Q GETPROP 43Q GETPROP 34Q ROOTFILENAME 17Q \LISPERROR 6 FINDFILE) (112Q COMPILED 104Q Compiled 63Q EXTENSION 50Q FILE 40Q FILEDATES) () FILESLOAD D1 (L (0 FILES)) @ (6 DOFILESLOAD 3 NLAMBDA.ARGS) NIL () DOFILESLOAD D1 (L (0 FILES) F 13Q COMPILE.EXT F 14Q DIRECTORIES F 15Q LDFLG)  @gW g =i6hg _l$OighghghgO WWHKHhHHKLdljIg#L g hcLMoMo gLgJ iM JWOLiM Oh(IdgLi LgLN LNlIh hdgghdgfL\_gOdgLgLL\ 1O dl{dlgAddi3higAhA@ddi3hig@h@Ph (73Q PRINT) (54Q QUOTE 24Q QUOTE 2 PUTHASH) () DMPHASHA0001 D1 (NAME ERRORSET L (0 NIL) F 5 ARRAYNAME) Ug AgUH gH Ig \dddi_3PhNggI Ig Zddi3higJhJhH[d#di3higKhKigLhLhh IHg i(233Q MAPHASH 220Q PRINT 102Q HARRAYPROP 73Q HARRAYSIZE 37Q HARRAYPROP 30Q HARRAYSIZE 6 EVALV) (230Q DMPHASHA0001A0005 177Q QUOTE 163Q QUOTE 124Q QUOTE 77Q OVERFLOW 67Q HARRAY 64Q CONS 34Q OVERFLOW 24Q HASHARRAY 14Q RPAQ 3 DMPHASH) () DMPHASH D1 (L (0 L) P 0 ARRAYNAME) @doi h(16Q DMPHASHA0001) NIL ( 12Q (DMPHASHA0001)) HASHOVERFLOW D1 (L (0 HARRAY)) @A@Hg \Hg ZK dFggl@h KdJK $3 JKK @kK[3-Hg dkYHILHg Hg dH @d޿Hg K (233Q FIXR 226Q HARRAYPROP 207Q \COPYHARRAYP 202Q REHASH 177Q HASHARRAY 174Q HARRAYPROP 165Q HARRAYPROP 145Q HARRAYPROP 123Q FNTYP 106Q FIXR 67Q ERRORX 32Q HARRAYPROP 21Q HARRAYPROP) (223Q NUMKEYS 171Q EQUIVFN 162Q HASHBITSFN 142Q NUMKEYS 54Q ERROR 46Q ERROR 27Q NUMKEYS 16Q OVERFLOW 3 HARRAYP) () BKBUFS D1 (L (1 ID 0 BUFS)) V @h@i "id I i IHAAi Hi H (121Q BKSYSBUF 113Q BKLINBUF 106Q PRIN1 100Q PRIN1 61Q SYSBUF 55Q BKSYSBUF 52Q SYSBUF 45Q BKSYSBUF 40Q CLEARBUF 32Q DOBE 26Q PRINTBELLS 21Q READP) NIL () CHANGENAME D1 (L (2 TO 1 FROM 0 FN) F 0 FILEPKGFLG) @ AB@ P@d @g @(33Q MARKASCHANGED 22Q EXPRP 11Q CHANGENAME1 3 GETD) (30Q FNS) () CHNGNMA0001 D1 (NAME ERRORSET F 0 DEF F 1 X F 2 Y F 3 FN) iPQRS h(13Q CHANGENAME1) (3 NOLINKMESS) () CHNGNM D1 (L (2 FLG 1 OLD) P 3 Y P 2 X P 1 DEF I 0 FN F 7 RESETVARSLST) /p@hi bAid Ab@g @g @ YAg@h XBld H A@g \@gL @g Hg AHI/g`Wc]og MNdW0Mc9oHAZ@g H Hg HW WkN MJo@h B>A 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)) K@@Ad[ oK KgKKgKAgg IhiHhZIH&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) BddRhiBo Pddi@o @oi CgB PPif@d 3@i B@ @P?oi @i oi @ g io@` io@ Q@ @B Q@j @gB S@gC @(303Q MARKASCHANGED 270Q /PUTPROP 257Q ADDSPELL 247Q /PUTD 241Q ADDSPELL 232Q FORMAT 220Q MEMB 202Q GETPROP 172Q SAVEDEF 165Q LISPXPRIN1 154Q LISPXPRIN2 146Q LISPXPRIN1 127Q GETD 121Q VIRGINFN 111Q \DEFINEDP 74Q FIXEDITDATE 61Q ERROR 47Q UNSAFE.TO.MODIFY 25Q ERROR) (277Q FNS 264Q EXPR 215Q LISPXCOMS 177Q CLISPWORD 66Q DEFINED) ( 226Q "****Note: ~S is also the name of a history command. When typed in, its interpretation as a history command will take precedence.~%%" 210Q "****Note: ~S defined, therefore disabled in CLISP.~%%" 161Q " redefined) " 142Q "(" 55Q " not redefined" 44Q "redefine" 22Q "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 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) &S!Tog hgZ JIh(36Q ERROR! 30Q RESETRESTORE 16Q FILEDATEA0001A0002) (24Q ERROR 13Q INTERNAL) ( 10Q (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) @lhi@ Q@g CFAh`o H@Hb@ h__%hgIg@ Z JbW@j @_g OhMdAOiMhMMNg h[ hYNiH@I LiKO@og g h b!(340Q ERROR 333Q RELSTK 330Q STKPOS 320Q STKPOS 265Q MEMB 233Q FILECOMSLST 165Q GETP 152Q ADDSPELL 134Q \DEFINEDP 130Q PACK* 100Q WHEREIS 61Q FNCHECKA0001 32Q GETP 21Q \DEFINEDP) (325Q LOADFROM 315Q LOAD 230Q BLOCKS 162Q FILEGROUP 124Q / 117Q \ 50Q DWIMFLG 27Q EXPR) ( 312Q "not a function" 56Q (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) \gUghd` c hhhVc Po hiKdWHcigUK KI JhYJ&(110Q SET-READER-ENVIRONMENT 105Q \DO-DEFINE-FILE-INFO 47Q READFILEA0001A0002 17Q OPENSTREAM) (75Q 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)) I0@XYd iIdHHIYZIJ IIAhHkI h@Hh(74Q NLEFT 50Q 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@hi@HىAiB @B h(47Q SPACES 41Q TERPRI 6 POSITION) NIL () UNSAVED1 D1 (L (1 TYP 0 FN) F 2 DFNFLG F 3 ADDSPELLFLG)  @lhi~AY@A#@gY'@gY' @gY'X&@i @I Ri@ @Hi S@ I@ @dAoAo oi @o hbn(221Q ERROR 207Q FNCHECK 175Q CONCAT 145Q \DEFINEDP 137Q ADDSPELL 130Q /PUTD 121Q SAVEDEF 110Q /REMPROP 102Q VIRGINFN) (70Q SUBR 54Q CODE 40Q EXPR) ( 216Q "not a function" 202Q "(nothing found)" 172Q " not found)" 165Q "(") 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 RESETY P 5 LISPXHIST P 4 *PRINT-BASE* P 3 *READ-BASE* P 2 *READTABLE* P 1 *PACKAGE* I 1 FILE I 0 X F 10Q *OLD-INTERLISP-READ-ENVIRONMENT* F 11Q LISPXHIST F 12Q RESETVARSLST) =WHHHHW!Wog hg_ ON(70Q ERROR! 62Q RESETRESTORE 47Q WRITEFILEA0001) (55Q ERROR 44Q INTERNAL 4 READER-ENVIRONMENT) ( 41Q (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 F 1 DWIMWAIT) N@PIoi @i oi Aoi oi g Qg i ghi(103Q READ 76Q ASKUSER 66Q \DEFINEDP 60Q PRIN1 47Q PRIN1 33Q PRIN1 22Q PRIN1 14Q PRIN1) (106Q Y 73Q N 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 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 RESETZ F 4 RESETVARSLST) C@g 1@HhhTcYog higIc@I KJ(76Q ERROR! 71Q APPLY 42Q RESETFORMA0001 7 EVAL) (52Q ERROR 37Q INTERNAL 4 INTERNAL) ( 34Q (RESETFORMA0001)) RESETLST D1 (L (0 RESETX) P 0 LISPXHIST F 2 LISPXHIST F 3 RESETVARSLST) %RSg@g Yhg Ih(37Q ERROR! 31Q RESETRESTORE 17Q ERRORSET) (26Q ERROR 14Q INTERNAL 7 PROGN) () RESETTOPVALS D1 (P 0 LISPXHIST I 0 RESETX F 2 LISPXHIST F 3 RESETVARSLST) +RSgo@g Yhg Ih(45Q ERROR! 37Q RESETRESTORE 25Q ERRORSET) (34Q ERROR 22Q INTERNAL 7 PROGN) ( 13Q (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* F 12Q *COMMON-LISP-READ-ENVIRONMENT*) CWHHHH@ dl;Wl(@@ _@ @ g @ ^dg%M @l)@ A@ l(M MNg"MWAdggl)@ h@kABl)@ _MOO (261Q VALUES 246Q READ-DELIMITED-LIST 224Q READ-DELIMITED-LIST 162Q SET-READER-ENVIRONMENT 152Q SKIPSEPRCODES 143Q \DO-DEFINE-FILE-INFO 140Q READ-DELIMITED-LIST 115Q RATOM 107Q SYNTAXP 101Q SKIPSEPRCODES 74Q READCCODE 65Q GETFILEPTR 35Q SKIPSEPRCODES) (216Q FILECREATED 210Q RETURN 173Q FILECREATED 122Q DEFINE-FILE-INFO 104Q OTHER 7 READER-ENVIRONMENT) () GET-ENVIRONMENT-AND-FILEMAP D1 (L (1 DONTCACHE 0 STREAM)) @d @ H` Yd;dZ`-IiIJ`IhiJII @g bhi@ hih@ [@j @J`gh \L^_N_@K OAhiHOhMiO MOJO (276Q VALUES 262Q PUTFILEMAP 234Q SETFILEPTR 207Q \MVLIST 204Q \PARSE-FILE-HEADER 164Q SETFILEPTR 156Q GETFILEPTR 143Q RANDACCESSP 130Q OPENP 120Q VALUES 24Q GETHASH 12Q FULLNAME 4 STREAMP) (177Q GET-FILEMAP-FROM-FILECREATED 172Q USEMAPFLG 125Q INPUT 64Q USEMAPFLG 44Q 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) 8@HRYhiHhYRcId@jAg A@I(53Q FILENAMEFIELD) (50Q VERSION) () \FILEMAP-HASHOVERFLOW D1 (L (0 HARRAY) P 1 ENTRIES F 15Q FILELST) @g 1H`@g IQ L`Ho ZKh]W M `_Mi k O_OL\_OOhi Mg'_1OO hi!OOhNhiOdO@ HmXO_Ok_iKJ(277Q REMHASH 223Q STRING.EQUAL 127Q SORT 112Q LENGTH 104Q MEMB 60Q FIXR 33Q MAPHASH 6 HARRAYPROP) (204Q FILEDATES 115Q *FILEMAP-VERSIONS* 47Q *FILEMAP-LIMIT* 30Q \FILEMAP-HASHOVERFLOWA0001 15Q *FILEMAP-LIMIT* 3 NUMKEYS) ( 54Q 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) @i` `g @(23Q MAPHASH 11Q CLRHASH) (20Q FLUSHFILEMAPSA0001 15Q *FILEMAP-HASH* 6 *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 L (0 NIL) F 1 FILE F 2 RESETVARSLST F 3 RESETY) GQ higQg chhhRcQ Q Qg QH ci(77Q SETFILEPTR 70Q \MVLIST 65Q \PARSE-FILE-HEADER 53Q GETFILEPTR 45Q RANDACCESSP 23Q OPENSTREAM 3 STREAMP) (62Q LISPSOURCEFILEPA0001A0002 20Q INPUT 14Q CLOSEF) () LISPSOURCEFILEP D1 (P 1 RESETY P 0 LISPXHIST I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q LISPSOURCEFILEPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (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) }A@` Rp@` HHDiHHHHI@B CICHIAIAEIEBIB@I` (172Q PUTHASH 117Q MAKE-READER-ENVIRONMENT 102Q ROOTFILENAME 23Q GETHASH 10Q REMHASH) (167Q *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 6 RESETY P 5 LISPXHIST P 4 FULLNAME P 3 FILEMAPLOCLEN P 2 FILEMAPADR P 1 FILEMAPLOCADR I 1 FILEMAP I 0 STREAM F 10Q LISPXHIST F 11Q RESETVARSLST) oo A@j @ @ @ g@ @ @ dl ig hih@ @ @ IٻZ3 kH@Joj H@j ZS@ @ gDJi Khi7@ \o b%W!Wog hg_ Oi(316Q ERROR! 307Q RESETRESTORE 274Q UPDATEFILEMAPA0002 246Q UPDATEFILEMAPA0001 236Q CLOSEF 222Q NCHARS 207Q RATOM 202Q SKREAD 173Q FFILEPOS 163Q FFILEPOS 136Q GETFILEPTR 132Q RATOM 125Q GETFILEPTR 104Q SYNTAXP 66Q READCCODE 61Q SKREAD 54Q SKREAD 36Q RATOM 32Q READC 26Q SKIPSEPRS 22Q SETFILEPTR 12Q CONCAT) (302Q ERROR 271Q INTERNAL 212Q STOP 101Q SEPRCHAR 41Q FILECREATED) ( 266Q (UPDATEFILEMAPA0002) 243Q (UPDATEFILEMAPA0001) 155Q .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*) O@S hiDTl g@.@ZgJ hhg@g g@h A` (114Q PRINT 104Q \APPEND2 66Q READTABLEPROP 45Q PACKAGE-NAME 4 EQUAL-READER-ENVIRONMENT) (111Q FILERDTBL 71Q :BASE 63Q NAME 55Q :READTABLE 41Q :PACKAGE 23Q 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) l@GC5@C ,@C hi!oP Q@Pi @P gP Q@Pi @P C@C ogP @AB gP (151Q PRIN1 142Q LVLPRIN0 134Q PRIN1 117Q TAILP 107Q PRIN1 101Q PRIN2 70Q PRIN1 60Q PRIN1 52Q PRIN2 42Q PRIN1 24Q MEMB 13Q LAST) (145Q %) 130Q %( 64Q %)) ( 124Q "... " 36Q "... . ") 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 @bAjhiAhE bEBE DkjDkj (73Q POSITION 70Q PRINTPARA1 53Q POSITION 41Q 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)) MAldb@@@dA3 @jhiA@dl jA@Ak b@b(100Q CONSTANTOK 57Q NCHARS) NIL () COUNTDOWN D1 (L (1 N 0 X)) @AjhiA@@Ak bb(26Q 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) NIL T)) (FNS RESETFORM RESETLST RESETTOPVALS RESETTOPVALS1) (PROP INFO RESETTOPVALS)) (COMS (* ; "Functions for retrieving and remembering FILEMAPs and file reader environments") (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)) (COMS (* * CONSTANTS) (FNS CONSTANTOK) (P (MOVD? (QUOTE EVQ) (QUOTE CONSTANT) ) (MOVD? (QUOTE EVQ) (QUOTE DEFERREDCONSTANT)) (MOVD? (QUOTE EVQ) (QUOTE LOADTIMECONSTANT)))) (COMS (* * 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 LISPXCOMS CLISPTRANFLG COMMENTFLG **COMMENT**FLG HISTSTR4 LISPXREADFN REREADFLG HISTSTR0 CTRLUFLG NOLINKMESS PROMPTCHARFORMS PROMPT#FLG FILERDTBL SPELLINGS2 USERWORDS BELLS CLISPARRAY) (FNS NLAMBDA.ARGS) (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)) (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 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 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 HELP HISTORYSAVE 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 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 SETBREAKTTY SETCURSOR SETTERMTABLE SHOWPRIN2 SHOWPRINT SHOWWFRAME SHOWWTITLE SKIPSEPRS SPACES 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 WFROMDS WINDOW.MOUSE.HANDLER)) (PUTPROPS PROG2 ARGNAMES (NIL (FIRST SECOND ...) . U)) (MOVD? (QUOTE COPYBYTES) (QUOTE COPYCHARS) NIL T) (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))) (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) (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) (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