Handling Errors Sometimes

(defun database-connect (name)

(loop

(catch :retry

(handler-bind ((network-down #‘fix-net))

(return

(open-database (find-database name)))))))

(defun fix-net (condition)

;; If this function ever returns,

;; you get debugger. This happens if

;; the network is not fixable.

(when (network-is-fixable)

(fix-network)

(throw :retry)))

Previous slide

Next slide

Back to first slide

View graphic version