Georg
eval/apply слишком много аргументов для del-if. что это за ошибка в CLIPS'е
(defun del-if (p l)
(cond
((null l) nil)
((funcall p (car l)) (del-if p (cdr l)))
(t (cons (car l) (del-if p (cdr l))))))
Пример:
(del-if 'evenp '(1 2 3 4 5 6))