(handler-case (/ 3 1)
  (error (c)
    (format t "Error: ~a~%" c))
  (t (c)
    (format t "No error: ~a~%" c))) ; How can I have this printed when no error?