src/class-finalize-*.lisp: Improve finalization error reporting.

[sod] / src / module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index bccc37b..83828e6 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -398,7 +398,8 @@
                                  (nil (parse-raw-class-item sub-pset)))
                              (check-unused-properties sub-pset))))
                     (nil (error () #\})))
-                (finalize-sod-class class)
+                (unless (finalize-sod-class class)
+                  (setf duff t))
                 (unless duff
                   (add-to-module *module* class))))))))