It lives!

[sod] / codegen.lisp

diff --git a/codegen.lisp b/codegen.lisp
index e941569..fc6a408 100644 (file)
--- a/codegen.lisp
+++ b/codegen.lisp
@@ -248,6 +248,7 @@
 
 (definst function (stream) (name type body)
   (pprint-logical-block (stream nil)
+    (princ "static " stream)
     (pprint-c-type type stream name)
     (format stream "~:@_~A~:@_~:@_" body)))