Po co cytować pojedynczy argument i przecinek? (cytat, arg)

(quote x)marki nie X będzie oceniana, ale dodanie ,przed xwewnątrz quotesprawia, że oceniany. Co to jest to punkt korzystania cytat z pojedynczym argumentem przecinkiem przed nim tak: (quote ,x)?

Motywowany linią 59 od irytujących strzał :

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

Dlaczego nie jest (put cmd 'aa-alts ,alternatives)równie dobry?

Przecinek jest używany w kontekście backquoted (aka quasiquoted) listy, co pozwala ocenić pewne fragmenty listy wybiórczo. Zobacz także ten wątek, aby zobaczyć przykład zastosowania cofania cudzysłowu.

Kilka prostych przykładów:

(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")

Przecinki, do których się odwołujesz, są w definicji makra, która z kolei używa cudzysłowu 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))))))

,cmdw cudzysłowie pozwala wstawić wartość cmdzamiast na symbol cmd.

To dlatego, że jest w makrze. Makro musi zwrócić formularz Lisp, który z kolei podlega ocenie.

Na przykład, patrząc na pierwsze wywołanie tego makra:

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

Potrzebujemy rozszerzenia zawierającego:

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

co (quote ,cmd)osiąga. Jeśli makro użyłoby cmdzamiast tego zwykłego , byłoby trzymane dosłownie, a rozwinięcie wyglądałoby następująco:

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

co jest błędem, ponieważ cmdnie jest zdefiniowane w środowisku, w którym makro jest wywoływane.