From e9c2a8effd87a26ad65642d0d618d6dd16c05b4f Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Mon, 30 Oct 2006 01:54:28 +0000
Subject: [PATCH] Handle forward-referenced classes.  This is needed to build
 McCLIM correctly.  (Patch taken from SBCL.)

---
 pcl/std-class.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp
index 97bbefd27..bb56d76f7 100644
--- a/pcl/std-class.lisp
+++ b/pcl/std-class.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.80 2005/07/07 16:44:27 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.81 2006/10/30 01:54:28 rtoy Exp $")
 
 (in-package :pcl)
 
@@ -816,6 +816,8 @@
   (when (and (not (or finalizep (class-finalized-p class)))
 	     (not (class-has-a-forward-referenced-superclass-p class)))
     (finalize-inheritance class)
+    (dolist (sub (class-direct-subclasses class))
+      (update-class sub nil))
     (return-from update-class))
   ;;
   (when (or finalizep
-- 
GitLab