From 0d174fbe6911f66728cbce14b7e19acec5b9a884 Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Fri, 10 Sep 2010 22:53:44 +0100
Subject: [PATCH] implement swank:inspector-pop and swank:inspector-next

Wow, nearly working.  There's some way of causing R to get into the
proper debugger; not sure how to reproduce it yet.
---
 swank.R | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/swank.R b/swank.R
index d72103f..ce85b69 100644
--- a/swank.R
+++ b/swank.R
@@ -558,3 +558,21 @@ emacsInspect.numeric <- function(numeric) {
   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
+  }
+}
-- 
2.30.2