anchor.diff:  					     (ecase socket-event
   					       (connection-available-p
   						(connection-available-p socket))
  +					       (remote-disconnected-p
  +						(remote-disconnected-p socket))
   					       (ready-to-write-p
   						(ready-to-write-p socket))
   					       (data-available-p
  
positive.code:       (setf read-buffer (cffi:null-pointer)))))
  
  (defmethod ready-to-write-p ((socket file-handle-stream))
    (and (basic-binary-ipc.overlapped-io:completedp (write-request socket))
         (basic-binary-ipc.overlapped-io:succeededp (write-request socket))))
  
  (defmethod data-available-p ((socket file-handle-stream))
  
negative.code:   (determinedp-request socket))
  
  (defmethod poll-socket-request ((socket local-stream) (socket-event (eql 'connection-failed-p)))
    (read-request socket))
  
  (defmethod poll-socket-request ((socket local-stream) (socket-event (eql 'remote-disconnected-p)))
    (read-request socket))
  
  (defun poll-socket (socket socket-events timeout)
  