Добавить символ звездочки после каждого неотрицательного элемента списка

(defun f1 (list n)
           (if (>= (car list) 0)
           (append (cons (car list) n) (f1 (cdr list) n))
           (append(f1 (cdr list) n))
           )
)
 
(f1 '(2 -1 11) '*)

(defun f (lst)
  (cond ((null lst) nil)
        ((numberp (car lst)) 
         (cons (if (>= (car lst) 0) (list (car lst) '*) (car lst)) (f (cdr lst))))
        (t (cons (car lst) (f (cdr lst))))))
          
==> F
 
(f  '(0 b a -2 4))
 
==> ((0 *) B A -2 (4 *))

(defun f (lst)
  (mapcar (lambda (x) (if (and (numberp x) (>= x 0)) (list x '*) x)) lst))
 
==> F
 
(f  '(0 b a -2 4))
 
==> ((0 *) B A -2 (4 *))

(defun escort-plusp-zerop-with-asterisk (w)
  (loop for a in w 
        if (and (numberp a)
                (or (zerop a) (plusp a)))
        collect `(,a *)
        else collect a))
 
> (escort-plusp-zerop-with-asterisk '(0 b a -2 4))
((0 *) B A -2 (4 *))

(defun escort-plusp-zerop-with-asterisk (w)
  (loop for a in w 
        if (and (numberp a) (>= a 0))
        collect `(,a *)
        else collect a))
 
> (escort-plusp-zerop-with-asterisk '(0 b a -2 4))
((0 *) B A -2 (4 *))

(defun escort-plusp-zerop-with-asterisk (w)
  (loop for a in w collect
        (if (and (numberp a) (>= a 0)) `(,a *) a)))
 
> (escort-plusp-zerop-with-asterisk '(0 b a -2 4))
((0 *) B A -2 (4 *))

(defun escort-plusp-zerop-with-asterisk (w &aux (a (car w)))
  (cond ((null w) nil)
        ((and (numberp a) (>= a 0))
         (cons `(,a *) (escort-plusp-zerop-with-asterisk (cdr w))))
        ((cons a (escort-plusp-zerop-with-asterisk (cdr w))))))
 
> (escort-plusp-zerop-with-asterisk '(0 b a -2 4))
((0 *) B A -2 (4 *))

(defun escort-plusp-zerop-with-asterisk (w &aux (a (car w)))
  (when w (cons (if (and (numberp a) (>= a 0)) `(,a *) a)
                (escort-plusp-zerop-with-asterisk (cdr w)))))
 
> (escort-plusp-zerop-with-asterisk '(0 b a -2 4))
((0 *) B A -2 (4 *))

(defun escort-plusp-zerop-with-asterisk (w)
  (mapcar #'(lambda (a) (if (and (numberp a) (>= a 0)) `(,a *) a)) w))
 
> (escort-plusp-zerop-with-asterisk '(0 b a -2 4))
((0 *) B A -2 (4 *))

(defun escort-plusp-zerop-with-asterisk (w)
  (when w ((lambda (a r) 
             (cons (if (and (numberp a) (>= a 0)) `(,a *) a) r))
           (car w) (escort-plusp-zerop-with-asterisk (cdr w)))))
 
> (escort-plusp-zerop-with-asterisk '(0 b a -2 4))
((0 *) B A -2 (4 *))