0.9.6.22:

[sbcl.git] / src / code / ntrace.lisp

diff --git a/src/code/ntrace.lisp b/src/code/ntrace.lisp
index ded1ab7..b4ca56b 100644 (file)
--- a/src/code/ntrace.lisp
+++ b/src/code/ntrace.lisp
@@ -265,12 +265,14 @@
                ;; with DEFVAR.
                (locally
                  (declare (special basic-definition arg-list))
-                 (prin1 `(,(trace-info-what info) ,@arg-list)))
+                 (prin1 `(,(trace-info-what info)
+                          ,@(mapcar #'ensure-printable-object arg-list))))
                (print-frame-call frame *standard-output*))
            (terpri)
            (trace-print frame (trace-info-print info))
            (write-sequence (get-output-stream-string *standard-output*)
-                           *trace-output*))
+                           *trace-output*)
+           (finish-output *trace-output*))
          (trace-maybe-break info (trace-info-break info) "before" frame)))
 
      (lambda (frame cookie)
@@ -307,11 +309,12 @@
             (dolist (v *trace-values*)
               (write-char #\space)
               (pprint-newline :linear)
-              (prin1 v)))
+              (prin1 (ensure-printable-object v))))
           (terpri)
           (trace-print frame (trace-info-print-after info))
           (write-sequence (get-output-stream-string *standard-output*)
-                          *trace-output*))
+                          *trace-output*)
+          (finish-output *trace-output*))
         (trace-maybe-break info
                            (trace-info-break-after info)
                            "after"