src/method-impl.lisp: Initialize `suppliedp' flags properly.

[sod] / src / test-base.lisp

diff --git a/src/test-base.lisp b/src/test-base.lisp
index 203f91851b3b88a733fbaa76a2059ef950fda62b..915e33ded88cc440b1e85ed0422c6b0a3a2e913c 100644 (file)
--- a/src/test-base.lisp
+++ b/src/test-base.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
@@ -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'."