anchor.diff:  
   (defun read-int (stream size &key (endian :little))
     (int-from-bytes (octets stream size)
  -		  :endian endian))
  +                  :endian endian))
   
   (defun write-int (stream n size &key (endian :little))
     (write-sequence (int-to-bytes n size :endian endian)
  -		  stream))
  +                  stream))
   
   (defmacro define-signed-reader (const-name)
     (let ((docstring
  -	 (format nil
  -		 "Read a signed ~A-bit integer from a stream."
  -		 (subseq  (format nil "~A" const-name) 1))))
  +         (format nil
  +                 "Read a signed ~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-int stream ,const-name :endian endian))))
   
   (defmacro define-signed-writer (const-name)
     (let ((docstring
  -	 (format nil
  -		 "Write a signed ~A-bit integer to a stream."
  -		 (subseq  (format nil "~A" const-name) 1))))
  +         (format nil
  +                 "Write a signed ~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-int stream n ,const-name :endian endian))))
   
  
positive.code: (defun uint-from-bytes (bin &key (endian :little))
    "Produce an unsigned integer from the binary array input."
    (let ((bin (cond
  	       ((eql endian :little) bin)
  	       ((eql endian :big)    (reverse bin))
  	       (t (error "Invalid endian specification."))))
  	(n 0))
      (dotimes (i (length bin))
        (setf n (+ n (ash (aref bin i) (* i 8)))))
      n))
  
negative.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))
  