anchor.diff:  
   (defmacro define-unsigned-reader (const-name)
     (let ((docstring
  -	 (format nil
  -		 "Read an unsigned ~A-bit integer from a stream."
  -		 (subseq  (format nil "~A" const-name) 1))))
  +         (format nil
  +                 "Read an unsigned ~A-bit integer from a stream."
  +                 (subseq  (format nil "~A" const-name) 1))))
       `(defun ,(intern (format nil "READ-~A" const-name))
  -	 (stream &key (endian :little))
  +         (stream &key (endian :little))
          ,docstring
          (read-uint stream ,const-name :endian endian))))
   
   (defmacro define-unsigned-writer (const-name)
     (let ((docstring
  -	 (format nil
  -		 "Write an unsigned ~A-bit integer to a stream."
  -		 (subseq  (format nil "~A" const-name) 1))))
  +         (format nil
  +                 "Write an unsigned ~A-bit integer to a stream."
  +                 (subseq  (format nil "~A" const-name) 1))))
       `(defun ,(intern (format nil "WRITE-~A" const-name))
  -	 (stream n &key (endian :little))
  +         (stream n &key (endian :little))
          ,docstring
          (write-uint stream n ,const-name :endian endian))))
   
  
positive.code:   (let ((bin (make-array size :element-type '(unsigned-byte 8))))
      (dotimes (i size)
        (setf (aref bin i)
  	    (logand 255 (ash n (- 0 (* i 8))))))
      (cond
        ((eql endian :little) bin)
        ((eql endian :big)    (nreverse bin))
  
negative.code: (defun int-from-bytes (bin &key (endian :little))
    "Produce a signed integer from the binary array input."
    (twos-complement (uint-from-bytes bin :endian endian)
                     (length bin)))
  
  (defun int-to-bytes (n size &key (endian :little))
    "Produce a binary array of size bytes from the provided signed
  