anchor.diff:  (declaim (ftype (function (id id list &key (:notification boolean)) rpc-call)
                   make-call-obj))
   (defun make-call-obj (service method parameters &key notification)
  -  (make-rpc-call :service (symbol-name service)
  -                 :method (symbol-name method)
  +  (make-rpc-call :service (if (typep service 'string) service (symbol-name service))
  +                 :method (if (typep method 'string) method (symbol-name method))
                    :args parameters
                    :id (if notification
                            nil
  
positive.code:                                (if (null service)
                                     (cons service-symb arglist)
                                     arglist))
           (invoke-rpc-method ,con-symb ,(if service `(quote ,service)
                                              service-symb)
                              (quote ,method)
                              ,passed-args
                              :notification ,notification)))))
  
negative.code:                         `(list ,arg ,encoder)))))
      (let* ((con-symb (gensym "CON"))
             (service-symb (gensym "SERVICE"))
             (service-string (etypecase service
                               (null "")
                               (symbol (format nil "~A-" (symbol-name service)))
                               (string (format nil "~A-" service))))
             (method-string (etypecase method
                              (string method)
                              (symbol (symbol-name method))))
             (funcname (intern (string-upcase (concatenate 'string service-string method-string))))
             (arglist (mapcar #'first args))
             (passed-args (cons 'list (mapcar (lambda (a) (bind-args (arg encoder) a
                                                            `(list ,arg ,encoder)))
  