From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 26 Mar 2017 14:16:18 +0000 (+0100)
Subject: src/class-utilities.lisp: Improve reporting of multiple root classes.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/df4fa4b95453ebaff0a24e25f09b522b6b0a2e12

src/class-utilities.lisp: Improve reporting of multiple root classes.
---

diff --git a/src/class-utilities.lisp b/src/class-utilities.lisp
index 38cb75e..5b3021f 100644
--- a/src/class-utilities.lisp
+++ b/src/class-utilities.lisp
@@ -212,10 +212,15 @@ (defun find-root-superclass (class)
 						   (sod-class-chains super)))
 					 supers)))
 		    (list class))))
-    (cond ((null roots) (error "Class ~A has no root class!" class))
-	  ((cdr roots) (error "Class ~A has multiple root classes ~
-			       ~{~A~#[~; and ~;, ~]~}"
-			      class roots))
+    (cond ((null roots)
+	   (error "Class ~A has no root class!" class))
+	  ((cdr roots)
+	   (cerror* "Class ~A has multiple root classes ~
+		     ~{~#[~;~A~;~A and ~A~:; ~@{~A, ~#[~;and ~A~]~}~]~}"
+		    class roots)
+	   (let ((state (make-inheritance-path-reporter-state class)))
+	     (dolist (root roots)
+	       (report-inheritance-path state root))))
 	  (t (car roots)))))
 
 (export 'find-root-metaclass)