src/: Make pretty-printing better at handling tight margins.

[sod] / src / c-types-test.lisp

diff --git a/src/c-types-test.lisp b/src/c-types-test.lisp
index 6022991b08e254d19493f2268ce507da8d1aa4f9..483d1222b3eed88abf00668a916c2d434c9e048f 100644 (file)
--- a/src/c-types-test.lisp
+++ b/src/c-types-test.lisp
@@ -58,6 +58,7 @@ (defun expand-tabs (string)
 
 (defun assert-pp-ctype (type kernel string)
   (let* ((*print-right-margin* 77)
+        (*print-pretty* t)
         (print (with-output-to-string (out)
                  (pprint-c-type type out kernel))))
     (assert-equal (expand-tabs print) (expand-tabs string)
@@ -240,10 +241,10 @@ (def-test-method commentify-non-recursive ((test c-types-test) :run nil)
                                 ("nopenfd" int))))
                   "ftw"
                   (format nil "~
-int ftw(const char */*dirpath*/,
-       int (*/*fn*/)(const char *fpath,
-                     const struct stat *sb,
-                     int typeflag),
+int ftw
+       (const char */*dirpath*/,
+       int (*/*fn*/)
+              (const char *fpath, const struct stat *sb, int typeflag),
        int /*nopenfd*/)")))
 
 ;;;--------------------------------------------------------------------------