nore input start))
  (incf (data-length compressor) count))

(defmethod <a href='#finish-data-format'>finish-data-format</a> :after ((compressor foo-compressor))
  (let ((length (data-length compressor)))
    (write-octet (ldb (byte 8 24) length) compressor)
    (write-octet (ldb (byte 8 16) length) compressor)
    (write-octet (ldb (byte 8  8) length) compressor)
    (write-octet (ldb (byte 8  0) length) compressor)))

(defmethod <a href='#reset'>reset</a> :after ((compressor foo-compressor))
  (setf (data