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

view drive letter

Browse source
This commit is contained in:
David Botton 2024-05-14 18:53:00 -04:00
parent 8d1d4215ce
commit ac25ecf2d7
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

@ -177,9 +177,9 @@
(setf (text tree) "") (setf (text tree) "")
(let* ((root (text-value root-dir)) (let* ((root (text-value root-dir))
(tname (truename root)) (tname (truename root))
(dir (format nil "~A" (uiop:native-namestring (directory-namestring (if tname (dir (format nil "~A" (uiop:native-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)