diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-05 22:53:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-05 22:53:55 +0000 |
| commit | e5b633cf7069d36270db72b9eda82bd9dff22b38 (patch) | |
| tree | c703a0577f70e329dcbc291f9aad0fb72788a9ce /lisp/emacs-lisp/cl-extra.el | |
| parent | 178047284a939844b972140cba7fdc4eb1d11e79 (diff) | |
| download | emacs-e5b633cf7069d36270db72b9eda82bd9dff22b38.tar.gz | |
(equalp): Correctly compare last elt of two lists.
Diffstat (limited to 'lisp/emacs-lisp/cl-extra.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 3 |
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)) |