[nongnu] elpa/sly 992e3f3c1a 2/2: Fix #542: abcl: fix getting struct name

[ELPA Syncer]

branch: elpa/sly
commit 992e3f3c1a599a8a10af12323d547b35ce70362c
Author: Kasper Gałkowski <kpg@posteo.net>
Commit: João Távora <joaotavora@gmail.com>

    Fix #542: abcl: fix getting struct name
    
    * slynk/backend/abcl.lisp (emacs-inspect): Use CLASS-NAME, not 
JSS::GET-JAVA-FIELD
---
 slynk/backend/abcl.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/slynk/backend/abcl.lisp b/slynk/backend/abcl.lisp
index 4c4bf6bb8c..20569ea7a3 100644
--- a/slynk/backend/abcl.lisp
+++ b/slynk/backend/abcl.lisp
@@ -1359,7 +1359,7 @@ LIST is destructively modified."
         `("No slots available for inspection."))))
 
 (defmethod emacs-inspect ((object sys::structure-class))
-  (let* ((name (jss::get-java-field object "name" t))
+  (let* ((name (class-name object))
          (def (get name  'system::structure-definition)))
     `((:label "Class: ") (:value ,object) (:newline)
       (:label "Raw defstruct definition: ") (:value ,def  ,(let 
((*print-array* nil)) (prin1-to-string def))) (:newline)