fix: strip right slash from string-only path

hraban · Jan 2, 2024 · 4f48e20 · 4f48e20
1 parent 3e967d0
commit 4f48e20
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/main.lisp b/main.lisp
@@ -177,10 +177,10 @@ Also resolves symlinks, if relevant.
 (defgeneric path-without-slash (p))
 
 (defmethod path-without-slash ((p string))
-  p)
+  (string-right-trim "/" p))
 
 (defmethod path-without-slash ((p pathname))
-  (string-right-trim "/" (namestring p)))
+  (path-without-slash (namestring p)))
 
 (defun sync-dock (apps)
   "Every element must be a pathname to a real directory, not a symlink"