Comment by BoingBoomTschak

I'd have used

  (funcall (ecase operation (:add '+) (:subtract '-) (:multiply '*)) result value)

instead, looks funkier =)