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

[Helmut Eller]

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

Modified Files:
	swank-clisp.lisp 
Log Message:
(remove-input-handlers): socket:socket-stream-handle is not available
on Windows.  Reported by Alan Shutko.
Date: Tue Feb 17 16:48:25 2004
Author: heller

Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.18 slime/swank-clisp.lisp:1.19
--- slime/swank-clisp.lisp:1.18	Mon Feb 16 16:40:55 2004
+++ slime/swank-clisp.lisp	Tue Feb 17 16:48:25 2004
@@ -95,7 +95,7 @@
 
 (defvar *saved-sigio-handler*)
 
-#+linux
+#+(or)
 (progn
   (defun set-sigio-handler ()
     (setf *saved-sigio-handler*
@@ -115,13 +115,14 @@
       (linux:fcntl3l fd linux:F_SETOWN (getpid))
       (linux:fcntl3l fd linux:F_SETFL linux:O_ASYNC)
       (push (cons fd fn) *sigio-handlers*)))
-  )
 
-(defimplementation remove-input-handlers (socket)
-  (let ((fd (socket:socket-stream-handle socket)))
-    (remove-sigio-handler fd)
-    (setf *sigio-handlers* (delete fd *sigio-handlers* :key #'car)))
-  (close socket))
+
+  (defimplementation remove-input-handlers (socket)
+    (let ((fd (socket:socket-stream-handle socket)))
+      (remove-sigio-handler fd)
+      (setf *sigio-handlers* (delete fd *sigio-handlers* :key #'car)))
+    (close socket))
+  )
 
 ;;; Swank functions