;; Neater solution based on phoe's suggestion
(handler-case (/ 3 1)
  (error (c)
    (format t "~&Error: ~a~%" c))
  (:no-error (c)
    (format t "~&No error: ~a~%" c)))

;; My hack
(handler-case
    (progn
      (/ 3 0)
      (format t "~&No error"))
  (error (c)
    (format t "~&Error: ~a~%" c)))