From 843fb8a2458d2e803c8f6db2fecc3f7ecc7814e4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Sun, 15 Mar 2026 20:20:45 +0100
Subject: [PATCH] [wip] hack module accessors into core runtime

---
 src/lsp/module.lsp | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/src/lsp/module.lsp b/src/lsp/module.lsp
index ad816fd3f..fa04386fb 100644
--- a/src/lsp/module.lsp
+++ b/src/lsp/module.lsp
@@ -14,6 +14,30 @@
 
 (in-package "SYSTEM")
 
+;;; system modules
+(defun list-modules ()
+  (ffi:c-inline () ()
+                :object "ecl_core.modules"
+                :side-effects nil :one-liner t))
+
+(defun module-name (module)
+  (check-type module module)
+  (ffi:c-inline (module) (:object)
+                :object "#0->module.name"
+                :side-effects nil :one-liner t))
+
+(defun module-enable (module)
+  (check-type module module)
+  (ffi:c-inline (module) (:object)
+                :object "#0->module.enable()"
+                :side-effects t :one-liner t))
+
+(defun module-disable (module)
+  (check-type module module)
+  (ffi:c-inline (module) (:object)
+                :object "#0->module.disable()"
+                :side-effects t :one-liner t))
+
 ;;;; exported specials
 
 (defparameter *modules* ()