src/frontend.lisp: Report an error if no output types are requested.

[sod] / src / frontend.lisp

diff --git a/src/frontend.lisp b/src/frontend.lisp
index 0336d1a..f1694ab 100644 (file)
--- a/src/frontend.lisp
+++ b/src/frontend.lisp
@@ -169,6 +169,10 @@
                                             reason))
                           nil)))))
 
+             ;; If there are no output types then there's nothing to do.
+             (unless output-reasons
+               (error "No output types given: nothing to do"))
+
              ;; If we're writing the builtin module then now seems like a
              ;; good time to do that.
              (when builtinsp