X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=b7ada1fc57e895ffc2b8372c431d5ebbe990b236;hb=05d9e55946615d14fa26d276b29072931f9dc5b5;hp=e4cd365f1207f4b51d435f0c3d9cb04837ac85ec;hpb=62f25b3b18b66ae67d555ca8a05026dbf03d89e1;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index e4cd365..b7ada1f 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -822,7 +822,7 @@ NIL is returned when no such class exists."
 (defun update-object-layout-or-invalid (object layout)
   (if (typep (classoid-of object) 'standard-classoid)
       (sb!pcl::check-wrapper-validity object)
-      (%layout-invalid-error object layout)))
+      (sb!c::%layout-invalid-error object layout)))
 
 ;;; Simple methods for TYPE= and SUBTYPEP should never be called when
 ;;; the two classes are equal, since there are EQ checks in those