method name should be a string

[tengelyeah]

diff --color -uNr ../../dists/ultralisp/software/antifuchs-cxml-rpc-20190319083035/server.lisp ./server.lisp
--- ../../dists/ultralisp/software/antifuchs-cxml-rpc-20190319083035/server.lisp	2024-08-02 17:14:19.900663891 +0800
+++ ./server.lisp	2024-08-02 18:03:49.587834554 +0800
@@ -17,7 +17,7 @@
                (*current-tag* tag))
            (multiple-value-bind (method-name param-types params)
                (decode-method-call stream)
-             (setf (hunchentoot:content-type) "text/xml")
+             (setf (hunchentoot:content-type*) "text/xml")
              (invoke-method method-name param-types params)))))
     #'dispatch))
 
@@ -178,7 +178,7 @@
       (when (/= (1+ req-args) (length signature))
         (warn "Signature doesn't match the required arguments ~
                 (plus return type)"))
-      `(ensure-xrpc-method ',handler-tag ',name
+      `(ensure-xrpc-method ',handler-taga ,(if (stringp name) name (prin1-to-string name)) 
                            ',(append signature optional-args)
                            ',docstring (lambda (,@args) ,@body)))))