Common Lisp функции вида ((if (> x 0) + -) x)

В scheme подобные функции нормально обрабатываются, а вот в cl выдаются ошибки. Единственный способ которым у меня получилось написать подобную конструкцию выглядит так

((lambda (a) (if (> a 0) (+ a) (- a))) x)