4 lines
104 B
Common Lisp
4 lines
104 B
Common Lisp
(define-compiler-macro factorial (&whole form arg)
|
|
(if (constantp arg)
|
|
(factorial arg)
|
|
form))
|