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/nlib.lisp | |
parent | b99d2252a04fa96e0f6da50c735d8ba0de4765d8 (diff) | |
download | open-axiom-5b90309d09bb9f9d17ff86f644994953ce94c0b3.tar.gz |
Define getWorkingDirectory via FFI.
Diffstat (limited to 'src/interp/nlib.lisp')
-rw-r--r-- | src/interp/nlib.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp index 317eaf4a..f990c2c5 100644 --- a/src/interp/nlib.lisp +++ b/src/interp/nlib.lisp @@ -242,7 +242,7 @@ (defun get-directory-list (ft) - (let ((cd (get-current-directory))) + (let ((cd (|getWorkingDirectory|))) (cond ((member ft '("NRLIB" "DAASE" "EXPOSED") :test #'string=) (if (eq |$UserLevel| '|development|) (cons cd $library-directory-list) |