(FILECREATED "27-Jun-86 18:33:59" ("compiled on " {ERIS}LIBRARY>CMLHASH.;13) "26-Jun-86 19:30:44" "COMPILE-FILEd" in "Xerox Lisp 26-Jun-86 ..." dated "26-Jun-86 19:43:46") (FILECREATED "27-Jun-86 18:33:36" {ERIS}LIBRARY>CMLHASH.;13 7206 changes to: (FNS MAKE-HASH-TABLE) previous date: "26-Jun-86 18:04:50" {ERIS}LIBRARY>CMLHASH.;12) (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ó²U¿g¡ Hk»ºKdJó²V¿lA¼Hk¾½NdMó²[¿h_¿Hk_¿_¿OdOó²Y¿Id ¢±©¿Ig ²RgY±•agð•JkØa°§JlÔZ°—agð•KkØa°¥KlÔ[°–agð•NkØa°ŸNlÔ^°‘agð³¥OlÔ_°•Ig •gY°:Ig ²-gY°(gðšLOgg°Ogð²&LOgg ¿I_¿I_dgð²Ï¿LO °êigOo Y°Ú(426Q ECASE-FAIL 407Q HASHARRAY 361Q HASHARRAY 305Q EQP 302Q SYMBOL-FUNCTION 264Q EQP 261Q SYMBOL-FUNCTION 130Q EQP 125Q SYMBOL-FUNCTION 111Q CCODEP) (415Q TEST 375Q EQ 356Q CL:EQUAL 353Q SXHASH 342Q CL:EQUAL 333Q EQL 330Q CLHASH::EQLHASHBITSFN 320Q EQL 312Q CL:EQUAL 277Q CL:EQUAL 270Q EQL 256Q EQL 236Q :REHASH-THRESHOLD 213Q :REHASH-SIZE 170Q :SIZE 145Q :TEST 135Q EQP 122Q EQP 22Q EQL) ( 423Q (EQ EQL CL:EQUAL)) SXHASH D1 (P 10Q HASH P 7 INDEX P 6 SEQUENCE P 5 HASH P 4 LENGTH P 3 I P 0 $$TYPE-VALUE I 0 OBJECT) 6 @!H”@ Hdlð˜¿@ ²@j@ l jKL ‘MM@K æYl låoåInÿålçä½KkÔ[°ÓHlð©Hdo²L¿@jlNžNl §Ol ’OON æZl låoåJnÿålçä_¿NOkÔ_¿^°Á`ð³Hlð³H gð¨Hd`ð•¿@ lð—@È@ÈæHd3 –¿@nÿÿå`ðŸ@ @ æH`ðŸ@ @ æ@Ò@Ónÿåààà@Óãâææ(440Q SXHASH 435Q IMAGPART 431Q SXHASH 426Q REALPART 411Q SXHASH 406Q DENOMINATOR 402Q SXHASH 377Q NUMERATOR 333Q ARRAY-RANK 311Q TYPENAME 227Q RSH 220Q SXHASH 205Q %%= 175Q \TYPEMASK.UFN 106Q RSH 77Q CHAR-INT 74Q AREF 63Q %%= 52Q MAX 45Q CL:LENGTH 33Q STRINGHASHBITS 30Q SYMBOL-NAME 13Q STRINGHASHBITS) (420Q COMPLEXTYPE# 371Q RATIOTYPE# 324Q BITMAPTYPE# 314Q ARRAYP 273Q ARRAYTYPE#) ( 236Q -177601Q 152Q (NIL) 115Q -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 (P 0 $$TYPE-VALUE I 0 OBJ) g@H ‘iHd3 –¿@nÿÿålð—@È@ÈæHd`ð²¿@ @ æ`ðŸ@ @ æ@Ò@Ónÿåààà@Óãâææ(121Q CLHASH::EQLHASHBITSFN 116Q IMAGPART 112Q CLHASH::EQLHASHBITSFN 107Q REALPART 73Q CLHASH::EQLHASHBITSFN 70Q DENOMINATOR 64Q CLHASH::EQLHASHBITSFN 61Q NUMERATOR 7 CHARACTERP) (101Q COMPLEXTYPE# 51Q RATIOTYPE#) () (PUTPROPS CMLHASH FILETYPE COMPILE-FILE) (PUTPROPS CMLHASH COPYRIGHT ("Xerox Corporation" 1985 1986)) STOP