branch: elpa/slime
commit 9bba7e93105ab4d8517423894eaaa9b097543b1e
Author: Stas Boukarev <[email protected]>
Commit: Stas Boukarev <[email protected]>
clasp, set-default-directory: change *default-pathname-defaults*.
---
swank/clasp.lisp | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/swank/clasp.lisp b/swank/clasp.lisp
index 9416b4ef3c..4c2fcc3d16 100644
--- a/swank/clasp.lisp
+++ b/swank/clasp.lisp
@@ -162,7 +162,8 @@
(clasp-posix:getpid))
(defimplementation set-default-directory (directory)
- (ext:chdir (namestring directory)) ; adapts *DEFAULT-PATHNAME-DEFAULTS*.
+ (ext:chdir (namestring directory))
+ (setf *default-pathname-defaults* (pathname (ext:getcwd)))
(default-directory))
(defimplementation default-directory ()
