summaryrefslogtreecommitdiffstats
path: root/tests/011/macros-2.expected
blob: 020185c20da17c43267767246ccc272781e27b6f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
20
21
22
23
24
25
26
27
28
29
30
(block #:brk-blk-0002
  (for () ((< i 100) ())
    () (block #:cnt-blk-0001
         (if (< (sys:setq i (succ i))
                20) (return-from
                      #:cnt-blk-0001))
         (if (> i 30)
           (return-from
             #:brk-blk-0002))
         (prinl i))))
(whilst break)
(whilst break)
(whilst break)
(whilst break)
(whilst break)