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))