X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fdebug.lisp;h=ae59919ed9941b9ba7b583f753a93211d5234124;hb=5ecef987f3847ed5de8c03f66ef9d8ab468af993;hp=84c120d4f6c6a2aed1f99048ab025b1328ee47de;hpb=8902b8b6bd2e9285749dd39d313b33b6c69c5213;p=sbcl.git

diff --git a/src/compiler/debug.lisp b/src/compiler/debug.lisp
index 84c120d..ae59919 100644
--- a/src/compiler/debug.lisp
+++ b/src/compiler/debug.lisp
@@ -662,7 +662,7 @@
 
 ;;; Dump some info about how many TNs there, and what the conflicts data
 ;;; structures are like.
-(defun pre-pack-tn-stats (component &optional (stream *error-output*))
+(defun pre-pack-tn-stats (component &optional (stream *standard-output*))
   (declare (type component component))
   (let ((wired 0)
 	(global 0)