projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Incorporate some decomposition information in ucd table
[sbcl.git]
/
src
/
code
/
ntrace.lisp
diff --git
a/src/code/ntrace.lisp
b/src/code/ntrace.lisp
index
ec90233
..
912fd2c
100644
(file)
--- a/
src/code/ntrace.lisp
+++ b/
src/code/ntrace.lisp
@@
-220,7
+220,9
@@
(dolist (ele forms)
(fresh-line)
(print-trace-indentation)
(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.
(terpri)))
;;; Test a BREAK option, and if true, break.