PDP-10 Archive: decus/20-0004/swaphash.com from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/swaphash.com

There are no other files named swaphash.com in the archive.

(FILECREATED "23-SEP-81 22:54:00" ("compiled on " 
<LISPUSERS>SWAPHASH.;55) (2 . 2) bcompl'd in WORK dated NOBIND)
(FILECREATED "15-JUN-79 22:58:23" <LISPUSERS>SWAPHASH.;55 12910 previous
 date: "15-JUN-79 22:55:34" <LISPUSERS>SWAPHASH.;54)
(ADDTOVAR NOSWAPFNS SADDHASH1 SGETHASH1 SEQMEMBHASH1 SPUTHASH1 SSUBHASH1
 STESTHASH1 SHARRAY1)

HASHFULLA0006 BINARY
-.Z,<Z,<ZF,~ (VARIABLE-VALUE-CELL V . 5)
(VARIABLE-VALUE-CELL K . 3)
(VARIABLE-VALUE-CELL NEWH . 7)
SPUTHASH
(ENTERF)

HASHFULL BINARY
;09-.0@2,~^",>/,>ZB3,$Bx,^/,B3XBB43B+(Z2B4+#@5+"ZB6,7Z7#DXB,,>/,>+Z8Z
,<,<Z,<Z,<Z%,<,F9Z,~H:H "`0(VARIABLE-VALUE-CELL FN . 82)
(VARIABLE-VALUE-CELL H . 89)
(VARIABLE-VALUE-CELL SWAPHASHNULL . 51)
(VARIABLE-VALUE-CELL X . 85)
(VARIABLE-VALUE-CELL V . 87)
(NIL VARIABLE-VALUE-CELL NEWH . 76)
SHASHSIZE
SHARRAY
SWPARRAYP
SADDHASH
(NIL VARIABLE-VALUE-CELL X . 0)
(NIL VARIABLE-VALUE-CELL Y . 58)
(NIL VARIABLE-VALUE-CELL INDEX . 62)
ARRAYSIZE
1000000
HASHFULLA0006
SMAPHASH
SHOULDNT
RETAPPLY
(LIST3 KT FFNOPR GUNBOX KNIL MKN BHC IUNBOX ENTERF).X x
"x

NEXTPRIME BINARY
-. 0b+Z",~,<,<Zp-,+Z+Zp,<,<w/@ + ,>,>  ,^/& 0B7Z,~3B+Zp+[pXBp+/2B+Zp+ .",XB+/Z,~BPR( (VARIABLE-VALUE-CELL N . 53)
((2 3 5 7 11 13) . 0)
(VARIABLE-VALUE-CELL D . 25)
(MKN KT BHC SKNLST KNIL ASZ ENTERF)0p
(x

SADDHASH BINARY
-.Z,<ZD,~(VARIABLE-VALUE-CELL X . 0)
(VARIABLE-VALUE-CELL V . 0)
(VARIABLE-VALUE-CELL H . 3)
SADDHASH1
SWPPOS
(ENTERF)

SADDHASH1 BINARY
<6:-. 6,<,<Z4Z1[A"j"#$4&",>5,>- h&"'.$Q$,>5,>,>,>[xZ2B+ZxXBwZ2B+/Z+Z2B+ZXCx/+Zp3B+ZwXBZXCxZXBp+%ZwZ2B77+%ZXCxZXBp+%[xZ2B77+%Z

QCxZXCx/+4Z1 ~.bxZ0d+* h/" Bx 2D+,<8"84Z1+Z9Z,<,<9$:/+(
B"  B |4(VARIABLE-VALUE-CELL X . 69)
(VARIABLE-VALUE-CELL V . 71)
(VARIABLE-VALUE-CELL SWAPHASHNULL . 64)
(VARIABLE-VALUE-CELL SWAPHASHNLISTPTAIL . 53)
SADDHASH
HASHFULL
((SADDHASH X V H) . 0)
((SADDHASH X V H) . 0)
RETEVAL
(KT URET2 BHC BR KNIL ENTER0)(P H%P
"Hh0

SGETHASH BINARY
-.Z,<ZD,~(VARIABLE-VALUE-CELL X . 0)
(VARIABLE-VALUE-CELL H . 3)
SGETHASH1
SWPPOS
(ENTERF)

SGETHASH1 BINARY
FAD-.A,<,<,<Z4Z;[A"j"#$?&",>@,>8 h&"'.$Q$,>@,>,>,>[xZ2B+ZxXBwZ3B77+'ZpZ2B+ZwXBp+'ZwZ2B+ZXBp+'ZwZw,XBw+'[xZ2B77+'/Zw,<ZwZ3B+"+"Z ,\2B+% "+'[QD "+4Z; ~.bxZ0d+, h/" Bx 2D+

/Zw,<ZwZ 3B+1+2Z ,\2B+5 "+6[QD "+4Z;+

ZBZ,<,<C$C/Z+(
BaPB
`(VARIABLE-VALUE-CELL X . 25)
(VARIABLE-VALUE-CELL SWAPHASHNULL . 55)
(VARIABLE-VALUE-CELL SWAPHASHNLISTPTAIL . 95)
((SGETHASH X H) . 0)
((SGETHASH X H) . 0)
RETEVAL
(URET3 BHC COLLCT KT BR KNIL ENTER0)@x(?h(x4($00

SHARRAY BINARY

-.ZB	XBB	,<@
 ,~Z,<Z
DZ,~!@(VARIABLE-VALUE-CELL N . 5)
NEXTPRIME
SWPARRAY
(VARIABLE-VALUE-CELL H . 15)
SHARRAY1
SWPPOS
(ENTERF)

SHARRAY1 BINARY

-.Z,<Z, ,\.$ D & FZQ.$." F."1"+,~(VARIABLE-VALUE-CELL ARR . 3)
(VARIABLE-VALUE-CELL N . 5)
(VARIABLE-VALUE-CELL SWAPHASHNULL . 13)
(GUNBOX ENTERF)

SHASHSIZE BINARY
-.@,~@+ZB, Z DXB,,>,>+Z,<,<x,YBXBZ

Z3B77+Z

Z333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333Z4Z8[A"j"#$;&",><,>4 h&"'.$Q$,><,>,>,>[xZ2B+Z-,+Z

,<[XB,\+3B+Z?,<ZZXCpQEp,\XBZ+ZXCx+)[xZ2B77+)Z3B+(ZQCxZ-,+"Z,<[XB ,\+'Z?,<Z!ZXCpQEp,\XB#ZXCx+)/Z,~4Z8 ~.bxZ0d+. h/" Bx 2D+
Z&3B+2,<@"@+3/+(4Z8+
ZAZ,<,<A$B/+((
	@BD'\h(VARIABLE-VALUE-CELL X . 58)
(VARIABLE-VALUE-CELL V1 . 95)
(VARIABLE-VALUE-CELL SWAPHASHNLISTPTAIL . 77)
(VARIABLE-VALUE-CELL SWAPHASHNULL . 50)
((NIL) . 0)
((NIL) . 0)
SPUTHASH
HASHFULL
((SPUTHASH X V H) . 0)
((SPUTHASH X V H) . 0)
RETEVAL
(BHC KT KNIL SKLST BR ENTER0);8)1%PH`

SSUBHASH BINARY
-.Z,<ZD,~(VARIABLE-VALUE-CELL X . 0)
(VARIABLE-VALUE-CELL V . 0)
(VARIABLE-VALUE-CELL H . 3)
SSUBHASH1
SWPPOS
(ENTERF)

SSUBHASH1 BINARY
*&)-.&Z4Z![A"j"#$$&",>%,> h&"'.$Q$,>%,>,>,>[xZ2B+ZxZ2B77+ZXCx+[xZ2B77+/Z,~4Z! ~.bxZ0d+ h/" Bx 2D+
/+4Z!+
Z'Z,<,<($(/+(
B`@(VARIABLE-VALUE-CELL X . 22)
(VARIABLE-VALUE-CELL V . 26)
(VARIABLE-VALUE-CELL SWAPHASHNULL . 35)
((SSUBHASH X V H) . 0)
((SSUBHASH X V H) . 0)
RETEVAL
(BHC KT KNIL BR ENTER0)$HxXp

STESTHASH BINARY
	-.Z,<ZD3B+Z,~Z,~ (VARIABLE-VALUE-CELL X . 0)
(VARIABLE-VALUE-CELL H . 3)
STESTHASH1
SWPPOS
(KT KNIL ENTERF)Xh

STESTHASH1 BINARY
2-0-.-,<Z4Z([A"j"#$+&",>,,>$ h&"'.$Q$,>,,>,>,>[xZ2B+ZxXBpZ3B77+ZpZ3B77+Zx/" Z. DXBp/Zp+[xZ2B77+/Z+4Z( ~.bxZ0d+! h/" Bx 2D+/+4Z(+Z/Z,<,</$0/+(
B@&@(VARIABLE-VALUE-CELL X . 23)
(VARIABLE-VALUE-CELL SWAPHASHNULL . 49)
(VARIABLE-VALUE-CELL SWAPHASHNLISTPTAIL . 34)
1000000
((STESTHASH X H) . 0)
((STESTHASH X H) . 0)
RETEVAL
(URET1 BHC KT BR KNIL ENTER0)8#@0	(
(PRETTYCOMPRINT SWAPHASHCOMS)
(RPAQQ SWAPHASHCOMS ((DECLARE: FIRST (ADDVARS (NOSWAPFNS SADDHASH1 
SGETHASH1 SEQMEMBHASH1 SPUTHASH1 SSUBHASH1 STESTHASH1 SHARRAY1))) (E (
RESETSAVE CLISPIFYPRETTYFLG NIL)) (DECLARE: EVAL@COMPILE DONTCOPY (PROP 
MACRO .LOOKUP. LH RH HIND SETLH SETRH SMAPHASH1) (FILES (SYSLOAD) NOBOX)
) (* These define swapped hasharrays and are masterscope-independent) (
FNS HASHFULL NEXTPRIME SADDHASH SADDHASH1 SGETHASH SGETHASH1 SHARRAY 
SHARRAY1 SHASHSIZE SMAPHASH SEQMEMBHASH SEQMEMBHASH1 SPUTHASH SPUTHASH1 
SSUBHASH SSUBHASH1 STESTHASH STESTHASH1) (GLOBALVARS SWAPHASHNLISTPTAIL 
SWAPHASHNULL) (VARS SWAPHASHNLISTPTAIL SWAPHASHNULL)))
(* These define swapped hasharrays and are masterscope-independent)
(RPAQQ SWAPHASHNLISTPTAIL " . ")
(RPAQQ SWAPHASHNULL "SHNIL")
NIL