From c085509dbc82b531ee1ebeb1cfba05f68096f8ed Mon Sep 17 00:00:00 2001
From: "Jakob L. Kreuze" <zerodaysfordays@sdf.org>
Date: Tue, 21 Jul 2020 19:13:10 -0400
Subject: Set `*read-default-float-format*'.

---
 cl-raytracer.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/cl-raytracer.lisp b/cl-raytracer.lisp
index 2655a80..7e79544 100644
--- a/cl-raytracer.lisp
+++ b/cl-raytracer.lisp
@@ -14,6 +14,10 @@
 ;;; along with this program. If not, see
 ;;; <http://www.gnu.org/licenses/>.
 
+;; I'm not sure of the best way to set this just for this file :x
+(eval-when (:compile-toplevel)
+  (setf *read-default-float-format* 'double-float))
+
 (defun make-some (n) (cons 'some n))
 (defun make-none ()  'none)
 
-- 
cgit v1.3