Mercurial > hg > xemacs-beta

comparison lisp/cl-extra.el @ 259:11cf20601dec r20-5b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b28
author cvs
date Mon, 13 Aug 2007 10:23:02 +0200
parents 0e522484dd2a
children c5d627a313b1
comparison
equal deleted inserted replaced
258:58424f6abf56 259:11cf20601dec
96 (cond ((eq x y) t) 96 (cond ((eq x y) t)
97 ((stringp x) 97 ((stringp x)
98 (and (stringp y) (= (length x) (length y)) 98 (and (stringp y) (= (length x) (length y))
99 (or (string-equal x y) 99 (or (string-equal x y)
100 (string-equal (downcase x) (downcase y))))) ; lazy but simple! 100 (string-equal (downcase x) (downcase y))))) ; lazy but simple!
101 ((characterp x)
102 (and (characterp y)
103 (or (char-equal x y)
104 (char-equal (downcase x) (downcase y)))))
101 ((numberp x) 105 ((numberp x)
102 (and (numberp y) (= x y))) 106 (and (numberp y) (= x y)))
103 ((consp x) 107 ((consp x)
104 ;; XEmacs change 108 ;; XEmacs change
105 (while (and (consp x) (consp y) (equalp (cl-pop x) (cl-pop y)))) 109 (while (and (consp x) (consp y) (equalp (cl-pop x) (cl-pop y))))