anchor.diff:  ;;        attribute IDLType               element_type_def;
   
   (define-ir-class array-def (CORBA:ArrayDef idltype)
  -  :id "IDL:omg.org/CORBA/ArrayDef:1.0"
     :def_kind :dk_array
     :attributes ((length 0)
                  (element_type_def)))
  
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: ;;;; PrimitiveDef
  
  (define-ir-class primitive-def (corba:PrimitiveDef idltype)
    :def_kind :dk_primitive
    :attributes ((kind))
    :slots ((type :initarg :type)) ; add initarg
  )
  
  
  (defmethod print-object ((obj primitive-def) stream)
    (print-unreadable-object (obj stream :type t :identity t)
  