From 29c64f74f12bbeebb82045b08db420d2d2b60cf7 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 18 Nov 2008 20:33:50 +0000
Subject: 	* 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.

---
 src/lisp/core.lisp.in | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/lisp/core.lisp.in')

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)))
 
-- 
cgit v1.2.3