the -> assure

1 files changed, 2 insertions, 2 deletions

diff --git a/dbc2.lsp b/dbc2.lsp
index 6915c4a..afc3006 100644
--- a/dbc2.lsp
+++ b/dbc2.lsp
@@ -9,12 +9,12 @@
       ((null xs) res)
       (setq res (+ res (car xs))))))
 (defun average-of-absolutes (values)
-  (the <list> values)
+  (assure <list> values)
   ;; requires non-null list
   (assert (> (length values) 0))
   (let ((res (quotient (sum (mapcar #'abs values)) (length values))))
        ;; must ensure positive result
        (assert (>= res 0))
-       (the <fixnum> res)))
+       (assure <fixnum> res)))
 ;; (average-of-absolutes '(1 3))
 ;; (average-of-absolutes '())