X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=74331bec3dcedf5398fa8b08073824ce8a8babbc;hb=3dd90b64c37103d9c86d32b6c36277a6cea4098a;hp=245e47e7a8439c605f00e62258ada6c9169778dd;hpb=f5522c7149744e4faf34313b18d0d3588d2a9d98;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 245e47e..74331be 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -939,7 +939,6 @@
 
 (macrolet ((in-fun (name fun &rest args)
              `(defun ,name (stream ,@args)
-                (force-output (two-way-stream-output-stream stream))
                 (,fun (two-way-stream-input-stream stream) ,@args))))
   (in-fun two-way-in read-char eof-error-p eof-value)
   (in-fun two-way-bin read-byte eof-error-p eof-value)