ambrevar/storage: Add absolute-pathname.
parent
637782130f
commit
f745ec9d90
|
@ -20,11 +20,13 @@
|
||||||
(first (json:decode-json-from-string
|
(first (json:decode-json-from-string
|
||||||
(cmd:$cmd "findmnt -n --fstab --output TARGET --json")))))))
|
(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)
|
(defun absolute-path (path-designator)
|
||||||
(uiop:native-namestring
|
(uiop:native-namestring
|
||||||
(uiop:truename* (if (pathnamep path-designator)
|
(absolute-pathname path-designator)))
|
||||||
path-designator
|
|
||||||
(uiop:parse-native-namestring path-designator)))))
|
|
||||||
|
|
||||||
(defun subpath (root &rest subdirs)
|
(defun subpath (root &rest subdirs)
|
||||||
"Return merged paths as a string.
|
"Return merged paths as a string.
|
||||||
|
|
Loading…
Reference in New Issue