aboutsummaryrefslogtreecommitdiff
path: root/src/interp/sys-driver.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/sys-driver.boot')
-rw-r--r--src/interp/sys-driver.boot4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot
index 58b36e74..de08b540 100644
--- a/src/interp/sys-driver.boot
+++ b/src/interp/sys-driver.boot
@@ -64,7 +64,9 @@ AxiomCore::%sysInit() ==
loadSystemRuntimeCore()
)if %hasFeature KEYWORD::CLISP
-- a goat for CLisp FFI, please.
- sys_-osInitCLispFFI()
+ sys_-osInitCLispFFI()
+ -- Tell CLISP to stop being anal retentive, please.
+ SETF(CUSTOM::_*WARN_-ON_-FLOATING_-POINT_-CONTAGION_*,false)
)endif
)if %hasFeature KEYWORD::GCL or %hasFeature KEYWORD::ECL
SETQ(COMPILER::_*COMPILE_-VERBOSE_*,false)