[nongnu] elpa/sly f30f8b9ea6 1/2: Fix #542: abcl: fix typo broke struct inspection

[ELPA Syncer]

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

    Fix #542: abcl: fix typo broke struct inspection
    
    * slynk/backend/abcl.lisp
    (parts-for-structure-def-slot): dsdreader -> dsd-reader
---
 slynk/backend/abcl.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/slynk/backend/abcl.lisp b/slynk/backend/abcl.lisp
index 2c99fa6804..4c4bf6bb8c 100644
--- a/slynk/backend/abcl.lisp
+++ b/slynk/backend/abcl.lisp
@@ -1384,7 +1384,9 @@ LIST is destructively modified."
                   collect '(:newline)))))))
 
 (defun parts-for-structure-def-slot (def)
-  `((:label ,(string-downcase (sys::dsd-name def))) " reader: " (:value 
,(sys::dsd-reader def) ,(string-downcase (string (sys::dsdreader def))))
+  `((:label ,(string-downcase (sys::dsd-name def))) 
+    " reader: " (:value ,(sys::dsd-reader def) 
+                        ,(string-downcase (string (sys::dsd-reader def))))
     ", index: " (:value ,(sys::dsd-index def))
     ,@(if (sys::dsd-initform def)
           `(", initform: " (:value ,(sys::dsd-initform def))))