diff options
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))) |