Changeset 10812


Ignore:
Timestamp:
Sep 20, 2008, 8:24:34 PM (11 years ago)
Author:
gz
Message:

Support (make-hash-table :lock-free :shared)

File:
1 edited

Legend:

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

    r10775 r10812  
    438438    (when (and finalizeable (not weak))
    439439      (error "Only weak hash tables can be finalizeable."))
     440    (when (and (eq lock-free :shared) (not shared))
     441      (setq lock-free nil))
    440442    (multiple-value-bind (grow-threshold total-size)
    441443        (compute-hash-size (1- size) 1 rehash-threshold)
Note: See TracChangeset for help on using the changeset viewer.