anchor.diff:  			:parent (handle-fh dhandle)
   			:directory-p (and (cl-fad:directory-pathname-p pathname)
   					  (cl-fad:directory-exists-p pathname)
  -					  t))))
  +					  t)
  +			:info (nefarious.finfo:get-file-information pathname))))
       handle))
   
   (defun make-mount-handle (path)
  
positive.code: 
  (defmethod nfs-provider-remove ((provider simple-provider) dhandle name)
    "Remove the file named HANDLE."
    (let ((dhandle (find-handle provider dhandle)))
      (if dhandle	
  	(remove-file provider dhandle name)	  
  	(error 'nfs-error :stat :bad-handle))))
  
  (defmethod nfs-provider-rename ((provider simple-provider) fdh fname tdh tname)
    "Rename the file named by the FROM-DHANDLE/FROM-NAME."
  
negative.code: (defmethod nfs-provider-attrs ((provider simple-provider) fh)
    (let ((handle (find-handle provider fh)))
      (if handle
  	(let ((info (handle-info handle))) ;;(nefarious.finfo:get-file-information (handle-pathname handle))))
  	  (make-fattr3 :type (if (handle-directory-p handle)
  				 :dir
  				 :reg)
  