From f745ec9d90886ee8adfea9e59cbbec5acd254782 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Sat, 5 Jun 2021 16:38:29 +0200 Subject: [PATCH] ambrevar/storage: Add absolute-pathname. --- .local/share/common-lisp/source/ambrevar/storage.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/.local/share/common-lisp/source/ambrevar/storage.lisp b/.local/share/common-lisp/source/ambrevar/storage.lisp index 67e3fa5c..b463d5f6 100644 --- a/.local/share/common-lisp/source/ambrevar/storage.lisp +++ b/.local/share/common-lisp/source/ambrevar/storage.lisp @@ -20,11 +20,13 @@ (first (json:decode-json-from-string (cmd:$cmd "findmnt -n --fstab --output TARGET --json"))))))) +(defun absolute-pathname (path-designator) + (uiop:ensure-pathname path-designator + :truenamize t)) + (defun absolute-path (path-designator) (uiop:native-namestring - (uiop:truename* (if (pathnamep path-designator) - path-designator - (uiop:parse-native-namestring path-designator))))) + (absolute-pathname path-designator))) (defun subpath (root &rest subdirs) "Return merged paths as a string.