anchor.diff:    :TYPE OMG.ORG/CORBA:TC_BOOLEAN)
   
   (DEFINE-METHOD (SETF "IS_ABSTRACT") (NEWVAL (OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
  -  (STATIC-CALL ("_set_is_abstract" OBJ)
  -    :OUTPUT ((BUFFER) (MARSHAL-BOOL NEWVAL BUFFER))))
  +  (%JIT-SET OMG.ORG/CORBA:VALUEDEF/IS_ABSTRACT OBJ NEWVAL))
   
   (DEFINE-METHOD "IS_ABSTRACT" ((OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
  -  (STATIC-CALL ("_get_is_abstract" OBJ)
  -    :INPUT ((BUFFER) (UNMARSHAL-BOOL BUFFER))))
  +  (%JIT-GET OMG.ORG/CORBA:VALUEDEF/IS_ABSTRACT OBJ))
   
   (DEFINE-ATTRIBUTE OMG.ORG/CORBA:VALUEDEF/IS_CUSTOM
     :ID "IDL:omg.org/CORBA/ValueDef/is_custom:1.0"
  
positive.code: (DEFINE-STRUCT OMG.ORG/CORBA:ATTRIBUTEDESCRIPTION
    :ID "IDL:omg.org/CORBA/AttributeDescription:1.0"
    :NAME "AttributeDescription"
    :MEMBERS (("name" (%SYMBOL-TYPECODE OMG.ORG/CORBA:IDENTIFIER))
              ("id" (%SYMBOL-TYPECODE OMG.ORG/CORBA:REPOSITORYID))
              ("defined_in" (%SYMBOL-TYPECODE OMG.ORG/CORBA:REPOSITORYID))
              ("version" (%SYMBOL-TYPECODE OMG.ORG/CORBA:VERSIONSPEC))
              ("type" OMG.ORG/CORBA:TC_TYPECODE)
              ("mode" (%SYMBOL-TYPECODE OMG.ORG/CORBA:ATTRIBUTEMODE))))
  
  (DEFINE-ENUM OMG.ORG/CORBA:OPERATIONMODE
    :ID "IDL:omg.org/CORBA/OperationMode:1.0"
  
negative.code:   :VERSION "1.0"
    :DEFINED_IN OMG.ORG/CORBA:CONTAINED
    :MODE :ATTR_NORMAL
    :TYPE (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER))
  
  (DEFINE-METHOD (SETF "NAME") (NEWVAL (OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
    (%JIT-SET OMG.ORG/CORBA:CONTAINED/NAME OBJ NEWVAL))
  
  (DEFINE-METHOD "NAME" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
    (%JIT-GET OMG.ORG/CORBA:CONTAINED/NAME OBJ))
  
  (DEFINE-ATTRIBUTE OMG.ORG/CORBA:CONTAINED/VERSION
    :ID "IDL:omg.org/CORBA/Contained/version:1.0"
  