diff options
| author | Daniel Santos <dacs.git@brilhante.top> | 2023-01-13 11:37:10 +0000 |
|---|---|---|
| committer | Daniel Santos <dacs.git@brilhante.top> | 2023-01-13 11:37:10 +0000 |
| commit | 10880fbfb48444923b9c1f7bbc029e2b61f80a31 (patch) | |
| tree | 122c1743ec0b04cdcf4596c803c7573f029e203b | |
| parent | 7ba9315e5d3c6ac8827e5c0aa3f94508269bd58c (diff) | |
| download | cl-math-10880fbfb48444923b9c1f7bbc029e2b61f80a31.tar.gz | |
improve indentation
| -rw-r--r-- | plus-inc.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/plus-inc.lisp b/plus-inc.lisp index cd12ce0..f6988d7 100644 --- a/plus-inc.lisp +++ b/plus-inc.lisp @@ -34,10 +34,10 @@ (defun next-list-number (numerals number-list) "Given a list of a numeral system and a list of a number, it returns a list of the next number." (cond - ((null number-list) - (cons (if (eq (car numerals) '|0|) - (cadr numerals) - (car numerals)) nil)) + ((null number-list) (cons (if (eq (car numerals) '|0|) + (cadr numerals) + (car numerals)) + nil)) ((eq (car number-list) (car (last numerals))) (cons (car numerals) (next-list-number numerals (cdr number-list)))) (t (cons (next-digit numerals (car number-list)) (cdr number-list))))) |