anchor.diff:                             :transient)
                            (poa-poaid poa) oid
                            :poa-name (poa-name poa))
  -   :host *host*
  -   :port *port*))
  +   :host (or *host* (orb-host (the-orb poa)))
  +   :port (orb-port (the-orb poa))))
   
   (defun object-key-id (object-key)
     (map 'string #'code-char
  
positive.code:           :policies policies
            :poaid (incf *last-poaid*))))
      (when poa
        (push newpoa (POA-children poa)))
      (register-poa newpoa)
      newpoa))
  
  
negative.code: ;;;; clorb-poa.lisp -- Portable Object Adaptor
  ;; $Id: clorb-poa.lisp,v 1.2 2001/06/03 20:48:56 lenst Exp $
  
  (in-package :clorb)
  
  