From e77d30ccf1b663aaa6ec1e017fa8e31f3296afeb Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 4 Aug 2011 01:15:12 +0000
Subject: 	* boot/ast.boot (bfSTEP): Synthetize artificial variable for 
 unnamed loop index.

---
 src/boot/strap/ast.clisp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/boot/strap')

diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp
index 8a8a75d7..10dea59c 100644
--- a/src/boot/strap/ast.clisp
+++ b/src/boot/strap/ast.clisp
@@ -367,6 +367,7 @@
   (PROG (|suc| |ex| |pred| |final| |g2| |inc| |g1| |initval| |initvar|)
     (RETURN
       (PROGN
+        (COND ((EQ |id| 'DOT) (SETQ |id| (|bfGenSymbol|))))
         (SETQ |initvar| (LIST |id|))
         (SETQ |initval| (LIST |fst|))
         (SETQ |inc|
-- 
cgit v1.2.3