anchor.diff:  (defctype size-t 
       #+(or x86-64 x64 amd64):uint64 
       #-(or x86-64 x64 amd64):uint32)
  +(defctype ssize-t
  +    #+(or x86-64 x64 amd64):int64 
  +    #-(or x86-64 x64 amd64):int32)
   
   (defcfun (%create-file-mapping "CreateFileMappingA" :convention :stdcall)
       handle
  
positive.code:   (%lseek fd offset 0)
    (let ((count (- (or end (length sequence)) start)))
      (with-foreign-object (buffer :uint8 count)
        (%read fd buffer count)
        (dotimes (i count)
  	(setf (elt sequence (+ start i))
  	      (mem-aref buffer :uint8 i))))
      count))
  
  (defcfun (%flock "flock")
      :int32
  
negative.code:       (dotimes (i count)
  	(setf (mem-aref buffer :uint8 i)
  	      (elt sequence (+ start i))))
        (let ((nbytes (%write fd buffer count)))
  	(when (< nbytes 0) (get-last-error))
  	nbytes))))	
  
  (defcfun (%read "read")
      ssize-t
    (fd :int32)
    (buffer :pointer)
    (count size-t))
  