Changeset 12581

Timestamp:

Aug 15, 2009, 2:02:02 PM (11 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:

• trunk/source/level-1/l1-typesys.lisp (modified) (1 diff)

trunk/source/level-1/l1-typesys.lisp

@@ -1510 +1510 @@
             (setq locked t)
             (if (or (symbolp spec)
-                    (and (consp spec) (symbolp (car spec))))
+                    (and (consp spec)
+                         (symbolp (car spec))
+                         ;; hashing scheme uses equal, so only use when equivalent to eql
+                         (not (and (eq (car spec) 'member)
+                                   (some (lambda (x)
+                                           (typep x '(or cons string bit-vector pathname)))
+                                         (cdr spec))))))
               (let* ((idx (hash-type-specifier spec)))
                 (incf probes)