bug#29799: 24.5; cl-loop guard clause missing

[Lars Ingebrigtsen]

dick.r.chiang@gmail.com writes:

> I noticed the following cases stopped working after commit a036543.
>
> ;; should not fail
> (cl-loop for i from 1 upto 100 and j = 1 then (1+ j)
>          do (cl-assert (= i j) t)
>          until (> j 10))
>
> ;; should return (1 0)
> (cl-loop with result
>          for x below 3
>          for y below 2
>          and z = (progn (push x result) nil)
>          finally return result)

I applied the patch and ran that test case, and it returned
(2 1 0).  But shouldn't it return (2 1)?

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no