Method: (STREAM-WRITE-SEQUENCE CBUFFER-OUTPUT-STREAM T T T)

Source

(defmethod stream-write-sequence ((stream cbuffer-output-stream) sequence
				  start end &key)
  (with-slots (pos (buf cbuffer)) stream
    (cbuffer-ensure-size buf (+ pos (- end start)))
    (loop for index from start below end
	  do (setf (cbuffer-byte buf pos) (elt sequence index)
		   pos (1+ pos))
	  finally (return sequence))))