X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/e0808c472145fc81e52898bc9ac289e10c4f4f41..refs/heads/master:/src/test-base.lisp

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 @@
 		 :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'."