Re: bug report: cl-extra version 2.02, equalp
The following message is a courtesy copy of an article
that has been posted to gnu.emacs.bug as well.
[ For xemacs-beta folk: equalp is broken in XEmacs;
(equalp '(1 2) '(1 3)) returns t ]
daveg(a)synaptics.com (Dave Gillespie) writes:
No, the correct code is this:
((consp x)
(while (and (consp x) (consp y) (equalp (car x) (car y)))
(cl-pop x) (cl-pop y))
(and (not (consp x)) (equalp x y)))
BTW, I don't know what the "XEmacs change" comment refers to,
since the lines that follow it are unchanged from my original
code as far as I can tell.
The comment probably refers to those lines being different to what is
in FSF Emacs. I'll apply your fix to XEmacs source; thanks.