`swank:frame-locals-and-catch-tags` <- function(slimeConnection, sldbState, index) {
frame <- sldbState$frames[[1+index]]
objs <- ls(envir=frame)
+ if(identical(frame, globalenv())) {
+ objs <- c()
+ }
list(lapply(objs, function(name) { list(quote(`:name`), name,
quote(`:id`), 0,
quote(`:value`),
envir=globalenv()))) })
output <- paste(output, sep="", collapse="\n")
if(tmp$visible) {
- list(output, prin1ToString(value))
+ list(output, prin1ToString(tmp$value))
} else {
list(output, "# invisible value")
}
withRetryRestart("retry SLIME interactive evaluation request",
tmp <- withVisible(eval(parse(text=string), envir=globalenv())))
if(tmp$visible) {
- prin1ToString(value)
+ prin1ToString(tmp$value)
} else {
"# invisible value"
}