Определение функции, заменяющей все отрицательные элементы списка х на а

(defun chng-a (x a)
  (cond ((null x) nil)
        ((< (car x) 0) (cons a (chng-a (cdr x) a)))
        (t (cons (car x) (chng-a (cdr x) a)))))
 
==> chng-a
 
(chng-a '(1 2 3 -2 -3 -1 6) 11)
 
==> (1 2 3 11 11 11 6)

(defun chng-a (x a)
  (mapcar #'(lambda (y) (if (< y 0) a y)) x))
 
 
==> chng-a
 
(chng-a '(1 2 3 -2 -3 -1 6) 11)
 
==> (1 2 3 11 11 11 6)

(defun minus>a (w &aux (a (car w)) (d (cdr w)))
  (cond ((null w) nil)
        ((minusp a) (cons 'a (minus>a d)))
        ((cons a (minus>a d)))))
 
> (minus>a '(-1 1))
(A 1)

(defun minus>a (x)
  (cond ((null x) nil)
        ((minusp (car x)) (cons 'a (minus>a (cdr x))))
        ((cons (car x) (minus>a (cdr x))))))
 
> (minus>a '(-1 1))
(A 1)

(defun minus>a (w)
  (substitute-if 'a #'minusp w))
 
> (minus>a '(-1 1))
(A 1)

(defun zamen (l x)
  (cond
    ((null x) nil)
    ((and (atom x) (numberp x) (< x 0)) l)
    ((atom x) x)
    (t (cons (zamen l (car x)) (zamen l (cdr x))))))

>(zamen 'a '(b -1 (-3 (c)) 5 (-8 (3))))  ==>(b a (a (c)) 5 (a (3)))

(defun zamen (x l)
  (cond
    ((null l) nil)
    ((listp l) (cons (zamen x (car l)) (zamen x (cdr l))))
    ((minusp l) x)
    (l)
  )
)

(defun rec-negative->a (lst a)
  (mapcar #'(lambda (x)  (if (listp x)
            (rec-negative->a x a)
            (if (minusp x) a x))) lst))

(defun minus>a (w a)
  (cond ((null w) nil)
        ((minusp (car w)) (cons a (minus>a (cdr w) a)))
        ((cons (car w) (minus>a (cdr w) a)))))
 
> (minus>a '(-1 1) 10)
(10 1)

(defun chng-a (x a)
  (cond ((null x) nil)  ;; если список пуст - заменять нечего
        ((< (car x) 0) (cons a (chng-a (cdr x) a))) ;; если первый элемент отрицателен -
                                                                  ;; строим новый список: первый его элемент - а, 
                                                                  ;; а хвост есть наша функция, примененная к хвосту исходного
        (t (cons (car x) (chng-a (cdr x) a)))))       ;; если элемент неотрицателен, сохраняем его ...

(defun minus>a (w a)
  (loop for e in w if (minusp e) collect a else collect e))
 
> (minus>a '(-1 1) 10)
(10 1)

(defun minus>a (w a)
  (mapcar #'(lambda (e) (if (minusp e) a e)) w))
 
> (minus>a '(-1 1) 10)
(10 1)

(defun minus>a (w a)
  (list (if (minusp (car w)) a (car w))
        (if (minusp (cadr w)) a (cadr w))
        (if (minusp (caddr w)) a (caddr w))))
 
> (minus>a '(-1 0 1) 10)
(10 0 1)

(defun minus>a (w a)
  (list (if (< (car w) 0) a (car w))
        (if (< (cadr w) 0) a (cadr w))
        (if (< (caddr w) 0) a (caddr w))))
 
> (minus>a '(-1 0 1) 10)
(10 0 1)