[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-serv6331/src

Modified Files:
	xml-rpc.lisp 
Log Message:
patch by jeff sapp: parse doubles as cl double-floats


--- /project/s-xml-rpc/cvsroot/s-xml-rpc/src/xml-rpc.lisp	2006/04/19 10:22:30	1.9
+++ /project/s-xml-rpc/cvsroot/s-xml-rpc/src/xml-rpc.lisp	2008/02/15 15:11:00	1.10
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: xml-rpc.lisp,v 1.9 2006/04/19 10:22:30 scaekenberghe Exp $
+;;;; $Id: xml-rpc.lisp,v 1.10 2008/02/15 15:11:00 scaekenberghe Exp $
 ;;;;
 ;;;; This is a Common Lisp implementation of the XML-RPC protocol,
 ;;;; as documented on the website http://www.xmlrpc.com
@@ -284,7 +284,8 @@
   (declare (ignore attributes))
   (cons (case name
 	  ((:|int| :|i4|) (parse-integer seed))
-	  (:|double| (let ((*read-eval* nil))
+	  (:|double| (let ((*read-eval* nil)
+                           (*read-default-float-format* 'double-float))
                        (read-from-string seed)))
 	  (:|boolean| (= 1 (parse-integer seed)))
 	  (:|string| (if (null seed) "" seed))
@@ -523,7 +524,7 @@
 (defun xml-rpc-implementation-version ()
   "Identify ourselves"
   (concatenate 'string
-	       "$Id: xml-rpc.lisp,v 1.9 2006/04/19 10:22:30 scaekenberghe Exp $"
+	       "$Id: xml-rpc.lisp,v 1.10 2008/02/15 15:11:00 scaekenberghe Exp $"
 	       " "
 	       (lisp-implementation-type)
 	       " "