anchor.diff:  ;;;; clorb-poa.lisp -- Portable Object Adaptor
  -;; $Id: clorb-poa.lisp,v 1.33 2004/12/31 10:43:51 lenst Exp $
  +;; $Id: clorb-poa.lisp,v 1.34 2005/01/04 22:29:23 lenst Exp $
   
   (in-package :clorb)
   
  
positive.code:   (when (and wait-for-completion *poa-current*)
      (raise-system-exception 'CORBA:BAD_INV_ORDER 3 :completed_yes))
    (unless (eq :inactive (poa-effective-state poa))
      (setf (poa-state poa) :discarding))
    (let ((manager (op:the_poamanager poa)))
      (remove-poa manager poa))
    (dolist (child (op:the_children poa))
  
negative.code: ;; raises (AdapterAlreadyExists, InvalidPolicy);
  
  (define-method create_POA ((poa PortableServer:POA) adapter-name poamanager policies)
    (when (destroy-in-progres-p poa)
      (raise-system-exception 'CORBA:BAD_INV_ORDER 17))
    (create-POA poa adapter-name poamanager policies (the-orb poa)))
  
  