((lambda (a) (if (> a 0) (+ a) (- a))) x)
Common Lisp функции вида ((if (> x 0) + -) x)
В scheme подобные функции нормально обрабатываются, а вот в cl выдаются ошибки. Единственный способ которым у меня получилось написать подобную конструкцию выглядит так
