+ if(!exists(op, envir = globalenv())) {
+ return(list())
+ }
+ funoid <- get(op, envir = globalenv())
+ if(is.function(funoid)) {
+ args <- formals(funoid)
+ paste(sprintf("%s=%s", names(args), args), collapse=", ")
+ } else {
+ list()
+ }
+}
+
+`swank:describe-function` <- function(slimeConnection, sldbState, op, package) {
+ ## FIXME: maybe not the best match?
+ `swank:operator-arglist`(slimeConnection, sldbState, op, package)
+}
+
+helpFilesWithTopicString <- function(value) {
+ output <- capture.output(tools:::Rd2txt(utils:::.getHelpFile(value),
+ options=list(underline_titles=FALSE)))
+ paste(output, collapse="\n")
+}
+
+`swank:describe-symbol` <- function(slimeConnection, sldbState, op, package) {
+ value <- help(op)
+ helpFilesWithTopicString(value)