jadedctrl/ mirror-img
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Replace cl-strings with split-sequence 

… which is already pulled in as an indirect
dependency, anyway.
This commit is contained in:
Jaidyn Ann 2024-05-29 22:03:08 -05:00
parent 43cc123057
commit 7807afece2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mirror-img.lisp
View File

@ -188,4 +188,4 @@ That is, 443 is implied by HTTPS, so nil is returned; but 998 wouldn’t be impl
(defun pathname-leaf (pathname)
"Given a pathname, return the entirety of the file leaf.
That is, everything following the last directory name."
(car (last (cl-strings:split (namestring pathname) #\/))))
(car (last (split-sequence:split-sequence #\/ (namestring pathname)))))