anchor.diff:      (unwind-protect 
         (let ((*running-orb* t))
           (loop while (orb-active orb)
  -              do (orb-work nil)))
  +              do (orb-work orb t nil)))
         (setq *running-orb* old))))
   
   
  
positive.code:    (initial-references :initform '()
                         :accessor orb-initial-references)
     (default-initial-reference
      :initform nil
      :accessor orb-default-initial-reference)
     (pending-client-request
      :initform nil
      :accessor pending-client-request)))
  
  
  
  
negative.code: ;;;    boolean work_pending(  );
  
  (define-method work_pending ((orb orb))
    (or (io-event-waiting-p)
        (work-queue orb)
        (progn (io-driver t) (io-event-waiting-p))))
  
  
  ;;;    void perform_work( );
  
  (define-method perform_work ((orb orb))
    (let ((*running-orb* t))
      (orb-work orb t t)))
  
  
  ;;;    void run();
  