Определите функцию, которая возвращает в качестве значения свой вызов - Lisp

Формулировка задачи:

Определите функцию, которая возвращает в качестве значения свой вызов. Как это сделать?

Решение задачи: «Определите функцию, которая возвращает в качестве значения свой вызов»

Листинг программы

(defmacro self (&whole w &rest x) `(quote ,w))
 
==> self
 
(self 1 2 3)
 
==> (self 1 2 3)
 
(self d)
 
==> (self d)

Объяснение кода листинга программы

В коде определена макрофункция SELF, которая принимает два аргумента: &whole и &rest. Первый аргумент &whole — это результат вызова функции, второй аргумент &rest — это список аргументов функции. В данном случае макрофункция SELF просто возвращает результат вызова функции в кавычках. Ниже приведены примеры вызова макрофункции SELF с различными аргументами: — (self 1 2 3) возвращает (self 1 2 3) — (self d) возвращает (self d)