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*