anchor.diff:                                 (if (null service)
                                      (cons service-symb arglist)
                                      arglist))
  -         (invoke-rpc-method ,con-symb ,(if service `(quote ,service)
  -                                            service-symb)
  -                            (quote ,method)
  +         (invoke-rpc-method ,con-symb ,(etypecase service
  +                                                  (null service-symb)
  +                                                  (symbol `(quote ,service))
  +                                                  (string service))
  +                            ,(if (symbolp method)
  +                                 `(quote ,method)
  +                                 method)
                               ,passed-args
                               :notification ,notification)))))
  
positive.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 (symbol-name service)
                   :method (symbol-name method)
                   :args parameters
                   :id (if notification
                           nil
  
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)))
  