anchor.diff:  ;;;; GIOP Module
   
   (define-enum GIOP:MsgType_1_0
  -  :id "IDL:GIOP/MsgType_1_0:1.0"
  +  :id "IDL:omg.org/GIOP/MsgType_1_0:1.0"
     :name "MsgType_1_0"
     :members ("Request" "Reply" "CancelRequest" "LocateRequest" "LocateReply" 
               "CloseConnection" "MessageError"))
  
positive.code:             ("requesting_principal" (SYMBOL-TYPECODE 'OMG.ORG/GIOP:PRINCIPAL))))
  
  (define-enum GIOP:REPLYSTATUSTYPE 
    :id "IDL: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"
    :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"
    :name"Principal" 
    :type sequence
    :typecode (create-sequence-tc 0 OMG.ORG/CORBA:TC_OCTET))
  
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)
  