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 "" stream))
((integerp arg) (format stream "~d" arg))
((floatp arg) (format stream "~f" arg))
- ((or (null arg) (eq arg t))
+ ((or (null arg) (eql arg t))
(write-string "" stream)
- (write-string (if arg 1 0) stream)
+ (write-string (if arg "1" "0") stream)
(write-string "" 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)
" "