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:  :NAME "ValueDef")
  
  (DEFINE-METHOD "SUPPORTED_INTERFACES" ((OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_supported_interfaces"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INTERFACEDEFSEQ)))
  
  (DEFINE-METHOD (SETF "SUPPORTED_INTERFACES") (NEWVAL
                                                (OBJ
                                                 OMG.ORG/CORBA:VALUEDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_supported_interfaces"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INTERFACEDEFSEQ)
      NEWVAL))
  
  (DEFINE-METHOD "INITIALIZERS" ((OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_initializers"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INITIALIZERSEQ)))
  
  (DEFINE-METHOD (SETF "INITIALIZERS") (NEWVAL
                                        (OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_initializers"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:INITIALIZERSEQ)
      NEWVAL))
  
  (DEFINE-METHOD "BASE_VALUE" ((OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_base_value"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VALUEDEF)))
  
  (DEFINE-METHOD (SETF "BASE_VALUE") (NEWVAL (OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_base_value"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VALUEDEF)
      NEWVAL))
  
  (DEFINE-METHOD "ABSTRACT_BASE_VALUES" ((OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
    (GET-ATTRIBUTE
      OBJ
      "_get_abstract_base_values"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VALUEDEFSEQ)))
  
  (DEFINE-METHOD (SETF "ABSTRACT_BASE_VALUES") (NEWVAL
                                                (OBJ
                                                 OMG.ORG/CORBA:VALUEDEF-PROXY))
    (SET-ATTRIBUTE
      OBJ
      "_set_abstract_base_values"
      (SYMBOL-TYPECODE 'OMG.ORG/CORBA:VALUEDEFSEQ)
      NEWVAL))
  
  (DEFINE-METHOD "IS_ABSTRACT" ((OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_is_abstract" OMG.ORG/CORBA:TC_BOOLEAN))
  
  (DEFINE-METHOD (SETF "IS_ABSTRACT") (NEWVAL (OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
    (SET-ATTRIBUTE OBJ "_set_is_abstract" OMG.ORG/CORBA:TC_BOOLEAN NEWVAL))
  
  (DEFINE-METHOD "IS_CUSTOM" ((OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_is_custom" OMG.ORG/CORBA:TC_BOOLEAN))
  
  (DEFINE-METHOD (SETF "IS_CUSTOM") (NEWVAL (OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
    (SET-ATTRIBUTE OBJ "_set_is_custom" OMG.ORG/CORBA:TC_BOOLEAN NEWVAL))
  
  (DEFINE-METHOD "IS_TRUNCATABLE" ((OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
    (GET-ATTRIBUTE OBJ "_get_is_truncatable" OMG.ORG/CORBA:TC_BOOLEAN))
  
  (DEFINE-METHOD (SETF "IS_TRUNCATABLE") (NEWVAL
                                          (OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
    (SET-ATTRIBUTE OBJ "_set_is_truncatable" OMG.ORG/CORBA:TC_BOOLEAN NEWVAL))
  
  (DEFINE-METHOD "IS_A" ((OBJ OMG.ORG/CORBA:VALUEDEF-PROXY) _ID)
    (STATIC-CALL ("is_a" OBJ)
  
negative.code:            (UNMARSHAL (SYMBOL-TYPECODE 'OMG.ORG/CORBA:STRINGDEF) INPUT))
     :EXCEPTIONS NIL))
  
  (DEFINE-OPERATION OMG.ORG/CORBA:REPOSITORY/CREATE_STRING
   :ID "IDL:omg.org/CORBA/Repository/create_string:1.0"
   :NAME "create_string"
   :DEFINED_IN OMG.ORG/CORBA:REPOSITORY
   :VERSION "1.0"
   :RESULT (SYMBOL-TYPECODE 'OMG.ORG/CORBA:STRINGDEF)
   :MODE :OP_NORMAL
   :CONTEXTS NIL
   :PARAMETERS (("bound" :PARAM_IN OMG.ORG/CORBA:TC_ULONG))
   :EXCEPTIONS NIL)
  
  (DEFINE-METHOD "CREATE_WSTRING" ((OBJ OMG.ORG/CORBA:REPOSITORY-PROXY) _BOUND)
    (STATIC-CALL ("create_wstring" OBJ)
     :OUTPUT ((OUTPUT) (MARSHAL-ULONG _BOUND OUTPUT))
  