From 2d58c7a588ca9ce92c0ce6cc4e3a758dff1da980 Mon Sep 17 00:00:00 2001 From: Attila Lendvai <attila@lendvai.name> Date: Thu, 27 Oct 2016 16:43:48 +0200 Subject: [PATCH] Modernize .asd: get rid of operation-done-p. --- alexandria-tests.asd | 6 +----- alexandria.asd | 2 +- 2 files changed, 2 insertions(+), 6 deletions(-) diff --git a/alexandria-tests.asd b/alexandria-tests.asd index 6eb8e3a..8631769 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 40f2677..045c360 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)) -- GitLab