anchor.diff:           (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))
  +    `(export (defun ,(intern (format nil "READ-~A" const-name))
            (stream &key (endian :little))
          ,docstring
  -       (read-uint stream ,const-name :endian endian))))
  +       (read-uint stream ,const-name :endian endian)))))
   
   (defmacro define-unsigned-writer (const-name)
     (let ((docstring
  
positive.code:        ,docstring
         (write-uint stream n ,const-name :endian endian))))
  
  (defmacro defunsigned (const-name)
    `(progn
       (define-unsigned-reader ,const-name)
       (define-unsigned-writer ,const-name)))
  
  (defunsigned U32)
  (defunsigned U16)
  (defunsigned U8)
  
  (defun twos-complement (n size)
    (if (zerop (logand (ash 1 (* (- size 1) 8)) n))
  
negative.code: 
  ;;; "binary" goes here. Hacks and glory await!
  
  
  (defun octets (stream length)
    "Read length bytes from the stream."
  