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

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

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