(FILECREATED "24-Oct-85 11:08:00" ("compiled on " {MCS:MCS:STANFORD}HASHDATUM.LSP;5) "19-Mar-85 14:34:17" tcompl%'d in "INTERLISP-D 17-Oct-85 ..." dated "17-Oct-85 08:43:50") (FILECREATED "24-Oct-85 11:07:37" {MCS:MCS:STANFORD}HASHDATUM.LSP;5 changes to: (VARS HASHDATUMCOMS) (MACROS GETHASHBINARYBITMAP PUTHASHBINARYBITMAP) (FNS \WRITEBM PRINTBINARYBITMAP INPUTBINARYBITMAP) previous date: "28-Jun-85 15:50:30" {MCS:MCS:STANFORD}HASHDATUM.LSP;2) GETHASHDATUM D1 (P 0 HASHTEXTPTR I 2 READFN I 1 HASHFILE I 0 KEY) *@hAg Hgð´Al(H ¿Al(kB(36Q SETFILEPTR 10Q LOOKUPHASHFILE) (21Q HashTextPtr 5 RETRIEVE) () PUTHASHDATUM D1 (P 1 HASHTEXTPTR I 3 PRINTFN I 2 HASHFILE I 1 DATA I 0 KEY) @Bi bHl(mÿ gHl( hAHl(lC¿IHl( @IB (75Q PUTHASHFILE 66Q GETEOFPTR 34Q GETEOFPTR 22Q SETFILEPTR 4 GTHASHFILE) (25Q HashTextPtr) () \WRITEBM D1 (I 1 STREAM I 0 BITMAP) A@ (4 WRITEBM) NIL () (PRETTYCOMPRINT HASHDATUMCOMS) (RPAQQ HASHDATUMCOMS ((FNS GETHASHDATUM PUTHASHDATUM) (MACROS GETHASHBITMAP PUTHASHBITMAP GETHASHBINARYBITMAP PUTHASHBINARYBITMAP GETHASHGRAPH PUTHASHGRAPH GETHASHUGLY PUTHASHUGLY) (FNS \WRITEBM))) (PUTPROPS GETHASHBITMAP MACRO ((KEY HASHFILE) (GETHASHDATUM KEY HASHFILE (FUNCTION READBITMAP)))) (PUTPROPS PUTHASHBITMAP MACRO ((KEY BITMAP HASHFILE) (PUTHASHDATUM KEY BITMAP HASHFILE (FUNCTION PRINTBITMAP)))) (PUTPROPS GETHASHBINARYBITMAP MACRO ((KEY HASHFILE) (GETHASHDATUM KEY HASHFILE (FUNCTION READBM)))) (PUTPROPS PUTHASHBINARYBITMAP MACRO ((KEY BITMAP HASHFILE) (PUTHASHDATUM KEY BITMAP HASHFILE (FUNCTION \WRITEBM)))) (PUTPROPS GETHASHGRAPH MACRO ((KEY HASHFILE) (GETHASHDATUM KEY HASHFILE (FUNCTION READGRAPH)))) (PUTPROPS PUTHASHGRAPH MACRO ((KEY GRAPH HASHFILE) (PUTHASHDATUM KEY GRAPH HASHFILE (FUNCTION DUMPGRAPH)))) (PUTPROPS GETHASHUGLY MACRO ((KEY HASHFILE) (GETHASHDATUM KEY HASHFILE (FUNCTION HREAD)))) (PUTPROPS PUTHASHUGLY MACRO ((KEY UGLYVAR HASHFILE) (PUTHASHDATUM KEY UGLYVAR HASHFILE (FUNCTION HPRINT)))) NIL