Commit bf3b2b65 authored by Christophe Rhodes's avatar Christophe Rhodes
Browse files

new function `swank:init-presentations`

Set up the REPL reporting function in it, not at toplevel
parent df701650
......@@ -22,8 +22,6 @@ presentReplResult <- function(slimeConnection, value) {
list(quote(`:write-string`), "\n", quote(`:repl-result`)))
}
sendReplResultFunction <- presentReplResult
`cl:nth-value` <- function(slimeConnection, sldbState, n, values) {
values[[n+1]]
}
......@@ -58,3 +56,8 @@ sendReplResultFunction <- presentReplResult
rm(list=ls(slimeConnection$idToObject), envir=slimeConnection$idToObject)
TRUE
}
`swank:init-presentations` <- function(slimeConnection, sldbState) {
sendReplResultFunction <<- presentReplResult
TRUE
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment