X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=8d5b2f06844aca93d7156616131434ff457a224d;hb=a74b0bdb483504f6faddf8089f848f61ed94b92a;hp=c836f803603f5ae9119545a9fb1577e2ba29c359;hpb=342b4bc80d748ced4f8b949ddb3e5b290520fe7d;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index c836f80..8d5b2f0 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -508,12 +508,9 @@
 	    (when remove-again-p
 	      (remove-method generic-function method))))
 	(unless skip-dfun-update-p
-	  (when (member name
-			'(make-instance default-initargs
-			  allocate-instance shared-initialize
-			  initialize-instance))
-	    (update-make-instance-function-table (type-class
-						  (car specializers))))
+	  (update-ctors 'add-method
+			:generic-function generic-function
+			:method method)
 	  (update-dfun generic-function))
 	method)))
 
@@ -529,11 +526,9 @@
       (dolist (specializer (method-specializers method))
 	(remove-direct-method specializer method))
       (set-arg-info generic-function)
-      (when (member name
-		    '(make-instance
-		      default-initargs
-		      allocate-instance shared-initialize initialize-instance))
-	(update-make-instance-function-table (type-class (car specializers))))
+      (update-ctors 'remove-method
+		    :generic-function generic-function
+		    :method method)
       (update-dfun generic-function)
       generic-function)))