Changeset 7897


Ignore:
Timestamp:
Dec 12, 2007, 10:50:11 AM (13 years ago)
Author:
gb
Message:

Conditionally hash symbols by address.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/l0-hash.lisp

    r7865 r7897  
    291291      (if (eq typecode target::subtag-instance)
    292292        (values (mixup-hash-code (instance.hash key)) nil)
    293         (if (symbolp key)
     293        (if #+hash-symbols-by-address nil
     294            #-hash-symbols-by-address (symbolp key)
    294295          (let* ((name (if key (%svref (symptr->symvector key) target::symbol.pname-cell) "NIL")))
    295296            (values (mixup-hash-code (%pname-hash name (length name))) nil))
     
    10781079              (if (eq typecode target::subtag-instance)
    10791080                (mixup-hash-code (instance.hash key))
    1080                 (if (symbolp key)
     1081                (if #+hash-symbols-by-address nil
     1082                    #-hash-symbols-by-address (symbolp key)
    10811083                  (let* ((name (if key (%svref
    10821084                                        (symptr->symvector key)
     
    11271129              (if (eq typecode target::subtag-instance)
    11281130                (mixup-hash-code (instance.hash key))
    1129                 (if (symbolp key)
     1131                (if #+hash-symbols-by-address nil
     1132                    #-hash-symbols-by-address (symbolp key)
    11301133                  (let* ((name (if key (%svref
    11311134                                        (symptr->symvector key)
Note: See TracChangeset for help on using the changeset viewer.