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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(sldb-abort): Print a message if the Emacs RPC returns. It shouldn't,
if ABORT manages to unwind the stack, but it currently does in OpenMCL
due to some bug.

Date: Fri Apr 30 19:40:40 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.285 slime/slime.el:1.286
--- slime/slime.el:1.285	Fri Apr 30 02:37:08 2004
+++ slime/slime.el	Fri Apr 30 19:40:39 2004
@@ -5037,7 +5037,9 @@
 (defun sldb-abort ()
   "Invoke the \"abort\" restart."
   (interactive)
-  (slime-eval-async '(swank:sldb-abort) nil (lambda ())))
+  (slime-eval-async '(swank:sldb-abort)
+                    nil
+                    (lambda (v) (message "Restart returned: %S" v))))
 
 (defun sldb-invoke-restart (&optional number)
   "Invoke a restart.