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

[Alan Ruttenberg]

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

Modified Files:
	slime.el 
Log Message:
sldb-restart-frame, sldb-return-from-frame

Date: Sun Jan 18 11:18:40 2004
Author: aruttenberg

Index: slime/slime.el
diff -u slime/slime.el:1.184 slime/slime.el:1.185
--- slime/slime.el:1.184	Sun Jan 18 02:11:39 2004
+++ slime/slime.el	Sun Jan 18 11:18:35 2004
@@ -4355,6 +4355,18 @@
   (interactive)
   (let ((frame (sldb-frame-number-at-point)))
     (slime-eval-async `(swank:sldb-step ,frame) nil (lambda ()))))
+
+(defun sldb-return-from-frame (string)
+  "reads an expression in the minibuffer and causes the function to return that value, evaluated in the context of the frame"
+  (interactive (list (slime-read-from-minibuffer "Return from frame: ")))
+  (let* ((number (sldb-frame-number-at-point)))
+    (slime-oneway-eval `(swank::sldb-return-from-frame ,string ,number) (slime-buffer-package)))) 
+(defun sldb-restart-frame ()
+  "causes the frame to restart execution with the same arguments as it was called originally"
+  (interactive)
+  (let* ((number (sldb-frame-number-at-point)))
+    (slime-oneway-eval `(swank::sldb-restart-frame ,number) (slime-buffer-package))))
+ 
             
 
 ;;; Thread control panel