Сортировка списка по типу элементов (рекурсивная реализация) - Lisp

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

Создать рекурсивную функцию, которая сортирует список, собрав вместе элементы одних типов (целые числа, действительные числа, символы, списки). Спасибо. например

$ (myfunction (1 56.7 `(99 6 0) р 89 30.8 `(12 89 6) 0 gh))
(1 89 0 56.7 30.8 р gh (99 6 0) (12 89 6))

Решение задачи: «Сортировка списка по типу элементов (рекурсивная реализация)»

Листинг программы

(defun reorg (lst)
  (append (remove-if-not 'fixedp lst)
          (remove-if-not 'floatp lst)
          (remove-if-not 'symbolp lst)
          (remove-if-not 'listp lst)))
  
    
 
==> REORG
 
(reorg '(1 56.7 (99 6 0) р 89 30.8 (12 89 6) 0 gh))
 
==> (1 89 0 56.7 30.8 Р GH (99 6 0) (12 89 6))

Объяснение кода листинга программы

В коде реализована рекурсивная функция reorg, которая сортирует список lst по типу элементов. Вот список из 20 элементов, оформленных в виде названий переменных и их значений:

lst — исходный список
fixedp — тип элементов, которые нужно удалить из списка
floatp — тип элементов, которые нужно удалить из списка
symbolp — тип элементов, которые нужно удалить из списка
listp — тип элементов, которые нужно удалить из списка
append — операция добавления элементов в список
remove-if-not — операция удаления элементов из списка, которые не соответствуют заданному условию
(1 56.7 (99 6 0) р 89 30.8 (12 89 6) 0 gh) — исходный список, переданный в функцию reorg
(1 89 0 56.7 30.8 Р GH (99 6 0) (12 89 6)) — результат работы функции reorg, отсортированный список по типу элементов