[cl-plus-ssl-cvs] CVS update: trivial-gray-streams/mixin.lisp

[David Lichteblau]

Update of /project/cl-plus-ssl/cvsroot/trivial-gray-streams
In directory common-lisp.net:/tmp/cvs-serv8529

Modified Files:
	mixin.lisp 
Log Message:
stream-read/write-char-sequence fuer clisp

Date: Fri Nov 25 23:40:12 2005
Author: dlichteblau

Index: trivial-gray-streams/mixin.lisp
diff -u trivial-gray-streams/mixin.lisp:1.2 trivial-gray-streams/mixin.lisp:1.3
--- trivial-gray-streams/mixin.lisp:1.2	Fri Nov 25 21:08:44 2005
+++ trivial-gray-streams/mixin.lisp	Fri Nov 25 23:40:12 2005
@@ -69,6 +69,14 @@
       (error "this stream does not support the NO-HANG argument"))
     (when interactive
       (error "this stream does not support the INTERACTIVE argument"))
+    (stream-write-sequence s seq start end))
+
+  (defmethod gray:stream-read-char-sequence
+      ((s trivial-gray-stream-mixin) seq &optional start end)
+    (stream-read-sequence s seq start end))
+
+  (defmethod gray:stream-write-char-sequence
+      ((s trivial-gray-stream-mixin) seq &optional start end)
     (stream-write-sequence s seq start end)))
 
 #+sbcl