(defun report-result (name result form)
  (format t "~a : ~:[FAIL~;pass~] ~a~%" name result form)
  result)

(defmacro strict-and (&rest cases)
  `(let ((evaluated (list ,@cases)))
     (and evaluated)))

(defmacro run-tests (name &rest cases)
  `(strict-and ,@(loop for case in cases collect
	     `(report-result ,name ,case (quote ,case)))))

(format t "~%")
(run-tests '+-tests
	   (eq 2 (+ 1 2))
	   (eq 5 (+ 2 3))
	   )