Commit e64e9e6a authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(byte-optimize-set): Avoid CLism.

parent 66ff2893
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment