diff --git a/pcl/generic-functions.lisp b/pcl/generic-functions.lisp index 93158a8f6be23d18d6e0a818e66ac8d092f9b1fa..54cd8ecf83f0ea533877a5e86b2ce2c36a597b0e 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.11 2002/10/09 14:19:11 pmai Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/generic-functions.lisp,v 1.12 2002/10/11 15:15:03 pmai Exp $") ;;; (in-package :pcl) @@ -150,6 +150,9 @@ (defgeneric generic-function-name (standard-generic-function)) ; (standard-generic-function) +(defgeneric generic-function-argument-precedence-order (generic-function)) +; (standard-generic-function) + (defgeneric gf-arg-info (standard-generic-function)) ; (standard-generic-function) diff --git a/pcl/methods.lisp b/pcl/methods.lisp index bba7a2e9ba570b52614b57e5d40c6c7035537a07..121b1f19b2eff953c1827e20f5bc02ca0db8fd8b 100644 --- a/pcl/methods.lisp +++ b/pcl/methods.lisp @@ -26,7 +26,7 @@ ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.16 2002/09/09 15:02:56 pmai Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.17 2002/10/11 15:15:03 pmai Exp $") ;;; (in-package :pcl) @@ -505,6 +505,14 @@ ;;; ;;; +(defmethod generic-function-argument-precedence-order + ((gf standard-generic-function)) + (assert (eq *boot-state* 'complete)) + (loop with arg-info = (gf-arg-info gf) + with lambda-list = (arg-info-lambda-list arg-info) + for argument-position in (arg-info-precedence arg-info) + collect (nth argument-position lambda-list))) + (defmethod generic-function-lambda-list ((gf generic-function)) (gf-lambda-list gf))