anchor.diff:     (connection :initform nil :accessor request-connection)
      (reply :initform nil  :accessor request-reply)
      (service-context :initform nil :accessor request-service-context)
  -   (exceptions :initform nil :accessor request-exceptions)))
  +   (exceptions :initform nil :initarg :exceptions :accessor request-exceptions)))
   
   
   (define-method result ((r request))
  
positive.code: 
  
  (defun add-arg (req name mode &optional typecode value)
    (let ((arg (CORBA:Any :any-typecode typecode
                          :any-value value)))
      (setf (request-paramlist req)
  
negative.code: ;;;; clorb-object.lisp --- CORBA:Object and other pseudo objects
  ;; $Id: clorb-object.lisp,v 1.6 2002/06/01 05:44:45 lenst Exp $
  
  (in-package :clorb)
  
  