mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

correct for drive letters on windows

Browse source
This commit is contained in:
David Botton 2024-04-11 22:12:21 -04:00
parent 2325357d41
commit 6eb261e761
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder-shell.lisp
View file

@ -22,9 +22,11 @@
(if (and (> (length data) 3) (if (and (> (length data) 3)
(equalp (subseq data 0 3) "cd ")) (equalp (subseq data 0 3) "cd "))
(let* ((dir (subseq data 3 (length data))) (let* ((dir (subseq data 3 (length data)))
(wc (when (> (length dir) 2) (char dir 1)))
(sw (char dir 0))) (sw (char dir 0)))
(uiop:with-current-directory ((format nil "~A~A" (uiop:with-current-directory ((format nil "~A~A"
(if (or (equal sw (uiop:directory-separator-for-host)) (if (or (equal wc #\:)
(equal sw (uiop:directory-separator-for-host))
(equal sw #\~)) (equal sw #\~))
dir dir
(format nil "~A~A~A" (format nil "~A~A~A"