anchor.diff:      (server-request-respond request)))
   
   
  -(defun poa-locate (poa poa-spec)
  +(defun poa-locate (poa poa-spec &optional (check-poa-status t))
     (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)))
  +         (let ((next-poa (find-requested-poa poa (car poa-spec) t check-poa-status)))
              (cond ((eql next-poa :wait)
                     (values poa poa-spec))
                    ((null next-poa)
  
positive.code: ;; raises (AdapterAlreadyExists, InvalidPolicy);
  
  (define-method create_POA ((poa PortableServer:POA) adapter-name poamanager policies)
    (when (poa-state poa)
      ;; Currently only have state when destroying
      (raise-system-exception 'CORBA:BAD_INV_ORDER 17))
    (create-POA poa adapter-name poamanager policies (the-orb poa)))
  
  
negative.code: ;;;; clorb-poa.lisp -- Portable Object Adaptor
  ;; $Id: clorb-poa.lisp,v 1.34 2005/01/04 22:29:23 lenst Exp $
  
  (in-package :clorb)
  
  