-#+#.(cl:if (cl:find-package "ASDF") '(or) '(and))
-(require :asdf)
-
-#+#.(cl:if (cl:find-package "SB-POSIX") '(or) '(and))
(handler-bind (#+win32 (warning #'muffle-warning))
(require :sb-posix))
;; What? No SB-POSIX:EXECV?
`(let ((process (sb-ext:run-program "/bin/sh"
(list (native-namestring ,file))
- :environment (test-util::test-env)
:output *error-output*)))
(let ((*failures* nil))
(test-util:report-test-status))