X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;fp=src%2Fcode%2Fstream.lisp;h=2bc1aa71a87620ca654c9b71c5fba5d45be2d86f;hb=ca4e2366c140bec0d0af240c653fc258efc1df21;hp=30f0e68ac7b723cb9ebb0087fd43503a7ed0d607;hpb=203e2acb585b1c13159bbd6ec83c61ad9c095818;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)