From: Nikodemus S. <de...@us...> - 2007-11-12 17:14:54
|
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 |