CatchThrowTests

Quick Links

• TransferOfControl

Tests That Should Work

• (catch 'a 1)
• (catch 'a (catch 'b 1))
• (catch 'a (catch 'b 1) 2)
• (catch 'a (catch 'b (throw 'a 1) 2))
• (catch 'a (catch 'b (throw 'b 1) 2))
• (catch 'a (catch 'b (catch 'c (catch 'd (throw 'a 1) 2) 3) 4) 5)

• (let ((new-tag (list nil))) (catch new-tag (throw new-tag 'zorch)))
• (let ((new-tag)) (catch (setq new-tag (list nil)) (throw new-tag 'zorch)))

• (setq temp 'a)
• (catch temp (throw temp 1) 2)
• (catch 'a (throw temp 1) 2)
• (catch temp (throw 'a 1) 2)
• (catch 'a (throw 'a temp) 2)

Tests That Should Not Work

• (catch 'a (catch 'b (throw 'c 1) 2))