(FILECREATED "15-Feb-85 01:02:42" ("compiled on " {ERIS}SOURCES>MACHINEINDEPENDENT.;21) "14-Feb-85 00:34:51" brecompiled changes: HASHOVERFLOW NLIST LVLPRIN0 FMAX FMIN IMAX IMIN MAX MIN POWEROFTWOP EVENP ODDP in "" dated "14-Feb-85 00:47:03") (FILECREATED "15-Feb-85 01:01:07" {ERIS}SOURCES>MACHINEINDEPENDENT.;21 83324 changes to: ( FNS HASHOVERFLOW NLIST LVLPRIN0 FMAX FMIN IMAX IMIN MAX MIN POWEROFTWOP EVENP ODDP) (MACROS .2^NP.) previous date: "10-Feb-85 19:44:18" {ERIS}SOURCES>MACHINEINDEPENDENT.;19) EQUALN D1 (L (2 DEPTH 1 Y 0 X)) q@Aðµl@³8@dd¥d¡²¿Ad¥d¡´L@A •@A @´8@A A¡hB—kBñ“g@ABd“kÙbdgð³éið´ @AB(156Q EQUALN 133Q EQUALN 75Q EQP 62Q STREQUAL 51Q EQP) (137Q ? 114Q ?) () SUBPAIR D1 (L (3 FLG 2 EXPR 1 NEW 0 OLD)) bBµ@µ.B´ @ABC@ABCIdBð˜¿HBð‘C“IHB¯Bd@ð²Ï¿C”A AB@ðšC•A A@bAb¿¿°¥(120Q COPY 101Q COPY 33Q SUBPAIR 23Q SUBPAIR) NIL () 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) j0A².Tµ"B²1`²,BkØXBµldYñ²HIÙ° c²Ûh²ÔhHºi `µ"J•Ji ¿@d”i hdoi µð°Ý(141Q PROMPTCHARA0001 122Q PRIN1 112Q PRIN2 76Q FRESHLINE 64Q LISPXREADP 53Q LISPXREADBUF) (101Q PROMPTCHARFORMS 16Q PROMPT#FLG) ( 135Q (PROMPTCHARA0001)) NAMEFIELD D1 (L (2 DIRFLG 1 SUFFIXFLG 0 FILE)) FBgð—@g Agð—@g gB´ @g g@g gA´ @g (103Q PACKFILENAME 77Q FILENAMEFIELD 62Q FILENAMEFIELD 50Q FILENAMEFIELD 32Q FILENAMEFIELD 14Q FILENAMEFIELD) (74Q EXTENSION 65Q EXTENSION 57Q NAME 53Q NAME 45Q DIRECTORY 36Q DIRECTORY 27Q EXTENSION 21Q ONLY 11Q DIRECTORY 3 ONLY) () CLBUFS D1 (L (2 BUF 1 NOTYPEFLG 0 NOCLEARFLG) F 2 READBUF) K @³Aœi —¿¿id ¿Bc¿h¿i ¸i ¹¿¿Ho ‘h¸I¢H´HI(75Q STREQUAL 64Q SYSBUF 60Q LINBUF 54Q SYSBUF 47Q LINBUF 31Q CLEARBUF 23Q DOBE 17Q PRINTBELLS 13Q READP) (42Q CTRLUFLG) ( 72Q " ") BKBUFS D1 (L (1 ID 0 BUFS)) V @µh¸@¹i ²"¿¿id ¿I ¿i ¿¿‚IµH´ÐA•Ai ¿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 () LVLPRINT D1 (L (4 TAIL 3 CDRLVL 2 CARLVL 0 X) I 1 FILE) @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 \LVLPRINTBLOCK/LVLPRIN) NIL () LVLPRIN2 D1 (L (4 TAIL 3 CDRLVL 2 CARLVL 0 X) P 0 PRIN2FLG I 1 FILE) i@BCD@(12Q \LVLPRINTBLOCK/LVLPRIN) NIL () \LVLPRINTBLOCK/LVLPRIN D1 (L (3 TAIL 2 CDRLVL 1 CARLVL 0 X) F 0 FILE F 1 PRIN2FLG) h@³CC²1@C ð²(@C ³!oP Q–@Pi„@P ¿gP Q–@Pi@P Cš@C ”o‚gP @ABgP (145Q PRIN1 136Q \LVLPRINTBLOCK/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 "... . ") \LVLPRINTBLOCK/LVLPRIN0 D1 (L (2 CDRLVL 1 CARLVL 0 X) F 1 FILE F 2 PRIN2FLG) ¶@`ð•@b¿B°$³oQ ¿R–@Qi„@Q hkQ ¿Bjð˜gQ h@¯R™@Qid°R@°JAjð³2Hµ)Qiðž@` ”`µ/gQ ¿@Ad²jAó›k‹kÙjð²ÕgŽmÿØHd‘kÙ¿gQ ¿B•BkÙb¿@bd’±ÿb(241Q PRIN1 231Q \LVLPRINTBLOCK/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 " . ") DSUBLIS D1 (L (1 EXPR) I 2 FLG I 0 ALST) Ad£ A(12Q \SUBBLOCK/DSUBLIS0 6 \SUBBLOCK/SUBLIS1) NIL () \SUBBLOCK/SUBLIS1 D1 (L (0 X) F 1 ALST F 2 FLG) @Q HšR•H H@(20Q COPY 4 FASSOC) NIL () SUBLIS D1 (L (1 EXPR) I 2 FLG I 0 ALST) A (3 \SUBBLOCK/SUBLIS0) NIL () \SUBBLOCK/SUBLIS0 D1 (L (0 X) F 2 FLG) .@d²&´@ @ Id@ð˜¿H@ð‘R“IH@ (53Q \SUBBLOCK/SUBLIS1 21Q \SUBBLOCK/SUBLIS0 14Q \SUBBLOCK/SUBLIS0) NIL () \SUBBLOCK/DSUBLIS0 D1 (L (0 X)) +@d–¿@ …d ¿@d¬´@dd ¿b°Ù(41Q \SUBBLOCK/SUBLIS1 20Q \SUBBLOCK/SUBLIS1 12Q \SUBBLOCK/DSUBLIS0) NIL () COMPARELISTSA0001 D1 (NAME ERRORSET P 0 DIFFERENCES F 1 X F 2 Y F 3 MACROY) 5QRi¥QR ˆHµg ¿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 £g»IcgI K“J(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ð³*@d²¿A²@d`ð˜¿A`ð@¯@Aô¦@A ´PµiA²ò@dA £¿h°êb¿Ab¿°Ó(75Q \COMPARELISTSBLOCK/COMPARE1 52Q \COMPARELISTSBLOCK/COMPAREFAIL) (34Q COMMENTFLG 24Q COMMENTFLG) () \COMPARELISTSBLOCK/COMPAREPRINTA0002 D1 (NAME ERRORSET F 0 X F 1 Y F 2 MACROY) PPQô’h°FPd”¿QªP ¿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 £g»IcgI K“J(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)) ;jq@½A¾L“M¹N„M¹NºIJ _IJO_ð²K³IlðœHdjð˜¿I ±¬HkØ¸±¨HKi¿j¸I²7J²3I`ð²` ¿J`ð³M½°™J`ð` ¿N°ƒO³=L³:M²MJmÿšI ¿M½±ÿdN²NImÿžNi ¿N±ÿEId”¿J¥I °g ¿IJ ¿g ¿i»L¤Md¨¿HK ¿°Bhð¼N—M½N±ÿHK ¿LŸo ¿M ¿°k ¿M ¿M´ o h(467Q PRIN1 452Q PRIN2 443Q SPACES 434Q PRIN2 426Q PRIN1 414Q \COMPARELISTSBLOCK/COMPAREPRINTN 364Q \COMPARELISTSBLOCK/COMPAREPRINTN 345Q PRIN1 336Q \COMPARELISTSBLOCK/COMPAREPRINT1 330Q PRIN1 320Q PRIN2 276Q SPACES 273Q NCHARS 264Q COMPARELST 237Q PRIN2 232Q COMPARELST 200Q SPACES 175Q NCHARS 142Q PRIN1 111Q \COMPARELISTSBLOCK/COMPAREPRINTN 71Q PRIN2 41Q COMPARELST 30Q \COMPARELISTSBLOCK/COMPAREMAX) (342Q %) 325Q %( 172Q **COMMENT**FLG 165Q COMMENTFLG 150Q COMMENTFLG 137Q **COMMENT**FLG 131Q COMMENTFLG) ( 464Q " --" 423Q " . ") \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@jð³9A”k ‚ib¿@kð”g°!lØýñ£¿g ¿@ ¿g ¿B´ A´k (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) u`Žd@AlH¤µðhµZQd²Vd¥d¡ŸA@QkÙ cjñ@³8AŸA„d¥µúi¿h´&@R H–AHôR@gAhh ch(156Q \NCONC2 123Q FASSOC 62Q COUNTDOWN 57Q COUNTDOWN) (144Q -> 2 COMPARETRANSFORMS) () COUNTDOWN D1 (L (1 N 0 X)) @“Ajñ¡A@@AkÙ b¿b°é(22Q COUNTDOWN) NIL () LOAD? D1 (L (2 PRINTFLG 1 LDFLG 0 FILE)) @ g¦@ABh(16Q LOAD 3 NAMEFIELD) (6 FILEDATES) () 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 ²&ið³ghghghg W½W¾HµK£H¼h„H¼H¸KLdlð¢±\¿Igð²#L g²h°XLM˜oM ƒo ¼gLgJiMµJ`ðšO§LiMµ O²Çh°¼Igð—Li ¿L†LNlIh »±ÿudgð™¿g¹hº±×dgð²d¿L\_gð³Odgð²¿Lgð›L¼L\ °/O dl{ð¤dl<ð’¿h¿i²Og _ –O-_µLd£d‘h½°mdgðš¿i_¿`º°\dgð–¿g¹°Odgð¥dgðœ¿i_¿L\º°6dgð¥dgð”¿hº°%dgð˜¿g¹hº°gð”i_¿‰Ld`’¾L\´‚±ÿLdgð¢±ÿ ¿g¹h^º°ã(450Q BOUNDP 443Q PACK* 412Q CHCON1 403Q EVAL 277Q \NCONC2 260Q CHECKIMPORTS 233Q FINDFILE 212Q FINDFILE 205Q PACKFILENAME 171Q ERROR 161Q \APPEND2 135Q NAMEFIELD 56Q PACKFILENAME 52Q INPUT 24Q INPUT 17Q BOUNDP) (700Q LOADCOMP? 667Q LOADCOMP 643Q LOADOPTIONS 626Q NOERROR 616Q CHECKIMPORTS 610Q IMPORT 575Q SYMBOLIC 567Q SOURCE 544Q EXT 536Q EXTENSION 527Q LOAD? 521Q LOAD 512Q COMPILE.EXT 500Q COMPILED 440Q DIRECTORIES 367Q OF 355Q VALUE 344Q VALUEOF 327Q FROM 315Q LOADFROM 307Q LOADFROM 251Q CHECKIMPORTS 220Q COMPILE.EXT 201Q EXTENSION 175Q BODY 140Q FILEDATES 126Q LOAD? 47Q BODY 43Q EXTENSION 37Q NAME 33Q VERSION 14Q LDFLG 6 COMPILE.EXT 3 LOAD?) ( 166Q "not found" 155Q (not found on)) DMPHASHA0001A0005 D1 (L (1 ITEM 0 VAL) F 0 ARRAYNAME) FgAd²dið³d¥d¡µ gAh@d²dið³d¥d¡µ g@hPh (103Q PRINT) (66Q QUOTE 32Q QUOTE 2 PUTHASH) () DMPHASHA0001 D1 (NAME ERRORSET L (0 NIL) F 5 ARRAYNAME) ¥Ug AgUHµDgH Ig \d²dið³d¥d¡µ gLhhh ¿IµHg i¹ggI Ig Zd²dið³d¥d¡µ gJhhH[d²±dið³¬d¥d¡µ gK°—(146Q HARRAYPROP 137Q HARRAYSIZE 121Q MAPHASH 106Q PRINT 37Q HARRAYPROP 30Q HARRAYSIZE 6 EVALV) (240Q QUOTE 176Q QUOTE 143Q OVERFLOW 133Q HARRAY 130Q CONS 116Q DMPHASHA0001A0005 67Q QUOTE 34Q OVERFLOW 24Q HASHARRAY 14Q RPAQ 3 DMPHASH) () DMPHASH D1 (L (0 L) P 0 ARRAYNAME) @Ždoi µðh(16Q DMPHASHA0001) NIL ( 12Q (DMPHASHA0001)) HARRAYPROP.DUMMY D1 (L (0 NARGS)) ‘eHjñ’@µ`Hkñ´AHlñ#I µI µlIh ¼K‘B½Jgð§Jdgð˜¿K³@L gð²I—K´IM¿Hlñ´oI hJgð³ùJgð³òlJh oJ h(215Q ERROR 204Q ERRORX 153Q ERROR 113Q HARRAYSIZE 61Q ERRORX 46Q HARRAYP 36Q HARRAYP) (170Q HASHBITSFN 161Q EQUIVFN 117Q OVERFLOW 101Q NUMKEYS 72Q SIZE 15Q SYSHASHARRAY) ( 211Q "Cant update this field" 147Q "Can't set overflow of NLISTP hasharray") HASHARRAY.DUMMY D1 (L (1 OVERFLOW 0 MINKEYS)) Agð”@ @ A(16Q HARRAY 11Q HARRAY) (3 ERROR) () HASHARRAYP.DUMMY D1 (L (0 X)) @d ©¿@ ´@(14Q HARRAYP 4 HARRAYP) NIL () HASHOVERFLOW D1 (L (0 HARRAY)) Ž@A@µHg \»Hg ZKµ d°I»g¼°ìgð›l@h ¿°öKd•¿JKê°*d¡“JK°K ²@kKd¥d¡µJdkØâØYHILHg Hg dH @(212Q \COPYHARRAYP 205Q REHASH 202Q HASHARRAY 177Q HARRAYPROP 170Q HARRAYPROP 124Q FNTYP 67Q ERRORX 32Q HARRAYPROP 21Q HARRAYPROP) (174Q EQUIVFN 165Q HASHBITSFN 54Q ERROR 46Q ERROR 27Q NUMKEYS 16Q OVERFLOW 3 HARRAYP) () CONCATLIST D1 (L (0 L)) @@jHµI @kIµHºIJ Ô¹HX°Þ»HJK¿I¹JK Ôº°Ù(72Q NCHARS 61Q RPLSTRING 42Q NCHARS 15Q ALLOCSTRING) NIL () CHANGENAME D1 (L (2 TO 1 FROM 0 FN)) !@ AB@´`@d ˜¿@g @(35Q MARKASCHANGED 24Q EXPRP 11Q CHANGENAME1 3 GETD) (32Q FNS 16Q FILEPKGFLG) () CHNGNMA0001 D1 (NAME ERRORSET F 0 DEF F 1 X F 2 Y F 3 FN) i¿PQRSh(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@hibAidµAb@gµ @gµ@ YAg@h XB²jd ¤H ¿A@g \˜@gL†@g ¿Hg ¿A»HºI´/g`Wc]¾og M¿NdWð²,¿Mc°5oH»AZ@g ²¾H ²¸Hg²±HW šWkNM¿µ¬Jo@h B³>A Y³gh¹Aoid¿HAhIA ¿@gA¿Hg@AK(441Q /PUT 426Q /ADDPROP 415Q /PUTD 412Q SAVED 401Q PRINT 362Q GENSYM 351Q GETD 340Q \APPEND2 323Q ERROR! 312Q NLEFT 302Q TAILP 262Q \DEFINEDP 254Q MEMB 205Q CHNGNMA0001 145Q /REMPROP 135Q /REMPROP 125Q /PUT 113Q /DREMOVE 101Q /PUTD 74Q STKPOS 64Q PACK 47Q GETD 20Q FNCHECK 10Q FNCHECK) (433Q ALIAS 422Q NAMESCHANGED 357Q NLAMBDA 270Q ALIAS 250Q NAMESCHANGED 213Q NOLINKMESS 202Q INTERNAL 163Q NOLINKMESS 160Q NOLINKMESS 142Q ALIAS 132Q NAMESCHANGED 121Q NAMESCHANGED 107Q NAMESCHANGED 54Q -IN- 40Q BROKEN 31Q ADVISED) ( 373Q (was undefined) 332Q (not found in) 236Q (not defined) 177Q (CHNGNMA0001)) DEFINE D1 (L (1 TYPE-IN 0 X) P 4 CX) æ@@±Ød»0KµoK ¿K¼K£K…gK½A”M ¿`–`ið²qL hð^³'Li ¿ML ô³z`³ELoid¿L °2Ldg›oio°` ²Loioghdi ¿`”L ¿LM °`•Lj ¿LgM¿`˜LgN¿L¸IµHhZH&¹µ‚±ÿ'J(313Q MARKASCHANGED 276Q /PUTPROP 265Q ADDSPELL 252Q /PUTD 244Q ADDSPELL 233Q MAPRINT 204Q MEMB 151Q SAVEDEF 144Q LISPXPRINT 121Q GETD 113Q VIRGINFN 101Q GETD 61Q FIXEDITDATE 30Q ERROR) (307Q FNS 302Q FILEPKGFLG 272Q EXPR 257Q ADDSPELLFLG 237Q ADDSPELLFLG 224Q % 201Q LISPXCOMS 160Q CLISPWORD 127Q DFNFLG 71Q DFNFLG 65Q DFNFLG 47Q LAMBDA) ( 221Q "****Note: " 213Q (is also the name of a history command. When typed in, its interpretation as a history command will take precedence.) 174Q "****Note: " 166Q (defined, therefore disabled in CLISP.) 136Q (redefined) 24Q "incorrect defining form") EQMEMB D1 (L (1 Y 0 X)) @AðµA´@A´iNIL NIL () FILEDATEA0001 D1 (NAME ERRORSET L (0 NIL) F 3 FILE F 4 CFLG) x0Sg Xµ S c ²JoShS lØ³H²7I³2H ¹Hj ¿°ÝT—S` ¿S` ZµhŠgð´JºH¤S †I•SI ¿Jh(160Q SETFILEPTR 150Q CLOSEF 120Q READ 110Q READ 74Q SETFILEPTR 66Q GETFILEPTR 52Q FILEPOS 44Q GETFILEPTR 30Q RANDACCESSP 23Q INPUT 20Q INFILE 11Q OPENP) (132Q FILECREATED 115Q FILERDTBL 105Q FILERDTBL 6 INPUT) ( 36Q "(FILECREATED") FILEDATE D1 (I 1 CFLG I 0 FILE) @´ og (14Q FILEDATEA0001) (11Q NOBREAK) ( 6 (FILEDATEA0001)) FILEMAP D1 (L (0 FILEMAP) F 0 FILECREATEDLST) @P(7 PUTFILEMAP 2 INPUT) NIL () 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) á @dlð¡¿ ³O@g™C³FA¢±¤h`²öo ˜H@ð¤Hb°Î@ h_¿_µ&h²ÔgIg@Z ²ÂJb¿`”@j @_gµOh¾½Md¨²AO³Êi°Å£M¾h„M¾M½Ng h¼[µhY²ÙN³Ûi°Ö¼H›@I •Lµëi°èK°ßO°‚@og µg hðb±ÿ'(332Q ERROR 325Q RELSTK 322Q STKPOS 312Q STKPOS 257Q MEMB 225Q FILECOMSLST 146Q ADDSPELL 127Q \DEFINEDP 123Q PACK* 73Q WHEREIS 54Q FNCHECKA0001 16Q \DEFINEDP) (317Q LOADFROM 307Q LOAD 222Q BLOCKS 156Q FILEGROUP 140Q ADDSPELLFLG 117Q / 112Q \ 43Q DWIMFLG 24Q EXPR) ( 304Q "not a function" 51Q (FNCHECKA0001)) FNTYP1 D1 (L (0 X)) `´@`d’ (16Q FNTYP) (10Q CLISPARRAY 2 CLISPARRAY) () FREEVARS D1 (L (0 X)) hNIL NIL () LISPSOURCEFILEPA0001 D1 (NAME ERRORSET F 0 FULL F 1 RESETVARSLST F 2 FILE F 3 RESETY) =P²gPd hhhQc¿Pj °oRg chQc¿P ci(67Q \LISPSOURCEFILEP1 51Q OPENFILE 34Q SETFILEPTR 12Q GETFILEPTR) (46Q INPUT 5 SETFILEPTR) ( 42Q (PROGN (CLOSEF? OLDVALUE))) LISPSOURCEFILEP D1 (P 2 RESETY P 1 LISPXHIST P 0 FULL I 0 FILE F 4 LISPXHIST F 5 RESETVARSLST) 3@ HµT!Uog ˜h‰ ³ëhg[ K“J(56Q ERROR! 51Q RESETRESTORE 36Q RANDACCESSP 30Q LISPSOURCEFILEPA0001 3 OPENP) (45Q ERROR 25Q INTERNAL) ( 22Q (LISPSOURCEFILEPA0001)) \LISPSOURCEFILEP1A0001 D1 (NAME ERRORSET L (0 NIL) F 2 FILE F 3 MAPADDR F 4 FL) ŽR` gð²0oHµ'h³!R ¿R ¿R` d¡c¿T’SµiYR` ð¥IµÐi°ÍHX°Ähc¿HµoR µoýñ²RH ¿R` Ygð•Ic¿°°(173Q READ 163Q SETFILEPTR 144Q GETEOFPTR 105Q READC 54Q READ 44Q SKREAD 37Q SKREAD 6 SKIPSEPRS) (201Q FILEMAP 170Q FILERDTBL 102Q FILERDTBL 51Q FILERDTBL 11Q %( 3 FILERDTBL) ( 152Q 17777777777Q 140Q 17777777777Q 20Q (%( F I L E C R E A T E D % )) \LISPSOURCEFILEP1 D1 (P 1 MAPADDR P 0 ERRORTYPELST I 1 FL I 0 FILE) oo I(15Q \LISPSOURCEFILEP1A0001) NIL ( 12Q (\LISPSOURCEFILEP1A0001) 3 ((20Q (ERROR!)))) GETFILEMAP D1 (L (1 FL 0 FILE)) J`´EAž@AgXð“H@dg ª¿l @h ¡h@ X@j @i @H ¿(106Q SETFILEPTR 101Q \LISPSOURCEFILEP1 74Q SETFILEPTR 66Q GETFILEPTR 57Q RANDACCESSP 53Q ERRORX 40Q OPENP) (35Q INPUT 16Q FILEMAP 2 USEMAPFLG) () LCSKIP D1 (L (1 FLG 0 FN)) C gð²!h` Xdgðš¿@AhdH gµo@ h¹@AhdHlI(62Q ERROR 43Q BINSKIP 22Q READ 5 PEEKC) (47Q CODEREADER 27Q BINARY 17Q FILERDTBL 10Q % ) ( 56Q "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) ]T¿R¥gc¿S¥gc¿UµQµ2°P ¿°õ³oP ¿QPlR¿Vd•P ¿hhSP ¿QPlR¿QcµÍ°ß(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 H¿IdRð•¿HcR ™RkIH¿µ(77Q ERROR! 66Q NLEFT 57Q TAILP 31Q MAPRINTA0001) (37Q LISPXPRINTFLG 26Q INTERNAL 5 LISPXPRINTFLG 2 LISPXPRINTFLG) ( 23Q (MAPRINTA0001)) MKLIST D1 (L (0 X)) @d”d¡hNIL NIL () NLIST D1 (L (0 N)) !eHIjð‘JJ¤Ida–¿IaJºIkÙY°ëNIL NIL () PRINTBELLS D1 NIL `i (6 PRIN3) (2 BELLS) () PUTFILEMAP D1 (L (2 FILCREATEDLST 1 FILEMAP 0 FILE)) NA´K`´F @i Xg@AB©Hg°$0B°dYIhºKµJh\J&»µèLhh(112Q /PUT 17Q NAMEFIELD) (33Q FILEMAP 23Q FILEMAP 5 BUILDMAPFLG) () 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(6 READ) (3 FILERDTBL) () READFILEA0001 D1 (NAME ERRORSET L (0 NIL) P 4 HELPCLOCK P 3 TEM F 5 FILE F 6 RESETVARSLST F 7 RESETY) HgUghd` c hhhVc¿Po —Kdgð–¿HciºIµ JhY¸°áJ&¹°Ü(47Q READFILEA0001A0002 17Q OPENSTREAM) (55Q STOP 13Q LOADPARAMETERS 6 INPUT 2 CLOSEF?) ( 44Q (READFILEA0001A0002)) READFILE D1 (P 1 RESETY P 0 LISPXHIST I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q READFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (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) *0Sµ‚±ôi ’±Ãi Ag@«Jdg@²¿i@ ¿B²`Ad³\hh b°Rl ðŸJg@–iY °~`gð•i@ ˆi@l`X`ð³aAHh b¿i Xdg@²!¿A²`²h¿o ¥gAg@´B˜I¦Ad²Ò¿idð´gi ¿hY¿i@µd X Zdg ¢±ÿ.¿i ¿A´ I²œ°Ìd`ð–¿ScA cµ±þòXc¿AHh b¿Sµ×A(440Q \NCONC2 414Q LISPXREADBUF 362Q READC 351Q SYNTAXP 341Q CHCON1 335Q PEEKC 321Q PRIN1 270Q SYNTAXP 250Q READLINEA0001 220Q SYNTAXP 207Q CHCON1 204Q LASTC 175Q \NCONC2 145Q READ 126Q READC 120Q SYNTAXP 100Q \NCONC2 61Q READ 51Q SYNTAXP 37Q SYNTAXP 26Q CLEARBUF 16Q READP) (400Q HISTSTR0 346Q EOL 315Q ... 264Q RIGHTPAREN 257Q REREADFLG 254Q ABORT 240Q CTRLUFLG 232Q CTRLUFLG 214Q RIGHTBRACKET 163Q HISTSTR4 155Q LISPXREADFN 136Q READ 133Q LISPXREADFN 114Q SEPR 45Q RIGHTBRACKET 33Q RIGHTPAREN) ( 245Q (READLINEA0001)) REMPROPLIST D1 (L (1 PROPS 0 ATM)) VP`@Ó[ÐKÐÉXYd¬Z²"IJ ¿I²!IdAšdHð²è¿H¸IY°éHkIh¿`@Ó\ÐLÐHh(100Q NLEFT 37Q RPLNODE2) (112Q LITATOM 106Q \PLISTSPACE 11Q LITATOM 5 \PLISTSPACE) () RESETBUFS D1 (L (0 FORMS) F 1 READBUF) $¿¿hiQg@gH”H ¿(40Q BKBUFS 32Q APPLY 15Q CLBUFS 6 SYSBUF 2 LINBUF) (27Q INTERNAL 23Q PROGN) () TAB D1 (L (2 FILE 1 MINSPACES 0 POS)) /B XAd¥d¡µkØ@ñ£@HÙ‰Aið©B ¿@B h(53Q SPACES 45Q TERPRI 6 POSITION) NIL () UNSAVED1 D1 (L (1 TYP 0 FN)) ‘0@lð²yAY“@A°@gYµ@gYµ@gYX²0@d –¿@ ¿@I ¿`ið¤@ ¿@Hi¿`“@ I@ ®`@ÓZÐJÐÉAµoo@i µ@o hb±ÿw(210Q ERROR 176Q FNCHECK 133Q \DEFINEDP 125Q ADDSPELL 114Q /PUTD 105Q SAVEDEF 72Q /REMPROP 64Q UNBREAK0 56Q \DEFINEDP) (143Q LITATOM 137Q \PLISTSPACE 120Q ADDSPELLFLG 76Q DFNFLG 44Q SUBR 34Q CODE 24Q EXPR) ( 205Q "not a function" 167Q (not found) 162Q (nothing found)) UNSAVEDEF D1 (L (1 TYP 0 X)) *@d²!¿0@°dA ¸IµHhZH&¹µìJA (47Q UNSAVED1 21Q UNSAVED1) NIL () UPDATEFILEMAPA0001 D1 (NAME ERRORSET F 0 FILE) Pggho i(17Q OPENFILE) (6 OLD 3 BOTH) ( 13Q (DON'T.CHANGE.DATE)) UPDATEFILEMAPA0002 D1 (NAME ERRORSET F 0 FILEMAP F 1 FILE F 2 MACROY) PQ`ci(7 PRIN2) (4 FILERDTBL) () UPDATEFILEMAP D1 (P 7 RESETSTATE P 6 MACROY P 4 OLDVALUE I 1 FILEMAP I 0 FILE F 10Q RESETVARSLST) foo 1@j @` @ @` gð´‚±@ ¿@ ¿@ dgð’¿iŽ g`³çh´f@ º@` @ JÙ»Yd¡´JH@IoÖjØµH@jY´2@ ¿@` gð´ Ii`Kñ³@ ¿o ¥@ h@I ¿o@ ¿@ ¹o@ ¿@l ¿l 1gLhhWc½og ¥g_¿Mc¿gM ¿O“¿o@ ¿@ ¿g@ ¿@J ¿gKhI@¿`ið’±ÿkoi ¿@id¿±ÿX(540Q PRINT 531Q PRIN3 507Q PRINTNUM 472Q SETFILEPTR 464Q PRINT 454Q TERPRI 447Q PRIN1 435Q ERROR! 426Q APPLY 400Q UPDATEFILEMAPA0002 344Q RADIX 336Q POSITION 327Q PRIN3 316Q GETFILEPTR 311Q PRIN3 300Q SETFILEPTR 271Q INFILE 264Q UPDATEFILEMAPA0001 254Q CLOSEF 244Q NCHARS 226Q RATOM 216Q SKREAD 207Q FFILEPOS 177Q FFILEPOS 146Q GETFILEPTR 142Q RATOM 132Q GETFILEPTR 121Q SYNTAXP 110Q CHCON1 74Q READC 67Q SKREAD 62Q SKREAD 44Q RATOM 35Q READC 31Q SKIPSEPRS 22Q SETFILEPTR 12Q CONCAT) (513Q DFNFLG 476Q FIX 460Q STOP 417Q RADIX 404Q ERROR 375Q INTERNAL 352Q RADIX 241Q FILERDTBL 231Q STOP 223Q FILERDTBL 137Q FILERDTBL 116Q FILERDTBL 113Q SEPRCHAR 100Q % 47Q FILECREATED 41Q FILERDTBL 26Q FILERDTBL) ( 525Q "****rewrote file map for " 443Q "))" 372Q (UPDATEFILEMAPA0002) 323Q "(FILEMAP " 305Q "(DECLARE: DONTCOPY " 261Q (UPDATEFILEMAPA0001) 171Q .9 7 "(FILEMAP" 3 "(DECLARE: DONTCOPY ") USEDFREE D1 (L (0 A)) @NIL NIL () WRITEFILEA0001 D1 (NAME ERRORSET L (0 NIL) F 3 FILE F 4 X F 5 MACROY) †!Sd–c¿i¹S ¿Tlñ¦T c¿o ¿ ¿o ¿ ¿o ¿ ¿o ¿T°dZhJgð¿¿µëH c¿I¤S ¿Sc i(175Q ENDFILE 164Q OUTPUT 153Q TERPRI 147Q PRINTDEF 125Q PRIN1 115Q PRIN1 112Q DATE 106Q PRIN1 76Q PRIN1 73Q USERNAME 67Q PRIN1 57Q PRIN2 54Q OUTPUT 50Q PRIN1 36Q EVAL 23Q OUTFILE 2 OUTPUT) (143Q DEFINEQ) ( 122Q " %")T) " 103Q " ON " 64Q " MADE BY " 45Q " (PRIN1 (QUOTE %" WRITEFILE OF ") WRITEFILE D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 FILE I 0 X F 4 RESETVARSLST) =` 1gHhhTcYog £g»IcgI K“J(70Q ERROR! 63Q APPLY 40Q WRITEFILEA0001 5 SETREADTABLE) (54Q SETREADTABLE 44Q ERROR 35Q INTERNAL 13Q SETREADTABLE 2 FILERDTBL) ( 32Q (WRITEFILEA0001)) XNLSETQ D1 (L (2 XNLSETFN 1 XNLSETFLG 0 XNLSETQX)) @AB(5 ERRORSET) NIL () PROG2 D1 (L (0 U)) elHñ—o A(17Q ERROR) NIL ( 14Q "Too few arguments") RESETFORMA0001 D1 (NAME ERRORSET F 0 RESETZ F 1 MACROY) gPgci(12Q APPLY) (7 INTERNAL 2 PROGN) () RESETFORM D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 RESETZ F 4 RESETVARSLST) ?@g 1@HhhTcYog £g»Ic@I K“J(72Q ERROR! 65Q APPLY 42Q RESETFORMA0001 7 EVAL) (46Q ERROR 37Q INTERNAL 4 INTERNAL) ( 34Q (RESETFORMA0001)) RESETLST D1 (L (0 RESETX) P 0 LISPXHIST F 2 LISPXHIST F 3 RESETVARSLST) %RSg@g Y‘h‚g Iµh(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 Y‘h‚g Iµh(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) () CHARCODE D1 (L (1 COMPFLG 0 C)) ù@d²Alg@Alglñž@dª¿o@ @ kð”@ @k)dl^ð²¿@lmÿAlglål#ð²@lmÿAlgl€Ø@ 1Hd¡hgð³;Hdgð’l gð¦Hdgð’l gð’lHdgð²¿A“‚ggð²çl gð’lHdgð’l gð’lHgð¦Hdgð’lgð‘jHgð¦Hdgð’lgð¦Hdgð’l` Yµ;oH µ oH Y¢±HkIkÙ HIkØmÿ»Zdgð²¿l&°add¥d¡’±˜X±ÿgð“l'°EJdgð”¿l$°9gð“l%°0Jdgð”¿l0°$d¡²jJñlÿJg Yñ‘I‡oJ áKdd¡²¿jKñlÿKg Yñ‘IˆKAlgØHdd”¿H Xð¢±þŒo@ (766Q ERROR 750Q U-CASE 745Q MKATOM 712Q PACK* 661Q ERROR 644Q PACK* 504Q SUBATOM 473Q U-CASE 470Q SUBATOM 453Q STRPOS 441Q STRPOS 424Q ASSOC 261Q COMPILEMODE 164Q MKATOM 144Q SUBATOM 113Q SUBATOM 70Q CHCON1 61Q NCHARS 54Q ERROR) (726Q CHARCODE 707Q Q 641Q Q 610Q KANJI 575Q KATA 563Q HIRA 550Q CYRILLIC 512Q GREEK 421Q \CHARACTERNAMES 411Q FORM 402Q FF 372Q DEL 363Q RUBOUT 353Q NULL 343Q ESCAPE 334Q ESC 323Q BELL 313Q TAB 301Q BS 270Q D 265Q D 250Q EOL 236Q TENEXEOL 226Q SP 217Q SPACE 207Q LF 177Q CR 152Q CHARCODE 121Q CHARCODE 25Q CHARCODE 13Q CHARCODE) ( 762Q "BAD CHARACTER SPECIFICATION" 655Q "BAD CHARACTERSET SPECIFICATION" 447Q "|" 435Q "," 50Q "BAD CHARACTER SPECIFICATION") SELCHARQ D1 (L (0 SELC)) ^@@b¿g !@µ@g ¹@d²ó¿I²IdºHJkgð¯µñh‰HIkgð›gIg@b°¶(125Q APPLY 33Q EVAL 14Q EVAL) (122Q SELECTQ 115Q PROGN 106Q CHARCODE 65Q CHARCODE 30Q SELECTQ 11Q SELECTQ) () CONSTANTOK D1 (L (1 DEPTH 0 X)) OA¤ldb¿@³,@³'@d³!dd¡™jØhð´Adlð˜ jñ´A´þ@AkÙ b´ò@b¿°´(102Q CONSTANTOK 61Q NCHARS) NIL () ADDTOSCRATCHLIST D1 (L (0 VALUE) F 0 !SCRATCHTAIL) Pµ Pdhh¿c@NIL NIL () SCRATCHLIST D1 (L (0 ARGS) P 1 !SCRATCHTAIL P 0 !SCRATCHLIST) 8@g µhh!HYg@gIHð‘hHºHIIh¿H JJ(62Q FLAST 35Q APPLY 7 EVAL) (32Q INTERNAL 25Q PROGN 4 INTERNAL) () FLESSP D1 (L (1 Y 0 X)) A@òNIL NIL () FMAX D1 (L (0 K)) GeHjð“`k@Jd¥d¡©l Jh ¿IdHð‘JkØYa[íJíì²êKZ°å(50Q ERRORX) (67Q FLOATP 20Q FLOATP 12Q MIN.FLOAT) () FMIN D1 (L (0 K)) HeHjð“`k@Jd¥d¡©l Jh ¿IdHð‘JkØ¹JíIa[íì²éKZ°ä(50Q ERRORX) (73Q FLOATP 20Q FLOATP 12Q MAX.FLOAT) () GEQ D1 (L (1 Y 0 X)) A@óhðNIL NIL () IGEQ D1 (L (1 Y 0 X)) A@ñhðNIL NIL () ILEQ D1 (L (1 Y 0 X)) @AñhðNIL NIL () IMAX D1 (L (0 K)) )eHjð”ok@IdHð‘JkØ¹JIaýñ²ñIaº°ìNIL NIL ( 13Q -20000000000Q) IMIN D1 (L (0 K)) (eHjð”ok@IdHð‘JkØ¹JIañ²òIaº°íNIL NIL ( 13Q 17777777777Q) LEQ D1 (L (1 Y 0 X)) @AóhðNIL NIL () MAX D1 (L (0 K)) <eHjð“`k@Jd¥d¡©l Jh ¿IdHð‘JkØYa[Jó²òKZ°í(45Q ERRORX) (12Q MIN.FLOAT) () MIN D1 (L (0 K)) =eHjð“`k@Jd¥d¡©l Jh ¿IdHð‘JkØ¹JIa[ó²ñKZ°ì(45Q ERRORX) (12Q MAX.FLOAT) () POWEROFTWOP D1 (L (0 X)) D@d³3d¡´6@jñ´1@dnÿÿåjð˜ããdkÙåjðããjð´@nÿÿådkÙåjðjñ´ @dkÙåjðNIL NIL () IMOD D1 (L (1 N 0 X)) j@AÜbñ¡@A@ØNIL NIL () EVENP D1 (L (0 X)) e@Hlð‘Al jð(20Q IMOD) NIL () ODDP D1 (L (0 X)) e@Hlð‘Al jðhð(20Q IMOD) NIL () NLAMBDA.ARGS D1 (L (0 X)) .@d²$dgð‘²@dgðš@ @´@h(42Q NLAMBDA.ARGS) (30Q QUOTE 11Q QUOTE) () (PRETTYCOMPRINT MACHINEINDEPENDENTCOMS) (RPAQQ MACHINEINDEPENDENTCOMS ((COMS (* * random machine-independent utilities) (FNS LOAD? FILESLOAD DOFILESLOAD) (FNS DMPHASH HARRAYPROP.DUMMY HASHARRAY.DUMMY HASHARRAYP.DUMMY HASHOVERFLOW) (DECLARE: EVAL@COMPILE DONTCOPY (MACROS HASHOVERFLOW.ARRAYTEST HASHOVERFLOW.UPDATEARRAY)) (P (MOVD? (QUOTE HARRAYPROP.DUMMY) (QUOTE HARRAYPROP)) (MOVD? (QUOTE HASHARRAY.DUMMY) (QUOTE HASHARRAY)) (MOVD? (QUOTE HASHARRAYP.DUMMY) (QUOTE HASHARRAYP))) (FNS BKBUFS CONCATLIST CHANGENAME CHNGNM CLBUFS DEFINE EQMEMB EQUALN FILEDATE FILEMAP FNCHECK FNTYP1 FREEVARS LISPSOURCEFILEP \LISPSOURCEFILEP1 GETFILEMAP LCSKIP MAPRINT MKLIST NAMEFIELD NLIST PRINTBELLS PROMPTCHAR PUTFILEMAP RAISEP READFILE READLINE REMPROPLIST RESETBUFS TAB UNSAVED1 UNSAVEDEF UPDATEFILEMAP USEDFREE WRITEFILE XNLSETQ PROG2) (PROP ARGNAMES PROG2) (P (MOVD? (QUOTE COPYBYTES) (QUOTE COPYCHARS))) (FNS RESETFORM RESETLST RESETTOPVALS RESETTOPVALS1) ( PROP INFO RESETTOPVALS) (BLOCKS (EQUALN EQUALN) (SUBPAIR SUBPAIR) (NIL PROMPTCHAR NAMEFIELD CLBUFS BKBUFS (NOLINKFNS PRINTBELLS) (LINKFNS . T) (LOCALVARS . T)))) (COMS (* * LVLPRINT) (FNS LVLPRINT LVLPRIN1 LVLPRIN2 LVLPRIN LVLPRIN0) (BLOCKS (LVLPRINTBLOCK LVLPRINT LVLPRIN1 LVLPRIN2 LVLPRIN LVLPRIN0 (ENTRIES LVLPRINT LVLPRIN1 LVLPRIN2) (LOCALFREEVARS FILE PRIN2FLG)))) (COMS (* * SUBLIS and friends) (FNS SUBLIS SUBPAIR SUBLIS0 DSUBLIS SUBLIS1 DSUBLIS0) (BLOCKS (SUBBLOCK DSUBLIS SUBLIS1 SUBLIS SUBLIS0 (LOCALFREEVARS ALST FLG) (ENTRIES SUBLIS DSUBLIS) DSUBLIS0)) (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 (* * CHARCODE) (FNS CHARCODE SELCHARQ) (INITVARS ( \CHARACTERNAMES)) (PROP MACRO CHARCODE SELCHARQ ALPHACHARP DIGITCHARP UCASECODE) (ALISTS (DWIMEQUIVLST SELCHARQ) (PRETTYEQUIVLST SELCHARQ))) (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)) ( COUNTDOWN COUNTDOWN))) (COMS (* * MIN and MAX) (FNS FLESSP FMAX FMIN GEQ IGEQ ILEQ IMAX IMIN LEQ MAX MIN) (GLOBALVARS MAX.INTEGER MIN.INTEGER MAX.FLOAT MIN.FLOAT)) (COMS (FNS POWEROFTWOP IMOD EVENP ODDP) (DECLARE: DONTCOPY (MACROS .2^NP.))) (GLOBALVARS SYSFILES LOADOPTIONS UPDATEMAPFLG LISPXCOMS CLISPTRANFLG COMMENTFLG **COMMENT**FLG HISTSTR4 LISPXREADFN REREADFLG HISTSTR0 FILEPKGFLG CTRLUFLG NOLINKMESS PROMPTCHARFORMS PROMPT#FLG USEMAPFLG FILERDTBL BUILDMAPFLG DFNFLG SPELLINGS2 DWIMFLG USERWORDS ADDSPELLFLG BELLS LISPXPRINTFLG CLISPARRAY) (FNS NLAMBDA.ARGS) (P (COND (SHALLOWFLG (MOVD ( QUOTE EVALV) (QUOTE GETATOMVAL)) (MOVD (QUOTE SET) (QUOTE SETATOMVAL)) (MOVD (QUOTE PROG) (QUOTE RESETVARS))) (T (MOVD (QUOTE GETTOPVAL) (QUOTE GETATOMVAL)) (MOVD (QUOTE SETTOPVAL) (QUOTE SETATOMVAL) ))) (MAPC (QUOTE ((APPLY BLKAPPLY) (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 SELCHARQ RESETTOPVALS RESETLST RESETFORM USEDFREE RESETBUFS DMPHASH FILESLOAD) (NLAML CHARCODE XNLSETQ FILEMAP) (LAMA ODDP EVENP MIN MAX IMIN IMAX FMIN FMAX PROG2 NLIST HARRAYPROP.DUMMY))) (LOCALVARS . T))) (MOVD? (QUOTE HARRAYPROP.DUMMY) (QUOTE HARRAYPROP)) (MOVD? (QUOTE HASHARRAY.DUMMY) (QUOTE HASHARRAY)) (MOVD? (QUOTE HASHARRAYP.DUMMY) (QUOTE HASHARRAYP)) (PUTPROPS PROG2 ARGNAMES (NIL (FIRST SECOND ...) . U)) (MOVD? (QUOTE COPYBYTES) (QUOTE COPYCHARS)) (PUTPROPS RESETTOPVALS INFO (EVAL BINDS)) (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) (RPAQ? \CHARACTERNAMES) (PUTPROPS CHARCODE MACRO (C (KWOTE (APPLY* (QUOTE CHARCODE) (CAR C) T)))) (PUTPROPS SELCHARQ MACRO (F (CONS (QUOTE SELECTQ) (CONS (CAR F) (MAPLIST (CDR F) (FUNCTION (LAMBDA (I) (COND ((CDR I) (CONS (APPLY* (FUNCTION CHARCODE) (CAAR I)) (CDAR I))) (T (CAR I)))))))))) (PUTPROPS ALPHACHARP MACRO ((CHAR) ((LAMBDA (UCHAR) (DECLARE (LOCALVARS UCHAR)) (AND (IGEQ UCHAR ( CHARCODE A)) (ILEQ UCHAR (CHARCODE Z)))) (LOGAND CHAR 95)))) (PUTPROPS DIGITCHARP MACRO (LAMBDA (CHAR) (AND (IGEQ CHAR (CHARCODE 0)) (ILEQ CHAR (CHARCODE 9))))) (PUTPROPS UCASECODE MACRO (OPENLAMBDA (CHAR) (COND ((AND (IGEQ CHAR (CHARCODE a)) (ILEQ CHAR (CHARCODE z))) (LOGAND CHAR 95)) (T CHAR)))) (ADDTOVAR DWIMEQUIVLST (SELCHARQ . SELECTQ)) (ADDTOVAR PRETTYEQUIVLST (SELCHARQ . SELECTQ)) (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) (COND (SHALLOWFLG (MOVD (QUOTE EVALV) (QUOTE GETATOMVAL)) (MOVD (QUOTE SET) (QUOTE SETATOMVAL)) (MOVD (QUOTE PROG) (QUOTE RESETVARS))) (T (MOVD (QUOTE GETTOPVAL) (QUOTE GETATOMVAL)) (MOVD (QUOTE SETTOPVAL ) (QUOTE SETATOMVAL)))) (MAPC (QUOTE ((APPLY BLKAPPLY) (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)) NIL