fixed character stream ystreams

(thanks to Nathan Bird)
2006-01-23 21:46:15 +00:00
parent ffd1ff2ff9
commit 0d2716249b
1 changed files with 3 additions and 1 deletions
--- 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))