commit | 2999dd1ec16e5e3fe7b504891dd37e3afef6da71 | [log] [tgz] |
---|---|---|
author | swissChili <swisschili@fastmail.com> | Fri Jul 02 14:19:53 2021 -0700 |
committer | swissChili <swisschili@fastmail.com> | Fri Jul 02 14:19:53 2021 -0700 |
tree | 694072489f98b60e7fcc5bfc688d1e58af0172d3 | |
parent | d24cd204347957c644bd99d3047ade9b32bcdcc1 [diff] [blame] |
Add macros
diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp index ea78d4f..45c8be4 100644 --- a/src/lisp/test.lisp +++ b/src/lisp/test.lisp
@@ -5,10 +5,17 @@ (print whatever) (gc)) +(defmacro weird-identity (a) + a) + +(defmacro weird-const (a b) + a) + (defun main () (let1 (a (add-two 3)) (print "a is") - (print a)) + (print (weird-identity a)) + (print (weird-const a 4))) ; These allocations should be freed (list 12 34 56)