anchor.diff:  ;;  ((:ok get-attr-res-ok)
   ;;   (otherwise :void)))
   
  -(defrpc %call-getattr 1 
  +(defrpc %call-get-attr 1 
     nfs-fh3 
     (:union nfs-stat3
       (:ok fattr3)
       (otherwise :void)))
   
  -(defun call-getattr (handle &key (host *nfs-host*) (port *nfs-port*) protocol)
  -  (let ((res (%call-getattr handle :host host :port port :protocol protocol)))
  +(defun call-get-attr (handle &key (host *nfs-host*) (port *nfs-port*) protocol)
  +  (let ((res (%call-get-attr handle :host host :port port :protocol protocol)))
       (if (eq (xunion-tag res) :ok)
   	(xunion-val res)
   	(error "GETATTR failed: ~A" (xunion-tag res)))))
    
  -(defhandler %handle-getattr (fh 1)
  +(defhandler %handle-get-attr (fh 1)
     (let ((handle (find-handle fh)))
       (if handle
   	(make-xunion :ok
  
positive.code: FILENAME: name to be associated with the link.
  PATH: the symbolic link data.
  ATTRS: initial attributes for the symlink."
    (%call-create-symlink (list (make-dir-op-args3 :dir dhandle 
  						 :name filename)
  			      attrs
  			      path)
  			:host host
  			:port port
  			:protocol protocol))
  
  ;;(defhandler %handle-create-symlink (args 10)
  ;;  (destructuring-bind (dirop attrs path) args
  
negative.code: 		      (elist nil))
  		     ((null entries) elist)
  		   (push (%entry3-entry entries) elist)))))
  	(error "READ-DIR failed: ~A" (xunion-tag res)))))
  		
  
  (defhandler %handle-read-dir (args 16)
  