list(quote(`:write-string`), "\n", quote(`:repl-result`)))
}
-sendReplResultFunction <- presentReplResult
-
`cl:nth-value` <- function(slimeConnection, sldbState, n, values) {
values[[n+1]]
}
rm(list=ls(slimeConnection$idToObject), envir=slimeConnection$idToObject)
TRUE
}
+
+`swank:init-presentations` <- function(slimeConnection, sldbState) {
+ sendReplResultFunction <<- presentReplResult
+ TRUE
+}