X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fproclaim.lisp;h=57ad8243e0f76c25def4d4e4926a8065f8c8a0da;hb=9b1fade83db8453b75b8c7380eb12ce41b5b889c;hp=8381cd91327cf4510e0101ea9cd7fb3650d46c29;hpb=203e466f5fbb3bffa7b4beb19d87bed6f8a1b5db;p=sbcl.git

diff --git a/src/compiler/proclaim.lisp b/src/compiler/proclaim.lisp
index 8381cd9..57ad824 100644
--- a/src/compiler/proclaim.lisp
+++ b/src/compiler/proclaim.lisp
@@ -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