(FILECREATED "22-Aug-86 17:04:15" ("compiled on " {ERIS}LIBRARY>CMLHASH.;17) "18-Aug-86 12:42:20" "COMPILE-FILEd" in "Xerox Lisp 18-Aug-86 ..." dated "18-Aug-86 13:55:08") (FILECREATED "22-Aug-86 17:03:54" {ERIS}LIBRARY>CMLHASH.;17 6619 changes to: (FUNCTIONS CL:PUTHASH DISPLAY-TABLE EQLHASHBITSFN CL:MAPHASH HASH-TABLE-COUNT HASH-TABLE-P MAKE-HASH-TABLE SXHASH SXHASH-STRING) (VARS CMLHASHCOMS) (VARIABLES SXHASH-MAX) previous date: "22-Aug-86 14:28:39" {ERIS}LIBRARY>CMLHASH.;16) (RPAQQ CMLHASHCOMS ((* ;; "External interface") (SETFS CL:GETHASH) (FUNCTIONS CL:MAPHASH CL:PUTHASH HASH-TABLE-COUNT HASH-TABLE-P MAKE-HASH-TABLE SXHASH) (P (MOVD (QUOTE GETHASH) (QUOTE CL:GETHASH))) (* ;; "Internal interface") (VARIABLES SXHASH-MAX) (FUNCTIONS SXHASH-LIST SXHASH-ROT SXHASH-STRING EQLHASHBITSFN \EQHASHINGBITS) (PROP FILETYPE CMLHASH))) (REMPROP (QUOTE CL:GETHASH) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS CL:GETHASH SETF-INVERSE CL:PUTHASH) CL:MAPHASHA0001 D1 (L (1 KEY 0 VALUE) F 0 FUNCTION) A@lPNIL NIL () CL:MAPHASH D1 (L (1 HASH-TABLE) I 0 FUNCTION) Ag h(6 MAPHASH) (3 CL:MAPHASHA0001) () CL:PUTHASH D1 (L (3 DEFAULT 2 VALUE 1 HASH-TABLE 0 KEY)) @BA B(5 \HASHACCESS) NIL () HASH-TABLE-COUNT D1 (L (0 HASH-TABLE)) @g (6 HARRAYPROP) (3 NUMKEYS) () HASH-TABLE-P D1 (L (0 OBJECT)) @ (3 HARRAYP) NIL () MAKE-HASH-TABLE D1 (L (0 -args-))  eHkJdIPg HkKdJQlAHkNdMVh_Hk__OdOTIdlzg PgjagJkaJlZagKkaKl[agNkaNl^agOl_Ig gIg gI_dgLO gLOgg OgLOgg gOo (407Q ECASE-FAIL 372Q HASHARRAY 345Q HASHARRAY 323Q HASHARRAY 276Q EQP 273Q SYMBOL-FUNCTION 257Q EQP 254Q SYMBOL-FUNCTION 125Q EQP 122Q SYMBOL-FUNCTION) (376Q TEST 367Q CL:EQUAL 364Q SXHASH 353Q CL:EQUAL 342Q EQL 337Q EQLHASHBITSFN 327Q EQL 312Q EQ 302Q CL:EQUAL 270Q CL:EQUAL 263Q EQL 251Q EQL 231Q :REHASH-THRESHOLD 206Q :REHASH-SIZE 163Q :SIZE 140Q :TEST 132Q EQ 117Q EQ 22Q EQL) ( 404Q (EQ EQL CL:EQUAL)) SXHASH D1 (L (0 OBJECT)) @Hdg @  .j@ l jIJ KK@I ll IkYHoHdg 1@jlII3Jl KKI ll IJkԺY @ Hdg @@3 @nHdg @ @ g @ @ @@n@(332Q SXHASH 327Q IMAGPART 323Q SXHASH 320Q REALPART 313Q \INSTANCE-P 303Q SXHASH 300Q DENOMINATOR 274Q SXHASH 271Q NUMERATOR 262Q \INSTANCE-P 227Q \INSTANCE-P 216Q ARRAY-RANK 211Q CL:ARRAYP 174Q ROT 164Q SXHASH 153Q %%= 125Q \INSTANCE-P 77Q ROT 67Q CHAR-INT 55Q %%= 44Q MIN 37Q CL:LENGTH 30Q CL:STRINGP 24Q STRINGHASHBITS 21Q SYMBOL-NAME 13Q \INSTANCE-P) (310Q COMPLEX 257Q RATIO 224Q FLOATP 122Q LISTP 10Q LITATOM) ( 113Q (NIL)) (MOVD (QUOTE GETHASH) (QUOTE CL:GETHASH)) (SETQ SXHASH-MAX 13) (PUTHASH (QUOTE SXHASH-MAX) (QUOTE (CONSTANT SXHASH-MAX)) COMPVARMACROHASH) expand-SXHASH-LIST D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ggHoooNIL (13Q SEQUENCE 10Q CL:DO) ( 33Q (((OR (ATOM SEQUENCE) (= INDEX SXHASH-MAX)) HASH) (DECLARE (TYPE FIXNUM HASH)) (SETQ HASH (SXHASH-ROT (LOGXOR HASH (SXHASH (CAR SEQUENCE))) 7))) 26Q ((INDEX 0 (1+ INDEX)) (HASH 2)) 20Q ((CDR SEQUENCE))) (SETF-MACRO-FUNCTION (QUOTE SXHASH-LIST) (QUOTE expand-SXHASH-LIST)) expand-SXHASH-ROT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!HHgIJn h(26Q INTEGERLENGTH) (16Q ROT) () (SETF-MACRO-FUNCTION (QUOTE SXHASH-ROT) (QUOTE expand-SXHASH-ROT)) expand-SXHASH-STRING D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) f@gogggHhohooogggggggHohhohhNIL (105Q AREF 102Q CHAR-INT 77Q HASH 74Q LOGXOR 71Q SXHASH-ROT 66Q HASH 63Q SETQ 25Q CL:LENGTH 22Q MIN 17Q LENGTH 10Q CL:DO) ( 127Q (7) 112Q (I) 60Q (DECLARE (TYPE FIXNUM I LENGTH HASH)) 54Q ((= I LENGTH) HASH) 46Q ((HASH 0)) 35Q (SXHASH-MAX) 14Q (I 0 (1+ I))) (SETF-MACRO-FUNCTION (QUOTE SXHASH-STRING) (QUOTE expand-SXHASH-STRING)) EQLHASHBITSFN D1 (L (0 OBJ)) l@Hdg i3 @nHdg @@g @ @ Hg @ @ @@n@(126Q EQLHASHBITSFN 123Q IMAGPART 117Q EQLHASHBITSFN 114Q REALPART 107Q \INSTANCE-P 76Q EQLHASHBITSFN 73Q DENOMINATOR 67Q EQLHASHBITSFN 64Q NUMERATOR 57Q \INSTANCE-P 37Q \INSTANCE-P 13Q \INSTANCE-P) (104Q COMPLEX 54Q RATIO 34Q FLOATP 10Q CHARACTER) () expand-\EQHASHINGBITS D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) F@ggHhggggHhooggHhohhNIL (61Q \LOLOC 56Q LRSH 33Q \LOLOC 30Q LOGAND 25Q LLSH 22Q LOGXOR 13Q \HILOC 10Q LOGXOR) ( 71Q (11Q) 51Q (3) 43Q (17777Q)) (SETF-MACRO-FUNCTION (QUOTE \EQHASHINGBITS) (QUOTE expand-\EQHASHINGBITS)) (PUTPROPS CMLHASH FILETYPE COMPILE-FILE) (PUTPROPS CMLHASH COPYRIGHT ("Xerox Corporation" 1985 1986)) STOP