[slime-cvs] CVS update: slime/swank-sbcl.lisp slime/swank-cmucl.lisp

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv5390

Modified Files:
	swank-sbcl.lisp swank-cmucl.lisp 
Log Message:
(close-socket): Remove any SERVE-EVENT handlers for the socket's file
descriptor.

Date: Tue Jun  8 13:32:50 2004
Author: lgorrie

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.85 slime/swank-sbcl.lisp:1.86
--- slime/swank-sbcl.lisp:1.85	Tue May 11 13:58:46 2004
+++ slime/swank-sbcl.lisp	Tue Jun  8 13:32:50 2004
@@ -63,6 +63,7 @@
   (nth-value 1 (sb-bsd-sockets:socket-name socket)))
 
 (defimplementation close-socket (socket)
+  (sb-sys:invalidate-descriptor (socket-fd socket))
   (sb-bsd-sockets:socket-close socket))
 
 (defimplementation accept-connection (socket)


Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.105 slime/swank-cmucl.lisp:1.106
--- slime/swank-cmucl.lisp:1.105	Mon Jun  7 11:37:54 2004
+++ slime/swank-cmucl.lisp	Tue Jun  8 13:32:50 2004
@@ -78,6 +78,7 @@
   (nth-value 1 (ext::get-socket-host-and-port (socket-fd socket))))
 
 (defimplementation close-socket (socket)
+  (sys:invalidate-descriptor socket)
   (ext:close-socket (socket-fd socket)))
 
 (defimplementation accept-connection (socket)