Mercurial > emacs
changeset 50307:78b51ac98da0
(byte-optimize-set): Avoid CLism.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 25 Mar 2003 16:48:43 +0000 |
| parents | 2f19a8ed285b |
| children | 98b393a28a2f |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Tue Mar 25 16:34:00 2003 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Tue Mar 25 16:48:43 2003 +0000 @@ -1174,7 +1174,7 @@ (let ((var (car-safe (cdr-safe form)))) (cond ((and (eq (car-safe var) 'quote) (consp (cdr var))) - (list* 'setq (cadr var) (cddr form))) + `(setq ,(cadr var) ,@(cddr form))) ((and (eq (car-safe var) 'make-local-variable) (eq (car-safe (setq var (car-safe (cdr var)))) 'quote) (consp (cdr var)))