anchor.diff:  (define-method poll_response ((req client-request))
     ;; FIXME: 13
     (case (request-poll req)
  -    ((:initial) (raise-system-exception 'CORBA:BAD_INV_ORDER 11 :completed_no))
  -    ((:returned) (raise-system-exception 'CORBA:BAD_INV_ORDER 12 :completed_yes))
  -    ((nil) nil)
  -    (otherwise t)))
  +    ((:initial)
  +     (raise-system-exception 'CORBA:BAD_INV_ORDER 11 :completed_no))
  +    ((:returned)
  +     (raise-system-exception 'CORBA:BAD_INV_ORDER 12 :completed_yes))
  +    ((nil)
  +     nil)
  +    (otherwise
  +     t)))
   
   
   ;;; void invoke ()
  
positive.code: 
  ;;; boolean poll_response ();
  ;;
  ;; poll_response determines whether the request has completed. A TRUE return indicates
  ;; that it has; FALSE indicates it has not.
  ;;
  ;; Return is immediate, whether the response has completed or not. Values in the request are
  ;; not changed.
  
  ;; Exception BAD_INV_ORDER with minor
  ;;  * 11 - request not sendt
  
negative.code:    (the-orb obj)
     :target obj
     :operation operation
     :paramlist (list (CORBA:NamedValue
                       :arg_modes ARG_OUT
                       :argument (CORBA:Any :any-typecode result-type)))))
  
  
  