(FILECREATED "23-Jan-85 12:58:51" ("compiled on " {ERIS}LIBRARY>MSHASH.;1) "20-Dec-84 12:07:22" tcompl'd in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "23-Jan-85 12:56:28" {ERIS}LIBRARY>MSHASH.;1 44353 changes to: (VARS MSHASHCOMS ) (FNS SETDB) previous date: "22-Jan-85 13:01:29" {IVY}MSHASH.;9) (MOVD? (QUOTE GETTABLE) (QUOTE OLDHASHGETTABLE)) (MOVD? (QUOTE MAKETABLE) (QUOTE OLDHASHMAKETABLE)) (MOVD? (QUOTE MAPTABLE) (QUOTE OLDHASHMAPTABLE)) (MOVD? (QUOTE TESTTABLE) (QUOTE OLDHASHTESTTABLE)) (MOVD? (QUOTE EQMEMBTABLE) (QUOTE OLDHASHEQMEMBTABLE)) (MOVD? (QUOTE STORETABLE) (QUOTE OLDHASHSTORETABLE)) (MOVD? (QUOTE PUTTABLE) (QUOTE OLDHASHPUTTABLE)) (MOVD? (QUOTE ADDTABLE) (QUOTE OLDHASHADDTABLE)) (MOVD? (QUOTE SUBTABLE) (QUOTE OLDHASHSUBTABLE)) HFGETTABLE D1 (L (1 TABLE 0 KEY) F 6 MSHASHFILE F 7 FILERDTBL) Ag@A !HA'A@ VhJg Y`I `W HghAdH9I b0HIHI HId@Ai dLKh]K&M@A (225Q OLDHASHGETTABLE 173Q HFEQMEMBTABLE 153Q UNION 135Q FORWARDTABLE 102Q READ 71Q SETFILEPTR 56Q LOOKUPHASHFILE 44Q MSKEY 22Q OLDHASHGETTABLE) (110Q **BOGUSVALUE** 75Q MSHASHFILENAME 64Q MSHASHFILENAME 53Q RETRIEVE 5 HFTABLE) () HFMAKETABLE D1 (L (2 INVFLG 1 NAME 0 N) F 2 MSHASHFILE F 3 MSREADONLYFLG F 4 NEXTHASHKEY F 5 TEMP) [RT g@ AIBXooA TjRSgo c So g Hh@ (130Q OLDHASHMAKETABLE 114Q CONCAT 106Q CHARACTER 103Q HELP 71Q NEXTHASHKEY 60Q LOOKUPHASHFILE 37Q CONCAT 14Q OLDHASHMAKETABLE) (111Q ! 50Q RETRIEVE 10Q HFTABLE) ( 100Q "CAN'T SET UP READ-ONLY DATABASE FILE" 55Q (RETRIEVE INSERT) 33Q "by!" 26Q "do!") HFMAPTABLEA0001 D1 (L (1 ITEM 0 VAL) F 0 TABLE F 1 MFN) AP dAlQ(4 HFGETTABLE) NIL () HFMAPTABLEA0002 D1 (L (1 ITEM 0 VAL) F 0 MFN) @g @AlPNIL (3 **BOGUSVALUE**) () HFMAPTABLE D1 (P 0 HA I 1 MFN I 0 TABLE F 5 MSHASHFILE F 6 FILERDTBL) m@dg_A@HgHg @g UhJg Y0`I `V d[H K@ \LKlAhA (152Q OLDHASHMAPTABLE 126Q HFGETTABLE 120Q OLDHASHTESTTABLE 107Q READ 77Q SETFILEPTR 64Q LOOKUPHASHFILE 52Q MSKEY 42Q OLDHASHMAPTABLE) (103Q MSHASHFILENAME 72Q MSHASHFILENAME 61Q RETRIEVE 47Q **ALLKEYS** 37Q HFMAPTABLEA0002 32Q HFMAPTABLEA0001 6 HFTABLE) () HFTESTTABLE D1 (L (1 TABLE 0 KEY) F 5 MSHASHFILE F 6 FILERDTBL) AgP@A 9A#A Y@A Z4@Ii iJ@gA hAd@ hU  YA@ UhKg X`H `V \h@Ii L@A (236Q OLDHASHTESTTABLE 223Q HFEQMEMBTABLE 206Q READ 177Q SETFILEPTR 164Q LOOKUPHASHFILE 152Q MSKEY 143Q FORWARDTABLE 137Q LOOKUPHASHFILE 132Q MSKEY 113Q OLDHASHEQMEMBTABLE 71Q HFEQMEMBTABLE 54Q OLDHASHGETTABLE 43Q FORWARDTABLE 25Q OLDHASHTESTTABLE) (202Q MSHASHFILENAME 172Q MSHASHFILENAME 161Q RETRIEVE 104Q **BOGUSVALUE** 5 HFTABLE) () HFEQMEMBTABLE D1 (L (3 FLG 2 TABLE 1 VALUE 0 KEY) F 2 MSHASHFILE) fBgWBA@bbB b@B @AB C)B@ RHhIg bA `@@ i@AB (143Q OLDHASHEQMEMBTABLE 131Q FILEPOS 117Q MSVAL 106Q LOOKUPHASHFILE 71Q MSKEY 60Q OLDHASHEQMEMBTABLE 46Q OLDHASHTESTTABLE 33Q FORWARDTABLE) (122Q MSHASHFILENAME 103Q RETRIEVE 5 HFTABLE) () HFSTORETABLE D1 (L (2 VALUE 1 TABLST 0 KEY)) \AgK@BgA A!AdgA!BYIdIhIIJ@H @AB (131Q OLDHASHSTORETABLE 121Q OLDHASHADDTABLE 56Q SHOULDNT 32Q OLDHASHPUTTABLE) (50Q HFTABLE 21Q **BOGUSVALUE** 7 HFTABLE) () HFPUTTABLE D1 (L (2 TABLE 1 VALUE 0 KEY)) $Bg@AgB @AgB (41Q OLDHASHPUTTABLE 25Q OLDHASHPUTTABLE) (35Q **BOGUSVALUE** 16Q **BOGUSVALUE** 5 HFTABLE) () HFADDTABLE D1 (L (2 TABLE 1 VALUE 0 KEY)) Bg@AB (21Q OLDHASHADDTABLE 12Q SHOULDNT) (5 HFTABLE) () HFSUBTABLE D1 (L (2 TABLE 1 VALUE 0 KEY)) Bg@AB (21Q OLDHASHSUBTABLE 12Q SHOULDNT) (5 HFTABLE) () LOCALFNP D1 (L (0 FN) F 2 MSDATABASELST) 9oHh@IR YdgY @gI iHX(57Q OLDHASHEQMEMBTABLE 46Q OLDHASHTESTTABLE 24Q ASSOC) (53Q **BOGUSVALUE** 35Q HFTABLE) ( 3 (CALL REF NOBIND)) MSHASH.HASHCOPYFN D1 (L (3 NEWHF 2 OLDHF 1 VALUE 0 KEY)) Xo@ Ao@ o@ Cg Cg m Bg Cg AA HdAA(114Q COPYBYTES 105Q HASHFILEPROP 76Q HASHFILEPROP 67Q SETFILEPTR 62Q HASHFILEPROP 50Q GETEOFPTR 45Q HASHFILEPROP 34Q STRPOS 22Q STRPOS 7 STRPOS) (102Q STREAM 73Q STREAM 57Q STREAM 42Q STREAM) ( 30Q "!" 16Q "do!" 3 "by!") MSKEY D1 (L (1 KEY 0 TABLE)) 5@g`k@ `lA `kA lo (62Q SUBSTRING 50Q NCHARS 40Q RPLSTRING 27Q RPLSTRING 12Q SHOULDNT) (43Q MSHASHSCRATCHSTRING 32Q MSHASHSCRATCHSTRING 16Q MSHASHSCRATCHSTRING 5 HFTABLE) ( 57Q "") FORWARDTABLE D1 (L (0 TABLE) F 1 MSDATABASELST) QHhd@HX(12Q HELP) NIL () MSVAL D1 (L (0 VAL) F 2 FILERDTBL) H`ko k@HiR Y`HkI Hkظ`Hko `kHko (105Q SUBSTRING 66Q RPLSTRING 42Q RPLSTRING 25Q NTHCHAR 12Q RPLSTRING) (72Q MSHASHSCRATCHSTRING 54Q MSHASHSCRATCHSTRING 33Q MSHASHSCRATCHSTRING 2 MSHASHSCRATCHSTRING) ( 102Q "" 63Q " " 7 " ") NEXTHASHKEY D1 (F 0 NEXTHASHKEY F 1 MSHASHFILE) PgPkcjQ (16Q PUTHASHFILE) (3 NEXTHASHKEY) () STOREHASHVALUE D1 (L (2 TABLE 1 VALUE 0 KEY) F 2 FILERDTBL F 3 MSHASHFILE) `m B@ AoH` HAWo` AHYd*!o` I`R o` o2`R o` Io` A`R o` oH` HS A(270Q PUTHASHFILE 260Q \PUTFIXP 255Q GETFILEPTR 236Q PRIN3 223Q PRIN4 212Q PRIN3 173Q PRIN3 160Q PRIN4 140Q PRIN3 125Q PRIN4 114Q PRIN3 65Q PRIN3 44Q \PUTFIXP 41Q GETFILEPTR 14Q MSKEY 7 SETFILEPTR) (252Q MSHASHFILENAME 233Q MSHASHFILENAME 217Q MSHASHFILENAME 207Q MSHASHFILENAME 170Q MSHASHFILENAME 154Q MSHASHFILENAME 135Q MSHASHFILENAME 121Q MSHASHFILENAME 111Q MSHASHFILENAME 62Q MSHASHFILENAME 36Q MSHASHFILENAME 2 MSHASHFILENAME) ( 243Q (create IBOX) 230Q " " 204Q " " 165Q " " 146Q ")" 132Q " " 106Q ". " 57Q "( " 27Q (create IBOX)) GETHASHTABLE D1 (L (1 TABLE 0 KEY) F 2 MSHASHFILE F 3 FILERDTBL) (A@ RHhIg b`@ `S (45Q READ 36Q SETFILEPTR 21Q LOOKUPHASHFILE 4 MSKEY) (41Q MSHASHFILENAME 31Q MSHASHFILENAME 16Q RETRIEVE) () ANALYZEFILESA0001 D1 (NAME ERRORSET F 0 FILE F 1 LOADDBFLG) gcP chh(11Q LOADFROM) (2 NO) () ANALYZEFILESA0002 D1 (NAME ERRORSET F 0 FNS F 1 ALLFNS F 2 RESETY) PdiQdi hci(15Q UPDATEFN) NIL () ANALYZEFILES D1 (L (1 EVENIFVALID 0 FILES) P 15Q RESETY P 14Q LISPXHIST P 11Q ALLFNS P 10Q FNS P 5 FILE F 17Q RESETVARSLST F 20Q LOADDBFLG F 21Q FILELST F 22Q MSFILETABLE F 23Q LISPXHIST)  @ HIHhHHLdLi_M @i Mi i NdW" PgW Wc__og Oc OdWOcW WkO OM ^g_AOig O >N _W&!Wog hg_ ONO NW$O @i OJ KhZK&(365Q TERPRI 354Q STORETABLE 343Q UPDATECONTAINS 333Q ERROR! 324Q RESETRESTORE 311Q ANALYZEFILESA0002 265Q FILEFNSLST 257Q LOADDB 250Q \DEFINEDP 221Q NAMEFIELD 214Q ERROR! 203Q NLEFT 172Q TAILP 137Q ANALYZEFILESA0001 102Q MEMB 72Q TERPRI 65Q PRIN2 57Q TERPRI 46Q NAMEFIELD) (317Q ERROR 306Q INTERNAL 245Q LOADDB 225Q FILEDATES 134Q INTERNAL 110Q LOADDBFLG) ( 303Q (ANALYZEFILESA0002) 131Q (ANALYZEFILESA0001)) BUILDDB D1 (L (1 FILES 0 NAME)) _@`bo A@ b@g AAHIdi @ HhHHghgL J KhZK&(115Q PACKFILENAME 65Q SETDB 61Q ANALYZEFILES 43Q SETDB 31Q MSFILES 25Q SETDB 16Q ERROR) (111Q BODY 105Q VERSION 40Q CREATE 4 MSHASHFILENAME) ( 13Q "No database file name") COPYDBA0001 D1 (L (0 VAL) F 1 NEWFILE F 2 OLDFILE) @Qm @jj@oHQ HRQ@@ oHQ H(71Q \PUTFIXP 66Q GETFILEPTR 51Q COPYBYTES 35Q \PUTFIXP 32Q GETFILEPTR 5 SETFILEPTR) NIL ( 56Q (create IBOX) 22Q (create IBOX)) COPYDB D1 (L (2 LEAVEOPEN) I 1 NEWFILE I 0 OLDFILE) B@g@gg ` bAgAggghg@ b@AghB (77Q COPYHASHFILE 62Q OUTFILEP 57Q PACKFILENAME 25Q INFILEP 16Q PACKFILENAME) (71Q COPYDBA0001 53Q BODY 47Q VERSION 43Q HASHDATABASE 40Q EXTENSION 34Q BODY 22Q MSHASHFILENAME 13Q HASHDATABASE 10Q EXTENSION 4 BODY) () FLUSHDBA0001 D1 (I 1 ITEM I 0 VAL F 0 TABLE F 1 KEYS F 2 REMKEYS F 3 LA) AdP P AQcARcAhS (35Q OLDHASHPUTTABLE 11Q STOREHASHVALUE 5 HFGETTABLE) NIL () FLUSHDBA0002 D1 (I 1 ITEM I 0 VAL F 0 KEYS F 1 REMKEYS F 2 TABLE F 3 LA) 2@dghbAPcAQc@AR A@R AhS (57Q OLDHASHPUTTABLE 50Q STOREHASHVALUE 41Q EQLST 36Q GETHASHTABLE) (4 **BOGUSVALUE**) () FLUSHDB D1 (P 12Q KEY2 P 11Q KEY1 P 10Q KEY2 P 7 HASHFILE P 6 KEY P 5 TABLE P 4 FILEV P 3 KEYS P 2 LA P 1 X F 13Q REMKEYS F 14Q MSREADONLYFLG F 15Q MSDATABASELST F 16Q FILERDTBL F 17Q MSHASHFILE) `Wh WQHhY]g1h[cMZg KWgKgM W M I]gth[cMZg KW]Mg WNO OOO`O hOg \`L `W \W K LK gKM HX>(316Q STOREHASHVALUE 305Q EQLST 277Q UNION 273Q LDIFFERENCE 265Q READ 254Q SETFILEPTR 240Q LOOKUPHASHFILE 226Q PACK* 173Q MSKEY 155Q OLDHASHMAPTABLE 120Q STOREHASHVALUE 114Q UNION 111Q LDIFFERENCE 104Q GETHASHTABLE 62Q OLDHASHMAPTABLE) (311Q **ALLKEYS** 260Q MSHASHFILENAME 247Q MSHASHFILENAME 235Q RETRIEVE 221Q HASHTEXTCHAR 170Q **ALLKEYS** 152Q FLUSHDBA0002 132Q HFTABLE 100Q **ALLKEYS** 74Q **ALLKEYS** 57Q FLUSHDBA0001 37Q HFTABLE 2 MSHASHFILENAME) () EQLST D1 (L (1 L2 0 L1)) #@H AYiAHX@INIL NIL () HFGETARGSA0001 D1 (NAME ERRORSET F 0 DATA F 1 DEF) gP Q ii(12Q ARGLIST 6 FASSOC) (2 ARG) () HFGETARGS D1 (L (0 NAME) I 2 DATA I 1 DEF) `o B(12Q HFGETARGSA0001) (2 MSHASHFILENAME) ( 7 (HFGETARGSA0001)) MSFILECHECK D1 (L (0 FILES) F 5 MSFILETABLE F 6 FILELST) @dib+(0VdgIHhZH&J b@AH L gL hK gK h HhHHghgI ZI U YILI U JK(224Q GETTABLE 216Q NAMEFIELD 200Q GETTABLE 172Q NAMEFIELD 163Q INFILEP 160Q PACKFILENAME 130Q \NCONC2 122Q DREVERSE 105Q DREVERSE 61Q SORT 10Q MSFILES) (154Q BODY 150Q VERSION 116Q CHANGED 101Q DELETED 31Q FILEDATES) () MSFILESA0001 D1 (L (1 FILE 0 DATE) F 0 VAL) @PcNIL NIL () MSFILES D1 (P 0 VAL F 1 MSFILETABLE) Qg H (17Q SORT 13Q MAPTABLE) (10Q MSFILESA0001) () RESTOREDB D1 (L (2 OLDFILES 1 WRITEDATE 0 FILE) F 4 MSFILETABLE) @ ghg@ hg bA@g j$B1HJi i oi i iYT [I^Ji oi i iI.i Ii oi Koi Ki oi Ki oi HXr(274Q PRIN1 263Q PRIN2 255Q TERPRI 242Q PRIN2 234Q PRIN1 221Q PRIN1 210Q PRIN2 201Q TERPRI 166Q TERPRI 161Q PRIN1 150Q TERPRI 132Q GETTABLE 117Q TERPRI 112Q PRIN1 101Q TERPRI 74Q TERPRI 50Q GETFILEINFO 36Q SETDB 26Q SETDB 21Q INFILEP 16Q PACKFILENAME 3 AFTERCLOSE) (45Q IWRITEDATE 33Q RESTORE 12Q BODY 6 VERSION) ( 270Q " has been added" 250Q "deleted" 230Q "replaced by " 215Q " has been " 155Q "***WARNING: The database has been updated. Information about files that you currently have loaded has changed:" 106Q "You might want to LOADFROM or REANALYZE those files.") SETDB D1 (L (1 MODE 0 FILE) F 4 MSHASHFILE F 5 NEXTHASHKEY F 6 MSREADONLYFLG F 7 MSHFNS F 10Q MSDBEMPTY F 11Q MSDATABASELST) Ag1T#@di3ITIWA c AgT ˲g@gg bHVhbo Agibc@ghddg @A cgThJg c lAc wjc nd[K T Tg Tl g*AgAhic @iHWo `I o I(371Q %. 353Q %. 303Q HASHFILEPROP 274Q MSHASHWHENCLOSE 263Q MOVD 224Q LOOKUPHASHFILE 204Q OPENHASHFILE 176Q CREATEHASHFILE 142Q %. 120Q PACKFILENAME 76Q CLOSEHASHFILE 71Q FLUSHDB 56Q HASHFILEP 47Q OPENHASHFILE) (356Q MSHASHFILENAME 321Q INPUT 314Q MSHASH.HASHCOPYFN 306Q MSHASHFILENAME 300Q NAME 221Q RETRIEVE 212Q NEXTHASHKEY 172Q MSHASH.HASHCOPYFN 164Q 2NUMBERS 147Q CREATE 115Q HASHDATABASE 112Q EXTENSION 106Q BODY 64Q NOFLUSH 3 RESTORE) ( 366Q (ERASE) 350Q (WHO CALLS FUM) 137Q (ERASE)) UPDATECONTAINS D1 (L (2 KEEPFLG 1 NEWFNS 0 FILE) P 1 UPDATEFNS F 7 MSDATABASELST) ggW a@H ZBdA Yo J] @HA h^dAH [KMKhKKLHNLH (143Q STORETABLE 140Q REMOVE 135Q GETTABLE 76Q GETTABLE 56Q STORETABLE 42Q %. 31Q LDIFFERENCE 21Q GETTABLE 7 ASSOC) (2 CONTAINS) ( 37Q (ERASE IN UPDATEFNS)) UPDATEDBA0001 D1 (NAME ERRORSET L (0 NIL) F 26Q ADDFILES F 27Q RESETVARSLST F 30Q DELETEFILES F 31Q MSFILETABLE F 32Q ADDONLY F 33Q RESETY F 34Q NOGCFLG F 35Q DWIMWAIT) hh` oHhW.c.HgIg gggggg Zgg k_HJg _Pn OOdl9i Og i oi i oi i i hkذW4i ohW.c.W,dgK W,ddh c,AOoOc, ^j+i Ni oi lhi ljW,ihi W8g o IH Hg Hgg dhc,x_$W0O$ O& hO$_"O .O"h_ _O_b_*O(O* O*iO&_&O"&_ IHi Hi W0h__OgK !OMNW,"k_"OHghgI X\Ig ghgI Og _ OO g O LO_hO_O_O _ OW2 R_ _ W0h__O;i0W:gghgO oh gO O W2 O_O_hO_O_O O h_ O"Oi i O i i O O i O_O"kرL\d_g ghgO Og _ OO g O M"NMi NMi oi i Hc6i(1610Q TERPRI 1603Q PRIN1 1572Q PRIN1 1562Q TERPRI 1537Q DELFILE 1527Q FILENAMEFIELD 1511Q FULLNAME 1476Q PACKFILENAME 1462Q FILENAMEFIELD 1425Q ANALYZEFILES 1415Q LOADDB 1412Q FINDFILE 1404Q TERPRI 1377Q PRIN2 1370Q TERPRI 1363Q TERPRI 1334Q NAMEFIELD 1267Q STORETABLE 1257Q UPDATECONTAINS 1245Q ASKUSER 1233Q PACKFILENAME 1167Q NAMEFIELD 1156Q STORETABLE 1146Q UPDATECONTAINS 1141Q NAMEFIELD 1100Q DELFILE 1070Q FILENAMEFIELD 1052Q FULLNAME 1037Q PACKFILENAME 1024Q FILENAMEFIELD 1010Q RENAMEFILE 1005Q PACKFILENAME 770Q SETDB 720Q FASSOC 667Q SETDB 661Q COPYDB 623Q NAMEFIELD 542Q NAMEFIELD 515Q HASHFILEPROP 502Q OPENHASHFILE 472Q COPYFILE 464Q FILESLOAD 454Q \DEFINEDP 437Q PRINTPARA 422Q TAB 412Q PRIN1 401Q PRIN1 373Q TERPRI 362Q LENGTH 340Q \NCONC2 323Q FASSOC 265Q SETDB 255Q MSFILECHECK 236Q TERPRI 231Q TERPRI 224Q PRIN1 213Q TERPRI 206Q PRIN1 175Q PRIN1 171Q GETFILEINFO 160Q TERPRI 136Q DISMISS 123Q FULLNAME 104Q CLOSEF 101Q OPENFILE 67Q PACKFILENAME 41Q FILENAMEFIELD) (1524Q VERSION 1506Q OLDEST 1471Q BODY 1465Q VERSION 1457Q VERSION 1250Q Y 1226Q BODY 1222Q VERSION 1217Q Y 1065Q VERSION 1047Q OLDEST 1033Q BODY 1027Q VERSION 1021Q VERSION 1001Q BODY 775Q VERSION 714Q DELETED 512Q MSHASH.HASHCOPYFN 507Q COPYFN 477Q BOTH 451Q COPYFILE 317Q CHANGED 166Q AUTHOR 120Q OLDEST 76Q NEW 73Q OUTPUT 63Q S 60Q TEMPORARY 55Q SCRATCH 52Q EXTENSION 47Q NEWHASHDATABASE 44Q NAME 36Q DIRECTORY 32Q DIRECTORY 5 MSHASHFILENAME) ( 1577Q " files still to be updated." 1237Q "no longer exists. Shall I remove it from the database" 461Q ((SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) COPYFILE) 406Q " files to be updated:" 262Q (PROGN (SETDB (PACKFILENAME (QUOTE VERSION) NIL (QUOTE BODY) OLDVALUE))) 220Q "I'm waiting for him to finish." 202Q " seems to be updating the database right now." 14Q (PROGN (CLOSEF? (CAR OLDVALUE)) (AND RESETSTATE (DELFILE (CAR OLDVALUE))))) UPDATEDB D1 (P 1 RESETY P 0 LISPXHIST I 3 NOGCFLG I 2 ADDONLY I 1 DELETEFILES I 0 ADDFILES F 3 LISPXHIST F 4 RESETVARSLST) .`o S!Tog hgZ JI(51Q ERROR! 44Q RESETRESTORE 32Q UPDATEDBA0001 12Q ERROR) (40Q ERROR 27Q INTERNAL 2 MSHASHFILENAME) ( 24Q (UPDATEDBA0001) 7 "No current hash-database file") MSHASHWHENCLOSEA0001 D1 (L (0 FILE) F 3 FILELST F 4 MSFILETABLE) 5g@dg 0SddT IHhZH&Jh(31Q HFGETTABLE 12Q GETFILEINFO) (7 IWRITEDATE 2 RESTOREDB) () MSHASHWHENCLOSEA0002 D1 (L (0 F) F 0 MSHASHFILE) hdcNIL (3 MSHASHFILENAME) () MSHASHWHENCLOSE D1 (I 0 MSHASHFILE) %@g gggggggg (42Q WHENCLOSE 6 HASHFILEPROP) (36Q MSHASHWHENCLOSEA0002 33Q AFTER 30Q NILL 25Q EOF 22Q NO 17Q CLOSEALL 14Q MSHASHWHENCLOSEA0001 11Q STATUS 3 NAME) () (PRETTYCOMPRINT MSHASHCOMS) (RPAQQ MSHASHCOMS ((VARS MSHFNS) (DECLARE: FIRST (P * (MAPCAR MSHFNS (FUNCTION (LAMBDA (X) (LIST ( QUOTE MOVD?) (KWOTE (CADR X)) (KWOTE (CADDR X)))))))) (FNS * (MAPCAR MSHFNS (FUNCTION CAR))) (DECLARE: DONTCOPY (RECORDS HFTABLE)) (FNS LOCALFNP MSHASH.HASHCOPYFN MSKEY FORWARDTABLE MSVAL NEXTHASHKEY STOREHASHVALUE GETHASHTABLE) (VARS (MSHASHSCRATCHSTRING (ALLOCSTRING 255))) (GLOBALVARS MSHASHSCRATCHSTRING) (ADDVARS (MSHASHFILE) (MSHASHFILENAME) (MSREADONLYFLG) (NEXTHASHKEY) (MSFILETABLE )) (DECLARE: EVAL@COMPILE DONTCOPY (PROP MACRO BOGUSVAL BOGUSVALP)) (FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) HASH NOBOX) (LOCALVARS . T) (FNS ANALYZEFILES BUILDDB COPYDB FLUSHDB EQLST HFGETARGS MSFILECHECK MSFILES RESTOREDB SETDB UPDATECONTAINS UPDATEDB MSHASHWHENCLOSE) (ADDVARS ( ANALYZEUSERFNS HFGETARGS)) (P (ADVISE (QUOTE REHASHFILE) (QUOTE AFTER) NIL (QUOTE (PROGN ( MSHASHWHENCLOSE NEWNAME) (SETQ MSHASHFILENAME (HASHFILEPROP HASHFILE (QUOTE NAME))) (SETQ MSHASHFILE HASHFILE))))) (COMS (* tell the hash package to be verbose) (VARS (REHASHGAG T))))) (RPAQQ MSHFNS ((HFGETTABLE GETTABLE OLDHASHGETTABLE) (HFMAKETABLE MAKETABLE OLDHASHMAKETABLE) ( HFMAPTABLE MAPTABLE OLDHASHMAPTABLE) (HFTESTTABLE TESTTABLE OLDHASHTESTTABLE) (HFEQMEMBTABLE EQMEMBTABLE OLDHASHEQMEMBTABLE) (HFSTORETABLE STORETABLE OLDHASHSTORETABLE) (HFPUTTABLE PUTTABLE OLDHASHPUTTABLE) (HFADDTABLE ADDTABLE OLDHASHADDTABLE) (HFSUBTABLE SUBTABLE OLDHASHSUBTABLE))) (RPAQ MSHASHSCRATCHSTRING (ALLOCSTRING 255)) (ADDTOVAR MSHASHFILE) (ADDTOVAR MSHASHFILENAME) (ADDTOVAR MSREADONLYFLG) (ADDTOVAR NEXTHASHKEY) (ADDTOVAR MSFILETABLE) (FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) HASH NOBOX) (ADDTOVAR ANALYZEUSERFNS HFGETARGS) (ADVISE (QUOTE REHASHFILE) (QUOTE AFTER) NIL (QUOTE (PROGN (MSHASHWHENCLOSE NEWNAME) (SETQ MSHASHFILENAME (HASHFILEPROP HASHFILE (QUOTE NAME))) (SETQ MSHASHFILE HASHFILE)))) (RPAQQ REHASHGAG T) (PUTPROPS MSHASH COPYRIGHT ("Xerox Corporation" 1985)) NIL