X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/678b6c0f7fe1d62abdf249b173a8a922c4e5c1d3..243cffbf70b9e0155a17563a66efbb6bf34c820c:/src/c-types-impl.lisp

diff --git a/src/c-types-impl.lisp b/src/c-types-impl.lisp
index 89a7c27..5bd9703 100644
--- a/src/c-types-impl.lisp
+++ b/src/c-types-impl.lisp
@@ -472,6 +472,7 @@
 		     (when spacep (c-type-space stream))
 		     (funcall print-kernel stream 2 nil)
 		     (pprint-indent :block 4 stream)
+		     (pprint-newline :linear stream)
 		     (pprint-logical-block
 			 (stream nil :prefix "(" :suffix ")")
 		       (funcall print-args stream))))))
@@ -513,8 +514,9 @@
     (stream (type c-function-type) &optional colon atsign)
   (declare (ignore colon atsign))
   (format stream "~:@<~
-		  FUN ~@_~:I~/sod:print-c-type/~
-		  ~{ ~_~:<~S ~@_~/sod:print-c-type/~:>~}~
+		  FUN ~@_~:I~
+		  ~/sod:print-c-type/~:[~; ~]~:*~_~
+		  ~<~@{~:<~S ~@_~/sod:print-c-type/~:>~^ ~_~}~:>~
 		  ~:>"
 	  (c-type-subtype type)
 	  (mapcar (lambda (arg)