From 7807afece243854e928c857587446ba3d44555cc Mon Sep 17 00:00:00 2001
From: Jaidyn Ann <10477760+JadedCtrl@users.noreply.github.com>
Date: Wed, 29 May 2024 22:03:08 -0500
Subject: [PATCH] Replace cl-strings with split-sequence
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

… which is already pulled in as an indirect
dependency, anyway.
---
 src/mirror-img.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mirror-img.lisp b/src/mirror-img.lisp
index 3566ae4..8dcd91c 100644
--- a/src/mirror-img.lisp
+++ b/src/mirror-img.lisp
@@ -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)))))