catch and throw example

(defun catch-test (n)

(catch 'location

(prin1 "before thrower call")

(terpri)

(thrower n)

(prin1 "after thrower call"))

(terpri)

(prin1 "after catch frame")

t)

(defun thrower (n)

(if (> n 5) (throw 'location nil)))

Previous slide

Next slide

Back to first slide

View graphic version