anchor.diff:             BUFFER)
            (MARSHAL-SEQUENCE
              (OMG.ORG/FEATURES:PARAMETERS OBJ)
  -           (lambda (obj buffer)
  +           (LAMBDA (OBJ BUFFER)
                (STRUCT-WRITE OBJ 'OMG.ORG/CORBA:PARAMETERDESCRIPTION BUFFER))
              BUFFER)
            (MARSHAL-SEQUENCE
              (OMG.ORG/FEATURES:EXCEPTIONS OBJ)
  -           (lambda (obj buffer)
  +           (LAMBDA (OBJ BUFFER)
                (STRUCT-WRITE OBJ 'OMG.ORG/CORBA:EXCEPTIONDESCRIPTION BUFFER))
              BUFFER)))
   
  -(DEFINE-ALIAS OMG.ORG/CORBA:EXCDESCRIPTIONSEQ
  - :id "IDL:omg.org/CORBA/ExcDescriptionSeq:1.0"
  - :name "ExcDescriptionSeq"
  - :type SEQUENCE
  - :typecode (create-sequence-tc
  +(DEFINE-ALIAS OMG.ORG/CORBA:REPOSITORYIDSEQ
  + :ID "IDL:omg.org/CORBA/RepositoryIdSeq:1.0"
  + :NAME "RepositoryIdSeq"
  + :TYPE SEQUENCE
  + :TYPECODE (CREATE-SEQUENCE-TC 0 (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)))
  +
  +(DEFINE-ALIAS OMG.ORG/CORBA:OPDESCRIPTIONSEQ
  + :ID "IDL:omg.org/CORBA/OpDescriptionSeq:1.0"
  + :NAME "OpDescriptionSeq"
  + :TYPE SEQUENCE
  + :TYPECODE (CREATE-SEQUENCE-TC
                0
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:EXCEPTIONDESCRIPTION)))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:EXCEPTIONDEFSEQ
  - :id "IDL:omg.org/CORBA/ExceptionDefSeq:1.0"
  - :name "ExceptionDefSeq"
  - :type SEQUENCE
  - :typecode (create-sequence-tc
  +             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:OPERATIONDESCRIPTION)))
  +
  +(DEFINE-ALIAS OMG.ORG/CORBA:ATTRDESCRIPTIONSEQ
  + :ID "IDL:omg.org/CORBA/AttrDescriptionSeq:1.0"
  + :NAME "AttrDescriptionSeq"
  + :TYPE SEQUENCE
  + :TYPECODE (CREATE-SEQUENCE-TC
                0
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:EXCEPTIONDEF)))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:CONTEXTIDSEQ
  - :id "IDL:omg.org/CORBA/ContextIdSeq:1.0"
  - :name "ContextIdSeq"
  - :type SEQUENCE
  - :typecode (create-sequence-tc
  -             0
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTEXTIDENTIFIER)))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:CONTEXTIDENTIFIER
  - :id "IDL:omg.org/CORBA/ContextIdentifier:1.0"
  - :name "ContextIdentifier"
  - :type OMG.ORG/CORBA:IDENTIFIER
  - :typecode (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:PARDESCRIPTIONSEQ
  - :id "IDL:omg.org/CORBA/ParDescriptionSeq:1.0"
  - :name "ParDescriptionSeq"
  - :type SEQUENCE
  - :typecode (create-sequence-tc
  -             0
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARAMETERDESCRIPTION)))
  -
  -(DEFINE-STRUCT OMG.ORG/CORBA:PARAMETERDESCRIPTION
  - :id "IDL:omg.org/CORBA/ParameterDescription:1.0"
  - :name "ParameterDescription"
  - :members (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER) NAME)
  -           ("type" OMG.ORG/CORBA:TC_TYPECODE TYPE)
  -           ("type_def" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE) TYPE_DEF)
  -           ("mode" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARAMETERMODE) MODE))
  - :read ((BUFFER)
  -        (OMG.ORG/CORBA:PARAMETERDESCRIPTION
  -          :name
  -          (UNMARSHAL-STRING BUFFER)
  -          :type
  -          (UNMARSHAL OMG.ORG/CORBA:TC_TYPECODE BUFFER)
  -          :type_def
  -          (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE) BUFFER)
  -          :mode
  -          (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARAMETERMODE) BUFFER)))
  - :write ((OBJ BUFFER) (MARSHAL-STRING (OMG.ORG/FEATURES:NAME OBJ) BUFFER)
  +             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ATTRIBUTEDESCRIPTION)))
  +
  +(DEFINE-STRUCT OMG.ORG/CORBA:INTERFACEDESCRIPTION
  + :ID "IDL:omg.org/CORBA/InterfaceDescription:1.0"
  + :NAME "InterfaceDescription"
  + :MEMBERS (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
  +            OMG.ORG/FEATURES:NAME)
  +           ("id" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
  +            OMG.ORG/FEATURES:ID)
  +           ("defined_in" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
  +            OMG.ORG/FEATURES:DEFINED_IN)
  +           ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
  +            OMG.ORG/FEATURES:VERSION)
  +           ("base_interfaces" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYIDSEQ)
  +            OMG.ORG/FEATURES:BASE_INTERFACES))
  + :READ ((BUFFER)
  +        (OMG.ORG/CORBA:INTERFACEDESCRIPTION
  +          :NAME
  +          (UNMARSHAL-STRING BUFFER)
  +          :ID
  +          (UNMARSHAL-STRING BUFFER)
  +          :DEFINED_IN
  +          (UNMARSHAL-STRING BUFFER)
  +          :VERSION
  +          (UNMARSHAL-STRING BUFFER)
  +          :BASE_INTERFACES
  +          (UNMARSHAL-SEQUENCE #'UNMARSHAL-STRING BUFFER)))
  + :WRITE ((OBJ BUFFER) (MARSHAL-STRING (OMG.ORG/FEATURES:NAME OBJ) BUFFER)
  +         (MARSHAL-STRING (OMG.ORG/FEATURES:ID OBJ) BUFFER)
  +         (MARSHAL-STRING (OMG.ORG/FEATURES:DEFINED_IN OBJ) BUFFER)
  +         (MARSHAL-STRING (OMG.ORG/FEATURES:VERSION OBJ) BUFFER)
  +         (MARSHAL-SEQUENCE
  +           (OMG.ORG/FEATURES:BASE_INTERFACES OBJ)
  +           #'MARSHAL-STRING
  +           BUFFER)))
  +
  +(DEFCONSTANT OMG.ORG/CORBA:PRIVATE_MEMBER (QUOTE 0))
  +
  +(DEFCONSTANT OMG.ORG/CORBA:PUBLIC_MEMBER (QUOTE 1))
  +
  +(DEFINE-ALIAS OMG.ORG/CORBA:VISIBILITY
  + :ID "IDL:omg.org/CORBA/Visibility:1.0"
  + :NAME "Visibility"
  + :TYPE OMG.ORG/CORBA:SHORT
  + :TYPECODE OMG.ORG/CORBA:TC_SHORT)
  +
  +(DEFINE-STRUCT OMG.ORG/CORBA:VALUEMEMBER
  + :ID "IDL:omg.org/CORBA/ValueMember:1.0"
  + :NAME "ValueMember"
  + :MEMBERS (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
  +            OMG.ORG/FEATURES:NAME)
  +           ("id" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
  +            OMG.ORG/FEATURES:ID)
  +           ("defined_in" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
  +            OMG.ORG/FEATURES:DEFINED_IN)
  +           ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
  +            OMG.ORG/FEATURES:VERSION)
  +           ("type" OMG.ORG/CORBA:TC_TYPECODE OMG.ORG/FEATURES:TYPE)
  +           ("type_def" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
  +            OMG.ORG/FEATURES:TYPE_DEF)
  +           ("access" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VISIBILITY)
  +            OMG.ORG/FEATURES::ACCESS))
  + :READ ((BUFFER)
  +        (OMG.ORG/CORBA:VALUEMEMBER :NAME (UNMARSHAL-STRING BUFFER) :ID
  +         (UNMARSHAL-STRING BUFFER) :DEFINED_IN (UNMARSHAL-STRING BUFFER)
  +         :VERSION (UNMARSHAL-STRING BUFFER) :TYPE
  +         (UNMARSHAL OMG.ORG/CORBA:TC_TYPECODE BUFFER) :TYPE_DEF
  +         (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE) BUFFER) :ACCESS
  +         (UNMARSHAL-SHORT BUFFER)))
  + :WRITE ((OBJ BUFFER) (MARSHAL-STRING (OMG.ORG/FEATURES:NAME OBJ) BUFFER)
  +         (MARSHAL-STRING (OMG.ORG/FEATURES:ID OBJ) BUFFER)
  +         (MARSHAL-STRING (OMG.ORG/FEATURES:DEFINED_IN OBJ) BUFFER)
  +         (MARSHAL-STRING (OMG.ORG/FEATURES:VERSION OBJ) BUFFER)
            (MARSHAL (OMG.ORG/FEATURES:TYPE OBJ) OMG.ORG/CORBA:TC_TYPECODE BUFFER)
            (MARSHAL (OMG.ORG/FEATURES:TYPE_DEF OBJ)
                     (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
                     BUFFER)
  -         (MARSHAL (OMG.ORG/FEATURES:MODE OBJ)
  -                  (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARAMETERMODE)
  -                  BUFFER)))
  -
  -(DEFINE-ENUM OMG.ORG/CORBA:PARAMETERMODE
  - :id "IDL:omg.org/CORBA/ParameterMode:1.0"
  - :name "ParameterMode"
  - :members ("PARAM_IN" "PARAM_OUT" "PARAM_INOUT"))
  -
  -(DEFINE-ENUM OMG.ORG/CORBA:OPERATIONMODE
  - :id "IDL:omg.org/CORBA/OperationMode:1.0"
  - :name "OperationMode"
  - :members ("OP_NORMAL" "OP_ONEWAY"))
  -
  -(DEFINE-STRUCT OMG.ORG/CORBA:ATTRIBUTEDESCRIPTION
  - :id "IDL:omg.org/CORBA/AttributeDescription:1.0"
  - :name "AttributeDescription"
  - :members (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER) NAME)
  -           ("id" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID) ID)
  +         (MARSHAL-SHORT (OMG.ORG/FEATURES::ACCESS OBJ) BUFFER)))
  +
  +(DEFINE-ALIAS OMG.ORG/CORBA:VALUEMEMBERSEQ
  + :ID "IDL:omg.org/CORBA/ValueMemberSeq:1.0"
  + :NAME "ValueMemberSeq"
  + :TYPE SEQUENCE
  + :TYPECODE (CREATE-SEQUENCE-TC 0 (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VALUEMEMBER)))
  +
  +(DEFINE-STRUCT OMG.ORG/CORBA:VALUEDESCRIPTION
  + :ID "IDL:omg.org/CORBA/ValueDescription:1.0"
  + :NAME "ValueDescription"
  + :MEMBERS (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
  +            OMG.ORG/FEATURES:NAME)
  +           ("id" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
  +            OMG.ORG/FEATURES:ID)
  +           ("is_abstract" OMG.ORG/CORBA:TC_BOOLEAN
  +            OMG.ORG/FEATURES::IS_ABSTRACT)
  +           ("is_custom" OMG.ORG/CORBA:TC_BOOLEAN OMG.ORG/FEATURES::IS_CUSTOM)
              ("defined_in" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
  -            DEFINED_IN)
  -           ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC) VERSION)
  -           ("type" OMG.ORG/CORBA:TC_TYPECODE TYPE)
  -           ("mode" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ATTRIBUTEMODE) MODE))
  - :read ((BUFFER)
  -        (OMG.ORG/CORBA:ATTRIBUTEDESCRIPTION
  -          :name
  -          (UNMARSHAL-STRING BUFFER)
  -          :id
  -          (UNMARSHAL-STRING BUFFER)
  -          :defined_in
  -          (UNMARSHAL-STRING BUFFER)
  -          :version
  -          (UNMARSHAL-STRING BUFFER)
  -          :type
  -          (UNMARSHAL OMG.ORG/CORBA:TC_TYPECODE BUFFER)
  -          :mode
  -          (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ATTRIBUTEMODE) BUFFER)))
  - :write ((OBJ BUFFER) (MARSHAL-STRING (OMG.ORG/FEATURES:NAME OBJ) BUFFER)
  +            OMG.ORG/FEATURES:DEFINED_IN)
  +           ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
  +            OMG.ORG/FEATURES:VERSION)
  +           ("supported_interfaces"
  +            (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYIDSEQ)
  +            OMG.ORG/FEATURES::SUPPORTED_INTERFACES)
  +           ("abstract_base_values"
  +            (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYIDSEQ)
  +            OMG.ORG/FEATURES::ABSTRACT_BASE_VALUES)
  +           ("is_truncatable" OMG.ORG/CORBA:TC_BOOLEAN
  +            OMG.ORG/FEATURES::IS_TRUNCATABLE)
  +           ("base_value" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
  +            OMG.ORG/FEATURES::BASE_VALUE))
  + :READ ((BUFFER)
  +        (OMG.ORG/CORBA:VALUEDESCRIPTION :NAME (UNMARSHAL-STRING BUFFER) :ID
  +         (UNMARSHAL-STRING BUFFER) :IS_ABSTRACT (UNMARSHAL-BOOL BUFFER)
  +         :IS_CUSTOM (UNMARSHAL-BOOL BUFFER) :DEFINED_IN
  +         (UNMARSHAL-STRING BUFFER) :VERSION (UNMARSHAL-STRING BUFFER)
  +         :SUPPORTED_INTERFACES (UNMARSHAL-SEQUENCE #'UNMARSHAL-STRING BUFFER)
  +         :ABSTRACT_BASE_VALUES (UNMARSHAL-SEQUENCE #'UNMARSHAL-STRING BUFFER)
  +         :IS_TRUNCATABLE (UNMARSHAL-BOOL BUFFER) :BASE_VALUE
  +         (UNMARSHAL-STRING BUFFER)))
  + :WRITE ((OBJ BUFFER) (MARSHAL-STRING (OMG.ORG/FEATURES:NAME OBJ) BUFFER)
            (MARSHAL-STRING (OMG.ORG/FEATURES:ID OBJ) BUFFER)
  +         (MARSHAL-BOOL (OMG.ORG/FEATURES::IS_ABSTRACT OBJ) BUFFER)
  +         (MARSHAL-BOOL (OMG.ORG/FEATURES::IS_CUSTOM OBJ) BUFFER)
            (MARSHAL-STRING (OMG.ORG/FEATURES:DEFINED_IN OBJ) BUFFER)
            (MARSHAL-STRING (OMG.ORG/FEATURES:VERSION OBJ) BUFFER)
  -         (MARSHAL (OMG.ORG/FEATURES:TYPE OBJ) OMG.ORG/CORBA:TC_TYPECODE BUFFER)
  -         (MARSHAL (OMG.ORG/FEATURES:MODE OBJ)
  -                  (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ATTRIBUTEMODE)
  -                  BUFFER)))
  -
  -(DEFINE-ENUM OMG.ORG/CORBA:ATTRIBUTEMODE
  - :id "IDL:omg.org/CORBA/AttributeMode:1.0"
  - :name "AttributeMode"
  - :members ("ATTR_NORMAL" "ATTR_READONLY"))
  -
  -(DEFINE-STRUCT OMG.ORG/CORBA:EXCEPTIONDESCRIPTION
  - :id "IDL:omg.org/CORBA/ExceptionDescription:1.0"
  - :name "ExceptionDescription"
  - :members (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER) NAME)
  -           ("id" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID) ID)
  -           ("defined_in" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
  -            DEFINED_IN)
  -           ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC) VERSION)
  -           ("type" OMG.ORG/CORBA:TC_TYPECODE TYPE))
  - :read ((BUFFER)
  -        (OMG.ORG/CORBA:EXCEPTIONDESCRIPTION
  -          :name
  -          (UNMARSHAL-STRING BUFFER)
  -          :id
  -          (UNMARSHAL-STRING BUFFER)
  -          :defined_in
  -          (UNMARSHAL-STRING BUFFER)
  -          :version
  -          (UNMARSHAL-STRING BUFFER)
  -          :type
  -          (UNMARSHAL OMG.ORG/CORBA:TC_TYPECODE BUFFER)))
  - :write ((OBJ BUFFER) (MARSHAL-STRING (OMG.ORG/FEATURES:NAME OBJ) BUFFER)
  -         (MARSHAL-STRING (OMG.ORG/FEATURES:ID OBJ) BUFFER)
  -         (MARSHAL-STRING (OMG.ORG/FEATURES:DEFINED_IN OBJ) BUFFER)
  -         (MARSHAL-STRING (OMG.ORG/FEATURES:VERSION OBJ) BUFFER)
  -         (MARSHAL (OMG.ORG/FEATURES:TYPE OBJ)
  -                  OMG.ORG/CORBA:TC_TYPECODE
  -                  BUFFER)))
  -
  -(DEFINE-STRUCT OMG.ORG/CORBA:TYPEDESCRIPTION
  - :id "IDL:omg.org/CORBA/TypeDescription:1.0"
  - :name "TypeDescription"
  - :members (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER) NAME)
  -           ("id" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID) ID)
  -           ("defined_in" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
  -            DEFINED_IN)
  -           ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC) VERSION)
  -           ("type" OMG.ORG/CORBA:TC_TYPECODE TYPE))
  - :read ((BUFFER)
  -        (OMG.ORG/CORBA:TYPEDESCRIPTION
  -          :name
  -          (UNMARSHAL-STRING BUFFER)
  -          :id
  -          (UNMARSHAL-STRING BUFFER)
  -          :defined_in
  -          (UNMARSHAL-STRING BUFFER)
  -          :version
  -          (UNMARSHAL-STRING BUFFER)
  -          :type
  -          (UNMARSHAL OMG.ORG/CORBA:TC_TYPECODE BUFFER)))
  - :write ((OBJ BUFFER) (MARSHAL-STRING (OMG.ORG/FEATURES:NAME OBJ) BUFFER)
  -         (MARSHAL-STRING (OMG.ORG/FEATURES:ID OBJ) BUFFER)
  -         (MARSHAL-STRING (OMG.ORG/FEATURES:DEFINED_IN OBJ) BUFFER)
  -         (MARSHAL-STRING (OMG.ORG/FEATURES:VERSION OBJ) BUFFER)
  -         (MARSHAL (OMG.ORG/FEATURES:TYPE OBJ)
  -                  OMG.ORG/CORBA:TC_TYPECODE
  -                  BUFFER)))
  -
  -(DEFINE-STRUCT OMG.ORG/CORBA:CONSTANTDESCRIPTION
  - :id "IDL:omg.org/CORBA/ConstantDescription:1.0"
  - :name "ConstantDescription"
  - :members (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER) NAME)
  -           ("id" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID) ID)
  -           ("defined_in" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
  -            DEFINED_IN)
  -           ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC) VERSION)
  -           ("type" OMG.ORG/CORBA:TC_TYPECODE TYPE)
  -           ("value" OMG.ORG/CORBA:TC_ANY VALUE))
  - :read ((BUFFER)
  -        (OMG.ORG/CORBA:CONSTANTDESCRIPTION
  -          :name
  -          (UNMARSHAL-STRING BUFFER)
  -          :id
  -          (UNMARSHAL-STRING BUFFER)
  -          :defined_in
  -          (UNMARSHAL-STRING BUFFER)
  -          :version
  -          (UNMARSHAL-STRING BUFFER)
  -          :type
  -          (UNMARSHAL OMG.ORG/CORBA:TC_TYPECODE BUFFER)
  -          :value
  -          (UNMARSHAL OMG.ORG/CORBA:TC_ANY BUFFER)))
  - :write ((OBJ BUFFER) (MARSHAL-STRING (OMG.ORG/FEATURES:NAME OBJ) BUFFER)
  -         (MARSHAL-STRING (OMG.ORG/FEATURES:ID OBJ) BUFFER)
  -         (MARSHAL-STRING (OMG.ORG/FEATURES:DEFINED_IN OBJ) BUFFER)
  -         (MARSHAL-STRING (OMG.ORG/FEATURES:VERSION OBJ) BUFFER)
  -         (MARSHAL (OMG.ORG/FEATURES:TYPE OBJ) OMG.ORG/CORBA:TC_TYPECODE BUFFER)
  -         (MARSHAL (OMG.ORG/FEATURES:VALUE OBJ) OMG.ORG/CORBA:TC_ANY BUFFER)))
  -
  -(DEFINE-STRUCT OMG.ORG/CORBA:MODULEDESCRIPTION
  - :id "IDL:omg.org/CORBA/ModuleDescription:1.0"
  - :name "ModuleDescription"
  - :members (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER) NAME)
  -           ("id" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID) ID)
  -           ("defined_in" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
  -            DEFINED_IN)
  -           ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC) VERSION))
  - :read ((BUFFER)
  -        (OMG.ORG/CORBA:MODULEDESCRIPTION
  -          :name
  -          (UNMARSHAL-STRING BUFFER)
  -          :id
  -          (UNMARSHAL-STRING BUFFER)
  -          :defined_in
  -          (UNMARSHAL-STRING BUFFER)
  -          :version
  -          (UNMARSHAL-STRING BUFFER)))
  - :write ((OBJ BUFFER) (MARSHAL-STRING (OMG.ORG/FEATURES:NAME OBJ) BUFFER)
  -         (MARSHAL-STRING (OMG.ORG/FEATURES:ID OBJ) BUFFER)
  -         (MARSHAL-STRING (OMG.ORG/FEATURES:DEFINED_IN OBJ) BUFFER)
  -         (MARSHAL-STRING (OMG.ORG/FEATURES:VERSION OBJ) BUFFER)))
  -
  -(DEFINE-ENUM OMG.ORG/CORBA:PRIMITIVEKIND
  - :id "IDL:omg.org/CORBA/PrimitiveKind:1.0"
  - :name "PrimitiveKind"
  - :members ("pk_null" "pk_void" "pk_short" "pk_long" "pk_ushort" "pk_ulong"
  -           "pk_float" "pk_double" "pk_boolean" "pk_char" "pk_octet" "pk_any"
  -           "pk_TypeCode" "pk_Principal" "pk_string" "pk_objref" "pk_longlong"
  -           "pk_ulonglong" "pk_longdouble" "pk_wchar" "pk_wstring"))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:ENUMMEMBERSEQ
  - :id "IDL:omg.org/CORBA/EnumMemberSeq:1.0"
  - :name "EnumMemberSeq"
  - :type SEQUENCE
  - :typecode (create-sequence-tc
  -             0
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:UNIONMEMBERSEQ
  - :id "IDL:omg.org/CORBA/UnionMemberSeq:1.0"
  - :name "UnionMemberSeq"
  - :type SEQUENCE
  - :typecode (create-sequence-tc
  -             0
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:UNIONMEMBER)))
  -
  -(DEFINE-STRUCT OMG.ORG/CORBA:UNIONMEMBER
  - :id "IDL:omg.org/CORBA/UnionMember:1.0"
  - :name "UnionMember"
  - :members (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER) NAME)
  -           ("label" OMG.ORG/CORBA:TC_ANY LABEL)
  -           ("type" OMG.ORG/CORBA:TC_TYPECODE TYPE)
  -           ("type_def" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE) TYPE_DEF))
  - :read ((BUFFER)
  -        (OMG.ORG/CORBA:UNIONMEMBER :name
  -                                   (UNMARSHAL-STRING BUFFER)
  -                                   :label
  -                                   (UNMARSHAL OMG.ORG/CORBA:TC_ANY BUFFER)
  -                                   :type
  -                                   (UNMARSHAL OMG.ORG/CORBA:TC_TYPECODE BUFFER)
  -                                   :type_def
  -                                   (UNMARSHAL (SYMBOL-TYPECODE
  -                                               'OMG.ORG/CORBA:IDLTYPE)
  -                                              BUFFER)))
  - :write ((OBJ BUFFER) (MARSHAL-STRING (OMG.ORG/FEATURES:NAME OBJ) BUFFER)
  -         (MARSHAL (OMG.ORG/FEATURES:LABEL OBJ) OMG.ORG/CORBA:TC_ANY BUFFER)
  -         (MARSHAL (OMG.ORG/FEATURES:TYPE OBJ) OMG.ORG/CORBA:TC_TYPECODE BUFFER)
  -         (MARSHAL (OMG.ORG/FEATURES:TYPE_DEF OBJ)
  -                  (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
  -                  BUFFER)))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:STRUCTMEMBERSEQ
  - :id "IDL:omg.org/CORBA/StructMemberSeq:1.0"
  - :name "StructMemberSeq"
  - :type SEQUENCE
  - :typecode (create-sequence-tc
  -             0
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:STRUCTMEMBER)))
  -
  -(DEFINE-STRUCT OMG.ORG/CORBA:STRUCTMEMBER
  - :id "IDL:omg.org/CORBA/StructMember:1.0"
  - :name "StructMember"
  - :members (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER) NAME)
  -           ("type" OMG.ORG/CORBA:TC_TYPECODE TYPE)
  -           ("type_def" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE) TYPE_DEF))
  - :read ((BUFFER)
  -        (OMG.ORG/CORBA:STRUCTMEMBER :name
  -                                    (UNMARSHAL-STRING BUFFER)
  -                                    :type
  -                                    (UNMARSHAL OMG.ORG/CORBA:TC_TYPECODE
  -                                               BUFFER)
  -                                    :type_def
  -                                    (UNMARSHAL (SYMBOL-TYPECODE
  -                                                'OMG.ORG/CORBA:IDLTYPE)
  -                                               BUFFER)))
  - :write ((OBJ BUFFER) (MARSHAL-STRING (OMG.ORG/FEATURES:NAME OBJ) BUFFER)
  -         (MARSHAL (OMG.ORG/FEATURES:TYPE OBJ) OMG.ORG/CORBA:TC_TYPECODE BUFFER)
  -         (MARSHAL (OMG.ORG/FEATURES:TYPE_DEF OBJ)
  -                  (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
  -                  BUFFER)))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:CONTAINEDSEQ
  - :id "IDL:omg.org/CORBA/ContainedSeq:1.0"
  - :name "ContainedSeq"
  - :type SEQUENCE
  - :typecode (create-sequence-tc
  -             0
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINED)))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:INTERFACEDEFSEQ
  - :id "IDL:omg.org/CORBA/InterfaceDefSeq:1.0"
  - :name "InterfaceDefSeq"
  - :type SEQUENCE
  - :typecode (create-sequence-tc
  -             0
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INTERFACEDEF)))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:VERSIONSPEC
  - :id "IDL:omg.org/CORBA/VersionSpec:1.0"
  - :name "VersionSpec"
  - :type OMG.ORG/CORBA:STRING
  - :typecode OMG.ORG/CORBA:TC_STRING)
  -
  -(DEFINE-ENUM OMG.ORG/CORBA:DEFINITIONKIND
  - :id "IDL:omg.org/CORBA/DefinitionKind:1.0"
  - :name "DefinitionKind"
  - :members ("dk_none" "dk_all" "dk_Attribute" "dk_Constant" "dk_Exception"
  -           "dk_Interface" "dk_Module" "dk_Operation" "dk_Typedef" "dk_Alias"
  -           "dk_Struct" "dk_Union" "dk_Enum" "dk_Primitive" "dk_String"
  -           "dk_Sequence" "dk_Array" "dk_Repository" "dk_Wstring" "dk_Fixed"))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:REPOSITORYID
  - :id "IDL:omg.org/CORBA/RepositoryId:1.0"
  - :name "RepositoryId"
  - :type OMG.ORG/CORBA:STRING
  - :typecode OMG.ORG/CORBA:TC_STRING)
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:SCOPEDNAME
  - :id "IDL:omg.org/CORBA/ScopedName:1.0"
  - :name "ScopedName"
  - :type OMG.ORG/CORBA:STRING
  - :typecode OMG.ORG/CORBA:TC_STRING)
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:IDENTIFIER
  - :id "IDL:omg.org/CORBA/Identifier:1.0"
  - :name "Identifier"
  - :type OMG.ORG/CORBA:STRING
  - :typecode OMG.ORG/CORBA:TC_STRING)
  +         (MARSHAL-SEQUENCE
  +           (OMG.ORG/FEATURES::SUPPORTED_INTERFACES OBJ)
  +           #'MARSHAL-STRING
  +           BUFFER)
  +         (MARSHAL-SEQUENCE
  +           (OMG.ORG/FEATURES::ABSTRACT_BASE_VALUES OBJ)
  +           #'MARSHAL-STRING
  +           BUFFER)
  +         (MARSHAL-BOOL (OMG.ORG/FEATURES::IS_TRUNCATABLE OBJ) BUFFER)
  +         (MARSHAL-STRING (OMG.ORG/FEATURES::BASE_VALUE OBJ) BUFFER)))
   
   (DEFINE-INTERFACE OMG.ORG/CORBA:IROBJECT (OBJECT)
  - :proxy (OMG.ORG/CORBA:IROBJECT-PROXY OMG.ORG/CORBA:IROBJECT
  + :PROXY (OMG.ORG/CORBA:IROBJECT-PROXY OMG.ORG/CORBA:IROBJECT
            OMG.ORG/CORBA:PROXY)
  - :id "IDL:omg.org/CORBA/IRObject:1.0"
  - :name "IRObject")
  + :ID "IDL:omg.org/CORBA/IRObject:1.0"
  + :NAME "IRObject")
  +
  +(DEFINE-METHOD "DEF_KIND" ((OBJ OMG.ORG/CORBA:IROBJECT-PROXY))
  +  (GET-ATTRIBUTE
  +    OBJ
  +    "_get_def_kind"
  +    (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND)))
   
   (DEFINE-METHOD "DESTROY" ((OBJ OMG.ORG/CORBA:IROBJECT-PROXY))
     (STATIC-CALL ("destroy" OBJ)
  -   :output ((OUTPUT))
  -   :input ((INPUT))
  -   :exceptions NIL))
  -
  -(DEFINE-METHOD "DEF_KIND" ((OBJ OMG.ORG/CORBA:IROBJECT-PROXY))
  -  (GET-ATTRIBUTE
  -    OBJ
  -    "_get_def_kind"
  -    (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND)))
  -
  -(DEFINE-INTERFACE OMG.ORG/CORBA:IDLTYPE (OMG.ORG/CORBA:IROBJECT)
  - :proxy (OMG.ORG/CORBA:IDLTYPE-PROXY OMG.ORG/CORBA:IDLTYPE
  +   :OUTPUT ((OUTPUT))
  +   :INPUT ((INPUT))
  +   :EXCEPTIONS NIL))
  +
  +(DEFINE-INTERFACE OMG.ORG/CORBA:CONTAINED (OMG.ORG/CORBA:IROBJECT)
  + :PROXY (OMG.ORG/CORBA:CONTAINED-PROXY OMG.ORG/CORBA:CONTAINED
            OMG.ORG/CORBA:IROBJECT-PROXY)
  - :id "IDL:omg.org/CORBA/IDLType:1.0"
  - :name "IDLType")
  -
  -(DEFINE-METHOD "TYPE" ((OBJ OMG.ORG/CORBA:IDLTYPE-PROXY))
  -  (GET-ATTRIBUTE OBJ "_get_type" OMG.ORG/CORBA:TC_TYPECODE))
  + :ID "IDL:omg.org/CORBA/Contained:1.0"
  + :NAME "Contained")
  +
  +(DEFINE-METHOD "ID" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  +  (GET-ATTRIBUTE OBJ "_get_id" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)))
  +
  +(DEFINE-METHOD (SETF "ID") (NEWVAL (OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  +  (SET-ATTRIBUTE
  +    OBJ
  +    "_set_id"
  +    (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
  +    NEWVAL))
  +
  +(DEFINE-METHOD "NAME" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  +  (GET-ATTRIBUTE OBJ "_get_name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)))
  +
  +(DEFINE-METHOD (SETF "NAME") (NEWVAL (OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  +  (SET-ATTRIBUTE
  +    OBJ
  +    "_set_name"
  +    (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
  +    NEWVAL))
  +
  +(DEFINE-METHOD "VERSION" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  +  (GET-ATTRIBUTE
  +    OBJ
  +    "_get_version"
  +    (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)))
  +
  +(DEFINE-METHOD (SETF "VERSION") (NEWVAL (OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  +  (SET-ATTRIBUTE
  +    OBJ
  +    "_set_version"
  +    (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
  +    NEWVAL))
  +
  +(DEFINE-METHOD "DEFINED_IN" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  +  (GET-ATTRIBUTE
  +    OBJ
  +    "_get_defined_in"
  +    (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINER)))
  +
  +(DEFINE-METHOD "ABSOLUTE_NAME" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  +  (GET-ATTRIBUTE
  +    OBJ
  +    "_get_absolute_name"
  +    (SYMBOL-TYPECODE 'OMG.ORG/CORBA:SCOPEDNAME)))
  +
  +(DEFINE-METHOD "CONTAINING_REPOSITORY" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  +  (GET-ATTRIBUTE
  +    OBJ
  +    "_get_containing_repository"
  +    (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORY)))
  +
  +(DEFINE-STRUCT OMG.ORG/CORBA:CONTAINED/DESCRIPTION
  + :ID "IDL:omg.org/CORBA/Contained/Description:1.0"
  + :NAME "Description"
  + :MEMBERS (("kind" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND)
  +            OMG.ORG/FEATURES:KIND)
  +           ("value" OMG.ORG/CORBA:TC_ANY OMG.ORG/FEATURES:VALUE))
  + :READ ((BUFFER)
  +        (OMG.ORG/CORBA:CONTAINED/DESCRIPTION
  +          :KIND
  +          (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND) BUFFER)
  +          :VALUE
  +          (UNMARSHAL OMG.ORG/CORBA:TC_ANY BUFFER)))
  + :WRITE ((OBJ BUFFER)
  +         (MARSHAL (OMG.ORG/FEATURES:KIND OBJ)
  +                  (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND)
  +                  BUFFER)
  +         (MARSHAL (OMG.ORG/FEATURES:VALUE OBJ) OMG.ORG/CORBA:TC_ANY BUFFER)))
  +
  +(DEFINE-METHOD "DESCRIBE" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  +  (STATIC-CALL ("describe" OBJ)
  +   :OUTPUT ((OUTPUT))
  +   :INPUT ((INPUT) (STRUCT-READ 'OMG.ORG/CORBA:CONTAINED/DESCRIPTION INPUT))
  +   :EXCEPTIONS NIL))
  +
  +(DEFINE-METHOD "MOVE" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY) _NEW_CONTAINER
  +                       _NEW_NAME _NEW_VERSION)
  +  (STATIC-CALL ("move" OBJ)
  +   :OUTPUT ((OUTPUT)
  +            (MARSHAL _NEW_CONTAINER
  +                     (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINER)
  +                     OUTPUT)
  +            (MARSHAL-STRING _NEW_NAME OUTPUT)
  +            (MARSHAL-STRING _NEW_VERSION OUTPUT))
  +   :INPUT ((INPUT))
  +   :EXCEPTIONS NIL))
   
   (DEFINE-INTERFACE OMG.ORG/CORBA:CONTAINER (OMG.ORG/CORBA:IROBJECT)
  - :proxy (OMG.ORG/CORBA:CONTAINER-PROXY OMG.ORG/CORBA:CONTAINER
  + :PROXY (OMG.ORG/CORBA:CONTAINER-PROXY OMG.ORG/CORBA:CONTAINER
            OMG.ORG/CORBA:IROBJECT-PROXY)
  - :id "IDL:omg.org/CORBA/Container:1.0"
  - :name "Container")
  -
  -(DEFINE-METHOD "CREATE_INTERFACE" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) _ID
  -                                   _NAME _VERSION _BASE_INTERFACES)
  -  (STATIC-CALL ("create_interface" OBJ)
  -   :output ((OUTPUT) (MARSHAL-STRING _ID OUTPUT) (MARSHAL-STRING _NAME OUTPUT)
  -            (MARSHAL-STRING _VERSION OUTPUT)
  -            (MARSHAL-SEQUENCE
  -              _BASE_INTERFACES
  -              (lambda (obj buffer)
  -                (MARSHAL OBJ
  -                         (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INTERFACEDEF)
  -                         BUFFER))
  -              OUTPUT))
  -   :input ((INPUT)
  -           (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INTERFACEDEF) INPUT))
  -   :exceptions NIL))
  -
  -(DEFINE-METHOD "CREATE_ALIAS" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) _ID _NAME
  -                               _VERSION _ORIGINAL_TYPE)
  -  (STATIC-CALL ("create_alias" OBJ)
  -   :output ((OUTPUT) (MARSHAL-STRING _ID OUTPUT) (MARSHAL-STRING _NAME OUTPUT)
  -            (MARSHAL-STRING _VERSION OUTPUT)
  -            (MARSHAL _ORIGINAL_TYPE
  -                     (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
  -                     OUTPUT))
  -   :input ((INPUT) (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ALIASDEF) INPUT))
  -   :exceptions NIL))
  -
  -(DEFINE-METHOD "CREATE_ENUM" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) _ID _NAME
  -                              _VERSION _MEMBERS)
  -  (STATIC-CALL ("create_enum" OBJ)
  -   :output ((OUTPUT) (MARSHAL-STRING _ID OUTPUT) (MARSHAL-STRING _NAME OUTPUT)
  -            (MARSHAL-STRING _VERSION OUTPUT)
  -            (MARSHAL-SEQUENCE _MEMBERS #'MARSHAL-STRING OUTPUT))
  -   :input ((INPUT) (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ENUMDEF) INPUT))
  -   :exceptions NIL))
  -
  -(DEFINE-METHOD "CREATE_UNION" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) _ID _NAME
  -                               _VERSION _DISCRIMINATOR_TYPE _MEMBERS)
  -  (STATIC-CALL ("create_union" OBJ)
  -   :output ((OUTPUT) (MARSHAL-STRING _ID OUTPUT) (MARSHAL-STRING _NAME OUTPUT)
  -            (MARSHAL-STRING _VERSION OUTPUT)
  -            (MARSHAL _DISCRIMINATOR_TYPE
  -                     (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
  -                     OUTPUT)
  -            (MARSHAL-SEQUENCE
  -              _MEMBERS
  -              (lambda (obj buffer)
  -                (STRUCT-WRITE OBJ 'OMG.ORG/CORBA:UNIONMEMBER BUFFER))
  -              OUTPUT))
  -   :input ((INPUT) (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:UNIONDEF) INPUT))
  -   :exceptions NIL))
  -
  -(DEFINE-METHOD "CREATE_EXCEPTION" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) _ID
  -                                   _NAME _VERSION _MEMBERS)
  -  (STATIC-CALL ("create_exception" OBJ)
  -   :output ((OUTPUT) (MARSHAL-STRING _ID OUTPUT) (MARSHAL-STRING _NAME OUTPUT)
  -            (MARSHAL-STRING _VERSION OUTPUT)
  -            (MARSHAL-SEQUENCE
  -              _MEMBERS
  -              (lambda (obj buffer)
  -                (STRUCT-WRITE OBJ 'OMG.ORG/CORBA:STRUCTMEMBER BUFFER))
  -              OUTPUT))
  -   :input ((INPUT)
  -           (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:EXCEPTIONDEF) INPUT))
  -   :exceptions NIL))
  -
  -(DEFINE-METHOD "CREATE_STRUCT" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) _ID _NAME
  -                                _VERSION _MEMBERS)
  -  (STATIC-CALL ("create_struct" OBJ)
  -   :output ((OUTPUT) (MARSHAL-STRING _ID OUTPUT) (MARSHAL-STRING _NAME OUTPUT)
  -            (MARSHAL-STRING _VERSION OUTPUT)
  -            (MARSHAL-SEQUENCE
  -              _MEMBERS
  -              (lambda (obj buffer)
  -                (STRUCT-WRITE OBJ 'OMG.ORG/CORBA:STRUCTMEMBER BUFFER))
  -              OUTPUT))
  -   :input ((INPUT)
  -           (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:STRUCTDEF) INPUT))
  -   :exceptions NIL))
  -
  -(DEFINE-METHOD "CREATE_CONSTANT" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) _ID _NAME
  -                                  _VERSION _TYPE _VALUE)
  -  (STATIC-CALL ("create_constant" OBJ)
  -   :output ((OUTPUT) (MARSHAL-STRING _ID OUTPUT) (MARSHAL-STRING _NAME OUTPUT)
  -            (MARSHAL-STRING _VERSION OUTPUT)
  -            (MARSHAL _TYPE (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE) OUTPUT)
  -            (MARSHAL _VALUE OMG.ORG/CORBA:TC_ANY OUTPUT))
  -   :input ((INPUT)
  -           (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONSTANTDEF) INPUT))
  -   :exceptions NIL))
  -
  -(DEFINE-METHOD "CREATE_MODULE" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) _ID _NAME
  -                                _VERSION)
  -  (STATIC-CALL ("create_module" OBJ)
  -   :output ((OUTPUT) (MARSHAL-STRING _ID OUTPUT) (MARSHAL-STRING _NAME OUTPUT)
  -            (MARSHAL-STRING _VERSION OUTPUT))
  -   :input ((INPUT)
  -           (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:MODULEDEF) INPUT))
  -   :exceptions NIL))
  -
  -(DEFINE-METHOD "DESCRIBE_CONTENTS" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY)
  -                                    _LIMIT_TYPE _EXCLUDE_INHERITED
  -                                    _MAX_RETURNED_OBJS)
  -  (STATIC-CALL ("describe_contents" OBJ)
  -   :output ((OUTPUT)
  + :ID "IDL:omg.org/CORBA/Container:1.0"
  + :NAME "Container")
  +
  +(DEFINE-METHOD "LOOKUP" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) _SEARCH_NAME)
  +  (STATIC-CALL ("lookup" OBJ)
  +   :OUTPUT ((OUTPUT) (MARSHAL-STRING _SEARCH_NAME OUTPUT))
  +   :INPUT ((INPUT)
  +           (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINED) INPUT))
  +   :EXCEPTIONS NIL))
  +
  +(DEFINE-METHOD "CONTENTS" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) _LIMIT_TYPE
  +                           _EXCLUDE_INHERITED)
  +  (STATIC-CALL ("contents" OBJ)
  +   :OUTPUT ((OUTPUT)
               (MARSHAL _LIMIT_TYPE
                        (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND)
                        OUTPUT)
  -            (MARSHAL-BOOL _EXCLUDE_INHERITED OUTPUT)
  -            (MARSHAL-LONG _MAX_RETURNED_OBJS OUTPUT))
  -   :input ((INPUT)
  +            (MARSHAL-BOOL _EXCLUDE_INHERITED OUTPUT))
  +   :INPUT ((INPUT)
              (UNMARSHAL-SEQUENCE
  -             (lambda (buffer)
  -               (STRUCT-READ 'OMG.ORG/CORBA:CONTAINER/DESCRIPTION BUFFER))
  +             (LAMBDA (BUFFER)
  +               (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINED) BUFFER))
                INPUT))
  -   :exceptions NIL))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:CONTAINER/DESCRIPTIONSEQ
  - :id "IDL:omg.org/CORBA/Container/DescriptionSeq:1.0"
  - :name "DescriptionSeq"
  - :type SEQUENCE
  - :typecode (create-sequence-tc
  -             0
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINER/DESCRIPTION)))
  +   :EXCEPTIONS NIL))
  +
  +(DEFINE-METHOD "LOOKUP_NAME" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) _SEARCH_NAME
  +                              _LEVELS_TO_SEARCH _LIMIT_TYPE _EXCLUDE_INHERITED)
  +  (STATIC-CALL ("lookup_name" OBJ)
  +   :OUTPUT ((OUTPUT) (MARSHAL-STRING _SEARCH_NAME OUTPUT)
  +            (MARSHAL-LONG _LEVELS_TO_SEARCH OUTPUT)
  +            (MARSHAL _LIMIT_TYPE
  +                     (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND)
  +                     OUTPUT)
  +            (MARSHAL-BOOL _EXCLUDE_INHERITED OUTPUT))
  +   :INPUT ((INPUT)
  +           (UNMARSHAL-SEQUENCE
  +             (LAMBDA (BUFFER)
  +               (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINED) BUFFER))
  +             INPUT))
  +   :EXCEPTIONS NIL))
   
   (DEFINE-STRUCT OMG.ORG/CORBA:CONTAINER/DESCRIPTION
  - :id "IDL:omg.org/CORBA/Container/Description:1.0"
  - :name "Description"
  - :members (("contained_object" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINED)
  -            CONTAINED_OBJECT)
  -           ("kind" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND) KIND)
  -           ("value" OMG.ORG/CORBA:TC_ANY VALUE))
  - :read ((BUFFER)
  + :ID "IDL:omg.org/CORBA/Container/Description:1.0"
  + :NAME "Description"
  + :MEMBERS (("contained_object" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINED)
  +            OMG.ORG/FEATURES:CONTAINED_OBJECT)
  +           ("kind" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND)
  +            OMG.ORG/FEATURES:KIND)
  +           ("value" OMG.ORG/CORBA:TC_ANY OMG.ORG/FEATURES:VALUE))
  + :READ ((BUFFER)
           (OMG.ORG/CORBA:CONTAINER/DESCRIPTION
  -          :contained_object
  +          :CONTAINED_OBJECT
             (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINED) BUFFER)
  -          :kind
  +          :KIND
             (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND) BUFFER)
  -          :value
  +          :VALUE
             (UNMARSHAL OMG.ORG/CORBA:TC_ANY BUFFER)))
  - :write ((OBJ BUFFER)
  + :WRITE ((OBJ BUFFER)
            (MARSHAL (OMG.ORG/FEATURES:CONTAINED_OBJECT OBJ)
                     (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINED)
                     BUFFER)
  
positive.code:     "_get_original_type_def"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)))
  
  (DEFINE-METHOD (setf "ORIGINAL_TYPE_DEF") (NEWVAL
                                             (OBJ OMG.ORG/CORBA:ALIASDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
  
negative.code:     (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
      NEWVAL))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:NATIVEDEF (OMG.ORG/CORBA:TYPEDEFDEF)
   :PROXY (OMG.ORG/CORBA:NATIVEDEF-PROXY OMG.ORG/CORBA:NATIVEDEF
           OMG.ORG/CORBA:TYPEDEFDEF-PROXY)
   :ID "IDL:omg.org/CORBA/NativeDef:1.0"
   :NAME "NativeDef")
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:VALUEBOXDEF (OMG.ORG/CORBA:TYPEDEFDEF)
   :PROXY (OMG.ORG/CORBA:VALUEBOXDEF-PROXY OMG.ORG/CORBA:VALUEBOXDEF
           OMG.ORG/CORBA:TYPEDEFDEF-PROXY)
   :ID "IDL:omg.org/CORBA/ValueBoxDef:1.0"
   :NAME "ValueBoxDef")
  
  (DEFINE-METHOD "ORIGINAL_TYPE_DEF" ((OBJ OMG.ORG/CORBA:VALUEBOXDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_original_type_def"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)))
  
  (DEFINE-METHOD (SETF "ORIGINAL_TYPE_DEF") (NEWVAL
                                             (OBJ
                                              OMG.ORG/CORBA:VALUEBOXDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_original_type_def"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
      NEWVAL))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:ABSTRACTINTERFACEDEF (OMG.ORG/CORBA:INTERFACEDEF)
   :PROXY (OMG.ORG/CORBA:ABSTRACTINTERFACEDEF-PROXY
           OMG.ORG/CORBA:ABSTRACTINTERFACEDEF OMG.ORG/CORBA:INTERFACEDEF-PROXY)
   :ID "IDL:omg.org/CORBA/AbstractInterfaceDef:1.0"
   :NAME "AbstractInterfaceDef")
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:LOCALINTERFACEDEF (OMG.ORG/CORBA:INTERFACEDEF)
   :PROXY (OMG.ORG/CORBA:LOCALINTERFACEDEF-PROXY OMG.ORG/CORBA:LOCALINTERFACEDEF
           OMG.ORG/CORBA:INTERFACEDEF-PROXY)
   :ID "IDL:omg.org/CORBA/LocalInterfaceDef:1.0"
   :NAME "LocalInterfaceDef")
  