0.8alpha.0.3:

[sbcl.git] / src / pcl / generic-functions.lisp

diff --git a/src/pcl/generic-functions.lisp b/src/pcl/generic-functions.lisp
index 8734818..be8ddec 100644 (file)
--- a/src/pcl/generic-functions.lisp
+++ b/src/pcl/generic-functions.lisp
@@ -328,15 +328,13 @@
 (defgeneric compute-applicable-methods-using-classes
   (generic-function classes))
 
-(defgeneric compute-effective-slot-definition (class dslotds))
-
 (defgeneric compute-effective-slot-definition-initargs (class direct-slotds))
 
 (defgeneric describe-object (object stream))
 
-(defgeneric direct-slot-definition-class (class initargs))
+(defgeneric direct-slot-definition-class (class &rest initargs))
 
-(defgeneric effective-slot-definition-class (class initargs))
+(defgeneric effective-slot-definition-class (class &rest initargs))
 
 (defgeneric legal-documentation-p (object x))
 
@@ -415,6 +413,8 @@
                                      combin
                                      applicable-methods))
 
+(defgeneric compute-effective-slot-definition (class name dslotds))
+
 (defgeneric compute-slot-accessor-info (slotd type gf))
 
 (defgeneric default-initargs (class initargs defaults))
@@ -476,8 +476,8 @@
 
 (defgeneric allocate-instance (class &rest initargs))
 
-(defgeneric ensure-class-using-class (name
-                                     class
+(defgeneric ensure-class-using-class (class
+                                     name
                                      &rest args
                                      &key &allow-other-keys))