[nongnu] externals/sly cd85cf6 35/47: Improve xref definitions for M-. in clasp

[ELPA Syncer]

branch: externals/sly
commit cd85cf6c5c5643cf55b30356dc77b80c5b38dd14
Author: Chris Schafmeister <meister@temple.edu>
Commit: João Távora <joaotavora@gmail.com>

    Improve xref definitions for M-. in clasp
    
    Print much nicer messages for M-. for methods.
    
    * slynk/backend/clasp.lisp (make-dspec): New helper.
    (find-definitions): Use it.
    
    Cherry-picked-from: SLIME commit 66d332cee3a15d5f3d4846a4934469e0f927f688
    Co-authored-by: João Távora <joaotavora@gmail.com>
---
 slynk/backend/clasp.lisp | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/slynk/backend/clasp.lisp b/slynk/backend/clasp.lisp
index 3710aa8..f0f8a8b 100644
--- a/slynk/backend/clasp.lisp
+++ b/slynk/backend/clasp.lisp
@@ -610,12 +610,18 @@
                  (list :position (ext:source-location-offset location))
                  '(:align t)))
 
+(defun make-dspec (name location)
+  (list* (ext:source-location-definer location)
+         name
+         (ext:source-location-description location)))
+
 (defimplementation find-definitions (name)
   (loop for kind in ext:*source-location-kinds*
         for locations = (ext:source-location name kind)
         when locations
-        nconc (loop for location in locations
-                    collect (list kind (translate-location location)))))
+          nconc (loop for location in locations
+                      collect (list (make-dspec name location)
+                                    (translate-location location)))))
 
 (defun source-location (object)
   (let ((location (ext:source-location object t)))