anchor.diff:    (STATIC-CALL ("create_local_interface" OBJ)
      :OUTPUT ((OUTPUT) (MARSHAL-STRING _ID OUTPUT) (MARSHAL-STRING _NAME OUTPUT)
               (MARSHAL-STRING _VERSION OUTPUT)
  -            (MARSHAL-SEQUENCE
  -              _BASE_INTERFACES
  -              (LAMBDA (OBJ BUFFER)
  -                (MARSHAL OBJ
  -                         (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INTERFACEDEF)
  -                         BUFFER))
  -              OUTPUT))
  +            (MARSHAL-SEQUENCE _BASE_INTERFACES #'MARSHAL-OBJECT OUTPUT))
      :INPUT ((INPUT)
              (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:LOCALINTERFACEDEF)
                         INPUT))
      :EXCEPTIONS NIL))
  +
  +(DEFINE-OPERATION OMG.ORG/CORBA:CONTAINER/CREATE_LOCAL_INTERFACE
  + :ID "IDL:omg.org/CORBA/Container/create_local_interface:1.0"
  + :NAME "create_local_interface"
  + :DEFINED_IN OMG.ORG/CORBA:CONTAINER
  + :VERSION "1.0"
  + :RESULT (SYMBOL-TYPECODE 'OMG.ORG/CORBA:LOCALINTERFACEDEF)
  + :MODE :OP_NORMAL
  + :CONTEXTS NIL
  + :PARAMETERS (("id" :PARAM_IN (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID))
  +              ("name" :PARAM_IN (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER))
  +              ("version" :PARAM_IN
  +               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC))
  +              ("base_interfaces" :PARAM_IN
  +               (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INTERFACEDEFSEQ)))
  + :EXCEPTIONS NIL)
   
   (DEFINE-INTERFACE OMG.ORG/CORBA:IDLTYPE (OMG.ORG/CORBA:IROBJECT)
    :PROXY (OMG.ORG/CORBA:IDLTYPE-PROXY OMG.ORG/CORBA:IDLTYPE
  
positive.code:    :OUTPUT ((OUTPUT) (MARSHAL-STRING _ID OUTPUT) (MARSHAL-STRING _NAME OUTPUT)
              (MARSHAL-STRING _VERSION OUTPUT) (MARSHAL-BOOL _IS_CUSTOM OUTPUT)
              (MARSHAL-BOOL _IS_ABSTRACT OUTPUT)
              (MARSHAL _BASE_VALUE
                       (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VALUEDEF)
                       OUTPUT)
              (MARSHAL-BOOL _IS_TRUNCATABLE OUTPUT)
              (MARSHAL-SEQUENCE
                _ABSTRACT_BASE_VALUES
                (LAMBDA (OBJ BUFFER)
                  (MARSHAL OBJ (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VALUEDEF) BUFFER))
                OUTPUT)
              (MARSHAL-SEQUENCE
                _SUPPORTED_INTERFACES
                (LAMBDA (OBJ BUFFER)
                  (MARSHAL OBJ
                           (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INTERFACEDEF)
                           BUFFER))
                OUTPUT)
              (MARSHAL-SEQUENCE
                _INITIALIZERS
                (LAMBDA (OBJ BUFFER)
  
negative.code:  :NAME "Contained")
  
  (DEFINE-METHOD "ID" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
    (STATIC-CALL ("_get_id" OBJ) :INPUT ((BUFFER) (UNMARSHAL-STRING BUFFER))))
  
  (DEFINE-METHOD (SETF "ID") (NEWVAL (OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
    (STATIC-CALL ("_set_id" OBJ)
     :OUTPUT ((BUFFER) (MARSHAL-STRING NEWVAL BUFFER))))
  
  (DEFINE-ATTRIBUTE OMG.ORG/CORBA:CONTAINED/ID
   :ID "IDL:omg.org/CORBA/Contained/id:1.0"
   :NAME "id"
   :VERSION "1.0"
   :DEFINED_IN OMG.ORG/CORBA:CONTAINED
   :MODE :ATTR_NORMAL
   :TYPE (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORYID))
  
  (DEFINE-METHOD "NAME" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
    (STATIC-CALL ("_get_name" OBJ) :INPUT ((BUFFER) (UNMARSHAL-STRING BUFFER))))
  
  (DEFINE-METHOD (SETF "NAME") (NEWVAL (OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
    (STATIC-CALL ("_set_name" OBJ)
     :OUTPUT ((BUFFER) (MARSHAL-STRING NEWVAL BUFFER))))
  
  (DEFINE-ATTRIBUTE OMG.ORG/CORBA:CONTAINED/NAME
   :ID "IDL:omg.org/CORBA/Contained/name:1.0"
   :NAME "name"
   :VERSION "1.0"
   :DEFINED_IN OMG.ORG/CORBA:CONTAINED
   :MODE :ATTR_NORMAL
   :TYPE (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER))
  
  (DEFINE-METHOD "VERSION" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
    (STATIC-CALL ("_get_version" OBJ)
     :INPUT ((BUFFER) (UNMARSHAL-STRING BUFFER))))
  
  (DEFINE-METHOD (SETF "VERSION") (NEWVAL (OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
    (STATIC-CALL ("_set_version" OBJ)
     :OUTPUT ((BUFFER) (MARSHAL-STRING NEWVAL BUFFER))))
  
  (DEFINE-ATTRIBUTE OMG.ORG/CORBA:CONTAINED/VERSION
   :ID "IDL:omg.org/CORBA/Contained/version:1.0"
   :NAME "version"
   :VERSION "1.0"
   :DEFINED_IN OMG.ORG/CORBA:CONTAINED
   :MODE :ATTR_NORMAL
   :TYPE (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VERSIONSPEC))
  
  (DEFINE-METHOD "DEFINED_IN" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
    (STATIC-CALL ("_get_defined_in" OBJ)
     :INPUT ((BUFFER)
             (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINER) BUFFER))))
  
  (DEFINE-ATTRIBUTE OMG.ORG/CORBA:CONTAINED/DEFINED_IN
   :ID "IDL:omg.org/CORBA/Contained/defined_in:1.0"
   :NAME "defined_in"
   :VERSION "1.0"
   :DEFINED_IN OMG.ORG/CORBA:CONTAINED
   :MODE :ATTR_READONLY
   :TYPE (SYMBOL-TYPECODE 'OMG.ORG/CORBA:CONTAINER))
  
  (DEFINE-METHOD "ABSOLUTE_NAME" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
    (STATIC-CALL ("_get_absolute_name" OBJ)
     :INPUT ((BUFFER) (UNMARSHAL-STRING BUFFER))))
  
  (DEFINE-ATTRIBUTE OMG.ORG/CORBA:CONTAINED/ABSOLUTE_NAME
   :ID "IDL:omg.org/CORBA/Contained/absolute_name:1.0"
   :NAME "absolute_name"
   :VERSION "1.0"
   :DEFINED_IN OMG.ORG/CORBA:CONTAINED
   :MODE :ATTR_READONLY
   :TYPE (SYMBOL-TYPECODE 'OMG.ORG/CORBA:SCOPEDNAME))
  
  (DEFINE-METHOD "CONTAINING_REPOSITORY" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
    (STATIC-CALL ("_get_containing_repository" OBJ)
     :INPUT ((BUFFER)
             (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORY) BUFFER))))
  
  (DEFINE-ATTRIBUTE OMG.ORG/CORBA:CONTAINED/CONTAINING_REPOSITORY
   :ID "IDL:omg.org/CORBA/Contained/containing_repository:1.0"
   :NAME "containing_repository"
   :VERSION "1.0"
   :DEFINED_IN OMG.ORG/CORBA:CONTAINED
   :MODE :ATTR_READONLY
   :TYPE (SYMBOL-TYPECODE 'OMG.ORG/CORBA:REPOSITORY))
  
  (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))
             ("value" OMG.ORG/CORBA:TC_ANY))
   :READ ((BUFFER)
          (OMG.ORG/CORBA:CONTAINED/DESCRIPTION
           :KIND (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND)
                            BUFFER)
           :VALUE (UNMARSHAL-ANY BUFFER)))
   :WRITE ((OBJ BUFFER)
           (MARSHAL (OMG.ORG/FEATURES:KIND OBJ)
                    (SYMBOL-TYPECODE 'OMG.ORG/CORBA:DEFINITIONKIND)
                    BUFFER)
           (MARSHAL-ANY (OMG.ORG/FEATURES:VALUE OBJ) BUFFER)))
  
  (DEFINE-METHOD "DESCRIBE" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
    (STATIC-CALL ("describe" OBJ)
  