Method: (STREAM-READ-BYTE CBUFFER-INPUT-STREAM)

Source

(defmethod stream-read-byte ((stream cbuffer-input-stream))
  (if (stream-eof-p stream)
      :eof
      (with-slots (pos cbuffer) stream
	(let ((byte (cbuffer-byte cbuffer pos)))
	  (incf pos)
	  byte))))