anchor.diff:                                                                      #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)))
  +                                                                    #xf8 #xf9 #xfa #xfb #xfc #xfd #xfe #xff
  +                                                                    #xff #x7f #x80 #x00
  +                                                                    #xff #xff #xff #x7f #x00 #x80 #x00 #x00)))
   
       ;; 1 byte
       (assert-equal
  
positive.code:      #x0)
      (assert-equal
       (read-fixed-length-integer 8 s)
       #xfffefdfcfbfaf9f8)))
  
  (define-test encode-fixed-length-integers ()
    (flet ((encode-test (int len expected)
  
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))
  