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

[Helmut Eller]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(remove-input-handlers): New method.
Date: Thu Jan 15 13:31:04 2004
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.50 slime/swank-sbcl.lisp:1.51
--- slime/swank-sbcl.lisp:1.50	Thu Jan 15 06:41:20 2004
+++ slime/swank-sbcl.lisp	Thu Jan 15 13:31:04 2004
@@ -87,6 +87,10 @@
                                   (declare (ignore fd))
                                   (funcall fn))))
 
+(defmethod remove-input-handlers (socket)
+  (sb-sys:invalidate-descriptor (socket-fd socket))
+  (close socket))
+
 (defun socket-fd (socket)
   (etypecase socket
     (fixnum socket)