Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/src In directory common-lisp.net:/tmp/cvs-serv850/src

Modified Files: xml-rpc.lisp Log Message: Correct misleading docstring.

Date: Sun Sep 5 14:23:41 2004 Author: rschlatte

Index: s-xml-rpc/src/xml-rpc.lisp diff -u s-xml-rpc/src/xml-rpc.lisp:1.4 s-xml-rpc/src/xml-rpc.lisp:1.5 --- s-xml-rpc/src/xml-rpc.lisp:1.4 Thu Jun 17 21:43:11 2004 +++ s-xml-rpc/src/xml-rpc.lisp Sun Sep 5 14:23:40 2004 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: xml-rpc.lisp,v 1.4 2004/06/17 19:43:11 rschlatte Exp $ +;;;; $Id: xml-rpc.lisp,v 1.5 2004/09/05 12:23:40 rschlatte Exp $ ;;;; ;;;; This is a Common Lisp implementation of the XML-RPC protocol, ;;;; as documented on the website http://www.xmlrpc.com @@ -450,8 +450,9 @@ method-name)))

(defun find-xml-rpc-method (method-name) - "Looks for a method with the given name in *xml-rpc-package*, - except that colons in the name get converted to hyphens." + "Looks for a method with the given name in *xml-rpc-package*. + Returns the symbol named METHOD-NAME if it exists and is + fbound, or NIL if not." (let ((sym (find-symbol method-name *xml-rpc-package*))) (if (fboundp sym) sym nil)))

@@ -504,7 +505,7 @@ (defun xml-rpc-implementation-version () "Identify ourselves" (concatenate 'string - "$Id: xml-rpc.lisp,v 1.4 2004/06/17 19:43:11 rschlatte Exp $" + "$Id: xml-rpc.lisp,v 1.5 2004/09/05 12:23:40 rschlatte Exp $" " " (lisp-implementation-type) " "