Changeset 12581


Ignore:
Timestamp:
Aug 15, 2009, 2:02:02 PM (10 years ago)
Author:
gz
Message:

Don't cache MEMBER ctypes with members where equal and eql are not equivalent, since the caching scheme uses equal to compare

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-typesys.lisp

    r12467 r12581  
    15101510            (setq locked t)
    15111511            (if (or (symbolp spec)
    1512                     (and (consp spec) (symbolp (car spec))))
     1512                    (and (consp spec)
     1513                         (symbolp (car spec))
     1514                         ;; hashing scheme uses equal, so only use when equivalent to eql
     1515                         (not (and (eq (car spec) 'member)
     1516                                   (some (lambda (x)
     1517                                           (typep x '(or cons string bit-vector pathname)))
     1518                                         (cdr spec))))))
    15131519              (let* ((idx (hash-type-specifier spec)))
    15141520                (incf probes)
Note: See TracChangeset for help on using the changeset viewer.