procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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