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