X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frun-program.impure.lisp;h=098c74ded1a11b5c078cf089f2244c8b28697aee;hb=86d50ba6266c823eedd444c4e1c5a55e9dc7f46a;hp=e62eb959dfcbf6f0a1f119eedb0e6fd5d891e6a0;hpb=6bc7c19167d7bf98ff6cdf45e4ccd9998311bdd8;p=sbcl.git

diff --git a/tests/run-program.impure.lisp b/tests/run-program.impure.lisp
index e62eb95..098c74d 100644
--- a/tests/run-program.impure.lisp
+++ b/tests/run-program.impure.lisp
@@ -31,8 +31,7 @@
               (assert (= (read-byte in) i)))
       (process-close process))))
 
-#+sb-thread
-(with-test (:name :run-program-cat-2)
+(with-test (:name :run-program-cat-2 :skipped-on '(not :sb-thread))
   ;; Tests that reading from a FIFO is interruptible.
   (let* ((process (sb-ext:run-program "/bin/cat" '()
                                       :wait nil