Christophe
Weblog
Wiki
Code
Publications
Music
projects
/
swankr.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
implement swank:interactive-eval-region
[swankr.git]
/
swank.R
diff --git
a/swank.R
b/swank.R
index 34998b652e189799bc6bf70461099f50bc5d68eb..8c5bafdccd1d5d198f534d971db0455fba703095 100644
(file)
--- a/
swank.R
+++ b/
swank.R
@@
-494,6
+494,12
@@
withRetryRestart <- function(description, expr) {
list(output, prin1ToString(value))
}
list(output, prin1ToString(value))
}
+`swank:interactive-eval-region` <- function(slimeConnection, sldbState, string) {
+ withRetryRestart("retry SLIME interactive evaluation request",
+ value <- eval(parse(text=string), envir=globalenv()))
+ prin1ToString(value)
+}
+
`swank:find-definitions-for-emacs` <- function(slimeConnection, sldbState, string) {
if(exists(string, envir = globalenv())) {
thing <- get(string, envir = globalenv())
`swank:find-definitions-for-emacs` <- function(slimeConnection, sldbState, string) {
if(exists(string, envir = globalenv())) {
thing <- get(string, envir = globalenv())