anchor.diff:        (handler-case 
   	  (let ((geometry (get-disk-geometry handle)))
   	    (make-device :handle handle
  -			 :geometry geometry))
  +			 :geometry geometry
  +			 :bytes (geometry-bytes geometry)
  +			 :size (geometry-size geometry)))
   	(error (e)
   	  (pounds::%close-handle handle)
   	  (error e))))))
  
positive.code: 		(foreign-slot-value overlapped '(:struct pounds::overlapped)
  				    'pounds::offset-high)
  		offset-high)
  	  (pounds::%write-file (device-handle device)
  			       buffer 
  			       length 
  			       nbytes
  			       overlapped))))))
  
  
  	  
  
negative.code: 	   (type integer block)
  	   (type (vector (unsigned-byte 8)) sequence))
    (let ((count (- (or end (length sequence)) start))
  	(offset (* block (device-bytes device))))
      (pounds::read-file (device-handle device)
  		       sequence
  		       offset
  