anchor.diff:     (output-func
       :initarg :output-func           :initform 'dii-output-func
       :accessor output-func)
  +   (args
  +    :initarg :args
  +    :accessor request-args)
      (input-func
       :initarg :input-func            :initform 'dii-input-func
       :accessor input-func)
  
positive.code: ;;;; Sending requests
  
  
  (defun request-start-request (req handler)
    "Connect REQ target and call HANDLER with connection, request-id"
    (setf (request-status req) nil)
    (let ((object (request-target req)))
      (let ((conn (get-object-connection object)))
  
negative.code:           (setq op (setter-name name))
            (setq output-func
                  (let ((mfun (marshal-function type)))
                    (lambda (req buffer)
                      (funcall mfun (request-args req) buffer))))))
        (do-static-call obj op t 
                        output-func
                        (lambda (req buffer) (declare (ignore req buffer)))
                        nil
                        value))))
  
  
  