Mercurial > emacs
changeset 14762:624d5547a6d6
(equalp): Correctly compare last elt of two lists.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 05 Mar 1996 22:53:55 +0000 |
| parents | bef2b46521de |
| children | 27bcf4090165 |
| files | lisp/emacs-lisp/cl-extra.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))