[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2014-06-34-g7211ebf

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  7211ebf377b1b4025ab8424d6f31109fa7489479 (commit)
      from  e9be6b48a40993444db72d4a9434b9eb44099f65 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 7211ebf377b1b4025ab8424d6f31109fa7489479
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Jul 31 19:56:40 2014 -0700

    CLEAR-OUTPUT should call STREAM-CLEAR-OUTPUT for Gray streams.
    
    See ticket #101. This fixes item 1 of that bug report.

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 0e27cba..6cb5256 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -1103,7 +1103,7 @@
       ;; lisp-stream
       (funcall (lisp-stream-misc stream) stream :clear-output)
       ;; fundamental-stream
-      (stream-force-output stream)))
+      (stream-clear-output stream)))
   nil)
 
 (defun write-byte (integer stream)

-----------------------------------------------------------------------

Summary of changes:
 src/code/stream.lisp |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)


hooks/post-receive
-- 
CMU Common Lisp