From 0d2716249be11e5f0770eb9ed31d3a0934469366 Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Mon, 23 Jan 2006 21:46:15 +0000 Subject: [PATCH] fixed character stream ystreams (thanks to Nathan Bird) --- ystream.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ystream.lisp b/ystream.lisp index dd0940a..a0641bd 100644 --- a/ystream.lisp +++ b/ystream.lisp @@ -180,7 +180,9 @@ (target-stream nil)) (defmethod flush-ystream ((ystream character-stream-ystream)) - (write-string (ystream-in-buffer ystream) (ystream-target-stream ystream)) + (write-string (ystream-in-buffer ystream) + (ystream-target-stream ystream) + :end (ystream-in-ptr ystream)) (setf (ystream-in-ptr ystream) 0)) (defmethod close-ystream ((ystream character-stream-ystream))