Fix #542: abcl: fix getting struct name

* slynk/backend/abcl.lisp (emacs-inspect): Use CLASS-NAME, not JSS::GET-JAVA-FIELD
joaotavora · Nov 8, 2022 · 992e3f3 · 992e3f3
1 parent f30f8b9
commit 992e3f3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)