From 0547fc152d20674ffe38339a8cea94aaa33faee7 Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Wed, 6 Jan 1999 14:30:07 +0000
Subject: [PATCH] Backout previous change to ensure-class-values. There is more
 to this bug than previously thought.

---
 pcl/std-class.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp
index 59e98bab0..860a06a0d 100644
--- a/pcl/std-class.lisp
+++ b/pcl/std-class.lisp
@@ -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)
-- 
GitLab