From 4aa0cca4568e48e15cb717ecd5993f0a020d42c5 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Mon, 15 Apr 2013 23:50:12 +0400 Subject: [PATCH] Disassemble: print the size into the right stream. Print the newly introduced size information to the provided stream, not to *standard-output*. Reported by Jan Moringen. --- src/compiler/target-disassem.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp index 5473481..dc23874 100644 --- 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)))) -- 1.7.10.4