[slime-cvs] CVS slime/contrib

[CVS User heller]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv8139/contrib

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* slime-repl.el (slime-repl-connected-hook-function): Bind
slime-current-thread to avoid problems with killed threads.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/02/14 12:59:32	1.174
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/02/17 09:03:46	1.175
@@ -1,3 +1,8 @@
+2009-02-17  Helmut Eller  <heller at common-lisp.net>
+
+	* slime-repl.el (slime-repl-connected-hook-function): Bind
+	slime-current-thread to avoid problems with killed threads.
+
 2009-02-14  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.rb: New file.
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/01/27 15:13:52	1.14
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/02/17 09:03:46	1.15
@@ -1499,7 +1499,8 @@
 
 (defun slime-repl-connected-hook-function ()
   (destructuring-bind (package prompt) 
-      (slime-eval '(swank:create-repl nil))
+      (let ((slime-current-thread t))
+	(slime-eval '(swank:create-repl nil)))
     (setf (slime-lisp-package) package)
     (setf (slime-lisp-package-prompt-string) prompt))
   (slime-hide-inferior-lisp-buffer)