- ,@(loop for (expr res) in forms
- collect `(test-report-result (equal (condition-case err
- ,expr
- (error (gensym))) ',res)
- ',expr ',res))))
+ ,@(cl-loop for (expr res) in forms
+ collect `(test-report-result (equal (condition-case _
+ ,expr
+ (error (cl-gensym)))
+ ',res)
+ ',expr ',res))))