diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-10-10 19:23:38 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-10-10 19:23:38 +0000 |
| commit | e662e66b323f896bc662d1ff326cb14cc5a4950a (patch) | |
| tree | 6d83d2d5a658fa0aa19c5a10b395a532cb534ddb /src/interp/pathname.boot.pamphlet | |
| parent | 9f6dc4ca4bd0168267275268dd74ad463d3508eb (diff) | |
| download | open-axiom-e662e66b323f896bc662d1ff326cb14cc5a4950a.tar.gz | |
src/input/
2007-10-10 Gabriel Dos Reis <gdr@cs.tamu.edu>
* Makefile.pamphlet (TESTSYS): Tidy.
src/interp/
2007-10-10 Gabriel Dos Reis <gdr@cs.tamu.edu>
* br-search.boot.pamphlet: Replace uses of $SPAROOT with
systemRootDirectory.
* construc.lisp.pamphlet: Likewise.
* daase.lisp.pamphlet: Likewise.
* i-toplev.boot.pamphlet: Likewise.
* patches.lisp.pamphlet: Likewise.
* pathname.boot.pamphlet: Likewise.
* util.lisp.pamphlet: Likewise.
* bookvol5.pamphlet: Remove $spadroot throughout.
(initroot): Remove.
(reroot): Lose argument.
* Makefile.pamphlet (makeint.lisp): Depend on
sys-driver.$(FASLEXT). Explicitly load it.
Miscellaneous cleanup.
Diffstat (limited to 'src/interp/pathname.boot.pamphlet')
| -rw-r--r-- | src/interp/pathname.boot.pamphlet | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/pathname.boot.pamphlet b/src/interp/pathname.boot.pamphlet index 300d2c41..cab703d1 100644 --- a/src/interp/pathname.boot.pamphlet +++ b/src/interp/pathname.boot.pamphlet @@ -103,7 +103,8 @@ mergePathnames(a,b) == (fm := pathnameDirectory(a)) = ['"*"] => b a -isSystemDirectory dir == EVERY(function CHAR_=,$SPADROOT,dir) +isSystemDirectory dir == + EVERY(function CHAR_=,systemRootDirectory(),dir) -- the next function is an improved version of the one in DEBUG LISP |