+
+;;; Variables
+(debug "---VARIABLES---")
+(eval-when-compile
+ (%compile-defvar 'name))
+(setq name 10)
+(debug name)
+
+;;; Functions
+(debug "---FUNCTIONS---")
+(eval-when-compile
+ (%compile-defun 'f))
+(fsetq f (lambda (x) (+ x 10)))
+(debug (f 20))