X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fgeneric-functions.lisp;h=e58c9d59424e8a4eb4104396f77e6288e6a7f99f;hb=91392754bf1d241cd6913c728268caf18eae1485;hp=14916d496206fa1b1ab98a135fd22f76502ab2c8;hpb=372989d837526e3100b364153d58181a2a563351;p=sbcl.git

diff --git a/src/pcl/generic-functions.lisp b/src/pcl/generic-functions.lisp
index 14916d4..e58c9d5 100644
--- a/src/pcl/generic-functions.lisp
+++ b/src/pcl/generic-functions.lisp
@@ -264,6 +264,8 @@
 
 (defgeneric function-keywords (method))
 
+(defgeneric generic-function-argument-precedence-order (gf))
+
 (defgeneric generic-function-lambda-list (gf))
 
 (defgeneric generic-function-pretty-arglist (generic-function))
@@ -398,6 +400,14 @@
 
 (defgeneric (setf class-slot-value) (nv class slot-name))
 
+;;; CMUCL comment (from Gerd Moellmann/Pierre Mai, 2002-10-19):
+;;;
+;;; According to AMOP, COMPUTE-EFFECTIVE-METHOD should return two
+;;; values.  Alas, the second value is only vaguely described in AMOP,
+;;; and, when asked on 2002-10-18, Gregor Kiczales said he couldn't
+;;; remember what the second value was supposed to be.  So, PCL's
+;;; COMPUTE-EFFECTIVE-METHOD returns one value as do Allegro and
+;;; Lispworks.
 (defgeneric compute-effective-method (generic-function
 				      combin
 				      applicable-methods))
@@ -440,12 +450,12 @@
 (defgeneric get-method (generic-function
 			qualifiers
 			specializers
-			&optional (errorp t)))
+			&optional errorp))
 
 (defgeneric find-method (generic-function
 			 qualifiers
 			 specializers
-			 &optional (errorp t)))
+			 &optional errorp))
 
 (defgeneric remove-named-method (generic-function-name
 				 argument-specifiers