(defmethod gray:stream-write-sequence ((socket stream-socket) seq &optional (start 0) (end (length seq)))
(gray-stream-write-sequence socket seq start end))
(defmethod gray:stream-write-sequence ((socket stream-socket) seq &optional (start 0) (end (length seq)))
(gray-stream-write-sequence socket seq start end))