anchor.diff:  
   ;;;; Stub support
   
  +
  +(defun symbol-op-info (sym)
  +  "Returns: name result params mode exc-syms"
  +  (values (get sym 'ifr-name)
  +          (get sym 'ifr-result)
  +          (get sym 'ifr-params)
  +          (get sym 'ifr-mode)
  +          (get sym 'ifr-exceptions)))
  +
  +
  +(defun symbol-attr-info (sym)
  +  "Returns: name type mode"
  +  (values (get sym 'ifr-name)
  +          (get sym 'ifr-type)
  +          (get sym 'ifr-mode)))
  +
  +
   (defun compute-static-call (sym)
     (let (input-func output-func exceptions op response-expected)
       (lambda (obj &rest args)
         (unless input-func
  -        (let ((name (get sym 'ifr-name))
  -              (result (get sym 'ifr-result))
  -              (params (get sym 'ifr-params))
  -              (exc-syms (get sym 'ifr-exceptions))
  -              (mode (get sym 'ifr-mode)))
  +        (multiple-value-bind (name result params mode exc-syms)
  +                             (symbol-op-info sym)
             (setq input-func
                   (let ((ufuns (loop for (nil pmode tc) in params
                                      unless (eql pmode :param_in) collect (unmarshal-function tc))))
  
positive.code:        ;; result as we do here for static calls. The static call would
         ;; have to cons a list of results..
         (has-received-reply (the-orb req) req)
         (funcall (input-func req) req buffer)))))
  
  
  
negative.code:   (request-wait-response req)
    (let ((buffer (request-buffer req)))
      (case (request-status req)
        (:initial (raise-system-exception 'CORBA:BAD_INV_ORDER))
        (:error                             ; Communication error
         (setf (request-status req) :system_exception)
         (request-handle-error req))
  