It lives!

[sod] / codegen.lisp

diff --git a/codegen.lisp b/codegen.lisp
index e9415690d4672fcba1e3ef668ff2a5bba21b9b9a..fc6a4088e37147de18c38374dc500d6a6ab32de4 100644 (file)
--- a/codegen.lisp
+++ b/codegen.lisp
@@ -248,6 +248,7 @@ (definst call (stream) (func args)
 
 (definst function (stream) (name type body)
   (pprint-logical-block (stream nil)
 
 (definst function (stream) (name type body)
   (pprint-logical-block (stream nil)

+    (princ "static " stream)

     (pprint-c-type type stream name)
     (format stream "~:@_~A~:@_~:@_" body)))
 
     (pprint-c-type type stream name)
     (format stream "~:@_~A~:@_~:@_" body)))