diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2020-07-21 19:13:10 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2020-07-21 19:13:10 -0400 |
| commit | c085509dbc82b531ee1ebeb1cfba05f68096f8ed (patch) | |
| tree | 8a459246d7ca2cb871ac9d00d1cbbb64c8c9b47d /cl-raytracer.lisp | |
| parent | 80df04277e408933bf186321706058af868e7bec (diff) | |
Set `*read-default-float-format*'.
Diffstat (limited to 'cl-raytracer.lisp')
| -rw-r--r-- | cl-raytracer.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
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) |