запись доступ ко слот функции (кроме DEFUN)

Question

В defun макро «хранит» функция объект в функции слот символа, например:

(defun f() "Hello.")
Функция, которая печатает «Привет» теперь сохраняется в функциональном слоте символа f.
(И может быть получен через #'f.)

Есть ли другой способ (кроме defun) написать/«сохранить» функциональный объект в слоте функции символа?

Потому что что-то вроде (setf minus #'-) только сохранит функциональный объект в значение слот символа minus.

Answer 1

Есть ли другой способ (кроме defun) написать/«сохранить» объект функции в функциональном слоте символа?

Вы можете использовать symbol-function:

(setf (symbol-function 'f) (lambda() "Bye.")) 
(f) ; => "Bye." 
(defun g() "Hello again.") 
(setf (symbol-function 'f) (symbol-function 'g)) 
(f) ; => "Hello again." 

Другая возможность заключается в использовании fdefinition:

(setf (fdefinition 'f) (lambda() "Bye again.") 
(f) ; => "By again" 

Они почти эквивалентны. Основное различие заключается в том, что symbol-function требует аргумента, который должен быть быть символом, а fdefinition принимает имя функции, которое может быть также списком (см. glossary).