Function: MAKE-CBUFFER-OUTPUT-STREAM

Source

(defun make-cbuffer-output-stream (&key
				   cbuffer
				   (position 0)
				   (external-format (make-external-format
						     :latin1)))
  (make-flexi-stream (make-instance 'cbuffer-output-stream
				    :position position
				    :cbuffer (if cbuffer
						 cbuffer
						 (make-cbuffer)))
		     :external-format external-format))