From: Stas Boukarev <stassats@gmail.com>
Date: Mon, 15 Apr 2013 19:50:12 +0000 (+0400)
Subject: Disassemble: print the size into the right stream.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4aa0cca4568e48e15cb717ecd5993f0a020d42c5;p=sbcl.git

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.
---

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))))