;;;; absolutely no warranty. See the COPYING and CREDITS files for
;;;; more information.
-#-sb-thread
+#+(or :win32 (not :sb-thread))
(sb-ext:exit :code 104)
(use-package :sb-alien)
(output
(with-output-to-string (s)
(setf proc (run-program program arguments
- :environment (test-util::test-env)
:output s)))))
(unless (zerop (process-exit-code proc))
(error "Bad exit code: ~S~%Output:~% ~S"