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 :initarg :policies :accessor poa-policies)
            (poaid :initarg :poaid :accessor poa-poaid)
            (auto-id :accessor poa-auto-id :initform 0)
            (children :initform nil :accessor poa-children)))
  
  (defmethod print-object ((p POA) stream)
    (print-unreadable-object (p stream :type t)
  
negative.code:           :policies policies
            :poaid (incf *last-poaid*))))
      (when poa
        (push newpoa (POA-children poa))
        (setf (the-orb newpoa) (the-orb poa)))
      (register-poa newpoa)
      newpoa))
  
  