Static instance support.

[sod] / src / module-output.lisp

diff --git a/src/module-output.lisp b/src/module-output.lisp
index 90ecb752005cb70e78f2a490bcf954bd33b61f0e..d09dfd8b7f238b17ea88c53acbc69250bce5b608 100644 (file)
--- a/src/module-output.lisp
+++ b/src/module-output.lisp
@@ -132,6 +132,7 @@ (defmethod hook-output ((module module) (reason (eql :h)) sequencer)
      (:includes :start) :includes :early-decls (:includes :end)
      (:early-user :start) :early-user (:early-user :end)
      (:classes :start) (:classes :end)
+     (:static-instances :start) :static-instances (:static-instances :end)
      (:user :start) :user (:user :end)
      (:guard :end)
      :epilogue)
@@ -181,6 +182,9 @@ (defmethod hook-output ((module module) (reason (eql :c)) sequencer)
     (:prologue
      (:includes :start) :includes (:includes :end)
      (:early-user :start) :early-user (:early-user :end)
+     (:static-instances :start)
+     (:static-instances :decls) (:static-instances :gap)
+     (:static-instances :end)
      (:classes :start) (:classes :end)
      (:user :start) :user (:user :end)
      :epilogue)