anchor.diff:  (defvar *call-hook* nil)
   
   (defun do-static-call (obj operation response-expected
  -                       output-func input-func exceptions)
  +                       output-func input-func exceptions &optional args)
     (let ((req (create-client-request
                 (the-orb obj)
                 :target obj
  
positive.code:       (:system_exception
         (setf (request-exception req) (unmarshal-systemexception buffer))
         (request-handle-error req))
        (:location_forward
         (setf (object-forward (request-target req))
               (unmarshal-object buffer))
         (has-received-other (the-orb req) req)
         (request-invoke req))
        (:no_exception
         ;; FIXME: the has-received-reply should ideally be done after
         ;; unmarshalling result, but then we can't simply return the
  
negative.code: ;;;; clorb-request.lisp -- Client Request
  ;; $Id: clorb-request.lisp,v 1.16 2005/03/23 15:52:14 lenst Exp $
  
  (in-package :clorb)
  
  