* swank-sbcl.lisp (quit-lisp): Use sb-ext:exit when it's present.

antifuchs · May 3, 2012 · 17188dc · 17188dc
1 parent 75aa190
commit 17188dc
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -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@gmail.com>
 

diff --git a/swank-sbcl.lisp b/swank-sbcl.lisp
@@ -1671,10 +1671,14 @@ stack."
   )
 
 (defimplementation quit-lisp ()
-  #+sb-thread
+  #+#.(swank-backend:with-symbol 'exit 'sb-ext)
-  (dolist (thread (remove (current-thread) (all-threads)))
+  (sb-ext:exit)
-    (ignore-errors (sb-thread:terminate-thread thread)))
+  #-#.(swank-backend:with-symbol 'exit 'sb-ext)
-  (sb-ext:quit))
+  (progn
+    #+sb-thread
+    (dolist (thread (remove (current-thread) (all-threads)))
+      (ignore-errors (sb-thread:terminate-thread thread)))
+    (sb-ext:quit)))