(FILECREATED " 2-Jul-86 13:44:26" ("compiled on " {ERIS}LIBRARY>CMLHASH.;14) "30-Jun-86 12:06:27" "COMPILE-FILEd" in "Xerox Lisp 30-Jun-86 ..." dated "30-Jun-86 13:37:08") (FILECREATED " 2-Jul-86 13:44:14" {ERIS}LIBRARY>CMLHASH.;14 7207 changes to: (FNS MAKE-HASH-TABLE) previous date: "27-Jun-86 18:33:36" {ERIS}LIBRARY>CMLHASH.;13) (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-))  eHkJdIó²Q¿g¡ Hk»ºKdJó²R¿lA¼Hk¾½NdMó²W¿h_¿Hk_¿_¿OdOó²U¿Idlð³~g ²QgY°magð•JkØa°«JlÔZ°›agð•KkØa°©KlÔ[°šagð•NkØa°£NlÔ^°•agð³©OlÔ_°™Ig •gY°Ig ”gY€I_¿I_dgð—¿LO gðœLOgg Ogð´LOgg gOo (417Q ECASE-FAIL 402Q HASHARRAY 355Q HASHARRAY 333Q HASHARRAY 301Q EQP 276Q SYMBOL-FUNCTION 260Q EQP 255Q SYMBOL-FUNCTION 125Q EQP 122Q SYMBOL-FUNCTION) (406Q TEST 377Q CL:EQUAL 374Q SXHASH 363Q CL:EQUAL 352Q EQL 347Q CLHASH::EQLHASHBITSFN 337Q EQL 322Q EQ 305Q CL:EQUAL 273Q CL:EQUAL 264Q EQL 252Q EQL 232Q :REHASH-THRESHOLD 207Q :REHASH-SIZE 164Q :SIZE 141Q :TEST 132Q EQ 117Q EQ 22Q EQL) ( 414Q (EQ EQL CL:EQUAL)) SXHASH D1 (L (0 OBJECT)) ,@!Hd•¿@ lð—@ Hd²A¿j@ l jKL ‘MM@K æYl låoåInÿålçä½KkÔ[°Ólð©Hdo²A¿@jlKšK3¦Ll ‘MMK æZl låoåJnÿålçä½KLkÔ¼[°Ì`ð³Hlð³H gð¨Hd`ð•¿@ 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)) @!H¹HºgIJnÿÿ 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 •@nÿÿåHdlð˜¿@È@Èæ`ðŸ@ @ æ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