Plaster

common-lisp
CL-USER> (handler-bind ((condition (lambda (condition) (declare (ignore condition)) (format t ";; Handler A~%"))) (condition (lambda (condition) (declare (ignore condition)) (format t ";; Handler B~%"))) (condition (lambda (condition) (declare (ignore condition)) (format t ";; Handler C~%")))) (signal 'condition)) ;; Handler A ;; Handler B ;; Handler C NIL