aboutsummaryrefslogtreecommitdiff
path: root/src/interp/sys-utility.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-03-10 05:21:00 +0000
committerdos-reis <gdr@axiomatics.org>2008-03-10 05:21:00 +0000
commit6cd03930cf6d06aeb22d8a03f88e21aed3741846 (patch)
tree9afeca88d3d16cad78167df6e8936c0a70724b4c /src/interp/sys-utility.boot
parent6134f0731a2f170fd76b08b435f7a813ee74b806 (diff)
downloadopen-axiom-6cd03930cf6d06aeb22d8a03f88e21aed3741846.tar.gz
* lisp/core.lisp.in ("$faslType"): Export.
* interp/sys-driver.boot (algebraBootstrapDir): New. * interp/lisplib.boot (findModule): New. (loadLib): Use it. * interp/daase.lisp (localdatabase): Make sure loadable modules have proper extensions. * interp/sys-utility.boot (existingFile?): New.
Diffstat (limited to 'src/interp/sys-utility.boot')
-rw-r--r--src/interp/sys-utility.boot4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot
index faf4708d..2e8502dd 100644
--- a/src/interp/sys-utility.boot
+++ b/src/interp/sys-utility.boot
@@ -132,3 +132,7 @@ makeAbsoluteFilename: %String -> %String
makeAbsoluteFilename name ==
CONCATENATE("STRING",systemRootDirectory(),name)
+++ returns true if `file' exists as a pathname.
+existingFile? file ==
+ PROBE_-FILE file
+