From 10880fbfb48444923b9c1f7bbc029e2b61f80a31 Mon Sep 17 00:00:00 2001 From: Daniel Santos Date: Fri, 13 Jan 2023 11:37:10 +0000 Subject: improve indentation --- plus-inc.lisp | 8 ++++---- 1 file 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))))) -- cgit 1.4.1-2-gfad0