diff options
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/sys-driver.boot | 4 |
2 files changed, 8 insertions, 1 deletions
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 <gdr@cs.tamu.edu> + + * interp/sys-driver.boot (AxiomCore::%sysInit): Have CLISP not be + overreading on floating point contagion warning. + 2009-07-04 Gabriel Dos Reis <gdr@cs.tamu.edu> * 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) |