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