(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)
("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*/)")))
;;;--------------------------------------------------------------------------