Plaster

text
((lambda (file) (with-open-file (c-buffer file :direction :output :if-exists :supersede) (labels ((c-lang (expr) (format c-buffer "~A~%" expr))) (c-lang (c-directive :include "stdio" t) (c-function "main" :integer nil (list (c-parameter :integer "argc") (c-parameter :char "arv[]" t) (c-number "a" nil 100) (c-return :integer nil "a"))))))) "test.lang.c")