Skip to content
Snippets Groups Projects
Commit 4bbc6932 authored by rtoy's avatar rtoy
Browse files

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.
parent b2173f8b
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(file-comment (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) (in-package :pcl)
...@@ -402,7 +402,9 @@ ...@@ -402,7 +402,9 @@
(supplied-meta (getf initargs :metaclass unsupplied)) (supplied-meta (getf initargs :metaclass unsupplied))
(supplied-supers (getf initargs :direct-superclasses unsupplied)) (supplied-supers (getf initargs :direct-superclasses unsupplied))
(meta (cond ((neq supplied-meta unsupplied) (meta (cond ((neq supplied-meta unsupplied)
(find-class supplied-meta)) (if (classp supplied-meta)
supplied-meta
(find-class supplied-meta)))
((or (null class) ((or (null class)
(forward-referenced-class-p class)) (forward-referenced-class-p class))
*the-class-standard-class*) *the-class-standard-class*)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment