Написал прогу выводящую последние n символов(т.е. функцию last).

(defun len(lst)
(cond
((null lst) 0)
((+ 1 (len (cdr lst))))
)
)

(defun my-last(lst num)
(cond
((< (len lst) num) NIL)
((= (len lst) num) lst)
((> (len lst) num) (my-last (cdr lst) num))
)

)

(my-last '(1 2 3)'2)


Не могу написать прогу реализующую butlast(вывод первых n элементов). Вход: (my-butlast '(1 2 3 4 5)'2) Выход: (1 2)
Помогите пожалуйста!

Просто мне надо реализовать ее без продвинутых функций nthcdr и reverse. только c помощью базовых car и cdr, cond, cons...