This is like CL:WRITE-SEQUENCE, but for Gray streams.
(stream sb-gray::seq &optional sb-gray::start sb-gray::end)