X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fbraid.lisp;h=ca670369853dcbfa2cbad8da82055756df37afdf;hb=9a2e730f74641e7de6ad4099111db92c5ad863bf;hp=246b911e9604082e0b2e5614888972cd5a8e417d;hpb=8fa3b333d2b37f45c3702f478f784b8c6f491080;p=sbcl.git

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 246b911..ca67036 100644
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -578,7 +578,7 @@
               (sb-kernel:order-layout-inherits
                (map 'simple-vector #'class-wrapper
                     (reverse (rest (class-precedence-list class))))))
-      (sb-kernel:register-layout layout)
+      (sb-kernel:register-layout layout :invalidate nil)
 
       ;; Subclasses of formerly forward-referenced-class may be
       ;; unknown to CL:FIND-CLASS and also anonymous. This