[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv2916

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (add-sigio-handler, add-fd-handler): Be quiet
as a workaround for non-properly initialized *debug-io*.
Patch from Richard M Kreuter.

--- /project/slime/cvsroot/slime/ChangeLog	2008/07/29 11:03:20	1.1376
+++ /project/slime/cvsroot/slime/ChangeLog	2008/07/29 11:03:25	1.1377
@@ -1,5 +1,10 @@
 2008-07-29  Richard M Kreuter <kreuter at progn.net>
 
+	* swank-sbcl.lisp (add-sigio-handler, add-fd-handler): Be quiet
+	as a workaround for non-properly initialized *debug-io*.
+
+2008-07-29  Richard M Kreuter <kreuter at progn.net>
+
 	Fix slime-quit-lisp in non-default REPL buffer.
 
 	* slime.el (slime-quit-lisp): Killing the REPL buffer also removes
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2008/07/26 23:05:59	1.200
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2008/07/29 11:03:25	1.201
@@ -133,7 +133,6 @@
 (defimplementation add-sigio-handler (socket fn)
   (set-sigio-handler)
   (let ((fd (socket-fd socket)))
-    (format *debug-io* "Adding sigio handler: ~S ~%" fd)
     (enable-sigio-on-fd fd)
     (push (cons fd fn) *sigio-handlers*)))
 
@@ -146,7 +145,6 @@
 (defimplementation add-fd-handler (socket fn)
   (declare (type function fn))
   (let ((fd (socket-fd socket)))
-    (format *debug-io* "; Adding fd handler: ~S ~%" fd)
     (sb-sys:add-fd-handler fd :input (lambda (_)
                                        _
                                        (funcall fn)))))