From 1dfa8f4354793fe0925ef4d7f3a85e2823982bba Mon Sep 17 00:00:00 2001
From: Andreas Fuglesteg Dale <andreasfdale@gmail.com>
Date: Mon, 25 Mar 2024 22:57:30 +0100
Subject: [PATCH] Add :micros keyword to *features*

---
 micros.asd  | 2 ++
 micros.lisp | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/micros.asd b/micros.asd
index aeb5d87..7ddba53 100644
--- a/micros.asd
+++ b/micros.asd
@@ -2,6 +2,8 @@
   :depends-on ()
   :version "0.0.0"
   :serial t
+  :perform (load-op :after (o c)
+                    (uiop:symbol-call :micros :before-init))
   :components ((:file "packages")
                (:module "sbcl"
                 :pathname "backend"
diff --git a/micros.lisp b/micros.lisp
index 449d12b..355b619 100644
--- a/micros.lisp
+++ b/micros.lisp
@@ -83,6 +83,10 @@ include some arbitrary initial value like NIL."
 ;;; simple indirection. The interface is more CLish than the Emacs
 ;;; Lisp one.
 
+(defun before-init ()
+  "Is run when the system is loaded, see micros.asd"
+  (pushnew :micros *features*))
+
 (defmacro add-hook (place function)
   "Add FUNCTION to the list of values on PLACE."
   `(pushnew ,function ,place))