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

support drives on windows

Browse source
This commit is contained in:
David Botton 2024-05-14 18:41:35 -04:00
parent e205a7917b
commit 34dd1e164d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tools/clog-builder-dir-tree.lisp
View file

@ -181,10 +181,10 @@
(declare (ignore obj)) (declare (ignore obj))
(setf (text tree) "") (setf (text tree) "")
(let* ((root (text-value root-dir)) (let* ((root (text-value root-dir))
(tname (uiop:truename* root)) (tname (truename root))
(dir (format nil "~A" (directory-namestring (if tname (dir (format nil "~A" (uiop:native-namestring (directory-namestring (if tname
tname tname
""))))) ""))))))
(setf (text-value root-dir) dir) (setf (text-value root-dir) dir)
(create-clog-tree tree (create-clog-tree tree
:fill-function (lambda (obj) :fill-function (lambda (obj)