Skip to content
Snippets Groups Projects
Commit 0547fc15 authored by pw's avatar pw
Browse files

Backout previous change to ensure-class-values. There is more to

this bug than previously thought.
parent 11495538
No related branches found
No related tags found
No related merge requests found
......@@ -26,7 +26,7 @@
;;;
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.19 1999/01/06 13:43:47 pw Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.20 1999/01/06 14:30:07 pw Exp $")
;;;
(in-package :pcl)
......@@ -379,9 +379,10 @@
(cond ((classp s) s)
((not (legal-class-name-p s))
(error "~S is not a class or a legal class name." s))
#+cmu17
#||notyet #+cmu17
((eq s 'lisp:standard-class) ; map from lisp to pcl
*the-class-standard-class*)
||#
(t
(or (find-class s nil)
(setf (find-class s)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment