branch: externals/sly
commit a9502b1015df357ea257bd7520ef816f09982c28
Author: Mark <evenson.not....@gmail.com>
Commit: João Távora <joaotav...@gmail.com>
abcl: fix finding slime locations within JAR archives
* slynk/backend/abcl.lisp: do things to it.
One cannot pass reader macros over SLIME wire protocol so pathnames
need to use their namestring representation as opposed to the
Cherry-picked-from: SLIME commit 0e4e4aca8e30a74238bacf6cf4f4357e282e60be
Co-authored-by: João Távora <joaotav...@gmail.com>
---
slynk/backend/abcl.lisp | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/slynk/backend/abcl.lisp b/slynk/backend/abcl.lisp
index aedaaa6..c1e4c33 100644
--- a/slynk/backend/abcl.lisp
+++ b/slynk/backend/abcl.lisp
@@ -755,7 +755,7 @@
(cond ((ext:pathname-jar-p path)
`(:location
;; strip off "jar:file:" = 9 characters
- (:zip ,@(split-string (subseq path 9) "!/"))
+ (:zip ,@(split-string (subseq path (length "jar:file:"))
"!/"))
;; pos never seems right. Use function name.
(:function-name ,(string symbol))
(:align t)))
@@ -1004,8 +1004,7 @@
(list (definition-specifier what)
(if (ext:pathname-jar-p path2)
`(:location
- ;; JAR-PATHNAME stores the PATHNAME of the jar file as first
element of a list DEVICE
- (:zip ,@(pathname-device path2))
+ (:zip ,@(split-string (subseq path2 (length "jar:file:"))
"!/"))
;; pos never seems right. Use function name.
,<position>
(:align t))
