anchor.diff:   
   ;;;; PortableServer::POA
  -
  +#|
  +(active-servant-map
  +           :initform (make-hash-table)
  +           :reader poa-active-servant-map
  +           :documentation "servant->id")
  +:reader poa-active-object-map
  +|#
   (define-corba-class PortableServer:POA ()
     :attributes ((the_name :readonly)
                  (the_parent :readonly) 
                  (the_POAManager :readonly) 
                  (the_activator nil)
                  (the_children nil :readonly))
  -  :slots ((active-servant-map
  -           :initform (make-hash-table)
  -           :reader poa-active-servant-map
  -           :documentation "servant->id")
  -          (active-object-map 
  -           :initform (make-trie)
  -           :reader poa-active-object-map
  -           :documentation "id->servant")
  +  :slots ((active-object-map 
  +           :initform (make-instance 'object-map)
  +           :reader active-object-map)
             (servant-manager :initform nil :accessor poa-servant-manager)
             (default-servant :accessor poa-default-servant)
             (policies :initarg :policies :accessor poa-policies)
  
positive.code: ;;;     raises (ObjectNotActive, WrongPolicy);
  
  (define-method id_to_servant ((poa PortableServer:POA) id)
    (or (trie-get (to-object-id id) (POA-active-object-map poa))
        (error 'PortableServer:poa/objectnotactive)))
  
  ;;;   Object id_to_reference(in ObjectId oid)
  
negative.code: ;;;; clorb-poa.lisp -- Portable Object Adaptor
  ;; $Id: clorb-poa.lisp,v 1.31 2004/09/17 19:52:45 lenst Exp $
  
  (in-package :clorb)
  
  