work around bug in ext:pathname-jar-p armedbear/abcl#411

alanruttenberg · Nov 6, 2021 · 1d17cbc · 1d17cbc
1 parent a7b0012
commit 1d17cbc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/swank/abcl.lisp b/swank/abcl.lisp
@@ -1005,7 +1005,7 @@
       (when (atom what)
         (setq what (list what sym)))
       (list (definition-specifier what)
-            (if (ext:pathname-jar-p path2)
+            (if (ext:pathname-jar-p (pathname path2))
                 `(:location
                   (:zip ,@(split-string (subseq path2 (length "jar:file:")) "!/"))
                   ;; pos never seems right. Use function name.