我可以懒惰地加载swank吗？

Question

下面的代码可以工作，但我必须加载swank，不管我是否需要它。

(ql:quickload :swank)
(defun swank ()
    (swank:create-server :port 4005 :donot-close t))

如果我将"(ql:quickload : swank )“移到函数swank中，那么CL将找不到包swank。

真心的！

Answer 1

记住，阅读在CL中是一个独立的阶段。首先读取一个表单，然后执行它。当阅读器读取DEFUN表单时，它无法识别SWANK:CREATE-SERVER符号，因为在这一点上，QL:QUICKLOAD还没有被执行。解决方案是使用INTERN。

(defun swank ()
  (ql:quickload :swank)  
  (funcall (intern (string '#:create-server) :swank) :port 4005 :dont-close t))