(defmethod perform ((o test-op) (c (eql (find-system :sb-aclrepl))))
(oos 'load-op 'sb-aclrepl-tests)
(oos 'test-op 'sb-aclrepl-tests))
(defmethod perform ((o test-op) (c (eql (find-system :sb-aclrepl))))
(oos 'load-op 'sb-aclrepl-tests)
(oos 'test-op 'sb-aclrepl-tests))