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

diff --git a/src/code/ntrace.lisp b/src/code/ntrace.lisp
index f4bbf63..b4ca56b 100644
--- a/src/code/ntrace.lisp
+++ b/src/code/ntrace.lisp
@@ -265,7 +265,8 @@
                ;; 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))
@@ -308,7 +309,7 @@
             (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*)