src/c-types-test.lisp, src/test-base.lisp: Force pretty-printing.

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

diff --git a/src/c-types-test.lisp b/src/c-types-test.lisp
index 0eadfe6..06af0d4 100644 (file)
--- 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)
@@ -294,6 +295,6 @@ int ftw(const char */*dirpath*/,
                      (c-type (func (* (func void (nil int)))
                                    (nil int)
                                    (nil (* (func void (nil int))))))
-                     "signal")))
+                     "signal"))
 
 ;;;----- That's all, folks --------------------------------------------------