From ad7f375206770fe67b3477d8f7687f8b23aab900 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 9 Aug 2020 04:33:39 +0100 Subject: [PATCH] dot/lisp-init.lisp: Use `double-float' by default. Not sure what they were thinking. --- dot/lisp-init.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/dot/lisp-init.lisp b/dot/lisp-init.lisp index 44af5fe..64faf2b 100644 --- a/dot/lisp-init.lisp +++ b/dot/lisp-init.lisp @@ -126,6 +126,9 @@ (declare (ignore char arg)) (values (read-line stream)))) +;; Use double-precision by default. +(setf *read-default-float-format* 'double-float) + ;; Start up Swank. (export 'crank-swank) (defun crank-swank (&rest args) -- 2.11.0