diff --git a/pcl/defcombin.lisp b/pcl/defcombin.lisp index 8d6b7bc6d3121fac8e11a3ba3d2eaeea943cd930..b62c0ff4f5ffcf298f754d57824b78ebb1e4a96c 100644 --- a/pcl/defcombin.lisp +++ b/pcl/defcombin.lisp @@ -26,7 +26,7 @@ ;;; (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) @@ -259,9 +259,10 @@ (declare (ignore nms cm-args)) (apply #'(lambda (generic-function type options) - (declare (ignore generic-function options)) + (declare (ignore generic-function)) (make-instance 'long-method-combination :type type + :options options :documentation doc)) args)) :definition-source `((define-method-combination ,type)