anchor.diff:               (list
                 :msgtype msgtype
                 :version version
  -              :service-context (unmarshal-service-context buffer) 
  +              :service-context (unmarshal-service-context buffer)
                 :request-id (unmarshal-ulong buffer)
                 :response (unmarshal-octet buffer)
                 :object-key (unmarshal-osequence buffer)
  
positive.code: ;;; Mock classes
  
  (defclass test-connection (connection)
    ((response-func :initarg response-func 
                    :initform nil
                    :accessor response-func)
     (label :initarg :label  :initform "test"
  
negative.code:     (setf (object-connection obj) *test-out-conn*)
      obj))
  
  (defun test-read-request (&key
                               (stream *test-sink-stream*)
                               (orb *the-orb*) buffer
                               request-pattern request-keys
                               args )
    (unless buffer (setq buffer (get-work-buffer orb)))
  