mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-05 16:51:33 -08:00
Code Issues Projects Releases Wiki Activity

Start are clog-web-content

Browse source
This commit is contained in:
David Botton 2022-05-01 10:41:04 -04:00
parent c48f7fb86e
commit 0994909d35
2 changed files with 63 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
source/clog-web.lisp
View file

@ -1184,4 +1184,7 @@ element."
(defun base-url-split (base-url url-path)
"Split path by / adjusting for base-url"
(ppcre:split "/" (adjust-for-base-url base-url url-path)))
(let ((s (ppcre:split "/" (adjust-for-base-url base-url url-path))))
(if (equal (car s) "")
(cdr s)
s)))