anchor.diff:    (let ((provider (nefarious:find-provider dpath)))
       (cond 
         (provider
  -       ;; push the client onto the provider's client list 
  -       (pushnew *rpc-remote-host* (nefarious:provider-clients provider) :test #'equalp)
          ;; get the mount handle 
  -       (let ((dhandle (nefarious:nfs-provider-mount provider *rpc-remote-host*)))
  -	 (make-xunion :ok
  -		      (list (nefarious:provider-handle-fh provider dhandle)
  -			    '(:auth-null)))))
  +       (handler-case 
  +           (let ((dhandle (nefarious:nfs-provider-mount provider *rpc-remote-host*)))
  +             ;; push the client onto the provider's client list 
  +             (pushnew *rpc-remote-host* (nefarious:provider-clients provider) :test #'equalp)         
  +             (make-xunion :ok
  +                          (list (nefarious:provider-handle-fh provider dhandle)
  +                                '(:auth-null))))
  +         (error (e)
  +           (log:debug "error ~A" e)
  +           (make-xunion :access nil))))
         (t 
          ;; no provider registered on that path
          (make-xunion :inval nil)))))
  
positive.code: ;; export -- return export list 
  (defxtype* groups () (:optional group-node))
  
  (defxstruct group-node ()
    (name name)
    (next groups))
  
  (defxtype* exports () (:optional export-node))
  
  
negative.code: (defrpc call-unmount 3 dir-path :void
    (:arg-transformer (dpath) dpath))
  
  (defhandler %handle-unmount (dpath 3)
    (let ((provider (nefarious:find-provider dpath)))
      (cond
        (provider
         (handler-case 
             (progn 
               ;; tell the provider the client would  like to unmount        
               (nefarious:nfs-provider-unmount provider *rpc-remote-host*)
               ;; remove the client from the provider's client list 
               (setf (nefarious:provider-clients provider)
                     (remove *rpc-remote-host* (nefarious:provider-clients provider) 
                             :test #'equalp)))
           (error (e)
             nil))
         nil)
        (t 
         nil))))
  