diff options
Diffstat (limited to 'plus-inc.lisp')
| -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))))) |