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))