anchor.diff:  ;;  nil)
   
   (defmethod nfs-provider-lookup ((provider simple-provider) dh name)
  +  (log:debug "dh: ~S name: ~S" dh name)
  +  (when (string= name ".") (return-from nfs-provider-lookup dh))
  +
     (let ((dhandle (find-handle provider dh)))
       (if dhandle 	
   	(cond
  -	  ((string= name ".") dh)
   	  ((string= name "..") 
   	   (let ((ph (handle-parent dhandle)))
   	     (if ph 
   		 ph
   		 (error 'nfs-error :stat :noent))))
   	  (t 	   
  +	   (log:debug "Searching for ~S ~S" 
  +		      (handle-pathname dhandle) name)
   	   (let ((handle (allocate-dhandle provider dhandle name)))
   	     (if handle
   		 (handle-fh handle)
  
positive.code: 	 (hash (sxhash pathname))
  	 (handle 
  	  (%make-handle :hash hash
  			:fh (let ((v (nibbles:make-octet-vector 8)))
  			      (setf (nibbles:ub64ref/be v 0) hash)
  			      v)
  			:pathname pathname
  			:directory-p (and (cl-fad:directory-pathname-p pathname)
  					  (cl-fad:directory-exists-p pathname)
  
negative.code:   pathname
    directory-p
    parent ;; nfs directory handle of the parent (or nil if toplevel export directory)
    children ;; nfs handles of children
    )
  
  (defun make-handle (dhandle name)
    (declare (type handle dhandle)
  