diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-02-14 23:22:10 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-02-14 23:22:10 +0100 |
| commit | f1bc8e480cc9d4a81826b344cac06d0bad88e21e (patch) | |
| tree | 6d66f34a81e5ea992838b4c56b03a79787ecd5db /lisp/emacs-lisp/cl-macs.el | |
| parent | d71801ea34b0607edd02d65e2b3150ecd7c2e8fc (diff) | |
| parent | 333cc6a037e3b3300ba69ea361de1f8233c50b48 (diff) | |
| download | emacs-f1bc8e480cc9d4a81826b344cac06d0bad88e21e.tar.gz emacs-f1bc8e480cc9d4a81826b344cac06d0bad88e21e.tar.bz2 emacs-f1bc8e480cc9d4a81826b344cac06d0bad88e21e.zip | |
Merge remote-tracking branch 'savannah/master' into HEAD
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -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'. (defmacro cl--push-clause-loop-body (clause) "Apply CLAUSE to both `cl--loop-conditions' and `cl--loop-body'." - `(progn - (push ,clause cl--loop-conditions) - (push ,clause cl--loop-body))) + (macroexp-let2 nil sym clause + `(progn + (push ,sym cl--loop-conditions) + (push ,sym cl--loop-body)))) ;; Below is a complete spec for cl-loop, in several parts that correspond ;; to the syntax given in CLtL2. The specs do more than specify where |