LISP рекурсия и сортировка списка

[Matadora]

привет всем
помогите пожалуйста решить следующую задачу:

Нужно создать рекурсивную функцию (или макрос) которая сортирует список. Например, переделывает из списка (3 2 1 5 6 0 4) список (5 3 1 0 2 4 6).
Тоисть, находит самое малое значение, помещает его в середину списка, а другие элементы списка раскладывает по убыванию вокруг наименьшего значения.

[Matadora]

(defun sort-around-min (list)
  (labels ((iter (list result direction)
             (if list
                 (let ((min (apply #'min list))
                       (new-direction (if direction nil t)))
                   (iter (remove min list)
                         (if direction
                             (cons min result)
                             (append result (list min)))
                         new-direction))
                 result)))
    (iter list nil nil)))