anchor.diff:  ;;; clorb-iiop.lisp --- IIOP implementation
  -;; $Id: clorb-iiop.lisp,v 1.42 2005/02/25 19:31:40 lenst Exp $
  +;; $Id: clorb-iiop.lisp,v 1.43 2005/02/26 20:23:01 lenst Exp $
   
   
   (in-package :clorb)
  
positive.code:             "CloseConnection" "MessageError" "Fragment"))
  
  (DEFINE-STRUCT GIOP:VERSION
    :id "IDL:GIOP/Version:1.0"
    :name "Version"
    :members (("major" OMG.ORG/CORBA:TC_OCTET)
              ("minor" OMG.ORG/CORBA:TC_OCTET)))
  
  (DEFINE-STRUCT GIOP:MESSAGEHEADER_1_0
    :id "IDL:GIOP/MessageHeader_1_0:1.0"
    :name "MessageHeader_1_0"
    :members (("magic" (create-array-tc 4 OMG.ORG/CORBA:TC_CHAR))
              ("GIOP_version" (SYMBOL-TYPECODE 'GIOP:VERSION))
  
negative.code:            ("message_size" OMG.ORG/CORBA:TC_ULONG)))
  
  (DEFINE-STRUCT GIOP:LOCATEREQUESTHEADER
   :id "IDL:omg.org/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:omg.org/GIOP/LocateStatusType:1.0"
    :name "LocateStatusType" 
    :members ("UNKNOWN_OBJECT" "OBJECT_HERE" "OBJECT_FORWARD"))
  
  (DEFINE-STRUCT GIOP:LOCATEREPLYHEADER
   :id "IDL:omg.org/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:omg.org/GIOP/CancelRequestHeader:1.0"
   :name "CancelRequestHeader"
   :members (("request_id" OMG.ORG/CORBA:TC_ULONG)))
  
  (DEFINE-STRUCT GIOP:REQUESTHEADER_1_0
    :id "IDL:omg.org/GIOP/RequestHeader_1_0:1.0"
    :name "RequestHeader_1_0"
    :members (("service_context" (SYMBOL-TYPECODE 'IOP:SERVICECONTEXTLIST))
              ("request_id" OMG.ORG/CORBA:TC_ULONG)
  