diff options
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 4ea9398f93d..acb882dd9a3 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -520,7 +520,8 @@ | |||
| 520 | (symbolp (car-safe form)) | 520 | (symbolp (car-safe form)) |
| 521 | (get (car-safe form) 'cl-compiler-macro) | 521 | (get (car-safe form) 'cl-compiler-macro) |
| 522 | (not (eq form | 522 | (not (eq form |
| 523 | (setq form (compiler-macroexpand form))))) | 523 | (with-no-warnings |
| 524 | (setq form (compiler-macroexpand form)))))) | ||
| 524 | (byte-optimize-form form for-effect)) | 525 | (byte-optimize-form form for-effect)) |
| 525 | 526 | ||
| 526 | ((not (symbolp fn)) | 527 | ((not (symbolp fn)) |