[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (invoke-nth-restart): Make sure there is such restart
before invoking it.


--- /project/slime/cvsroot/slime/ChangeLog	2010/10/19 11:59:25	1.2154
+++ /project/slime/cvsroot/slime/ChangeLog	2010/10/19 16:57:32	1.2155
@@ -1,5 +1,10 @@
 2010-10-19  Stas Boukarev  <stassats at gmail.com>
 
+	* swank.lisp (invoke-nth-restart): Make sure there is such restart
+	before invoking it.
+
+2010-10-19  Stas Boukarev  <stassats at gmail.com>
+
 	* swank-sbcl.lisp (deinit-log-output): Use the right symbol for
 	*LOG-OUTPUT*, swank package isn't available at the time
 	swank-backend is compiled.
--- /project/slime/cvsroot/slime/swank.lisp	2010/10/15 22:42:14	1.732
+++ /project/slime/cvsroot/slime/swank.lisp	2010/10/19 16:57:32	1.733
@@ -2668,7 +2668,9 @@
   (nth index *sldb-restarts*))
 
 (defslimefun invoke-nth-restart (index)
-  (invoke-restart-interactively (nth-restart index)))
+  (let ((restart (nth-restart index)))
+    (when restart
+      (invoke-restart-interactively restart))))
 
 (defslimefun sldb-abort ()
   (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))