`swank:connection-info` <- function (slimeConnection, sldbState) {
list(quote(`:pid`), Sys.getpid(),
quote(`:package`), list(quote(`:name`), "R", quote(`:prompt`), "R> "),
- quote(`:version`), "2012-04-23",
+ quote(`:version`), "2014-09-13",
quote(`:encoding`), list(quote(`:coding-systems`), list("utf-8-unix")),
quote(`:lisp-implementation`), list(quote(`:type`), "R",
quote(`:name`), "R",
list("R", "R")
}
+`swank-repl:create-repl` <- `swank:create-repl`
+
makeReplResult <- function(value) {
string <- printToString(value)
list(quote(`:write-string`), string,
list()
}
+`swank-repl:listener-eval` <- `swank:listener-eval`
+
`swank:clear-repl-variables` <- function(slimeConnection, sldbState) {
list()
}