[Openmcl-cvs-notifications] r10867 - /trunk/source/level-0/l0-hash.lisp

[gz at clozure.com]

Author: gz
Date: Wed Sep 24 12:24:19 2008
New Revision: 10867

Log:
Default to lock-free for shared hash tables

Modified:
    trunk/source/level-0/l0-hash.lisp

Modified: trunk/source/level-0/l0-hash.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-0/l0-hash.lisp (original)
+++ trunk/source/level-0/l0-hash.lisp Wed Sep 24 12:24:19 2008
@@ -371,7 +371,7 @@
   "Be sure that you understand the implications of changing this
 before doing so.")
 =

-(defparameter *lock-free-hash-table-default* #+(or gz ccl-0711) :shared #-=
(or gz ccl-0711) nil
+(defparameter *lock-free-hash-table-default* :shared
   "If NIL, hash tables default to using the standard algorithms, with lock=
s for shared tables.
    If :SHARED, shared hash tables default to using the \"lock-free\" algor=
ithm,
    which is faster for typical access but slower for rehashing or growing =
the table.