Don't pass user-defined strings to printf().

This allows % to be safely used in lisp symbol names which pass
through the groveler, such as the following:

(cvar ("errno" %errno) :int)

diff --git a/grovel/grovel.lisp b/grovel/grovel.lisp
index e582fe9..4c2da1a 100644 (file)
--- a/grovel/grovel.lisp
+++ b/grovel/grovel.lisp
@@ -89,7 +89,7 @@ int main(int argc, char**argv) {
 
 (defun c-format (out fmt &rest args)
   (let ((text (unescape-for-c (format nil "~?" fmt args))))
-    (format out "~&  fprintf(output, \"~A\");~%" text)))
+    (format out "~&  fputs(\"~A\", output);~%" text)))
 
 (defun c-printf (out fmt &rest args)
   (flet ((item (item)