[nongnu] elpa/slime 1100187e76 1/3: No string-equal-ignore-case on older Emacs.

[ELPA Syncer]

branch: elpa/slime
commit 1100187e763abc1d745d7f3d917121a7c785f466
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    No string-equal-ignore-case on older Emacs.
---
 contrib/slime-parse.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/contrib/slime-parse.el b/contrib/slime-parse.el
index 4d7e17924c..31d433fd1d 100644
--- a/contrib/slime-parse.el
+++ b/contrib/slime-parse.el
@@ -230,8 +230,9 @@ The pattern can have the form:
                           (symbol (slime-beginning-of-list)
                                   (let ((x (read (current-buffer))))
                                     (and (symbolp x)
-                                         (string-equal-ignore-case 
(symbol-name x)
-                                                                   
(symbol-name p)))))
+                                         (eq (compare-strings (symbol-name x) 
0 nil
+                                                              (symbol-name p) 
0 nil t)
+                                             t))))
                           (number (backward-up-list p)
                                   t)))))))