anchor.diff:          :arg_modes ARG_OUT)
          0)
       (declare (ignore result))
  -    (or (request-invoke req)
  +    (or (request-funcall req)
           (error "InterfaceRepository does not know about ~A" id))))
   
   (defun get-attribute (obj getter result-tc)
  
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:           :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-funcall req))))
  
  
  (defun interface-from-def-cached (def)
  