anchor.diff:    :TYPE OMG.ORG/CORBA:TC_BOOLEAN)
   
   (DEFINE-METHOD (SETF "IS_CUSTOM") (NEWVAL (OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
  -  (STATIC-CALL ("_set_is_custom" OBJ)
  -    :OUTPUT ((BUFFER) (MARSHAL-BOOL NEWVAL BUFFER))))
  +  (%JIT-SET OMG.ORG/CORBA:VALUEDEF/IS_CUSTOM OBJ NEWVAL))
   
   (DEFINE-METHOD "IS_CUSTOM" ((OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
  -  (STATIC-CALL ("_get_is_custom" OBJ)
  -    :INPUT ((BUFFER) (UNMARSHAL-BOOL BUFFER))))
  +  (%JIT-GET OMG.ORG/CORBA:VALUEDEF/IS_CUSTOM OBJ))
   
   (DEFINE-ATTRIBUTE OMG.ORG/CORBA:VALUEDEF/IS_TRUNCATABLE
     :ID "IDL:omg.org/CORBA/ValueDef/is_truncatable:1.0"
  
positive.code:   :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))))
  
  (DEFINE-METHOD "IS_ABSTRACT" ((OBJ OMG.ORG/CORBA:VALUEDEF-PROXY))
    (STATIC-CALL ("_get_is_abstract" OBJ)
      :INPUT ((BUFFER) (UNMARSHAL-BOOL BUFFER))))
  
  (DEFINE-ATTRIBUTE OMG.ORG/CORBA:VALUEDEF/IS_CUSTOM
    :ID "IDL:omg.org/CORBA/ValueDef/is_custom:1.0"
  
negative.code:   :VERSION "1.0"
    :DEFINED_IN OMG.ORG/CORBA:ATTRIBUTEDEF
    :MODE :ATTR_NORMAL
    :TYPE (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDLTYPE))
  
  (DEFINE-METHOD (SETF "TYPE_DEF") (NEWVAL
                                    (OBJ OMG.ORG/CORBA:ATTRIBUTEDEF-PROXY))
    (%JIT-SET OMG.ORG/CORBA:ATTRIBUTEDEF/TYPE_DEF OBJ NEWVAL))
  
  (DEFINE-METHOD "TYPE_DEF" ((OBJ OMG.ORG/CORBA:ATTRIBUTEDEF-PROXY))
    (%JIT-GET OMG.ORG/CORBA:ATTRIBUTEDEF/TYPE_DEF OBJ))
  
  (DEFINE-ATTRIBUTE OMG.ORG/CORBA:ATTRIBUTEDEF/MODE
    :ID "IDL:omg.org/CORBA/AttributeDef/mode:1.0"
  