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)))
