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