X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fntrace.lisp;h=1c8b58aceb2ec17bfd8321e0d454a2f02499ec12;hb=11214915e9b3151ec66dc3e30e1aa7638c676428;hp=bade4f9870554cee517f098823ed5c6c078b5267;hpb=a0e89f991d9bb20341ea9a944c8fe2acf7f96b21;p=sbcl.git

diff --git a/src/code/ntrace.lisp b/src/code/ntrace.lisp
index bade4f9..1c8b58a 100644
--- a/src/code/ntrace.lisp
+++ b/src/code/ntrace.lisp
@@ -203,7 +203,7 @@
   (dolist (ele forms)
     (fresh-line)
     (print-trace-indentation)
-    (format t "~S = ~S" (car ele) (funcall (cdr ele) frame))))
+    (format t "~@<~S ~_= ~S~:>" (car ele) (funcall (cdr ele) frame))))
 
 ;;; Test a BREAK option, and break if true.
 (defun trace-maybe-break (info break where frame)