X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=b6c435c5e9efed5b61a8992594f3c11f1b3f0b5e;hb=ee5629ee974ee8ce7a1cb245a99e94f8943ffd90;hp=8905c3469327677894cb5a9b4b80f3e3c9c72f24;hpb=dd04bd449535e9016b5652a708a3cac2ca24c87d;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 8905c34..b6c435c 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -880,7 +880,7 @@
     (%ensure-classoid-valid class2 layout2)))
 
 (defun update-object-layout-or-invalid (object layout)
-  (if (typep (classoid-of object) 'standard-classoid)
+  (if (layout-for-std-class-p (layout-of object))
       (sb!pcl::check-wrapper-validity object)
       (sb!c::%layout-invalid-error object layout)))