anchor.diff:  ;;; _create_request in lisp mapping
   ;;;|     in Context	ctx,				
   ;;;|     in Identifier	operation,				
  +
   ;;;|     in NVList	arg_list,				
   ;;;|     inout NamedValue result,				
   ;;;|     out Request	request,		
  
positive.code: (defun register-proxy-class (id class)
    (setf (gethash id *proxy-classes*) class))
  
  
  ;;; clorb-object.lisp ends here
  
negative.code: ;;;|             in SetOverrideType set_add);
  ;;; _set_policy_overrides
  
  
  
  ;;;; CORBA:NamedValue
  
  (defconstant ARG_IN 1)
  (defconstant ARG_OUT 2)
  (defconstant ARG_INOUT 3)
  
  
  (define-corba-class CORBA:NamedValue ()
    :attributes ((name) 
                 (argument) 
                 (arg_modes)))
  
  (defun CORBA:NamedValue (&key (name "") argument (arg_modes ARG_IN))
    (make-instance 'CORBA:NamedValue 
      :name name :argument argument :arg_modes arg_modes))
  
  
  ;;;; CORBA:Object / CORBA:Proxy
  
  (defclass CORBA:Object ()
    ())
  
  