Index: swank-sbcl.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-sbcl.lisp,v
retrieving revision 1.153
diff -u -r1.153 swank-sbcl.lisp
--- swank-sbcl.lisp	22 Mar 2006 16:40:01 -0000	1.153
+++ swank-sbcl.lisp	14 Apr 2006 08:32:08 -0000
@@ -84,7 +84,8 @@
 (defimplementation add-sigio-handler (socket fn)
   (set-sigio-handler)
   (let ((fd (socket-fd socket)))
-    (format *debug-io* "Adding sigio handler: ~S ~%" fd)
+    (when *swank-debug-p*
+      (format *debug-io* "Adding sigio handler: ~S ~%" fd))
     (enable-sigio-on-fd fd)
     (push (cons fd fn) *sigio-handlers*)))
 
@@ -97,7 +98,8 @@
 (defimplementation add-fd-handler (socket fn)
   (declare (type function fn))
   (let ((fd (socket-fd socket)))
-    (format *debug-io* "; Adding fd handler: ~S ~%" fd)
+    (when *swank-debug-p*
+      (format *debug-io* "; Adding fd handler: ~S ~%" fd))
     (sb-sys:add-fd-handler fd :input (lambda (_) 
                                        _
                                        (funcall fn)))))