anchor.diff:  
   (defun make-call-obj (service method parameters &key notification)
     (make-rpc-call :service service
  -             :method method
  -             :args parameters
  -             :id (if notification
  -                     nil
  -                     (gensym "CALL"))))
  +                 :method method
  +                 :args parameters
  +                 :id (if notification
  +                         nil
  +                         (gensym "CALL"))))
   
   ;; TODO: add timeout and keepalive parameters if it seems reasonable
   (defun invoke-rpc-method (con service method args &key notification)
  
positive.code:         (make-result-future con (rpc-call-id call)))))
  
  (defmacro with-batch-calls ((stream &optional (batch-req nil batch-supplied-p)) &body body)
    `(let ((*rpc-batch* ,(if batch-supplied-p batch-req '())))
       (declare (special *rpc-batch*))
       ,@body
  
negative.code: 
  ;; TODO: allow strings for method and service
  ;; TODO: add typespecs for return value and arguments
  ;; Note: args is a list of lists, for providing typespecs in the future.
  (defmacro define-rpc-method ((method &optional service  &key notification) &body args)
    (check-type method symbol)
    (check-type service (or symbol null) "a SYMBOL or NIL")
    (check-type notification boolean)
    (let* ((sock-symb (gensym "SOCK"))
           (service-symb (gensym "SERVICE"))
           (service-string (if service
                               (format nil "~A-" (symbol-name service))
                               ""))
           (method-string (symbol-name method))
           (funcname (intern (concatenate 'string service-string method-string)))
           (arglist (mapcar #'first args)))
      `(defun ,funcname ,(cons sock-symb
                               (if (null service)
                                   (cons service-symb arglist)
                                   arglist))
         (invoke-rpc-method ,sock-symb ,(if service `(quote ,service)
                                            service-symb)
                            (quote ,method) (quote ,arglist)
                            :notification ,notification))))
  