anchor.diff:  ;;;| boolean is_a (in string logical_type_id);
   ;;; _is_a in lisp mapping (in clorb-request)
   
  +(define-method _is_a ((obj t) interface-id)
  +  (declare (ignore interface-id))
  +  (error 'corba:no_implement :minor 3))
  +
   (define-method _is_a ((obj CORBA:Object) interface-id)
     (object-is-a obj interface-id))
   
  
positive.code: ;;;| boolean	is_equivalent (in Object other_object);
  ;;; _is_equivalent in lisp mapping
  
  (define-method _is_equivalent ((obj corba:proxy) other)
    (let ((profile1 (car (object-profiles obj)))
          (profile2 (car (object-profiles other))))
  
negative.code:         (t
           (error "Object of wrong type for narrowing"))))
  
  
  
  ;;;; ValueBase
  
  (defclass CORBA::ValueBase ()
    ())
  
  
  ;;;; AbstractBase
  
  (defclass CORBA::AbstractBase (CORBA:Object)
    ())
  
  
  
  
  ;;; clorb-object.lisp ends here
  