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

[Helmut Eller]

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

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

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.49 slime/swank-cmucl.lisp:1.50
--- slime/swank-cmucl.lisp:1.49	Thu Jan 15 06:41:59 2004
+++ slime/swank-cmucl.lisp	Thu Jan 15 13:30:30 2004
@@ -37,6 +37,10 @@
            (funcall fn)))
     (system:add-fd-handler (socket-fd socket) :input #'callback)))
 
+(defmethod remove-input-handlers (socket)
+  (sys:invalidate-descriptor (socket-fd socket))
+  (close socket))
+
 (defmethod make-fn-streams (input-fn output-fn)
   (let* ((output (make-slime-output-stream output-fn))
          (input  (make-slime-input-stream input-fn output)))