[cxml-cvs] CVS cxml/runes

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/runes
In directory common-lisp:/tmp/cvs-serv24141

Modified Files:
	ystream.lisp 
Log Message:
fixed character stream ystreams
(thanks to Nathan Bird)


--- /project/cxml/cvsroot/cxml/runes/ystream.lisp	2005/12/29 00:37:59	1.3
+++ /project/cxml/cvsroot/cxml/runes/ystream.lisp	2006/01/23 21:46:15	1.4
@@ -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))