diff options
| author | Daniel Santos <dacs.git@brilhante.top> | 2023-01-09 20:35:00 +0000 |
|---|---|---|
| committer | Daniel Santos <dacs.git@brilhante.top> | 2023-01-09 20:35:00 +0000 |
| commit | cf250cf41f97f3918df2c9386e09c34bd7bc580f (patch) | |
| tree | 654bdbdbdd3e86c95861c166411c424f719679bc | |
| parent | 561a801ab93a5d055f1d0cd04619ccbd199d9b70 (diff) | |
| download | cl-math-cf250cf41f97f3918df2c9386e09c34bd7bc580f.tar.gz | |
remove (length)
| -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)))) |