Задача на lisp function (f s)

[antoxamad]

Люди добрые помогите пожалуйста решить задачу:
Определите функцию (f s), которая в одноуровневом списке чисел s переставляет элементы, удовлетворяющие некоторому предикату P, в начало списка.

[antoxamad]

Вопрос решен может кому полезно будет :

(defun predicate (arg) (evenp arg))
 
(defun target-fn (list)
  (append 
    (remove-if-not (function predicate) list)
    (remove-if (function predicate) list)))
 
(print (target-fn '(1 2 3 4 5 6 7 8)))