Simply generate a FAIL.
(defmacro fail (&rest message-args) "Simply generate a FAIL." `(process-failure :test-expr ',message-args ,@(when message-args `(:reason (format nil ,@message-args)))))