diff options
| author | Tino Calancha | 2020-02-05 19:05:23 +0100 |
|---|---|---|
| committer | Tino Calancha | 2020-02-05 19:05:23 +0100 |
| commit | ebff24c0b8fa54854fe8445f2eba1d99fb76ecf2 (patch) | |
| tree | 9516e728b939d8667b8c7e0caf68b716d73606d1 | |
| parent | 0609dd481a3f6d0dfa598666d8068fa7e8c9d2f2 (diff) | |
| download | emacs-ebff24c0b8fa54854fe8445f2eba1d99fb76ecf2.tar.gz emacs-ebff24c0b8fa54854fe8445f2eba1d99fb76ecf2.zip | |
Eval macro arg just once
* lisp/emacs-lisp/cl-macs.el (cl--push-clause-loop-body):
Use `macroexp-let2' (Bug#39428).
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 9d0fd15bc3d..4c2f58907de 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -1037,9 +1037,10 @@ For more details, see Info node `(cl)Loop Facility'. | |||
| 1037 | 1037 | ||
| 1038 | (defmacro cl--push-clause-loop-body (clause) | 1038 | (defmacro cl--push-clause-loop-body (clause) |
| 1039 | "Apply CLAUSE to both `cl--loop-conditions' and `cl--loop-body'." | 1039 | "Apply CLAUSE to both `cl--loop-conditions' and `cl--loop-body'." |
| 1040 | `(progn | 1040 | (macroexp-let2 nil sym clause |
| 1041 | (push ,clause cl--loop-conditions) | 1041 | `(progn |
| 1042 | (push ,clause cl--loop-body))) | 1042 | (push ,sym cl--loop-conditions) |
| 1043 | (push ,sym cl--loop-body)))) | ||
| 1043 | 1044 | ||
| 1044 | ;; Below is a complete spec for cl-loop, in several parts that correspond | 1045 | ;; Below is a complete spec for cl-loop, in several parts that correspond |
| 1045 | ;; to the syntax given in CLtL2. The specs do more than specify where | 1046 | ;; to the syntax given in CLtL2. The specs do more than specify where |