From ac25ecf2d79a97576ab3e89e0472f08774d2acb1 Mon Sep 17 00:00:00 2001 From: David Botton Date: Tue, 14 May 2024 18:53:00 -0400 Subject: [PATCH] view drive letter --- tools/clog-builder-dir-tree.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tools/clog-builder-dir-tree.lisp b/tools/clog-builder-dir-tree.lisp index 7cadc09..1583bfd 100644 --- a/tools/clog-builder-dir-tree.lisp +++ b/tools/clog-builder-dir-tree.lisp @@ -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 - 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)