[slime-cvs] CVS update: slime/swank-sbcl.lisp

[Helmut Eller]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(invoke-nth-restart): Use invoke-restart-interactively.
Date: Mon Dec  1 17:30:34 2003
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.32 slime/swank-sbcl.lisp:1.33
--- slime/swank-sbcl.lisp:1.32	Sun Nov 30 03:15:42 2003
+++ slime/swank-sbcl.lisp	Mon Dec  1 17:30:34 2003
@@ -532,7 +532,7 @@
 	collect `(,tag . ,(safe-source-location-for-emacs code-location))))
 
 (defslimefun invoke-nth-restart (index)
-  (invoke-restart (nth-restart index)))
+  (invoke-restart-interactively (nth-restart index)))
 
 (defslimefun sldb-abort ()
   (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))