Add incf!

diff --git a/test.lisp b/test.lisp
index f4c48ac..54d4a63 100644 (file)
--- a/test.lisp
+++ b/test.lisp
@@ -22,7 +22,15 @@
 
 ;;; Macros
 (debug "---MACROS---")
+
+(eval-when-compile
+  (%compile-defmacro 'incf
+                     (lambda (y)
+                       (list 'setq y (list '+ 1 y)))))
+
 (eval-when-compile
-  (%compile-defmacro 'f (lambda (x) (list '+ x 10))))
+  (%compile-defvar 'x))
 
-(debug (f 10))
+(setq x 0)
+(incf x)
+(debug x)