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