diff options
author | dos-reis <gdr@axiomatics.org> | 2013-05-27 01:36:14 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-05-27 01:36:14 +0000 |
commit | 5b90309d09bb9f9d17ff86f644994953ce94c0b3 (patch) | |
tree | a806f6c06d604eabbbc909f54b4d863140341ba0 /src/interp/util.lisp | |
parent | b99d2252a04fa96e0f6da50c735d8ba0de4765d8 (diff) | |
download | open-axiom-5b90309d09bb9f9d17ff86f644994953ce94c0b3.tar.gz |
Define getWorkingDirectory via FFI.
Diffstat (limited to 'src/interp/util.lisp')
-rw-r--r-- | src/interp/util.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/util.lisp b/src/interp/util.lisp index f4ef0187..c8dfa8b6 100644 --- a/src/interp/util.lisp +++ b/src/interp/util.lisp @@ -79,7 +79,7 @@ direc)))) (defun interp-make-directory (direc) - (let ((current-dir (get-current-directory))) + (let ((current-dir (|getWorkingDirectory|))) (setq direc (namestring direc)) (|ensureTrailingSlash| (if (string= direc "") |