Permalink
Browse files

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

  • Loading branch information...
1 parent 75aa190 commit 17188dc3516118d3281b133d51c657686c99ebad @stassats stassats committed May 3, 2012
Showing with 9 additions and 4 deletions.
  1. +1 −0 ChangeLog
  2. +8 −4 swank-sbcl.lisp
View
@@ -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>
View
@@ -1671,10 +1671,14 @@ stack."
)
(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)))

0 comments on commit 17188dc

Please sign in to comment.