implement swank:default-directory and swank:set-default-directory

[swankr.git] / swank.R

diff --git a/swank.R b/swank.R
index 4af51d133e1641891c38bf57a701e86523295d73..5fe20bbefe633d6a9f1c1e0009f11e0cef32c9d6 100644 (file)
--- a/swank.R
+++ b/swank.R
@@ -613,3 +613,12 @@ emacsInspect.numeric <- function(numeric) {
   object <- get(name, envir=frame)
   inspectObject(slimeConnection, object)
 }
+
+`swank:default-directory` <- function(slimeConnection, sldbState) {
+  getwd()
+}
+
+`swank:set-default-directory` <- function(slimeConnection, sldbState, directory) {
+  setwd(directory)
+  `swank:default-directory`(slimeConnection, sldbState)
+}