X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank.R;h=5fe20bbefe633d6a9f1c1e0009f11e0cef32c9d6;hp=4af51d133e1641891c38bf57a701e86523295d73;hb=843d2b6fcbc794e06e2fb5e9b2842175ffcb7ec5;hpb=7b84546419ddbfc60ed2161f269aa75934330cfe

diff --git a/swank.R b/swank.R
index 4af51d1..5fe20bb 100644
--- 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)
+}