From 1e53787827d9c6148782e5b2a5181c1b74d8d4a3 Mon Sep 17 00:00:00 2001
From: Daniel Santos <dacs.git@brilhante.top>
Date: Wed, 18 Jan 2023 13:12:49 +0000
Subject: improve cut-digits, may be a bug fix

---
 plus-inc.lisp | 1 +
 1 file changed, 1 insertion(+)

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)))
-- 
cgit 1.4.1-2-gfad0