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

[sod] / src / builtin.lisp

diff --git a/src/builtin.lisp b/src/builtin.lisp
index c49f263..4d5b5cd 100644 (file)
--- a/src/builtin.lisp
+++ b/src/builtin.lisp
@@ -539,7 +539,8 @@ static const SodClass *const ~A__cpl[] = {
 
     ;; Done.
     (dolist (class classes)
-      (finalize-sod-class class)
+      (unless (finalize-sod-class class)
+       (error "Failed to finalize built-in class"))
       (add-to-module module class))))
 
 (export '*builtin-module*)