Changeset 7897

Timestamp:

Dec 12, 2007, 2:50:11 AM (17 years ago)

Author:

Gary Byers

Message:

Conditionally hash symbols by address.

File:

• branches/working-0711/ccl/level-0/l0-hash.lisp (modified) (3 diffs)

branches/working-0711/ccl/level-0/l0-hash.lisp

@@ -291 +291 @@
       (if (eq typecode target::subtag-instance)
         (values (mixup-hash-code (instance.hash key)) nil)
-        (if (symbolp key)
+        (if #+hash-symbols-by-address nil
+            #-hash-symbols-by-address (symbolp key)
           (let* ((name (if key (%svref (symptr->symvector key) target::symbol.pname-cell) "NIL")))
             (values (mixup-hash-code (%pname-hash name (length name))) nil))
@@ -1078 +1079 @@
               (if (eq typecode target::subtag-instance)
                 (mixup-hash-code (instance.hash key))
-                (if (symbolp key)
+                (if #+hash-symbols-by-address nil
+                    #-hash-symbols-by-address (symbolp key)
                   (let* ((name (if key (%svref
                                         (symptr->symvector key)
@@ -1127 +1129 @@
               (if (eq typecode target::subtag-instance)
                 (mixup-hash-code (instance.hash key))
-                (if (symbolp key)
+                (if #+hash-symbols-by-address nil
+                    #-hash-symbols-by-address (symbolp key)
                   (let* ((name (if key (%svref
                                         (symptr->symvector key)