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

diff --git a/src/runtime/swank.scm b/src/runtime/swank.scm
index cd59077313f0168e21c92e85a1a1dabd5556323f..fa932d9b45dee197a4584f391995052818490d77 100644 (file)
--- 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)))
 \f
 ;;;; Miscellaneous