From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Sun, 28 May 2006 14:27:23 +0000 (+0000)
Subject: 0.9.13.7:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c6721c2ec4145261b74cef7fba96b303a277e931;p=sbcl.git

0.9.13.7:
	Give TRACE a chance (... to print return values nicely indented)
	... by binding *print-pretty* to T around the bits where we
		use the pretty printer.
---

diff --git a/src/code/module.lisp b/src/code/module.lisp
index c21efc4..369dcb2 100644
--- a/src/code/module.lisp
+++ b/src/code/module.lisp
@@ -23,7 +23,7 @@
    It is used by PROVIDE and REQUIRE.")
 
 (defvar *module-provider-functions* (list 'module-provide-contrib)
-  "See function documentation for REQUIRE")
+  "See function documentation for REQUIRE.")
 
 ;;;; PROVIDE and REQUIRE
 
diff --git a/src/code/ntrace.lisp b/src/code/ntrace.lisp
index b4ca56b..a400ff7 100644
--- a/src/code/ntrace.lisp
+++ b/src/code/ntrace.lisp
@@ -302,15 +302,16 @@
               (*standard-output* (make-string-output-stream))
               (*in-trace* t))
           (fresh-line)
-          (pprint-logical-block (*standard-output* nil)
-            (print-trace-indentation)
-            (pprint-indent :current 2)
-            (format t "~S returned" (trace-info-what info))
-            (dolist (v *trace-values*)
-              (write-char #\space)
-              (pprint-newline :linear)
-              (prin1 (ensure-printable-object v))))
-          (terpri)
+          (let ((*print-pretty* t))
+            (pprint-logical-block (*standard-output* nil)
+              (print-trace-indentation)
+              (pprint-indent :current 2)
+              (format t "~S returned" (trace-info-what info))
+              (dolist (v *trace-values*)
+                (write-char #\space)
+                (pprint-newline :linear)
+                (prin1 (ensure-printable-object v))))
+            (terpri))
           (trace-print frame (trace-info-print-after info))
           (write-sequence (get-output-stream-string *standard-output*)
                           *trace-output*)
diff --git a/version.lisp-expr b/version.lisp-expr
index 2eb1ef9..c5022ea 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.13.6"
+"0.9.13.7"