Дан список произвольной структуры. Каждый числовой атом списка необходимо увеличить на единицу

(DEFUN PLUSATOM (X) 
 (COND  
  ((NULL X) NIL) 
    ((ATOM X)(+ X 1)) 
    (T (CONS (PLUSATOM (CAR X)) (PLUSATOM (CDR X))))))

(DEFUN PLUSODIN (X) 
 (COND  
  ((NULL X) NIL) 
    ((NUMBERP (CAR X))(+ X 1)) 
    (T (CONS (PLUSODIN (CAR X)) (PLUSODIN (CDR X))))))

(defun increment-numbers (tree)
  (cond ((atom tree)
         (if (numberp tree) (1+ tree) tree))
        (t
         (cons (increment-numbers (car tree))
               (increment-numbers (cdr tree))))))

(defun incr-num (x) (cond ((null x) nil)
                          ((numberp (car x)) (cons (+ 1 (car x)) (incr-num (cdr x))))
                          ((atom (car x)) (cons (car x)(incr-num (cdr x))))
                          (t (cons (incr-num (car x)) (incr-num (cdr x))))))
 
==> incr-num
 
(incr-num '(1 2 (a b 5) (((e 6)))))
 
==> (2 3 (a b 6) (((e 7))))

(defun incr-num-i (x)
  (let ((r nil))
     (dolist (i x r)
       (if (numberp i) (setq r (append r (list (+ i 1))))
           (if (atom i) (setq r (append r (list i))) (setq r (append r (list (incr-num-i i)))))))))
 
==> incr-num-i
 
(incr-num-i '(1 (2 3)))
 
==> (2 (3 4))
 
(incr-num-i '(1 (2 a 3)))
 
==> (2 (3 a 4))
 
(incr-num-i '(1 (2 (((a))) (((5))) 3)))
 
==> (2 (3 (((a))) (((6))) 4))