From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Wed, 31 Aug 2005 20:41:44 +0000 (+0000)
Subject: 0.9.4.23:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ccc6c35c6d30b2c600c1388052b36f3a7dc08361;p=sbcl.git

0.9.4.23:
	As requested by some climacs developers, be a bit more careful
	when printing objects in TRACE.
---

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*)
diff --git a/version.lisp-expr b/version.lisp-expr
index 0d899a1..3f50e67 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.4.22"
+"0.9.4.23"