[armedbear-cvs] r13306 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Mon May 30 06:40:19 2011
New Revision: 13306

Log:
Fix #144 via correcly naming hints for compiler properties.

Modified:
   trunk/abcl/src/org/armedbear/lisp/dotimes.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/dotimes.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/dotimes.lisp	Fri May 27 15:38:25 2011	(r13305)
+++ trunk/abcl/src/org/armedbear/lisp/dotimes.lisp	Mon May 30 06:40:19 2011	(r13306)
@@ -54,9 +54,9 @@
           (let ((limit (gensym "LIMIT-")))
             ;; Annotations for the compiler.
             (setf (get limit 'dotimes-limit-variable-p) t)
-            (setf (get limit 'dotimes-index-variable-name) index)
+            (setf (get index 'dotimes-index-variable-name) index)
             (setf (get index 'dotimes-index-variable-p) t)
-            (setf (get index 'dotimes-limit-variable-name) limit)
+            (setf (get limit 'dotimes-limit-variable-name) limit)
             `(block nil
                (let ((,var 0)
                      (,limit ,count)