[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (interrupt-worker-thread): Don't use find-repl-thread
as fallback.

--- /project/slime/cvsroot/slime/ChangeLog	2011/12/04 15:44:08	1.2265
+++ /project/slime/cvsroot/slime/ChangeLog	2011/12/04 18:08:32	1.2266
@@ -1,5 +1,10 @@
 2011-12-04  Helmut Eller  <heller at common-lisp.net>
 
+	* swank.lisp (interrupt-worker-thread): Don't use find-repl-thread
+	as fallback.
+
+2011-12-04  Helmut Eller  <heller at common-lisp.net>
+
 	* swank.lisp: Minor cleanups.
 	* swank-rpc.lisp:
 
--- /project/slime/cvsroot/slime/swank.lisp	2011/12/04 15:44:08	1.769
+++ /project/slime/cvsroot/slime/swank.lisp	2011/12/04 18:08:32	1.770
@@ -916,10 +916,8 @@
     (fixnum 
      (find-thread id))))
 
-;; FIXME: drop dependicy on find-repl-thread
 (defun interrupt-worker-thread (id)
   (let ((thread (or (find-worker-thread id)
-                    (find-repl-thread *emacs-connection*)
                     ;; FIXME: to something better here
                     (spawn (lambda ()) :name "ephemeral"))))
     (log-event "interrupt-worker-thread: ~a ~a~%" id thread)