+ capture.output(value <- eval(call), file=conn)
+ string <- paste(textConnectionValue(conn), sep="", collapse="\n")
+ if(nchar(string) > 0) {
+ sendToEmacs(slimeConnection, list(quote(`:write-string`), string))
+ sendToEmacs(slimeConnection, list(quote(`:write-string`), "\n"))
+ }
+ close(conn)