diff --git a/pcl/generic-functions.lisp b/pcl/generic-functions.lisp index 54cd8ecf83f0ea533877a5e86b2ce2c36a597b0e..83212458eb4bae90836293aecf3e2d5cea6afe8c 100644 --- a/pcl/generic-functions.lisp +++ b/pcl/generic-functions.lisp @@ -2,7 +2,7 @@ ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/generic-functions.lisp,v 1.12 2002/10/11 15:15:03 pmai Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/generic-functions.lisp,v 1.13 2002/10/19 13:27:41 pmai Exp $") ;;; (in-package :pcl) @@ -656,7 +656,17 @@ (defgeneric (setf class-slot-value) (nv class slot-name)) ; (t std-class t) -(defgeneric compute-effective-method (generic-function combin applicable-methods)) +;;; +;;; 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)) ; (generic-function long-method-combination t) ; (generic-function short-method-combination t) ; (generic-function standard-method-combination t)