# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1048610923 0
# Node ID 78b51ac98da0806cd0d28827368e757b0425ba14
# Parent  2f19a8ed285b58839a5521d77a8a74e3c0230ba7
(byte-optimize-set): Avoid CLism.

diff -r 2f19a8ed285b -r 78b51ac98da0 lisp/emacs-lisp/byte-opt.el
--- 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)))