common-lisp - 重新定义内置函数

Question

我将如何重新定义内置函数，同时以不同的名称保留对旧函数的引用？

即与 SBCL

(unlock-package 'common-lisp)
(defun old+ (a b) ??????
(defun + (a b) (old+ a b))

我正在将代码移植到没有浮点数据类型的 LISP 实现中。所以我想重新定义数学运算以使用固定整数数学。

我想我也可以通过搜索和替换来解决这个问题:)

Answer 1

要回答您的具体问题：

(defconstant +old-plus+ (fdefinition '+))
(defun + (&rest args) (apply +old-plus+ args))

请注意，如果您再次对此进行评估（例如，通过重新加载包含此代码的文件），您可能会遇到问题：+old-plus+可能会被静默地重新定义为新的+（或者您可能会收到错误，或者您可能会收到警告）并且您将失去原来的+定义。

因此，似乎更好的方法是创建一个新包，其中所有符号都从其中导入，CL除了+阴影之外，然后使用该包而不是CL（未经测试）：

(rename-package "COMMON-LISP" "COMMON-LISP-ORIGINAL")
(make-package "COMMON-LISP")
(use-package "COMMON-LISP-ORIGINAL" "COMMON-LISP")
(shadow "+" "COMMON-LISP")
(do-external-symbols (s "COMMON-LISP-ORIGINAL")
  (export (find-symbol (symbol-name s)) "COMMON-LISP"))
(defun common-lisp::+ (&rest args) (apply #'common-lisp-original:+ args))

现在您应该能够处理代码了。

请注意，您不应两次加载上述代码，因为如果您加载rename-package到现有的"COMMON-LISP-ORIGINAL".