From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Sun, 3 Jul 2005 03:07:40 +0000 (+0000)
Subject: 0.9.2.17:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=96060ccf8bb2077575d4180e30250d38e96ebb95;p=sbcl.git

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
--- 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))
 
-(defun kill-cmd (&rest selected-threads)
+(defun sb-aclrepl::kill-cmd (&rest 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
diff --git a/version.lisp-expr b/version.lisp-expr
index fba85a8..65b491c 100644
--- 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".)
-"0.9.2.16"
+"0.9.2.17"