From e64e9e6a7f8328e448f85debe51cf49d14e1fd1e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 25 Mar 2003 16:48:43 +0000 Subject: [PATCH] (byte-optimize-set): Avoid CLism. --- lisp/emacs-lisp/byte-opt.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 7aa34cff6bc..c02e8b02dea 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -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))) -- 2.39.2