From fa30ad14ab96d08f51db73a092f8ea7bcb1763ef Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Thu, 3 Apr 2003 11:46:20 +0000
Subject: [PATCH] Add defclass-forward-referenced-class.0.

---
 pcl/rt/defclass.lisp | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/pcl/rt/defclass.lisp b/pcl/rt/defclass.lisp
index de199e900..0bbf5beda 100644
--- a/pcl/rt/defclass.lisp
+++ b/pcl/rt/defclass.lisp
@@ -28,7 +28,7 @@
 ;;; DAMAGE.
 
 #+cmu
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/defclass.lisp,v 1.2 2003/03/22 16:15:15 gerd Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/defclass.lisp,v 1.3 2003/04/03 11:46:20 gerd Exp $")
 
 (in-package "PCL-TEST")
 
@@ -175,3 +175,17 @@
     (values r (null c)))
   t t)
 
+;;;
+;;; The change of DFR1 from forward-referenced to standard class
+;;; caused problems at some point, which were fixed by passing
+;;; initargs to CHANGE-CLASS in ENSURE-CLASS-USING-CLASS.
+;;;
+(deftest defclass-forward-referenced-class.0
+    (multiple-value-bind (r c)
+	(ignore-errors
+	  (defclass dfr0 (dfr1 dfr2) ())
+	  (defclass dfr1 (dfr3 dfr4) ())
+	  t)
+      (values r (null c)))
+  t t)
+      
-- 
GitLab