Skip to content
Snippets Groups Projects
Commit 401ac2a2 authored by Philipp Marek's avatar Philipp Marek Committed by lovrolu
Browse files

Switch loop clause order, see issue 5.

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