10 lines
207 B
Plaintext
10 lines
207 B
Plaintext
;; Benchmark: 113ns
|
|
;; Benchmark-Repeat: 19089
|
|
;; Nested Macro and Arithmetic example
|
|
;; Output: 81
|
|
|
|
(do
|
|
(macro square [x] `(* ~x ~x))
|
|
(macro power4 [x] `(square (square ~x)))
|
|
(power4 3))
|