anchor.diff:  ;;;|             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 ()
     ())
   
  
positive.code: (defun register-proxy-class (id class)
    (setf (gethash id *proxy-classes*) class))
  
  
  ;;; clorb-object.lisp ends here
  
negative.code: ;;;; clorb-object.lisp --- CORBA:Object and other pseudo objects
  ;; $Id: clorb-object.lisp,v 1.2 2001/07/02 16:34:44 lenst Exp $
  
  (in-package :clorb)
  
  