+
+`swank:buffer-first-change` <- function(io, sldbState, filename) {
+ FALSE
+}
+
+`swank:frame-locals-and-catch-tags` <- function(io, sldbState, index) {
+ str(sldbState$frames)
+ frame <- sldbState$frames[[1+index]]
+ objs <- ls(envir=frame)
+ list(lapply(objs, function(name) { list(quote(`:name`), name,
+ quote(`:id`), 0,
+ quote(`:value`), paste(printToString(eval(parse(text=name), envir=frame)), sep="", collapse="\n")) }),
+ list())
+}