diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-27 03:34:36 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-27 03:34:36 +0000 |
| commit | 7544b976d2919866e60211ded498df937650de05 (patch) | |
| tree | 1ab0fbf0e54050d11e2793518d0e4128fc6750e1 /src/interp/nlib.lisp | |
| parent | 12a60329bd490d63501651cb47c4b87f3ed9c2da (diff) | |
| download | open-axiom-7544b976d2919866e60211ded498df937650de05.tar.gz | |
* interp/nlib.lisp (GET-DIRECTORY-LIST): Move to sys-utility.boot.
Diffstat (limited to 'src/interp/nlib.lisp')
| -rw-r--r-- | src/interp/nlib.lisp | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp index 770c6ada..8a9a2e99 100644 --- a/src/interp/nlib.lisp +++ b/src/interp/nlib.lisp @@ -241,24 +241,12 @@ (putindextable ctable filearg)) -(defun get-directory-list (ft) - (let ((cd (|getWorkingDirectory|))) - (cond ((member ft '("NRLIB" "DAASE" "EXPOSED") :test #'string=) - (if (eq |$UserLevel| '|development|) - (cons cd $library-directory-list) - $library-directory-list)) - (t (adjoin cd - (adjoin (namestring (|userHomeDirectory|)) - $directory-list - :test #'string=) - :test #'string=))))) - (defun make-input-filename (filearg &optional (filetype nil)) (let* ((filename (|makeFilename| filearg filetype)) (dirname (pathname-directory filename)) (ft (pathname-type filename)) - (dirs (get-directory-list ft)) + (dirs (|getDirectoryList| ft)) (newfn nil)) (if (or (null dirname) (eqcar dirname :relative)) (dolist (dir dirs (|probeReadableFile| filename)) |