bldc/tests/test_macro_0.lisp

7 lines
138 B
Common Lisp

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