diff --git a/alexandria-tests.asd b/alexandria-tests.asd index 6eb8e3a7474bb8817d6f97905b418ef08eb4c1fc..86317698acfc86d84ffead373c4907ab0388dc7f 100644 --- a/alexandria-tests.asd +++ b/alexandria-tests.asd @@ -5,12 +5,8 @@ :depends-on (:alexandria #+sbcl :sb-rt #-sbcl :rt) :components ((:file "tests"))) -(defmethod operation-done-p - ((o test-op) (c (eql (find-system :alexandria-tests)))) - nil) - (defmethod perform ((o test-op) (c (eql (find-system :alexandria-tests)))) (flet ((run-tests (&rest args) (apply (intern (string '#:run-tests) '#:alexandria-tests) args))) (run-tests :compiled nil) - (run-tests :compiled t))) \ No newline at end of file + (run-tests :compiled t))) diff --git a/alexandria.asd b/alexandria.asd index 40f26771ebb5612dd8803fc3d93d0898c3893e38..045c360e8f22beef7a421dff7cbb5be54cdf9d37 100644 --- a/alexandria.asd +++ b/alexandria.asd @@ -65,4 +65,4 @@ the following constraints: (defmethod perform ((o test-op) (c (eql (find-system :alexandria)))) (operate 'load-op :alexandria-tests) - (operate 'test-op :alexandria-tests)) \ No newline at end of file + (operate 'test-op :alexandria-tests))