bldc/tests/test_loop_for_1.lisp

8 lines
111 B
Common Lisp

(define n 0)
(check (= (loopfor i 0 (<= i 10) (+ i 1)
(define n (+ n i)))
55))