diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-18 20:33:50 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-18 20:33:50 +0000 |
| commit | 29c64f74f12bbeebb82045b08db420d2d2b60cf7 (patch) | |
| tree | 934627ccf2c1f15922076e4552498ecffa9d4d6e /src/lisp | |
| parent | e8fa0a31f5e1ec2f3269cd2cd5cd18a78fd60a4a (diff) | |
| download | open-axiom-29c64f74f12bbeebb82045b08db420d2d2b60cf7.tar.gz | |
* interp/sys-utility.boot (loadExports): New.
* interp/sys-driver.boot (initializeGlobalState): Set
$compileDefaultsOnly.
* interp/lisplib.boot (isFunctor): Load exports file if present.
* interp/define.boot (compDefineCategory2): Don't write out
category load time stuff if we are compiling only defaults.
* interp/boot-pkg.lisp: Import loadFileIfPresent.
* lisp/core.lisp.in (|loadFileIfPresent|): New.
(|loadIfPresent|): Use it.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index a030755a..bf32b60f 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -93,6 +93,7 @@ "ensureTrailingSlash" "getOutputPathname" "loadPathname" + "loadFileIfPresent" "compileLispFile" "compileLispHandler" "Option" @@ -907,10 +908,13 @@ :name module :type "btx")) +(defun |loadFileIfPresent| (file) + (load file :if-does-not-exist nil)) + (defun |loadIfPresent| (module) (if (|alreadyLoaded?| module) module - (when (load module :if-does-not-exist nil) + (when (|loadFileIfPresent| module) (|noteUnitLoaded| module) module))) |