anchor.diff:  (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))
  + :MEMBERS (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER))
  +           ("type" OMG.ORG/CORBA:TC_TYPECODE)
  +           ("type_def" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE)))
    :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)))
  +        (OMG.ORG/CORBA:STRUCTMEMBER
  +         :NAME (UNMARSHAL-STRING BUFFER)
  +         :TYPE (UNMARSHAL-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)))
  +         (MARSHAL-TYPECODE (OMG.ORG/FEATURES:TYPE OBJ) BUFFER)
  +         (MARSHAL-OBJECT (OMG.ORG/FEATURES:TYPE_DEF OBJ) BUFFER)))
   
   (DEFINE-ALIAS OMG.ORG/CORBA:STRUCTMEMBERSEQ
    :ID "IDL:omg.org/CORBA/StructMemberSeq:1.0"
  
positive.code: (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)
              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)
  
negative.code:    :INPUT ((INPUT) (STRUCT-READ 'OMG.ORG/CORBA:CONTAINED/DESCRIPTION INPUT))
     :EXCEPTIONS NIL))
  
  (DEFINE-OPERATION OMG.ORG/CORBA:CONTAINED/DESCRIBE
   :ID "IDL:omg.org/CORBA/Contained/describe:1.0"
   :NAME "describe"
   :DEFINED_IN OMG.ORG/CORBA:CONTAINED
   :VERSION "1.0"
   :RESULT (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINED/DESCRIPTION)
   :MODE :OP_NORMAL
   :CONTEXTS NIL
   :PARAMETERS NIL
   :EXCEPTIONS NIL)
  
  (DEFINE-METHOD "MOVE" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY) _NEW_CONTAINER
                         _NEW_NAME _NEW_VERSION)
    (STATIC-CALL ("move" OBJ)
     :OUTPUT ((OUTPUT) (MARSHAL-OBJECT _NEW_CONTAINER OUTPUT)
              (MARSHAL-STRING _NEW_NAME OUTPUT)
              (MARSHAL-STRING _NEW_VERSION OUTPUT))
     :INPUT ((INPUT))
     :EXCEPTIONS NIL))
  
  (DEFINE-OPERATION OMG.ORG/CORBA:CONTAINED/MOVE
   :ID "IDL:omg.org/CORBA/Contained/move:1.0"
   :NAME "move"
   :DEFINED_IN OMG.ORG/CORBA:CONTAINED
   :VERSION "1.0"
   :RESULT OMG.ORG/CORBA:TC_VOID
   :MODE :OP_NORMAL
   :CONTEXTS NIL
   :PARAMETERS (("new_container" :PARAM_IN
                 (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINER))
                ("new_name" :PARAM_IN
                 (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER))
                ("new_version" :PARAM_IN
                 (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC)))
   :EXCEPTIONS NIL)
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:CONTAINER (OMG.ORG/CORBA:IROBJECT)
   :PROXY (OMG.ORG/CORBA:CONTAINER-PROXY OMG.ORG/CORBA:CONTAINER
  