6 (debug (if 2 (+ 2 1) 0))
7 (debug (= (+ 2 1) (- 4 1)))
10 (debug "---VARIABLES---")
12 (%compile-defvar 'name))
17 (debug "---FUNCTIONS---")
20 (fsetq f (lambda (x) (+ x 10)))
24 (debug "---MACROS---")
27 (%compile-defmacro 'incf
29 (list 'setq y (list '+ 1 y)))))
39 (%compile-defmacro 'defmacro
40 (lambda (name args &rest body)
41 (list 'eval-when-compile
42 (list '%compile-defmacro (list 'quote name)
43 (list* 'lambda args body))))))
46 (list 'setq x (list '+ 1 x)))