Как упростить программу по удалению элемента из списка - Lisp

Формулировка задачи:

Здравствуйте, помогите упростить программу. Программа удаляет следующим образом пример (delete '(1 2 3 4 5 2 4 2) 2) результат (1 3 4 5 2 4 2), то есть удаление без повторения.

                    Листинг программы
                
 
                        
                          
                    
(defun delete2(L x)
(cond 
    ((null L) ())
    ((equal x (car L)) ())
    (T (cons (car L) (delete2 (cdr L) x)))
)
)
 
(defun delete1(L x)
(cond 
    ((null L) ())
    ((equal x (car L)) (cdr L))
    (T (delete1 (cdr L) x))
)
)
(defun delete(L x)
(cond
    ((null L) ())
    (T (append (delete2 L x) (delete1 L x)))
)
)

Решение задачи: «Как упростить программу по удалению элемента из списка»

Листинг программы

(defun delete3(x L)
(cond 
    ((null L) nil)
    ((equal x (car L)) (cdr L))
    (T (cons (car L) (delete3 x (cdr L))))
)
)

Объяснение кода листинга программы

В данном коде определён функционал для удаления третьего (или последующих) элемента из списка, который соответствует заданному условию (x). Вот список с пояснениями к каждому элементу кода:

(defun delete3(x L) - функция с именем delete3 принимает два аргумента: x и L.
(cond - начало условного оператора.
((null L) nil) - первое условие: если список L пуст, то возвращается nil.
((equal x (car L)) (cdr L)) - второе условие: если первый элемент списка L равен x, то возвращается список без первого элемента (cdr L).
(T (cons (car L) (delete3 x (cdr L)))) - третье условие: если текущий элемент не равен x, то создаётся новый список, в котором первый элемент - это текущий элемент, а все последующие элементы - это результат вызова функции delete3 для оставшейся части списка (cdr L).
) - конец условного оператора.
) - конец функции delete3.