From c4600e518e8f15d2b5e16407fffaf2f6f1ecf13b Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 5 Jul 2009 14:15:35 +0000 Subject: * interp/sys-driver.boot (AxiomCore::%sysInit): Have CLISP not be overreading on floating point contagion warning. --- src/interp/sys-driver.boot | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/interp') 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) -- cgit v1.2.3