anchor.diff:    (setf (buffer request) buffer
   	(buffer-length request) buffer-length
   	(client-descriptor request) accept-socket
  +	(descriptor request) listen-socket
   	(succeededp request) nil)
     (%ff-reset-event (event-handle request))
     (let* ((local-address-length (+ 16 (cffi:foreign-type-size '(:struct sockaddr-in))))
  
positive.code: 	(multiple-value-bind (rv error) (funcall fn socket name (cffi:foreign-type-size '(:struct sockaddr-in))
  						 (cffi:null-pointer) 0 (cffi:null-pointer)
  						 (overlapped-structure request))
  	  (declare (ignore rv))
  	  (ecase error
  	    (:no-error
  	     (%ff-set-event request))
  	    (:wsa-io-pending))))
        (setf (descriptor request) socket)
        (values socket request))))
  
  
negative.code: 					       listen-socket accept-socket buffer
  					       received-data-length local-address-length remote-address-length
  					       ptr-bytes-read (overlapped-structure request))
  	(cond
  	  ((= rv +true+)
  	   (setf (bytes-read request) (cffi:mem-ref ptr-bytes-read 'dword))
  	   (%ff-set-event (event-handle request))
  	   (accept-ipv4-socket-addresses request))
  	  ((eql error :wsa-io-pending)
  	   (setf (bytes-read request) nil
  		 (local-address request) nil
  		 (local-port request) nil
  		 (remote-address request) nil
  		 (remote-port request) nil))
  	  (t
  	   (error "Unsupported error encountered in ACCEPT-IPV4: ~A" error))))))
    request)
  
  (defclass connect-ipv4-request (request)
  