aboutsummaryrefslogtreecommitdiff
path: root/src/boot/translator.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/translator.boot')
-rw-r--r--src/boot/translator.boot8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index 8bb98271..508fc2e8 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -68,6 +68,14 @@ genOptimizeOptions stream ==
$translatingOldBoot := false
AxiomCore::%sysInit() ==
+ SETQ(_*LOAD_-VERBOSE_*,false)
+ if %hasFeature KEYWORD::GCL or %hasFeature KEYWORD::ECL then
+ SETF(SYMBOL_-VALUE
+ bfColonColon("COMPILER","*COMPILE-VERBOSE*"),false)
+ SETF(SYMBOL_-VALUE
+ bfColonColon("COMPILER","SUPPRESS-COMPILER-WARNINGS*"),false)
+ SETF(SYMBOL_-VALUE
+ bfColonColon("COMPILER","SUPPRESS-COMPILER-NOTES*"),true)
if rest ASSOC(Option '"boot", %systemOptions()) = '"old"
then $translatingOldBoot := true