Определите функцию (f s), которая из списка чисел s создает новый список

(defun foo (list)
   (mapcar (lambda (x) (if (listp x) (foo x) (if (numberp x) (- x) x))) list))
 
(foo '(1 2 3 (((9 8 a 6)) 8 3)))
 
==> (-1 -2 -3 (((-9 -8 A -6)) -8 -3))

(defun antimatter (w &aux (a (car w)) (d (cdr w)))
  (cond ((null w) nil)
        ((listp a) (cons (antimatter a) (antimatter d)))
        ((numberp a) (cons (- a) (antimatter d)))
        (t (cons a (antimatter d)))))
 
> (antimatter '(1 2 3 nil (((9 8 a 6)) 8 3)))
(-1 -2 -3 NIL (((-9 -8 A -6)) -8 -3))

(defun antimatter (w &aux (a (car w)) (d (cdr w)))
  (when w (cons (cond ((listp a) (antimatter a))
                      ((numberp a) (- a))
                      (t a))
                (antimatter d))))
 
> (antimatter '(1 2 3 nil (((9 8 a 6)) 8 3)))
(-1 -2 -3 NIL (((-9 -8 A -6)) -8 -3))

(defun antimatter (w &aux (a (car w)))
  (when w (cons (cond ((listp a) (antimatter a))
                      ((numberp a) (- a))
                      (t a))
                (antimatter (cdr w)))))
 
> (antimatter '(1 2 3 nil (((9 8 a 6)) 8 3)))
(-1 -2 -3 NIL (((-9 -8 A -6)) -8 -3))

(defun antimatter (w)
  (mapcar #'(lambda (a)
              (cond ((listp a) (antimatter a))
                    ((numberp a) (- a))
                    (t a)))
          w))
 
> (antimatter '(1 2 3 nil (((9 8 a 6)) 8 3)))
(-1 -2 -3 NIL (((-9 -8 A -6)) -8 -3))

(defun antimatter (w)
  (loop for a in w collect
        (cond ((listp a) (antimatter a))
              ((numberp a) (- a))
              (t a))))
 
> (antimatter '(1 2 3 nil (((9 8 a 6)) 8 3)))
(-1 -2 -3 NIL (((-9 -8 A -6)) -8 -3))

(defun antimatter (w)
  (loop for a in w
        if (listp a) collect (antimatter a)
        else if (numberp a) collect (- a)
        else collect a))
 
> (antimatter '(1 2 3 nil (((9 8 a 6)) 8 3)))
(-1 -2 -3 NIL (((-9 -8 A -6)) -8 -3))