[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog swank-repl.lisp 
Log Message:
* swank.lisp (thread-for-evaluation): Make generic. Remove keyword
arg. Don't call find-repl-thread.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2012/11/28 20:53:22	1.558
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2012/12/16 13:38:21	1.559
@@ -1,3 +1,7 @@
+2012-12-16  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-repl.lisp (thread-for-evaluation): Override some cases.
+
 2012-11-28  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-asdf.lisp (asdf-system-directory): Return a namestring,
--- /project/slime/cvsroot/slime/contrib/swank-repl.lisp	2012/11/23 11:28:27	1.6
+++ /project/slime/cvsroot/slime/contrib/swank-repl.lisp	2012/12/16 13:38:21	1.7
@@ -85,6 +85,15 @@
       (when socket
         (close-socket socket)))))
 
+(defmethod thread-for-evaluation ((connection multithreaded-connection)
+				  (id (eql :find-existing)))
+  (or (car (mconn.active-threads connection))
+      (find-repl-thread connection)))
+
+(defmethod thread-for-evaluation ((connection multithreaded-connection)
+				  (id (eql :repl-thread)))
+  (find-repl-thread connection))
+
 (defun find-repl-thread (connection)
   (cond ((not (use-threads-p))
          (current-thread))