anchor.diff:  ;;;; Container
   
   (define-ir-class Container (CORBA:Container irobject)
  -  :id "IDL:omg.org/CORBA/Container:1.0"
     :slots ((contents :initarg :contents
                       :initform '()
  -                    :accessor contents))
  -  :defaults ())
  +                    :accessor contents)))
   
   
   (defmethod slot-updated :after ((obj Container))
  
positive.code: ;;;; EnumDef
  
  (define-ir-class enum-def (corba:EnumDef typedef-def)
    :id "IDL:omg.org/CORBA/EnumDef:1.0"
    :attributes ((members))
    :def_kind :dk_enum
    :defaults ())
  
  (defmethod idltype-tc ((obj enum-def))
    (create-enum-tc (op:id obj) (op:name obj) (op:members obj)))
  
  ;;;; interface ExceptionDef : Contained
  ;;;  readonly attribute TypeCode type;
  ;;;  attribute StructMemberSeq members;
  
  (define-ir-class exception-def (corba:ExceptionDef contained container irtypecode-mixin)
    :id "IDL:omg.org/CORBA/ExceptionDef:1.0"
    :def_kind :dk_exception
    :attributes ((members)))
  
  
negative.code: ;;;; AttributeDef
  
  (define-ir-class attribute-def (CORBA:AttributeDef contained)
    :def_kind :dk_attribute
    :attributes ((type_def)
                 (mode)))
  
  
  (define-method type ((adef attribute-def))
    (op:type (op:type_def adef)))
  