Який сенс цитати з одним аргументом і комою? (цитата, аргумент)

(quote x)становить не х бути оцінені, але з додаванням ,перед xвсередині quoteробить його оцінювали. У чому тоді сенс використання цитати з одним аргументом із комою перед ним, як-от так (quote ,x):?

Мотивовано рядком 59 від дратівливих стрілок :

(put (quote ,cmd) 'aa--alts ,alternatives)

Чому не (put cmd 'aa-alts ,alternatives)однаково добре?

Кома застосовується в контексті списку, що цитується назад (він же квазіцитований), що дозволяє вибірково оцінювати деякі частини списку. Дивіться також цю нитку для прикладу використання для зворотного кодування.

Кілька простих прикладів:

(setq a "a's value" b "b's value" c "c's value")
'(a  b  c)                              ; => (a b c)
`(,a b ,c)                              ; => ("a's value" b "c's value")

Коми, на які ви посилаєтеся, містяться у макрозначенні, яке, у свою чергу, використовує зворотне котирування progn:

(defmacro add-annoying-arrows-advice (cmd alternatives)
  `(progn
     (add-to-list 'annoying-commands (quote ,cmd))
     (put (quote ,cmd) 'aa--alts ,alternatives)
     (defadvice ,cmd (before annoying-arrows activate)
       (when annoying-arrows-mode
         (aa--maybe-complain (quote ,cmd))))))

,cmdу зворотному котируванні можна поставити значення cmdзамість символу cmd.

Це тому, що це всередині макросу. Макросу потрібно повернути форму Lisp, яка згодом оцінюється.

Наприклад, переглядаючи перше виклик цього макросу:

(add-annoying-arrows-advice previous-line '(ace-jump-mode backward-paragraph isearch-backward ido-imenu smart-up))

Нам потрібно розширення, щоб містити:

(put 'previous-line 'aa-alts '(ace-jump-mode backward-paragraph isearch-backward ido-imenu smart-up))

що саме (quote ,cmd)досягає. Якщо cmdзамість макроса використовувати звичайний , він зберігається буквально, і розширення буде таким:

(put cmd 'aa-alts '(ace-jump-mode backward-paragraph isearch-backward ido-imenu smart-up))

що є помилкою, оскільки cmdне визначено в середовищі, де викликається макрос.