;;;----- Licensing notice ---------------------------------------------------
;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible Object Design, an object system for C.
;;;
;;; SOD is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
(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*/)")))
;;;--------------------------------------------------------------------------