anchor.diff:           (call-next-method))))
   
   
  ++
   ;;;; ValueBase
   
   (defclass CORBA:ValueBase ()
     ())
   
   
  ++
   ;;;; AbstractBase
   
   (defclass CORBA:AbstractBase (CORBA:Object)
  
positive.code:   (object-is-a obj interface-id))
  
  
  
  ;;;; CORBA:Proxy
  
  
negative.code: ;;;|     out Request	request,		
  ;;;|     in Flags        req_flags    );
  
  (define-method _create_request ((obj t)
                                  ctx operation arg_list result req_flags)
    (declare (ignore ctx operation arg_list result req_flags))
    (raise-system-exception 'CORBA:NO_IMPLEMENT 4 :completed_no))
  
  (define-method _create_request ((obj CORBA:Object)
                                  ctx operation arg_list result req_flags)
    (declare (ignorable req_flags ctx))
    (if result
        (setf (op:arg_modes result) ARG_OUT)
      (setq result (CORBA:NamedValue :arg_modes ARG_OUT
                                     :argument (CORBA:Any))))
    (values result
            (create-client-request (the-orb obj)
                                   :target obj
                                   :operation operation
                                   :paramlist (cons result (copy-seq arg_list))
                                   #| :ctx ctx |# )))
  
  
  (define-method _is_a ((obj CORBA:Proxy) interface-id)
  