Changeset 6486


Ignore:
Timestamp:
May 9, 2007, 7:49:13 AM (15 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/l0-hash.lisp

    r6428 r6486  
    283283        (if (symbolp key)
    284284          (let* ((name (if key (%svref (symptr->symvector key) target::symbol.pname-cell) "NIL")))
    285             (values (mixup-hash-code (string-hash name 0 (length name))) nil))
     285            (values (mixup-hash-code (%pname-hash name 0 (length name))) nil))
    286286          (let ((hash (mixup-hash-code (strip-tag-to-fixnum key))))
    287287            (if (immediate-p-macro key)
     
    10551055                                        (symptr->symvector key)
    10561056                                        target::symbol.pname-cell) "NIL")))
    1057                     (mixup-hash-code (string-hash name 0 (length name))))
     1057                    (mixup-hash-code (%pname-hash name (length name))))
    10581058                  (mixup-hash-code (strip-tag-to-fixnum key)))))))
    10591059         (length (uvsize vector))
     
    11041104                                        (symptr->symvector key)
    11051105                                        target::symbol.pname-cell) "NIL")))
    1106                     (mixup-hash-code (string-hash name 0 (length name))))
     1106                    (mixup-hash-code (%pname-hash name (length name))))
    11071107                  (progn
    11081108                    (unless (immediate-p-macro key)
Note: See TracChangeset for help on using the changeset viewer.