anchor.diff:  		    ((eql timeout :immediate)
   		     0)
   		    (t
  -		     (coerce (round (/ timeout 1000)) 'integer))))
  +		     (coerce (round (* timeout 1000)) 'integer))))
   	 (all-socket-requests (mapcar #'(lambda (socket socket-events)
   					  (mapcar #'(lambda (socket-event)
   						      (poll-socket-request socket socket-event))
  
positive.code:        (close-socket server)))
      server))
  
  (defclass ipv4-tcp-stream (descriptor-stream-mixin)
    ((local-address
      :initarg :local-address
      :reader local-address)
     (local-port
      :initarg :local-port
      :reader local-port)
     (remote-address
      :initarg :remote-address
      :reader remote-address)
     (remote-port
      :initarg :remote-port
      :reader remote-port)))
  
  (defmethod connection-succeeded-p ((socket ipv4-tcp-stream))
    (with-accessors ((read-request read-request)) socket
      (or (and (basic-binary-ipc.overlapped-io:completedp read-request)
  	     (basic-binary-ipc.overlapped-io:succeededp read-request))
  	t)))
  
  (defmethod connection-failed-p ((socket ipv4-tcp-stream))
    (with-accessors ((read-request read-request)) socket
      (and (basic-binary-ipc.overlapped-io:completedp read-request)
  	 (basic-binary-ipc.overlapped-io:failedp read-request))))
  
  
  (defclass ipv4-tcp-stream/server (ipv4-tcp-stream)
    ((determinedp-request
  
negative.code:        (let ((accepted-client-descriptor client-descriptor))
  	 (prog1 (make-instance 'ipv4-tcp-stream/server
  			       :descriptor accepted-client-descriptor
  			       :local-host-address (basic-binary-ipc.overlapped-io:local-address accept-request)
  			       :local-port (basic-binary-ipc.overlapped-io:local-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 ()
  