summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--plus-inc.lisp8
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)))))