(FILECREATED "26-Jun-86 18:05:39" ("compiled on " {ERIS}LIBRARY>CMLHASH.;12) "23-Jun-86 18:04:30" "COMPILE-FILEd" in "Xerox Lisp 23-Jun-86 ..." dated "23-Jun-86 18:17:41") (FILECREATED "26-Jun-86 18:04:50" {ERIS}LIBRARY>CMLHASH.;12 7467 changes to: (FNS CLHASH::EQLHASHBITSFN MAKE-HASH-TABLE) (SETFS CL:GETHASH) (VARS CMLHASHCOMS) (PROPS (CMLHASH FILETYPE) ) (FUNCTIONS \EQHASHINGBITS) previous date: "20-Apr-86 16:41:32" {ERIS}LIBRARY>CMLHASH.;8) (RPAQQ CMLHASHCOMS ((* * External interface) (SETFS CL:GETHASH) (FNS CL:MAPHASH CL:PUTHASH HASH-TABLE-COUNT HASH-TABLE-P MAKE-HASH-TABLE SXHASH) (P (MOVD (QUOTE GETHASH) (QUOTE CL:GETHASH))) (* * Internal interface) (CONSTANTS SXHASH-MAX) (FUNCTIONS SXHASH-LIST SXHASH-ROT SXHASH-STRING \EQHASHINGBITS) (FNS CLHASH::EQLHASHBITSFN) (PROP FILETYPE CMLHASH) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA MAKE-HASH-TABLE HASH-TABLE-P HASH-TABLE-COUNT CL:PUTHASH CL:MAPHASH))))) (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-)) eHkJdIJg HkKdJKlAHkNdMPh_Hk__OdONIg QgYmagJkaJlZagKkaKl[agNkaNl^agOl_Ig gYIg gYIgLO IdgLOgg gLOgg oI (374Q ERROR 363Q HASHARRAY 341Q HASHARRAY 314Q HASHARRAY 272Q EQP 267Q SYMBOL-FUNCTION 251Q EQP 246Q SYMBOL-FUNCTION 116Q EQP 113Q SYMBOL-FUNCTION) (360Q CL:EQUAL 355Q SXHASH 345Q EQUAL 336Q EQL 333Q CLHASH::EQLHASHBITSFN 322Q EQL 304Q EQ 276Q CL:EQUAL 264Q CL:EQUAL 255Q EQL 243Q EQL 223Q :REHASH-THRESHOLD 200Q :REHASH-SIZE 155Q :SIZE 132Q :TEST 123Q EQP 110Q EQP 22Q EQL) ( 370Q "Bad TEST for MAKE-HASH-ARRAY") SXHASH D1 (L (0 OBJECT)) ,@!Hd@ l@ HdAj@ l jKL MM@K Yl loInlKk[lHdoA@jlKK3Ll MMK Zl loJnlKLkԼ[`HlH gHd`@ l@@Hd3 @n`@ @ H`@ @ @@n@(426Q SXHASH 423Q IMAGPART 417Q SXHASH 414Q REALPART 377Q SXHASH 374Q DENOMINATOR 370Q SXHASH 365Q NUMERATOR 321Q ARRAY-RANK 277Q TYPENAME 222Q RSH 213Q SXHASH 202Q %%= 110Q RSH 101Q CHAR-INT 76Q AREF 65Q %%= 54Q MAX 47Q CL:LENGTH 32Q STRINGHASHBITS 27Q SYMBOL-NAME 15Q STRINGHASHBITS) (406Q COMPLEXTYPE# 357Q RATIOTYPE# 312Q BITMAPTYPE# 302Q ARRAYP 261Q ARRAYTYPE#) ( 231Q -177601Q 153Q (NIL) 117Q -177601Q) (MOVD (QUOTE GETHASH) (QUOTE CL:GETHASH)) (RPAQQ SXHASH-MAX 13) (CONSTANTS SXHASH-MAX) 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 MAX 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-\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)) CLHASH::EQLHASHBITSFN D1 (L (0 OBJ)) e@Hd i3 @nHdl@@`@ @ H`@ @ @@n@(117Q CLHASH::EQLHASHBITSFN 114Q IMAGPART 110Q CLHASH::EQLHASHBITSFN 105Q REALPART 70Q CLHASH::EQLHASHBITSFN 65Q DENOMINATOR 61Q CLHASH::EQLHASHBITSFN 56Q NUMERATOR 10Q CHARACTERP) (77Q COMPLEXTYPE# 50Q RATIOTYPE#) () (PUTPROPS CMLHASH FILETYPE COMPILE-FILE) (PUTPROPS CMLHASH COPYRIGHT ("Xerox Corporation" 1985 1986)) STOP