Merge pull request #13 from Fuglesteg/feature/add-micros-to-features

Add :micros keyword to *features*
lem-project · May 27, 2024 · 4b1f3ca · 4b1f3ca
2 parents f80d777 + 1dfa8f4
commit 4b1f3ca
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git 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
@@ -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))