(FILECREATED " 3-Jan-84 13:56:25" ("compiled on " {PHYLUM}SOURCES>MACHINEINDEPENDENT.;17) "30-Dec-83 17:50:17" brecompiled changes: DMPHASH HARRAYPROP.DUMMY HASHARRAY.DUMMY HASHARRAYP.DUMMY HASHOVERFLOW in WORK dated "30-Dec-83 18:02:21") (FILECREATED " 3-Jan-84 13:54:44" {PHYLUM}SOURCES>MACHINEINDEPENDENT.;17 82691 changes to: ( VARS MACHINEINDEPENDENTCOMS) (FNS DMPHASH HASHARRAY.DUMMY HASHARRAYP.DUMMY HARRAYPROP.DUMMY HASHOVERFLOW) (MACROS UCASECODE) previous date: "28-Dec-83 16:17:58" {PHYLUM}SOURCES>MACHINEINDEPENDENT.;12) 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 ?) NIL 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 NIL PROMPTCHARA0052 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 X) P i(3 EVAL) NIL NIL PROMPTCHAR D1 (L (1 FLG) P 3 X P 2 PROMPTSTR I 2 HISTORY I 0 ID F 4 READBUF) f0A².Tµ"B²1`²,BkØXBµldYñ²HIÙ° c²Ûh²ÔhHº`µ"J•Ji ¿@d”i hdoi µð°Ý(135Q PROMPTCHARA0052 116Q PRIN1 106Q PRIN2 64Q LISPXREADP 53Q LISPXREADBUF) (75Q PROMPTCHARFORMS 16Q PROMPT#FLG) (131Q (DUMMY.FOR.ERRORSET)) 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) NIL CLOSEF? D1 (L (0 FL)) @d˜ ´@ (13Q CLOSEF 5 OPENP) NIL NIL 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 NIL LVLPRINT D1 (L (4 TAIL 3 CDRLVL 2 CARLVL 0 X) I 1 FILE) @ABCD A @(14Q TERPRI 10Q LVLPRIN2) NIL NIL LVLPRIN1 D1 (L (4 TAIL 3 CDRLVL 2 CARLVL 0 X) P 0 PRIN2FLG I 1 FILE) @BCD@(11Q \LVLPRINTBLOCK/LVLPRIN) NIL NIL LVLPRIN2 D1 (L (4 TAIL 3 CDRLVL 2 CARLVL 0 X) P 0 PRIN2FLG I 1 FILE) i@BCD@(12Q \LVLPRINTBLOCK/LVLPRIN) NIL 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 NIL \SUBBLOCK/SUBLIS1 D1 (L (0 X) F 1 ALST F 2 FLG) @Q HšR•H H@(20Q COPY 4 FASSOC) NIL NIL SUBLIS D1 (L (1 EXPR) I 2 FLG I 0 ALST) A (3 \SUBBLOCK/SUBLIS0) NIL 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 NIL \SUBBLOCK/DSUBLIS0 D1 (L (0 X)) +@d–¿@ …d ¿@d¬´@dd ¿b°Ù(41Q \SUBBLOCK/SUBLIS1 20Q \SUBBLOCK/SUBLIS1 12Q \SUBBLOCK/DSUBLIS0) NIL NIL COMPARELISTSA0053 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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) NIL 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 COMPARELISTSA0053 3 OUTPUT) (52Q OUTPUT 42Q ERROR 33Q INTERNAL 11Q OUTPUT) (30Q (DUMMY.FOR.ERRORSET)) COMPARELST D1 (L (1 Y 0 X) I 2 LOOSEMATCH) Bmÿð—@A b¿@A (21Q \COMPARELISTSBLOCK/COMPARE1 11Q \COMPARELISTSBLOCK/COMPAREMAX) NIL NIL \COMPARELISTSBLOCK/COMPARE1 D1 (L (1 Y 0 X) F 0 LOOSEMATCH) S@Að³.@d²¿A²@d`ð™¿A`ð³@³@A ¦@A ´PµiA²ò@dA £¿h°êb¿Ab¿°Ð(101Q \COMPARELISTSBLOCK/COMPARE1 56Q \COMPARELISTSBLOCK/COMPAREFAIL 50Q EQUAL) (34Q COMMENTFLG 24Q COMMENTFLG) NIL \COMPARELISTSBLOCK/COMPAREPRINTA0054 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 X F 1 Y F 2 MACROY) RPQ ’h°FPd”¿QªP ¿Q °1g ¿PQ ¿g ¿¿g ¿QP ¿g ¿¿ici(112Q TERPRI 106Q PRIN1 77Q \COMPARELISTSBLOCK/COMPAREPRINT1 71Q PRIN1 62Q TERPRI 56Q PRIN1 47Q \COMPARELISTSBLOCK/COMPAREPRINT1 41Q PRIN1 31Q PRINT 24Q PRINT 4 EQUAL) (103Q %) 66Q %( 53Q %) 36Q %() NIL \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/COMPAREPRINTA0054 4 PRINTLEVEL) (53Q PRINTLEVEL 43Q ERROR 34Q INTERNAL 12Q PRINTLEVEL) (31Q (DUMMY.FOR.ERRORSET)) \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 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 &) NIL \COMPARELISTSBLOCK/COMPAREFAIL D1 (L (1 Y 0 X) F 1 LOOSEMATCH F 2 DIFFERENCES) w`Žd@AlH¤µðhµ\Qd²Xd¥d¡ŸA@QkÙ cjñ@³:AŸA„d¥µúi¿h´(@R H˜AH R@gAhh ch(160Q \NCONC2 140Q EQUAL 123Q FASSOC 62Q COUNTDOWN 57Q COUNTDOWN) (146Q -> 2 COMPARETRANSFORMS) NIL COUNTDOWN D1 (L (1 N 0 X)) @“Ajñ¡A@@AkÙ b¿b°é(22Q COUNTDOWN) NIL NIL AFTERCLOSE D1 (L (0 FILE)) @g‹d@kHµó@o @(34Q REMPROPLIST) (3 AFTERCLOSE) (31Q (BEFORECLOSE AFTERCLOSE CLOSEALL STATUSFN EOFCLOSE)) EOFCLOSEF D1 (L (0 FILE)) 9 @dlð£ ™@g d£Yddlðž¿dgX•IkHƒI h(65Q CLOSEF 33Q INPUT 25Q OPENP 14Q CLOSEF) (50Q EOFCLOSE 22Q INPUT) NIL WHENCLOSE D1 NIL ÖeHjñ´@Iµ)Zið²Ziðhð©l Ih ¿HlLKñœJið³èI Z°àHLñ´LkØa½Ladgð²&¿JgMdgð’¿igð‘hˆlMh °Udgðž¿M²LJgMi°@dgðž¿M²7JgMi°+dgðš¿JgM°gð˜JgM‰lLah ¿LlØ\±ÿ`(313Q ERRORX 300Q PUTPROP 261Q PUTPROP 240Q ADDPROP 213Q ADDPROP 166Q PUTPROP 163Q ERRORX 76Q OPENP 51Q ERRORX 32Q OUTPUT 22Q INPUT) (274Q EOFCLOSE 266Q EOF 255Q STATUSFN 246Q STATUS 233Q AFTERCLOSE 221Q AFTER 206Q BEFORECLOSE 174Q BEFORE 146Q YES 136Q NO 131Q CLOSEALL 121Q CLOSEALL) NIL CLOSEALL D1 (L (0 ALLFLG)) :@°&d[ ´@¨Kghð´K hX–IµHZY¿µÛJ YH°ó(63Q LAST 36Q CLOSEF 15Q OPENP 5 OPENP) (25Q CLOSEALL) NIL NEWCLOSEF D1 (L (0 FILE)) Y @dlð£ Ÿ@ µl @h ‹Xið¡H‚Xddlð²Ø¿dd ²Ð¿Hg‰d¹HkI¿µõH (126Q AFTERCLOSE 123Q OLDCLOSEF 71Q GETPROPLIST 52Q OUTPUT 41Q INPUT 35Q ERRORX 22Q OPENP 14Q OLDCLOSEF) (100Q BEFORECLOSE) NIL RESTOREFILES D1 (L (0 BEFOREFLG)) t@²41Hµ Ih%Zg[¥JgœJK´dkKI$¹HX°×`°3dHd²"H ³H ¿oi ¿Hi ƒ ¿µÎh(147Q AFTERCLOSE 142Q LISPXPRINT 133Q LISPXPRIN1 122Q AFTERCLOSE 113Q APPLY 5 OPENP) (161Q RESTOREFILELST 67Q RESTOREFILELST 40Q AFTERCLOSE 31Q STATUSFN 23Q RESTOREFILELST) (127Q "*****WARNING: Couldn't restore file ") LOAD? D1 (L (2 PRINTFLG 1 LDFLG 0 FILE)) @ g¦@ABh(16Q LOAD 3 NAMEFIELD) (6 FILEDATES) NIL FILESLOAD D1 (L (0 FILES)) @ (3 DOFILESLOAD) NIL 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 (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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 (DUMMY.FOR.ERRORSET)) HARRAYPROP.DUMMY D1 NIL seHjñ’@µ`Hkñ´AI ³I ©lIh ¿Jgð§Jdgð•¿I gð²#IµgHlñœIµoI ¿B¿°èlJh (160Q ERRORX 136Q ERROR 77Q HARRAYSIZE 54Q ERRORX 42Q HARRAYP 32Q HARRAYP) (115Q ERROR 103Q OVERFLOW 70Q NUMKEYS 61Q SIZE 15Q SYSHASHARRAY) ( 132Q "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)) u@g @d‘…g Igð›l@h ¿°ö@Iµ°+”HIê°)Id¥d¡“HI°@kId¥d¡µHdkØâØI Z@µ d@ @J°ü(155Q \COPYHARRAYP 143Q REHASH 140Q HARRAY 44Q ERRORX 22Q HARRAYPROP 6 HARRAYPROP) (31Q ERROR 17Q OVERFLOW 3 NUMKEYS) () CONCATLIST D1 (L (0 L)) @@jHµI @kIµHºIJ Ø¹HX°Þ»HJK¿I¹JK Øº°Ù(72Q NCHARS 61Q RPLSTRING 42Q NCHARS 15Q ALLOCSTRING) NIL 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) NIL CHNGNMA0066 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 DEF F 1 X F 2 Y F 3 FN) i¿PQRSh(13Q CHANGENAME1) (3 NOLINKMESS) NIL 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 CHNGNMA0066 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 (DUMMY.FOR.ERRORSET)) DEFINE D1 (L (1 TYPE-IN 0 X) P 4 CX) è@@±Úd»0KµoK ¿K¼K£K…gK½A”M ¿`–`ið²sL hð^³)Li ¿ML ³z`³ELoid¿L °2Ldg›oio°` ²Loioghdi ¿`”L ¿LM °`•Lj ¿LgM¿`˜LgN¿L¸IµHhZH&¹µ‚±ÿ%J(315Q MARKASCHANGED 300Q /PUTPROP 267Q ADDSPELL 254Q /PUTD 246Q ADDSPELL 235Q MAPRINT 206Q MEMB 153Q SAVEDEF 146Q LISPXPRINT 124Q EQUAL 121Q GETD 113Q VIRGINFN 101Q GETD 61Q FIXEDITDATE 30Q ERROR) (311Q FNS 304Q FILEPKGFLG 274Q EXPR 261Q ADDSPELLFLG 241Q ADDSPELLFLG 226Q % 203Q LISPXCOMS 162Q CLISPWORD 131Q DFNFLG 71Q DFNFLG 65Q DFNFLG 47Q LAMBDA) (223Q "****Note: " 215Q (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.) 140Q (redefined) 24Q "incorrect defining form") EQMEMB D1 (L (1 Y 0 X)) @AðµA´@A´iNIL NIL NIL FILEDATEA0017 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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 FILEDATEA0017) (11Q NOBREAK) ( 6 (DUMMY.FOR.ERRORSET)) FILEMAP D1 (L (0 FILEMAP) F 0 FILECREATEDLST) @P(7 PUTFILEMAP 2 INPUT) NIL NIL FNCHECKA0153 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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 FNCHECKA0153 16Q DEFINEDP) (317Q LOADFROM 307Q LOAD 222Q BLOCKS 156Q FILEGROUP 140Q ADDSPELLFLG 117Q / 112Q \ 43Q DWIMFLG 24Q EXPR) ( 304Q "not a function" 51Q (DUMMY.FOR.ERRORSET)) FNTYP1 D1 (L (0 X)) `´@`d’ (16Q FNTYP) (10Q CLISPARRAY 2 CLISPARRAY) NIL FREEVARS D1 (L (0 X)) hNIL NIL NIL GETFILEMAPA0069A0070 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FILE F 1 TEM) P` ch(6 READ) (3 FILERDTBL) NIL GETFILEMAPA0069 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U)) o¿o h(16Q GETFILEMAPA0069A0070) (6 ERRORTYPELST) (13Q (DUMMY.FOR.ERRORSET) 3 ((20Q (ERROR!)))) GETFILEMAP D1 (L (1 FL) P 0 TEM I 0 FILE F 3 RESETVARSLST) ¢`´‚±š0@AgXð’±†@ ´w@j ¿@` Xgð´aHXd¥d¡´O@H ¿g`ScYºog I¿JdSð•¿IcS ™SkJI¿µ´ Hgð@j ¿´H(231Q SETFILEPTR 212Q ERROR! 201Q NLEFT 172Q TAILP 144Q GETFILEMAPA0069 114Q SETFILEPTR 54Q READ 44Q SETFILEPTR 35Q RANDACCESSP) (223Q FILEMAP 152Q ERRORTYPELST 141Q INTERNAL 123Q ERRORTYPELST 120Q ERRORTYPELST 62Q FILECREATED 51Q FILERDTBL 20Q FILEMAP 2 USEMAPFLG) (136Q (DUMMY.FOR.ERRORSET)) 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") LDIFFERENCE D1 (L (1 Y 0 X)) 4@“AµH@%@ ¦Ab¿°ê@dA ”b°Þ@b¿H$¸°Ò(41Q MEMBER 22Q MEMBER) NIL NIL MAPRINTA0073 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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 MAPRINTA0073) (37Q LISPXPRINTFLG 26Q INTERNAL 5 LISPXPRINTFLG 2 LISPXPRINTFLG) (23Q (DUMMY.FOR.ERRORSET)) MKLIST D1 (L (0 X)) @d”d¡hNIL NIL NIL NLIST D1 NIL !eHIjð‘JJ¤Ida–¿IaJºIkÙY°ëNIL NIL NIL PRINTBELLS D1 NIL `i (6 PRIN3) (2 BELLS) NIL 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) NIL RAISEP D1 (L (0 TTBL)) h@ ´i@ i(13Q RAISE 4 RAISE) NIL NIL READFILEA0076 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FILE F 1 TEM) P` ci(6 READ) (3 FILERDTBL) NIL READFILE D1 (P 2 HELPCLOCK P 1 TEM I 0 FILE) .0@ b¿o ¡HIgð•@ HHIh ¸°â(51Q \NCONC2 40Q CLOSEF 23Q READFILEA0076 11Q INPUT 6 INFILE) (32Q STOP) (20Q (DUMMY.FOR.ERRORSET)) READLINEA0078 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 LINE) P i(3 EDITE) NIL 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 READLINEA0078 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 (DUMMY.FOR.ERRORSET)) REMPROPLIST D1 (L (1 PROPS 0 ATM)) B0@ XYd¬Z²"IJ ¿I²!IdAšdHð²è¿H¸IY°éHkIh¿@H h(76Q SETPROPLIST 66Q NLEFT 25Q RPLNODE2 6 GETPROPLIST) NIL NIL 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) NIL 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 NIL UNSAVED1 D1 (L (1 TYP 0 FN)) @lð²wAY“@A°@gYµ@gYµ@gYX²0@d –¿@ ¿@I ¿`ið¤@ ¿@Hi¿`“@ I@ ¬`@ÓàÐÉAµoo@i µ@o hb±ÿy(206Q ERROR 174Q 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) ( 203Q "not a function" 165Q (not found) 160Q (nothing found)) UNSAVEDEF D1 (L (1 TYP 0 X)) *@d²!¿0@°dA ¸IµHhZH&¹µìJA (47Q UNSAVED1 21Q UNSAVED1) NIL NIL UPDATEFILEMAPA0079 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FILE) Pggho i(17Q OPENFILE) (6 OLD 3 BOTH) (13Q (DON'T.CHANGE.DATE)) UPDATEFILEMAPA0080 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FILEMAP F 1 FILE F 2 MACROY) PQ`ci(7 PRIN2) (4 FILERDTBL) NIL UPDATEFILEMAP D1 (P 6 RESETSTATE P 5 MACROY P 3 OLDVALUE I 1 FILEMAP I 0 FILE F 7 RESETVARSLST) Ooo !@j @` @ @` gð´r@ ¿@ ¿@` ¿@ º@` Yd¡´KH@IoÖjØµH@jY´3@ ¿@` gð´!Ii`lñ³@ ¿o ¥@ h@I ¿o@ ¿@ ¹o@ ¿@l ¿l 1gKhhWc¼og £g¾Lc¿gL ¿N“¿o@ ¿@ ¿g@ ¿@J ¿o@ ¿@J ¿oI@¿`ið’±ÿboi ¿@id¿±ÿO(511Q PRINT 502Q PRIN3 460Q PRINTNUM 446Q SETFILEPTR 440Q PRIN3 427Q SETFILEPTR 421Q PRINT 411Q TERPRI 404Q PRIN1 372Q ERROR! 364Q APPLY 340Q UPDATEFILEMAPA0080 304Q RADIX 276Q POSITION 267Q PRIN3 256Q GETFILEPTR 251Q PRIN3 240Q SETFILEPTR 231Q INFILE 224Q UPDATEFILEMAPA0079 214Q CLOSEF 203Q NCHARS 165Q RATOM 155Q SKREAD 146Q FFILEPOS 136Q FFILEPOS 110Q RATOM 100Q GETFILEPTR 73Q SKIPSEPRS 63Q SKREAD 56Q SKREAD 44Q RATOM 35Q READC 31Q SKIPSEPRS 22Q SETFILEPTR 12Q CONCAT) (464Q DFNFLG 415Q STOP 355Q RADIX 344Q ERROR 335Q INTERNAL 312Q RADIX 200Q FILERDTBL 170Q STOP 162Q FILERDTBL 105Q FILERDTBL 70Q FILERDTBL 47Q FILECREATED 41Q FILERDTBL 26Q FILERDTBL) (476Q "****rewrote file map for " 453Q (FIX 7) 434Q " " 400Q "))" 332Q (DUMMY.FOR.ERRORSET) 263Q "(FILEMAP " 245Q "(DECLARE: DONTCOPY " 221Q (DUMMY.FOR.ERRORSET) 130Q .9 7 "(FILEMAP" 3 "(DECLARE: DONTCOPY ") USEDFREE D1 (L (0 A)) @NIL NIL NIL WRITEFILEA0081 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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 WRITEFILEA0081 5 SETREADTABLE) (54Q SETREADTABLE 44Q ERROR 35Q INTERNAL 13Q SETREADTABLE 2 FILERDTBL) (32Q (DUMMY.FOR.ERRORSET)) XNLSETQ D1 (L (2 XNLSETFN 1 XNLSETFLG 0 XNLSETQX)) @AB(5 ERRORSET) NIL NIL PROG2 D1 (L (1 SECOND 0 FIRST)) ANIL NIL NIL RESETFORMA0082 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RESETZ F 1 MACROY) gPgci(12Q APPLY) (7 INTERNAL 2 PROGN) NIL 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 RESETFORMA0082 7 EVAL) (46Q ERROR 37Q INTERNAL 4 INTERNAL) (34Q (DUMMY.FOR.ERRORSET)) 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) NIL 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) NIL CHARCODE D1 (L (1 COMPFLG 0 C)) 0@d²Alg@Alglñž@dª¿o@ @ kð”@ @k)dl^ð²¿@lmÿAlglål#ð²@lmÿAlgl€Ø@Hd¡hgð³BHdgð’l gð¦Hdgð’l gð’lHdgð²¿A“‚gdgð¦dgð²àl gð’lHdgð’l gð’lHgð¦Hdgð’lgð‘jHgð¦Hdgð’lgð¦Hdgð’ld”H €H Xð¢±ÿRo@ (455Q ERROR 437Q U-CASE 432Q MKATOM 256Q COMPILEMODE 144Q SUBATOM 113Q SUBATOM 70Q CHCON1 61Q NCHARS 54Q ERROR) (415Q FORM 406Q FF 376Q DEL 367Q RUBOUT 357Q NULL 347Q ESCAPE 340Q ESC 327Q BELL 317Q TAB 305Q BS 274Q ALTO 266Q D 262Q D 245Q EOL 233Q TENEXEOL 223Q SP 214Q SPACE 204Q LF 174Q CR 152Q CHARCODE 121Q CHARCODE 25Q CHARCODE 13Q CHARCODE) (451Q "BAD CHARACTER SPECIFICATION" 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) NIL CONSTANTOK D1 (L (1 DEPTH 0 X)) OA¤ldb¿@³,@³'@d³!dd¡™jØhð´Adlð˜ jñ´A´þ@AkÙ b´ò@b¿°´(102Q CONSTANTOK 61Q NCHARS) NIL NIL ADDTOSCRATCHLIST D1 (L (0 VALUE) F 0 !SCRATCHTAIL) Pµ Pdhh¿c@NIL 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) NIL FLESSP D1 (L (1 Y 0 X)) A@òNIL NIL NIL FMAX D1 NIL BeHjð“`k@ Jd¥d¡©l Jh ¿IdHð‘JkØYa [Jò²ïKZ°ê(67Q FLOAT 50Q ERRORX 20Q FLOAT) (12Q MIN.FLOAT) NIL FMIN D1 NIL CeHjð“`k@ Jd¥d¡©l Jh ¿IdHð‘JkØ¹JIa [ò²îKZ°é(71Q FLOAT 50Q ERRORX 20Q FLOAT) (12Q MAX.FLOAT) NIL GEQ D1 (L (1 Y 0 X)) A@óhðNIL NIL NIL IGEQ D1 (L (1 Y 0 X)) A@ñhðNIL NIL NIL ILEQ D1 (L (1 Y 0 X)) @AñhðNIL NIL NIL IMAX D1 NIL )eHjð”ok@IdHð‘JkØ¹JIaýñ²ñIaº°ìNIL NIL (13Q -20000000000Q) IMIN D1 NIL (eHjð”ok@IdHð‘JkØ¹JIañ²òIaº°íNIL NIL (13Q 17777777777Q) LEQ D1 (L (1 Y 0 X)) @AóhðNIL NIL NIL MAX D1 NIL <eHjð“`k@Jd¥d¡©l Jh ¿IdHð‘JkØYa[Jó²òKZ°í(45Q ERRORX) (12Q MIN.FLOAT) NIL MIN D1 NIL =eHjð“`k@Jd¥d¡©l Jh ¿IdHð‘JkØ¹JIa[ó²ñKZ°ì(45Q ERRORX) (12Q MAX.FLOAT) NIL POWEROFTWOP D1 (L (0 X)) L@dkð¿@jñ´9@dkÙåjðlð²-@È@ÈHjð—IdkÙåjðIjð´Hn€ðhð´ HdkÙåjð@jØb°¸NIL NIL NIL IMOD D1 (L (1 N 0 X)) j@AÜbñ¡@A@ØNIL NIL NIL EVENP D1 NIL e@Hlð‘Al jð(20Q IMOD) NIL NIL ODDP D1 NIL e@Hlð‘Al jðhð(20Q IMOD) NIL NIL (PRETTYCOMPRINT MACHINEINDEPENDENTCOMS) (RPAQQ MACHINEINDEPENDENTCOMS ((COMS (* * random machine-independent utilities) (FNS LOAD? FILESLOAD DOFILESLOAD) (FNS DMPHASH HARRAYPROP.DUMMY HASHARRAY.DUMMY HASHARRAYP.DUMMY HASHOVERFLOW) (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 CLOSEF? DEFINE EQMEMB EQUALN FILEDATE FILEMAP FNCHECK FNTYP1 FREEVARS GETFILEMAP LCSKIP LDIFFERENCE MAPRINT MKLIST NAMEFIELD NLIST PRINTBELLS PROMPTCHAR PUTFILEMAP RAISEP READFILE READLINE REMPROPLIST RESETBUFS TAB UNSAVED1 UNSAVEDEF UPDATEFILEMAP USEDFREE WRITEFILE XNLSETQ PROG2) (FNS RESETFORM RESETLST RESETTOPVALS RESETTOPVALS1) (PROP INFO RESETTOPVALS) (BLOCKS (EQUALN EQUALN) (SUBPAIR SUBPAIR) (NIL PROMPTCHAR NAMEFIELD CLOSEF? 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) (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)))) (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.))) ( COMS (* * WHENCLOSE) (FNS AFTERCLOSE EOFCLOSEF WHENCLOSE CLOSEALL NEWCLOSEF RESTOREFILES) (PROP ARGNAMES WHENCLOSE) (ADDVARS (BEFORESYSOUTFORMS (RESTOREFILES T)) (AFTERSYSOUTFORMS (RESTOREFILES))) ( DECLARE: DONTEVAL@LOAD DOCOPY (P (MOVD? (QUOTE CLOSEF) (QUOTE OLDCLOSEF)) (MOVD (QUOTE NEWCLOSEF) ( QUOTE CLOSEF)))) (BLOCKS (NIL AFTERCLOSE EOFCLOSEF WHENCLOSE CLOSEALL NEWCLOSEF RESTOREFILES ( LOCALVARS . T) (GLOBALVARS RESTOREFILELST)))) (GLOBALVARS SYSFILES LOADOPTIONS UPDATEMAPFLG LISPXCOMS CLISPTRANFLG COMMENTFLG **COMMENT**FLG HISTSTR4 LISPXREADFN REREADFLG HISTSTR0 FILEPKGFLG CTRLUFLG NOLINKMESS PROMPTCHARFORMS PROMPT#FLG USEMAPFLG FILERDTBL BUILDMAPFLG DFNFLG ERRORTYPELST SPELLINGS2 DWIMFLG USERWORDS ADDSPELLFLG BELLS LISPXPRINTFLG CLISPARRAY) (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))))) (COND ((NOT (MEMB (QUOTE HIST) SYSFILES)) (SAVEDEF (QUOTE EVALQT)) (PUTDQ EVALQT (LAMBDA NIL (PROG ( TEM) (COND ((EQ CLEARSTKLST T) (COND ((EQ NOCLEARSTKLST NIL) (* Follwoing control-d Do a CLEARSTK. Standard case.) (CLEARSTK)) (T (* clear all stack pointers EXCEPT those on NOCLEARSTKLST.) (MAPC ( CLEARSTK T) (FUNCTION (LAMBDA (X) (AND (NOT (FMEMB X NOCLEARSTKLST)) (RELSTK X)))))))) (T (* clear only those stack pointers on CLEARSTKLST BREAK1, ERRORX2 SAVESET, and a few other system functions store frames on this list that can be eliminated after a control-D.) (MAPC CLEARSTKLST (FUNCTION RELSTK)) (SETQ CLEARSTKLST NIL))) (RESETRESTORE NIL (QUOTE RESET)) LP (PROMPTCHAR (QUOTE _) T) (LISPX (LISPXREAD T T)) (GO LP)))) (SETQ DFNFLG NIL))) (PUTDQ? 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))) (PUTDQ? LISPXREAD (LAMBDA (FILE RDTBL) (COND (READBUF (PROG1 (CAR READBUF) (SETQ READBUF (CDR READBUF)))) (T (READ FILE RDTBL))))) (PUTDQ? LISPXREADP (LAMBDA (FLG) (COND ((AND READBUF (SETQ READBUF (LISPXREADBUF READBUF))) T) (T (READP T FLG ))))) (PUTDQ? LISPXUNREAD (LAMBDA (LST) (SETQ READBUF (APPEND LST (CONS HISTSTR0 READBUF))))) (PUTDQ? LISPXREADBUF (LAMBDA (RDBUF) (PROG NIL LP (COND ((NLISTP RDBUF) (RETURN NIL)) ((EQ (CAR RDBUF) HISTSTR0) (SETQ RDBUF (CDR RDBUF)) (GO LP)) (T (RETURN RDBUF)))))) (PUTDQ? LISPX/ (LAMBDA (X) X)) ( PUTDQ? LOWERCASE (LAMBDA (FLG) (PROG1 LCASEFLG (RAISE (NULL FLG)) (RPAQ LCASEFLG FLG)))) (PUTDQ? FILEPOS (LAMBDA (STR FILE) (PROG NIL LP (COND ((EQ (PEEKC FILE) (NTHCHAR STR 1)) (RETURN T))) (READC FILE) (GO LP)))) (PUTDQ? FILEPKGCOM (NLAMBDA NIL NIL)) (SETSYNTAX 0 (QUOTE SEPR) FILERDTBL)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA SCRATCHLIST SELCHARQ RESETTOPVALS RESETLST RESETFORM USEDFREE RESETBUFS DMPHASH FILESLOAD) (NLAML CHARCODE XNLSETQ FILEMAP) (LAMA WHENCLOSE ODDP EVENP MIN MAX IMIN IMAX FMIN FMAX NLIST HARRAYPROP.DUMMY))) (LOCALVARS . T))) (MOVD? (QUOTE HARRAYPROP.DUMMY) (QUOTE HARRAYPROP)) (MOVD? (QUOTE HASHARRAY.DUMMY) (QUOTE HASHARRAY)) (MOVD? (QUOTE HASHARRAYP.DUMMY) (QUOTE HASHARRAYP)) (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) (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)) (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) (PUTPROPS WHENCLOSE ARGNAMES (NIL (FILE PROPNAME FN ...) . NARGS)) (ADDTOVAR BEFORESYSOUTFORMS (RESTOREFILES T)) (ADDTOVAR AFTERSYSOUTFORMS (RESTOREFILES)) (MOVD? (QUOTE CLOSEF) (QUOTE OLDCLOSEF)) (MOVD (QUOTE NEWCLOSEF) (QUOTE CLOSEF)) (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))))) (COND ((NOT (MEMB (QUOTE HIST) SYSFILES)) (SAVEDEF (QUOTE EVALQT)) (PUTDQ EVALQT (LAMBDA NIL (PROG ( TEM) (COND ((EQ CLEARSTKLST T) (COND ((EQ NOCLEARSTKLST NIL) (* Follwoing control-d Do a CLEARSTK. Standard case.) (CLEARSTK)) (T (* clear all stack pointers EXCEPT those on NOCLEARSTKLST.) (MAPC ( CLEARSTK T) (FUNCTION (LAMBDA (X) (AND (NOT (FMEMB X NOCLEARSTKLST)) (RELSTK X)))))))) (T (* clear only those stack pointers on CLEARSTKLST BREAK1, ERRORX2 SAVESET, and a few other system functions store frames on this list that can be eliminated after a control-D.) (MAPC CLEARSTKLST (FUNCTION RELSTK)) (SETQ CLEARSTKLST NIL))) (RESETRESTORE NIL (QUOTE RESET)) LP (PROMPTCHAR (QUOTE _) T) (LISPX (LISPXREAD T T)) (GO LP)))) (SETQ DFNFLG NIL))) (PUTDQ? 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))) (PUTDQ? LISPXREAD (LAMBDA (FILE RDTBL) (COND (READBUF (PROG1 (CAR READBUF) (SETQ READBUF (CDR READBUF) ))) (T (READ FILE RDTBL))))) (PUTDQ? LISPXREADP (LAMBDA (FLG) (COND ((AND READBUF (SETQ READBUF (LISPXREADBUF READBUF))) T) (T ( READP T FLG))))) (PUTDQ? LISPXUNREAD (LAMBDA (LST) (SETQ READBUF (APPEND LST (CONS HISTSTR0 READBUF))))) (PUTDQ? LISPXREADBUF (LAMBDA (RDBUF) (PROG NIL LP (COND ((NLISTP RDBUF) (RETURN NIL)) ((EQ (CAR RDBUF) HISTSTR0) (SETQ RDBUF (CDR RDBUF)) (GO LP)) (T (RETURN RDBUF)))))) (PUTDQ? LISPX/ (LAMBDA (X) X)) (PUTDQ? LOWERCASE (LAMBDA (FLG) (PROG1 LCASEFLG (RAISE (NULL FLG)) (RPAQ LCASEFLG FLG)))) (PUTDQ? FILEPOS (LAMBDA (STR FILE) (PROG NIL LP (COND ((EQ (PEEKC FILE) (NTHCHAR STR 1)) (RETURN T))) (READC FILE) (GO LP)))) (PUTDQ? FILEPKGCOM (NLAMBDA NIL NIL)) (SETSYNTAX 0 (QUOTE SEPR) FILERDTBL) (PUTPROPS MACHINEINDEPENDENT COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL