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

[Helmut Eller]

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

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

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.26 slime/swank-openmcl.lisp:1.27
--- slime/swank-openmcl.lisp:1.26	Mon Dec  1 17:12:39 2003
+++ slime/swank-openmcl.lisp	Mon Dec  1 17:30:26 2003
@@ -13,7 +13,7 @@
 ;;; The LLGPL is also available online at
 ;;; http://opensource.franz.com/preamble.html
 ;;;
-;;;   $Id: swank-openmcl.lisp,v 1.26 2003/12/01 22:12:39 heller Exp $
+;;;   $Id: swank-openmcl.lisp,v 1.27 2003/12/01 22:30:26 heller Exp $
 ;;;
 
 ;;;
@@ -352,8 +352,7 @@
   (nth index *sldb-restarts*))
 
 (defslimefun invoke-nth-restart (index)
-  (let ((restart (nth-restart index)))
-    (invoke-restart restart)))
+  (invoke-restart-interactively (nth-restart index)))
 
 (defslimefun sldb-abort ()
   (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))