RosettaCodeData/Task/Detect-division-by-zero/Common-Lisp/detect-division-by-zero.lisp

3 lines
87 B
Common Lisp

(handler-case (/ x y)
(division-by-zero () (format t "division by zero caught!~%")))