anchor.diff:     (:fbig 8)
      (:failed 9)))
   
  +(defxstruct nlm4-res ()
  +  ((cookie netobj)
  +   (stat nlm4-stats)))
  +
   (defxstruct nlm4-holder ()
     ((exclusive :boolean)
      (svid :int32)
  
positive.code:    (mode fsh4-mode)
     (access fsh4-mode)))
  
  ;; not all the structures are defined in the spec-- wtf are they?
  
  (defrpc call-null (:void :void) 0)
  (defrpc call-test (nlm4-test-args ntlm-test-res) 1)
  (defrpc call-lock (nlm4-lock-args nlm4-res) 2)
  (defrpc call-cancel (nlm4-cancel-args nlm4-res) 3)
  (defrpc call-unlock (nlm4-unlock-args nlm4-res) 4)
  (defrpc call-granted (nlm4-test-args nlm4-res) 5)
  (defrpc call-test-msg (nlm4-test-args :void) 6)
  (defrpc call-lock-msg (nlm4-lock-args :void) 7)
  (defrpc call-cancel-msg (nlm4-cancel-args :void) 8)
  (defrpc call-unlock-msg (nlm4-unlock-args :void) 9)
  (defrpc call-granted-msg (nlm4-test-args :void) 10)
  (defrpc call-test-res (nlm4-test-res :void) 11)
  (defrpc call-lock-res (nlm4-res :void) 12)
  (defrpc call-cancel-res (nlm4-res :void) 13)
  (defrpc call-unlock-res (nlm4-res :void) 14)
  (defrpc call-granted-res (nlm4-res :void) 15)
  (defrpc call-share (nlm4-share-args nlm4-share-res) 20)
  (defrpc call-nm-lock (nlm4-lock-args nlm4-res) 22)
  (defrpc call-free-all (nlm4-notify :void) 23)
  
  
negative.code: (defconstant +nlm4-program+ 100021)
  (defconstant +nlm4-version+ 4)
  
  (defconstant +max-netobj+ 1024)
  (defxtype* netobj () (:varray* :octet +max-netobj+))
  
  (use-rpc-program +nlm4-program+ +nlm4-version+)
  
  (defxenum nlm4-stats 
  