diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-05-11 03:18:26 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-05-11 03:18:26 +0000 |
| commit | d3eeff8c0c553fd276f475590b2967bf388bdbed (patch) | |
| tree | 9a10730cad5da6b9513bc67f3180aceb1105bed7 /src/boot/strap | |
| parent | c17f22c0fea71fba2e99aad1e7292be1963ae96d (diff) | |
| download | open-axiom-d3eeff8c0c553fd276f475590b2967bf388bdbed.tar.gz | |
* boot/translator.boot: Don't load imported modules when
bootstrapping.
Diffstat (limited to 'src/boot/strap')
| -rw-r--r-- | src/boot/strap/translator.clisp | 5 |
1 files changed, 4 insertions, 1 deletions
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|)) |