CL-USER> (handler-bind ((condition (lambda (condition)
                                     (declare (ignore condition))
                                     (format t ";; Outer handler~%"))))
           (handler-bind ((condition (lambda (condition)
                                       (declare (ignore condition))
                                       (format t ";; Inner handler A~%")))
                          (condition (lambda (condition)
                                       (format t ";; Inner handler B~%")
                                       (signal condition)))
                          (condition (lambda (condition)
                                       (declare (ignore condition))
                                       (format t ";; Inner handler C~%"))))
             (signal 'condition)))
;; Inner handler A
;; Inner handler B
;; Outer handler
;; Inner handler C
;; Outer handler