diff options
author | dos-reis <gdr@axiomatics.org> | 2008-09-05 11:41:13 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-09-05 11:41:13 +0000 |
commit | 8ee9095f7120c9d611b3c8056f4d86603ebda59e (patch) | |
tree | 1937e819e1540e2badc41eb7c2523e72f86430f5 /src/interp/daase.lisp | |
parent | d09cf0aa8047981bbf25722b5cadd0aa8b6c533f (diff) | |
download | open-axiom-8ee9095f7120c9d611b3c8056f4d86603ebda59e.tar.gz |
* interp/daase.lisp (processDir): Lose last argument. Don't
change directory.
(localdatabase): Adjust call.
* interp/lisplib.boot (getAllIndexPathnames): Take an argument.
(getAllAldorObjectFiles): Likewise.
Diffstat (limited to 'src/interp/daase.lisp')
-rw-r--r-- | src/interp/daase.lisp | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 8eabf2ef..9355c2a1 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -982,11 +982,9 @@ (when options (format t " Ignoring unknown )library option: ~a~%" options)) (values only dir noexpose))) - (processDir (dirarg thisdir) - (|changeDirectory| (string dirarg)) - (let ((indexFiles (|getAllIndexPathnames|)) - (aldorFiles (|getAllAldorObjectFiles|))) - (|changeDirectory| thisdir) + (processDir (dirarg) + (let ((indexFiles (|getAllIndexPathnames| dirarg)) + (aldorFiles (|getAllAldorObjectFiles| dirarg))) (values indexFiles (first aldorFiles) @@ -1006,7 +1004,7 @@ (setq noexpose t)) (if dir (multiple-value-setq (nrlibs asys asos libs) - (processDir dir thisdir))) + (processDir (|ensureTrailingSlash| (string dir))))) (dolist (file filelist) (let ((filename (pathname-name file)) (namedir (directory-namestring file))) |