mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1996-03-05 22:53:55 +00:00
parent 178047284a
commit e5b633cf70
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/emacs-lisp/cl-extra.el
View File

@ -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))