rename a function test to avoid name clashing

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index a719dfaa6ca1da4dba6f42938bd0593841ede314..fa87b7f454c24d0a69248a883a9e00c625314ae6 100644 (file)
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -364,14 +364,14 @@
   (defun comp-tests-consp-f (x)
     ;; Bconsp
     (consp x))
-  (defun comp-tests-car-f (x)
+  (defun comp-tests-setcar2-f (x)
     ;; Bsetcar
     (setcar x 3))
 
   (should (eq (comp-test-apply #'comp-tests-consp-f '(1)) t))
   (should (eq (comp-test-apply #'comp-tests-consp-f 1) nil))
   (let ((x (cons 1 2)))
-    (should (= (comp-test-apply #'comp-tests-car-f x) 3))
+    (should (= (comp-test-apply #'comp-tests-setcar2-f x) 3))
     (should (equal x '(3 . 2)))))
 
 (ert-deftest comp-tests-num-inline ()