Method: (SAVE-BUFFER BUFFER T)

Source

(defmethod save-buffer ((buffer buffer) stream &key file-position)
  (let ((contents (contents buffer)))
    (when file-position
      (file-position stream file-position))
    (write-sequence contents stream :end (buffer-count buffer))))