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)