anchor.diff:  	      (basic-binary-ipc.overlapped-io:failedp request)))))
   
   (defmethod connection-failed-p ((socket local-stream))
  +  (not (connection-succeeded-p socket)))
  +
  +(defmethod remote-disconnected-p ((socket local-stream))
     (not (connection-succeeded-p socket)))
   
   (defun make-local-server (pathname &key &allow-other-keys)
  
positive.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)))
  
  
negative.code: 			  (basic-binary-ipc.overlapped-io:set-event rv)
  			  rv)))
  
  (defmethod close-socket ((socket local-stream))
    (call-next-method)
    (basic-binary-ipc.overlapped-io:free-request (determinedp-request socket)))
  
  (defmethod determinedp ((socket local-stream))
    t)
  
  