8 lines
152 B
Common Lisp
8 lines
152 B
Common Lisp
(def twice (mac (x)
|
|
(list 'progn x x)))
|
|
|
|
(def when (mac (cond . body)
|
|
(list 'if cond (cons 'progn body))))
|
|
|
|
(when (= 1 1)
|
|
(twice (write "ok\n")))
|