Commit 76f61009 authored by Erik Naggum's avatar Erik Naggum
Browse files

(equalp): Use string-equal on strings.

parent 24a31d57
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment