anchor.diff:    :VERSION "1.0"
     :DEFINED_IN OMG.ORG/CORBA:CONTAINED
     :MODE :ATTR_NORMAL
  -  :TYPE (%SYMBOL-TYPECODE OMG.ORG/CORBA:IDENTIFIER))
  +  :TYPE (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER))
   
   (DEFINE-METHOD (SETF "NAME") (NEWVAL (OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  -  (STATIC-CALL ("_set_name" OBJ)
  -    :OUTPUT ((BUFFER)
  -             (%JIT-MARSHAL NEWVAL
  -                           (SYMBOL-TYPECODE 'OMG.ORG/CORBA:IDENTIFIER)
  -                           BUFFER))))
  +  (%JIT-SET OMG.ORG/CORBA:CONTAINED/NAME OBJ NEWVAL))
   
   (DEFINE-METHOD "NAME" ((OBJ OMG.ORG/CORBA:CONTAINED-PROXY))
  -  (STATIC-CALL ("_get_name" OBJ) :INPUT ((BUFFER) (UNMARSHAL-STRING BUFFER))))
  +  (%JIT-GET OMG.ORG/CORBA:CONTAINED/NAME OBJ))
   
   (DEFINE-ATTRIBUTE OMG.ORG/CORBA:CONTAINED/VERSION
     :ID "IDL:omg.org/CORBA/Contained/version:1.0"
  
positive.code:   :NAME "create_wstring"
    :DEFINED_IN OMG.ORG/CORBA:REPOSITORY
    :VERSION "1.0"
    :RESULT (%SYMBOL-TYPECODE OMG.ORG/CORBA:WSTRINGDEF)
    :MODE :OP_NORMAL
    :CONTEXTS NIL
    :PARAMETERS (("bound" :PARAM_IN OMG.ORG/CORBA:TC_ULONG))
  
negative.code:   :VERSION "1.0"
    :DEFINED_IN OMG.ORG/CORBA:UNIONDEF
    :MODE :ATTR_NORMAL
    :TYPE (SYMBOL-TYPECODE 'OMG.ORG/CORBA:UNIONMEMBERSEQ))
  
  (DEFINE-METHOD (SETF "MEMBERS") (NEWVAL (OBJ OMG.ORG/CORBA:UNIONDEF-PROXY))
    (%JIT-SET OMG.ORG/CORBA:UNIONDEF/MEMBERS OBJ NEWVAL))
  
  (DEFINE-METHOD "MEMBERS" ((OBJ OMG.ORG/CORBA:UNIONDEF-PROXY))
    (%JIT-GET OMG.ORG/CORBA:UNIONDEF/MEMBERS OBJ))
  
  (DEFINE-INTERFACE OMG.ORG/CORBA:ENUMDEF (OMG.ORG/CORBA:TYPEDEFDEF)
   :PROXY (OMG.ORG/CORBA:ENUMDEF-PROXY OMG.ORG/CORBA:ENUMDEF
  