Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/src In directory common-lisp.net:/tmp/cvs-serv2966/src
Modified Files: xml-rpc.lisp Log Message: more correct boolean handling
Date: Wed Dec 21 16:27:59 2005 Author: scaekenberghe
Index: s-xml-rpc/src/xml-rpc.lisp diff -u s-xml-rpc/src/xml-rpc.lisp:1.6 s-xml-rpc/src/xml-rpc.lisp:1.7 --- s-xml-rpc/src/xml-rpc.lisp:1.6 Fri Feb 11 12:04:31 2005 +++ s-xml-rpc/src/xml-rpc.lisp Wed Dec 21 16:27:59 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: xml-rpc.lisp,v 1.6 2005/02/11 11:04:31 scaekenberghe Exp $ +;;;; $Id: xml-rpc.lisp,v 1.7 2005/12/21 15:27:59 scaekenberghe Exp $ ;;;; ;;;; This is a Common Lisp implementation of the XML-RPC protocol, ;;;; as documented on the website http://www.xmlrpc.com @@ -194,9 +194,9 @@ (write-string "</string>" stream)) ((integerp arg) (format stream "<int>~d</int>" arg)) ((floatp arg) (format stream "<double>~f</double>" arg)) - ((or (null arg) (eq arg t)) + ((or (null arg) (eql arg t)) (write-string "<boolean>" stream) - (write-string (if arg 1 0) stream) + (write-string (if arg "1" "0") stream) (write-string "</boolean>" stream)) ((and (arrayp arg) (= (array-rank arg) 1) @@ -505,7 +505,7 @@ (defun xml-rpc-implementation-version () "Identify ourselves" (concatenate 'string - "$Id: xml-rpc.lisp,v 1.6 2005/02/11 11:04:31 scaekenberghe Exp $" + "$Id: xml-rpc.lisp,v 1.7 2005/12/21 15:27:59 scaekenberghe Exp $" " " (lisp-implementation-type) " "