anchor.diff:     (accept-request
       :initarg :accept-request
       :reader accept-request)
  -   (local-address
  -    :initarg :local-address
  -    :reader local-address)
  -   (local-port
  -    :initarg :local-port
  -    :reader local-port)
  +   (host-address
  +    :initarg :host-address
  +    :reader host-address)
  +   (port
  +    :initarg :port
  +    :reader port)
      (accept-buffer
       :initarg :accept-buffer
       :reader accept-buffer)
  
positive.code: 	 (server (make-instance 'ipv4-tcp-server
  				:descriptor descriptor
  				:client-descriptor client-descriptor
  				:local-address host-address
  				:local-port port)))
      (alexandria:unwind-protect-case ()
  	(basic-binary-ipc.overlapped-io:accept-ipv4 descriptor
  						    client-descriptor
  
negative.code:   (basic-binary-ipc.overlapped-io:completedp (connect-request socket)))
  
  (defun connect-to-ipv4-tcp-server (host-address port &key local-host-address local-port)
    (let ((local-host-address (or local-host-address +ipv4-loopback+))
  	(local-port (or local-port 0)))
      (labels ((perform (descriptor request)
  	       (basic-binary-ipc.overlapped-io:connect-ipv4 descriptor
  							    host-address port
  							    request
  							    local-host-address local-port)
  	       (make-instance 'ipv4-tcp-stream/client
  			      :descriptor descriptor
  			      :connect-request request
  			      :local-address (basic-binary-ipc.overlapped-io:local-address request)
  			      :local-port (basic-binary-ipc.overlapped-io:local-port request)
  			      :remote-address (basic-binary-ipc.overlapped-io:remote-address request)
  			      :remote-port (basic-binary-ipc.overlapped-io:remote-port request))))
        (let ((descriptor (basic-binary-ipc.overlapped-io:make-socket :af-inet :sock-stream :ipproto-tcp))
  	    (request (make-instance 'basic-binary-ipc.overlapped-io:connect-ipv4-request)))
  	(alexandria:unwind-protect-case ()
  	    (perform descriptor request)
  	  (:abort
  	   (basic-binary-ipc.overlapped-io:close-socket descriptor)
  	   (basic-binary-ipc.overlapped-io:free-request request)))))))
  
  ;;;; Polling
  (defgeneric poll-socket-request (socket socket-event))
  