anchor.diff:       #x0)
       (assert-equal
        (read-fixed-length-integer 8 s)
  -     #xfffefdfcfbfaf9f8)))
  +     #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)
  
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:     (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))
  