anchor.diff:  
   ;;;| 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 ?
  
positive.code: ;;;| boolean is_a (in string logical_type_id);
  ;;; _is_a in lisp mapping (in clorb-request)
  
  (define-method _is_a ((obj CORBA:Object) interface-id)
    (object-is-a obj interface-id))
  
  
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
  