anchor.diff:      (lambda (obj &rest args)
         (unless input-func
           (multiple-value-bind (name result params mode exc-syms)
  -                             (symbol-op-info sym)
  +            (symbol-op-info sym)
             (setq params-list params)
             (setq input-func
                   (let ((ufuns (loop for (nil pmode tc) in params
  -                                   unless (eql pmode :param_in) collect (unmarshal-function tc))))
  +                                unless (eql pmode :param_in)
  +                                collect (unmarshal-function tc))))
                     (typecase result
                       (void-typecode)
                       (t (push (unmarshal-function result) ufuns)))
                     (lambda (req buffer)
                       (declare (ignore req))
  -                    (values-list (loop for u in ufuns collect (funcall u buffer))))))
  +                    (values-list (loop for u in ufuns
  +                                    collect (funcall u buffer))))))
             (setq output-func
                   (let ((mfuns (loop for (nil pmode tc) in params
  -                                   unless (eql pmode :param_out) collect (marshal-function tc))))
  +                                unless (eql pmode :param_out)
  +                                collect (marshal-function tc))))
                     (lambda (req buffer)
                       (loop for a in (request-args req)
  -                          for m in mfuns do (funcall m a buffer)))))
  +                       for m in mfuns do (funcall m a buffer)))))
             (setq exceptions (mapcar #'symbol-typecode exc-syms))
             (setq op name)
             (setq response-expected (eq mode :op_normal))))
  
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: 
  ;;; 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
  