X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmacros.lisp;h=296aeb422b4eca6a47eaacf59ddbd510f95dd8a5;hb=c01ff86b012283af04641a02e45f066aa7cdb10c;hp=156d1e428dccacc03e6b3467e0f83d8e103c7135;hpb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;p=sbcl.git

diff --git a/src/pcl/macros.lisp b/src/pcl/macros.lisp
index 156d1e4..296aeb4 100644
--- a/src/pcl/macros.lisp
+++ b/src/pcl/macros.lisp
@@ -174,7 +174,8 @@
 	     (setf (find-classoid name) nil))
 	   (when (or (eq *boot-state* 'complete)
 		     (eq *boot-state* 'braid))
-	     (when (and new-value (class-wrapper new-value))
+	     (when (and new-value (class-wrapper new-value)
+                        (class-predicate-name new-value))
 	       (setf (find-class-cell-predicate cell)
 		     (fdefinition (class-predicate-name new-value))))
 	     (update-ctors 'setf-find-class :class new-value :name name))