deflate-compressor)
  ((data-length
    :initarg :data-length
    :accessor data-length))
  (:default-initargs
   :data-length 0))

(defmethod <a href='#start-data-format'>start-data-format</a> :before ((compressor foo-compressor))
  (<a href='#write-octet'>write-octet</a> #xF0 compressor)
  (write-octet #x0D compressor)
  (write-octet #x00 compressor)
  (write-octet #xD1 compressor))

(defmethod <a href='#process-input'>process-input</a> :after ((compressor foo-compressor) input start count)
  (declare (ig