anchor.diff:  
   
   (defun test-write-response (&key (orb *the-orb*)
  -                                     request message-type message
  +                                     request message-type message (reply-status :no_exception)
                                        fragmented (giop-version giop-1-0))
     (unless orb (setq orb (the-orb request)))
     (setup-outgoing-connection *test-out-conn*)
     (let ((buffer (get-work-buffer orb)))
       (cond (request
              (marshal-giop-header :REPLY buffer giop-version fragmented)
  -           (marshal-service-context nil buffer) 
  +           (marshal-service-context nil buffer)
              (marshal-ulong (request-id request)  buffer)
  -           (marshal :no_exception (symbol-typecode 'GIOP:REPLYSTATUSTYPE) buffer))
  +           (marshal reply-status (symbol-typecode 'GIOP:REPLYSTATUSTYPE) buffer))
             (message-type
              (marshal-giop-header message-type buffer giop-version fragmented))
             (t (break)))
  
positive.code:              (list
                :msgtype msgtype
                :version version
                :service-context (unmarshal-service-context buffer) 
                :request-id (unmarshal-ulong buffer)
                :response (unmarshal-octet buffer)
                :object-key (unmarshal-osequence buffer)
  
negative.code: ;;; Mock classes
  
  (defclass test-connection (connection)
    ((response-func :initarg response-func
                    :initform nil
                    :accessor response-func)
     (label :initarg :label  :initform "test"
  