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]]
UseMethod("emacsInspect")
}
+emacsInspect.default <- function(thing) {
+ c(list(paste("a ", class(thing)[[1]], sep=""), list(quote(`:newline`))))
+}
+
emacsInspect.list <- function(list) {
c(list("a list", list(quote(`:newline`))),
mapply(function(name, value) { list(list(quote(`:line`), name, value)) },
eval(expr, envir=globalenv())
}
}
+
+`swank:inspect-current-condition` <- function(slimeConnection, sldbState) {
+ resetInspector(slimeConnection)
+ inspectObject(slimeConnection, sldbState$condition)
+}
+
+`swank:inspect-frame-var` <- function(slimeConnection, sldbState, frame, var) {
+ resetInspector(slimeConnection)
+ frame <- sldbState$frames[[1+frame]]
+ name <- ls(envir=frame)[[1+var]]
+ object <- get(name, envir=frame)
+ inspectObject(slimeConnection, object)
+}