From 77e782870a49aba82ec3ca0087ebe32a50dfc170 Mon Sep 17 00:00:00 2001
From: Peter Feigl <address@hidden>
Date: Thu, 3 May 2012 09:36:24 +0200
Subject: [PATCH 4/6] Adding directory support to swank.scm.

* Directories
Added directory functions SWANK:DEFAULT-DIRECTORY and
SWANK:SET-DEFAULT-DIRECTORY for slime commands ,!d ,cd ,+d ,-d
,change-directory ,push-directory ,pop-directory ,pushd ,popd ,pwd
---
 src/runtime/swank.scm |    7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/runtime/swank.scm b/src/runtime/swank.scm
index cd59077..39d0e2c 100644
--- a/src/runtime/swank.scm
+++ b/src/runtime/swank.scm
@@ -371,6 +371,13 @@ USA.
        (eval (read-from-string string)
 	     (buffer-env))))))

+;;;; Directory Functions
+(define (swank:default-directory socket)
+  (->namestring (working-directory-pathname)))
+
+(define (swank:set-default-directory socket directory)
+  (->namestring (set-working-directory-pathname! directory)))
+
 ;;;; Miscellaneous
 
 (define (swank:set-package socket pstring)
-- 
1.7.10