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

diff --git a/src/pcl/generic-functions.lisp b/src/pcl/generic-functions.lisp
index 44cae16..59330a5 100644
--- a/src/pcl/generic-functions.lisp
+++ b/src/pcl/generic-functions.lisp
@@ -7,9 +7,6 @@
 ;;;; warranty. See the COPYING and CREDITS files for more information.
 
 (in-package "SB-PCL")
-
-(sb-int:file-comment
-  "$Header$")
 
 ;;;; class predicates
 
@@ -238,8 +235,6 @@
 
 (defgeneric accessor-method-slot-name (m))
 
-(defgeneric class-constructors (class))
-
 (defgeneric class-default-initargs (class))
 
 (defgeneric class-direct-default-initargs (class))
@@ -465,7 +460,7 @@
 			  operation
 			  &optional new-value))
 
-;;;; keyword arguments
+;;;; &KEY arguments
 
 (defgeneric allocate-instance (class &rest initargs))
 
@@ -475,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))