catch and throw

(defun alpha (arg1 arg2)

(if (<= arg1 arg2)

(throw 'spaghetti)))

(defun beta (recorded-average score handicap)

(catch 'spaghetti

(alpha (+ score handicap) recorded-average)

'terrific))

(beta 100 90 20) -> TERRIFIC

(beta 100 70 20) -> nil

Previous slide

Next slide

Back to first slide

View graphic version