From: Raimon Grau <raimonster@gmail.com>
Date: Sun, 16 Dec 2012 00:34:15 +0000 (+0100)
Subject: removed the old-style incf
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1d3ea0158e2e12e5296d1e8816ec3fb5c76173d2;p=jscl.git

removed the old-style incf
---

diff --git a/test.lisp b/test.lisp
index e7209a1..1ef21de 100644
--- a/test.lisp
+++ b/test.lisp
@@ -24,29 +24,17 @@
 (debug "---MACROS---")
 
 (eval-when-compile
-  (%compile-defmacro 'incf
-                     (lambda (y)
-                       (list 'setq y (list '+ 1 y)))))
-
-(eval-when-compile
-  (%compile-defvar 'x))
-
-(setq x 0)
-(incf x)
-(debug x)
-
-(eval-when-compile
   (%compile-defmacro 'defmacro
                      (lambda (name args &rest body)
                        (list 'eval-when-compile
                              (list '%compile-defmacro (list 'quote name)
                                    (list* 'lambda args body))))))
 
-(defmacro %incf (x)
+(defmacro incf (x)
   (list 'setq x (list '+ 1 x)))
 
 (setq x 10)
-(%incf x)
+(incf x)
 (debug x)
 
 
@@ -54,3 +42,4 @@
 
 (debug (lambda (&rest x) x))
 (debug (lambda (x y &rest z) x))
+(debug (lambda (x y &rest z) y))