[Openmcl-cvs-notifications] r14255 - /trunk/source/level-1/l1-streams.lisp

[gb at clozure.com]

Author: gb
Date: Tue Sep 14 06:28:08 2010
New Revision: 14255

Log:
In STREAM-READ-LINE on ECHOING-TWO-WAY-STREAM, call FORCE-OUTPUT
on the output side before reading anything.

Modified:
    trunk/source/level-1/l1-streams.lisp

Modified: trunk/source/level-1/l1-streams.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-streams.lisp (original)
+++ trunk/source/level-1/l1-streams.lisp Tue Sep 14 06:28:08 2010
@@ -4016,6 +4016,7 @@
 =

 (defmethod stream-read-line ((s echoing-two-way-stream))
   (let* ((out (two-way-stream-output-stream s)))
+    (force-output out)
     (multiple-value-bind (string eof)
         (call-next-method)
       (unless eof