X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fslots-boot.lisp;h=b2b1f21dcf2aa5a0651b2e0a6b6731e33e2a0b94;hb=b8f49ceae4a3b513de21f385bb784729d2ddff3f;hp=0514bf5ddb59ad15a3a9dd7933f76fb420f450b3;hpb=dfbfbd3f2499852904129738e13a70c9780f37a7;p=sbcl.git

diff --git a/src/pcl/slots-boot.lisp b/src/pcl/slots-boot.lisp
index 0514bf5..b2b1f21 100644
--- a/src/pcl/slots-boot.lisp
+++ b/src/pcl/slots-boot.lisp
@@ -588,7 +588,7 @@
                       (eq metaclass *the-class-funcallable-standard-class*))))))
          (save-type-check-function-p
           (unless bootstrap
-            (and save-slot-location-p (safe-p class)))))
+            (and (eq 'complete *boot-state*) (safe-p class)))))
     (flet ((add-to-vector (name slot)
              (declare (symbol name)
                       (optimize (sb-c::insert-array-bounds-checks 0)))