anchor.diff:  
   (DEFTYPE OMG.ORG/CORBA:INTERFACEDEFSEQ () 'SEQUENCE)
   
  -(SET-SYMBOL-IFR-ID 'OMG.ORG/CORBA:CONTAINED "IDL:omg.org/CORBA/Contained:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:CONTAINED
  -  (MAKE-TYPECODE :TK_OBJREF "IDL:omg.org/CORBA/Contained:1.0" "Contained"))
  -
  -
  -(REGISTER-PROXY-CLASS
  -  "IDL:omg.org/CORBA/Contained:1.0"
  -  'OMG.ORG/CORBA:CONTAINED-PROXY)
  -
  -(DEFINE-METHOD "MOVE" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY) NEW_CONTAINER
  -                       NEW_NAME NEW_VERSION)
  -  (LET ((_REQUEST (REQUEST-CREATE OBJ "move" OMG.ORG/CORBA:TC_VOID)))
  -    (ADD-ARG _REQUEST
  -             "new_container"
  -             ARG_IN
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINER)
  -             NEW_CONTAINER)
  -    (ADD-ARG _REQUEST
  -             "new_name"
  -             ARG_IN
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
  -             NEW_NAME)
  -    (ADD-ARG _REQUEST
  -             "new_version"
  -             ARG_IN
  -             (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)
  -             NEW_VERSION)
  -    (REQUEST-FUNCALL _REQUEST)))
  -
  -(DEFINE-METHOD "DESCRIBE" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  -  (LET ((_REQUEST
  -         (REQUEST-CREATE
  -           OBJ
  -           "describe"
  -           (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINED/DESCRIPTION))))
  -    (REQUEST-FUNCALL _REQUEST)))
  -
  -(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) KIND)
  -           ("value" OMG.ORG/CORBA:TC_ANY VALUE)))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:CONTAINING_REPOSITORY ((OBJ
  -                                                    OMG.ORG/CORBA:CONTAINED-PROXY)
  -                                                   &REST
  -                                                   ARGS)
  -  (APPLY 'INVOKE OBJ "_get_containing_repository" ARGS))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:ABSOLUTE_NAME ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY)
  -                                           &REST
  -                                           ARGS)
  -  (APPLY 'INVOKE OBJ "_get_absolute_name" ARGS))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:DEFINED_IN ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY)
  -                                        &REST
  -                                        ARGS)
  -  (APPLY 'INVOKE OBJ "_get_defined_in" ARGS))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:VERSION ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY) &REST
  -                                     ARGS)
  -  (APPLY 'INVOKE OBJ "_get_version" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:VERSION) (NEWVAL
  -                                            (OBJ
  -                                             OMG.ORG/CORBA:CONTAINED-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_version" NEWVAL))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:NAME ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY) &REST
  -                                  ARGS)
  -  (APPLY 'INVOKE OBJ "_get_name" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:NAME) (NEWVAL
  -                                         (OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_name" NEWVAL))
  -
  -(DEFMETHOD OMG.ORG/FEATURES:ID ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY) &REST ARGS)
  -  (APPLY 'INVOKE OBJ "_get_id" ARGS))
  -
  -(DEFMETHOD (SETF OMG.ORG/FEATURES:ID) (NEWVAL
  -                                       (OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  -  (APPLY 'INVOKE OBJ "_set_id" NEWVAL))
  -
  -(SET-SYMBOL-IFR-ID
  +(SET-SYMBOL-ID/TYPECODE
     'OMG.ORG/CORBA:VERSIONSPEC
  -  "IDL:omg.org/CORBA/VersionSpec:1.0")
  -
  -(SET-SYMBOL-TYPECODE
  -  'OMG.ORG/CORBA:VERSIONSPEC
  +  "IDL:omg.org/CORBA/VersionSpec:1.0"
     (LAMBDA NIL
       (MAKE-TC-ALIAS
         "IDL:omg.org/CORBA/VersionSpec: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:            ("version" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC) VERSION)
             ("type" OMG.ORG/CORBA:TC_TYPECODE TYPE)))
  
  (DEFINE-STRUCT OMG.ORG/CORBA:TYPEDESCRIPTION
   :ID "IDL:omg.org/CORBA/TypeDescription:1.0"
   :NAME "TypeDescription"
  