From 4bbc6932d7069cea403955a06ea587ba7d1d103f Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Mon, 23 May 2005 15:38:20 +0000 Subject: [PATCH] Patch from Gerd Moellmann, cmucl-imp, 2005-05-21: This is also for something Bruno reported: The MOP p. 47 says about ensure-class-using-class: "The :metaclass argument is a class metaobject class or a class metaobject class name." However, CMUCL 19a does not support passing a class here. --- pcl/std-class.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp index dac456aa5..e2358f555 100644 --- a/pcl/std-class.lisp +++ b/pcl/std-class.lisp @@ -26,7 +26,7 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.75 2005/01/27 14:45:58 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.76 2005/05/23 15:38:20 rtoy Exp $") (in-package :pcl) @@ -402,7 +402,9 @@ (supplied-meta (getf initargs :metaclass unsupplied)) (supplied-supers (getf initargs :direct-superclasses unsupplied)) (meta (cond ((neq supplied-meta unsupplied) - (find-class supplied-meta)) + (if (classp supplied-meta) + supplied-meta + (find-class supplied-meta))) ((or (null class) (forward-referenced-class-p class)) *the-class-standard-class*) -- GitLab