clear-output: call stream-clear-output on gray streams.

clear-output should call sb-gray:stream-clear-output instead of
sb-gray:stream-force-output.

Fixes lp#1153257.

diff --git a/NEWS b/NEWS
index 9e0fa13..6937c27 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -8,6 +8,8 @@ changes relative to sbcl-1.1.5:
   * bug fix: Prevent a make-array transform from modifying source forms
     causing problems for inlined code. Thanks to Bart Botta.
    (regression since 1.0.42.11-bis)
+  * bug fix: clear-output calls the correct gray stream routine,
+    sb-gray:stream-clear-output. (lp#1153257)
 
 changes in sbcl-1.1.5 relative to sbcl-1.1.4:
   * minor incompatible change: SB-SPROF:WITH-PROFILING no longer loops

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 30f0e68..2bc1aa7 100644 (file)
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -687,7 +687,7 @@
 
 (defun clear-output (&optional (stream *standard-output*))
   (with-out-stream stream (ansi-stream-misc :clear-output)
-                   (stream-force-output))
+                   (stream-clear-output))
   nil)
 
 (defun write-byte (integer stream)