add macro support
This commit is contained in:
parent
c63c1eaf6e
commit
2e7d05f783
6 changed files with 95 additions and 20 deletions
8
test_macro.lisp
Normal file
8
test_macro.lisp
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
(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")))
|
||||
Loading…
Add table
Add a link
Reference in a new issue