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

[Luke Gorrie]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
Removed some minor debug printouts.

Date: Mon Jul 19 07:00:17 2004
Author: lgorrie

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.110 slime/swank-cmucl.lisp:1.111
--- slime/swank-cmucl.lisp:1.110	Sat Jul  3 20:22:37 2004
+++ slime/swank-cmucl.lisp	Mon Jul 19 07:00:17 2004
@@ -128,7 +128,6 @@
 (defimplementation add-sigio-handler (socket fn)
   (set-sigio-handler)
   (let ((fd (socket-fd socket)))
-    (format *debug-io* "; Adding input handler: ~S ~%" fd)
     (fcntl fd unix:f-setown (unix:unix-getpid))
     (fcntl fd unix:f-setfl unix:fasync)
     (push (cons fd fn) *sigio-handlers*)))
@@ -143,7 +142,6 @@
 
 (defimplementation add-fd-handler (socket fn)
   (let ((fd (socket-fd socket)))
-    (format *debug-io* "; Adding fd handler: ~S ~%" fd)
     (sys:add-fd-handler fd :input (lambda (_) 
                                     _
                                     (funcall fn)))))