diff options
author | dos-reis <gdr@axiomatics.org> | 2010-08-08 13:50:58 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-08-08 13:50:58 +0000 |
commit | 45103d600768000e5c242fe478ff9468526bb8f6 (patch) | |
tree | 27626c187c9b063c27ee99ccb850bab6e0880c60 /src/boot | |
parent | f4d336f303ef246dc16b0e58d65e499c294b5e7a (diff) | |
download | open-axiom-45103d600768000e5c242fe478ff9468526bb8f6.tar.gz |
do insist that default float format is double-float everywhere
Diffstat (limited to 'src/boot')
-rw-r--r-- | src/boot/initial-env.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/boot/initial-env.lisp b/src/boot/initial-env.lisp index 34a4efc4..d72041f2 100644 --- a/src/boot/initial-env.lisp +++ b/src/boot/initial-env.lisp @@ -54,6 +54,11 @@ (in-package "BOOTTRAN") +(eval-when (:compile-toplevel :load-toplevel :execute) + (progn + (setq *read-default-float-format* 'double-float) + (setq *load-verbose* nil))) + ;## need the conditional here so it appears in boottran #+:ieee-floating-point (defparameter $ieee t) #-:ieee-floating-point (defparameter $ieee nil) |