mirror of https://github.com/rusefi/bldc.git
7 lines
138 B
Common 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)
|