X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frun-program.impure.lisp;h=29fbd7245e82ddc848591f8c7a10890c816c2dcb;hb=f16e93459cd73b1884e3d576c95e422f8e8a000e;hp=a1efdf0b29b4515075be3f3fa3cde28eb284097c;hpb=c589b9363d23ec9133e5396adaf4240cb0a8bd18;p=sbcl.git

diff --git a/tests/run-program.impure.lisp b/tests/run-program.impure.lisp
index a1efdf0..29fbd72 100644
--- a/tests/run-program.impure.lisp
+++ b/tests/run-program.impure.lisp
@@ -153,10 +153,12 @@
 ;; We can't check for the signal itself since run-program.c resets the
 ;; 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))
+(with-test (:name (:run-program :inherit-stdin)
+            :fails-on :sbcl)
+  (error "Hangs at least on threaded Darwin and threaded x86-64/Linux.")
   (let (stopped)
     (flet ((status-hook (proc)
-             (ecase (sb-ext:process-status proc)
+             (case (sb-ext:process-status proc)
                (:stopped (setf stopped t)))))
       (let ((proc (sb-ext:run-program "/bin/ed" nil :search nil :wait nil
                                       :input t :output t