Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/hash.com
There are no other files named hash.com in the archive.
(FILECREATED "28-FEB-82 23:01:32" ("compiled on " <LISPUSERS>HASH.;26) (2 . 2) brecompiled explicitly:
 HASHFILESPLST1 in "INTERLISP-MAXC " dated "28-FEB-82 13:51:55")
(FILECREATED "18-SEP-79 09:21:49" <LISPUSERS>HASH.;26 57643 changes to: COPYHASHFILE previous date: 
"18-SEP-79 08:26:13" <LISPUSERS>HASH.;25)

HASHFILEBLOCK BINARY
M]-.M-.xN~pUE+-
"%Vf$qA	h

*,<^Zw[d_,<,<`,<,<,<,<,<^,<Zw}3B+1B+0,5" w0"++0 w1b++0Zw|,>D,> w.Bx,^/XBpZ,XBwZw~3B+$,<Zw~,XBw~,\QB+&Zw,XBw~XBw~ w,>D,>^",>D,>Zp"D ,^/(B,XBw},.Bx,^/,XBw+Zw~/,~Z/" 
Zw,<Zw, ,\&$."$&Q"A`JZ F=j:+Zw,<Zw, ,\&$."$&Q"A`Z9 Z2/$F=dC+(,F,~-.
`Z,<@a ,~Z,<,<c,<c,<@d`+)ZZeXB,<,<,<,<Z,<,<,<,<,6XBw~3B+WXBQ+aZV,<,<f,	hXBW3B+`,<fZY[,,<,<,ZJ,XB^+aZ+'Z[,<,

XBw,<,83B+gZg+hZg,<Zw|Z82B+mZa[,<,<h,<Zj,<,<i,%,<[w},< E,>D,>Zw|,Bx,^/,,<,+XBw~[,Z,XBxZm[,XBpZw}Z83B+,<,6+ZpXBw~Zw}Z83B+ZpZw~3B+ +Zp0B+Z"XBw~3B+ +0B+

Z"XBw~3B+ +0B+ ,<ij3B+ Zybk,< w~ ,\QD,<,<w~,( ,\XDXBZ XD,<wk,< w~ ,\QD,<,<w~,( ,\XDXBwZw XD,<wZ,<,<w~Zw{,<8Zw~0B7Z,<,0Zw[/Zw~XB8Z,~3B++Z+,ZlXB`dlZ`3B+/m,~Z`,~-.
nZG,<@a ,~Zy,<,<o,<c,<@d`+#ZZeXB,<p,< w1b+@,<pXBp w/",XBw+:Zp/Z [,<Zw~Z8[,<Zw~,<8,<,<,<,<Zw~2B+I+ -,+LXBwZXBw~+NZw~XBw[w~XBw~Z1,<@a + Z4,<,<q,<c,<@d`+ZZeXB,<rZw|,<?,<?}_Zw|XB?br,ZQ,XB[Zw|,<?@s +Z E."XBZ_,<[a ,\."XB`Z`7B+g:@7Z2B+i+,DZw|XB8ZwZ83B+r,<Zw|,<8ZA,<Zw},<8 ",Zw|XB8+Z83B+Zw|Z?}, Zu D,<Zw|,<?},<8vZw|,<?}wZw|,<?},<?},<8ZwzZ?}, Zx DhxZw|,<?}y,\Zw|XB8Zd"F,>D,>^",>D,>Zb$Bx,^/.Bx,^/ &$$&Q$A`."(D
GZz D,<Zw|,<8Zw~,<8,<{,Z."XBZ`2B+dZ`,~Zw|XB8Z,~3B+Z+ZlXB`dlZ`3B+m,~Z`,~+GZw~/Zw~XB8Z,~3B+%Z+&ZlXB`dlZ`3B+)m,~Z`,~ Zw-,+0Zp2B+0[wZXBpZwXBwZN,<@a +,Z\,<,<{,<c,<@d`+%ZZeXB@|+#Zw~Z?~2B+=Z,~,<?,6Zw~XB?,<},<?~,<~,<~bbZw~XB?~,Z3,XBD,<p,<ZQD,<Zw~ ? ,\QDZw~Z?~QD,<Zw~,<?~, ,\XD,<Zw~,<?,( ,\XD,<Zw~Z?0B+W^"+X^" ,\XDXBn,<^ZY[d_XB`Z`,<Zw~ ? ,\dF,<`,<^,<Zw}Z?-,+f ?1b+fZw}Z?+jZw} ?A"1B+jZ"+jZ",<,AXB`,<Zw|Z8-,+v 81b+vZw| 8,>D,> ` ,^/&.",+vZ"XB`,< `.",,<,,\,<,	"ZZ XDZw~Z?0B+Z-,+,<,<,<,<,<Z"XBp p,>D,> w~ ,^/3b+	+ZXBwZw3B+,<Zw,XBw~,\QB+Zw,XBwXBw~ p.",XBp+Zw~/XBZw~ ?A"1B+ZZ7@7Zb2B+,<XBZw~,<?~Z{,<Zf	Zw~,<?~,<
,<X
Z,~Zw~XB8Z,~3B+'Z+(ZlXB`dlZ`3B++m,~Z`,~+,.,~-.Z",<,<,<,<,6XB/Z2[,<,<`

Z3Z(B	,>D,> `GBx,^/,+<^"+<,  E G+ + + ,,~Z5Z,,>D,> p.",GBx,^/  H,G"7."7H.$ &&4HJ0&+K,+ I,>D,>ZAZ,+S^"+T, E E

+<+<+ABx,^/,,<,<<w,>D,>ZP[,,^/3b+nZw,,<Z[ZZ,\Q"Z&D79cZ",XBwZw3B+l"w,>D,>Bw.Bx,^/,+mZw,<,+Zw3B+Zw,,<Z`ZZ,\Q"D5vZ",7.XBp3B+p,>D,>>w^,^//,>D,>w.,^/2"+Zp,.",<ZqZ ,\Q"`d9Z",XBw+ZZw+,,~-.
GZ D+Z2[,1B+H0B+LZDZ,<Z"I ,\ D,~0B+\ZHZ,<ZI"K(B
,>D,>ZO"K,>D,>^",>D,>Z$Bx,^/.Bx,^/GBx,^/ ,\ D,~0B+lZ,<ZQ"K(B
,>D,>Z^"K,>D,>^",>D,>ZU$Bx,^/.Bx,^/GBx,^/ ,\ D,<Zd,~0B+uZM[,<Z`"I Z DdvZm[,<Zkd,~0B+ZrZZ,<Zo"I ,\ DZvZ[,<Zx,>D,>[d.Bx,^/  ,\ DZzZ,~,<",~@+Zw~,<8,<,<,<,6XB3B+Z2B+ZXBZ-,+Z
,<Z[,\2B+ZXBZw~,<8,<Zf	ZZXDZ\$XDZ,~+,,~-.Z,<,<,<,<,6[,~,<p,<,<,<,6+,&,~-.Z,<,<,<,<,6XB'Z`2B+.Z*[,~2Bi+=Z,[,0B+2Z,~0B+4Z,~0B+6Z,~0B+8Z,~0B+:Z,~0B+<Z,~,~2B+@Z/[,~2B+EZ>,<,

,<,,,~2B+KZA,<,

,<,,,~2B+SZF,<,

,<,p,,,<Zw,,,+,<,<,B ,~,W,~-. ZL,<,<,<,<,6XBXZ-,+Z\ZQD+a,<p,<^XB]ZaZ[XDZaZ[QDZc,~,<,<Zw[3B+lZwZXBwZwZXBp+Zw,<Zw~[,<,

 ,\QD 2B+sZ+ZwZQDZw,<Zw~[Z,<Zw~[[d_XBw ,\XDZw,<Zw,<[w~/" ,\." ,\QDZw E."XBpZp7B+:@7Z3B+ZwZpXDZp"F,>D,>^",>D,>Zw$Bx,^/.Bx,^/ &$$&Q$A`."(D
GZ!+D+Zp,<Zw~[,\3B+Zp."XBp+Zw,<Zw~[[+,\QD+3B+!+uZwZQD+r,%,~-."Zc3B+0Z#,<,<`#3B+6Z&,<,<`,,,\XD,,~,<[,<`,<`,<,<,<,6,<,<`$[,,~,<%Zw~3B+DZw~(B{ZA"."0B+<+G0B+WZw~Z,2B+C,<w~&Z>,2B+C+WXBw~+GZ+w+	-,+zXBwZXBw+|ZwXBw[wXBw p,>D,>Zw2B)+^"+2B)+^"+2B*+^"+2B*+^"+^"GBx,^/,XBp+uZp/XB`,<`,<`Zi,< `A"

1B+7Z,<,<,<,6,<,<`,,~-.+Z,,<@- P,~ZwZ8(B{ZA"."0B

+ZwZ8+%0B+#^",>D,>ZwZ8.Bx,^/[+%Zw,<8,<2j,1h?1h+) " XBBZA F++Zw,<8,<3j "."$L=h,# Z3 DXB`Z`,<,<^Z

[d_,>D,> `A".Bx,^/Z,XB,<Z2[d_XB~[ ,\ && F ,XB`XB`Z`,<[: ,\ && F ,XB`0B+GZ"XB`ZA,<Z`, ,\."XB| 0B+lZw 8A"1B+kZ`3B+QXBKZG Z4 D,<,< ',>D,> w.Bx,^/." Z4 DXBp,0b	+eZQ,<,<w,2Z\,< w ,\XDZQ,< w ,\dFZ+eZ/2B+g+!,<,!2B+kZa\$ D+!Z,~Zi 2BG+qZ`2B+ZlXB`+Z^,<Zp"F ,\&$."$&Q"A`Z( ZT/$2F+}
2F+}=dz7 3B+Zw 8A"0B+Z+,DXB`Zw 8A"1B+Zr\$ DZ9[0B+Z"I,,<Z[d $dI+Zw 8A"1B+,<,!2B++!Z`,~ `,>D,> `.Bx,^/,>D,>[q ,^/& ,XB`Z`3B++GZw 8A"0B+!+kZw 8A"1B+%,<5"ZwZ8(B{ZA"."0B

+*ZwZ8+20B+0^",>D,>ZwZ8.Bx,^/[+2Zw,<8,<2j,1h?1h+7 " XBwZv F+9Zw,<8,<3j "."$L=h9# Z5 D,A",,<,

Q+,B,~-.6Z,<,<,<,<,6XBCZ0,<@a ,~ZE,<,<7,<c,<@d`+	ZZeXB,<p,<pZF,<,

,<Zw~,<87,,^"2"7Z,<,<,<,<Zw~-,+[+	ZXBwZF,<@a"+	ZI,<,<8,<c,<@d`+	ZZeXB,<9Zw|,<?ZP[dZw|XB8br,Z^,XBiZw|,<8@9 +	
GZ; D,<Zw{Z?~3B+	,D+	Z,< ",Zx."XB		Z`2B+rZ`,~Zw|XB8Z,~3B+	Z+	ZlXB`dlZ`3B+	m,~Z`,~[w~XBw~+YZw/Zw~XB8Z,~3B+	Z+	ZlXB`dlZ`3B+	!m,~Z`,~Zw0B+	%,<<Ze[dj,<<,<w},,<,<w}r,Zj,XB	)Z=,< w~,>D,>,<w,
^, ,^//,,<Zw},>D,> w},>D,> w~" ,^/(B,>D,> w~ ,^/(B.Bx,^/,<^",>D,> w} ,^/(B/",,<,<,<,<Zw},5"	FZ"XBw}^",>D,> w} ,^/(B,XBwZw},< w} ,\dD w~0"+	P+	f w~,>D,> w ,^//,XBpZw},<,<w{,\, ,\XD,<Zw~Zw2B+	]Zp+	eZw},>D,> w~.Bx,^/,< w| ,\dL w~/",XBw~+	Z/+	NZw/,~@=+
]Zw~Z?2B+	mZ,~Z83B+	o2B+	~,<?,<,<,<,6XB	$3B+	zZ	r[2B+	vZ	s,~Z	u[b,<,<,	h,~Zw~,<?Zw~XB?ZZw~XB8+

3Bf+
2B+

,<?,<,<,<,6XB	v3B+
+	uZw~,<?,<f,<?Zw~XB?ZfZw~XB8+

,<,<,B ,<p,<Zw~Z?QDZw~Z8QD,<Zw~,<?, ,\XDXB
,<^Z
[d_XB`Z`"F,XB`1B+
$1B+
$1B+
$1B+
$1B+
$0B+
 +
$Zw~,<?Zw~,<?,<?jZ
,< ` ,\QDZ
$,<,<`,( ,\XDZ
',<Z`0B+
.^"+
.^" ,\XDZ
*,<Zw~,<?@,&"
 ,\QDZ
0 XDZ
5[2B+
PZ`0B+
PZ-,+
P,<,<,<,<,<Z"XBp p,>D,> w~ ,^/3b+
D+
NZXBwZw3B+
J,<Zw,XBw~,\QB+
LZw,XBwXBw~ p.",XBp+
?Zw~/XB
: `A"1B+
WZZ7@7Zb2B+
W,<XBsZw~,<?Z
6,<ZAf	Zw~,<?,<
,<X
+	u+,<,<^ w(B,XBw0B+
b+
e p.",XBp+
_Zp+,<,<Z3B+
s 5,>D,>Z	
"K ,^/2b+
sZ
j,< 
h ,\dKZ
m"K ZA D+ 
n,>D,>Z{.Bx,^/ ZA DXBw,1b	+
{Z+ZZ
p,< 
s ,\dKZ
|,<Z
u ZB DXBw, ,\dKZ,< w ,\XDZp+Z
X[,<^"
,>D,>Z,< w."@ ,\QD $Bx,^/ ZB Ddv,<Z[dC+,,~-.D,<`,<`Z,<,<,<,<,6,<Z`3B+Z"+Z",<,Z`,~-.EZ[,0B+)Z
,<  ,\dIZ,~0B+EZF,<@F +EZ&(B{ZA"."0B

+1Z,+80B+6^",>D,>Z0.Bx,^/[+8Z3,<,<2j,1h?1h+= " XB
}Z5 F+?Z6,<,<3j,
fXB`2B+BZ,~Z,<,<,<Z,~,~0B+e@H+dZ=,<,<Z
WfI,.",XB;,0b?+OZL0B+R,<JZH,<,<j,
fXB`2B+UZ,~ZP,<Z
O,<,<ZIhJ,<ZB,<Z`, ,\&$."$&Q"A` ,\Z/&F[2B+_ &F Z,~,~0B+tZ"[,<,<KvZ%,<Zf[, ,\dIZU,<Zi[,<ZWfLZl-,+s,<{Zm[dMZ,~0B+

	Zh,<Zp-,ZZ-,+|,<NZvdj,+|, ,\dIZu,>D,>[Y.Bx,^/,<[z-,+

,<NZ

dj,+

, ,\ DZ,~0B+

(Z~"I ZO D,<,<Z

3B+

%Z

,<Z

"+

Z

"I ZO D,+

, ,\dI ,,<Zr[dXBpZp,< 8 ,\dJZp,<Z

 ,\dJ w1B+

&,<wZ

[d $dI+

&,<Pj/Z,~,<P",~,

+,~-.QZ\,<@a ,~Z	*,<,<R,<c,<@d`+

JZZeXB,<Z

",<,<,<,<,6XBp3B+

:XB

4+

DZ

9,<,<,	hXB

:3B+

C,<fZ

<[,,<,<,Z

.,XB

A+

DZ+

HZ

>,<,

,<Z

D,<,

vZ

F/Zw~XB8Z,~3B+

LZ+

MZlXB`dlZ`3B+

Pm,~Z`,~,<,<Z

,<,,3bM+

X,<w,A+

[Z

R,<Z

G[d_[,XBw,<^Z

Y[d_XBp,<,<w~Zw,>D,> w~.Bx,^/"D,,<,<w~,<,	"Z

X,<Z

\,<,

vZ

g[,<Z

fd

Z

hZ(B	,>D,> 

jGBx,^/,+

q^"+

r,  E G+ + + Z+-.RZ

,,<@a ,~Z

B,<,<S,<c,<@d`++

k[0B+ ,\QDXB

[0B+~,\QDXBZw~2B+

w,<@a +

z,<,<T,<c,<@d`+~Zw|XB8br,Z

Z[."XB`ZD,>Z&$$&Q$A`."(D
GZWWD,<,D,<Z+XD,<^"ZZX,D,<Z~Z?~,<Zw~/?~,>D,>ZZ."XBZ`2B+Zp1B+,1B+,0B+-^"',+1B+/0B+0\+0B+5^"',,<^"',,+Z+Zp2B+8Z"+2B+:Z"+2B+<Z"+2B+>Z"+2B+@Z"+2B+BZ"+,<]dj+$ 3Lf006$ t"?x`<$0(
Xy!P@$I!U	&`#

`F##:@@LT("M*$ $ 0 L@-	&U"|@P$b$)$@a@0\	`L	@S!S`@
2 PDHI$

 d!
de$@J	@@@	F

f3F(2CI"@!2 

)DD@PQQ@H'! 	4 MnhA@	(b

B0@!

BA!0V @*Bc4AjJ"jPH
d@&iA!H 4
@((tLxHU,Pd`@@.y!Q Q
D#(
 &N B1H@ &"(PP

HAEqIUJ3)S
4@S*D@(!Y$0 @-@DPCA
Hf33(HASHFILEBLOCK#0 . 1)
(VARIABLE-VALUE-CELL STRINGLENGTH . 2972)
(VARIABLE-VALUE-CELL INDEXPTR . 2935)
(VARIABLE-VALUE-CELL LISPXHIST . 3389)
(VARIABLE-VALUE-CELL RESETVARSLST . 3416)
(VARIABLE-VALUE-CELL HASHFILECHCONLST . 2988)
(VARIABLE-VALUE-CELL HASHFILERDTBL . 3038)
(VARIABLE-VALUE-CELL SYSHASHFILEARRAY . 2739)
(VARIABLE-VALUE-CELL HASHFILE . 3534)
(VARIABLE-VALUE-CELL SLOT . 3629)
(VARIABLE-VALUE-CELL PAGE . 3601)
(VARIABLE-VALUE-CELL SYSHASHFILE . 1673)
(VARIABLE-VALUE-CELL HASHFILESPLST . 1481)
(VARIABLE-VALUE-CELL REPLACE . 2766)
(VARIABLE-VALUE-CELL VAL . 3107)
(VARIABLE-VALUE-CELL REALPAGE# . 3291)
COPYHASHFILE
CREATEHASHFILE
DELPAGE
GETHASHFILE
GETPAGE
GETPNAME
HASHAFTERCLOSE
HASHFILENAME
HASHFILEP
HASHFILEPROP
HASHFILESPLST
HASHFILESPLST1
HASHSTATUS
LOOKUPHASHFILE
MAPHASHFILE
OPENHASHFILE
PUTHASHFILE
REHASHFILE
0
(NIL)
(LINKED-FN-CALL . MAPPAGE)
511
*COPYHASHFILE*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL HASHFILE . 0)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
INPUT
CLOSEF?
((AND RESETSTATE (DELFILE (CLOSEF? OLDVALUE))) . 0)
((PROGN (CLOSEF? OLDVALUE) (AND RESETSTATE (DELFILE OLDVALUE))) . 0)
(NIL)
(LINKED-FN-CALL . NAMEFIELD)
VALUETYPE
"A copying function is required for SYMBOLTABLE files"
(NIL)
(LINKED-FN-CALL . ERROR)
(NIL)
(LINKED-FN-CALL . COPYARRAY)
ERROR
(NIL)
(LINKED-FN-CALL . RESETRESTORE)
(NIL)
(LINKED-FN-CALL . ERROR!)
*COPYHASHPAGES*
((UNBOXED-NUM . 2) VARIABLE-VALUE-CELL HASHFILE . 0)
((DUMMY) . 0)
4
(NIL)
(LINKED-FN-CALL . ADDMAPBUFFER)
((DUMMY) . 0)
((PROGN (UNLOCKMAP OLDVALUE)) . 0)
(NIL)
(LINKED-FN-CALL . LOCKMAP)
(VARIABLE-VALUE-CELL PAGE . 0)
NIL
(NIL VARIABLE-VALUE-CELL SLOT . 0)
NIL
1000000
(NIL)
(LINKED-FN-CALL . SETFILEPTR)
(NIL)
(LINKED-FN-CALL . SKREAD)
1000000
(NIL)
(LINKED-FN-CALL . COPYBYTES)
(NIL)
(LINKED-FN-CALL . TERPRI)
""
1
((DUMMY) . 0)
(NIL VARIABLE-VALUE-CELL HASHFILE . 0)
NIL
NIL
((AND RESETSTATE (PROGN (CLOSEF? OLDVALUE) (DELFILE OLDVALUE))) . 0)
OUTPUT
NEW
(NIL)
(LINKED-FN-CALL . OPENFILE)
(NIL)
(LINKED-FN-CALL . CLOSEF)
(NIL)
(LINKED-FN-CALL . IOFILE)
2
(NIL)
(LINKED-FN-CALL . ARRAY)
BOTH
(NIL)
(LINKED-FN-CALL . OPNJFN)
9
128
HASHFILERDTBL
(NIL)
(LINKED-FN-CALL . READTABLEP)
ORIG
(NIL)
(LINKED-FN-CALL . COPYREADTABLE)
(NIL)
(LINKED-FN-CALL . PUTHASH)
AFTER
(NIL)
(LINKED-FN-CALL . WHENCLOSE)
*DELPAGE*
((UNBOXED-NUM . 2) VARIABLE-VALUE-CELL HASHFILE . 0)
(NIL)
(LINKED-FN-CALL . CLEARMAP)
*GETHASHFILE*
((UNBOXED-NUM . 2) VARIABLE-VALUE-CELL HASHFILE . 0)
*GETPAGE*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL HASHFILE . 0)
*GETPNAME*
((UNBOXED-NUM . 2) VARIABLE-VALUE-CELL HASHFILE . 0)
5
1000000
(NIL)
(LINKED-FN-CALL . MAPWORD)
"Invalid name pointer for symbol"
""
""
(NIL)
(LINKED-FN-CALL . READ)
1000000
GETVALUE
HELP
(NIL VARIABLE-VALUE-CELL HASHFILE . 0)
*HASHFILENAME*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL HASHFILE . 0)
*HASHFILEPROP*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL HASHFILE . 0)
NAME
NUMBER
STRING
SMALLEXPR
EXPR
SYMBOLTABLE
2NUMBERS
(NIL)
(LINKED-FN-CALL . SHOULDNT)
ACCESS
#ENTRIES
ITEMLENGTH
SPACE
27
ERRORX
*HASHFILESPLST*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL HASHFILE . 0)
""
*HASHSTATUS*
((UNBOXED-NUM . 2) VARIABLE-VALUE-CELL HASHFILE . 0)
PERMSTATUS
(NIL)
(LINKED-FN-CALL . APPLY)
(NIL)
(LINKED-FN-CALL . PERMSTATUS)
"Not a hashfile"
(NIL)
(LINKED-FN-CALL . OPENP)
"Wrong value type"
"Not open for write"
*LOOKUPHASHFILE*
((UNBOXED-NUM . 3) VARIABLE-VALUE-CELL HASHFILE . 0)
INSERT
REPLACE
DELETE
RETRIEVE
*LOOKUPHASHFILE1*
((UNBOXED-NUM . 2) VARIABLE-VALUE-CELL VAL . 0)
((UNBOXED-NUM . 3) VARIABLE-VALUE-CELL HASHFILE . 0)
1000000
(VARIABLE-VALUE-CELL INDEXPTR . 0)
(NIL VARIABLE-VALUE-CELL STRINGLENGTH . 0)
(NIL VARIABLE-VALUE-CELL PAGE . 0)
(NIL VARIABLE-VALUE-CELL REALPAGE# . 0)
NIL
NIL
NIL
(NIL VARIABLE-VALUE-CELL SLOT . 0)
NIL
NIL
NIL
"not atom or string"
"too long"
1000000
1000000
1000000
"Attempt to Rehash during Rehashing!!"
1000000
*MAPHASHFILE*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL HASHFILE . 0)
((DUMMY) . 0)
(NIL)
(LINKED-FN-CALL . NARGS)
((DUMMY) . 0)
((PROGN (UNLOCKMAP OLDVALUE)) . 0)
(VARIABLE-VALUE-CELL PAGE . 0)
NIL
(NIL VARIABLE-VALUE-CELL SLOT . 0)
NIL
""
"Hashfile full -- can't expand!"
UNLOCKMAP
1000000
(NIL VARIABLE-VALUE-CELL HASHFILE . 0)
NIL
NIL
OLD
"not a hashfile!"
(NIL)
(LINKED-FN-CALL . GETEOFPTR)
1000000
1000000
1000000
1000000
(NIL)
(LINKED-FN-CALL . PRIN1)
*PUTHASHFILE*
((UNBOXED-NUM . 3) VARIABLE-VALUE-CELL HASHFILE . 0)
*PUTVALUE*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL REPLACE . 0)
1000000
(VARIABLE-VALUE-CELL INDEXPTR . 0)
(NIL VARIABLE-VALUE-CELL STRINGLENGTH . 0)
NIL
(NIL VARIABLE-VALUE-CELL STRINGLENGTH . 0)
NIL
(NIL)
(LINKED-FN-CALL . NCHARS)
"{in PUTHASHFILE/LOOKUPHASHFILE} bad value length: "
(NIL)
(LINKED-FN-CALL . DCHCON)
-1
(NIL)
(LINKED-FN-CALL . PRIN4)
(NIL)
(LINKED-FN-CALL . SPACES)
"Bad value for 2NUMBERS hashfile"
"Bad value for 2NUMBERS hashfile"
1000000
1000000
"Nothing to be named"
PUTVALUE
*REHASHFILE*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL HASHFILE . 0)
((DUMMY) . 0)
*REHASHPAGES*
((UNBOXED-NUM . 2) VARIABLE-VALUE-CELL HASHFILE . 0)
((DUMMY) . 0)
((DUMMY) . 0)
((PROGN (UNLOCKMAP OLDVALUE)) . 0)
(VARIABLE-VALUE-CELL PAGE . 0)
NIL
(NIL VARIABLE-VALUE-CELL SLOT . 0)
NIL
""
33
1000000
1000000
(VARIABLE-VALUE-CELL PAGE . 0)
NIL
(NIL VARIABLE-VALUE-CELL SLOT . 0)
NIL
((NIL) . 0)
0.0
(NIL)
(LINKED-FN-CALL . CONCAT)
"Unrecognized hashfile value type"
(CONSS1 SKNI UPATM URET5 GETHSH TYPTAB ALIST4 SKAR SMALLT URET3 URET1 FLTFX FXFLT URET4 KNOB SKNM 
SKLST FGFPTR EVCC SKNLST MKFN FUNBOX KT CONS LIST2 ALIST2 CF BINDB URET2 IUNBOX CONSNL MKN BHC GUNBOX 
ASZ KNIL BLKENT ENTER1)5

?73t`kHWBgx5h's :6]QxB!

w,hqbhtHP+A hHCh?gP;g6fX1e`Z@%S8OI!cpE805X*Hn,8?,kpv	
]p
;(x0JQY0v

VZJ@p

6E

	>Hd<@X: J8P)3@2@
|x	xu
xP	xFXer `pu[8*TBxB26%$8x=%

B(j(X\_

A!H	'ZX^

3

8N'VO

wE@"3CrPsd`XTxC@A@/G	/@
t+hEHN(

BP

@`}?@M98/ 
3"@	XpUh[eXRXP.:H=)x.
K)1X%(fH3eX

dK@

9H$,H
a)`
P	U8	B?HxX?w	ih0Z0EVFEP>hl<hY:(O8;20y.`?80P(d(Zx

cI

'@ 62
w-P
P(0	hh	aH	J	=0	7	x~f{7t(qomXlbPiMfK(YJx?G`8@|=@^;G7(1t$ !Au /@[XJ@ q<>`Bh>gH:g1ex.e@+e %A u<``9xF7826/5 %4, 
?' 
-$
#`
#@
h	#X+(Gxh(s`s0=g@;W89Vx5V81N`mKPMIG0@.pk- VH

vJ0

RIx

LI8

DH

=G

7Fp

5F

A`x< U:@B838
{-
g,p
_*`
F(P
>'`
='P
 0
  
8	r	qP	l(	D@	C	@			hv

YX
pLXE(~`p}Hi}g|`Uzrynhukh]k@Xj(LhhCh8f83f(*dx#d`xs^(i\xg[p[[(*U$T@#TS(R`Q`Q 	Q+Dx'C`AxAXx>xp=Z6 *4x&381 000 ='@6%`($X$#`# tHhT@IGpF07h+(%pXj

ha`Z
`T
@S
 Q
P	P 8

COPYHASHFILE BINARY
-.(,<,~(VARIABLE-VALUE-CELL HASHFILE . 0)
(NEWNAME . 1)
(FN . 1)
(VTYPE . 1)
(LEAVEOPEN . 1)
COPYHASHFILE
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTERF)

CREATEHASHFILE BINARY
-. ,<,~(FILE . 1)
(VALUETYPE . 1)
(ITEMLENGTH . 1)
(#ENTRIES . 1)
CREATEHASHFILE
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTER4)

DELPAGE BINARY
-.,<,~(PAGE# . 1)
(VARIABLE-VALUE-CELL HASHFILE . 0)
DELPAGE
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTERF)

GETHASHFILE BINARY
-.,<,~(KEY . 1)
(VARIABLE-VALUE-CELL HASHFILE . 0)
GETHASHFILE
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTERF)

GETPAGE BINARY
-.,<,~(VARIABLE-VALUE-CELL HASHFILE . 0)
(N . 1)
GETPAGE
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTERF)

GETPNAME BINARY
-.,<,~(FILEADR . 1)
(VARIABLE-VALUE-CELL HASHFILE . 0)
GETPNAME
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTERF)

HASHAFTERCLOSE BINARY
-.,<,~(FILE . 1)
HASHAFTERCLOSE
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTER1)

HASHFILENAME BINARY
-.,<,~(VARIABLE-VALUE-CELL HASHFILE . 0)
HASHFILENAME
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTERF)

HASHFILEP BINARY
-.,<,~(X . 1)
HASHFILEP
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTER1)

HASHFILEPROP BINARY
-.,<,~(VARIABLE-VALUE-CELL HASHFILE . 0)
(PROP . 1)
HASHFILEPROP
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTERF)

HASHFILESPLST BINARY
-.,<,~(VARIABLE-VALUE-CELL HASHFILE . 0)
HASHFILESPLST
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTERF)

HASHFILESPLST1 BINARY
-.,<,~(ARRAY . 1)
HASHFILESPLST1
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTER1)

HASHSTATUS BINARY
-.,<,~(FILE . 1)
(VARIABLE-VALUE-CELL HASHFILE . 0)
(PERMARGS . 1)
HASHSTATUS
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTERF)

LOOKUPHASHFILE BINARY
-. ,<,~(INDEX . 1)
(VALUE . 1)
(VARIABLE-VALUE-CELL HASHFILE . 0)
(CALLTYPE . 1)
LOOKUPHASHFILE
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTERF)

MAPHASHFILE BINARY
-.,<,~(VARIABLE-VALUE-CELL HASHFILE . 0)
(FN . 1)
MAPHASHFILE
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTERF)

OPENHASHFILE BINARY
-.,<,~(FILE . 1)
(ACCESS . 1)
OPENHASHFILE
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTER2)

PUTHASHFILE BINARY
-.,<,~(KEY . 1)
(VALUE . 1)
(VARIABLE-VALUE-CELL HASHFILE . 0)
PUTHASHFILE
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTERF)

REHASHFILE BINARY
-.,<,~(VARIABLE-VALUE-CELL HASHFILE . 0)
REHASHFILE
(NIL)
(LINKED-FN-CALL . HASHFILEBLOCK)
(ENTERF)
CLOSEHASHFILE BINARY
-.ZBB,~(VARIABLE-VALUE-CELL HASHFILE . 3)
HASHFILENAME
CLOSEF
(ENTERF)
(PRETTYCOMPRINT HASHCOMS)
(RPAQQ HASHCOMS ((FNS CLOSEHASHFILE COLLECTPAGES COPYCHARSI COPYCHARSV COPYHASHFILE COPYHASHPAGES 
CREATEHASHFILE DELPAGE GET#SLOTS GETFILEPAGE GETHASHFILE GETPAGE GETPNAME GETVALUE HASHAFTERCLOSE 
HASHFILENAME HASHFILEP HASHFILEPROP HASHFILESPLST HASHFILESPLST1 HASHSTATUS HFP INITHASHPAGE 
LOOKUPHASHFILE LOOKUPHASHFILE1 MAPHASHFILE NEWDIRSLOTS OPENHASHFILE POW2 PREPVALUE PRINTREGION 
PUTHASHFILE PUTVALUE REHASHFILE REHASHPAGE REHASHPAGES SCANHASHFILE VALUEBOX VALUETYPENUM) (DECLARE: 
EVAL@COMPILE DONTCOPY (PROP MACRO * HASHMACROS) (TEMPLATES * HASHMACROS) (RECORDS HashFile Slot Page 
DirSlot DirPage HASHFILESPLST SYMBOL FILEHANDLE) (VARS * VALUETYPES) (VARS * CALLTYPES) (VARS (
WRITETYPES (LOGOR INSERT REPLACE DELETE)) (WordsPerPage 512) (WordBits 9) (WordMask (WordsPerPage-1)) 
(BitsPerWord 36) (BitsPerChar 7) (CharMask (2^BitsPerChar-1)) (CharsPerWord BitsPerWord/BitsPerChar) (
CharsPerPage CharsPerWord*WordsPerPage) (MaxCharLocation CharsPerPage-1) (MaxStringLength 127) (
#InitialWordsOnPage 1) (DefaultKeySize 5) (DefaultInitial#Pages 2) (PrintMargin 128)) (FILES (SYSLOAD 
FROM VALUEOF LISPUSERSDIRECTORIES) NOBOX) (P (RESETSAVE DWIMIFYCOMPFLG T) (CLISPDEC (QUOTE FAST)) (
SETQ FONTFNS HASHMACROS)) (I.S.OPRS inpage) (ALISTS (PRETTYEQUIVLST SELVALTYPEQ) (DWIMEQUIVLST 
SELVALTYPEQ))) (BLOCKS * HASHBLOCKS) (VARS (SYSHASHFILE) (HASHFILESPLST) (SYSHASHFILEARRAY (CONS (
HARRAY 10)))) (ADDVARS (HASHFILECHCONLST))))
(RPAQQ HASHBLOCKS ((HASHFILEBLOCK (ENTRIES COPYHASHFILE CREATEHASHFILE DELPAGE GETHASHFILE GETPAGE 
GETPNAME HASHAFTERCLOSE HASHFILENAME HASHFILEP HASHFILEPROP HASHFILESPLST HASHFILESPLST1 HASHSTATUS 
LOOKUPHASHFILE MAPHASHFILE OPENHASHFILE PUTHASHFILE REHASHFILE) (LOCALFREEVARS HASHFILE INDEXPTR PAGE 
REALPAGE# REPLACE SLOT STRINGLENGTH VAL) (GLOBALVARS HASHFILECHCONLST HASHFILERDTBL HASHFILESPLST 
SYSHASHFILE SYSHASHFILEARRAY) COLLECTPAGES COPYCHARSI COPYCHARSV COPYHASHFILE COPYHASHPAGES 
CREATEHASHFILE DELPAGE GET#SLOTS GETFILEPAGE GETHASHFILE GETPAGE GETPNAME GETVALUE HASHAFTERCLOSE 
HASHFILENAME HASHFILEP HASHFILEPROP HASHFILESPLST HASHFILESPLST1 HASHSTATUS HFP INITHASHPAGE 
LOOKUPHASHFILE LOOKUPHASHFILE1 MAPHASHFILE NEWDIRSLOTS OPENHASHFILE POW2 PREPVALUE PRINTREGION 
PUTHASHFILE PUTVALUE REHASHFILE REHASHPAGE REHASHPAGES SCANHASHFILE VALUEBOX VALUETYPENUM)))
(RPAQ SYSHASHFILE NIL)
(RPAQ HASHFILESPLST NIL)
(RPAQ SYSHASHFILEARRAY (CONS (HARRAY 10)))
(ADDTOVAR HASHFILECHCONLST)
NIL