From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 25 Mar 2003 16:48:43 +0000 (+0000)
Subject: (byte-optimize-set): Avoid CLism.
X-Git-Tag: ttn-vms-21-2-B4~10752
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e64e9e6a7f8328e448f85debe51cf49d14e1fd1e;p=emacs.git

(byte-optimize-set): Avoid CLism.
---

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