Skip to content
Snippets Groups Projects
Commit e9c2a8ef authored by rtoy's avatar rtoy
Browse files

Handle forward-referenced classes. This is needed to build McCLIM

correctly.  (Patch taken from SBCL.)
parent 4853e787
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment