X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank.R;h=bf5333a3d94f450a69fbe48aaa36f9dbb552f8da;hp=e9674bc7f175276229aec93e08d386a2375e4664;hb=693bbdb7ab36ad8a1c0915bc76097c82f7170570;hpb=8cfc9d8ac69ca55d48cc615de510c32fddad61da

diff --git a/swank.R b/swank.R
index e9674bc..bf5333a 100644
--- a/swank.R
+++ b/swank.R
@@ -368,6 +368,13 @@ computeRestartsForEmacs <- function (sldbState) {
   FALSE
 }
 
+`swank:eval-string-in-frame` <- function(slimeConnection, sldbState, string, index) {
+  frame <- sldbState$frames[[1+index]]
+  withRetryRestart("retry SLIME interactive evaluation request",
+                   value <- eval(parse(text=string), envir=frame))
+  printToString(value)
+}
+
 `swank:frame-locals-and-catch-tags` <- function(slimeConnection, sldbState, index) {
   str(sldbState$frames)
   frame <- sldbState$frames[[1+index]]