anchor.diff:    ;; Combine state from POAManager and other operations on the POA.
     (or (poa-state poa)
         (op:get_state (op:the_poamanager poa))))
  +
  +
  +(defmethod wait-for-completion ((poa portableserver:poa))
  +  ;; Currently we have no way to do this and as long as we are single
  +  ;; threaded it should not be much of an issue.
  +  t)
  +
    
   ;;;; PortableServer::Current
  
positive.code: ;;;; clorb-poa.lisp -- Portable Object Adaptor
  ;; $Id: clorb-poa.lisp,v 1.29 2004/06/09 21:13:11 lenst Exp $
  
  (in-package :clorb)
  
  
negative.code: ;;;; interface POAManager
  
  (defclass PORTABLESERVER:POAMANAGER (corba:object)
    ((state         :initform :holding)
     (managed-poas  :initform '()
                    :accessor managed-poas)))
  
  
  ;;; enum State {HOLDING, ACTIVE, DISCARDING, INACTIVE}
  