Re: bug report: cl-extra version 2.02, equalp

Wednesday, 14 April 1999

        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.

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998