mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-17 10:10:47 -07:00
Code Issues Projects Releases Packages Wiki Activity

[wip] hack module accessors into core runtime

Browse source
This commit is contained in:
Daniel Kochmański 2026-03-15 20:20:45 +01:00
parent 8f909348f1
commit 843fb8a245
1 changed files with 24 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/lsp/module.lsp
View file

@ -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* ()