diff options
| -rw-r--r-- | plus-inc.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plus-inc.lisp b/plus-inc.lisp index cabc2d3..fd24a7d 100644 --- a/plus-inc.lisp +++ b/plus-inc.lisp @@ -5,6 +5,7 @@ (defun cut-digits (number-list-reversed) "Given a reversed number list it cuts unecessay digits." (cond + ((null (cdr number-list-reversed)) number-list-reversed) ((eq (car number-list-reversed) '|0|) (cut-digits (cdr number-list-reversed))) (t number-list-reversed))) |