X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ftarget-disassem.lisp;h=dc238740062b0c565327b7a3097d7edb617ae503;hb=243d0f6f598c3a47adcc06923066263ee3051003;hp=547348154aaac7d5777d757b85ef0a345c2934ad;hpb=91a071d43c4fdca0ad2fb6ad488453fa1bcc9ed1;p=sbcl.git

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