anchor.diff:    (case (get-properties (symbol-plist symbol) '(ifr-result ifr-type ifr-bases))
       (ifr-result :dk_operation)
       (ifr-type   :dk_attribute)
  -    (ifr-bases  :dk_interface)))
  +    (ifr-bases  :dk_interface)
  +    (otherwise
  +     (let ((tc (get symbol 'typecode)))
  +       (when tc
  +         (case (typecode-kind tc)
  +           (:tk_alias  :dk_alias)
  +           (:tk_except :dk_exception)
  +           (:tk_struct :dk_struct)
  +           (:tk_enum   :dk_enum)
  +           (:tk_value_box :dk_valuebox)
  +           (:tk_value  :dk_value)))))))
  +
   
   
   (defmethod generate-ifr-description ((tc except-typecode) symbol)
  
positive.code: ;;;  readonly attribute TypeCode type;
  ;;;  attribute StructMemberSeq members;
  
  (defclass desc-exceptiondef (CORBA:ExceptionDef)
    ((desc  :initarg :description  :accessor description)))
  
  
negative.code: ;;;                                  in long max_returned_objs);
  
  
  ;;; interface IRObject {
  ;;;   // read interface
  ;;;   readonly attribute DefinitionKind def_kind;
  (define-method op:def_kind ((obj desc-exceptiondef)) :dk_exception)
  
  ;;;   // write interface
  ;;;   void destroy ();
  (define-method op:destroy ((obj desc-exceptiondef)) nil)
  
  
  #|
  
  (CORBA:IDL "clorb:idl;interface_repository.idl" 
  