Changeset 12581
- Timestamp:
- Aug 15, 2009, 2:02:02 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-typesys.lisp
r12467 r12581 1510 1510 (setq locked t) 1511 1511 (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)))))) 1513 1519 (let* ((idx (hash-type-specifier spec))) 1514 1520 (incf probes)
Note: See TracChangeset
for help on using the changeset viewer.