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