X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fgeneric-functions.lisp;h=87348181038448730c2a3f8cf4ac750074df1449;hb=3d9d3088982414ca5617caf62bd37b4fecac29b6;hp=f91adbf35b8c33e9ed2f4f392c00f0e8126dbdc1;hpb=7ffdb2f586bf545334b64e639e9e78c30c2063d6;p=sbcl.git

diff --git a/src/pcl/generic-functions.lisp b/src/pcl/generic-functions.lisp
index f91adbf..8734818 100644
--- a/src/pcl/generic-functions.lisp
+++ b/src/pcl/generic-functions.lisp
@@ -332,8 +332,6 @@
 
 (defgeneric compute-effective-slot-definition-initargs (class direct-slotds))
 
-(defgeneric default-initargs (class supplied-initargs))
-
 (defgeneric describe-object (object stream))
 
 (defgeneric direct-slot-definition-class (class initargs))
@@ -419,6 +417,8 @@
 
 (defgeneric compute-slot-accessor-info (slotd type gf))
 
+(defgeneric default-initargs (class initargs defaults))
+
 (defgeneric find-method-combination (generic-function type options))
 
 (defgeneric (setf slot-accessor-function) (function slotd type))