s-xml-rpc-cvs

Download

s-xml-rpc-cvs@common-lisp.net

December 2005

1 participants
2 discussions

[s-xml-rpc-cvs] CVS update: s-xml-rpc/src/xml-rpc.lisp
by scaekenberghe＠common-lisp.net 21 Dec '05

21 Dec '05

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

1 0

[s-xml-rpc-cvs] CVS update: s-xml-rpc/src/sysdeps.lisp
by scaekenberghe＠common-lisp.net 21 Dec '05

21 Dec '05

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*

1 0