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

Fix to make method-combination options work for the long form of

define-method-combination, as submitted by Gerd Moellmann some time
ago.
parent bae8490f
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defcombin.lisp,v 1.12 2001/09/23 19:02:12 pmai Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defcombin.lisp,v 1.13 2002/08/13 21:15:24 pmai Exp $")
;;; ;;;
(in-package :pcl) (in-package :pcl)
...@@ -259,9 +259,10 @@ ...@@ -259,9 +259,10 @@
(declare (ignore nms cm-args)) (declare (ignore nms cm-args))
(apply (apply
#'(lambda (generic-function type options) #'(lambda (generic-function type options)
(declare (ignore generic-function options)) (declare (ignore generic-function))
(make-instance 'long-method-combination (make-instance 'long-method-combination
:type type :type type
:options options
:documentation doc)) :documentation doc))
args)) args))
:definition-source `((define-method-combination ,type) :definition-source `((define-method-combination ,type)
......
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