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

[Helmut Eller]

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

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

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.4 slime/swank-lispworks.lisp:1.5
--- slime/swank-lispworks.lisp:1.4	Sun Nov 30 03:12:11 2003
+++ slime/swank-lispworks.lisp	Mon Dec  1 17:30:16 2003
@@ -7,7 +7,7 @@
 ;;; This code has been placed in the Public Domain.  All warranties
 ;;; are disclaimed.
 ;;;
-;;;   $Id: swank-lispworks.lisp,v 1.4 2003/11/30 08:12:11 heller Exp $
+;;;   $Id: swank-lispworks.lisp,v 1.5 2003/12/01 22:30:16 heller Exp $
 ;;;
 
 (in-package :swank)
@@ -218,8 +218,7 @@
   (nth index *sldb-restarts*))
 
 (defslimefun invoke-nth-restart (index)
-  (let ((restart (nth-restart index)))
-    (invoke-restart restart)))
+  (invoke-restart-interactively (nth-restart index)))
 
 (defmethod frame-locals (n)
   (let ((frame (nth-frame n)))