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