crank optimizations while running native compiler test suite

1 files changed, 2 insertions, 2 deletions

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 331e1cfed16..4f4005bea66 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -29,7 +29,7 @@
 (require 'cl-lib)
 (require 'comp)
 
-(setq comp-speed 0)
+(setq comp-speed 3)
 
 (defconst comp-test-src
   (concat (file-name-directory (or load-file-name buffer-file-name))
@@ -205,7 +205,7 @@
 
 (ert-deftest comp-tests-bubble-sort ()
   "Run bubble sort."
-  (let* ((list1 (mapcar 'random (make-list 1000 most-positive-fixnum)))
+  (let* ((list1 (mapcar #'random (make-list 1000 most-positive-fixnum)))
          (list2 (copy-sequence list1)))
     (should (equal (comp-bubble-sort-f list1)
                    (sort list2 #'<)))))