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

[Helmut Eller]

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

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

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.30 slime/swank-cmucl.lisp:1.31
--- slime/swank-cmucl.lisp:1.30	Sun Nov 30 03:09:44 2003
+++ slime/swank-cmucl.lisp	Mon Dec  1 17:30:03 2003
@@ -233,6 +233,7 @@
     (format nil "~@[--> ~{~<~%--> ~1:;~A~> ~}~%~]~@[~{==>~%~A~^~%~}~]~A"
             enclosing source condition)))
 
+
 (defun compiler-note-location (context)
   (cond (context
          (resolve-note-location
@@ -658,7 +659,7 @@
           ((macro-function symbol)
            (function-source-locations (macro-function symbol)))
           ((special-operator-p symbol)
-           (list (list :error (format nil "~A is special-operator" symbol))))
+           (list (list :error (format nil "~A is a special-operator" symbol))))
           ((fboundp symbol)
            (function-source-locations (coerce symbol 'function)))
           (t (list (list :error
@@ -1083,7 +1084,7 @@
 	collect `(,tag . ,(code-location-source-location 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)))