(equalp): Use string-equal on strings.

76f61009 · Erik Naggum · 24a31d57 · 76f61009
Commit 76f61009 authored Mar 08, 1996 by Erik Naggum
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/emacs-lisp/cl-extra.el lisp/emacs-lisp/cl-extra.el +2 -2

No files found.
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -84,8 +84,8 @@ strings case-insensitively."
  (cond ((eq x y) t)
 	((stringp x)
 	 (and (stringp y) (= (length x) (length y))
-	      (or (equal x y)
-		  (equal (downcase x) (downcase y)))))   ; lazy but simple!
+	      (or (string-equal x y)
+		  (string-equal (downcase x) (downcase y)))))   ; lazy but simple!
 	((numberp x)
 	 (and (numberp y) (= x y)))
 	((consp x)