anchor.diff:      (register-poa newpoa)
       newpoa))
   
  +;; POA create_POA(in string adapter_name,
  +;;   in POAManager a_POAManager,
  +;;   in CORBA::PolicyList policies)
  +;; raises (AdapterAlreadyExists, InvalidPolicy);
   (define-method create_POA ((poa POA) adapter-name poamanager policies)
     (create-POA poa adapter-name poamanager policies))
   
  
positive.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)
  
  
negative.code:         for i from 0
          for g = (find p policy-groups :test #'member)
          do (cond (g (setq policy-groups (remove g policy-groups)))
                   (t (error 'POA/InvalidPolicy :index i))))
      (loop for g in policy-groups
          do (push (car g) policies)))
    (when (and poa (find name (POA-children poa))
              :key #'op:the_name :test #'equal)
      (error 'POA/AdapterAlreadyExists))
    (let ((newpoa
           (make-instance 'POA
            :the_name name
  