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: 	      (basic-binary-ipc.overlapped-io:failedp request)))))
  
  (defmethod connection-failed-p ((socket local-stream))
    (not (connection-succeeded-p socket)))
  
  (defun make-local-server (pathname &key &allow-other-keys)
  
negative.code:     :initarg :connect-request
      :reader connect-request)))
  
  (defmethod close-socket ((socket local-server))  
    (basic-binary-ipc.overlapped-io:close-handle (descriptor socket))
    (basic-binary-ipc.overlapped-io:free-request (connect-request socket)))
  
  