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 (file)
--- a/src/code/ntrace.lisp
+++ b/src/code/ntrace.lisp
@@ -265,7 +265,8 @@
                ;; with DEFVAR.
                (locally
                  (declare (special basic-definition arg-list))
                ;; 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))
                (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)
             (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*)
           (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 (file)
--- 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".)
 ;;; 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"