From: Erik Naggum <erik@naggum.no>
Date: Fri, 8 Mar 1996 18:30:12 +0000 (+0000)
Subject: (equalp): Use string-equal on strings.
X-Git-Tag: emacs-19.34~1066
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76f61009c761a8944476cb2df7383358820ea4e2;p=emacs.git

(equalp): Use string-equal on strings.
---

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index a9201444b0d..6eadbdb4ca9 100644
--- 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)