(handler-case (/ 3 1)
  (error (c)
    (format t "~&Error~%"))
  (:no-error (c)
    (format t "~&No error~%" c)))