anchor.diff:  (defconstant iop:transactionservice (quote 0))
   
   (DEFINE-ALIAS IOP:SERVICECONTEXTLIST
  - :id "IDL:IOP/ServiceContextList:1.0"
  + :id "IDL:omg.org/IOP/ServiceContextList:1.0"
    :name "ServiceContextList"
    :type SEQUENCE
    :typecode (create-sequence-tc 0 (SYMBOL-TYPECODE 'IOP:SERVICECONTEXT)))
   
   (DEFINE-STRUCT IOP:SERVICECONTEXT
  - :id "IDL:IOP/ServiceContext:1.0"
  + :id "IDL:omg.org/IOP/ServiceContext:1.0"
    :name "ServiceContext"
    :members (("context_id" (SYMBOL-TYPECODE 'IOP:SERVICEID) CONTEXT_ID)
              ("context_data" (create-sequence-tc 0 CORBA:TC_OCTET)
  
positive.code: (defconstant iop:tag_orb_type (quote 0))
  
  (DEFINE-ALIAS IOP:MULTIPLECOMPONENTPROFILE
   :id "IDL:IOP/MultipleComponentProfile:1.0"
   :name "MultipleComponentProfile"
   :type SEQUENCE
   :typecode (create-sequence-tc 0 (SYMBOL-TYPECODE 'IOP:TAGGEDCOMPONENT)))
  
  (DEFINE-STRUCT IOP:TAGGEDCOMPONENT
   :id "IDL:IOP/TaggedComponent:1.0"
   :name "TaggedComponent"
   :members (("tag" (SYMBOL-TYPECODE 'IOP:COMPONENTID) TAG)
             ("component_data" (create-sequence-tc 0 OMG.ORG/CORBA:TC_OCTET)
              COMPONENT_DATA))
   :read ((BUFFER)
          (IOP:TAGGEDCOMPONENT
            :tag (UNMARSHAL-ULONG BUFFER)
            :component_data (UNMARSHAL-OSEQUENCE BUFFER)))
   :write ((OBJ BUFFER)
           (MARSHAL-ULONG (OMG.ORG/FEATURES:TAG OBJ) BUFFER)
           (MARSHAL-OSEQUENCE (OMG.ORG/FEATURES:COMPONENT_DATA OBJ) BUFFER)))
  
  (DEFINE-ALIAS IOP:COMPONENTID
   :id "IDL:IOP/ComponentId:1.0"
   :name "ComponentId"
   :type OMG.ORG/CORBA:ULONG
   :typecode OMG.ORG/CORBA:TC_ULONG)
  
  (DEFINE-STRUCT IOP:IOR
   :id "IDL:IOP/IOR:1.0"
   :name "IOR"
   :members (("type_id" OMG.ORG/CORBA:TC_STRING TYPE_ID)
             ("profiles"
              (create-sequence-tc 0 (SYMBOL-TYPECODE 'IOP:TAGGEDPROFILE))
              PROFILES))
   :read ((BUFFER)
          (IOP:IOR 
           :type_id (UNMARSHAL-STRING BUFFER)
           :profiles (UNMARSHAL-SEQUENCE
                      (lambda (buffer) (STRUCT-READ 'IOP:TAGGEDPROFILE BUFFER))
                      BUFFER)))
   :write ((OBJ BUFFER) (MARSHAL-STRING (OMG.ORG/FEATURES:TYPE_ID OBJ) BUFFER)
           (MARSHAL-SEQUENCE
             (OMG.ORG/FEATURES:PROFILES OBJ)
             (lambda (obj buffer) (STRUCT-WRITE OBJ 'IOP:TAGGEDPROFILE BUFFER))
             BUFFER)))
  
  (DEFINE-STRUCT IOP:TAGGEDPROFILE
   :id "IDL:IOP/TaggedProfile:1.0"
   :name "TaggedProfile"
   :members (("tag" (SYMBOL-TYPECODE 'IOP:PROFILEID) TAG)
             ("profile_data" (create-sequence-tc 0 OMG.ORG/CORBA:TC_OCTET)
              PROFILE_DATA))
   :read ((BUFFER)
          (IOP:TAGGEDPROFILE
            :tag (UNMARSHAL-ULONG BUFFER)
            :profile_data (UNMARSHAL-OSEQUENCE BUFFER)))
   :write ((OBJ BUFFER) (MARSHAL-ULONG (OMG.ORG/FEATURES:TAG OBJ) BUFFER)
           (MARSHAL-OSEQUENCE (OMG.ORG/FEATURES:PROFILE_DATA OBJ) BUFFER)))
  
  (defconstant iop:tag_multiple_components (quote 1))
  
  (defconstant iop:tag_internet_iop (quote 0))
  
  (DEFINE-ALIAS IOP:PROFILEID
   :id "IDL:IOP/ProfileId:1.0"
   :name "ProfileId"
   :type OMG.ORG/CORBA:ULONG
   :typecode OMG.ORG/CORBA:TC_ULONG)
  
  
  
  
  (DEFINE-ALIAS IOP:ENCODINGFORMAT
  
negative.code:          (MARSHAL-OSEQUENCE (op:CONTEXT_DATA OBJ) BUFFER)))
  
  (DEFINE-ALIAS IOP:SERVICEID
   :id "IDL:omg.org/IOP/ServiceId:1.0"
   :name "ServiceId"
   :type CORBA:ULONG
   :typecode CORBA:TC_ULONG)
  