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:   :VERSION "1.0"
    :DEFINED_IN OMG.ORG/CORBA:ALIASDEF
    :MODE :ATTR_NORMAL
    :TYPE (%SYMBOL-TYPECODE OMG.ORG/CORBA:IDLTYPE))
  
  (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-METHOD "ORIGINAL_TYPE_DEF" ((OBJ OMG.ORG/CORBA:ALIASDEF-PROXY))
    (STATIC-CALL ("_get_original_type_def" OBJ)
      :INPUT ((BUFFER)
              (UNMARSHAL-OBJECT BUFFER "IDL:omg.org/CORBA/IDLType:1.0"))))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:NATIVEDEF (OMG.ORG/CORBA:TYPEDEFDEF)
   :PROXY (OMG.ORG/CORBA:NATIVEDEF-PROXY OMG.ORG/CORBA:NATIVEDEF
  
negative.code:   :TYPE OMG.ORG/CORBA:TC_TYPECODE)
  
  (DEFINE-METHOD "TYPE" ((OBJ OMG.ORG/CORBA:IDLTYPE-PROXY))
    (%JIT-GET OMG.ORG/CORBA:IDLTYPE/TYPE OBJ))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:REPOSITORY (OMG.ORG/CORBA:CONTAINER)
   :PROXY (OMG.ORG/CORBA:REPOSITORY-PROXY OMG.ORG/CORBA:REPOSITORY
  