anchor.diff:  
   (defun advance-file-position (fstream count)
     (file-position fstream (+ (file-position fstream) count)))
  +
  +(defun copy-bytes (instream outstream count)
  +  (dotimes (i count)
  +    (write-byte (read-byte in) out)))
  
positive.code: 			     :element-type '(unsigned-byte 8)
  			     :if-does-not-exist :create
  			     :if-exists :supersede)
  	      (dotimes (i blocksize)
  		(write-byte (read-byte in) out))
  	      (format t " *~%")))))))
  
  (defun read-uint32 (instream)
  
negative.code:     (dotimes (blocknum (+ count start))
        (let ((network (read-uint32 in))
  	    (blocksize (read-uint32 in)))
  	(format t "block offset ~7d - net 0x~X size ~d"
  		blocknum
  		network blocksize)
  	(if (< blocknum start)
  