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