From 47cf1825abb4aafb9cfb98b42762570dc6dbd464 Mon Sep 17 00:00:00 2001
From: Zachary Beane <xach@xach.com>
Date: Fri, 11 Dec 2020 19:08:18 -0500
Subject: [PATCH] Be explicit about using doubles in float-octet

---
 vectometry/colors.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vectometry/colors.lisp b/vectometry/colors.lisp
index 1844461..6837dac 100644
--- a/vectometry/colors.lisp
+++ b/vectometry/colors.lisp
@@ -123,7 +123,7 @@
 
 (defun float-octet (float)
   "Convert a float in the range 0.0 - 1.0 to an octet."
-  (values (round (* float 255.0))))
+  (values (round (* float 255.0d0))))
 
 (defgeneric html-code (color)
   (:method (color)
-- 
2.11.4.GIT