[nongnu] elpa/slime 875f14f593 28/44: No error when there's no continue/abort restarts.

[ELPA Syncer]

branch: elpa/slime
commit 875f14f593da850c3641b22b688fec2f24c511c2
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    No error when there's no continue/abort restarts.
---
 swank.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/swank.lisp b/swank.lisp
index be2a248c77..938621b3f5 100644
--- a/swank.lisp
+++ b/swank.lisp
@@ -2247,10 +2247,14 @@ Operation was KERNEL::DIVISION, operands (1 0).\"
       (invoke-restart-interactively restart))))
 
 (defslimefun sldb-abort ()
-  (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))
+  (let ((restart (find 'abort *sldb-restarts* :key #'restart-name)))
+    (when restart
+      (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))))
 
 (defslimefun sldb-continue ()
-  (invoke-restart (find 'continue *sldb-restarts* :key #'restart-name)))
+  (let ((restart (find 'continue *sldb-restarts* :key #'restart-name)))
+    (when restart
+      (invoke-restart restart))))
 
 (defun coerce-to-condition (datum args)
   (etypecase datum