X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=9f43912edef5246e960ef919c442091a68c77904;hb=2fe7ca730f378505f86a7553462fa3241185d444;hp=6dc9fd33e6ba51f8f34bde6c6495cacb8d17495b;hpb=104ee7ee303efa16e415f5e75df635ac54dba733;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 6dc9fd3..9f43912 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -403,6 +403,14 @@
 	 (when restp
 	       `(&rest ,(intern "Discriminating Function &rest Arg")))))
 
+(defmethod generic-function-argument-precedence-order
+    ((gf standard-generic-function))
+  (aver (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))