anchor.diff:  ;;;  attribute unsigned long bound;
   
   (define-ir-class string-def (corba:StringDef idltype)
  -  :id "IDL:omg.org/CORBA/StringDef:1.0"
  -  :attributes ((bound 0))
  -  :def_kind :dk_string)
  +  :def_kind :dk_string
  +  :attributes ((bound 0)))
   
   (defmethod idltype-tc ((obj string-def))
     (create-string-tc (op:bound obj)))
  
positive.code: ;;  IDLType type_def;
  
  (define-ir-class struct-def (corba:StructDef typedef-def container)
    :id "IDL:omg.org/CORBA/StructDef:1.0"
    :def_kind :dk_struct
    :attributes ((members)))
  
  
negative.code: ;;;   attribute any value; };
  
  (define-ir-class constant-def (CORBA:ConstantDef contained)
    :def_kind :dk_constant
    :attributes ((type_def)
                 (value)))
  
  
  (define-method type ((obj constant-def))
    (op:type (op:type_def obj)))
  