anchor.diff:  					      (:pointer dword) bytes-sent
   					      (:pointer (:struct overlapped)) overlapped
   					      bool)))
  -	(check-socket-overlapped #'make-connectex-function "ConnectEx" rv)
  -	(values rv (%ff-wsa-get-last-error))))))
  +	(check-socket-overlapped #'make-connectex-function "ConnectEx" rv)))))
   
   (defun accept-ipv4-socket-addresses (request)
     (check-type request accept-ipv4-request)
  
positive.code: 					       listen-socket accept-socket buffer
  					       received-data-length local-address-length remote-address-length
  					       ptr-bytes-read (overlapped-structure request))
  	(declare (ignore rv))
  	(ecase error
  	  (:no-error
  	   (setf (bytes-read request) (cffi:mem-ref ptr-bytes-read 'dword))
  	   (%ff-set-event (event-handle request))
  	   (accept-ipv4-socket-addresses request))
  	  (:wsa-io-pending
  	   (setf (bytes-read request) nil
  		 (local-address request) nil
  		 (local-port request) nil
  		 (remote-address request) nil
  		 (remote-port request) nil))))))
    (setf (descriptor request) listen-socket)
    request)
  
  (defclass connect-ipv4-request (request)
  
negative.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))
  	  (cond
  	    ((= rv +true+)
  	     (%ff-set-event request))
  	    ((eql error :wsa-io-pending))
  	    (t
  	     (error "Unsupported error encountered in CONNECT-IPV4: ~A" error)))))
        (setf (descriptor request) socket)
        (values socket request))))
  
  