Example User-Defined Condition

(defcondition network-down (error)

((network-type :initarg :type))

(:report

(lambda (condition stream)

(format stream

“The ~A network is down”

(slot-value condition

‘network-type)))))

(defun check-network ()

(or (test-local-area-network)

(signal ‘network-down :type :LAN)))

Previous slide

Next slide

Back to first slide

View graphic version