anchor.diff:                          `(list ,arg ,encoder)))))
       (let* ((con-symb (gensym "CON"))
              (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)))
  +           (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)))
  
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: (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 (if (typep service 'string) service (symbol-name service))
                   :method (if (typep method 'string) method (symbol-name method))
                   :args parameters
                   :id (if notification
                           nil
  