anchor.diff:  ;;;; ModuleDef
   
   (define-ir-class module-def (CORBA:ModuleDef container contained)
  -  :id "IDL:omg.org/CORBA/ModuleDef:1.0"
  -  :def_kind :dk_module
  -  :defaults ())
  +  :def_kind :dk_module)
   
   
   (defmethod describe-contained ((module module-def))
  
positive.code: ;;;; OperationDef
  
  (define-ir-class operation-def (CORBA:OperationDef contained)
    :id "IDL:omg.org/CORBA/OperationDef:1.0"
    :attributes ((result :readonly :virtual result)
                 (result_def)
                 (params nil)
                 (mode ':op_normal)
                 (contexts nil)
                 (exceptions nil))
    :def_kind :dk_operation )
  
  (defun validate-operation-def (mode result params exceptions)
    (when (eq mode :op_oneway)
  
negative.code: ;;  attribute IDLType element_type_def;
  
  (define-ir-class sequence-def (corba:SequenceDef IDLType)
    :def_kind :dk_sequence
    :attributes ((bound 0)                  ; long
                 ;;(element_type :readonly) ; TypeCode
  