# HG changeset patch
# User Erik Naggum <erik@naggum.no>
# Date 826309812 0
# Node ID c3a2cabb73efc78b74072df57cc04aa25f5e84df
# Parent  d3a70cd8d181a750c500245b6850075c2f473261
(equalp): Use string-equal on strings.

diff -r d3a70cd8d181 -r c3a2cabb73ef lisp/emacs-lisp/cl-extra.el
--- a/lisp/emacs-lisp/cl-extra.el	Fri Mar 08 18:27:37 1996 +0000
+++ b/lisp/emacs-lisp/cl-extra.el	Fri Mar 08 18:30:12 1996 +0000
@@ -84,8 +84,8 @@
   (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)