anchor.diff:   ((:ok set-attr-res-ok)
     (otherwise set-attr-res-fail)))
   
  -(defun handle-setattr (handle new-attrs guard)
  -  (declare (ignore handle new-attrs guard))
  -  (make-xunion :ok (make-wcc-data)))
  -
  +(defrpc call-setattr (set-attr-args set-attr-res) 2)
  +
  +(defhandler %handle-setattr (args) 2
  +  (with-slots (handle new-attrs guard) args
  +    (declare (ignore handle new-attrs guard))
  +    (make-xunion :ok (make-wcc-data))))
  +
  +
  +;; ------------------------------------------------------
  +;; LOOKUP3res NFSPROC3_LOOKUP(LOOKUP3args)           = 3;
   
   ;; lookup -- lookup filename
   (defxtype* lookup-args () dir-op-args3)
  
positive.code:   ((:ok fs-info-res-ok)
     (otherwise fs-info-res-fail)))
  
  (defun handle-fs-info (handle)
    (declare (ignore handle))
    (make-xunion :ok
  	       (make-fs-info-res-ok)))
  
  ;; pstconf -- retrieve posix information
  
  (defxtype* path-conf-args () nfs-fh3)
  
negative.code:   ((:ok write-res-ok)
     (otherwise write-res-fail)))
  
  (defrpc call-write (write-args write-res) 7)
  (defhandler %handle-write (args) 7
    (with-slots (file offset count stable opaque) args
      (declare (ignore file offset count stable opaque))
      (make-xunion :ok
  		 (make-write-res-ok :count 0
  				    :verf (make-array +nfs-write-verf-size+ 
  						      :initial-element 0)))))
  
  ;; ------------------------------------------------------
  ;; create -- create a file
  ;; CREATE3res NFSPROC3_CREATE(CREATE3args)           = 8;
  
  (defxenum create-mode3 
    ((:unchecked 0)
  