# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 826066435 0
# Node ID 624d5547a6d64595a8188a8011d2a076889a6a15
# Parent  bef2b46521de857fa0880983e1dfb0b17e50217f
(equalp): Correctly compare last elt of two lists.

diff -r bef2b46521de -r 624d5547a6d6 lisp/emacs-lisp/cl-extra.el
--- a/lisp/emacs-lisp/cl-extra.el	Tue Mar 05 22:04:03 1996 +0000
+++ b/lisp/emacs-lisp/cl-extra.el	Tue Mar 05 22:53:55 1996 +0000
@@ -89,7 +89,8 @@
 	((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))