【问题标题】：Defining aliases to standard Common Lisp functions?定义标准 Common Lisp 函数的别名？
【发布时间】：2014-08-06 19:12:37
【问题描述】：

据说 Lisp 可以重新定义其核心功能。我想给函数cl:documentation函数定义一个别名，这样

(doc 'write 'function) === (documentation 'write 'function)

如何在 SBCL 中完成并使其永久化？

【问题讨论】：

【解决方案1】：

创建别名

您不是在尝试redefine（即更改定义）系统函数documentation，而是想用更短的名称定义您自己的函数，这将与系统函数执行相同的操作。

这可以使用fdefinition：

 (setf (fdefinition 'doc) #'documentation)

如何在 common lisp 中使您的更改“永久”

没有标准的方式，不同的实现方式可能会有所不同，但一般来说，有两种常见的方式。

每次 lisp 启动时都会重新评估相关代码。

修改后的 lisp 世界保存到磁盘。

【讨论】：

请注意，初始化文件和图像保存不是 Common Lisp 的一部分；这些是实现扩展。（非常常见和有用，所以这里的建议很好，但标准没有规定，所以每个实现可能，例如，为它们的 init 文件使用不同的名称，使用不同的函数来保存图像等）跨度>
感谢您改进初始答案！ :)

【解决方案2】：

尽管@sds 已经回答得相当彻底，但我只想补充一点，实用程序库 serapeum 有 defalias

【讨论】：

【解决方案3】：

我为此使用了一个简单的宏：

(defmacro alias (to fn)
    `(setf (fdefinition ',to) #',fn))

例如

(alias neg -) => #<Compiled-function ... >

(neg 10) => -10

其他答案包括有关如何使其永久化的详细信息。

【讨论】：