Changeset 14255


Ignore:
Timestamp:
Sep 14, 2010, 11:28:08 AM (9 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-streams.lisp

    r14171 r14255  
    40244024(defmethod stream-read-line ((s echoing-two-way-stream))
    40254025  (let* ((out (two-way-stream-output-stream s)))
     4026    (force-output out)
    40264027    (multiple-value-bind (string eof)
    40274028        (call-next-method)
Note: See TracChangeset for help on using the changeset viewer.