diff --git a/pcl/defcombin.lisp b/pcl/defcombin.lisp index c7cb789c3ab7160b8f21fd5ca8c754bf6c8ed696..f39f5c2902725d82349d5efad7f70969d68a80e3 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.15 2002/08/26 16:09:34 pmai Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defcombin.lisp,v 1.16 2002/09/09 16:48:45 pmai Exp $") ;;; (in-package :pcl) @@ -139,7 +139,7 @@ (apply (lambda (gf type options) (declare (ignore gf)) - (do-short-method-combination + (make-short-method-combination type options operator ioa new-method doc)) args)) :definition-source `((define-method-combination ,type) ,truename))) @@ -147,7 +147,7 @@ (remove-method #'find-method-combination old-method)) (add-method #'find-method-combination new-method))) -(defun do-short-method-combination (type options operator ioa method doc) +(defun make-short-method-combination (type options operator ioa method doc) (cond ((null options) (setq options '(:most-specific-first))) ((equal options '(:most-specific-first))) ((equal options '(:most-specific-last)))