Replace runtime CL function, as flagged by the compiler.

* lisp/textmodes/flyspell.el (flyspell-word-search-backward):
Replace CL function.

lisp/ChangeLog

+2011-07-01  Glenn Morris  <rgm@gnu.org>
+
+	* textmodes/flyspell.el (flyspell-word-search-backward):
+	Replace CL function.
+
 2011-07-01  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* mouse.el (mouse--strip-first-event): New function.

lisp/textmodes/flyspell.el

@@ -1002,7 +1002,7 @@ Mostly we check word delimiters."
 	(let ((lw (flyspell-get-word)))
 	  (if (and (consp lw)
 		   (if ignore-case
-		       (equalp (car lw) word)
+		       (string-equal (downcase (car lw)) (downcase word))
 		     (string-equal (car lw) word)))
 	      (setq r p)
 	    (goto-char p))))