From 65ba67e8c0475d809f1e2406356ba94ed3a8a0af Mon Sep 17 00:00:00 2001
From: "Thomas M. Hermann" <thomas.m.hermann@odonata-research.com>
Date: Sat, 9 Jan 2016 11:20:16 -0600
Subject: [PATCH] Only add LISP-UNIT to *FEATURES* when loaded with ASDF.

---
 lisp-unit.asd  | 5 +++++
 lisp-unit.lisp | 2 --
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp-unit.asd b/lisp-unit.asd
index 06a64bc..e8ff7b9 100644
--- a/lisp-unit.asd
+++ b/lisp-unit.asd
@@ -36,3 +36,8 @@
     :components ((:file "rational")
                  (:file "floating-point")
                  (:file "test-anything-protocol")))))
+
+(defmethod perform :after
+  ((operation load-op) (system (eql (find-system :lisp-unit))))
+  "Update *FEATURES* if the system loads successfully."
+  (pushnew :lisp-unit common-lisp:*features*))
diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index a37dad3..7e552e5 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -1037,5 +1037,3 @@ vice versa."
    (listp list2)
    (apply #'subsetp list1 list2 initargs)
    (apply #'subsetp list2 list1 initargs)))
-
-(pushnew :lisp-unit common-lisp:*features*)
-- 
2.11.4.GIT