Changeset 6486

Timestamp:

May 9, 2007, 12:49:13 AM (18 years ago)

Author:

Gary Byers

Message:

Use %pname-hash to hash ... pnames.

File:

• trunk/ccl/level-0/l0-hash.lisp (modified) (3 diffs)

trunk/ccl/level-0/l0-hash.lisp

@@ -283 +283 @@
         (if (symbolp key)
           (let* ((name (if key (%svref (symptr->symvector key) target::symbol.pname-cell) "NIL")))
-            (values (mixup-hash-code (string-hash name 0 (length name))) nil))
+            (values (mixup-hash-code (%pname-hash name 0 (length name))) nil))
           (let ((hash (mixup-hash-code (strip-tag-to-fixnum key))))
             (if (immediate-p-macro key)
@@ -1055 +1055 @@
                                         (symptr->symvector key)
                                         target::symbol.pname-cell) "NIL")))
-                    (mixup-hash-code (string-hash name 0 (length name))))
+                    (mixup-hash-code (%pname-hash name (length name))))
                   (mixup-hash-code (strip-tag-to-fixnum key)))))))
          (length (uvsize vector))
@@ -1104 +1104 @@
                                         (symptr->symvector key)
                                         target::symbol.pname-cell) "NIL")))
-                    (mixup-hash-code (string-hash name 0 (length name))))
+                    (mixup-hash-code (%pname-hash name (length name))))
                   (progn
                     (unless (immediate-p-macro key)