anchor.diff:  		      (accept-buffer accept-buffer)
   		      (accept-buffer-size accept-buffer-size))
   	 server
  -       (let ((accepted-client-descriptor (client-descriptor client-descriptor)))
  +       (let ((accepted-client-descriptor client-descriptor))
   	 (prog1 (make-instance 'ipv4-tcp-stream/server
   			       :descriptor accepted-client-descriptor
   			       :local-address (basic-binary-ipc.overlapped-io:local-address accept-request)
  
positive.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)
    (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 'connect-request)))
        (alexandria:unwind-protect-case ()
  	  (perform request descriptor)
  	(: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))
  
negative.code: 
  
  (defclass ipv4-tcp-stream/server (ipv4-tcp-stream)
    ((determinedp-request
      :initarg :determinedp-request
      :reader determinedp-request))
    (:default-initargs
     :determinedp-request (let ((rv (make-instance 'basic-binary-ipc.overlapped-io:request)))
  			  (basic-binary-ipc.overlapped-io:set-event rv)
  			  rv)))
  
  (defmethod close-socket ((socket ipv4-tcp-stream/server))
    (call-next-method)
    (basic-binary-ipc.overlapped-io:free-request (determinedp-request socket)))
  
  (defmethod determinedp ((socket ipv4-tcp-stream/server))
    t)
  