anchor.diff:      (unwind-protect 
         (let ((*running-orb* t))
           (loop while (orb-active orb)
  -              do (orb-wait)))
  +              do (orb-work)))
         (setq *running-orb* old))))
   
   
   +
  +;;;; Dynamic Invokation related operations
  +
   
   ;;;    Status create_list ( in long    count,
   ;;;                         out NVList new_list );
  +
  +(define-method create_list ((orb CORBA:ORB) count)
  +  (loop repeat count
  +        collect (CORBA:NamedValue :name "" 
  +                                  :argument (CORBA:Any :any-typecode CORBA:tc_void)
  +                                  :arg_modes CORBA:ARG_IN)))
   
   
   ;;;    Status create_operation_list ( in OperationDef oper,
  
positive.code:        (op:params opdef)))
  
  
  
  ;;;    Status get_default_context (out Context ctx);
  ;;;    boolean get_service_information (in ServiceType         service_type,
  ;;;                                     out ServiceInformation service_information );
  ;;;    // get_current deprecated operation - should not be used by new code
  ;;;    // new code should use resolve_initial_reference operation instead
  ;;;    Current get_current();
  ;;;    // deprecate get_current in the next major printing of CORBA
  ;;;
  ;;;
  ;;;    typedef string ObjectId;
  ;;;    typedef sequence <ObjectId> ObjectIdList;
  ;;;
  
  
  
  ;;; void register_initial_reference (in ObjectId id, in Object obj)
  ;;;    raises (InvalidName);
  
  (define-method register_initial_reference ((orb clorb-orb) id obj)
    (when (or (not (stringp id)) (equal id "")
              (assoc id (orb-initial-references orb)
                      :test #'string=))
      (error (CORBA:ORB/InvalidName)))
    (unless obj
      (raise-system-exception 'CORBA:BAD_PARAM 24 :completed_no))
    (set-initial-reference orb id nil obj))
  
  
  
  
negative.code:                        :accessor orb-initial-references)
     (default-initial-reference
      :initform nil
      :accessor orb-default-initial-reference)
     (pending-client-request
      :initform nil
      :accessor pending-client-request)))
  
  
  
  
  