0.9.2.17:

	* contrib/sb-aclrepl/repl.lisp: update KILL-CMD for new thread
	objects.

diff --git a/contrib/sb-aclrepl/repl.lisp b/contrib/sb-aclrepl/repl.lisp
index d326512..9c8f7cd 100644 (file)
--- a/contrib/sb-aclrepl/repl.lisp
+++ b/contrib/sb-aclrepl/repl.lisp
@@ -572,11 +572,16 @@
   (format *output* "~&Threads are not supported in this version of sbcl")
   (values))
 
   (format *output* "~&Threads are not supported in this version of sbcl")
   (values))
 

-(defun kill-cmd (&rest selected-threads)
+(defun sb-aclrepl::kill-cmd (&rest selected-threads)

   #+sb-thread
   (dolist (thread selected-threads) 
   #+sb-thread
   (dolist (thread selected-threads) 

-    (sb-thread:destroy-thread thread)
-    (format *output* "~&Thread ~A destroyed" thread))
+    (let ((found (find thread (all-threads) :key 'sb-thread:thread-name
+                      :test 'equal)))
+      (if found
+         (progn
+           (format *output* "~&Destroying thread ~A" thread)
+           (sb-thread:destroy-thread found))
+         (format *output* "~&Thread ~A not found" thread))))

   #-sb-thread
   (declare (ignore selected-threads))
   #-sb-thread
   #-sb-thread
   (declare (ignore selected-threads))
   #-sb-thread

diff --git a/version.lisp-expr b/version.lisp-expr
index fba85a8..65b491c 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)

-"0.9.2.16"
+"0.9.2.17"