Skip to content
Snippets Groups Projects
Commit 7615a812 authored by pmai's avatar pmai
Browse files

Committed patch by Gerd Moellmann to add the AMOP-mandated generic function

generic-function-argument-precedence-order.  Closes the Entomotomy bug
generic-function-argument-precedence-order-missing.
parent 221fc7d1
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment