From: Mattias Engdegård <mattiase@acm.org>
Date: Sat, 13 Apr 2024 15:43:34 +0000 (+0200)
Subject: ; * lisp/emacs-lisp/macroexp.el (macroexp--expand-all): less consing
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0141067a48a4dc070ce113893945498929ecf613;p=emacs.git

; * lisp/emacs-lisp/macroexp.el (macroexp--expand-all): less consing

(cherry picked from commit 616af565796f8c690dd9c7d1b2fa7607f2e2fa1e)
---

diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index b87b749dd76..bb4797cac8b 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -351,7 +351,7 @@ Assumes the caller has bound `macroexpand-all-environment'."
              (let ((default-tail nil)
                    (n 0)
                    (rest clauses))
-               (while rest
+               (while (cdr rest)
                  (let ((c (car-safe (car rest))))
                    (when (cond ((consp c) (and (memq (car c) '(quote function))
                                                (cadr c)))