anchor.diff:  
   (defmethod determinedp ((socket ipv4-tcp-stream/server))
     t)
  +
  +(defmethod connection-failed-p ((socket ipv4-tcp-stream/server))
  +  (remote-disconnected-p socket))
  +
  +(defmethod connection-succeeded-p ((socket ipv4-tcp-stream/server))
  +  (not (remote-disconnected-p socket)))
   
   (defmethod accept-connection ((server ipv4-tcp-server))
     (cond
  
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))
  