anchor.diff:              ("requesting_principal" (SYMBOL-TYPECODE 'OMG.ORG/GIOP:PRINCIPAL))))
   
   (define-enum GIOP:REPLYSTATUSTYPE 
  -  :id "IDL:GIOP/ReplyStatusType:1.0"
  +  :id "IDL:omg.org/GIOP/ReplyStatusType:1.0"
     :name "ReplyStatusType"
     :members ("NO_EXCEPTION" "USER_EXCEPTION" "SYSTEM_EXCEPTION"
                              "LOCATION_FORWARD"))
   
   (DEFINE-STRUCT GIOP:REPLYHEADER
  -  :id "IDL:GIOP/ReplyHeader:1.0"
  +  :id "IDL:omg.org/GIOP/ReplyHeader:1.0"
     :name "ReplyHeader"
     :members (("service_context" (SYMBOL-TYPECODE 'IOP:SERVICECONTEXTLIST))
               ("request_id" OMG.ORG/CORBA:TC_ULONG)
               ("reply_status" (SYMBOL-TYPECODE 'GIOP:REPLYSTATUSTYPE))))
   
   (define-alias GIOP:Principal
  -  :id "IDL:GIOP/Principal:1.0"
  +  :id "IDL:omg.org/GIOP/Principal:1.0"
     :name"Principal" 
     :type sequence
     :typecode (create-sequence-tc 0 OMG.ORG/CORBA:TC_OCTET))
  
positive.code:            ("message_size" OMG.ORG/CORBA:TC_ULONG)))
  
  (DEFINE-STRUCT GIOP:LOCATEREQUESTHEADER
   :id "IDL:GIOP/LocateRequestHeader:1.0"
   :name "LocateRequestHeader"
   :members (("request_id" OMG.ORG/CORBA:TC_ULONG)
             ("object_key" (create-sequence-tc 0 OMG.ORG/CORBA:TC_OCTET))))
  
  (define-enum GIOP:LocateStatusType
    :id "IDL:GIOP/LocateStatusType:1.0"
    :name "LocateStatusType" 
    :members ("UNKNOWN_OBJECT" "OBJECT_HERE" "OBJECT_FORWARD"))
  
  (DEFINE-STRUCT GIOP:LOCATEREPLYHEADER
   :id "IDL:GIOP/LocateReplyHeader:1.0"
   :name "LocateReplyHeader"
   :members (("request_id" OMG.ORG/CORBA:TC_ULONG REQUEST_ID) 
             ("locate_status" (SYMBOL-TYPECODE 'GIOP:LOCATESTATUSTYPE))))
  
  (DEFINE-STRUCT GIOP:CANCELREQUESTHEADER
   :id "IDL:GIOP/CancelRequestHeader:1.0"
   :name "CancelRequestHeader"
   :members (("request_id" OMG.ORG/CORBA:TC_ULONG)))
  
  (DEFINE-STRUCT GIOP:REQUESTHEADER_1_0
    :id "IDL:GIOP/RequestHeader_1_0:1.0"
    :name "RequestHeader_1_0"
    :members (("service_context" (SYMBOL-TYPECODE 'IOP:SERVICECONTEXTLIST))
              ("request_id" OMG.ORG/CORBA:TC_ULONG)
  
negative.code: ;;; clorb-iiop.lisp --- IIOP implementation
  ;; $Id: clorb-iiop.lisp,v 1.43 2005/02/26 20:23:01 lenst Exp $
  
  
  (in-package :clorb)
  