From 47973e318632007e592a8ac6c067bafdd22a0905 Mon Sep 17 00:00:00 2001
From: Peter Feigl <craven@gmx.net>
Date: Thu, 3 May 2012 09:36:24 +0200
Subject: [PATCH] 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 cd5907731..fa932d9b4 100644
--- a/src/runtime/swank.scm
+++ b/src/runtime/swank.scm
@@ -370,6 +370,13 @@ USA.
       (compiler:disassemble
        (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
 
-- 
2.25.1