anchor.diff:      (encode-test #x10 1 #(#x10))
       (encode-test #x80 1 #(#x80))
       (encode-test #xff 1 #(#xff))
  +    (encode-test -1 1 #(#xff))
  +    (encode-test 127 1 #(#x7f))
  +    ;; 1 byte fun with aliasing
  +    (encode-test 128 1 #(#x80))
  +    (encode-test -128 1 #(#x80))
       ;; 2 byte
       (encode-test 0 2 #(0 0))
       (encode-test #xfffe 2 #(#xfe #xff))
  +    (encode-test -1 2 #(#xff #xff))
       ;; 3 byte
       (encode-test 0 3 #(0 0 0))
       (encode-test #xfffefd 3 #(#xfd #xfe #xff))
  
positive.code:                                                                     #x00 #x00 #x00 #x00 #x00 #x0
                                                                      #xfa #xfb #xfc #xfd #xfe #xff
                                                                      #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x0
                                                                      #xf8 #xf9 #xfa #xfb #xfc #xfd #xfe #xff)))
  
      ;; 1 byte
      (assert-equal
  
negative.code:      #x0)
      (assert-equal
       (read-fixed-length-integer 8 s)
       #xfffefdfcfbfaf9f8)
      ;; Signed integers
      (assert-equal
       (read-fixed-length-integer 1 s :signed t)
       -1)
      (assert-equal
       (read-fixed-length-integer 1 s :signed t)
       127)
      (assert-equal
       (read-fixed-length-integer 1 s :signed t)
       -128)
      (assert-equal
       (read-fixed-length-integer 1 s :signed t)
       0)
      (assert-equal
       (read-fixed-length-integer 2 s :signed t)
       -1)
      (assert-equal
       (read-fixed-length-integer 2 s :signed t)
       32767)
      (assert-equal
       (read-fixed-length-integer 2 s :signed t)
       -32768)
      (assert-equal
       (read-fixed-length-integer 2 s :signed t)
       0)))
  
  (define-test encode-fixed-length-integers ()
    (flet ((encode-test (int len expected)
  