Changeset 6534


Ignore:
Timestamp:
May 9, 2007, 9:10:05 AM (15 years ago)
Author:
gb
Message:

Fix bad call to %pname-hash.

File:
1 edited

Legend:

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

    r6486 r6534  
    283283        (if (symbolp key)
    284284          (let* ((name (if key (%svref (symptr->symvector key) target::symbol.pname-cell) "NIL")))
    285             (values (mixup-hash-code (%pname-hash name 0 (length name))) nil))
     285            (values (mixup-hash-code (%pname-hash name (length name))) nil))
    286286          (let ((hash (mixup-hash-code (strip-tag-to-fixnum key))))
    287287            (if (immediate-p-macro key)
Note: See TracChangeset for help on using the changeset viewer.