[armedbear-cvs] r14443 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Mar 22 17:02:10 2013
New Revision: 14443

Log:
Take advantage of PRINT-OBJECT functions having been defined
to create (humanly) readable output for complex data structures.

Modified:
   trunk/abcl/src/org/armedbear/lisp/trace.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/trace.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/trace.lisp	Fri Mar 22 16:05:30 2013	(r14442)
+++ trunk/abcl/src/org/armedbear/lisp/trace.lisp	Fri Mar 22 17:02:10 2013	(r14443)
@@ -84,7 +84,7 @@
       (with-standard-io-syntax
         (let ((*print-readably* nil)
               (*print-structure* nil))
-          (%format *trace-output* (indent "~D: ~S~%") *trace-depth*
+          (format *trace-output* (indent "~D: ~S~%") *trace-depth*
                   (cons name args))))
       (when breakp
         (break))
@@ -96,11 +96,11 @@
         (with-standard-io-syntax
           (let ((*print-readably* nil)
                 (*print-structure* nil))
-            (%format *trace-output* (indent "~D: ~A returned") *trace-depth* name)
+            (format *trace-output* (indent "~D: ~A returned") *trace-depth* name)
             (if results
                 (dolist (result results)
-                  (%format *trace-output* " ~S" result))
-                (%format *trace-output* " no values"))
+                  (format *trace-output* " ~S" result))
+                (format *trace-output* " no values"))
             (terpri *trace-output*)))
         (values-list results)))))