(defmethod perform ((o test-op) (c (eql (find-system :sb-posix-tests))))
(funcall (intern "DO-TESTS" (find-package "SB-RT")))
(let ((failures (funcall (intern "PENDING-TESTS" "SB-RT")))
(defmethod perform ((o test-op) (c (eql (find-system :sb-posix-tests))))
(funcall (intern "DO-TESTS" (find-package "SB-RT")))
(let ((failures (funcall (intern "PENDING-TESTS" "SB-RT")))