src/lexer-{proto,impl}.lisp: Add explicit recovery action to `error'.

[sod] / src / module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index bccc37b71ace3714b4fe85135238bca1243b67b6..83828e680e072d93eb920ecce31244e61d18d613 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -398,7 +398,8 @@ (defun parse-class-body (scanner pset name supers)
                                  (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))))))))