Mercurial > hg > xemacs-beta

comparison lisp/cl-extra.el @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 11cf20601dec
children 558f606b08ae
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
87 87
88 88
89 ;;; Predicates. 89 ;;; Predicates.
90 90
91 (defun equalp (x y) 91 (defun equalp (x y)
92 "T if two Lisp objects have similar structures and contents. 92 "Return t if two Lisp objects have similar structures and contents.
93 This is like `equal', except that it accepts numerically equal 93 This is like `equal', except that it accepts numerically equal
94 numbers of different types (float vs. integer), and also compares 94 numbers of different types (float vs. integer), and also compares
95 strings case-insensitively." 95 strings case-insensitively."
96 (cond ((eq x y) t) 96 (cond ((eq x y) t)
97 ((stringp x) 97 ((stringp x)