 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-length compressor) 0))
</pre>


<p><a name='write-bits'>[Function]</a><br>
<b>write-bits</b> <i>code</i> <i>size</i> <i>compressor</i> => |

<blockquote>
Writes <i>size</i> low bits of the integer <i>code</i> to the output
buffer of 