(equalp): Correctly compare last elt of two lists.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index ac6ba7f630a..a9201444b0d 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -89,7 +89,8 @@ strings case-insensitively."
         ((numberp x)
          (and (numberp y) (= x y)))
         ((consp x)
-         (while (and (consp x) (consp y) (equalp (cl-pop x) (cl-pop y))))
+         (while (and (consp x) (consp y) (equalp (car x) (car y)))
+           (setq x (cdr x) y (cdr y)))
          (and (not (consp x)) (equalp x y)))
         ((vectorp x)
          (and (vectorp y) (= (length x) (length y))