[nongnu] externals/sly afedabc 26/47: abcl: fix inspector for Java methods and fields

[ELPA Syncer]

branch: externals/sly
commit afedabc2f623c0fab94e2e3f61d57b1b713a16e9
Author: Mark <evenson.not....@gmail.com>
Commit: João Távora <joaotav...@gmail.com>

    abcl: fix inspector for Java methods and fields
    
    Alan had implemented a :STRONG-VALUE hint for prettifying the
    inspector labels, but that hasn't been accepted into the generalize
    SLIME at this point.
    
    * slynk/backend/abcl.lisp: Fix.
    
    Co-authored-by: João Távora <joaotav...@gmail.com>
    Cherry-picked-from: SLIME commit ff0608306c9fbfac61db6b99930263f9a6b67e4e
---
 slynk/backend/abcl.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/slynk/backend/abcl.lisp b/slynk/backend/abcl.lisp
index c1e4c33..0750b5a 100644
--- a/slynk/backend/abcl.lisp
+++ b/slynk/backend/abcl.lisp
@@ -1288,7 +1288,7 @@
                             (1+ (position #\. (jcall "toString" this)  
:from-end t)))
           collect "  "
           collect (list :value this pre)
-          collect (list :strong-value this (jcall "getName" this) )
+          collect (list :value this (jcall "getName" this) )
           collect '(:newline))))
 
 (defun inspector-java-methods (class)
@@ -1312,7 +1312,7 @@
           for after = (subseq desc paren)
           collect "  "
           collect (list :value this pre)
-          collect (list :strong-value this name)
+          collect (list :value this name)
           collect (list :value this after)
           collect '(:newline))))