Method: (STREAM-READ-SEQUENCE CBUFFER-INPUT-STREAM T T T)

Source

(defmethod stream-read-sequence ((stream cbuffer-input-stream) sequence
				 start end &key)
  (with-slots (pos cbuffer) stream
    (loop for index from start below end
	  while (< pos (cbuffer-size cbuffer))
	  do (setf (elt sequence index) (cbuffer-byte cbuffer pos)
		   pos (1+ pos))
	  finally (return index))))