anchor.diff:          :argument (CORBA:Any :any-typecode result-tc)
           :arg_modes ARG_OUT)
          0)
  -    (request-invoke req)))
  +    (declare (ignore result))
  +    (request-funcall req)))
   
   (defun opdef-from-attrdef (irdef)
     (let ((name (get-attribute irdef "_get_name" CORBA:tc_string))
  
positive.code:           :argument (CORBA:Any :any-typecode cseq)
            :arg_modes ARG_OUT)
           0)
        ;; 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))))
  
  
  (defun interface-from-def-cached (def)
  
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)
  