Рекурсивно получать данные из списков в LISP

Question

Списки LISP L1 и L2 составлены из случайных буквенно-цифровых символов.

Прикладная рекурсия (и сборщик переменных) генерирует список L3, беря числа из L1 и символы из L2

Пример:

L1 = (1 a f 5 6 8)
L2 = (3 t 4 5 3 2)

Result: 
L3= (1 5 6 8 t)

Вы знаете, как это сделать?

Answer 1

Поскольку на этот вопрос уже дан ответ, есть альтернатива, более короткий способ сделать это:

(defparameter *l1* '(1 a f 5 6 8))
(defparameter *l2* '(3 t 4 5 3 2))

(append (delete-if #'symbolp *l1*)
    (delete-if #'numberp *l2*)) ; (1 5 6 8 t)

Answer 2

Звучит как домашнее задание, но вот как я могу это сделать с помощью цикла

(loop for i in L1 
      and j in L2
      if (numberp i)
         collect i into x
      if (symbolp j)
         collect j into y
      finally (return (append x y)))