Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/mshash.com
There are no other files named mshash.com in the archive.
(FILECREATED "10-APR-82 14:08:06" ("compiled on " <LISPUSERS>MSHASH.;195) (2 . 2) recompiled exprs: 
UPDATEDB in "INTERLISP-MAXC " dated " 3-APR-82 00:43:41")
(FILECREATED "10-APR-82 14:07:45" <LISPUSERS>MSHASH.;195 39763 changes to: UPDATEDB previous date: 
"10-APR-82 10:44:16" <LISPUSERS>MSHASH.;193)
(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 BINARY
C:A-.:Z`-,ZZ2B<+8,<`[`[ZD=,<,<Zw3B+D?XBp+Zw2B?+ZXBw[`[[[Z2B+Zw2B+Zp+,<`"@XB`Zw3B+%Zp3B+%,<wD@+'Zw2B+'Zp,<,<Zw-,+.ZpZ2B+, "+.[QD "+7Zw,<,<p,<`,<`,<(A/3B+5ZwZp,XBp[wXBw+(/+,<`,<`$=,~aI,	dQ!(KEY . 1)
(TABLE . 1)
(VARIABLE-VALUE-CELL MSHASHFILE . 30)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 39)
(VARIABLE-VALUE-CELL FILERDTBL . 41)
HFTABLE
OLDHASHGETTABLE
MSKEY
GETHASHFILE
SETFILEPTR
READ
**BOGUSVALUE**
FORWARDTABLE
UNION
HFEQMEMBTABLE
(COLLCT8BHCKTSKNLST URET2 KNIL SKLST ENTER2)580 h8+0(h# H
HFMAKETABLE BINARY
, *-.  Z3B+,<,<,<`"$XBpZ`,<,<wZ`XBw~Z`3B+
Z$+Z%,<,<`$%,<ZZ$,,<Z,<Z3B+Z&+Z&H'XB3B+Z+Z2B+ '+,<("(B),<,<)$%,<,<w~,Z*,/,~,<`"$,~HrOl!(N . 1)
(NAME . 1)
(INVFLG . 1)
(VARIABLE-VALUE-CELL MSHASHFILE . 30)
(VARIABLE-VALUE-CELL NEXTHASHKEY . 26)
(VARIABLE-VALUE-CELL MSREADONLYFLG . 44)
(VARIABLE-VALUE-CELL TEMP . 42)
OLDHASHMAKETABLE
"do!"
"by!"
CONCAT
RETRIEVE
((RETRIEVE INSERT) . 0)
LOOKUPHASHFILE
NEXTHASHKEY
"CAN'T SET UP READ-ONLY DATABASE FILE"
HELP
CHARACTER
!
HFTABLE
(BHC CONS21 LIST4 CONS ASZ KNIL ENTER3)P@
HFMAPTABLEA0004 BINARY


	-.	,<`ZDXB`3B+Z,<,<,<` ",,~Z,~ (VAL . 1)
(ITEM . 1)
(VARIABLE-VALUE-CELL TABLE . 4)
(VARIABLE-VALUE-CELL MFN . 9)
HFGETTABLE
(EVCC KNIL ENTER2)	H
HFMAPTABLEA0005 BINARY

	-.Z`3B	77+Z,<,<`,<` ",,~@(VAL . 1)
(ITEM . 1)
(VARIABLE-VALUE-CELL MFN . 8)
**BOGUSVALUE**
(EVCC KNIL KT ENTER2)
HFMAPTABLE BINARY
6,5-.,Z-,ZZ2B.+)[[Z,<@/ +)[[[[Z3B+Z,<Z0D0+Z,<Z1D0Z,<,<1$2,<ZD2XB`3B+(Z,<Z`D3Z,<ZD3,<Zp-,++'Zp,<,<,<wZD42B+%,<wZD4XBp3B+%Z,<,<,<w~ ",/[pXBp+/Z,~,~Z ,<Z"D0,~a '

$@(VARIABLE-VALUE-CELL TABLE . 83)
(VARIABLE-VALUE-CELL MFN . 85)
(VARIABLE-VALUE-CELL MSHASHFILE . 37)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 46)
(VARIABLE-VALUE-CELL FILERDTBL . 48)
HFTABLE
(VARIABLE-VALUE-CELL HA . 59)
NIL
HFMAPTABLEA0004
OLDHASHMAPTABLE
HFMAPTABLEA0005
**ALLKEYS**
MSKEY
GETHASHFILE
SETFILEPTR
READ
OLDHASHTESTTABLE
HFGETTABLE
(BHC EVCC SKNLST KNIL SKLST ENTERF)&&)(X8
HFTESTTABLE BINARY
QFO-.FZ`-,ZZ2BI+D,<,<,<,<`[`[ZDI3B+%[`[[[Z3B+,<`"JXBp,<`[`[ZDJ,<,<,<Zw-,++ZXBp,<,<`,<w},<(K2B++Z+[wXBw++Zw/+/+/+,<`ZK,<[`[ZFL2B+$7Z+[`[[[Z2B+.,<`,<`$L,<,<Z,<,<(M+,<`"JXBp,<`,<`$L,<Z+DMXBw3B+Z,<ZwDNZ4,<ZDN,<,<,<Zw-,+;+CZXBp,<,<`,<w},<(K2B+@+AZ+C[wXBw+9Zw/+,<`,<`$I,~`

SBD@$(KEY . 1)
(TABLE . 1)
(VARIABLE-VALUE-CELL MSHASHFILE . 99)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 108)
(VARIABLE-VALUE-CELL FILERDTBL . 110)
HFTABLE
OLDHASHTESTTABLE
FORWARDTABLE
OLDHASHGETTABLE
HFEQMEMBTABLE
**BOGUSVALUE**
OLDHASHEQMEMBTABLE
MSKEY
LOOKUPHASHFILE
GETHASHFILE
SETFILEPTR
READ
(URET3BHCKTSKNLSTKNIL SKLST ENTER2)P4h&H`?P0@ 9@-@)X$(
HFEQMEMBTABLE BINARY
,$+-. $Z`-,ZZ2B'+![`[[[Z3B+

,<`Z`XB`,\XB`,<`"'XB`,<`[`[ZD(3B+,<`,<`[`[ZF(,~Z`3B+Z,~,<`,<`$),<ZD)XB`3B+ ,<`"*,<Z,<Z`,<[`H*3B+ Z,~Z,~,<`,<`,<`&(,~`  PD(
(KEY . 1)
(VALUE . 1)
(TABLE . 1)
(FLG . 1)
(VARIABLE-VALUE-CELL MSHASHFILE . 47)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 55)
HFTABLE
FORWARDTABLE
OLDHASHTESTTABLE
OLDHASHEQMEMBTABLE
MSKEY
GETHASHFILE
MSVAL
FILEPOS
(KT KNIL SKLST ENTER4)!xH
HFSTORETABLE BINARY
)#(-.#[`Z-,ZZ2B%+!,<`Z`2B+Z%,<[`Z[[ZF&[`[3B+#[`[-,ZZ3B%+ &[`[[[Z,<,<`,<,<Zw2B++-,+XBpZXBw+ZwXBp[wXBw,<p,<`,<w}&'+Zw/Z+,<`,<`,<`&',~1@D

(KEY . 1)
(TABLST . 1)
(VALUE . 1)
HFTABLE
**BOGUSVALUE**
OLDHASHPUTTABLE
SHOULDNT
OLDHASHADDTABLE
OLDHASHSTORETABLE
(URET1BHCSKNLSTKNIL SKLST ENTER3)! ! `x
HFPUTTABLE BINARY
-.Z`-,ZZ2B+
,<`Z`2B+Z,<[`[ZF,~,<`Z`2B+

Z,<,<`&,~c(KEY . 1)
(VALUE . 1)
(TABLE . 1)
HFTABLE
**BOGUSVALUE**
OLDHASHPUTTABLE
(KNIL SKLST ENTER3)@80
HFADDTABLE BINARY
-.Z`-,ZZ2B	+ 
,~,<`,<`,<`&
,~p@(KEY . 1)
(VALUE . 1)
(TABLE . 1)
HFTABLE
SHOULDNT
OLDHASHADDTABLE
(KNIL SKLST ENTER3)
HFSUBTABLE BINARY
-.Z`-,ZZ2B	+ 
,~,<`,<`,<`&
,~p@(KEY . 1)
(VALUE . 1)
(TABLE . 1)
HFTABLE
SHOULDNT
OLDHASHSUBTABLE
(KNIL SKLST ENTER3)
LOCALFNP BINARY
-.,<,<,<Zw-,++ZXBp,<`,<ZD[ZXBw-,ZZ2B+[w[ZXBw+ZwD3B+,<`Z,<,<w&3B++Z+[wXBw+Zw+0 0U,(FN . 1)
(VARIABLE-VALUE-CELL MSDATABASELST . 14)
((CALL REF NOBIND) . 0)
ASSOC
HFTABLE
OLDHASHTESTTABLE
**BOGUSVALUE**
OLDHASHEQMEMBTABLE
(URET3 KT SKLST SKNLST KNIL ENTER1)`X(H@00
MSKEY BINARY
-.Z`-,ZZ3B+ Z,<,<[`[[ZFZ,<,<,<`&Z	,<,<^",>,>,<`",.Bx,^/,,<ZH,~r	%0(TABLE . 1)
(KEY . 1)
(VARIABLE-VALUE-CELL MSHASHSCRATCHSTRING . 23)
HFTABLE
SHOULDNT
1
RPLSTRING
3
NCHARS
""
SUBSTRING
(MKN BHC IUNBOX KNIL SKLST ENTER2)( 80
FORWARDTABLE BINARY
-.Z,<,<,<Zw-,++
+

[pZ+[wXBw+[`Z Zw+ (TABLE . 1)
(VARIABLE-VALUE-CELL MSDATABASELST . 3)
HELP
(URET3 SKNLST KNIL ENTER1)HP@
MSVAL BINARY
-.Z,<,<,<&,<,<,<,<`,<w,<ZHXBp2B+
+Z,< w.",,<,<w& w.",XBw+Z
,< w.",,<,<&Z,<,< w~.",,<ZH+P&

C(VAL . 1)
(VARIABLE-VALUE-CELL MSHASHSCRATCHSTRING . 41)
(VARIABLE-VALUE-CELL FILERDTBL . 14)
1
" "
RPLSTRING
NTHCHAR
" "
""
SUBSTRING
(URET3 MKN KT KNIL ENTER1)8PxP
NEXTHASHKEY BINARY

-.Z,<,<	 .",XBZ$,,<ZF
,\,~@(VARIABLE-VALUE-CELL NEXTHASHKEY . 9)
(VARIABLE-VALUE-CELL MSHASHFILE . 13)
NEXTHASHKEY
PUTHASHFILE
(CONS ASZ MKN ENTER0)h`P
STOREHASHVALUE BINARY
=0;-.0Z,<,<3$3,<`,<`$4,<Z`3B+-Z4,<Z,XZ5/D,<Z`-,+",<5ZD6,<`,<,<ZwXBpZp-,+3B+,<6Z: D ,\XCpQEp,\+-Z,<ZF:Z`,~B
(VALUE . 1)
(TABLE . 1)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 79)
(VARIABLE-VALUE-CELL FILERDTBL . 74)
(VARIABLE-VALUE-CELL MSHASHFILE . 92)
-1
SETFILEPTR
MSKEY
((NIL) . 0)
1000000
"( "
PRIN3
". "
PRIN4
" "
" "
")"
" "
" "
1000000
PUTHASHFILE
(BHC SKNLST SKLST FGFPTR KNIL ENTER3) 

)`p
GETHASHTABLE BINARY
-.,<`,<`$,<ZDXB`3B+
Z,<Z`DZ,<ZD,~Z,~$"(KEY . 1)
(TABLE . 1)
(VARIABLE-VALUE-CELL MSHASHFILE . 7)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 16)
(VARIABLE-VALUE-CELL FILERDTBL . 18)
MSKEY
GETHASHFILE
SETFILEPTR
READ
(KNIL ENTER2)8
ANALYZEFILES BINARY
n[k-.[,<`,<,<,<,<,<,<,<,<,<Zw{2B++Z-,+XBw}ZXBw{+~,<$,<w~ZD`2B+"@`+!Zw~,<?~"aZw~XB?~,~,<w~"^XBw~,<w~,<a$bZXBwZ`2B+,Zw2B+,,<b"c3B+,[wBb2B+M,<w~"cXBpZ,<@d +IZ,<,<e,<f,<@f`+BZZhXBZw~Z?2B+8Z8+8,<Zp-,+;Z+@Zp,<,<p,<$h/[pXBp+9/Zw~XB8Z,~3B+DZ+EZiXB`DiZ`3B+H j,~Z`,~,<w~,<w$j,<w~Z,<,<w~&kZ`-,Z[3B+Q,<"[wXBw}Zw|3B+W,<Zw|,XBw|,\QB+YZw},XBw|XBw|+Zw|/,~4 !
%R	u(S*("i(FILES . 1)
(EVENIFVALID . 1)
(VARIABLE-VALUE-CELL FILELST . 53)
(VARIABLE-VALUE-CELL LISPXHIST . 91)
(VARIABLE-VALUE-CELL RESETVARSLST . 96)
(VARIABLE-VALUE-CELL MSFILETABLE . 151)
NAMEFIELD
TERPRI
PRINT
MEMB
(NO VARIABLE-VALUE-CELL LOADDBFLG . 0)
LOADFROM
FILEDATES
GETPROP
LOADDB
GETD
FILEFNSLST
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
UPDATEFN
ERROR
RESETRESTORE
ERROR!
UPDATECONTAINS
STORETABLE
(CONSNL BHC CF KT SKLST SKNLST KNIL ENTER2)V[?5Q(>x( 0	pp(	T
OxD8;0, &HhhXH8
BUILDDB BINARY
+#)-.#Z`2B+ZXB`2B+,<%"%Z`2B+	,<`"& &XB`,<`,<'$&,<`,<,<,<,<Zw~2B++-,+XBpZXBw~+Zw~XBp[w~XBw~,<',<,<(,<w~((XBwZw3B+,<Zw,XBw~,\QB+Zw,XBwXBw~+
(NAME . 1)
(FILES . 1)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 6)
"No database file name"
ERROR
SETDB
MSFILES
CREATE
VERSION
BODY
PACKFILENAME
ANALYZEFILES
(KTBHCPCONSNLSKNLST KNIL ENTER2) ``pX
COPYDBA0006 BINARY
-.Z,<,<$[`,0B+Z`,~Z,<Z, Z D,<Z,<Z,<Z`,<[`HZ, Z D ,\XCpQEp,\,~	D(VAL . 1)
(VARIABLE-VALUE-CELL NEWFILE . 29)
(VARIABLE-VALUE-CELL OLDFILE . 21)
-1
SETFILEPTR
((NIL) . 0)
1000000
COPYBYTES
1000000
(FGFPTR IUNBOX ENTER1)	
COPYDB BINARY
-.Z3B+,<,<,<,<(+ZBXBZ3B+

,<,<,<,<(+,<,<,<ZHBXBZ
(VARIABLE-VALUE-CELL NEWFILE . 30)
(LEAVEOPEN . 1)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 12)
BODY
EXTENSION
HASHDATABASE
PACKFILENAME
INFILEP
VERSION
OUTFILEP
COPYDBA0006
COPYHASHFILE
(KNILENTERF)0
FLUSHDBA0007 BINARY
-. Z,<,<ZD,<ZF3B+	ZZ,XB+ZZ,XB	Z	,<,<ZF,~J(VARIABLE-VALUE-CELL VAL . 0)
(VARIABLE-VALUE-CELL ITEM . 22)
(VARIABLE-VALUE-CELL TABLE . 9)
(VARIABLE-VALUE-CELL KEYS . 16)
(VARIABLE-VALUE-CELL REMKEYS . 21)
(VARIABLE-VALUE-CELL LA . 25)
HFGETTABLE
STOREHASHVALUE
OLDHASHPUTTABLE
(CONSKNIL ENTERF)0
FLUSHDBA0008 BINARY
-. Z2B+ZXB3B+ZZ,XB+	ZZ,XBZ,<Z,<ZDD2B+Z
,<Z	,<ZFZ,<,<ZF,~@
(VARIABLE-VALUE-CELL ITEM . 34)
(VARIABLE-VALUE-CELL KEYS . 13)
(VARIABLE-VALUE-CELL REMKEYS . 18)
(VARIABLE-VALUE-CELL TABLE . 32)
(VARIABLE-VALUE-CELL LA . 37)
**BOGUSVALUE**
GETHASHTABLE
EQLST
STOREHASHVALUE
OLDHASHPUTTABLE
(CONS KNIL ENTERF)	p0P
FLUSHDB BINARY
O?M-.0?Z3B+>Z2B+>Z,<@B 0+>Z`-,+	+=ZXB[	[XB-,ZZ2BF+ZXBZXB[[ZXB,<ZFDGZ2B+Z3B+,<GZ,<,<GZDH,<ZDHDI,<ZFI[
ZXB-,ZZ2BF+;ZXBZXB[[ZXB,<ZJDGZ!2B+)Z"3B+;Z#,<,<G$J,<ZDKXB3B+4Z,<Z-DKZ.,<ZDLXB/,<Z(DH,<Z&DIXB5Z2,<DL2B+;,<GZ6,<Z)FI[`XB`+Z`,~,~Z,~%22L@`

IID	(VARIABLE-VALUE-CELL MSHASHFILENAME . 97)
(VARIABLE-VALUE-CELL MSREADONLYFLG . 6)
(VARIABLE-VALUE-CELL MSDATABASELST . 9)
(VARIABLE-VALUE-CELL REMKEYS . 103)
(VARIABLE-VALUE-CELL MSHASHFILE . 88)
(VARIABLE-VALUE-CELL FILERDTBL . 99)
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL X . 58)
(NIL VARIABLE-VALUE-CELL LA . 73)
(NIL VARIABLE-VALUE-CELL KEYS . 115)
(NIL VARIABLE-VALUE-CELL FILEV . 109)
(NIL VARIABLE-VALUE-CELL TABLE . 117)
HFTABLE
FLUSHDBA0007
OLDHASHMAPTABLE
**ALLKEYS**
GETHASHTABLE
LDIFFERENCE
UNION
STOREHASHVALUE
FLUSHDBA0008
MSKEY
GETHASHFILE
SETFILEPTR
READ
EQLST
(SKLST SKNLST KNIL ENTER0)Hx9h)#  hP0
EQLST BINARY
-.,<`,<,<Zw-,++ZXBpZpZ`,3B+	+
Z+[wXBw+,<`,<,<Zw-,++ZXBpZpZ`,3B++Z+[wXBw+
(L2 . 1)
(BHC KT URET3 FMEMB SKNLST KNIL ENTER2)phx
h(
0
HFGETARGS BINARY
-.Z3B+,<,<,<@`+ZZXBZZwZ87[ZZ1H+
(DEF . 1)
(DATA . 1)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 3)
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
ARG
ARGLIST
RPLACD
(KT CF KNIL ENTER3) PH
MSFILECHECK BINARY
F<D-.<Z`2B+=XB`+2B+Z,<,<Zw-,+?XB`,<,<,<,<,<,<Zw}2B++3-,+XBw~ZXBw}+ Zw}XBw~[w}XBw},<?,<,<@,<w}(@BAXBw3B+,,<,<w~"A,<[ZDB[,\3B+3ZwZw,XBw+3,<w~"A,<[&ZDB[XBw~3B+3Zp,XBp+Zp3B+7BBZC,,,<Zw3B+;BBZC,,DD+("VHD"H(FILES . 1)
(VARIABLE-VALUE-CELL FILELST . 11)
(VARIABLE-VALUE-CELL MSFILETABLE . 92)
MSFILES
FILEDATES
GETPROP
SORT
VERSION
BODY
PACKFILENAME
INFILEP
NAMEFIELD
GETTABLE
DREVERSE
DELETED
CHANGED
NCONC
(URET6 CONSNL CONS21 CONS COLLCT BHC SKNLST KNIL KT ENTER1)<;x073@0X5$((
x
MSFILESA0009 BINARY
-.[`Z,XB,~(DATE . 1)
(FILE . 1)
(VARIABLE-VALUE-CELL VAL . 6)
(CONS ENTER2)8
MSFILES BINARY

	-.@,~[Z,<ZDZB	,~(VARIABLE-VALUE-CELL MSFILETABLE . 6)
(NIL VARIABLE-VALUE-CELL VAL . 11)
MSFILESA0009
MAPTABLE
SORT
(ENTER0)
RESTOREDB BINARY
I<G-.<,<`">,<>,<,<?,<`(?B@2B+ @Z,~,<,<A$@XB` `,>;,>,<`,<A$B, ,^/3B+:,<`,<,<,<,<Zw~-,++3ZXBwZw,<[ZDB[XBp[w2B++2Zw2B+!,<"C,<C,<$D,<"CZXBw[w3B+.,<"C[w,<,<$D,<E,<$DZp3B+,,<E,<$D,<p,<$D+2,<F,<$D+2,<"C,<p,<$D,<F,<$D[w~XBw~+Zw3B+9,<"C,<"C,<G,<$D,<"CZw~/Z,~[

L

54vM5(FILE . 1)
(WRITEDATE . 1)
(OLDFILES . 1)
(VARIABLE-VALUE-CELL MSFILETABLE . 45)
AFTERCLOSE
VERSION
BODY
PACKFILENAME
INFILEP
SETDB
RESTORE
IWRITEDATE
GETFILEINFO
GETTABLE
TERPRI
"***WARNING:  The database has been updated.  Information about files
             that you currently have loaded has changed:"
PRIN1
PRIN2
" has been "
"replaced by "
"deleted"
" has been added"
"You might want to LOADFROM or REANALYZE those files."
(KT SKNLST BHC IUNBOX KNIL ENTER3)897`2/X+ 'X# p;x`P((0 @
SETDBA0010 BINARY
-.,<,<`,<`,<$,<Z,<,<Zw-,+

ZpZ2B+
 "+

[QD "+Zw,<,<p,<w[ZD[,/Zp,XBp[wXBw+/,,~@E(FILE . 1)
(VARIABLE-VALUE-CELL FILELST . 9)
(VARIABLE-VALUE-CELL MSFILETABLE . 29)
RESTOREDB
IWRITEDATE
GETFILEINFO
HFGETTABLE
(ALIST4 COLLCT BHC CONSS1 SKNLST KNIL ENTER1)`0X	
SETDBA0011 BINARY
-.ZXBZXB,~(F . 1)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 4)
(VARIABLE-VALUE-CELL MSHASHFILE . 6)
(KNIL ENTER1)(
SETDB BINARY
aJ^-.8JZ`2BN7Z,<,<Z3B+BO3B+Z`3BO+	 PZBPXBpZ`2B+Zp3B+',<,<`$QXB	+'3B+',<Q,<,<R,<R(SXB`Zw3B+Z2B+7ZXB`+,<S"TZ`2BT+ ZXB`ZXB,<`,<U$U+!,<`DQXB,<VDVXB3B+&Z",,XB$+'Z" XB%Z!3B+FZp2B+3Z,<Zp-,+-+3Zp,<Zp,<[wZDW/[pXBp++/Z'BW,<,<XZX,<,<Y,<Y,<Z,<Z,<[Z[R\Z3BWXBZ`3B\+>2B+?Z+?ZXBZ`3B+EZw2B+EZ2B+E,<]"TZ;+Zp3B+,<]"TZp+]	8Hv,

%?S($p`(FILE . 1)
(MODE . 1)
(VARIABLE-VALUE-CELL MSHASHFILE . 116)
(VARIABLE-VALUE-CELL MSREADONLYFLG . 127)
(VARIABLE-VALUE-CELL MSDBEMPTY . 59)
(VARIABLE-VALUE-CELL NEXTHASHKEY . 78)
(VARIABLE-VALUE-CELL MSHFNS . 85)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 139)
(VARIABLE-VALUE-CELL MSDATABASELST . 134)
RESTORE
HASHFILEP
NOFLUSH
FLUSHDB
CLOSEHASHFILE
OPENHASHFILE
BODY
EXTENSION
HASHDATABASE
PACKFILENAME
((ERASE) . 0)
%.
CREATE
2NUMBERS
CREATEHASHFILE
NEXTHASHKEY
GETHASHFILE
MOVD
HASHFILENAME
STATUS
SETDBA0010
CLOSEALL
NO
EOF
NILL
AFTER
SETDBA0011
WHENCLOSE
INPUT
((WHO CALLS FUM) . 0)
((ERASE) . 0)
(URET2 BHC SKNLST ASZ MKN IUNBOX KT KNIL ENTER2)J	G4 Px`X?`

@	D0@`*$```8
UPDATECONTAINS BINARY
4+2-.+,<-ZD-,<@. ,~Zw,<8[`ZD/XB`ZwZ82B+,<`,<8$0XB3B+,<0"1,<`Zp-,++'Zp,<ZpZw~Z8,2B+%,<p[`[D/,<,<,<Zw2B++$-,+XBpZXBw+ZwXBp[wXBw,<p,<`,<w},<w~[`ZD/D1F2+Zw//[pXBp+/Zw,<8,<`,<8&2Z,~@B'

 h@(FILE . 1)
(NEWFNS . 1)
(KEEPFLG . 1)
(VARIABLE-VALUE-CELL MSDATABASELST . 4)
CONTAINS
ASSOC
(0 . 1)
(NIL VARIABLE-VALUE-CELL UPDATEFNS . 23)
NIL
GETTABLE
LDIFFERENCE
((ERASE IN UPDATEFNS) . 0)
%.
REMOVE
STORETABLE
(BHCFMEMB SKNLST KNIL ENTER3)&X@0+HH

UPDATEDB BINARY
_,V-. (,Z2B+,<0"1Z,<@1 ,~Z,<,<3,<3,<@4`+$ZZ5XBZ,,<Z,<,<,<,<,<,<,<6Zw|,Z,XB,<w},<6,<w|,<6$7,<,<7,<8,<8,<9,<9,<:0:XBw},<,<;,<;&<B<D=ZXBw}Z=6@Z>2B>+$,<>,<,<?,<w|(:XBw~,<,<,<?Zw{,<,<w|,<@$@XBw,\2B+++<,<A"AZp3B+<0B+:,<"B,<w,<B$C,<,<$C,<D,<$C,<"B,<D,<$C,<"B,<"BZXBp+< p.",XBp+&Zw/Zw{Z82B+A,<"EXBw~,<E F,Z,XBBZw{Z8-,+HXBwZZw{XB8ZFZw~7[ZZ1H+M2D+I[,<Zw{Z8-,3B7,DGZw{XB8,<,<Zw-,+ZZpZ2B+X "+Y[QD "+qZw,<Zwz,<8,<w"G,<,<,<Zw~-,+`+iZXBpZw,<,<w"G,\2B+hZp2B+gZXBw+i[w~XBw~+^Zw/2B+l7Z/3B+pZwZp,XBp[wXBw+S/Zw{XB8BHXBp p1b+,<"B,<p,<$C,<H,<$C,<I,<,<&I,<I,<JZwz,<8,<,<,<,JZw{Z83B+,<K"K2B+,<L"L,<w},<w|$K,<w},<M$M+
,<w},<w|,<&N,<w},<$FZw{,<8,<,<Zw2B++-,+XBpZXBw+ZwXBp[wXBw,<p"GXBpBN,<pZ,<,<&O+-XBwZXBw+/ZwXBw[wXBwZw~,<,<w"G,\2B+4ZXBp+4+(Zp/3B+AZ,<,<P,<>,<,<?,<w}(:,<,<P,FQ3BP+>+A,<p"N,<pZ,<,<&O[w~XBw~+"Zw/Zw2B+FZp,<Zw{,<8,<,<,<,<Z"XBpZw~-,+L+`ZXBw p,>+,> w} ,^/3b+R+`,<"B,<"B,<w,<$Q,<w"RBRXBw3B+[Zw|,XBw|+\,<w,<$S[w~XBw~ p.",XBp+JZw~/ F,<w},<>,<,<?,<w{(:DSXBw}3B+,<w},<>$7,<,<>,<,<?,<w{(:,<,<,<,<w,<@$@XBp3B+x w~,>+,>,<p,<>$7, ,^/3"+x,<p"T2B+x+x+lZw/,<wZp-,+|+Zp,<,<p,<>$7,<,<>,<,<?,<w~(:,<,<,<,<w,<@$@XBp3B+ w~,>+,>,<p,<>$7, ,^/3"+,<p"T2B+++Zw/[pXBp+z/Zw3B+! p,>+,> w ,^/3b+!,<"B p,>+,> w ,^//,,<,<$C,<T,<$C,<"BZw}/Zw~XB8Z,~3B+&Z+'Z1XB`DUZ`3B+* U,~Z`,~H5 osrzce,kTB0@P(IEn.D

@Ph@$Dj^B!K" %,Z!J0+A
a
PP&(ADDFILES . 1)
(DELETEFILES . 1)
(ADDONLY . 1)
(NOGCFLG . 1)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 27)
(VARIABLE-VALUE-CELL LISPXHIST . 8)
(VARIABLE-VALUE-CELL RESETVARSLST . 135)
(VARIABLE-VALUE-CELL MSFILETABLE . 383)
(VARIABLE-VALUE-CELL DWIMWAIT . 365)
"No current hash-database file"
ERROR
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
((PROGN (CLOSEF? (CAR OLDVALUE)) (AND RESETSTATE (DELFILE (CAR OLDVALUE)))) . 0)
DIRECTORY
FILENAMEFIELD
NAME
NEWHASHDATABASE
EXTENSION
SCRATCH
TEMPORARY
S
PACKFILENAME
OUTPUT
NEW
OPENFILE
CLOSEF
RPLACA
TENEX
TOPS20
VERSION
BODY
1
OLDEST
FULLNAME
2000
DISMISS
TERPRI
AUTHOR
GETFILEINFO
PRIN1
" seems to be updating the database right now."
"I'm waiting for him to finish."
MSFILECHECK
((PROGN (SETDB (PACKFILENAME (QUOTE VERSION) NIL (QUOTE BODY) OLDVALUE))) . 0)
SETDB
CHANGED
NCONC
NAMEFIELD
LENGTH
" files to be updated:"
5
TAB
0
PRINTPARA
COPYFILE
GETD
(((SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) COPYFILE) . 0)
FILESLOAD
BOTH
OPENHASHFILE
COPYDB
UPDATECONTAINS
STORETABLE
DELETED
Y
"no longer exists.  Shall I remove it from the database"
ASKUSER
PRINT
FINDFILE
LOADDB
ANALYZEFILES
RENAMEFILE
DELFILE
" files still to be updated."
RESETRESTORE
ERROR!
(IUNBOX LIST2 COLLCT SKNLST SKLST SKI BHC MKN KT ASZ KL20FLG CONS ALIST2 CONSNL CF KNIL ENTER4)
8H8L0#`
P
`$0"x"uQH60r8
x~8yv4(/Jh(D@0QX8%&$X!` 8 wxmHjhcJIE9h3H)" !x `
pV
@P	PGx9X&X#x
(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 MSKEY FORWARDTABLE MSVAL NEXTHASHKEY STOREHASHVALUE 
GETHASHTABLE) (VARS (MSHASHSCRATCHSTRING (CONCAT MACSCRATCHSTRING))) (GLOBALVARS MSHASHSCRATCHSTRING) 
(ADDVARS (MSHASHFILE) (MSHASHFILENAME) (MSREADONLYFLG) (NEXTHASHKEY) (MSFILETABLE)) (DECLARE: 
EVAL@COMPILE DONTCOPY (FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) NOBOX) (PROP MACRO BOGUSVAL 
BOGUSVALP)) (FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) HASH) (LOCALVARS . T) (FNS ANALYZEFILES
 BUILDDB COPYDB FLUSHDB EQLST HFGETARGS MSFILECHECK MSFILES RESTOREDB SETDB UPDATECONTAINS UPDATEDB) (
ADDVARS (ANALYZEUSERFNS HFGETARGS))))
(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 (CONCAT MACSCRATCHSTRING))
(ADDTOVAR MSHASHFILE)
(ADDTOVAR MSHASHFILENAME)
(ADDTOVAR MSREADONLYFLG)
(ADDTOVAR NEXTHASHKEY)
(ADDTOVAR MSFILETABLE)
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) HASH)
(ADDTOVAR ANALYZEUSERFNS HFGETARGS)
NIL