From 668f35f11922a3997c748cb48fd3230b8a6d0671 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) --- runes/ystream.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/runes/ystream.lisp b/runes/ystream.lisp index dd0940a..a0641bd 100644 --- a/runes/ystream.lisp +++ b/runes/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))