LISP , Удаление элемента

Здравствуйте. Нужно удалить первое вхождение элемента в список.
список а имеет структуру ((1 2 3) (3 2 1))

Есть функция

(DEFUN DEL_ELEM (obj lst)
((NULL lst) NIL)
((EQL obj (CAR lst)) (CDR lst))
(CONS (CAR lst)
(DEL_ELEM obj (CDR lst)))
)

Хочу удалить 2 с первого подсписка, начиная с второго элемента

(DELETE_ELEM 2 (cdr(car a))

Результат
(3) - функция удаления работает нормально

Но список а не поменялся. Как сохранить изменения в а? Должно быть ((1 3) (3 2 1))

Сообщение отредактировано: BODYA - 01.10.11, 12:34

(setf a (delete-elem 2 (cdr (car a))))