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:       (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:     :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)))
  
  