diff options
| -rw-r--r-- | cl-math.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |