(defmacro process-failure (&rest args) `(progn (with-simple-restart (ignore-failure "Continue the test run.") (error 'check-failure ,@args)) (add-result 'test-failure ,@args)))