(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED " 2-Nov-93 17:43:46" ("compiled on " IL:|{DSK}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}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}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 eHkJI]g HkKdJ_lAHkNdMfh_Hk__OdOfhIdd3@Idg cgJdaglZkaagKkaKl[agNkaNl^agOkaOl_g g)Idg gg gI_dgLO gLOgg OdgLOgg gLOgg gOo (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@lPNIL 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@AHHZJdBkLgIKLhgIKhgNIL (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)) @gHoNIL (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)) @gHoNIL (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)) kNIL 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 @AHYIH gMgKohNgdgoMhggoMhohohOoOOhgJhgggOgOgOogoMhhhNhggOgoOhhgggigoOhggOOhOhhhohhLh(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)) @gHoNIL (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)) @gHhNIL (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)) +@gggHohhoNIL (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)) @ @ HnlHml@ HnlHmld@ HnlHmld@ HnlHmld@ HnlHml(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) {BHYHId3 HnHHIH $H $IH $H $HHnH(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@@dd4jdHIl JJH [nlKmlHIkԹX3`@Ld3 @n@@L@ @ L@ @ @ Hj@ l KKl jMNOO@M_nlOml_Mk]@ 2j@ lKKljMNOOk@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@dd4jdHIl JJH [nlKmlHIkԹX3@aHd3 @n>@d ,@ YI[KJLbjMj@ـ@n@@Hd@^N@ @ @d Tj@ l HHl j#HIJJ@HӻlaKKdlzl ՀK\nlLmlHkX .j@ lHHljHIJJk@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)) @gogggHhohooggggggggHohhhhhhNIL (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)) @ggHhNIL (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)) @ggHhNIL (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)) @ggHhNIL (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)) @ggHhNIL (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