anchor.diff:  
  -(in-package :clorb)
  -
  -(DEFINE-STRUCT OMG.ORG/CORBA:INTERFACEDESCRIPTION
  - :id "IDL:omg.org/CORBA/InterfaceDescription:1.0"
  - :name "InterfaceDescription"
  - :members (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER) NAME)
  -           ("id" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID) ID)
  +(IN-PACKAGE :CLORB)
  +
  +(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)
  +
  +(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:REPOSITORYID
  + :ID "IDL:omg.org/CORBA/RepositoryId:1.0"
  + :NAME "RepositoryId"
  + :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"
  +           "dk_Value" "dk_ValueBox" "dk_ValueMember" "dk_Native"
  +           "dk_AbstractInterface" "dk_LocalInterface"))
  +
  +(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-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:VALUEDEFSEQ
  + :ID "IDL:omg.org/CORBA/ValueDefSeq:1.0"
  + :NAME "ValueDefSeq"
  + :TYPE SEQUENCE
  + :TYPECODE (CREATE-SEQUENCE-TC 0 (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VALUEDEF)))
  +
  +(DEFINE-ALIAS OMG.ORG/CORBA:ABSTRACTINTERFACEDEFSEQ
  + :ID "IDL:omg.org/CORBA/AbstractInterfaceDefSeq:1.0"
  + :NAME "AbstractInterfaceDefSeq"
  + :TYPE SEQUENCE
  + :TYPECODE (CREATE-SEQUENCE-TC
  +             0
  +             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ABSTRACTINTERFACEDEF)))
  +
  +(DEFINE-ALIAS OMG.ORG/CORBA:LOCALINTERFACEDEFSEQ
  + :ID "IDL:omg.org/CORBA/LocalInterfaceDefSeq:1.0"
  + :NAME "LocalInterfaceDefSeq"
  + :TYPE SEQUENCE
  + :TYPECODE (CREATE-SEQUENCE-TC
  +             0
  +             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:LOCALINTERFACEDEF)))
  +
  +(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-STRUCT OMG.ORG/CORBA:STRUCTMEMBER
  + :ID "IDL:omg.org/CORBA/StructMember:1.0"
  + :NAME "StructMember"
  + :MEMBERS (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
  +            OMG.ORG/FEATURES:NAME)
  +           ("type" OMG.ORG/CORBA:TC_TYPECODE OMG.ORG/FEATURES:TYPE)
  +           ("type_def" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
  +            OMG.ORG/FEATURES: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: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:INITIALIZER
  + :ID "IDL:omg.org/CORBA/Initializer:1.0"
  + :NAME "Initializer"
  + :MEMBERS (("members" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:STRUCTMEMBERSEQ)
  +            OMG.ORG/FEATURES:MEMBERS)
  +           ("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
  +            OMG.ORG/FEATURES:NAME))
  + :READ ((BUFFER)
  +        (OMG.ORG/CORBA:INITIALIZER :MEMBERS
  +         (UNMARSHAL-SEQUENCE
  +           (LAMBDA (BUFFER) (STRUCT-READ 'OMG.ORG/CORBA:STRUCTMEMBER BUFFER))
  +           BUFFER)
  +         :NAME (UNMARSHAL-STRING BUFFER)))
  + :WRITE ((OBJ BUFFER)
  +         (MARSHAL-SEQUENCE
  +           (OMG.ORG/FEATURES:MEMBERS OBJ)
  +           (LAMBDA (OBJ BUFFER)
  +             (STRUCT-WRITE OBJ 'OMG.ORG/CORBA:STRUCTMEMBER BUFFER))
  +           BUFFER)
  +         (MARSHAL-STRING (OMG.ORG/FEATURES:NAME OBJ) BUFFER)))
  +
  +(DEFINE-ALIAS OMG.ORG/CORBA:INITIALIZERSEQ
  + :ID "IDL:omg.org/CORBA/InitializerSeq:1.0"
  + :NAME "InitializerSeq"
  + :TYPE SEQUENCE
  + :TYPECODE (CREATE-SEQUENCE-TC 0 (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INITIALIZER)))
  +
  +(DEFINE-STRUCT OMG.ORG/CORBA:UNIONMEMBER
  + :ID "IDL:omg.org/CORBA/UnionMember:1.0"
  + :NAME "UnionMember"
  + :MEMBERS (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
  +            OMG.ORG/FEATURES:NAME)
  +           ("label" OMG.ORG/CORBA:TC_ANY OMG.ORG/FEATURES:LABEL)
  +           ("type" OMG.ORG/CORBA:TC_TYPECODE OMG.ORG/FEATURES:TYPE)
  +           ("type_def" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
  +            OMG.ORG/FEATURES: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: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-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-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"
  +           "pk_value_base"))
  +
  +(DEFINE-STRUCT OMG.ORG/CORBA:MODULEDESCRIPTION
  + :ID "IDL:omg.org/CORBA/ModuleDescription:1.0"
  + :NAME "ModuleDescription"
  + :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)
  -            DEFINED_IN)
  -           ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC) VERSION)
  -           ("base_interfaces" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYIDSEQ)
  -            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)
  +            OMG.ORG/FEATURES:DEFINED_IN)
  +           ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
  +            OMG.ORG/FEATURES: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-STRUCT OMG.ORG/CORBA:CONSTANTDESCRIPTION
  + :ID "IDL:omg.org/CORBA/ConstantDescription:1.0"
  + :NAME "ConstantDescription"
  + :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)
  +           ("value" OMG.ORG/CORBA:TC_ANY OMG.ORG/FEATURES: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-SEQUENCE
  -           (OMG.ORG/FEATURES:BASE_INTERFACES OBJ)
  -           #'MARSHAL-STRING
  -           BUFFER)))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:ATTRDESCRIPTIONSEQ
  - :id "IDL:omg.org/CORBA/AttrDescriptionSeq:1.0"
  - :name "AttrDescriptionSeq"
  - :type SEQUENCE
  - :typecode (create-sequence-tc
  +         (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:TYPEDESCRIPTION
  + :ID "IDL:omg.org/CORBA/TypeDescription:1.0"
  + :NAME "TypeDescription"
  + :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))
  + :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:EXCEPTIONDESCRIPTION
  + :ID "IDL:omg.org/CORBA/ExceptionDescription:1.0"
  + :NAME "ExceptionDescription"
  + :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))
  + :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-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:ATTRIBUTEDESCRIPTION
  + :ID "IDL:omg.org/CORBA/AttributeDescription:1.0"
  + :NAME "AttributeDescription"
  + :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)
  +           ("mode" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ATTRIBUTEMODE)
  +            OMG.ORG/FEATURES: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)
  +         (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:MODE OBJ)
  +                  (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ATTRIBUTEMODE)
  +                  BUFFER)))
  +
  +(DEFINE-ENUM OMG.ORG/CORBA:OPERATIONMODE
  + :ID "IDL:omg.org/CORBA/OperationMode:1.0"
  + :NAME "OperationMode"
  + :MEMBERS ("OP_NORMAL" "OP_ONEWAY"))
  +
  +(DEFINE-ENUM OMG.ORG/CORBA:PARAMETERMODE
  + :ID "IDL:omg.org/CORBA/ParameterMode:1.0"
  + :NAME "ParameterMode"
  + :MEMBERS ("PARAM_IN" "PARAM_OUT" "PARAM_INOUT"))
  +
  +(DEFINE-STRUCT OMG.ORG/CORBA:PARAMETERDESCRIPTION
  + :ID "IDL:omg.org/CORBA/ParameterDescription:1.0"
  + :NAME "ParameterDescription"
  + :MEMBERS (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
  +            OMG.ORG/FEATURES:NAME)
  +           ("type" OMG.ORG/CORBA:TC_TYPECODE OMG.ORG/FEATURES:TYPE)
  +           ("type_def" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
  +            OMG.ORG/FEATURES:TYPE_DEF)
  +           ("mode" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARAMETERMODE)
  +            OMG.ORG/FEATURES: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)
  +         (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-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:ATTRIBUTEDESCRIPTION)))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:OPDESCRIPTIONSEQ
  - :id "IDL:omg.org/CORBA/OpDescriptionSeq:1.0"
  - :name "OpDescriptionSeq"
  - :type SEQUENCE
  - :typecode (create-sequence-tc
  +             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARAMETERDESCRIPTION)))
  +
  +(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:CONTEXTIDSEQ
  + :ID "IDL:omg.org/CORBA/ContextIdSeq:1.0"
  + :NAME "ContextIdSeq"
  + :TYPE SEQUENCE
  + :TYPECODE (CREATE-SEQUENCE-TC
                0
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:OPERATIONDESCRIPTION)))
  -
  -(DEFINE-ALIAS OMG.ORG/CORBA:REPOSITORYIDSEQ
  - :id "IDL:omg.org/CORBA/RepositoryIdSeq:1.0"
  - :name "RepositoryIdSeq"
  - :type SEQUENCE
  - :typecode (create-sequence-tc
  +             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTEXTIDENTIFIER)))
  +
  +(DEFINE-ALIAS OMG.ORG/CORBA:EXCEPTIONDEFSEQ
  + :ID "IDL:omg.org/CORBA/ExceptionDefSeq:1.0"
  + :NAME "ExceptionDefSeq"
  + :TYPE SEQUENCE
  + :TYPECODE (CREATE-SEQUENCE-TC 0 (SYMBOL-TYPECODE 'OMG.ORG/CORBA:EXCEPTIONDEF)))
  +
  +(DEFINE-ALIAS OMG.ORG/CORBA:EXCDESCRIPTIONSEQ
  + :ID "IDL:omg.org/CORBA/ExcDescriptionSeq:1.0"
  + :NAME "ExcDescriptionSeq"
  + :TYPE SEQUENCE
  + :TYPECODE (CREATE-SEQUENCE-TC
                0
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)))
  +             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:EXCEPTIONDESCRIPTION)))
   
   (DEFINE-STRUCT OMG.ORG/CORBA:OPERATIONDESCRIPTION
  - :id "IDL:omg.org/CORBA/OperationDescription:1.0"
  - :name "OperationDescription"
  - :members (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER) NAME)
  -           ("id" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID) ID)
  + :ID "IDL:omg.org/CORBA/OperationDescription:1.0"
  + :NAME "OperationDescription"
  + :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)
  -            DEFINED_IN)
  -           ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC) VERSION)
  -           ("result" OMG.ORG/CORBA:TC_TYPECODE RESULT)
  -           ("mode" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:OPERATIONMODE) MODE)
  -           ("contexts" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTEXTIDSEQ) CONTEXTS)
  +            OMG.ORG/FEATURES:DEFINED_IN)
  +           ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
  +            OMG.ORG/FEATURES:VERSION)
  +           ("result" OMG.ORG/CORBA:TC_TYPECODE OMG.ORG/FEATURES:RESULT)
  +           ("mode" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:OPERATIONMODE)
  +            OMG.ORG/FEATURES:MODE)
  +           ("contexts" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTEXTIDSEQ)
  +            OMG.ORG/FEATURES:CONTEXTS)
              ("parameters" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARDESCRIPTIONSEQ)
  -            PARAMETERS)
  +            OMG.ORG/FEATURES:PARAMETERS)
              ("exceptions" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:EXCDESCRIPTIONSEQ)
  -            EXCEPTIONS))
  - :read ((BUFFER)
  +            OMG.ORG/FEATURES:EXCEPTIONS))
  + :READ ((BUFFER)
           (OMG.ORG/CORBA:OPERATIONDESCRIPTION
  -          :name
  -          (UNMARSHAL-STRING BUFFER)
  -          :id
  -          (UNMARSHAL-STRING BUFFER)
  -          :defined_in
  -          (UNMARSHAL-STRING BUFFER)
  -          :version
  -          (UNMARSHAL-STRING BUFFER)
  -          :result
  +          :NAME
  +          (UNMARSHAL-STRING BUFFER)
  +          :ID
  +          (UNMARSHAL-STRING BUFFER)
  +          :DEFINED_IN
  +          (UNMARSHAL-STRING BUFFER)
  +          :VERSION
  +          (UNMARSHAL-STRING BUFFER)
  +          :RESULT
             (UNMARSHAL OMG.ORG/CORBA:TC_TYPECODE BUFFER)
  -          :mode
  +          :MODE
             (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:OPERATIONMODE) BUFFER)
  -          :contexts
  +          :CONTEXTS
             (UNMARSHAL-SEQUENCE #'UNMARSHAL-STRING BUFFER)
  -          :parameters
  +          :PARAMETERS
             (UNMARSHAL-SEQUENCE
  -            (lambda (buffer)
  +            (LAMBDA (BUFFER)
                 (STRUCT-READ 'OMG.ORG/CORBA:PARAMETERDESCRIPTION BUFFER))
               BUFFER)
  -          :exceptions
  +          :EXCEPTIONS
             (UNMARSHAL-SEQUENCE
  -            (lambda (buffer)
  +            (LAMBDA (BUFFER)
                 (STRUCT-READ 'OMG.ORG/CORBA:EXCEPTIONDESCRIPTION BUFFER))
               BUFFER)))
  - :write ((OBJ BUFFER) (MARSHAL-STRING (OMG.ORG/FEATURES:NAME OBJ) 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)
  
positive.code:                   OMG.ORG/CORBA:TC_TYPECODE
                    BUFFER)))
  
  (DEFINE-METHOD "IS_A" ((OBJ OMG.ORG/CORBA:INTERFACEDEF-PROXY) _INTERFACE_ID)
    (STATIC-CALL ("is_a" OBJ)
     :output ((OUTPUT) (MARSHAL-STRING _INTERFACE_ID OUTPUT))
     :input ((INPUT) (UNMARSHAL-BOOL INPUT))
     :exceptions NIL))
  
  (DEFINE-METHOD "BASE_INTERFACES" ((OBJ OMG.ORG/CORBA:INTERFACEDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_base_interfaces"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INTERFACEDEFSEQ)))
  
  (DEFINE-METHOD (setf "BASE_INTERFACES") (NEWVAL
                                           (OBJ
                                            OMG.ORG/CORBA:INTERFACEDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_base_interfaces"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INTERFACEDEFSEQ)
      NEWVAL))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:OPERATIONDEF (OMG.ORG/CORBA:CONTAINED)
   :proxy (OMG.ORG/CORBA:OPERATIONDEF-PROXY OMG.ORG/CORBA:OPERATIONDEF
           OMG.ORG/CORBA:CONTAINED-PROXY)
   :id "IDL:omg.org/CORBA/OperationDef:1.0"
   :name "OperationDef")
  
  (DEFINE-METHOD "EXCEPTIONS" ((OBJ OMG.ORG/CORBA:OPERATIONDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_exceptions"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:EXCEPTIONDEFSEQ)))
  
  (DEFINE-METHOD (setf "EXCEPTIONS") (NEWVAL
                                      (OBJ OMG.ORG/CORBA:OPERATIONDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_exceptions"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:EXCEPTIONDEFSEQ)
      NEWVAL))
  
  (DEFINE-METHOD "CONTEXTS" ((OBJ OMG.ORG/CORBA:OPERATIONDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_contexts"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTEXTIDSEQ)))
  
  (DEFINE-METHOD (setf "CONTEXTS") (NEWVAL
                                    (OBJ OMG.ORG/CORBA:OPERATIONDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_contexts"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTEXTIDSEQ)
      NEWVAL))
  
  (DEFINE-METHOD "MODE" ((OBJ OMG.ORG/CORBA:OPERATIONDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_mode"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:OPERATIONMODE)))
  
  (DEFINE-METHOD (setf "MODE") (NEWVAL (OBJ OMG.ORG/CORBA:OPERATIONDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_mode"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:OPERATIONMODE)
      NEWVAL))
  
  (DEFINE-METHOD "PARAMS" ((OBJ OMG.ORG/CORBA:OPERATIONDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_params"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARDESCRIPTIONSEQ)))
  
  (DEFINE-METHOD (setf "PARAMS") (NEWVAL (OBJ OMG.ORG/CORBA:OPERATIONDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_params"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARDESCRIPTIONSEQ)
      NEWVAL))
  
  (DEFINE-METHOD "RESULT_DEF" ((OBJ OMG.ORG/CORBA:OPERATIONDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_result_def"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)))
  
  (DEFINE-METHOD (setf "RESULT_DEF") (NEWVAL
                                      (OBJ OMG.ORG/CORBA:OPERATIONDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_result_def"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
      NEWVAL))
  
  (DEFINE-METHOD "RESULT" ((OBJ OMG.ORG/CORBA:OPERATIONDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_result" OMG.ORG/CORBA:TC_TYPECODE))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:ATTRIBUTEDEF (OMG.ORG/CORBA:CONTAINED)
   :proxy (OMG.ORG/CORBA:ATTRIBUTEDEF-PROXY OMG.ORG/CORBA:ATTRIBUTEDEF
           OMG.ORG/CORBA:CONTAINED-PROXY)
   :id "IDL:omg.org/CORBA/AttributeDef:1.0"
   :name "AttributeDef")
  
  (DEFINE-METHOD "MODE" ((OBJ OMG.ORG/CORBA:ATTRIBUTEDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_mode"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ATTRIBUTEMODE)))
  
  (DEFINE-METHOD (setf "MODE") (NEWVAL (OBJ OMG.ORG/CORBA:ATTRIBUTEDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_mode"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ATTRIBUTEMODE)
      NEWVAL))
  
  (DEFINE-METHOD "TYPE_DEF" ((OBJ OMG.ORG/CORBA:ATTRIBUTEDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_type_def" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)))
  
  (DEFINE-METHOD (setf "TYPE_DEF") (NEWVAL
                                    (OBJ OMG.ORG/CORBA:ATTRIBUTEDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_type_def"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
      NEWVAL))
  
  (DEFINE-METHOD "TYPE" ((OBJ OMG.ORG/CORBA:ATTRIBUTEDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_type" OMG.ORG/CORBA:TC_TYPECODE))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:EXCEPTIONDEF (OMG.ORG/CORBA:CONTAINED)
   :proxy (OMG.ORG/CORBA:EXCEPTIONDEF-PROXY OMG.ORG/CORBA:EXCEPTIONDEF
           OMG.ORG/CORBA:CONTAINED-PROXY)
   :id "IDL:omg.org/CORBA/ExceptionDef:1.0"
   :name "ExceptionDef")
  
  (DEFINE-METHOD "MEMBERS" ((OBJ OMG.ORG/CORBA:EXCEPTIONDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_members"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:STRUCTMEMBERSEQ)))
  
  (DEFINE-METHOD (setf "MEMBERS") (NEWVAL (OBJ OMG.ORG/CORBA:EXCEPTIONDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_members"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:STRUCTMEMBERSEQ)
      NEWVAL))
  
  (DEFINE-METHOD "TYPE" ((OBJ OMG.ORG/CORBA:EXCEPTIONDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_type" OMG.ORG/CORBA:TC_TYPECODE))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:ARRAYDEF (OMG.ORG/CORBA:IDLTYPE)
   :proxy (OMG.ORG/CORBA:ARRAYDEF-PROXY OMG.ORG/CORBA:ARRAYDEF
           OMG.ORG/CORBA:IDLTYPE-PROXY)
   :id "IDL:omg.org/CORBA/ArrayDef:1.0"
   :name "ArrayDef")
  
  (DEFINE-METHOD "ELEMENT_TYPE_DEF" ((OBJ OMG.ORG/CORBA:ARRAYDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_element_type_def"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)))
  
  (DEFINE-METHOD (setf "ELEMENT_TYPE_DEF") (NEWVAL
                                            (OBJ OMG.ORG/CORBA:ARRAYDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_element_type_def"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
      NEWVAL))
  
  (DEFINE-METHOD "ELEMENT_TYPE" ((OBJ OMG.ORG/CORBA:ARRAYDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_element_type" OMG.ORG/CORBA:TC_TYPECODE))
  
  (DEFINE-METHOD "LENGTH" ((OBJ OMG.ORG/CORBA:ARRAYDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_length" OMG.ORG/CORBA:TC_ULONG))
  
  (DEFINE-METHOD (setf "LENGTH") (NEWVAL (OBJ OMG.ORG/CORBA:ARRAYDEF-PROXY))
    (SET-ATTRIBUTE OBJ "_set_length" OMG.ORG/CORBA:TC_ULONG NEWVAL))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:SEQUENCEDEF (OMG.ORG/CORBA:IDLTYPE)
   :proxy (OMG.ORG/CORBA:SEQUENCEDEF-PROXY OMG.ORG/CORBA:SEQUENCEDEF
           OMG.ORG/CORBA:IDLTYPE-PROXY)
   :id "IDL:omg.org/CORBA/SequenceDef:1.0"
   :name "SequenceDef")
  
  (DEFINE-METHOD "ELEMENT_TYPE_DEF" ((OBJ OMG.ORG/CORBA:SEQUENCEDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_element_type_def"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)))
  
  (DEFINE-METHOD (setf "ELEMENT_TYPE_DEF") (NEWVAL
                                            (OBJ
                                             OMG.ORG/CORBA:SEQUENCEDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_element_type_def"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
      NEWVAL))
  
  (DEFINE-METHOD "ELEMENT_TYPE" ((OBJ OMG.ORG/CORBA:SEQUENCEDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_element_type" OMG.ORG/CORBA:TC_TYPECODE))
  
  (DEFINE-METHOD "BOUND" ((OBJ OMG.ORG/CORBA:SEQUENCEDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_bound" OMG.ORG/CORBA:TC_ULONG))
  
  (DEFINE-METHOD (setf "BOUND") (NEWVAL (OBJ OMG.ORG/CORBA:SEQUENCEDEF-PROXY))
    (SET-ATTRIBUTE OBJ "_set_bound" OMG.ORG/CORBA:TC_ULONG NEWVAL))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:FIXEDDEF (OMG.ORG/CORBA:IDLTYPE)
   :proxy (OMG.ORG/CORBA:FIXEDDEF-PROXY OMG.ORG/CORBA:FIXEDDEF
           OMG.ORG/CORBA:IDLTYPE-PROXY)
   :id "IDL:omg.org/CORBA/FixedDef:1.0"
   :name "FixedDef")
  
  (DEFINE-METHOD "SCALE" ((OBJ OMG.ORG/CORBA:FIXEDDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_scale" OMG.ORG/CORBA:TC_SHORT))
  
  (DEFINE-METHOD (setf "SCALE") (NEWVAL (OBJ OMG.ORG/CORBA:FIXEDDEF-PROXY))
    (SET-ATTRIBUTE OBJ "_set_scale" OMG.ORG/CORBA:TC_SHORT NEWVAL))
  
  (DEFINE-METHOD "DIGITS" ((OBJ OMG.ORG/CORBA:FIXEDDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_digits" OMG.ORG/CORBA:TC_USHORT))
  
  (DEFINE-METHOD (setf "DIGITS") (NEWVAL (OBJ OMG.ORG/CORBA:FIXEDDEF-PROXY))
    (SET-ATTRIBUTE OBJ "_set_digits" OMG.ORG/CORBA:TC_USHORT NEWVAL))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:WSTRINGDEF (OMG.ORG/CORBA:IDLTYPE)
   :proxy (OMG.ORG/CORBA:WSTRINGDEF-PROXY OMG.ORG/CORBA:WSTRINGDEF
           OMG.ORG/CORBA:IDLTYPE-PROXY)
   :id "IDL:omg.org/CORBA/WstringDef:1.0"
   :name "WstringDef")
  
  (DEFINE-METHOD "BOUND" ((OBJ OMG.ORG/CORBA:WSTRINGDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_bound" OMG.ORG/CORBA:TC_ULONG))
  
  (DEFINE-METHOD (setf "BOUND") (NEWVAL (OBJ OMG.ORG/CORBA:WSTRINGDEF-PROXY))
    (SET-ATTRIBUTE OBJ "_set_bound" OMG.ORG/CORBA:TC_ULONG NEWVAL))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:STRINGDEF (OMG.ORG/CORBA:IDLTYPE)
   :proxy (OMG.ORG/CORBA:STRINGDEF-PROXY OMG.ORG/CORBA:STRINGDEF
           OMG.ORG/CORBA:IDLTYPE-PROXY)
   :id "IDL:omg.org/CORBA/StringDef:1.0"
   :name "StringDef")
  
  (DEFINE-METHOD "BOUND" ((OBJ OMG.ORG/CORBA:STRINGDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_bound" OMG.ORG/CORBA:TC_ULONG))
  
  (DEFINE-METHOD (setf "BOUND") (NEWVAL (OBJ OMG.ORG/CORBA:STRINGDEF-PROXY))
    (SET-ATTRIBUTE OBJ "_set_bound" OMG.ORG/CORBA:TC_ULONG NEWVAL))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:PRIMITIVEDEF (OMG.ORG/CORBA:IDLTYPE)
   :proxy (OMG.ORG/CORBA:PRIMITIVEDEF-PROXY OMG.ORG/CORBA:PRIMITIVEDEF
           OMG.ORG/CORBA:IDLTYPE-PROXY)
   :id "IDL:omg.org/CORBA/PrimitiveDef:1.0"
   :name "PrimitiveDef")
  
  (DEFINE-METHOD "KIND" ((OBJ OMG.ORG/CORBA:PRIMITIVEDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_kind"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PRIMITIVEKIND)))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:TYPEDEFDEF (OMG.ORG/CORBA:CONTAINED
                                              OMG.ORG/CORBA:IDLTYPE)
   :proxy (OMG.ORG/CORBA:TYPEDEFDEF-PROXY OMG.ORG/CORBA:TYPEDEFDEF
           OMG.ORG/CORBA:CONTAINED-PROXY OMG.ORG/CORBA:IDLTYPE-PROXY)
   :id "IDL:omg.org/CORBA/TypedefDef:1.0"
   :name "TypedefDef")
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:CONSTANTDEF (OMG.ORG/CORBA:CONTAINED)
   :proxy (OMG.ORG/CORBA:CONSTANTDEF-PROXY OMG.ORG/CORBA:CONSTANTDEF
           OMG.ORG/CORBA:CONTAINED-PROXY)
   :id "IDL:omg.org/CORBA/ConstantDef:1.0"
   :name "ConstantDef")
  
  (DEFINE-METHOD "VALUE" ((OBJ OMG.ORG/CORBA:CONSTANTDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_value" OMG.ORG/CORBA:TC_ANY))
  
  (DEFINE-METHOD (setf "VALUE") (NEWVAL (OBJ OMG.ORG/CORBA:CONSTANTDEF-PROXY))
    (SET-ATTRIBUTE OBJ "_set_value" OMG.ORG/CORBA:TC_ANY NEWVAL))
  
  (DEFINE-METHOD "TYPE_DEF" ((OBJ OMG.ORG/CORBA:CONSTANTDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_type_def" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)))
  
  (DEFINE-METHOD (setf "TYPE_DEF") (NEWVAL (OBJ OMG.ORG/CORBA:CONSTANTDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_type_def"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
      NEWVAL))
  
  (DEFINE-METHOD "TYPE" ((OBJ OMG.ORG/CORBA:CONSTANTDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_type" OMG.ORG/CORBA:TC_TYPECODE))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:MODULEDEF (OMG.ORG/CORBA:CONTAINER
                                             OMG.ORG/CORBA:CONTAINED)
   :proxy (OMG.ORG/CORBA:MODULEDEF-PROXY OMG.ORG/CORBA:MODULEDEF
           OMG.ORG/CORBA:CONTAINER-PROXY OMG.ORG/CORBA:CONTAINED-PROXY)
   :id "IDL:omg.org/CORBA/ModuleDef:1.0"
   :name "ModuleDef")
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:REPOSITORY (OMG.ORG/CORBA:CONTAINER)
   :proxy (OMG.ORG/CORBA:REPOSITORY-PROXY OMG.ORG/CORBA:REPOSITORY
           OMG.ORG/CORBA:CONTAINER-PROXY)
   :id "IDL:omg.org/CORBA/Repository:1.0"
   :name "Repository")
  
  (DEFINE-METHOD "CREATE_FIXED" ((OBJ OMG.ORG/CORBA:REPOSITORY-PROXY) _DIGITS
                                 _SCALE)
    (STATIC-CALL ("create_fixed" OBJ)
     :output ((OUTPUT) (MARSHAL-USHORT _DIGITS OUTPUT)
              (MARSHAL-SHORT _SCALE OUTPUT))
     :input ((INPUT) (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:FIXEDDEF) INPUT))
     :exceptions NIL))
  
  (DEFINE-METHOD "CREATE_ARRAY" ((OBJ OMG.ORG/CORBA:REPOSITORY-PROXY) _LENGTH
                                 _ELEMENT_TYPE)
    (STATIC-CALL ("create_array" OBJ)
     :output ((OUTPUT) (MARSHAL-ULONG _LENGTH OUTPUT)
              (MARSHAL _ELEMENT_TYPE
                       (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
                       OUTPUT))
     :input ((INPUT) (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ARRAYDEF) INPUT))
     :exceptions NIL))
  
  (DEFINE-METHOD "CREATE_SEQUENCE" ((OBJ OMG.ORG/CORBA:REPOSITORY-PROXY) _BOUND
                                    _ELEMENT_TYPE)
    (STATIC-CALL ("create_sequence" OBJ)
     :output ((OUTPUT) (MARSHAL-ULONG _BOUND OUTPUT)
              (MARSHAL _ELEMENT_TYPE
                       (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
                       OUTPUT))
     :input ((INPUT)
             (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:SEQUENCEDEF) INPUT))
     :exceptions NIL))
  
  (DEFINE-METHOD "CREATE_WSTRING" ((OBJ OMG.ORG/CORBA:REPOSITORY-PROXY) _BOUND)
    (STATIC-CALL ("create_wstring" OBJ)
     :output ((OUTPUT) (MARSHAL-ULONG _BOUND OUTPUT))
     :input ((INPUT)
             (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:WSTRINGDEF) INPUT))
     :exceptions NIL))
  
  (DEFINE-METHOD "CREATE_STRING" ((OBJ OMG.ORG/CORBA:REPOSITORY-PROXY) _BOUND)
    (STATIC-CALL ("create_string" OBJ)
     :output ((OUTPUT) (MARSHAL-ULONG _BOUND OUTPUT))
     :input ((INPUT)
             (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:STRINGDEF) INPUT))
     :exceptions NIL))
  
  (DEFINE-METHOD "GET_PRIMITIVE" ((OBJ OMG.ORG/CORBA:REPOSITORY-PROXY) _KIND)
    (STATIC-CALL ("get_primitive" OBJ)
     :output ((OUTPUT)
              (MARSHAL _KIND
                       (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PRIMITIVEKIND)
                       OUTPUT))
     :input ((INPUT)
             (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PRIMITIVEDEF) INPUT))
     :exceptions NIL))
  
  (DEFINE-METHOD "LOOKUP_ID" ((OBJ OMG.ORG/CORBA:REPOSITORY-PROXY) _SEARCH_ID)
    (STATIC-CALL ("lookup_id" OBJ)
     :output ((OUTPUT) (MARSHAL-STRING _SEARCH_ID OUTPUT))
     :input ((INPUT)
             (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINED) INPUT))
     :exceptions NIL))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:ALIASDEF (OMG.ORG/CORBA:TYPEDEFDEF)
   :proxy (OMG.ORG/CORBA:ALIASDEF-PROXY OMG.ORG/CORBA:ALIASDEF
           OMG.ORG/CORBA:TYPEDEFDEF-PROXY)
   :id "IDL:omg.org/CORBA/AliasDef:1.0"
   :name "AliasDef")
  
  (DEFINE-METHOD "ORIGINAL_TYPE_DEF" ((OBJ OMG.ORG/CORBA:ALIASDEF-PROXY))
    (GET-ATTRIBUTE
  
negative.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
  