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 | |
parent | f4d336f303ef246dc16b0e58d65e499c294b5e7a (diff) | |
download | open-axiom-45103d600768000e5c242fe478ff9468526bb8f6.tar.gz |
do insist that default float format is double-float everywhere
Diffstat (limited to 'src')
-rw-r--r-- | src/boot/initial-env.lisp | 5 | ||||
-rw-r--r-- | src/interp/boot-pkg.lisp | 5 |
2 files changed, 10 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) diff --git a/src/interp/boot-pkg.lisp b/src/interp/boot-pkg.lisp index ced3bf9c..bad04369 100644 --- a/src/interp/boot-pkg.lisp +++ b/src/interp/boot-pkg.lisp @@ -49,6 +49,11 @@ (in-package "BOOT") +(eval-when (:compile-toplevel :load-toplevel :execute) + (progn + (setq *read-default-float-format* 'double-float) + (setq *load-verbose* nil))) + (eval-when #+:common-lisp (:compile-toplevel :load-toplevel :execute) #-:common-lisp (compile load eval) |