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

[Sven Van Caekenberghe]

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