[nongnu] externals/sly a0308b7 21/47: fix spurious detection of allegro modern-mode (#540)

[ELPA Syncer]

branch: externals/sly
commit a0308b7c225c76b7e78838cbdd8fa64bb5b61712
Author: The Gendl Project <44299268+ge...@users.noreply.github.com>
Commit: João Távora <joaotav...@gmail.com>

    fix spurious detection of allegro modern-mode (#540)
    
    * slynk/slynk-loader.lisp: Rework.
    
    Co-authored-by: João Távora <joaotav...@gmail.com>
    Cherry-picked-from: SLIME commit e1a640a92ee8e63cc2670ef0cc44673f0c0bad0a
---
 slynk/slynk-loader.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/slynk/slynk-loader.lisp b/slynk/slynk-loader.lisp
index 910a440..d2ffa6d 100644
--- a/slynk/slynk-loader.lisp
+++ b/slynk/slynk-loader.lisp
@@ -94,7 +94,7 @@
   #+lispworks (lisp-implementation-version)
   #+allegro   (format nil "~@{~a~}"
                       excl::*common-lisp-version-number*
-                      (if (eq 'h 'H) "A" "M")     ; ANSI vs MoDeRn
+                      (if (string= 'lisp "LISP") "A" "M")     ; ANSI vs MoDeRn
                       (if (member :smp *features*) "s" "")
                       (if (member :64bit *features*) "-64bit" "")
                       (excl:ics-target-case