如何从其他 RESTAS 模块访问 RESTAS 子模块的上下文

Question

假设我在模块m1 中定义了一个动态变量*a*。然后我将模块 m1 安装在 m2 模块中：

(in-package m2)

(mount-module sub (#:m1)
   (m1:*a* 3))

我现在如何从模块 m2 中获取值 3？例如，目前，我必须以这样的方式破解它：

(restas:with-context
    (second (gethash 'm1
                     (gethash
                       :modules
                       (gethash (find-package :m2)
                                restas::*pkgmodules-traits*))))
    m1:*a*))

当然，这甚至不是一个好方法。

Answer 1

一个稍微好一点的解决方案如下：

(defmethod restas:module-context ((module symbol))
      (second (gethash module (restas::pkgmodule-traits-modules *package*))))

然后你可以用module-context访问模块的上下文，例如：

(with-context (module-context 'sub)
  m1:*a*)

或者更好：

(with-module 'sub
  m1:*a*)

请注意，您使用的是安装模块时使用的名称，而不是您安装的包的名称。

更新：我描述的方法已添加到 RESTAS。