(defmacro are (form &rest forms)
  "Evaluate FORM, then a list of FORMS with should.  If any return
nil, abort the current test as failed.

Returns the value of the last form evaluated."
  (let ((result (make-symbol "result")))
    `(progn
       (setq ,result (should ,form))
       (unless (null ',forms)
         (setq ,result (are ,@forms)))
       ,result)))