anchor.diff:  (DEFINE-STRUCT OMG.ORG/CORBA:PARAMETERDESCRIPTION
    :ID "IDL:omg.org/CORBA/ParameterDescription:1.0"
    :NAME "ParameterDescription"
  - :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)
  -           ("mode" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARAMETERMODE)
  -            OMG.ORG/FEATURES:MODE))
  + :MEMBERS (("name" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER))
  +           ("type" OMG.ORG/CORBA:TC_TYPECODE)
  +           ("type_def" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE))
  +           ("mode" (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARAMETERMODE)))
    :READ ((BUFFER)
           (OMG.ORG/CORBA:PARAMETERDESCRIPTION
  -          :NAME
  -          (UNMARSHAL-STRING BUFFER)
  -          :TYPE
  -          (UNMARSHAL OMG.ORG/CORBA:TC_TYPECODE BUFFER)
  -          :TYPE_DEF
  -          (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE) BUFFER)
  -          :MODE
  -          (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARAMETERMODE) BUFFER)))
  +         :NAME (UNMARSHAL-STRING BUFFER)
  +         :TYPE (UNMARSHAL-TYPECODE BUFFER)
  +         :TYPE_DEF (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE) BUFFER)
  +         :MODE (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARAMETERMODE)
  +                          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)
            (MARSHAL (OMG.ORG/FEATURES:MODE OBJ)
                     (SYMBOL-TYPECODE 'OMG.ORG/CORBA:PARAMETERMODE)
                     BUFFER)))
  
positive.code:            (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:ATTRIBUTEDEF) INPUT))
     :EXCEPTIONS NIL))
  
  (DEFINE-METHOD "CREATE_OPERATION" ((OBJ OMG.ORG/CORBA:VALUEDEF-PROXY) _ID _NAME
                                     _VERSION _RESULT _MODE _PARAMS _EXCEPTIONS
                                     _CONTEXTS)
    (STATIC-CALL ("create_operation" OBJ)
     :OUTPUT ((OUTPUT) (MARSHAL-STRING _ID OUTPUT) (MARSHAL-STRING _NAME OUTPUT)
              (MARSHAL-STRING _VERSION OUTPUT)
              (MARSHAL _RESULT (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE) OUTPUT)
              (MARSHAL _MODE
                       (SYMBOL-TYPECODE 'OMG.ORG/CORBA:OPERATIONMODE)
                       OUTPUT)
  
negative.code:  :NAME "AliasDef")
  
  (DEFINE-METHOD "ORIGINAL_TYPE_DEF" ((OBJ OMG.ORG/CORBA:ALIASDEF-PROXY))
    (STATIC-CALL ("_get_original_type_def" OBJ)
     :INPUT ((BUFFER)
             (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE) BUFFER))))
  
  (DEFINE-METHOD (SETF "ORIGINAL_TYPE_DEF") (NEWVAL
                                             (OBJ OMG.ORG/CORBA:ALIASDEF-PROXY))
    (STATIC-CALL ("_set_original_type_def" OBJ)
     :OUTPUT ((BUFFER) (MARSHAL-OBJECT NEWVAL BUFFER))))
  
  (DEFINE-ATTRIBUTE OMG.ORG/CORBA:ALIASDEF/ORIGINAL_TYPE_DEF
   :ID "IDL:omg.org/CORBA/AliasDef/original_type_def:1.0"
   :NAME "original_type_def"
   :VERSION "1.0"
   :DEFINED_IN OMG.ORG/CORBA:ALIASDEF
   :MODE :ATTR_NORMAL
   :TYPE (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:NATIVEDEF (OMG.ORG/CORBA:TYPEDEFDEF)
   :PROXY (OMG.ORG/CORBA:NATIVEDEF-PROXY OMG.ORG/CORBA:NATIVEDEF
  