From f33297cadc5262ea81046830cfb5f24bc952179a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 5 Mar 1996 22:53:55 +0000 Subject: (equalp): Correctly compare last elt of two lists. --- lisp/emacs-lisp/cl-extra.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp') 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)) -- cgit v1.2.1