Index: /branches/working-0711/ccl/level-0/l0-hash.lisp
===================================================================
--- /branches/working-0711/ccl/level-0/l0-hash.lisp	(revision 7896)
+++ /branches/working-0711/ccl/level-0/l0-hash.lisp	(revision 7897)
@@ -291,5 +291,6 @@
       (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,5 +1079,6 @@
               (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,5 +1129,6 @@
               (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)