Changeset 13306


Ignore:
Timestamp:
05/30/11 13:40:19 (10 years ago)
Author:
Mark Evenson
Message:

Fix #144 via correcly naming hints for compiler properties.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/dotimes.lisp

    r11391 r13306  
    5555            ;; Annotations for the compiler.
    5656            (setf (get limit 'dotimes-limit-variable-p) t)
    57             (setf (get limit 'dotimes-index-variable-name) index)
     57            (setf (get index 'dotimes-index-variable-name) index)
    5858            (setf (get index 'dotimes-index-variable-p) t)
    59             (setf (get index 'dotimes-limit-variable-name) limit)
     59            (setf (get limit 'dotimes-limit-variable-name) limit)
    6060            `(block nil
    6161               (let ((,var 0)
Note: See TracChangeset for help on using the changeset viewer.