X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fntrace.lisp;h=912fd2c34634ce8366990d9385bf5c0825266d47;hb=f41b718f89090d00e2625f103e29281061800729;hp=ec902337cfebdb52996517a319a03910d7fec42a;hpb=71bc8b09fc75083ea4bb2aee954abca1f1e1f214;p=sbcl.git

diff --git a/src/code/ntrace.lisp b/src/code/ntrace.lisp
index ec90233..912fd2c 100644
--- a/src/code/ntrace.lisp
+++ b/src/code/ntrace.lisp
@@ -220,7 +220,9 @@
   (dolist (ele forms)
     (fresh-line)
     (print-trace-indentation)
-    (format t "~@<~S ~_= ~S~:>" (car ele) (funcall (cdr ele) frame))
+    (format t "~@<~S ~_= ~:[; No values~;~:*~{~S~^, ~}~]~:>"
+            (car ele)
+            (multiple-value-list (funcall (cdr ele) frame)))
     (terpri)))
 
 ;;; Test a BREAK option, and if true, break.