valuePart <- function(istate, object, string) {
list(quote(`:value`),
- if(is.null(string)) printToString(object) else string,
+ if(is.null(string)) paste(printToString(object),collapse=" ") else string,
assignIndexInParts(object, istate))
}
object <- `swank:inspector-nth-part`(slimeConnection, sldbState, index)
inspectObject(slimeConnection, object)
}
+
+`swank:inspector-pop` <- function(slimeConnection, sldbState) {
+ if(!is.null(slimeConnection$istate$previous)) {
+ slimeConnection$istate <- slimeConnection$istate$previous
+ istateToElisp(slimeConnection$istate)
+ } else {
+ FALSE
+ }
+}
+
+`swank:inspector-next` <- function(slimeConnection, sldbState) {
+ if(!is.null(slimeConnection$istate$`next`)) {
+ slimeConnection$istate <- slimeConnection$istate$`next`
+ istateToElisp(slimeConnection$istate)
+ } else {
+ FALSE
+ }
+}