projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Disassemble: print the size into the right stream.
[sbcl.git]
/
src
/
compiler
/
target-disassem.lisp
diff --git
a/src/compiler/target-disassem.lisp
b/src/compiler/target-disassem.lisp
index
5473481
..
dc23874
100644
(file)
--- a/
src/compiler/target-disassem.lisp
+++ b/
src/compiler/target-disassem.lisp
@@
-1428,7
+1428,7
@@
(type stream stream)
(type disassem-state dstate))
(unless (null segments)
- (format t "~&; Size: ~a bytes"
+ (format stream "~&; Size: ~a bytes"
(reduce #'+ segments :key #'seg-length))
(let ((first (car segments))
(last (car (last segments))))