anchor.diff:         (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)
  +			       :local-host-address (basic-binary-ipc.overlapped-io:local-address accept-request)
   			       :local-port (basic-binary-ipc.overlapped-io:local-port accept-request)
  -			       :remote-address (basic-binary-ipc.overlapped-io:remote-address accept-request)
  -			       :remote-port (basic-binary-ipc.overlapped-io:remote-port accept-request))
  +			       :remote-host-address (basic-binary-ipc.overlapped-io:remote-address accept-request)
  +			       :remote-port (basic-binary-ipc.overlapped-io:remote-port accept-request)
  +			       :descriptor-stream-ready t)
   	   (let ((new-descriptor (basic-binary-ipc.overlapped-io:make-socket :af-inet :sock-stream :ipproto-tcp)))
   	     (setf (client-descriptor server) new-descriptor)
   	     (alexandria:unwind-protect-case ()
  
positive.code:   (basic-binary-ipc.overlapped-io:free-request (connect-request socket)))
  
  (defmethod determinedp ((socket ipv4-tcp-stream/client))
    (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+))
  
negative.code: 		    ((eql timeout :immediate)
  		     0)
  		    (t
  		     (coerce (round (* timeout 1000)) 'integer))))
  	 (all-socket-requests (mapcar #'(lambda (socket socket-events)
  					  (mapcar #'(lambda (socket-event)
  						      (poll-socket-request socket socket-event))
  