RosettaCodeData/Task/Compile-time-calculation/Common-Lisp/compile-time-calculation-6.lisp

(define-compiler-macro factorial (&whole form arg)
  (if (constantp arg)
    (factorial arg)
    form))