X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=2bc1aa71a87620ca654c9b71c5fba5d45be2d86f;hb=d06e99b8e2f7901a6774b2d7da0f1ae1bc6dd8d5;hp=30f0e68ac7b723cb9ebb0087fd43503a7ed0d607;hpb=a3706c5d9d95ebb5a14e7ab7313c5781e5c86713;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 30f0e68..2bc1aa7 100644
--- 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)