1.0.37.47: less pain for building threads on Darwin

[sbcl.git] / tests / run-program.impure.lisp

diff --git a/tests/run-program.impure.lisp b/tests/run-program.impure.lisp
index f02cfa0..edae1fb 100644 (file)
--- a/tests/run-program.impure.lisp
+++ b/tests/run-program.impure.lisp
@@ -154,6 +154,8 @@
 ;; forked process' signal mask to defaults. But the default is `stop'
 ;; of which we can be notified asynchronously by providing a status hook.
 (with-test (:name (:run-program :inherit-stdin))
+  #+(and darwin sb-thread)
+  (error "Hangs on threaded Darwin.")
   (let (stopped)
     (flet ((status-hook (proc)
              (case (sb-ext:process-status proc)