Написать рекурсивную функцию, удаляющую x (последнее вхождение) из списка l

(defun l1(l)
(reverse (cdr(reverse l)))
)
;переворачивает список, берет от полученного хвост, и полученный
;хвост переворачивает
 
(defun ud (l &key x)
(cond ((null l) l) 
     ( (equal (car l) x)(cdr l))
     ( (no equal (car 1) x) (cdr 1))
 (t (cons (ud (l)) (car (reverse l))))
 
(setf 'f (open "C:/lispprakt/input78.txt"))
(ud l :x (read f))
(close f)

(defun dellast (lst)
   (cond ((null (cdr lst)) nil)
              (t (cons (car lst) (dellast (cdr lst))))))

(defun -butlast (w)
  (when (cdr w) (cons (car w) (-butlast (cdr w)))))
 
> (-butlast '(a b))
(A)

(defun -butlast (a w)
  (remove a w :count 1 :from-end t))
 
> (-butlast 'a '(a b))
(B)

(defun butlast-elm (a w)
  (cond ((null w) nil)
        ((equalp (car w) a) (if (member a (cdr w))
                                (cons (car w)
                                      (butlast-elm a (cdr w)))
                                (butlast-elm a (cdr w))))
        ((cons (car w) (butlast-elm a (cdr w))))))
 
> (butlast-elm 'a '(a b a b))
(A B B)

(defun butlast-elm (e w &aux (a (car w)) (d (cdr w)))
  (cond ((null w) nil)
        ((equalp a e) (if (member e d)
                          (cons a (butlast-elm e d))
                          (butlast-elm e d)))
        ((cons a (butlast-elm e d)))))
 
> (butlast-elm 'a '(a b a b))
(A B B)

(defn butlast-elm (a w)
    cond (null? w) nil
         (and (eq? (car w) a) (not (elem a (cdr w)))) (cdr w)
         (cons (car w) (butlast-elm a (cdr w)) ))
 
(butlast-elm 'a '(a b a b))
 
=> (a b b)

(defun butlast-elm (e w &aux (a (car w)) (d (cdr w)))
  (cond ((null w) nil)
        ((equalp a e) (if (member e d)
                          (cons a (butlast-elm e d))
                          d))
        ((cons a (butlast-elm e d)))))
 
> (butlast-elm 'a '(a b a b))
(A B B)

defmacro and (x y) cond x y false

(not (elem a (cdr w)))

(defun butlast-elm (e w &aux (a (car w)) (d (cdr w)))
  (when w (if (and (equalp a e) (not (member e d))) d
              (cons a (butlast-elm e d)))))
 
> (butlast-elm 'a '(a b a b))
(A B B)

(defun butlast-elm-from-file (path w &aux e)
  (with-open-file (s path :direction :input)
    (do ((line (read-line s nil :eof)(read-line s nil :eof))) 
        ((eql line :eof))
      (setf e (concatenate 'string e line))))
  (butlast-elm e w))
 
(defun butlast-elm (e w &aux (a (car w)) (d (cdr w)))
  (when w (if (and (equalp a e) (not (member e d :test #'equalp))) d
              (cons a (butlast-elm e d)))))
 
> (butlast-elm "aa" '("aa" "bb" "aa" "bb"))
("aa" "bb" "bb")
> (butlast-elm-from-file "d:/test.txt" '("aa" "bb" "aa" "bb"))
("aa" "bb" "bb")

(defun butlast-elm-from-file (path w &aux e)
  (with-open-file (s path :direction :input)
    (do ((line (read-line s nil :eof)(read-line s nil :eof))) 
        ((eql line :eof))
      (setf e (concatenate 'string e line))))
  (butlast-elm (read-from-string e) w))
 
(defun butlast-elm (e w &aux (a (car w)) (d (cdr w)))
  (when w (if (and (equalp a e) (not (member e d :test #'equalp))) d
              (cons a (butlast-elm e d)))))
 
> (butlast-elm 'aa '(aa bb aa bb))
(AA BB BB)
> (butlast-elm-from-file "d:/test.txt" '(aa bb aa bb))
(AA BB BB)

(defun del-last (lst a)
  (labels ((last-pos (x y c p)
             (cond ((null x) p)
                   ((eq y (car x)) (last-pos (cdr x) y (+ c 1) c))
                   (t (last-pos (cdr x) y c p))))
           (del-by-pos (x y p)
             (cond ((and (= p 0)(eq (car x) y)) (cdr x))
                   ((eq (car x) y) (cons (car x) (del-by-pos (cdr x) y (- p 1))))
                   (t (cons (car x) (del-by-pos (cdr x) y p))))))
    (del-by-pos lst a (last-pos lst a 0 0))))          
             
==> DEL-LAST
 
(del-last '(1 2 3 4 1 2 3 1 2) 1)
 
==> (1 2 3 4 1 2 3 2)
 
(del-last '(1 2 3 4 1 2 3 1 1 1 2) 1)
 
==> (1 2 3 4 1 2 3 1 1 2)

(defun ud (l x)
   (cond ((null l) l)
        ((equal (car l) x)(cdr l))
        ((not (equal (car l) x) (cdr l)))
        (t (cons (ud (l)) (car (reverse l))))))

(defun del-last (lst a)
  (labels ((last-pos (x y c p) ;; ВОТ ЗДЕСЬ
             (cond ((null x) p)
                   ((eq y (car x)) (last-pos (cdr x) y (+ c 1) c)) ;; ВОТ ЗДЕСЬ
                   (t (last-pos (cdr x) y c p))))
           (del-by-pos (x y p) ;; И ЧТО ДЕЛАЕТ ВОТ ЭТА ФУНКЦИЯ
             (cond ((and (= p 0)(eq (car x) y)) (cdr x))
                   ((eq (car x) y) (cons (car x) (del-by-pos (cdr x) y (- p 1))))
                   (t (cons (car x) (del-by-pos (cdr x) y p))))))
    (del-by-pos lst a (last-pos lst a 0 0))))  ;;        И НА ЭТОМ ЭТАПЕ

(defun last-pos (lst x c p) 
  (cond ((null lst) p)
        ((eq (car lst) x) (last-pos (cdr lst) x (+ c 1) c))
        (t (last-pos (cdr lst) x (+ c 1) p))))
  
 
==> LAST-POS
 
(last-pos '(1 2 3 1 2 2 6) 2 0 0)
 
==> 5
 
(last-pos '(1 2 3 1 2 2 6) 1 0 0)
 
==> 3
 
(last-pos '(1 2 3 1 2 2 6) 6 0 0)
 
==> 6

(defun del-by-pos (lst n)
  (cond ((zerop n) (cdr lst))
        (t (cons (car lst) (del-by-pos (cdr lst) (- n 1))))))
 
==> DEL-BY-POS
 
(del-by-pos '(1 2 3 4) 3)
 
==> (1 2 3)
 
(del-by-pos '(1 2 3 4) 2)
 
==> (1 2 4)

(defun del-last (lst x)
 (del-by-pos lst (last-pos lst x 0 0))) ;; ищем сначала позицию последнего вхождения, а потом удаляем...
 
==> DEL-LAST
 
(del-last '(1 2 3 1 1 7) 1)
 
==> (1 2 3 1 7)