diff options
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) |