bldc/tests/test_loop_while_1.lisp

(define n 0)

(check (= (loopwhile (<= n 10)
                     (define n (+ n 1)))
          11))