macros - Common Lisp 初学者 : Macro Question For Defining Packages on the Fly

Question

仍在努力了解有关宏的最佳实践。我正在尝试编写一个动态定义包的宏。

(defmacro def-dynamic-package (name)
  `(defpackage ,(intern (string-upcase name) "KEYWORD")
     (:use :common-lisp)))

这仅适用于以下表达式:

(def-dynamic-package "helloworld")

但是因为这样的事情惨遭失败:

(defun make-package-from-path (path)
  (def-dynamic-package (pathname-name path)))

或

(defun make-package-from-path (path)
  (let ((filename (pathname-path)))
     (def-dynamic-package filename)))

我了解大多数基本宏的工作原理，但我不知道如何实现这个宏。

Answer 1

defpackage 是一个宏。因此，它在编译时扩展，而不是运行时。您想要的是在运行时调用以制作新包的东西。因此，defpackage 不能为您做任何事情。

幸运的是，还有 make-package ，它将defpackage 的特性作为函数提供。使用它代替 defpackage。