From d3eeff8c0c553fd276f475590b2967bf388bdbed Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 11 May 2009 03:18:26 +0000
Subject: 	* boot/translator.boot: Don't load imported modules when 
 bootstrapping.

---
 src/boot/strap/translator.clisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/boot/strap')

diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp
index b809ddd6..cb67bdfb 100644
--- a/src/boot/strap/translator.clisp
+++ b/src/boot/strap/translator.clisp
@@ -659,7 +659,10 @@
              (|Import|
                  (LET ((|m| (CAR |bfVar#17|)))
                    (PROGN
-                     (|bootImport| (STRING |m|))
+                     (COND
+                       ((NOT (EQUAL (|getOptionValue| '|import|)
+                                    "skip"))
+                        (|bootImport| (STRING |m|))))
                      (LIST (LIST 'IMPORT-MODULE (STRING |m|))))))
              (|ImportSignature|
                  (LET ((|x| (CAR |bfVar#17|))
-- 
cgit v1.2.3