From ccc6c35c6d30b2c600c1388052b36f3a7dc08361 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 31 Aug 2005 20:41:44 +0000 Subject: [PATCH] 0.9.4.23: As requested by some climacs developers, be a bit more careful when printing objects in TRACE. --- src/code/ntrace.lisp | 5 +++-- version.lisp-expr | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) 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" -- 1.7.10.4