[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv10875

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (quit-lisp): Use sb-ext:exit when it's present.


--- /project/slime/cvsroot/slime/ChangeLog	2012/05/03 14:12:22	1.2325
+++ /project/slime/cvsroot/slime/ChangeLog	2012/05/03 14:28:17	1.2326
@@ -3,6 +3,7 @@
 	* swank-sbcl.lisp (definition-source-for-emacs): Prefer :file over
 	:buffer, because the buffer can be killed in the mean time and the
 	silly "No buffer named x.lisp" would be displayed.
+	(quit-lisp): Use sb-ext:exit when it's present.
 
 2012-05-03  Stas Boukarev  <stassats at gmail.com>
 
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/05/03 14:12:23	1.310
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/05/03 14:28:17	1.311
@@ -1671,10 +1671,14 @@
   )
 
 (defimplementation quit-lisp ()
-  #+sb-thread
-  (dolist (thread (remove (current-thread) (all-threads)))
-    (ignore-errors (sb-thread:terminate-thread thread)))
-  (sb-ext:quit))
+  #+#.(swank-backend:with-symbol 'exit 'sb-ext)
+  (sb-ext:exit)
+  #-#.(swank-backend:with-symbol 'exit 'sb-ext)
+  (progn
+    #+sb-thread
+    (dolist (thread (remove (current-thread) (all-threads)))
+      (ignore-errors (sb-thread:terminate-thread thread)))
+    (sb-ext:quit)))