SavaMargo,

SelznnНапишите функцию, удаляющую повторные вхождения элементов в список
Делал что-то похожее для лабы, длинный код, правда, но работает, делал так:

;Delete all elements in lst (except the first) which are equal to the first one.
;Ex (3 nil 3 3 1 3 1 2 nil) -> (3 nil 1 1 2 nil)
(defun del_rep_el (lst)
(cond
((null lst) nil)
((equal (length lst) 1) lst)
(t (del_rep_el_helpf (list (car lst)) (cdr lst)))
)
)

;help function for del_rep_el function
(defun del_rep_el_helpf (left right)
(let
((right (del_frst_eq_ord right)))
(cond
((null right) left)
((and
(equal (car left) (car right))
(equal (length right) 1))
left)
((equal (car left) (car right))
(del_rep_el_helpf
(append left (list (cadr right)))
(cddr right)
)
)
(t
(del_rep_el_helpf
(append left (list (car right)))
(cdr right)
)
)
)
)
)

;Delete first equal ordered elements saving only the one of these in lst
;Ex: (3 3 3 2 3 3 2 1) -> (3 2 3 3 2 1)
(defun del_frst_eq_ord (lst)
(cond
((null lst) nil)
((equal (length lst) 1) lst)
((equal (car lst) (cadr lst)) (del_frst_eq_ord (cdr lst)))
(t lst)
)
)

;Functional executes fn on lst and appends the car of result with
;executing oneself on the cdr of result
(defun mymap (fn lst)
(setq res (funcall fn lst))
(cond
((null lst) nil)
(t (append
(list (car res))
(mymap fn (cdr res))
)
)
)
)


Синтаксис тут не подсвечивается, так что за оформление извините.