(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP")(IL:FILECREATED " 2-Nov-93 17:43:46" ("compiled on " IL:|{DSK}<king>export>lispcore>sources>CLTL2>CMLHASH.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" IL:|in| "Medley 19-Feb-93 ..." IL:|dated| "19-Feb-93 18:20:42")(IL:FILECREATED " 2-Apr-92 13:37:38" IL:|{DSK}<usr>local>lde>lispcore>sources>CMLHASH.;6| 16577 IL:|changes| IL:|to:| (IL:FUNCTIONS WITH-HASH-TABLE-ITERATOR) (IL:VARS IL:CMLHASHCOMS) IL:|previous| IL:|date:| " 1-Apr-92 13:16:01" IL:|{DSK}<usr>local>lde>lispcore>sources>CMLHASH.;4|)(IL:RPAQQ IL:CMLHASHCOMS ((IL:* IL:|;;| "External interface") (IL:FUNCTIONS MAKE-HASH-TABLE GETHASH MAPHASH HASH-TABLE-COUNT HASH-TABLE-P SXHASH) (XCL:OPTIMIZERS GETHASH HASH-TABLE-COUNT HASH-TABLE-P) (IL:SETFS GETHASH) (IL:FUNCTIONS HASH-TABLE-REHASH-SIZE HASH-TABLE-REHASH-THRESHOLD HASH-TABLE-SIZE HASH-TABLE-TEST WITH-HASH-TABLE-ITERATOR) (XCL:OPTIMIZERS HASH-TABLE-REHASH-SIZE HASH-TABLE-SIZE HASH-TABLE-TEST) (IL:* IL:|;;| "Internal interface") (IL:FUNCTIONS EQLHASHBITSFN SXHASH-PATHNAME) (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:VARIABLES SXHASH-MAX) (IL:FUNCTIONS SXHASH-LIST SXHASH-STRING SXHASH-BIT-VECTOR SXHASH-ROT)) (IL:* IL:|;;| "UFN for the SXHASH opcode (a MISCN)") (IL:FNS SXHASH-UFN EQLHASHBITSFN-UFN %SXHASH) (IL:FUNCTIONS %SXHASH-EQUALP SXHASH-EQUALP-STRING) (XCL:OPTIMIZERS SXHASH EQLHASHBITSFN) (XCL:OPTIMIZERS IL:STRINGHASHBITS IL:STRING-EQUAL-HASHBITS) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:CMLHASH)))MAKE-HASH-TABLE :D8(IL:L (0 IL:|-args-|)) v  e HkJI]g    
HkKdJ_lAHkNdMfh_Hk__OdOfhIdd3@ Idg    
    cg     Jdag    lZkaag    KkaKl[ag    NkaNl^ag    OkaOl_g    
    g    )Idg    
    g    g    
    g    I_dg    LO
    g    LOg    g        Odg    LOg    g        g    LOg    g        g    Oo         (371 IL:ECASE-FAIL 353 IL:HASHARRAY 326 IL:HASHARRAY 295 IL:HASHARRAY 268 IL:HASHARRAY 241 %EQCODEP 222 %EQCODEP 202 %EQCODEP 93 %EQCODEP)(359 TEST 348 EQUALP 343 %SXHASH-EQUALP 332 EQUALP 321 EQUAL 316 SXHASH 304 EQUAL 290 EQL 285 EQLHASHBITSFN 274 EQL 257 EQ 247 EQUALP 236 EQUALP 229 EQUAL 217 EQUAL 208 EQL 197 EQL 173 :REHASH-THRESHOLD 152 :REHASH-SIZE 131 :SIZE 112 :TEST 101 EQ 88 EQ 18 EQL)( 366 (EQ EQL EQUAL EQUALP))GETHASH :D8(IL:L (2 DEFAULT 1 HASHTABLE 0 KEY))     @ABi     (8 IL:GETHASH)NIL()MAPHASHA0001 :D8(IL:L (1 KEY 0 VALUE) IL:F 0 FN)    A@lP NILNIL()MAPHASH :D8(IL:L (1 HASH-TABLE) IL:I 0 FN)     Ag    
    h (10 IL:MAPHASH)(5 MAPHASHA0001)()(IL:SET-DOCUMENTATION (QUOTE MAPHASH) (QUOTE FUNCTION) "Call function with each key/value pair in the hash-table")HASH-TABLE-COUNT :D8(IL:L (0 HASH-TABLE))     @g    
     (10 IL:HARRAYPROP)(5 IL:NUMKEYS)()HASH-TABLE-P :D8(IL:L (0 OBJECT))     @     NIL(5 IL:HARRAYP)()SXHASH :D8(IL:L (0 OBJECT))     @$ NILNIL()|optimize-GETHASH| :D8(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE))  B  @AHHZJdB    kLg    IKLhg    IKhg     NIL(63 COMPILER:PASS 51 IL:GETHASH 37 IL:GETHASH 24 COMPILER:CONTEXT)()(IL:PUTPROP (QUOTE GETHASH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-GETHASH|) (GET (QUOTE GETHASH) (QUOTE COMPILER:OPTIMIZER-LIST))))|optimize-HASH-TABLE-COUNT| :D8(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE))    @ g    Ho     NIL(10 IL:HARRAYPROP)( 16 ((QUOTE IL:NUMKEYS)))(IL:PUTPROP (QUOTE HASH-TABLE-COUNT) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-HASH-TABLE-COUNT|) (GET (QUOTE HASH-TABLE-COUNT) (QUOTE COMPILER:OPTIMIZER-LIST))))|optimize-HASH-TABLE-P| :D8(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE))    @ g    Ho     NIL(10 IL:TYPENAMEP)( 16 ((QUOTE IL:HARRAYP)))(IL:PUTPROP (QUOTE HASH-TABLE-P) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-HASH-TABLE-P|) (GET (QUOTE HASH-TABLE-P) (QUOTE COMPILER:OPTIMIZER-LIST))))(SET-SETF-INVERSE (QUOTE GETHASH) (QUOTE PUTHASH))HASH-TABLE-REHASH-SIZE :D8(IL:L (0 HASH-TABLE))     @g    
     (10 IL:HARRAYPROP)(5 IL:OVERFLOW)()HASH-TABLE-REHASH-THRESHOLD :D8(IL:L (0 HASH-TABLE))     k NILNIL()HASH-TABLE-SIZE :D8(IL:L (0 HASH-TABLE))     @	     (5 IL:HARRAYSIZE)NIL()HASH-TABLE-TEST :D8(IL:L (0 HASH-TABLE))     @g    
    g     (10 IL:HARRAYPROP)(17 EQ 5 IL:EQUIVFN)()|expand-WITH-HASH-TABLE-ITERATOR| :D8(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) X
  @AHYIH                    	g    Mg    Ko    hNg    dg    o    Mhg    g    o    Mho    ho    hOo    OOhg    Jhg    g    g    Og    Og    Oo    g    o    MhhhNhg    g    Og    o    Ohhg    g    g    ig    o    Ohg    g    OOhOhhho    hhLh (41 GENSYM 36 GENSYM 31 GENSYM 26 GENSYM 21 GENSYM)(295 IL:NEQ 290 AND 274 IL:FETCHFIELD 268 VALUES 263 RETURN 258 IL:|do| 238 IL:FETCHFIELD 231 IL:SETQ 226 IL:|when| 197 IL:FETCHFIELD 183 IL:\\ADDBASE 176 IF 169 IL:SETQ 164 EQ 159 IL:|until| 152 FLET 98 IL:FETCHFIELD 93 IL:LLSH 78 IL:FETCHFIELD 72 IL:\\ADDBASE 55 IL:\\DTEST 49 LET*)( 322 (IL:|finally| (RETURN NIL)) 279 (QUOTE (NIL 0 IL:POINTER)) 243 (QUOTE (NIL 2 IL:POINTER)) 202 (QUOTE (IL:HARRAYP 2 IL:POINTER)) 190 (4) 136 (IL:\\HASH.NULL.VALUE) 124 (4) 113 (2) 103 (QUOTE (IL:HARRAYP 1 (IL:BITS . 15))) 83 (QUOTE (IL:HARRAYP 2 IL:POINTER)) 61 ((QUOTE IL:HARRAYP)))(IL:SETF-MACRO-FUNCTION (QUOTE WITH-HASH-TABLE-ITERATOR) (QUOTE |expand-WITH-HASH-TABLE-ITERATOR|))|optimize-HASH-TABLE-REHASH-SIZE| :D8(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE))    @ g    Ho     NIL(10 IL:HARRAYPROP)( 16 ((QUOTE IL:OVERFLOW)))(IL:PUTPROP (QUOTE HASH-TABLE-REHASH-SIZE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-HASH-TABLE-REHASH-SIZE|) (GET (QUOTE HASH-TABLE-REHASH-SIZE) (QUOTE COMPILER:OPTIMIZER-LIST))))|optimize-HASH-TABLE-SIZE| :D8(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE))    @ g    Hh NIL(10 IL:HARRAYSIZE)()(IL:PUTPROP (QUOTE HASH-TABLE-SIZE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-HASH-TABLE-SIZE|) (GET (QUOTE HASH-TABLE-SIZE) (QUOTE COMPILER:OPTIMIZER-LIST))))|optimize-HASH-TABLE-TEST| :D8(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE))  +  @ g    g    g    Ho    hho     NIL(20 IL:HARRAYPROP 15 TEST 10 LET)( 38 ((CASE TEST ((NIL) (QUOTE EQ)) (T TEST))) 26 ((QUOTE IL:EQUIVFN)))(IL:PUTPROP (QUOTE HASH-TABLE-TEST) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-HASH-TABLE-TEST|) (GET (QUOTE HASH-TABLE-TEST) (QUOTE COMPILER:OPTIMIZER-LIST))))EQLHASHBITSFN :D8(IL:L (0 OBJ))     @$ NILNIL()SXHASH-PATHNAME :D8(IL:L (0 PATHNAME))    @     	    @    	     HnlHml@    	     HnlHmld@    
	     HnlHmld@    	     HnlHmld@    	     HnlHml (164 %SXHASH 129 %SXHASH 94 %SXHASH 59 %SXHASH 25 %SXHASH 12 %SXHASH)(157 PATHNAME 122 PATHNAME 87 PATHNAME 52 PATHNAME 18 PATHNAME 5 PATHNAME)()SXHASH-UFN :D8(IL:I 2 IL:ARG-PTR IL:I 1 IL:ARGCOUNT IL:I 0 IL:INDEX)  
   B 	     (7 %SXHASH)NIL()EQLHASHBITSFN-UFN :D8(IL:P 1 $$TYPE-VALUE IL:P 0 OBJ IL:I 2 IL:ARG-PTR IL:I 1 IL:ARGCOUNT IL:I 0 IL:INDEX)  {  B HY    H    Id3 Hn    H HI    H	    $H	    $I    H	    $H	    $HHnH (98 IMAGPART 89 REALPART 70 DENOMINATOR 61 NUMERATOR)(81 COMPLEX 53 RATIO 38 IL:FLOATP 19 IL:CHARACTER 12 IL:CHARACTER)()%SXHASH :D8(IL:P 7 HASH IL:P 6 LENGTH IL:P 5 I IL:P 4 $$TYPE-VALUE IL:P 2 HASH IL:P 1 INDEX IL:P 0 LIST IL:I 0 OBJECT) L	  @d3@@@n@@dd4jdHIlJJH	    [nlKmlHIkԹX3`@Ld3 @n    @ @L    @	    	    @	    	    L    @	    	    @	    	    @	    Hj@	    lKKljMNOO@M    _nlOml_Mk]@	    2j@	    lKKljMNOOk@M_Mk]@    @	     (329 SXHASH-PATHNAME 272 LENGTH 263 BIT-VECTOR-P 194 LENGTH 185 STRINGP 177 %SXHASH 172 IMAGPART 166 %SXHASH 161 REALPART 145 %SXHASH 140 DENOMINATOR 134 %SXHASH 129 NUMERATOR 54 %SXHASH)(319 PATHNAME 228 IL:CHARACTER 153 COMPLEX 121 RATIO 106 IL:FLOATP)()%SXHASH-EQUALP :D8(IL:L (0 OBJECT))   @dd3@@@n@dd4jdHIlJJH	    [nlKmlHIkԹX3 @aHd3 @n    >@d	    ,@	    	    YI[KJLb jMj@ـ@n@ @Hd    @    ^ N    @	    	    @	    	    @d	    Tj@	     lHHlj#HIJJ@H    ӻlaKKdlzl ՀK\nlLmlHkX	    .j@	     lHHljHIJJk@HԺHkX@d    @	     (385 SXHASH-PATHNAME 330 LENGTH 321 BIT-VECTOR-P 242 LENGTH 232 STRINGP 223 %SXHASH 218 IMAGPART 212 %SXHASH 207 REALPART 132 IL:\\MVLIST 127 INTEGER-DECODE-FLOAT 118 FLOOR 55 %SXHASH)(374 PATHNAME 274 IL:CHARACTER 199 COMPLEX 186 IL:FLOATP 178 RATIO 109 IL:FLOATP)()|expand-SXHASH-EQUALP-STRING| :D8(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM))    @ g    o    g    g    g    Hho    ho    o    g    g    g    g    g    g    g    g    Ho    hhhhhh NIL(96 AREF 91 CHAR-CODE 86 IL:%CHAR-UPCASE-CODE 81 HASH 76 LOGXOR 71 SXHASH-ROT 66 HASH 61 SETQ 30 LENGTH 25 MIN 20 LENGTH 10 DO)( 102 (I) 56 ((EQ I LENGTH) HASH) 49 ((HASH 0)) 39 (SXHASH-MAX) 15 (I 0 (1+ I)))(IL:SETF-MACRO-FUNCTION (QUOTE SXHASH-EQUALP-STRING) (QUOTE |expand-SXHASH-EQUALP-STRING|))|optimize-SXHASH| :D8(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE))    @ g    g    Hh NIL(15 SXHASH 10 IL:MISCN)()(IL:PUTPROP (QUOTE SXHASH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-SXHASH|) (GET (QUOTE SXHASH) (QUOTE COMPILER:OPTIMIZER-LIST))))|optimize-EQLHASHBITSFN| :D8(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE))    @ g    g    Hh NIL(15 EQLHASHBITSFN 10 IL:MISCN)()(IL:PUTPROP (QUOTE EQLHASHBITSFN) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-EQLHASHBITSFN|) (GET (QUOTE EQLHASHBITSFN) (QUOTE COMPILER:OPTIMIZER-LIST))))IL:|optimize-STRINGHASHBITS| :D8(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE))    @ g    g    Hh NIL(15 IL:STRINGHASHBITS 10 IL:MISCN)()(IL:PUTPROP (QUOTE IL:STRINGHASHBITS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-STRINGHASHBITS|) (GET (QUOTE IL:STRINGHASHBITS) (QUOTE COMPILER:OPTIMIZER-LIST))))IL:|optimize-STRING-EQUAL-HASHBITS| :D8(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE))    @ g    g    Hh NIL(15 IL:STRING-EQUAL-HASHBITS 10 IL:MISCN)()(IL:PUTPROP (QUOTE IL:STRING-EQUAL-HASHBITS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-STRING-EQUAL-HASHBITS|) (GET (QUOTE IL:STRING-EQUAL-HASHBITS) (QUOTE COMPILER:OPTIMIZER-LIST))))(IL:PUTPROPS IL:CMLHASH IL:FILETYPE COMPILE-FILE)(IL:PUTPROPS IL:CMLHASH IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP"))(IL:PUTPROPS IL:CMLHASH IL:COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1989 1990 1992))NIL