mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(byte-optimize-set): Avoid CLism.

Browse source
This commit is contained in:
Stefan Monnier 2003-03-25 16:48:43 +00:00
parent 66ff289307
commit e64e9e6a7f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/byte-opt.el
View file

@ -1174,7 +1174,7 @@
(let ((var (car-safe (cdr-safe form)))) (let ((var (car-safe (cdr-safe form))))
(cond (cond
((and (eq (car-safe var) 'quote) (consp (cdr var))) ((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) ((and (eq (car-safe var) 'make-local-variable)
(eq (car-safe (setq var (car-safe (cdr var)))) 'quote) (eq (car-safe (setq var (car-safe (cdr var)))) 'quote)
(consp (cdr var))) (consp (cdr var)))