+ if(tmp$visible) {
+ list(output, prin1ToString(tmp$value))
+ } else {
+ list(output, "# invisible value")
+ }
+}
+
+`swank:interactive-eval-region` <- function(slimeConnection, sldbState, string) {
+ withRetryRestart("retry SLIME interactive evaluation request",
+ tmp <- withVisible(eval(parse(text=string), envir=globalenv())))
+ if(tmp$visible) {
+ prin1ToString(tmp$value)
+ } else {
+ "# invisible value"
+ }