lisp - 如何在 defun 中 defun 一个函数？

Question

比如我把函数名传给另一个函数

(personal-function 'func-name '(attr1 attr2 ...))

我想做的是

(defun personal-function (func-name)
     (defun func-name '(attr1 attr2 ...) (dosomething)))

但是，它说我不能用符号defun...我该怎么办？

Answer 1

使用

(setf (symbol-function my-symbol) some-function)

创建一个新函数

(compile nil (list 'lambda args body))

其中 args 和 body 具有有意义的值。