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

[sod] / src / module-output.lisp

diff --git a/src/module-output.lisp b/src/module-output.lisp
index f61eb929b51af1098e08c125363efbfd3ad20005..8632a029d5a8882756524da1629e3d9677b1f20e 100644 (file)
--- a/src/module-output.lisp
+++ b/src/module-output.lisp
@@ -113,7 +113,9 @@ (defmethod hook-output progn ((module module) (reason (eql :h)) sequencer)
      (:guard :start)
      (:typedefs :start) :typedefs (:typedefs :end)
      (:includes :start) :includes (:includes :end)
      (:guard :start)
      (:typedefs :start) :typedefs (:typedefs :end)
      (:includes :start) :includes (:includes :end)

-     (:classes :start) :classes (:classes :end)
+     (:early-user :start) :early-user (:early-user :end)
+     (:classes :start) (:classes :end)
+     (:user :start) :user (:user :end)

      (:guard :end)
      :epilogue)
 
      (:guard :end)
      :epilogue)
 


@@ -161,7 +163,9 @@ (defmethod hook-output progn ((module module) (reason (eql :c)) sequencer)
     :constraint
     (:prologue
      (:includes :start) :includes (:includes :end)
     :constraint
     (:prologue
      (:includes :start) :includes (:includes :end)

+     (:early-user :start) :early-user (:early-user :end)

      (:classes :start) (:classes :end)
      (:classes :start) (:classes :end)

+     (:user :start) :user (:user :end)

      :epilogue)
 
     (:prologue
      :epilogue)
 
     (:prologue