From eecd5dc06db9c13e17648416dbe3cd19ba7c8bd5 Mon Sep 17 00:00:00 2001
From: Akihide Nano <an74abc@gmail.com>
Date: Tue, 15 May 2018 17:48:35 +0900
Subject: [PATCH] modify test-system

---
 cl-annot-test.asd | 7 ++++++-
 cl-annot.asd      | 3 ++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/cl-annot-test.asd b/cl-annot-test.asd
index 67537e4..222ee4f 100644
--- a/cl-annot-test.asd
+++ b/cl-annot-test.asd
@@ -9,4 +9,9 @@
   :depends-on (:cl-test-more :cl-annot)
   :components ((:module "t"
                 :serial t
-                :components ((:file "annot")))))
+                :components ((:file "annot"))))
+  :defsystem-depends-on (:cl-test-more)
+  :perform (test-op :after (op c)
+		    (funcall (intern #.(string :run-test-system) :cl-test-more)
+			     c)
+		    (asdf:clear-system c)))
diff --git a/cl-annot.asd b/cl-annot.asd
index bbade60..8f9a807 100644
--- a/cl-annot.asd
+++ b/cl-annot.asd
@@ -27,4 +27,5 @@
                                            (:file "eval-when")
                                            (:file "doc")
                                            (:file "class")
-                                           (:file "slot")))))))
+                                           (:file "slot"))))))
+  :in-order-to ((test-op (test-op cl-annot-test))))