[s-xml-rpc-cvs] CVS s-xml-rpc/src

[scaekenberghe]

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/src
In directory clnet:/tmp/cvs-serv13386/src

Modified Files:
	xml-rpc.lisp 
Log Message:
fixed a bug reported by Evgeniy Zamriy:
<boolean>0</boolean> was decoded incorrectly as an empty string instead of as nil
fixed second clause in :|value| handling testing (null seed) instead of (null (car seed))
added more decoding tests to cope with regression, seems ok


--- /project/s-xml-rpc/cvsroot/s-xml-rpc/src/xml-rpc.lisp	2008/02/15 15:11:00	1.10
+++ /project/s-xml-rpc/cvsroot/s-xml-rpc/src/xml-rpc.lisp	2008/02/15 15:42:40	1.11
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: xml-rpc.lisp,v 1.10 2008/02/15 15:11:00 scaekenberghe Exp $
+;;;; $Id: xml-rpc.lisp,v 1.11 2008/02/15 15:42:40 scaekenberghe Exp $
 ;;;;
 ;;;; This is a Common Lisp implementation of the XML-RPC protocol,
 ;;;; as documented on the website http://www.xmlrpc.com
@@ -297,7 +297,7 @@
 	  (:|array| (car seed))
 	  (:|data| (unless (stringp seed) (nreverse seed)))
 	  (:|value| (cond ((stringp seed) seed)
-                          ((null (car seed)) "")
+                          ((null seed) "")
                           (t (car seed))))
 	  (:|struct| (make-xml-rpc-struct :alist seed))
 	  (:|member| (cons (cadr seed) (car seed)))
@@ -524,7 +524,7 @@
 (defun xml-rpc-implementation-version ()
   "Identify ourselves"
   (concatenate 'string
-	       "$Id: xml-rpc.lisp,v 1.10 2008/02/15 15:11:00 scaekenberghe Exp $"
+	       "$Id: xml-rpc.lisp,v 1.11 2008/02/15 15:42:40 scaekenberghe Exp $"
 	       " "
 	       (lisp-implementation-type)
 	       " "