diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-12 17:59:22 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-12 17:59:22 +0200 |
commit | 451eeb512dbfb5ccd4e75eca696a5d4143fec646 (patch) | |
tree | 70af1b22d7ab24ac507ae2329b485d61907d66f6 /lisp/emacs-lisp | |
parent | a987e66e6ba014795ba4540c5fedeb9894bdd94e (diff) | |
download | emacs-451eeb512dbfb5ccd4e75eca696a5d4143fec646.tar.gz emacs-451eeb512dbfb5ccd4e75eca696a5d4143fec646.tar.bz2 emacs-451eeb512dbfb5ccd4e75eca696a5d4143fec646.zip |
Fix eager macroexpansion cycle in cl-once-only
* lisp/emacs-lisp/cl-macs.el (cl-once-only): Use different cl-loop
syntax, with no functional change, but such that the loop does not
expand into cl-psetq.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index af8855516ca..364b5120a0a 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2473,11 +2473,11 @@ See also `macroexp-let2'." ;; We require this explicit call to `list' rather than using ;; (,,@(cl-loop ...)) due to a limitation of Elisp's backquote. `(let ,(list - ,@(cl-loop for name in names and gensym in our-gensyms + ,@(cl-loop for name in names for gensym in our-gensyms for to-eval = (or (cadr name) (car name)) collect ``(,,gensym ,,to-eval))) ;; During macroexpansion, bind each NAME to its gensym. - ,(let ,(cl-loop for name in names and gensym in our-gensyms + ,(let ,(cl-loop for name in names for gensym in our-gensyms collect `(,(car name) ,gensym)) ,@body))))) |