[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	swank.lisp 
Log Message:
*** empty log message ***

--- /project/slime/cvsroot/slime/swank.lisp	2012/04/06 20:04:34	1.784
+++ /project/slime/cvsroot/slime/swank.lisp	2012/04/07 06:14:48	1.785
@@ -993,6 +993,7 @@
    (sleep *auto-flush-interval*)))
 
 ;; FIXME: drop dependency on find-repl-thread
+;; FIXME: and don't add and any more 
 (defun find-worker-thread (connection id)
   (etypecase id
     ((member t)
@@ -1005,6 +1006,8 @@
     (fixnum
      (find-thread id))))
 
+;; FIXME: the else branch does look like it was written by someone who
+;; doesn't know what he is doeing.
 (defun interrupt-worker-thread (connection id)
   (let ((thread (find-worker-thread connection id)))
     (log-event "interrupt-worker-thread: ~a ~a~%" id thread)