[s-xml-rpc-cvs] CVS update: s-xml-rpc/src/sysdeps.lisp

[Sven Van Caekenberghe]

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*