Changeset 13306 for trunk/abcl/src/org/armedbear/lisp/dotimes.lisp

Timestamp:

05/30/11 13:40:19 (12 years ago)

Author:

Mark Evenson

Message:

Fix #144 via correcly naming hints for compiler properties.

File:

• trunk/abcl/src/org/armedbear/lisp/dotimes.lisp (modified) (1 diff)

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

@@ -55 +55 @@
             ;; 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)