X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fntrace.lisp;h=a400ff777a61c200abc833e2ff1f6e3e2af91ff7;hb=5a9b7fcee7cd5374010d7a5b05463b84abc35079;hp=b4ca56b703a19722bd841193c770d9839b591e8d;hpb=ccc6c35c6d30b2c600c1388052b36f3a7dc08361;p=sbcl.git

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*)