(require 'cl)
(let ((x 41))
  (assert (= x 42) t "the answer is not right"))