From: Stefan Monnier Date: Sat, 9 Sep 2023 02:17:43 +0000 (-0400) Subject: * lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause): Fix bug#65833 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4785a63ab71ad5a30d6e148221fae39559fdd79d;p=emacs.git * lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause): Fix bug#65833 For some reason the intervals case failed to push the var to `loop-for-bindings` before pushing to `loop-for-sets`. AFAICT this was the only place where we made that mistake. --- diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 32a266aa26a..c8e2610c8b0 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -1465,6 +1465,7 @@ For more details, see Info node `(cl)Loop Facility'. (t (setq buf (cl--pop2 cl--loop-args))))) (if (and (consp var) (symbolp (car var)) (symbolp (cdr var))) (setq var1 (car var) var2 (cdr var)) + (push (list var nil) loop-for-bindings) (push (list var `(cons ,var1 ,var2)) loop-for-sets)) (cl--loop-set-iterator-function 'intervals (lambda (body)