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