From 5586c2093e03a3d684477c3b9ed4e7122e479255 Mon Sep 17 00:00:00 2001
From: Darren Bane <dbane@tilde.institute>
Date: Fri, 26 Feb 2021 14:26:57 +0000
Subject: Return a float; for a few LOC this had a high defect density

---
 dbc2.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dbc2.lsp b/dbc2.lsp
index afc3006..552bc44 100644
--- a/dbc2.lsp
+++ b/dbc2.lsp
@@ -15,6 +15,6 @@
   (let ((res (quotient (sum (mapcar #'abs values)) (length values))))
        ;; must ensure positive result
        (assert (>= res 0))
-       (assure <fixnum> res)))
+       (assure <float> res)))
 ;; (average-of-absolutes '(1 3))
 ;; (average-of-absolutes '())
-- 
cgit 1.4.1-2-gfad0