anchor.diff:             ("type" OMG.ORG/CORBA:TC_TYPECODE TYPE)
              ("type_def" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE) TYPE_DEF)))
   
  -(SET-SYMBOL-IFR-ID
  +(SET-SYMBOL-ID/TYPECODE
     'OMG.ORG/CORBA:STRUCTMEMBERSEQ
  -  "IDL:omg.org/CORBA/StructMemberSeq:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:STRUCTMEMBERSEQ
  +  "IDL:omg.org/CORBA/StructMemberSeq:1.0"
     (LAMBDA NIL
       (MAKE-TC-ALIAS
         "IDL:omg.org/CORBA/StructMemberSeq:1.0"
  
positive.code:            :PK_WCHAR
             :PK_WSTRING))
  
  (SET-SYMBOL-IFR-ID 'OMG.ORG/CORBA:IDLTYPE "IDL:omg.org/CORBA/IDLType:1.0")
  
  (SET-SYMBOL-TYPECODE
    'OMG.ORG/CORBA:IDLTYPE
    (MAKE-TYPECODE :TK_OBJREF "IDL:omg.org/CORBA/IDLType:1.0" "IDLType"))
  
  
  (REGISTER-PROXY-CLASS
    "IDL:omg.org/CORBA/IDLType:1.0"
    'OMG.ORG/CORBA:IDLTYPE-PROXY)
  
  (DEFMETHOD OMG.ORG/FEATURES:TYPE ((OBJ OMG.ORG/CORBA:IDLTYPE-PROXY) &REST ARGS)
    (APPLY 'INVOKE OBJ "_get_type" ARGS))
  
  (SET-SYMBOL-IFR-ID 'OMG.ORG/CORBA:CONTAINER "IDL:omg.org/CORBA/Container:1.0")
  
  (SET-SYMBOL-TYPECODE
    'OMG.ORG/CORBA:CONTAINER
    (MAKE-TYPECODE :TK_OBJREF "IDL:omg.org/CORBA/Container:1.0" "Container"))
  
  
  (REGISTER-PROXY-CLASS
    "IDL:omg.org/CORBA/Container:1.0"
    'OMG.ORG/CORBA:CONTAINER-PROXY)
  
  (DEFINE-METHOD "CREATE_INTERFACE" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) ID NAME
                                     VERSION BASE_INTERFACES)
    (LET ((_REQUEST
           (REQUEST-CREATE
             OBJ
             "create_interface"
             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INTERFACEDEF))))
      (ADD-ARG _REQUEST
               "id"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
               ID)
      (ADD-ARG _REQUEST
               "name"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
               NAME)
      (ADD-ARG _REQUEST
               "version"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
               VERSION)
      (ADD-ARG _REQUEST
               "base_interfaces"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INTERFACEDEFSEQ)
               BASE_INTERFACES)
      (REQUEST-FUNCALL _REQUEST)))
  
  (DEFINE-METHOD "CREATE_ALIAS" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) ID NAME
                                 VERSION ORIGINAL_TYPE)
    (LET ((_REQUEST
           (REQUEST-CREATE
             OBJ
             "create_alias"
             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ALIASDEF))))
      (ADD-ARG _REQUEST
               "id"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
               ID)
      (ADD-ARG _REQUEST
               "name"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
               NAME)
      (ADD-ARG _REQUEST
               "version"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
               VERSION)
      (ADD-ARG _REQUEST
               "original_type"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
               ORIGINAL_TYPE)
      (REQUEST-FUNCALL _REQUEST)))
  
  (DEFINE-METHOD "CREATE_ENUM" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) ID NAME
                                VERSION MEMBERS)
    (LET ((_REQUEST
           (REQUEST-CREATE
             OBJ
             "create_enum"
             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ENUMDEF))))
      (ADD-ARG _REQUEST
               "id"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
               ID)
      (ADD-ARG _REQUEST
               "name"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
               NAME)
      (ADD-ARG _REQUEST
               "version"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
               VERSION)
      (ADD-ARG _REQUEST
               "members"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ENUMMEMBERSEQ)
               MEMBERS)
      (REQUEST-FUNCALL _REQUEST)))
  
  (DEFINE-METHOD "CREATE_UNION" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) ID NAME
                                 VERSION DISCRIMINATOR_TYPE MEMBERS)
    (LET ((_REQUEST
           (REQUEST-CREATE
             OBJ
             "create_union"
             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:UNIONDEF))))
      (ADD-ARG _REQUEST
               "id"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
               ID)
      (ADD-ARG _REQUEST
               "name"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
               NAME)
      (ADD-ARG _REQUEST
               "version"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
               VERSION)
      (ADD-ARG _REQUEST
               "discriminator_type"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
               DISCRIMINATOR_TYPE)
      (ADD-ARG _REQUEST
               "members"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:UNIONMEMBERSEQ)
               MEMBERS)
      (REQUEST-FUNCALL _REQUEST)))
  
  (DEFINE-METHOD "CREATE_EXCEPTION" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) ID NAME
                                     VERSION MEMBERS)
    (LET ((_REQUEST
           (REQUEST-CREATE
             OBJ
             "create_exception"
             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:EXCEPTIONDEF))))
      (ADD-ARG _REQUEST
               "id"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
               ID)
      (ADD-ARG _REQUEST
               "name"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
               NAME)
      (ADD-ARG _REQUEST
               "version"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
               VERSION)
      (ADD-ARG _REQUEST
               "members"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:STRUCTMEMBERSEQ)
               MEMBERS)
      (REQUEST-FUNCALL _REQUEST)))
  
  (DEFINE-METHOD "CREATE_STRUCT" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) ID NAME
                                  VERSION MEMBERS)
    (LET ((_REQUEST
           (REQUEST-CREATE
             OBJ
             "create_struct"
             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:STRUCTDEF))))
      (ADD-ARG _REQUEST
               "id"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
               ID)
      (ADD-ARG _REQUEST
               "name"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
               NAME)
      (ADD-ARG _REQUEST
               "version"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
               VERSION)
      (ADD-ARG _REQUEST
               "members"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:STRUCTMEMBERSEQ)
               MEMBERS)
      (REQUEST-FUNCALL _REQUEST)))
  
  (DEFINE-METHOD "CREATE_CONSTANT" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) ID NAME
                                    VERSION TYPE VALUE)
    (LET ((_REQUEST
           (REQUEST-CREATE
             OBJ
             "create_constant"
             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONSTANTDEF))))
      (ADD-ARG _REQUEST
               "id"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
               ID)
      (ADD-ARG _REQUEST
               "name"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
               NAME)
      (ADD-ARG _REQUEST
               "version"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
               VERSION)
      (ADD-ARG _REQUEST
               "type"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)
               TYPE)
      (ADD-ARG _REQUEST "value" ARG_IN OMG.ORG/CORBA:TC_ANY VALUE)
      (REQUEST-FUNCALL _REQUEST)))
  
  (DEFINE-METHOD "CREATE_MODULE" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) ID NAME
                                  VERSION)
    (LET ((_REQUEST
           (REQUEST-CREATE
             OBJ
             "create_module"
             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:MODULEDEF))))
      (ADD-ARG _REQUEST
               "id"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID)
               ID)
      (ADD-ARG _REQUEST
               "name"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
               NAME)
      (ADD-ARG _REQUEST
               "version"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
               VERSION)
      (REQUEST-FUNCALL _REQUEST)))
  
  (DEFINE-METHOD "DESCRIBE_CONTENTS" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY)
                                      LIMIT_TYPE EXCLUDE_INHERITED
                                      MAX_RETURNED_OBJS)
    (LET ((_REQUEST
           (REQUEST-CREATE
             OBJ
             "describe_contents"
             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINER/DESCRIPTIONSEQ))))
      (ADD-ARG _REQUEST
               "limit_type"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND)
               LIMIT_TYPE)
      (ADD-ARG _REQUEST
               "exclude_inherited"
               ARG_IN
               OMG.ORG/CORBA:TC_BOOLEAN
               EXCLUDE_INHERITED)
      (ADD-ARG _REQUEST
               "max_returned_objs"
               ARG_IN
               OMG.ORG/CORBA:TC_LONG
               MAX_RETURNED_OBJS)
      (REQUEST-FUNCALL _REQUEST)))
  
  (SET-SYMBOL-IFR-ID
    'OMG.ORG/CORBA:CONTAINER/DESCRIPTIONSEQ
    "IDL:omg.org/CORBA/Container/DescriptionSeq:1.0")
  
  (SET-SYMBOL-TYPECODE
    'OMG.ORG/CORBA:CONTAINER/DESCRIPTIONSEQ
    (LAMBDA NIL
      (MAKE-TC-ALIAS
        "IDL:omg.org/CORBA/Container/DescriptionSeq:1.0"
        "DescriptionSeq"
        (MAKE-SEQUENCE-TYPECODE
          (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINER/DESCRIPTION)
          0))))
  
  (DEFTYPE OMG.ORG/CORBA:CONTAINER/DESCRIPTIONSEQ () 'SEQUENCE)
  
  (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)))
  
  (DEFINE-METHOD "LOOKUP_NAME" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) SEARCH_NAME
                                LEVELS_TO_SEARCH LIMIT_TYPE EXCLUDE_INHERITED)
    (LET ((_REQUEST
           (REQUEST-CREATE
             OBJ
             "lookup_name"
             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINEDSEQ))))
      (ADD-ARG _REQUEST
               "search_name"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
               SEARCH_NAME)
      (ADD-ARG _REQUEST
               "levels_to_search"
               ARG_IN
               OMG.ORG/CORBA:TC_LONG
               LEVELS_TO_SEARCH)
      (ADD-ARG _REQUEST
               "limit_type"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND)
               LIMIT_TYPE)
      (ADD-ARG _REQUEST
               "exclude_inherited"
               ARG_IN
               OMG.ORG/CORBA:TC_BOOLEAN
               EXCLUDE_INHERITED)
      (REQUEST-FUNCALL _REQUEST)))
  
  (DEFINE-METHOD "CONTENTS" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) LIMIT_TYPE
                             EXCLUDE_INHERITED)
    (LET ((_REQUEST
           (REQUEST-CREATE
             OBJ
             "contents"
             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINEDSEQ))))
      (ADD-ARG _REQUEST
               "limit_type"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND)
               LIMIT_TYPE)
      (ADD-ARG _REQUEST
               "exclude_inherited"
               ARG_IN
               OMG.ORG/CORBA:TC_BOOLEAN
               EXCLUDE_INHERITED)
      (REQUEST-FUNCALL _REQUEST)))
  
  (DEFINE-METHOD "LOOKUP" ((OBJ OMG.ORG/CORBA:CONTAINER-PROXY) SEARCH_NAME)
    (LET ((_REQUEST
           (REQUEST-CREATE
             OBJ
             "lookup"
             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINED))))
      (ADD-ARG _REQUEST
               "search_name"
               ARG_IN
               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:SCOPEDNAME)
               SEARCH_NAME)
      (REQUEST-FUNCALL _REQUEST)))
  
  (SET-SYMBOL-IFR-ID
    'OMG.ORG/CORBA:ENUMMEMBERSEQ
    "IDL:omg.org/CORBA/EnumMemberSeq:1.0")
  
  (SET-SYMBOL-TYPECODE
    'OMG.ORG/CORBA:ENUMMEMBERSEQ
    (LAMBDA NIL
      (MAKE-TC-ALIAS
        "IDL:omg.org/CORBA/EnumMemberSeq:1.0"
  
negative.code: 
  (DEFTYPE OMG.ORG/CORBA:REPOSITORYID () 'OMG.ORG/CORBA:STRING)
  
  (SET-SYMBOL-ID/TYPECODE
    'OMG.ORG/CORBA:SCOPEDNAME
    "IDL:omg.org/CORBA/ScopedName:1.0"
    (LAMBDA NIL
      (MAKE-TC-ALIAS
        "IDL:omg.org/CORBA/ScopedName:1.0"
  