Changeset 11070


Ignore:
Timestamp:
Oct 13, 2008, 4:06:15 PM (11 years ago)
Author:
gz
Message:

Remove a duplicate form

File:
1 edited

Legend:

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

    r10978 r11070  
    409409    (report-bad-arg rehash-size '(or fixnum (real 1 *))))
    410410  (unless (fixnump size) (report-bad-arg size 'fixnum))
    411   (when (and (eq lock-free :shared) (not shared))
    412     (setq lock-free nil))
    413411  (setq rehash-threshold (/ 1.0 (max 0.01 rehash-threshold)))
    414412  (let* ((default-hash-function
Note: See TracChangeset for help on using the changeset viewer.