[nongnu] externals/sly a9502b1 25/47: abcl: fix finding slime locations within JAR archives

[ELPA Syncer]

branch: externals/sly
commit a9502b1015df357ea257bd7520ef816f09982c28
Author: Mark <evenson.not.org@gmail.com>
Commit: João Távora <joaotavora@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 <joaotavora@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))