From cf250cf41f97f3918df2c9386e09c34bd7bc580f Mon Sep 17 00:00:00 2001
From: Daniel Santos <dacs.git@brilhante.top>
Date: Mon, 9 Jan 2023 20:35:00 +0000
Subject: remove (length)

---
 cl-math.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cl-math.lisp b/cl-math.lisp
index 9efa61f..61a8e26 100644
--- a/cl-math.lisp
+++ b/cl-math.lisp
@@ -61,7 +61,7 @@
   "Given a list of a numeral system and two lists of numbers, it returns the list of it's sum."
   (cond
     ((and
-      (eql (length b-reversed) 1)
+      (null (cdr b-reversed))
       (eql (car b-reversed) (if (zerop (car numerals))
 				(cadr numerals)
 				(car numerals))))
-- 
cgit 1.4.1-2-gfad0