anchor.diff:  	 (hash (sxhash pathname))
   	 (handle 
   	  (%make-handle :hash hash
  -			:fh (let ((v (nibbles:make-octet-vector 8)))
  -			      (setf (nibbles:ub64ref/be v 0) hash)
  -			      v)
  +			:fh (pack-handle-fh hash 0)
   			:pathname pathname
   			:directory-p (and (cl-fad:directory-pathname-p pathname)
   					  (cl-fad:directory-exists-p pathname)
  
positive.code:       (log:debug "file doesn't exist ~S" (handle-pathname handle))
        (return-from allocate-handle nil))
  
      ;; the file exists, push it onto the list and the parent's children list
      (unless (find-handle provider (handle-fh handle))
        (setf (gethash (handle-fh handle) (simple-provider-handles provider))
  	    handle)
        (push (handle-fh handle) (handle-children dhandle)))
  
  
negative.code: ;;  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 "..") 
  	   (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)
  