[nongnu] externals/sly 425146d 31/47: Print more code-source-location info for clasp

[ELPA Syncer]

branch: externals/sly
commit 425146d2b56715a9522ddb9ecb971093b50f2cd2
Author: Chris Schafmeister <meis...@temple.edu>
Commit: João Távora <joaotav...@gmail.com>

    Print more code-source-location info for clasp
    
    While we debug the source location code
    
    * slynk/backend/clasp.lisp (frame-source-location): Rework.
    
    Cherry-picked-from: SLIME commit b2085ec4080d8186b8cdefd9ba8a26e797c38faf
    Co-authored-by: João Távora <joaotav...@gmail.com>
---
 slynk/backend/clasp.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/slynk/backend/clasp.lisp b/slynk/backend/clasp.lisp
index 482a342..47a2cf1 100644
--- a/slynk/backend/clasp.lisp
+++ b/slynk/backend/clasp.lisp
@@ -515,7 +515,7 @@
 (defimplementation frame-source-location (frame-number)
   (let* ((address (core::backtrace-frame-return-address (elt *backtrace* 
frame-number)))
          (code-source-location (ext::code-source-position address)))
-    (format t "code-source-location ~s~%" code-source-location)
+    (format t "address: ~a   code-source-location ~s~%" address 
code-source-location)
     ;; (core::source-info-backtrace *backtrace*)
     (if (ext::code-source-line-source-pathname code-source-location)
         (make-location (list :file (namestring 
(ext::code-source-line-source-pathname code-source-location)))