[bknr-cvs] hans changed trunk/thirdparty/trivial-gray-streams/mixin.lisp

[BKNR Commits]

Revision: 4372
Author: hans
URL: http://bknr.net/trac/changeset/4372

clisp fixes
U   trunk/thirdparty/trivial-gray-streams/mixin.lisp

Modified: trunk/thirdparty/trivial-gray-streams/mixin.lisp
===================================================================
--- trunk/thirdparty/trivial-gray-streams/mixin.lisp	2009-04-09 05:57:32 UTC (rev 4371)
+++ trunk/thirdparty/trivial-gray-streams/mixin.lisp	2009-04-09 06:53:29 UTC (rev 4372)
@@ -79,7 +79,7 @@
       (error "this stream does not support the NO-HANG argument"))
     (when interactive
       (error "this stream does not support the INTERACTIVE argument"))
-    (stream-read-sequence s seq start end))
+    (stream-read-sequence s seq start (or end (length seq))))
 
   (defmethod gray:stream-write-byte-sequence
       ((s trivial-gray-stream-mixin)
@@ -89,15 +89,15 @@
       (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))
+    (stream-write-sequence s seq start (or end (length seq))))
 
   (defmethod gray:stream-read-char-sequence
       ((s trivial-gray-stream-mixin) seq &optional start end)
-    (stream-read-sequence s seq start end))
+    (stream-read-sequence s seq start (or end (length seq))))
 
   (defmethod gray:stream-write-char-sequence
       ((s trivial-gray-stream-mixin) seq &optional start end)
-    (stream-write-sequence s seq start end))
+    (stream-write-sequence s seq start (or end (length seq))))
 
   (defmethod gray:stream-position ((stream trivial-gray-stream-mixin) position)
     (if position