anchor.diff:                                         :argument (CORBA:Any :any-typecode result-type)))))
   
   (defun get-attribute (obj getter result-tc)
  -  (request-funcall 
  -   (request-create obj getter result-tc)))
  +  (static-call (getter obj)
  +               :output ((buffer))
  +               :input ((buffer) (unmarshal result-tc buffer))))
   
   (defun set-attribute (obj setter result-tc newval)
  -  (request-funcall 
  -   (make-instance 'request
  -     :paramlist (list (CORBA:NamedValue :arg_modes ARG_OUT
  -                                        :argument (CORBA:Any :any-typecode CORBA:tc_void))
  -                      (CORBA:NamedValue :arg_modes ARG_IN
  -                                        :argument (CORBA:Any :any-typecode result-tc
  -                                                             :any-value newval)))
  -     :target obj
  -     :operation setter )))
  +  (static-call (setter obj)
  +               :output ((buffer) (marshal newval result-tc buffer))
  +               :input ((buffer))))
   
   
   (defun request-funcall (req)
  
positive.code: 
  (define-method _non_existent ((obj CORBA:Proxy))
    ;;FIXME: Should perhaps send a "_non_existent" message to object ?
    (= (locate obj) 0))
  
  
  ;;; Deferred from Any
  
negative.code:   (assert (op:_is_a obj id))
    (make-instance (find-proxy-class id)
      :id id
      :forward (object-forward obj)
      :profiles (object-profiles obj)
      :raw-profiles (object-raw-profiles obj)))
  