support swank:clear-repl-results in swank-presentations

[swankr.git] / swank-presentations.R

diff --git a/swank-presentations.R b/swank-presentations.R
index d2ed3f71efe45542bb3454a3fec4a815cd4d987e..0832fafd931b59bcb6177f4b13781d8a9bec4417 100644 (file)
--- a/swank-presentations.R
+++ b/swank-presentations.R
@@ -45,3 +45,10 @@ sendReplResultFunction <- presentReplResult
   }
 }
     
+`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
+}