anchor.diff:             ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC) VERSION)
              ("type" OMG.ORG/CORBA:TC_TYPECODE TYPE)))
   
  -(SET-SYMBOL-IFR-ID
  -  'OMG.ORG/CORBA:EXCEPTIONDEF
  -  "IDL:omg.org/CORBA/ExceptionDef:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:EXCEPTIONDEF
  -  (MAKE-TYPECODE
  -    :TK_OBJREF
  -    "IDL:omg.org/CORBA/ExceptionDef:1.0"
  -    "ExceptionDef"))
  -
  -(DEFCLASS OMG.ORG/CORBA:EXCEPTIONDEF (OMG.ORG/CORBA:CONTAINED) NIL)
  -
  -(DEFCLASS OMG.ORG/CORBA:EXCEPTIONDEF-PROXY (OMG.ORG/CORBA:EXCEPTIONDEF
  -                                            OMG.ORG/CORBA:CONTAINED-PROXY)
  -  NIL)
  -
  -(REGISTER-PROXY-CLASS
  -  "IDL:omg.org/CORBA/ExceptionDef:1.0"
  -  'OMG.ORG/CORBA:EXCEPTIONDEF-PROXY)
  -
  -(DEFMETHOD OMG.ORG/FEATURES:MEMBERS ((OBJ OMG.ORG/CORBA:EXCEPTIONDEF-PROXY)
  -                                     &REST ARGS)
  -  (APPLY 'INVOKE OBJ "_get_members" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:MEMBERS) (NEWVAL
  -                                            (OBJ
  -                                             OMG.ORG/CORBA:EXCEPTIONDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_members" NEWVAL))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:TYPE ((OBJ OMG.ORG/CORBA:EXCEPTIONDEF-PROXY) &REST
  -                                  ARGS)
  -  (APPLY 'INVOKE OBJ "_get_type" ARGS))
  -
  -(SET-SYMBOL-IFR-ID 'OMG.ORG/CORBA:ARRAYDEF "IDL:omg.org/CORBA/ArrayDef:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:ARRAYDEF
  -  (MAKE-TYPECODE :TK_OBJREF "IDL:omg.org/CORBA/ArrayDef:1.0" "ArrayDef"))
  -
  -(DEFCLASS OMG.ORG/CORBA:ARRAYDEF (OMG.ORG/CORBA:IDLTYPE) NIL)
  -
  -(DEFCLASS OMG.ORG/CORBA:ARRAYDEF-PROXY (OMG.ORG/CORBA:ARRAYDEF
  -                                        OMG.ORG/CORBA:IDLTYPE-PROXY)
  -  NIL)
  -
  -(REGISTER-PROXY-CLASS
  -  "IDL:omg.org/CORBA/ArrayDef:1.0"
  -  'OMG.ORG/CORBA:ARRAYDEF-PROXY)
  -
  -(DEFMETHOD OMG.ORG/FEATURES:ELEMENT_TYPE_DEF ((OBJ
  -                                               OMG.ORG/CORBA:ARRAYDEF-PROXY)
  -                                              &REST
  -                                              ARGS)
  -  (APPLY 'INVOKE OBJ "_get_element_type_def" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:ELEMENT_TYPE_DEF) (NEWVAL
  -                                                     (OBJ
  -                                                      OMG.ORG/CORBA:ARRAYDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_element_type_def" NEWVAL))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:ELEMENT_TYPE ((OBJ OMG.ORG/CORBA:ARRAYDEF-PROXY)
  -                                          &REST
  -                                          ARGS)
  -  (APPLY 'INVOKE OBJ "_get_element_type" ARGS))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:LENGTH ((OBJ OMG.ORG/CORBA:ARRAYDEF-PROXY) &REST
  -                                    ARGS)
  -  (APPLY 'INVOKE OBJ "_get_length" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:LENGTH) (NEWVAL
  -                                           (OBJ OMG.ORG/CORBA:ARRAYDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_length" NEWVAL))
  -
  -(SET-SYMBOL-IFR-ID
  -  'OMG.ORG/CORBA:SEQUENCEDEF
  -  "IDL:omg.org/CORBA/SequenceDef:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:SEQUENCEDEF
  -  (MAKE-TYPECODE :TK_OBJREF "IDL:omg.org/CORBA/SequenceDef:1.0" "SequenceDef"))
  -
  -(DEFCLASS OMG.ORG/CORBA:SEQUENCEDEF (OMG.ORG/CORBA:IDLTYPE) NIL)
  -
  -(DEFCLASS OMG.ORG/CORBA:SEQUENCEDEF-PROXY (OMG.ORG/CORBA:SEQUENCEDEF
  -                                           OMG.ORG/CORBA:IDLTYPE-PROXY)
  -  NIL)
  -
  -(REGISTER-PROXY-CLASS
  -  "IDL:omg.org/CORBA/SequenceDef:1.0"
  -  'OMG.ORG/CORBA:SEQUENCEDEF-PROXY)
  -
  -(DEFMETHOD OMG.ORG/FEATURES:ELEMENT_TYPE_DEF ((OBJ
  -                                               OMG.ORG/CORBA:SEQUENCEDEF-PROXY)
  -                                              &REST
  -                                              ARGS)
  -  (APPLY 'INVOKE OBJ "_get_element_type_def" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:ELEMENT_TYPE_DEF) (NEWVAL
  -                                                     (OBJ
  -                                                      OMG.ORG/CORBA:SEQUENCEDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_element_type_def" NEWVAL))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:ELEMENT_TYPE ((OBJ OMG.ORG/CORBA:SEQUENCEDEF-PROXY)
  -                                          &REST
  -                                          ARGS)
  -  (APPLY 'INVOKE OBJ "_get_element_type" ARGS))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:BOUND ((OBJ OMG.ORG/CORBA:SEQUENCEDEF-PROXY) &REST
  -                                   ARGS)
  -  (APPLY 'INVOKE OBJ "_get_bound" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:BOUND) (NEWVAL
  -                                          (OBJ
  -                                           OMG.ORG/CORBA:SEQUENCEDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_bound" NEWVAL))
  -
  -(SET-SYMBOL-IFR-ID 'OMG.ORG/CORBA:FIXEDDEF "IDL:omg.org/CORBA/FixedDef:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:FIXEDDEF
  -  (MAKE-TYPECODE :TK_OBJREF "IDL:omg.org/CORBA/FixedDef:1.0" "FixedDef"))
  -
  -(DEFCLASS OMG.ORG/CORBA:FIXEDDEF (OMG.ORG/CORBA:IDLTYPE) NIL)
  -
  -(DEFCLASS OMG.ORG/CORBA:FIXEDDEF-PROXY (OMG.ORG/CORBA:FIXEDDEF
  -                                        OMG.ORG/CORBA:IDLTYPE-PROXY)
  -  NIL)
  -
  -(REGISTER-PROXY-CLASS
  -  "IDL:omg.org/CORBA/FixedDef:1.0"
  -  'OMG.ORG/CORBA:FIXEDDEF-PROXY)
  -
  -(DEFMETHOD OMG.ORG/FEATURES:SCALE ((OBJ OMG.ORG/CORBA:FIXEDDEF-PROXY) &REST
  -                                   ARGS)
  -  (APPLY 'INVOKE OBJ "_get_scale" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:SCALE) (NEWVAL
  -                                          (OBJ OMG.ORG/CORBA:FIXEDDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_scale" NEWVAL))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:DIGITS ((OBJ OMG.ORG/CORBA:FIXEDDEF-PROXY) &REST
  -                                    ARGS)
  -  (APPLY 'INVOKE OBJ "_get_digits" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:DIGITS) (NEWVAL
  -                                           (OBJ OMG.ORG/CORBA:FIXEDDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_digits" NEWVAL))
  -
  -(SET-SYMBOL-IFR-ID 'OMG.ORG/CORBA:WSTRINGDEF "IDL:omg.org/CORBA/WstringDef:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:WSTRINGDEF
  -  (MAKE-TYPECODE :TK_OBJREF "IDL:omg.org/CORBA/WstringDef:1.0" "WstringDef"))
  -
  -(DEFCLASS OMG.ORG/CORBA:WSTRINGDEF (OMG.ORG/CORBA:IDLTYPE) NIL)
  -
  -(DEFCLASS OMG.ORG/CORBA:WSTRINGDEF-PROXY (OMG.ORG/CORBA:WSTRINGDEF
  -                                          OMG.ORG/CORBA:IDLTYPE-PROXY)
  -  NIL)
  -
  -(REGISTER-PROXY-CLASS
  -  "IDL:omg.org/CORBA/WstringDef:1.0"
  -  'OMG.ORG/CORBA:WSTRINGDEF-PROXY)
  -
  -(DEFMETHOD OMG.ORG/FEATURES:BOUND ((OBJ OMG.ORG/CORBA:WSTRINGDEF-PROXY) &REST
  -                                   ARGS)
  -  (APPLY 'INVOKE OBJ "_get_bound" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:BOUND) (NEWVAL
  -                                          (OBJ OMG.ORG/CORBA:WSTRINGDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_bound" NEWVAL))
  -
  -(SET-SYMBOL-IFR-ID 'OMG.ORG/CORBA:STRINGDEF "IDL:omg.org/CORBA/StringDef:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:STRINGDEF
  -  (MAKE-TYPECODE :TK_OBJREF "IDL:omg.org/CORBA/StringDef:1.0" "StringDef"))
  -
  -(DEFCLASS OMG.ORG/CORBA:STRINGDEF (OMG.ORG/CORBA:IDLTYPE) NIL)
  -
  -(DEFCLASS OMG.ORG/CORBA:STRINGDEF-PROXY (OMG.ORG/CORBA:STRINGDEF
  -                                         OMG.ORG/CORBA:IDLTYPE-PROXY)
  -  NIL)
  -
  -(REGISTER-PROXY-CLASS
  -  "IDL:omg.org/CORBA/StringDef:1.0"
  -  'OMG.ORG/CORBA:STRINGDEF-PROXY)
  -
  -(DEFMETHOD OMG.ORG/FEATURES:BOUND ((OBJ OMG.ORG/CORBA:STRINGDEF-PROXY) &REST
  -                                   ARGS)
  -  (APPLY 'INVOKE OBJ "_get_bound" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:BOUND) (NEWVAL
  -                                          (OBJ OMG.ORG/CORBA:STRINGDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_bound" NEWVAL))
  -
  -(SET-SYMBOL-IFR-ID
  -  'OMG.ORG/CORBA:PRIMITIVEDEF
  -  "IDL:omg.org/CORBA/PrimitiveDef:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:PRIMITIVEDEF
  -  (MAKE-TYPECODE
  -    :TK_OBJREF
  -    "IDL:omg.org/CORBA/PrimitiveDef:1.0"
  -    "PrimitiveDef"))
  -
  -(DEFCLASS OMG.ORG/CORBA:PRIMITIVEDEF (OMG.ORG/CORBA:IDLTYPE) NIL)
  -
  -(DEFCLASS OMG.ORG/CORBA:PRIMITIVEDEF-PROXY (OMG.ORG/CORBA:PRIMITIVEDEF
  -                                            OMG.ORG/CORBA:IDLTYPE-PROXY)
  -  NIL)
  -
  -(REGISTER-PROXY-CLASS
  -  "IDL:omg.org/CORBA/PrimitiveDef:1.0"
  -  'OMG.ORG/CORBA:PRIMITIVEDEF-PROXY)
  -
  -(DEFMETHOD OMG.ORG/FEATURES:KIND ((OBJ OMG.ORG/CORBA:PRIMITIVEDEF-PROXY) &REST
  -                                  ARGS)
  -  (APPLY 'INVOKE OBJ "_get_kind" ARGS))
  -
  -(SET-SYMBOL-IFR-ID 'OMG.ORG/CORBA:ALIASDEF "IDL:omg.org/CORBA/AliasDef:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:ALIASDEF
  -  (MAKE-TYPECODE :TK_OBJREF "IDL:omg.org/CORBA/AliasDef:1.0" "AliasDef"))
  -
  -(DEFCLASS OMG.ORG/CORBA:ALIASDEF (OMG.ORG/CORBA:TYPEDEFDEF) NIL)
  -
  -(DEFCLASS OMG.ORG/CORBA:ALIASDEF-PROXY (OMG.ORG/CORBA:ALIASDEF
  -                                        OMG.ORG/CORBA:TYPEDEFDEF-PROXY)
  -  NIL)
  -
  -(REGISTER-PROXY-CLASS
  -  "IDL:omg.org/CORBA/AliasDef:1.0"
  -  'OMG.ORG/CORBA:ALIASDEF-PROXY)
  -
  -(DEFMETHOD OMG.ORG/FEATURES:ORIGINAL_TYPE_DEF ((OBJ
  -                                                OMG.ORG/CORBA:ALIASDEF-PROXY)
  -                                               &REST
  -                                               ARGS)
  -  (APPLY 'INVOKE OBJ "_get_original_type_def" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:ORIGINAL_TYPE_DEF) (NEWVAL
  -                                                      (OBJ
  -                                                       OMG.ORG/CORBA:ALIASDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_original_type_def" NEWVAL))
  -
  -(SET-SYMBOL-IFR-ID 'OMG.ORG/CORBA:ENUMDEF "IDL:omg.org/CORBA/EnumDef:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:ENUMDEF
  -  (MAKE-TYPECODE :TK_OBJREF "IDL:omg.org/CORBA/EnumDef:1.0" "EnumDef"))
  -
  -(DEFCLASS OMG.ORG/CORBA:ENUMDEF (OMG.ORG/CORBA:TYPEDEFDEF) NIL)
  -
  -(DEFCLASS OMG.ORG/CORBA:ENUMDEF-PROXY (OMG.ORG/CORBA:ENUMDEF
  -                                       OMG.ORG/CORBA:TYPEDEFDEF-PROXY)
  -  NIL)
  -
  -(REGISTER-PROXY-CLASS
  -  "IDL:omg.org/CORBA/EnumDef:1.0"
  -  'OMG.ORG/CORBA:ENUMDEF-PROXY)
  -
  -(DEFMETHOD OMG.ORG/FEATURES:MEMBERS ((OBJ OMG.ORG/CORBA:ENUMDEF-PROXY) &REST
  -                                     ARGS)
  -  (APPLY 'INVOKE OBJ "_get_members" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:MEMBERS) (NEWVAL
  -                                            (OBJ OMG.ORG/CORBA:ENUMDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_members" NEWVAL))
  -
  -(SET-SYMBOL-IFR-ID 'OMG.ORG/CORBA:UNIONDEF "IDL:omg.org/CORBA/UnionDef:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:UNIONDEF
  -  (MAKE-TYPECODE :TK_OBJREF "IDL:omg.org/CORBA/UnionDef:1.0" "UnionDef"))
  -
  -(DEFCLASS OMG.ORG/CORBA:UNIONDEF (OMG.ORG/CORBA:TYPEDEFDEF) NIL)
  -
  -(DEFCLASS OMG.ORG/CORBA:UNIONDEF-PROXY (OMG.ORG/CORBA:UNIONDEF
  -                                        OMG.ORG/CORBA:TYPEDEFDEF-PROXY)
  -  NIL)
  -
  -(REGISTER-PROXY-CLASS
  -  "IDL:omg.org/CORBA/UnionDef:1.0"
  -  'OMG.ORG/CORBA:UNIONDEF-PROXY)
  -
  -(DEFMETHOD OMG.ORG/FEATURES:MEMBERS ((OBJ OMG.ORG/CORBA:UNIONDEF-PROXY) &REST
  -                                     ARGS)
  -  (APPLY 'INVOKE OBJ "_get_members" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:MEMBERS) (NEWVAL
  -                                            (OBJ OMG.ORG/CORBA:UNIONDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_members" NEWVAL))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:DISCRIMINATOR_TYPE_DEF ((OBJ
  -                                                     OMG.ORG/CORBA:UNIONDEF-PROXY)
  -                                                    &REST
  -                                                    ARGS)
  -  (APPLY 'INVOKE OBJ "_get_discriminator_type_def" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:DISCRIMINATOR_TYPE_DEF) (NEWVAL
  -                                                           (OBJ
  -                                                            OMG.ORG/CORBA:UNIONDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_discriminator_type_def" NEWVAL))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:DISCRIMINATOR_TYPE ((OBJ
  -                                                 OMG.ORG/CORBA:UNIONDEF-PROXY)
  -                                                &REST
  -                                                ARGS)
  -  (APPLY 'INVOKE OBJ "_get_discriminator_type" ARGS))
  -
  -(SET-SYMBOL-IFR-ID 'OMG.ORG/CORBA:STRUCTDEF "IDL:omg.org/CORBA/StructDef:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:STRUCTDEF
  -  (MAKE-TYPECODE :TK_OBJREF "IDL:omg.org/CORBA/StructDef:1.0" "StructDef"))
  -
  -(DEFCLASS OMG.ORG/CORBA:STRUCTDEF (OMG.ORG/CORBA:TYPEDEFDEF) NIL)
  -
  -(DEFCLASS OMG.ORG/CORBA:STRUCTDEF-PROXY (OMG.ORG/CORBA:STRUCTDEF
  -                                         OMG.ORG/CORBA:TYPEDEFDEF-PROXY)
  -  NIL)
  -
  -(REGISTER-PROXY-CLASS
  -  "IDL:omg.org/CORBA/StructDef:1.0"
  -  'OMG.ORG/CORBA:STRUCTDEF-PROXY)
  -
  -(DEFMETHOD OMG.ORG/FEATURES:MEMBERS ((OBJ OMG.ORG/CORBA:STRUCTDEF-PROXY) &REST
  -                                     ARGS)
  -  (APPLY 'INVOKE OBJ "_get_members" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:MEMBERS) (NEWVAL
  -                                            (OBJ
  -                                             OMG.ORG/CORBA:STRUCTDEF-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_members" NEWVAL))
  -
   (DEFINE-STRUCT OMG.ORG/CORBA:TYPEDESCRIPTION
    :ID "IDL:omg.org/CORBA/TypeDescription:1.0"
    :NAME "TypeDescription"
  
positive.code: 
  (DEFTYPE OMG.ORG/CORBA:EXCDESCRIPTIONSEQ () 'SEQUENCE)
  
  (SET-SYMBOL-IFR-ID
    'OMG.ORG/CORBA:EXCEPTIONDEFSEQ
    "IDL:omg.org/CORBA/ExceptionDefSeq:1.0")
  
  (SET-SYMBOL-TYPECODE
    'OMG.ORG/CORBA:EXCEPTIONDEFSEQ
    (LAMBDA NIL
      (MAKE-TC-ALIAS
        "IDL:omg.org/CORBA/ExceptionDefSeq:1.0"
  
negative.code: 
  (DEFTYPE OMG.ORG/CORBA:SCOPEDNAME () 'OMG.ORG/CORBA:STRING)
  
  (SET-SYMBOL-ID/TYPECODE
    'OMG.ORG/CORBA:IDENTIFIER
    "IDL:omg.org/CORBA/Identifier:1.0"
    (LAMBDA NIL
      (MAKE-TC-ALIAS
        "IDL:omg.org/CORBA/Identifier:1.0"
  