From 50a41c44fc080cb4b9289797db232e854bf019d5 Mon Sep 17 00:00:00 2001 From: pmai <pmai> Date: Mon, 9 Sep 2002 16:48:45 +0000 Subject: [PATCH] Renaming of do-short-method-combination to make-short-method-combination, as per patch from Gerd Moellmann. --- pcl/defcombin.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pcl/defcombin.lisp b/pcl/defcombin.lisp index c7cb789c3..f39f5c290 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))) -- GitLab