anchor.diff:                                   #| :ctx ctx |# )))
   
   
  -(define-method _is_a ((obj CORBA:Proxy) interface-id)
  -  (or (object-is-a obj interface-id)
  -      (static-call ("_is_a" obj)
  -                   :output ((buffer) (marshal-string interface-id buffer))
  -                   :input ((buffer) (unmarshal-bool buffer)))))
  -
  -
  -;;;| boolean	non_existent();
  -;;; _non_existent in lisp mapping
  -
  -(define-method _non_existent ((obj t))
  -  nil)
  -
  -(define-method _non_existent ((obj CORBA:Proxy))
  -  ;;FIXME: Should perhaps send a "_non_existent" message to object ?
  -  (eq (locate obj) :unknown_object ))
  -
  -
  -;;; Deferred from Any
  -
  -(defmethod any-value ((obj corba:object))
  -  obj)
  +
  +
   
   
   
positive.code:          (return conn))))))
  
  
  ;;;| boolean	is_equivalent (in Object other_object);
  ;;; _is_equivalent in lisp mapping
  
  (define-method _is_equivalent ((obj t) other)
    (eql obj other))
  
  (defgeneric profile-equal (profile1 profile2)
    (:method ((profile1 t) (profile2 t)) (eq profile1 profile2)))
  
  
negative.code:   (declare (ignore ctx operation arg_list result req_flags))
    (raise-system-exception 'CORBA:NO_IMPLEMENT 4 :completed_no))
  
  (define-method _create_request ((obj CORBA:Proxy)
                                  ctx operation arg_list result req_flags)
    (declare (ignorable req_flags ctx))
    (check-type operation string)
  