(let ((byte-array (byte-array-input-stream-byte-array stream))
(index (byte-array-input-stream-current stream)))
(cond ((= index (byte-array-input-stream-end stream))
(let ((byte-array (byte-array-input-stream-byte-array stream))
(index (byte-array-input-stream-current stream)))
(cond ((= index (byte-array-input-stream-end stream))