X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fboot.lisp;h=40c13b4e63dfa2e807d932d86752950424cfda12;hb=3a618201c9f2370bb8784217a866d000371769e5;hp=53bc73e7900b2205f18b3077b6aa8d900a7c3b69;hpb=14a5cc591c5e22277c1cff4e9395cab5d2d58f8d;p=sbcl.git

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index 53bc73e..40c13b4 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -1524,8 +1524,6 @@ bootstrapping.
 		 *))))
 
 (defun defgeneric-declaration (spec lambda-list)
-  (when (consp spec)
-    (setq spec (get-setf-fun-name (cadr spec))))
   `(ftype ,(ftype-declaration-from-lambda-list lambda-list spec) ,spec))
 
 ;;;; early generic function support