Преобразования списков - Lisp

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

Помогите написать функцию, которая для заданных списков lst 1 и lst2 возвращает список, содержащий их заданные элементы . Если второй элемент lst 1 является числом, то вывести список из первого элемента lst 1 и последнего элемента lst2 . Иначе - вывести список, первым элементом которого будет являться хвост lst 2 в вторым 3 элемент списка lst1. Пример: '(1 2 8 (G A) Y) '((F 3) H 7 (R1)) результат '(1(R 1)). Пример 2: (1 U 8) (G A) Y) '((F 3) H 7 (R 1)), результат '((H 7(R 1)) 8). Вот что есть

(defun spis(lst1 lst2) 
    (cond ((null lst1) 0) 
             (numberp(second(lst1))) cons(car(lst1) car (lst2)) (t cons (cdr (lst2) third(lst1)))))

Решение задачи: «Преобразования списков»

textual
                            Листинг программы 
                        
                            ((null lst1) 0)