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: 	(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:   (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))))
  