blob: 7dad124778aa9999468e00963fe3d0ca82065631 (
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
27
|
20
21
22
23
24
25
26
27
28
29
30
(block #:brk-blk-0002
(block () (let () (sys:for-op ()
((< 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)
|
