anchor.diff:      (loop :for num-read :from 0
             :for i :from start :below end
             :for the-byte = (bit-read-bits bitio byte-width bit-endian NIL :eof)
  -          :do (when (equal :the-byte :eof)
  +          :do (when (equal the-byte :eof)
                   (return-from bit-read-sequence num-read))
                 (incf num-read)
                 (setf (aref seq i) the-byte)))
  
positive.code:   (funcall (%bitio/read-octet bitio)
             (octet-stream bitio)
             eof-error-p eof-value))
  
  ;; Axion's old code.
  (defun read-integer (byte-buffer &key (bytes 1) (bit-width 8) (unsignedp t) (endian :be))
    (let ((value 0))
      (ecase endian
        (:be (loop :for i :from (* (1- bytes) bit-width) :downto 0 :by bit-width
                   :for byte = (fast-io:fast-read-byte byte-buffer)
                   :do (setf (ldb (byte bit-width i) value) byte)))
        (:le (loop :for i :below (* bit-width bytes) :by bit-width
                   :for byte = (fast-io:fast-read-byte byte-buffer)
                   :do (setf (ldb (byte bit-width i) value) byte))))
      (if unsignedp
          value
          (logior (* (ldb (byte 1 (1- bytes)) value)
                     (- (expt 2 (* bytes bit-width))))
                  value))))
  
  ;; Assumptions:
  ;; 1) The individual bits of an octet have canonical positions of:
  
negative.code:     ;; Note: we can only consume up to the amount in the stable, so
      ;; if there is an EOF we cannot detect it here yet.
      (multiple-value-bind (prefix-stable-bits num-prefix-stable-bits-read)
          (consume-read-bit-stable bitio bits-remaining-to-read bit-endian)
  
        (decf bits-remaining-to-read num-prefix-stable-bits-read)
  
  