bldc/tests/test_macro_0.lisp

7 lines
146 B
Common Lisp

(define defun (macro (name args body)
`(define ,name (lambda ,args ,body))))
(defun f (x y) (+ x y))
(check (= (f 1 2) 3))