X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fmacros.lisp;h=2add735d9fe6e264d79bb1d2924eddecde7bb695;hb=ec735ab75335c1744b39190314142a7e6f1ecdb3;hp=baec9382f55a137527920f67e64986d3539e491e;hpb=56f96e77ade913d6363a3068c94e60f44ae9b3e7;p=sbcl.git

diff --git a/src/pcl/macros.lisp b/src/pcl/macros.lisp
index baec938..2add735 100644
--- a/src/pcl/macros.lisp
+++ b/src/pcl/macros.lisp
@@ -180,13 +180,7 @@
 	  (when (and new-value (class-wrapper new-value))
 	    (setf (find-class-cell-predicate cell)
 		  (fdefinition (class-predicate-name new-value))))
-	  (when (and new-value (not (forward-referenced-class-p new-value)))
-
-	    (dolist (keys+aok (find-class-cell-make-instance-function-keys
-			       cell))
-	      (update-initialize-info-internal
-	       (initialize-info new-value (car keys+aok) nil (cdr keys+aok))
-	       'make-instance-function))))
+	  (update-ctors 'setf-find-class :class new-value :name symbol))
 	new-value)
       (error "~S is not a legal class name." symbol)))