(FILECREATED "22-Aug-86 14:22:50" ("compiled on " {ERIS}LIBRARY>CMLHASH.;15) "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 14:22:15" {ERIS}LIBRARY>CMLHASH.;15 6938 changes to: (VARS CMLHASHCOMS) (VARIABLES SXHASH-MAX) (FUNCTIONS CL:MAPHASH CL:PUTHASH HASH-TABLE-COUNT HASH-TABLE-P MAKE-HASH-TABLE SXHASH SXHASH-STRING EQLHASHBITSFN) previous date: " 2-Jul-86 13:44:14" {ERIS}LIBRARY>CMLHASH.;14) (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 (5 PUTHASH) 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)) expand-EQLHASHBITSFN D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoggHohgggogHhgogHhhhggggHhhggHhhhhggggHhhggHhhhhigHhhhNIL (234Q \EQHASHINGBITS 212Q IMAGPART 207Q EQLHASHBITSFN 175Q REALPART 172Q EQLHASHBITSFN 167Q LOGXOR 164Q COMPLEX 143Q DENOMINATOR 140Q EQLHASHBITSFN 126Q NUMERATOR 123Q EQLHASHBITSFN 120Q LOGXOR 115Q RATIO 75Q of 66Q fetch 55Q of 46Q fetch 43Q LOGXOR 40Q FLOAT 23Q LOGAND 20Q INTEGER 10Q TYPECASE) ( 72Q (FLOATP LOWORD) 52Q (FLOATP HIWORD) 30Q (177777Q) 15Q (CHARACTER)) (SETF-MACRO-FUNCTION (QUOTE EQLHASHBITSFN) (QUOTE expand-EQLHASHBITSFN)) 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