}
`swank:lookup-presented-object` <- function(slimeConnection, sldbState, id) {
- str(ls(slimeConnection))
if(exists(as.character(id), envir=slimeConnection$idToObject)) {
value <- get(as.character(id), envir=slimeConnection$idToObject)
list(value, TRUE)
}
}
+`swank:clear-repl-results` <- function(slimeConnection, sldbState) {
+ if(!exists("idToObject", envir=slimeConnection)) {
+ assign("idToObject", new.env(), envir=slimeConnection)
+ }
+ rm(list=ls(slimeConnection$idToObject), envir=slimeConnection$idToObject)
+ TRUE
+}