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
fix null implementation of operator-arglist
[swankr.git]
/
swank.R
diff --git
a/swank.R
b/swank.R
index 3b1f3d78ad29910f51034574f73470ffe6fdd123..99012ec57ec4bc7ed9b6d80010145476d40f108d 100644
(file)
--- a/
swank.R
+++ b/
swank.R
@@
-345,7
+345,7
@@
sendReplResultFunction <- sendReplResult
}
`swank:autodoc` <- function(slimeConnection, sldbState, rawForm, ...) {
}
`swank:autodoc` <- function(slimeConnection, sldbState, rawForm, ...) {
- "No Arglist Information"
+ list("No Arglist Information", TRUE)
}
`swank:operator-arglist` <- function(slimeConnection, sldbState, op, package) {
}
`swank:operator-arglist` <- function(slimeConnection, sldbState, op, package) {
@@
-658,7
+658,7
@@
inspectObject <- function(slimeConnection, object) {
valuePart <- function(istate, object, string) {
list(quote(`:value`),
valuePart <- function(istate, object, string) {
list(quote(`:value`),
- if(is.null(string)) prin
t
ToString(object) else string,
+ if(is.null(string)) prin
1
ToString(object) else string,
assignIndexInParts(object, istate))
}
assignIndexInParts(object, istate))
}
@@
-669,7
+669,7
@@
preparePart <- function(istate, part) {
switch(as.character(part[[1]]),
`:newline` = list("\n"),
`:value` = valuePart(istate, part[[2]], part[[3]]),
switch(as.character(part[[1]]),
`:newline` = list("\n"),
`:value` = valuePart(istate, part[[2]], part[[3]]),
- `:line` = list(prin
t
ToString(part[[2]]), ": ",
+ `:line` = list(prin
1
ToString(part[[2]]), ": ",
valuePart(istate, part[[3]], NULL), "\n"))
}
}
valuePart(istate, part[[3]], NULL), "\n"))
}
}