anchor.diff:    (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))
  +    (poa-new-state poa :discarding))
  +  (setf (destroy-in-progres-p poa) t)
     (let ((manager (op:the_poamanager poa)))
       (remove-poa manager poa))
     (dolist (child (op:the_children poa))
  
positive.code:     (server-request-respond request)))
  
  
  (defun poa-locate (poa poa-spec)
    (cond ((numberp poa-spec)
           (values (gethash poa-spec *poa-map*)))
          ((null poa-spec)
           poa)
          (t
           (let ((next-poa (find-requested-poa poa (car poa-spec) t t)))
             (cond ((eql next-poa :wait)
                    (values poa poa-spec))
                   ((null next-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)))
  
  