[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (quit-lisp): Use sb-thread:terminate-thread
instead of sb-ext:quit :recklessly-p t. This way
sb-ext:*exit-hooks* will be run.
Reported by Lorenz Mösenlechner.


--- /project/slime/cvsroot/slime/ChangeLog	2010/07/06 12:09:19	1.2113
+++ /project/slime/cvsroot/slime/ChangeLog	2010/07/21 13:40:32	1.2114
@@ -1,3 +1,10 @@
+2010-07-21  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-sbcl.lisp (quit-lisp): Use sb-thread:terminate-thread
+	instead of sb-ext:quit :recklessly-p t. This way
+	sb-ext:*exit-hooks* will be run.
+	Reported by Lorenz Mösenlechner.
+
 2010-07-06  Helmut Eller  <heller at common-lisp.net>
 
 	Find definition for (%primitive NAME ...)
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2010/04/22 05:47:35	1.271
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2010/07/21 13:40:32	1.272
@@ -1487,8 +1487,7 @@
 (defimplementation quit-lisp ()
   #+sb-thread
   (dolist (thread (remove (current-thread) (all-threads)))
-    (ignore-errors (sb-thread:interrupt-thread
-                    thread (lambda () (sb-ext:quit :recklessly-p t)))))
+    (ignore-errors (sb-thread:terminate-thread thread)))
   (sb-ext:quit))