X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fgeneric-functions.lisp;h=59330a5a62f5f0809d9feeeb294586371dd95f4f;hb=683874b497a99cd2c11b6c5d9b47e2785b1ede5f;hp=503d8d2b746b09d0078568856446b9f1bdd07a27;hpb=ce02ab2ecd9c6ae2e570abd8c93ebf3be55bbdad;p=sbcl.git

diff --git a/src/pcl/generic-functions.lisp b/src/pcl/generic-functions.lisp
index 503d8d2..59330a5 100644
--- a/src/pcl/generic-functions.lisp
+++ b/src/pcl/generic-functions.lisp
@@ -235,8 +235,6 @@
 
 (defgeneric accessor-method-slot-name (m))
 
-(defgeneric class-constructors (class))
-
 (defgeneric class-default-initargs (class))
 
 (defgeneric class-direct-default-initargs (class))
@@ -472,7 +470,7 @@
 				      &key &allow-other-keys))
 
 (defgeneric ensure-generic-function-using-class (generic-function
-						 function-name
+						 fun-name
 						 &key &allow-other-keys))
 
 (defgeneric initialize-instance (gf &key &allow-other-keys))