From 45103d600768000e5c242fe478ff9468526bb8f6 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 8 Aug 2010 13:50:58 +0000
Subject: do insist that default float format is double-float everywhere

---
 src/boot/initial-env.lisp | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/boot')

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)
-- 
cgit v1.2.3