anchor.diff:            :argument (CORBA:Any :any-typecode cseq)
             :arg_modes ARG_OUT)
            0)
  +      (declare (ignore result))
         ;; FIXME: definition kind
         (add-arg req "limit_type" ARG_IN CORBA:tc_long limit-type)
         (add-arg req "exclude_inherit" ARG_IN CORBA:tc_boolean exclude-inherit)
  -      (request-invoke req))))
  +      (request-funcall req))))
   
   
   (defun interface-from-def-cached (def)
  
positive.code:         :argument (CORBA:Any :any-typecode result-tc)
          :arg_modes ARG_OUT)
         0)
      (request-invoke req)))
  
  (defun opdef-from-attrdef (irdef)
    (let ((name (get-attribute irdef "_get_name" CORBA:tc_string))
  
negative.code:         :arg_modes ARG_OUT)
         0)
      (declare (ignore result))
      (or (request-funcall req)
          (error "InterfaceRepository does not know about ~A" id))))
  
  (defun get-attribute (obj getter result-tc)
  