anchor.diff:  
   ;;; boolean poll_response ();
   ;;
  -;; poll_response determines whether the request has completed. A TRUE return indicates
  -;; that it has; FALSE indicates it has not.
  +;; 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.
  +;; 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
  
positive.code: (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)))
  
  
  ;;; void invoke ()
  
negative.code:         ((slot-boundp req 'params)
           (let ((args (request-args req)))
             (loop for (nil mode tc) in (request-params req)
                collect (cons (CORBA:Any
                               :any-value (if (not (eql mode :param_out))
                                              (pop args))
                               :any-typecode tc)
                              mode))))
          (t (raise-system-exception 'CORBA:no_resources))))
  
  
  