common-lisp - 获取asdf以加载目录中的所有文件

Question

有没有一种方法可以让 asdf 加载目录中的所有文件 (*.lisp) 而无需在我的 .asd 文件中全部命名它们？在目录或文件名规范中使用通配符不起作用。有人可以帮忙吗？

Answer 1

见 DIRECTORY :

 CL-USER> (directory "*.lisp")
 => ("a.lisp"
     "b.lisp"
     ...)

然后，调用LOAD每个文件。

但是，你也可以这样做:

CL-USER> (loop for f in * collect `(:file ,(pathname-name f)))
((:file "a") (:file "b"))

然后，您可以将其复制到您的 .asd 文件中，以便您的依赖关系更加明确。