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