diff options
author | dos-reis <gdr@axiomatics.org> | 2009-02-06 17:47:36 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-02-06 17:47:36 +0000 |
commit | 1fe2ae3281b2fe98141aa6eab6111f98a8a2f95d (patch) | |
tree | cc3cdd01a5b3357a9c7ecb1c7dedd6f9693286ee /src/interp/lisplib.boot | |
parent | bdf97312aa979fa8e5cef024834cbda19d3c7c67 (diff) | |
download | open-axiom-1fe2ae3281b2fe98141aa6eab6111f98a8a2f95d.tar.gz |
2009-02-06 Gabriel Dos Reis <gdr@cs.tamu.edu>
Alfredo Portes <doyenatccny@gmail.com>
Fix AW/236, AW/282
* interp/sys-utility.boot (probeReadableFile): New.
* interp/nlib.lisp (probe-name): Remove.
(make-input-filename): Tidy.
* interp/lisplib.boot (readLib1): Return nil if path inexistent.
(getFileProperty): Likewise.
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 9fd15b53..d06478fe 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -49,7 +49,7 @@ readLib(fn,ft) == readLib1(fn,ft,"*") readLib1(fn,ft,fm) == -- see if it exists first - p := pathname [fn,ft,fm] + p := pathname [fn,ft,fm] or return nil readLibPathFast p readLibPathFast p == @@ -94,7 +94,7 @@ getLisplibNoCache(name,id) == getFileProperty(fn,ft,id,cache) == fn in '(DOMAIN SUBDOM MODE) => nil - p := pathname [fn,ft,'"*"] + p := pathname [fn,ft,'"*"] or return nil cache => hasFileProperty(p,id,fn) hasFilePropertyNoCache(p,id,fn) |