anchor.diff:       poa oid
        (primary-interface servant oid poa))))
   
  +(define-method _is_a ((servant servant) logical-type-id)
  +  (or (equal logical-type-id "IDL:omg.org/CORBA/Object:1.0")
  +      (equal logical-type-id (current-primary-interface servant))
  +      (op:is_a (op:_get_interface servant) logical-type-id)))
  +
  +(define-method _get_interface ((servant servant))
  +  (handler-case
  +      (op:lookup_id (get-ir) (current-primary-interface servant))
  +    (error ()
  +      (error 'corba:intf_repos))))
   
    ;; ----------------------------------------------------------------------
  
positive.code: ;;;; clorb-poa.lisp -- Portable Object Adaptor
  ;; $Id: clorb-poa.lisp,v 1.9 2002/05/29 05:10:34 lenst Exp $
  
  (in-package :clorb)
  
  
negative.code: 
  (define-user-exception ForwardRequest 
      :id "IDL:omg.org/PortableServer/ForwardRequest:1.0"
      :members ((forward_reference CORBA:tc_objref)))
  
  (define-user-exception POA/AdapterNonExistent 
      :id "IDL:omg.org/PortableServer/POA/AdapterNonExistent:1.0")
  