[s-xml-rpc-cvs] CVS update: s-xml-rpc/src/xml-rpc.lisp

[Rudi Schlatte]

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)
 	       " "