(defmethod perform ((o test-op) (c (eql (find-system :sb-bsd-sockets-tests))))
(multiple-value-bind (soft strict pending)
(funcall (intern "DO-TESTS" (find-package "SB-RT")))
(defmethod perform ((o test-op) (c (eql (find-system :sb-bsd-sockets-tests))))
(multiple-value-bind (soft strict pending)
(funcall (intern "DO-TESTS" (find-package "SB-RT")))