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/interp/boot-pkg.lisp | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/interp/boot-pkg.lisp')

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