From da4adc938b1a233283d8d56dc5192adf48175ba7 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 6 May 2008 05:01:28 +0000
Subject: Bring changes from btx-branch.

---
 src/lisp/core.lisp.in | 39 +++++++++++++++++++++++----------------
 1 file changed, 23 insertions(+), 16 deletions(-)

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

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 8f549803..8cb2f755 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -95,6 +95,7 @@
 	   "pathBasename"
 
            "IMPORT-MODULE"
+	   "BOOT-IMPORT"
 	   "CONCAT"
            ))
 
@@ -197,9 +198,6 @@
     (|installDriver| key driver)))
 
 
-;; true if in main program booted
-(defvar |$mainBooted| nil)
-
 ;; 
 ;; -*- OpenAxiom Command Line Parsing -*-
 ;; 
@@ -487,9 +485,7 @@
            (c:build-program core-image 
                             :lisp-files (mapcar #'|compileFilePathname| 
 						lisp-files)
-                            :epilogue-code `(progn 
-					      (setq |$mainBooted| t)
-					      (,entry-point)))
+                            :epilogue-code `(funcall ,entry-point))
            (|coreQuit|)))
 
 
@@ -685,7 +681,6 @@
 (|associateRequestWithFileType| (|Option| "compile") |$LispFileType|
  #'|compileLispHandler|)
 
-
 ;; 
 ;; -*- Predefined System Entry Point -*-
 ;; 
@@ -766,6 +761,12 @@
                  :name module
                  #-:ecl :type #-:ecl |$faslType|))
 
+(defun |btxPthaname| (module dir)
+  (setq dir (|ensureTrailingSlash| dir))
+  (make-pathname :directory (pathname-directory dir)
+                 :name module
+		 :type "btx"))
+
 (defun |loadIfPresent| (module)
   (if (|alreadyLoaded?| module)
       module
@@ -780,18 +781,20 @@
       (|noteUnitLoaded| module)
       module)))
 
+(defun import-module-if-present (module dir)
+  (or (|loadIfPresent| (|btxPthaname| module dir))
+      (|loadIfPresent| (|loadPathname| module dir))))
+
 (defun do-import-module (module directories)
   (cond ((null directories)
-	 (unless (and (member :ecl *features* :test #'eq) |$mainBooted|)
-	   (|fatalError| 
-	    (format nil 
-		    "module ~S not found in search path ~S"
-		    module 
-		    |$LoadDirectories|))))
+	 (|fatalError| 
+	  (format nil 
+		  "module ~S not found in search path ~S"
+		  module 
+		  |$LoadDirectories|)))
 	(t
-	 (let ((p (|loadPathname| module (car directories))))
-	   (unless (|loadIfPresent| p)
-	     (do-import-module module (cdr directories)))))))
+	 (unless (import-module-if-present module (car directories))
+	   (do-import-module module (cdr directories))))))
 
 (defun |importModule| (module)
   (do-import-module module |$LoadDirectories|))
@@ -802,6 +805,10 @@
            #-:common-lisp (compile load eval)
                      (|importModule| ,module))))
 
+(defmacro boot-import (module)
+  `(eval-when (:compile-toplevel)
+	      (|importModule| ,module)))
+
 ;; 
 ;; -*- Feature Tests in Boot -*-
 ;; 
-- 
cgit v1.2.3