From b319af5ae04f825eb756c7c4aa2c4c122cf93c12 Mon Sep 17 00:00:00 2001
From: Darren Bane <darren.bane@emdalo.com>
Date: Thu, 25 Feb 2021 13:03:47 +0000
Subject: Forgot a function

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

diff --git a/dbc2.lsp b/dbc2.lsp
index 657d297..6915c4a 100644
--- a/dbc2.lsp
+++ b/dbc2.lsp
@@ -12,7 +12,7 @@
   (the <list> values)
   ;; requires non-null list
   (assert (> (length values) 0))
-  (let ((res (quotient (sum values) (length values))))
+  (let ((res (quotient (sum (mapcar #'abs values)) (length values))))
        ;; must ensure positive result
        (assert (>= res 0))
        (the <fixnum> res)))
-- 
cgit 1.4.1-2-gfad0