From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 25 May 2016 16:15:48 +0000 (+0100)
Subject: src/c-types-test.lisp, src/test-base.lisp: Force pretty-printing.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/d0b51392829a7360833694df5dcb2bdc96e3606f?ds=inline

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

It seems that later `xlunit' versions turn this off.
---

diff --git a/src/c-types-test.lisp b/src/c-types-test.lisp
index 6022991..06af0d4 100644
--- 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)
diff --git a/src/test-base.lisp b/src/test-base.lisp
index e629357..915e33d 100644
--- a/src/test-base.lisp
+++ b/src/test-base.lisp
@@ -45,8 +45,9 @@ (defvar *sod-test-suite*
 		 :description "Top-level test for the Sod translator."))
 
 (defun assert-princ (object string)
-  (let ((*print-right-margin* 77)
-	(print (princ-to-string object)))
+  (let* ((*print-right-margin* 77)
+	 (*print-pretty* t)
+	 (print (princ-to-string object)))
     (assert-equal print string
 		  (format nil "Assert princ: ~S ~_prints as `~A' ~_~
 			       rather than `~A'."