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:   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)
  
negative.code:   (let ((handle (make-dhandle dhandle name)))
      (unless (cl-fad:directory-exists-p (handle-pathname handle))
        (return-from allocate-dhandle nil))
  
      (unless (find-handle provider (handle-fh handle))
        (setf (gethash (handle-fh handle)
  		     (simple-provider-handles provider))
  	    handle)
        (push (handle-fh handle) (handle-children dhandle)))
  
      handle))
  
  (defun make-simple-provider (&optional local-path)
    "Make a SIMPLE-PROVIDER instance. PATH should be the local filesystem path to export, EXPORT-PATH should 
  be a string naming the mount-point that is exported by NFS."
    (let ((handle (make-mount-handle (or local-path *default-pathname-defaults*))))
      (let ((provider (make-instance 'simple-provider
  				   :mount-handle handle)))
        (setf (gethash (handle-fh handle) (simple-provider-handles provider))
  