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