Skip to content
Snippets Groups Projects
Commit 41add097 authored by pmai's avatar pmai
Browse files

Entomotomy Bug: finalize-inheritance-missing-method-on-forward-referenced-class

As noted by Gerd Moellmann, PCL needs a method on finalize-inheritance
specialized for forward-referenced-class, which signals a relevant error,
since forward-referenced-classes can't be finalized.
parent 3c596a44
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.40 2003/01/03 20:17:49 pmai Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.41 2003/01/03 20:33:01 pmai Exp $")
;;; ;;;
(in-package :pcl) (in-package :pcl)
...@@ -658,6 +658,11 @@ ...@@ -658,6 +658,11 @@
(defmethod finalize-inheritance ((class std-class)) (defmethod finalize-inheritance ((class std-class))
(update-class class t)) (update-class class t))
(defmethod finalize-inheritance ((class forward-referenced-class))
(simple-program-error
"Forward-referenced classes cannot be finalized: ~A"
class))
(defun class-has-a-forward-referenced-superclass-p (class) (defun class-has-a-forward-referenced-superclass-p (class)
(or (forward-referenced-class-p class) (or (forward-referenced-class-p class)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment