Plaster
New
List
Login
common-lisp
default
phoe
2020.04.16 22:53:13
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
Raw
Annotate
Repaste