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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(accept-connection): Remove fd-handlers if the encoding isn't
iso-latin-1.

Date: Tue Nov 22 11:32:38 2005
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.158 slime/swank-cmucl.lisp:1.159
--- slime/swank-cmucl.lisp:1.158	Mon Nov 21 00:29:25 2005
+++ slime/swank-cmucl.lisp	Tue Nov 22 11:32:37 2005
@@ -101,7 +101,10 @@
 (defimplementation accept-connection (socket &key 
                                       (external-format :iso-latin-1-unix)
                                       (buffering :full))
-  (assert (eq external-format ':iso-latin-1-unix))
+  (unless (eq external-format ':iso-latin-1-unix)
+    (remove-fd-handlers socket)
+    (remove-sigio-handlers socket)
+    (assert (eq external-format ':iso-latin-1-unix)))
   (make-socket-io-stream (ext:accept-tcp-connection socket) buffering))
 
 ;;;;; Sockets
@@ -152,8 +155,7 @@
 (defimplementation remove-sigio-handlers (socket)
   (let ((fd (socket-fd socket)))
     (setf *sigio-handlers* (remove fd *sigio-handlers* :key #'car))
-    (sys:invalidate-descriptor fd))
-  (close socket))
+    (sys:invalidate-descriptor fd)))
 
 ;;;;; SERVE-EVENT