diff options
| author | Stefan Monnier | 2003-03-25 16:48:43 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-03-25 16:48:43 +0000 |
| commit | e64e9e6a7f8328e448f85debe51cf49d14e1fd1e (patch) | |
| tree | 0e6ea0cccdbef0d5f14b2858bad1a01a9071aab3 | |
| parent | 66ff2893073b0741ea2a0ccfc58ae585d36be87a (diff) | |
| download | emacs-e64e9e6a7f8328e448f85debe51cf49d14e1fd1e.tar.gz emacs-e64e9e6a7f8328e448f85debe51cf49d14e1fd1e.zip | |
(byte-optimize-set): Avoid CLism.
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 @@ | |||
| 1174 | (let ((var (car-safe (cdr-safe form)))) | 1174 | (let ((var (car-safe (cdr-safe form)))) |
| 1175 | (cond | 1175 | (cond |
| 1176 | ((and (eq (car-safe var) 'quote) (consp (cdr var))) | 1176 | ((and (eq (car-safe var) 'quote) (consp (cdr var))) |
| 1177 | (list* 'setq (cadr var) (cddr form))) | 1177 | `(setq ,(cadr var) ,@(cddr form))) |
| 1178 | ((and (eq (car-safe var) 'make-local-variable) | 1178 | ((and (eq (car-safe var) 'make-local-variable) |
| 1179 | (eq (car-safe (setq var (car-safe (cdr var)))) 'quote) | 1179 | (eq (car-safe (setq var (car-safe (cdr var)))) 'quote) |
| 1180 | (consp (cdr var))) | 1180 | (consp (cdr var))) |