[slime-cvs] CVS update: slime/slime.el

[Alan Ruttenberg]

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

Modified Files:
	slime.el 
Log Message:
sldb-continue now uses slime-oneway-eval
Date: Tue Dec 16 23:40:25 2003
Author: aruttenberg

Index: slime/slime.el
diff -u slime/slime.el:1.151 slime/slime.el:1.152
--- slime/slime.el:1.151	Tue Dec 16 07:49:05 2003
+++ slime/slime.el	Tue Dec 16 23:40:25 2003
@@ -3849,11 +3849,15 @@
 
 (defun sldb-continue ()
   (interactive)
-  (slime-eval-async '(swank:sldb-continue)
-		    nil
-		    (lambda (foo)
-		      (message "No restart named continue") 
-		      (ding))))
+  (slime-eval-async 
+   '(cl:and (cl:find-restart 'cl:continue swank::*swank-debugger-condition*) t)
+   nil
+   (lambda (thereis)
+     (if thereis
+	 (progn (slime-oneway-eval '(swank::sldb-continue) nil) t)
+	 (progn
+	   (message "No restart named continue") 
+	   (ding))))))
 
 (defun sldb-abort ()
   (interactive)