Commit 401ac2a2 by Philipp Marek Committed by lovrolu

### Switch loop clause order, see issue 5.

parent 0bb942ca
 ... @@ -61,9 +61,9 @@ Examples: ... @@ -61,9 +61,9 @@ Examples: (iota 3 :start -1 :step -1/2) => (-1 -3/2 -2) (iota 3 :start -1 :step -1/2) => (-1 -3/2 -2) " " (declare (type (integer 0) n) (number start step)) (declare (type (integer 0) n) (number start step)) (loop repeat n (loop ;; KLUDGE: get numeric contagion right for the first element too ;; KLUDGE: get numeric contagion right for the first element too for i = (+ (- (+ start step) step)) then (+ i step) for i = (+ (- (+ start step) step)) then (+ i step) repeat n collect i)) collect i)) (declaim (inline map-iota)) (declaim (inline map-iota)) ... @@ -80,9 +80,9 @@ Examples: ... @@ -80,9 +80,9 @@ Examples: ;;; 3.0 ;;; 3.0 " " (declare (type (integer 0) n) (number start step)) (declare (type (integer 0) n) (number start step)) (loop repeat n (loop ;; KLUDGE: get numeric contagion right for the first element too ;; KLUDGE: get numeric contagion right for the first element too for i = (+ start (- step step)) then (+ i step) for i = (+ start (- step step)) then (+ i step) repeat n do (funcall function i)) do (funcall function i)) n) n) ... ...
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!