Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5871/src/code

Modified Files:
	debug.lisp 
Log Message:
0.8.20.4: unbreak debugger even more
           * use *DEBUG-IO* more consistently.




Index: debug.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/debug.lisp,v
retrieving revision 1.74
retrieving revision 1.75
diff -u -d -r1.74 -r1.75
--- debug.lisp	2 Mar 2005 06:45:48 -0000	1.74
+++ debug.lisp	2 Mar 2005 09:54:45 -0000	1.75
@@ -747,7 +747,8 @@
     (/noshow "done with EVAL in DEBUG-EVAL-PRINT")
     (dolist (value values)
       (fresh-line *debug-io*)
-      (prin1 value))))
+      (prin1 value *debug-io*)))
+  (force-output *debug-io*))
 
 ;;;; debug loop functions