anchor.diff:        (:system_exception
          (setf (request-exception req) (unmarshal-systemexception buffer))
          (request-handle-error req))
  -      (:location_forward
  -       (setf (object-forward (request-target req))
  -             (unmarshal-object buffer))
  -       (has-received-other (the-orb req) req)
  -       (request-invoke req))
         (:no_exception
          ;; FIXME: the has-received-reply should ideally be done after
          ;; unmarshalling result, but then we can't simply return the
  
positive.code: 
  
  (defun request-send (req)
    (request-start-request 
     req
     (lambda (connection request-id)
       (setf (service-context-list req) nil)
       (will-send-request (the-orb req) req)
       (let ((buffer
              (connection-start-request connection request-id (service-context-list req)
                                        (response-expected req) (request-effective-profile req)
                                        (request-operation req))))
         (setf (request-buffer req) buffer)
         (funcall (output-func req) req buffer) 
         (setf (request-buffer req) nil)
         (connection-send-request connection buffer
                                  (if (response-expected req) req))))))
  
  
  ;;; void send_oneway ()
  
negative.code: ;;;; clorb-request.lisp -- Client Request
  ;; $Id: clorb-request.lisp,v 1.16 2005/03/23 15:52:14 lenst Exp $
  
  (in-package :clorb)
  
  