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