[Sbcl-commits] CVS: sbcl/src/compiler proclaim.lisp,1.33,1.34

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv20403/src/compiler

Modified Files:
	proclaim.lisp 
Log Message:
1.0.11.22: hash-table synchronization support

* :SYNCHRONIZED argument to MAKE-HASH-TABLE.

* HASH-TABLE-SYNCHRONIZED-P predicate.

* WITH-LOCKED-HASH-TABLE for coarser locks.

* Additional MAPHASH & WITH-HASH-TABLE-ITERATOR documentation.

* :LOCKED argument added to DOHASH, and used where appropriate
  (some usages might be overly conservative, though, and could
  be removed.)


Index: proclaim.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/proclaim.lisp,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- proclaim.lisp	14 Apr 2006 17:57:57 -0000	1.33
+++ proclaim.lisp	12 Nov 2007 17:14:51 -0000	1.34
@@ -234,7 +234,7 @@
              (setf (classoid-state class) :sealed)
              (let ((subclasses (classoid-subclasses class)))
                (when subclasses
-                 (dohash (subclass layout subclasses)
+                 (dohash ((subclass layout) subclasses :locked t)
                    (declare (ignore layout))
                    (setf (classoid-state subclass) :sealed))))))))
       (optimize