Увеличить каждый элемент списка на единицу

(defun uv (x) (+ x 1))
 
 
(mapcar 'uv '(1 2 3))
(2 3 4)

(defun F (L)
 (if L
  (cons
   (mapcar '1+ (car L))
   (F (cdr L)))))

defun foo (list)
  (mapcar (lambda (x)
        (mapcar #'1+ x))
      list))
 
CL-USER> (foo '((1 2 3) (4 5 6) (7 8 9)))
((2 3 4) (5 6 7) (8 9 10))
CL-USER> (foo nil)
NIL

(defun foo (list)
  (labels ((iter (sublist)
        (if (null sublist)
            nil
            (cons (1+ (car sublist))
              (iter (cdr sublist))))))
    (if (null list)
    nil
    (cons (iter (car list))
          (foo (cdr list))))))
 
CL-USER> (foo '((1 2 3) (4 5 6) (7 8 9)))
((2 3 4) (5 6 7) (8 9 10))

(defun grow (w)
  (mapcar #'(lambda (a) (loop for x in a collect (1+ x))) w))
 
> (grow '((1 2 3) (4 5 6) (7 8 9)))
((2 3 4) (5 6 7) (8 9 10))

(defun grow (w)
 (when w (cons (mapcar #'1+ (car w)) (grow (cdr w)))))
 
> (grow '((1 2 3) (4 5 6) (7 8 9)))
((2 3 4) (5 6 7) (8 9 10))

(defun grow (w)
   (mapcar #'(lambda (a) (mapcar #'1+ a)) w))
 
> (grow '((1 2 3) (4 5 6) (7 8 9)))
((2 3 4) (5 6 7) (8 9 10))

(defun incr (x)
  (cond ((Null x) nil)
        ((numberp (car x)) (append (list (+ 1 (car x))) (incr (cdr x))))
        ((listp (car x)) (append (list (incr (car x))) (incr (cdr x)))))) 
 
==> incr
 
(incr '((1 2 3) (1 2 3)))
 
 
==> ((2 3 4) (2 3 4))
 
(incr '((1 (2) 3) (1 2 3)))
 
 
==> ((2 (3) 4) (2 3 4))
 
(incr '((1 (2) 3) (1 2 3) ((5 6 7))))
 
==> ((2 (3) 4) (2 3 4) ((6 7 8)))

(defun grow (w)
  (cond ((null w) nil)
        ((atom (car w)) (cons (1+ (car w)) (grow (cdr w))))
        ((cons (grow (car w)) (grow (cdr w))))))
 
> (grow '((1 (2 3)) ((4 (5) 6)) ((7 8) 9)))
((2 (3 4)) ((5 (6) 7)) ((8 9) 10))

(defun grow (w &aux (a (car w)) (d (cdr w)))
  (cond ((null w) nil)
        ((atom a) (cons (1+ a) (grow d)))
        ((cons (grow a) (grow d)))))
 
> (grow '((1 (2 3)) ((4 (5) 6)) ((7 8) 9)))
((2 (3 4)) ((5 (6) 7)) ((8 9) 10))