From f2ff9f9c2ff8150e70e0b8e18cef102ff1808a94 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Sat, 17 Apr 2010 18:31:42 +0000 Subject: [PATCH] pcl/boot.lisp: o Allow class objects as well as names for the :METHOD-CLASS argument general-info/release-20b.txt: o Update --- general-info/release-20b.txt | 2 ++ pcl/boot.lisp | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/general-info/release-20b.txt b/general-info/release-20b.txt index af48f63e2..7c076bd9d 100644 --- a/general-info/release-20b.txt +++ b/general-info/release-20b.txt @@ -54,6 +54,8 @@ New in this release: Previously, it used the current value of *PRINT-READABLY*. - DEFCLASS signals an error if the class name already names a DECLARATION. + - The :METHOD-CLASS argument to ENSURE-GENERIC-FUNCTION can be a + class object as well as a name. * Bugfixes: - On Unicode builds, printing of '|\|| and '|`| was incorrect diff --git a/pcl/boot.lisp b/pcl/boot.lisp index f63ca791c..7fea10030 100644 --- a/pcl/boot.lisp +++ b/pcl/boot.lisp @@ -25,7 +25,7 @@ ;;; ************************************************************************* (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.75 2010/03/19 15:19:03 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.76 2010/04/17 18:31:42 rtoy Exp $") (in-package :pcl) (intl:textdomain "cmucl") @@ -1900,7 +1900,9 @@ work during bootstrapping. (let ((method-class (getf ,all-keys :method-class '.shes-not-there.))) (unless (eq method-class '.shes-not-there.) (setf (getf ,all-keys :method-class) - (find-class method-class t ,env)))))) + (if (symbolp method-class) + (find-class method-class t ,env) + method-class)))))) #+loadable-pcl (progn -- GitLab