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/ChangeLog | 5 +++++ src/interp/sys-driver.boot | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 4d69ae27..76895660 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2009-07-05 Gabriel Dos Reis + + * interp/sys-driver.boot (AxiomCore::%sysInit): Have CLISP not be + overreading on floating point contagion warning. + 2009-07-04 Gabriel Dos Reis * interp/c-util.boot ($middleEndMacroList): Remove COLLECTV. 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