From ca4e2366c140bec0d0af240c653fc258efc1df21 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Sun, 10 Mar 2013 19:05:59 +0400 Subject: [PATCH] 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. --- NEWS | 2 ++ src/code/stream.lisp | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/NEWS b/NEWS index 9e0fa13..6937c27 100644 --- 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 --- 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) -- 1.7.10.4