list("R", "R")
}
-sendReplResult <- function(slimeConnection, value) {
+makeReplResult <- function(value) {
string <- printToString(value)
- sendToEmacs(slimeConnection,
- list(quote(`:write-string`),
- paste(string, collapse="\n"),
- quote(`:repl-result`)))
+ list(quote(`:write-string`), paste(string, collapse="\n"),
+ quote(`:repl-result`))
+}
+
+makeReplResultFunction <- makeReplResult
+
+sendReplResult <- function(slimeConnection, value) {
+ result <- makeReplResultFunction(value)
+ sendToEmacs(slimeConnection, result)
}
sendReplResultFunction <- sendReplResult
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]]