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