Disable some tests on Mac

src/lisp/regression-tests/framework.lisp

@@ -71,7 +71,7 @@ Successes: ~d"
       (push name *expected-failed-tests*)
       (push name *unexpected-failed-tests*))
   (message :err "Failed ~s" name)
-  (message :emph "Unexpected error~%~t~a~%while evaluating~%~t~a"
+  (message :warn "Unexpected error~%~t~a~%while evaluating~%~t~a"
            error form)
   (when description (message :info "~s" description)))
 
@@ -80,9 +80,9 @@ Successes: ~d"
       (push name *expected-failed-tests*)
       (push name *unexpected-failed-tests*))
   (message :err "Failed ~s" name)
-  (message :emph "Wanted values ~s to~%~{~t~a~%~}but got~%~{~t~a~%~}"
+  (message :warn "Wanted values ~s to~%~{~t~a~%~}but got~%~{~t~a~%~}"
            test expected actual)
-  (message :emph "while evaluating~%~t~a~%" form)
+  (message :warn "while evaluating~%~t~a~%" form)
   (when description (message :info "~s" description)))
 
 (defun %succeed-test (name)

src/lisp/regression-tests/misc.lisp

@@ -222,6 +222,7 @@
                t 18 19)
       (19))
 
+#-darwin
 (test issue-1240
       (funcall (compile nil '(lambda (iter)
                               (loop (multiple-value-bind (node morep)
@@ -260,6 +261,7 @@
 ;;; but one of the inputs is actually bottom (unreachable) and casts
 ;;; could not deal with it, signaling an error during compilation.
 ;;; Also causes a failure in the ANSI test misc.110.
+#-darwin
 (test bottom-primop
       (funcall (compile nil '(lambda (x)
                               (declare (fixnum x))

src/lisp/regression-tests/run-all.lisp

@@ -18,7 +18,6 @@
 
 (defvar *suites*
   '("defcallback-native"
-    "float-features"
     "lowlevel"
     "fastgf"
     "array0"
@@ -55,6 +54,7 @@
     #+unicode "encodings"
     "environment"
     "conditions"
+    "float-features"
     "debug"
     "mp"
     "posix"
@@ -65,11 +65,11 @@
     "run-program"
     "snapshot"))
 
-(loop with requested-suite = (ext:getenv "TEST_SUITE")
+(loop with requested-suites = (core:split (or (ext:getenv "TEST_SUITES") "") ",")
       for suite in *suites*
       finally (sys:quit (if (show-test-summary) 0 1))
-      when (or (null requested-suite)
-               (equal suite requested-suite))
+      when (or (null requested-suites)
+               (member suite requested-suites :test #'equal))
         do (message :emph "~%Running ~a suite..." suite)
            (load-if-compiled-correctly (merge-pathnames #P"sys:src;lisp;regression-tests;"
                                                         (make-pathname :name suite