anchor.diff:      (setf (ldb (byte 8 56) uint64) (read-byte instream))
       uint64))
   
  +(defun make-uint64 (bytevec)
  +  (let ((uint64 0))
  +    (setf (ldb (byte 8 0) varint) (elt bytevec 0))
  +    (setf (ldb (byte 8 8) uint64) (elt bytevec 1))
  +    (setf (ldb (byte 8 16) uint64) (elt bytevec 2))
  +    (setf (ldb (byte 8 24) uint64) (elt bytevec 3))
  +    (setf (ldb (byte 8 32) uint64) (elt bytevec 4))
  +    (setf (ldb (byte 8 40) uint64) (elt bytevec 5))
  +    (setf (ldb (byte 8 48) uint64) (elt bytevec 6))
  +    (setf (ldb (byte 8 56) uint64) (elt bytevec 7))
  +    uint64))
  +
   (defun advance-file-position (fstream count)
     (file-position fstream (+ (file-position fstream) count)))
   
  
positive.code: 	      (copy-bytes in out blocksize)
  	      (format t " *~%")))))))
  
  (defun read-varint (instream)
    (let ((varint 0))
      (setf (ldb (byte 8 0) varint) (read-byte instream))
  
negative.code:     (setf (ldb (byte 8 8) uint16) (read-byte instream))
      uint16))
  
  (defun make-uint16 (bytevec)
    (let ((uint16 0))
      (setf (ldb (byte 8 0) uint16) (elt bytevec 0))
      (setf (ldb (byte 8 8) uint16) (elt bytevec 1))
      uint16))
  
  (defun read-uint32 (instream)
    (let ((uint32 0))
      (setf (ldb (byte 8 0) uint32) (read-byte instream))
      (setf (ldb (byte 8 8) uint32) (read-byte instream))
      (setf (ldb (byte 8 16) uint32) (read-byte instream))
      (setf (ldb (byte 8 24) uint32) (read-byte instream))
      uint32))
  
  (defun make-uint32 (bytevec)
    (let ((uint32 0))
      (setf (ldb (byte 8 0) uint32) (elt bytevec 0))
      (setf (ldb (byte 8 8) uint32) (elt bytevec 1))
      (setf (ldb (byte 8 16) uint32) (elt bytevec 2))
      (setf (ldb (byte 8 24) uint32) (elt bytevec 3))
      uint32))
  
  (defun read-uint64 (instream)
  