From scaekenberghe at common-lisp.net  Wed Dec 21 15:27:16 2005
From: scaekenberghe at common-lisp.net (Sven Van Caekenberghe)
Date: Wed, 21 Dec 2005 16:27:16 +0100 (CET)
Subject: [s-xml-rpc-cvs] CVS update: s-xml-rpc/src/sysdeps.lisp 
Message-ID: <20051221152716.8B02388579@common-lisp.net>

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/src
In directory common-lisp.net:/tmp/cvs-serv2943/src

Modified Files:
	sysdeps.lisp 
Log Message:
added an ignore declaration

Date: Wed Dec 21 16:27:15 2005
Author: scaekenberghe

Index: s-xml-rpc/src/sysdeps.lisp
diff -u s-xml-rpc/src/sysdeps.lisp:1.5 s-xml-rpc/src/sysdeps.lisp:1.6
--- s-xml-rpc/src/sysdeps.lisp:1.5	Fri Feb 11 12:04:31 2005
+++ s-xml-rpc/src/sysdeps.lisp	Wed Dec 21 16:27:15 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: sysdeps.lisp,v 1.5 2005/02/11 11:04:31 scaekenberghe Exp $
+;;;; $Id: sysdeps.lisp,v 1.6 2005/12/21 15:27:15 scaekenberghe Exp $
 ;;;;
 ;;;; These are the system dependent part of S-XML-RPC.
 ;;;; Ports to OpenMCL, LispWorks and SBCL are provided.
@@ -171,6 +171,7 @@
   (progn
     (destructuring-bind (name socket handler)
         (assoc name *server-processes* :test #'string=)
+      (declare (ignore name))
       (sb-sys:remove-fd-handler handler)
       (sb-bsd-sockets:socket-close socket))
     (setf *server-processes* (delete name *server-processes*



From scaekenberghe at common-lisp.net  Wed Dec 21 15:27:59 2005
From: scaekenberghe at common-lisp.net (Sven Van Caekenberghe)
Date: Wed, 21 Dec 2005 16:27:59 +0100 (CET)
Subject: [s-xml-rpc-cvs] CVS update: s-xml-rpc/src/xml-rpc.lisp 
Message-ID: <20051221152759.C09A188579@common-lisp.net>

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