anchor.diff:  
   (DEFTYPE OMG.ORG/CORBA:EXCDESCRIPTIONSEQ () 'SEQUENCE)
   
  -(SET-SYMBOL-IFR-ID
  +(SET-SYMBOL-ID/TYPECODE
     'OMG.ORG/CORBA:EXCEPTIONDEFSEQ
  -  "IDL:omg.org/CORBA/ExceptionDefSeq:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:EXCEPTIONDEFSEQ
  +  "IDL:omg.org/CORBA/ExceptionDefSeq:1.0"
     (LAMBDA NIL
       (MAKE-TC-ALIAS
         "IDL:omg.org/CORBA/ExceptionDefSeq:1.0"
  
positive.code: 
  (DEFTYPE OMG.ORG/CORBA:EXCEPTIONDEFSEQ () 'SEQUENCE)
  
  (SET-SYMBOL-IFR-ID
    'OMG.ORG/CORBA:CONTEXTIDSEQ
    "IDL:omg.org/CORBA/ContextIdSeq:1.0")
  
  (SET-SYMBOL-TYPECODE
    'OMG.ORG/CORBA:CONTEXTIDSEQ
    (LAMBDA NIL
      (MAKE-TC-ALIAS
        "IDL:omg.org/CORBA/ContextIdSeq:1.0"
  
negative.code:             DEFINED_IN)
             ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC) VERSION)
             ("type" OMG.ORG/CORBA:TC_TYPECODE TYPE)))
  
  (DEFINE-STRUCT OMG.ORG/CORBA:CONSTANTDESCRIPTION
   :ID "IDL:omg.org/CORBA/ConstantDescription:1.0"
  