X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/ea578bb4b9eb4a03b2eb4ed151e058d699c216ea..db960992be5d9f269f140ac594de77301c54d7c6:/src/c-types-test.lisp

diff --git a/src/c-types-test.lisp b/src/c-types-test.lisp
index a1095db..483d122 100644
--- a/src/c-types-test.lisp
+++ b/src/c-types-test.lisp
@@ -7,7 +7,7 @@
 
 ;;;----- 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
@@ -58,6 +58,7 @@
 
 (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 @@
 				 ("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*/)")))
 
 ;;;--------------------------------------------------------------------------