crank optimizations while running native compiler test suite

2 files changed, 2 insertions, 3 deletions

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index 4fc62482a0d..dbc90771774 100644
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -185,7 +185,6 @@
 (defun comp-tests-err-foo-f ()
   (error "foo"))
 
-;;FIXME: horrible...
 (defun comp-tests-condition-case-0-f ()
   ;; Bpushhandler Bpophandler
   (condition-case
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 #'<)))))