[Sbcl-commits] CVS: sbcl/contrib/sb-aclrepl repl.lisp,1.28,1.29

[Kevin R. <kev...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-aclrepl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30997/contrib/sb-aclrepl

Modified Files:
	repl.lisp 
Log Message:
0.9.2.17:
	* contrib/sb-aclrepl/repl.lisp: update KILL-CMD for new thread
	objects.


Index: repl.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-aclrepl/repl.lisp,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- repl.lisp	2 Jul 2005 21:42:11 -0000	1.28
+++ repl.lisp	3 Jul 2005 03:07:41 -0000	1.29
@@ -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