(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED "25-Jan-98 10:17:44" ("compiled on " IL:|{DSK}sources>CMLHASH.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED "16-May-90 13:25:03" IL:|{DSK}local>lde>lispcore>sources>CMLHASH.;2| 8265 IL:|changes| IL:|to:| (IL:VARS IL:CMLHASHCOMS) IL:|previous| IL:|date:| " 8-Jun-89 17:15:50" IL:|{DSK}local>lde>lispcore>sources>CMLHASH.;1|) (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:* 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) (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-|)) CeHkJIó²\g‘ Hk»ºKdJó²^¿lA¼Hk¾½NdMó²e¿h_¿Hk_¿_¿OdOó²e¿h¿Idd3@ð’±–¿Idg ²a¿g°~Jdagð¥lÔZ°”kØa°˜agð•KkØa°›KlÔ[°Œagð•NkØa°“NlÔ^°…agð–OkØa°’OlÔ_°g –g°Idg •¿g_dgð™¿LO gð²LOggOgð´LOgggOo(320 IL:ECASE-FAIL 302 IL:HASHARRAY 273 IL:HASHARRAY 246 IL:HASHARRAY 220 %EQCODEP 200 %EQCODEP 93 %EQCODEP) (308 TEST 297 EQUAL 292 SXHASH 281 EQUAL 268 EQL 263 EQLHASHBITSFN 252 EQL 235 EQ 227 EQUAL 215 EQUAL 206 EQL 195 EQL 172 :REHASH-THRESHOLD 151 :REHASH-SIZE 130 :SIZE 111 :TEST 101 EQ 88 EQ 18 EQL) ( 315 (EQ EQL EQUAL)) 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@AH¹HZ»Jd¼BÉkð²LgIKLhgIKhgNIL (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)) EQLHASHBITSFN :D8 (IL:L (0 OBJ)) @$NIL NIL () SXHASH-PATHNAME :D8 (IL:L (0 PATHNAME)) »@É @É æHnÿålçHm÷çlåä@É æHnÿålçHm÷çlåäd@É æHnÿålçHm÷çlåäd@É æHnÿålçHm÷çlåäd@É æHnÿålçHm÷çlåä(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 $æHÒHÓnÿåààà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ÿåààà@Óãâææ@d“d²4jdH”Il ð‘JJH æ[nÿålçKm÷çlåäºHIkÔ¹X°Ö3²`@Ld3 –¿@nÿÿåÃ—@È@ÈæLÃ²@ @ æLÃ´@ @ æ@ ²Hj@ l Kó‘Kl jMNð’OO@M¶Óæ_nÿålçOm÷çlåä_¿MkÔ]°Õ@ ²2j@ lKó‘KljMNð’OOkç@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) () |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)) NIL